0-400 RACE GAME
400
for PB-SIM(高速モード)
Pokecom GO(fastモード)
（速度が必要なのでPB-100実機は推奨しません）
アクセルON！
スムーズなギアチェンジでトップスピードへ！
アクセルとギアチェンジだけで
ゼロヨン記録を目指すゲームです。
＜遊び方＞
・プログラム・リストを入力し、[P0]を実行するとスタートです。
・シグナル”◆”が表示されますので、３つ表示されたらアクセルAを押してスタート。
３つ表示される前にスタートするとフライングとなり、ペナルティが課されます。
・スタート後の表示
・アクセルAを離し、8↑2↓でシフトアップ・ダウンします。ギア段は１～６の６段変速です。
・アクセルをきちんと離し、シフトアップ・ダウンを確実に押さないと、ギアチェンジを失敗します。
・一定距離を走行すると、ラップタイムを表示して終了します。
・アイドル回転数は700で、最高回転数6000でリミッターが作動します。
・各パラメータに単位の設定はありません。^^)
エンジン特性を３種類から選べます。プログラム85,87行を入れ替えてみてください。
ディフォルトはエンジンAです。
プログラム説明書 program manual
400 readme.pdf400 flowchart.pdfPB-100実機形式
PB-SIM形式
[P0]
5 SET F0
10 VAC:Q=10:M=1000:G=1:H=4:R=700
15 W$="E--\CI":X$="*E/\CI":Y$=" E\CI":Z$=" E\GE\CI"
20 FOR J=1 TO 30
25 GOSUB #3:K=TAN 2
30 IF FRAC(J/10)=0;PRINT CSR J/5+3;"\DI";
35 IF KEY="A";S=50:PRINT CSR 4;"Flying";:GOTO 50
40 NEXT J
45 IF KEY="";S=S+1:GOSUB #3:GOTO 45
50 GOSUB #3:S=S+1:T=0
55 B$=KEY
60 IF B$="A";Q=0:GOTO 85
65 IF B$="8";G=G+1:IF G>6;G=6
70 IF B$="2";G=G-1:IF G<1;G=1
75 Q=Q+1:IF Q>10;Q=10
80 H=4-(G-1)/2:GOTO 95
85 T=.1*R:IF R>3000;T=510-.07*R
90 GOSUB #3
95 V=V+10*T*H/M-V*V/20000
100 IF B$="A";R=V*H*10:GOTO 110
105 R=R*.7
110 GOSUB #3
115 IF R>6000;R=6000:V=R/H/10:GOTO 125
120 IF R<700;R=700
125 P=P+V/20
130 GOSUB #3
135 PRINT V/10;R/100;" ";CSR10;G;
140 IF P<1000 THEN 50
145 PRINT:PRINT "CHECKER";S;:SET N:END
[P3]
1 C=C+1:IF C>3;C=0
2 FOR I=0 TO Q:NEXT I
3 PRINT CSR0;W$(C);:RETURN
