■ＰＢ　ＣＩＲＣＵＩＴ■

　著作制作…………よなぷー
　制作年月日………２０１５年７月１９日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………５４４ステップ
　※「クラブ」「スペード」「ハート」は、その記号を入力してください。
　※「●」はスペース一個です。
　※「○」はEXTモードの[SHIFT][A]です。
　※「⊂」は[ANS]の下の[E]です。


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

2 GOTO 80

4 B=2-INT(5*FRAC(C*E/π:GOSUB 72+B

6 PRINT CSR0;MID(INT A*7+1,7);S;"●";CSRX;"π";:S=S+10:G=G+1

8 IF E≧50;PRINT:PRINT "●●*GOAL!!*","COURSE";C,"TIME";G:GOTO 8

20 X=X-B*S/130:E=E+S/80:IF KEY="Q";X=X-1

25 IF KEY="-";X=X+1

30 IF KEY="W";X=X-1.5:S=S-25

35 IF KEY="6";X=X+1.5:S=S-25

40 T=1+SGN INT(X/7:IF T≠1;X=3*T:PRINT CSRX;"*";:G=G+10:S=0

45 IF S>99;S=99

50 IF S<0;S=0

55 A=A+S/99:IF A≧4;A=0:GOTO 4

60 GOTO 6

70 $="'.'・・..゜.゜・・..゜.'○○..'o'・・oo":RETURN

71 $=".'●'・...゜●゜・...゜●'○..o'●'・oo":RETURN

72 $=".・'●'・..・゜●゜・..○'●'○.o・'●'・o":RETURN

73 $="..・'●'...・゜●゜...○'●゜.oo・'●'o":RETURN

74 $="..・・'.'..・・゜.゜..○○'.゜oo・・'o'":RETURN

80 PRINT "[PB CIRCUIT]":VAC:INPUT "COURSE",C:X=3:E=1:GOTO 4