■EARTH WAR■
著作制作…………よなぷー
制作年月日………2017年11月22日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………544ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
適当なプログラムエリア
4 GOSUB 95
8 IF KEY="Q";B=0
20 IF KEY="A";B=1
25 IF KEY="Z";B=2
30 IF KEY="-";IF F≧1;F=F-1:GOSUB 80
35 IF KEY="+";IF F*SGND≧1;F=F-1:D=D-SGND
40 PRINT CSR10;F;CSR0;$;CSR0;Q$(D);T$(B);:IF MID(4,1)≠W$(B) THEN 55
45 PRINT CSR3;"]";:C=C+1:$=MID(1,3)+"●"+MID(5):E=9-C/9:IF E≦4;E=4
50 IF FRAC(C/30=0;F=F+SGN(3-F
55 A=RAN#*E:IF A≧3;A=3
60 $=MID(2)+W$(A):IF MID(1,1)="●" THEN 8
65 PRINT CSR0;"×";:D=D+1:IF D≦2 THEN 8
70 PRINT CSR0;"***","SCORE";C;:IF G>C;END
75 STOP:PRINT "TOP!":G=C:INPUT "NAME",H$:PRINT "◆≠=THEEND=≠◆";:END
80 FOR A=4 TO 10:PRINT CSRA;">";:IF MID(A+1,1)≠"●";C=C+2
85 NEXT A
90 $="●●●●●●●●●●●":Q$="●●)":R$="*●)":S$="**)":RETURN
95 PRINT "◆*EARTH●WAR◆","HI●SC";G,"BY●";H$:$="゜○o'・.●"
100 FOR A=1 TO 7:S$(A)=MID(A,1):NEXT A:C=0:D=0:E=8:F=0:GOTO 90