■DOMINO■
著作制作…………よなぷー
制作年月日………2017年9月16日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………544ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
P0
2 PRINT "●[[DOMINO]]","[TOP]";H,"[BY]";J$:E=10:F=0:G=2
4 $="●●●●●●●●●●●●"
6 A=0:PRINT:PRINT "●[STAGE";6-E/2;"]";:GOSUB #2
8 IF A=12;GOSUB #3:GOTO 6
20 PRINT CSR0;$;CSRA;"'";:GOSUB #1:A=A+1:IF KEY="" THEN 8
30 PRINT CSRA-1;"i";:GOSUB #1:IF MID(A,1)="I";GOSUB #3:GOTO 6
40 IF A=1;$="I"+MID(2,11):GOTO 70
50 IF A=12;$=MID(1,11)+"I":GOTO 70
60 $=MID(1,A-1)+"I"+MID(A+1)
70 A=0:F=F+1:IF $≠"IIIIIIIIIIII" THEN 8
80 FOR D=0 TO 11:PRINT CSRD;"/";CSR COS TAN SIN 0*D;"_";:NEXT D:GOSUB #2
90 PRINT "●●[CLEAR!]";:GOSUB #2:F=F+10:E=E-2:IF E≧0 THEN 4
100 PRINT "[ALL●CLEAR!]","[GREATEST!!]";:F=F+G*10:GOSUB #2:GOTO #4
P1
10 FOR C=0 TO E:NEXT C:RETURN
P2
10 FOR C=0 TO 99:NEXT C:PRINT:RETURN
P3
10 GOSUB #2:PRINT "●●●[MISS]";:GOSUB #2:G=G-1:IF 0>G THEN #4
20 RETURN
P4
10 PRINT "[GAME●OVER!]","SCORE";F;:IF F≧H;STOP:H=F:INPUT "NAME",J$