■ＤＯＭＩＮＯ■

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


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$