■ＦＲＯＧＧＥＲ■

　著作制作…………よなぷー
　制作年月日………２０１８年１２月６日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………５４４ステップ
　※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
　※「●」はスペース一個です。
　※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
　※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
　※９０行の"'"は、『”』に『’』が挟まれています。


適当なプログラムエリア

1 V=0:GOTO 90

2 S=S*10:IF S≧1⊂4;S=10

3 H=10*FRAC(N/S:I=10*FRAC(O/S:J=10*FRAC(P/S:K=10*FRAC(Q/S

4 L=10*FRAC(R/S:PRINT:PRINT CSR10;W;CSRA;B$(M);CSR1;E$(H);

5 PRINT CSR3;E$(I);CSR5;E$(J);CSR7;E$(K);CSR9;E$(L);:IF A>9 THEN 50

6 W=W-1:IF 0>W THEN 30

7 IF KEY="Q";M=M-SGN M

8 IF KEY="A";M=M+SGN(2-M

9 IF KEY≠"-" THEN 2

20 A=A+1:IF M=INT H(A/2);PRINT CSRA;B$(M);:A=A+1:W=9:GOTO 2

30 V=V+A:STOP:PRINT "SC";V:IF V>Y;Y=V:PRINT "HI!":INPUT "NAME",Z$

40 PRINT "THEEND";:END

50 PRINT CSR3;"CLEAR!":X=X+1:V=V+5:GOTO 100

90 PRINT "●●■FROGGER","HI";Y,"BY●";Z$:X=1:B$="'":C$="・":D$="."

100 PRINT "●●ROUND";X;:E$="゜":F$="○":G$="o":W=9

110 A=0:S=10:FOR T=0 TO 4:N(T)=0:U=RAN#:FOR H=0 TO 2

120 N(T)=N(T)+10↑H*INT(10*FRAC((10↑H*U))/3.4:NEXT H:NEXT T:GOTO 2