■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
コメント