じつはつづきがあります
IF I=239 THEN HH1=HH1-1:HH2=HH2+1 ELSE IF I=191 THEN HH1=HH1+1:HH2=HH2-1
LOCATE 3,12-HHY:PRINT "<>"(ひしがたのつもりで)
LOCATE 5,0:PRINT STRING$(INT(F/8),"l"
LOCATE 19,22:`PRINT (HY-120)*10;"ft "
IF HY<180 THEN LOCATE18,14:PRINT "-'- -'-" ELSE LOCATE 18,14:PRINT " "(Tの上下逆のかたちのつもりで)
IF HY<=120 OR F=280 THEN 270
LINE(0,H1)-(639,H2),0:LINE(328,100)-(258,HY),0:LINE(328,100)-(398,HY),0
H1=H1+HH1:H2=H2+HH2:HY=HY+HHY:F=F+1
LINE(0,H1)-(639,H2),0:LINE(328,100)-(258,HY),0:LINE(328,100)-(398,HY),4
FOR W=0 TO WA:NEXT:GOTO 130(I=INP(0)のところ)
IF HHY>-2.5 AND H1<102 AND H1>98 THEN 300(FoR I=0 TO 7:ROLLのところ)
COLOR 2:LOCATE 18,9:PRINT "MISS !":BEEP
LOCATE 18,12:PRINT "XXXXX":LOCATE 18,13:PRINT "XXXXX":GOTO 330(LOCATE 12,23:PRINT "PUSHのところ)
FOR I=0 TO 7:ROLL-1:ROLL 1:NEXT:COLOR 5
LOCATE 14,7 :PRINT "NICE LANDNG !"
LOCATE 10,18:PRINT "YOUR SCORE:";(ABS(2.5-HY)+280-F)*100;"pts .":BEEP
LOCATE 12,23:PRINT "PUSH (SPACE) KEY!"
IF INP(9)=191 THEN GOTO 40 ELSE 340
じつはつづきがあります
IF I=239 THEN HH1=HH1-1:HH2=HH2+1 ELSE IF I=191 THEN HH1=HH1+1:HH2=HH2-1
LOCATE 3,12-HHY:PRINT "<>"(ひしがたのつもりで)
LOCATE 5,0:PRINT STRING$(INT(F/8),"l"
LOCATE 19,22:`PRINT (HY-120)*10;"ft "
IF HY<180 THEN LOCATE18,14:PRINT "-'- -'-" ELSE LOCATE 18,14:PRINT " "(Tの上下逆のかたちのつもりで)
IF HY<=120 OR F=280 THEN 270(IF HHY>-2.5スペースの次
LINE(0,H1)-(639,H2),0:LINE(328,100)-(258,HY),0:LINE(328,100)-(398,HY),0
H1=H1+HH1:H2=H2+HH2:HY=HY+HHY:F=F+1
LINE(0,H1)-(639,H2),0:LINE(328,100)-(258,HY),0:LINE(328,100)-(398,HY),4
FOR W=0 TO WA:NEXT:GOTO 130(I=INP(0)のところ)
IF HHY>-2.5 AND H1<102 AND H1>98 THEN 300(FoR I=0 TO 7:ROLLのところ)
COLOR 2:LOCATE 18,9:PRINT "MISS !":BEEP
LOCATE 18,12:PRINT "XXXXX":LOCATE 18,13:PRINT "XXXXX":GOTO 330(LOCATE 12,23:PRINT "PUSHのところ)
FOR I=0 TO 7:ROLL-1:ROLL 1:NEXT:COLOR 5
LOCATE 14,7 :PRINT "NICE LANDNG !"
LOCATE 10,18:PRINT "YOUR SCORE:";(ABS(2.5-HY)+280-F)*100;"pts .":BEEP
LOCATE 12,23:PRINT "PUSH (SPACE) KEY!"
IF INP(9)=191 THEN GOTO 40 ELSE 340