■SUPER RIDERS■

 著作制作…………よなぷー
 制作年月日………2019年12月5日
 対応機種…………PB-100/110/120用ゲームプログラム
 使用メモリ………544ステップ
 ※「クラブ」「スペード」「ハート」は、その記号を入力してください。
 ※「●」はスペース一個です。
 ※「○」はEXTモードの[SHIFT][A]です。
 ※「⊂」は[ANS]の下の[E]です。


◆◆◆ 適当なプログラムエリア ◆◆◆

P0

1 O=0:GOTO 80

2 E=E+1:IF E≧B;PRINT CSR7;"GOAL!":H=1:GOTO #1

3 D=INT(10*FRAC(LN E*Z*1⊂6:IF D≧5;D=2

5 PRINT CSR0;S$(D);C;CSRX;"ス";CSRY;O$(A);:G=G+1

7 IF KEY="Q";X=X-1:C=C-20

8 IF KEY="-";X=X+1:C=C-20

9 IF INT X=Y;IF A≧3;PRINT CSRY;"*";:A=0:C=INT SIN COS TAN 0:PRINT:GOTO 5

20 A=A+C/297:IF A≧4;A=0

30 IF A≦0;Y=INT(RAN#*7:A=0

40 C=C+20:IF C≧297;C=297

50 F=F+C/297:IF F≧3;F=0:GOTO 2

60 X=X-(C/297)*(D-2)/2:IF X≧0;IF 7>X THEN 5

70 X=SGN X*3+3:PRINT CSRX;"*";:C=INT SIN COS TAN 0:PRINT:GOTO 5

80 PRINT "SUPER●RIDERS":X=3:A=0:E=2:C=0:G=0:H=0:P$="・":Q$="△"

90 R$="◆":S$=")_oO()(":T$=")o_oO()":U$=")Oo_oO(":V$="()Oo_o("

95 W$=")()Oo_(":INPUT "COURSE:",Z:B=15+INT(30*FRAC(LN Z*1⊂5:GOTO 2


P1

9 PRINT "COURSE";Z,"LAP●TIME";G*H:GOTO 9