■ＧＡＲＬＡＮＤ■
著作制作…………よなぷー
制作年月日………２０１６年１０月１日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………５４４ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
適当なプログラムエリア
3 GOTO 70
6 PRINT CSR10;"*";:J=J-2:RETURN
9 PRINT CSR1;$;L$;CSRA;"μ";CSRB;D$;CSRC;E$;
15 IF MID(A,1)≠H$;PRINT CSRA;"■";:M=M-1:IF M≦0 THEN 95
20 IF KEY="Q";A=A-SGN(A-1
25 IF KEY="W";A=A+SGN(9-A
30 IF KEY="-";IF D$="";B=A:D$="-":P=B
35 IF KEY="-";IF E$="";C=A:E$="-":Q=C:IF C=B;C=C+1
40 IF B≠0;B=B+1:IF B>9;GOSUB 6:B=0:D=0:N=N+P
45 IF C≠0;C=C+1:IF C>9;GOSUB 6:C=0:E=0:N=N+Q
50 IF MID(9,1)≠H$;$=$+G$:GOTO 60
55 $=$+F$(RAN#*3)
60 $=MID(2):IF J≧1 THEN 9
65 STOP:GOTO 75
70 PRINT "●●■GARLAND","HI";R:K=0:N=0
75 IF K≧5;PRINT CSR3;"GREAT!";:GOTO 95
80 A=1:B=0:C=0:D=0:E=0:M=5:K=K+1:J=K*8+30:$="・Ω:￥=＠←&≦Σ"
85 F$=MID(K*2-1,1):PRINT "R";K,"[";CSR11;"]";
90 L$=MID(K*2,1):G$="●":H$=G$:$="●●●●●●●●●":GOTO 9
95 STOP:PRINT "S";N;:IF N≧R;R=N
著作制作…………よなぷー
制作年月日………２０１６年１０月１日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………５４４ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
適当なプログラムエリア
3 GOTO 70
6 PRINT CSR10;"*";:J=J-2:RETURN
9 PRINT CSR1;$;L$;CSRA;"μ";CSRB;D$;CSRC;E$;
15 IF MID(A,1)≠H$;PRINT CSRA;"■";:M=M-1:IF M≦0 THEN 95
20 IF KEY="Q";A=A-SGN(A-1
25 IF KEY="W";A=A+SGN(9-A
30 IF KEY="-";IF D$="";B=A:D$="-":P=B
35 IF KEY="-";IF E$="";C=A:E$="-":Q=C:IF C=B;C=C+1
40 IF B≠0;B=B+1:IF B>9;GOSUB 6:B=0:D=0:N=N+P
45 IF C≠0;C=C+1:IF C>9;GOSUB 6:C=0:E=0:N=N+Q
50 IF MID(9,1)≠H$;$=$+G$:GOTO 60
55 $=$+F$(RAN#*3)
60 $=MID(2):IF J≧1 THEN 9
65 STOP:GOTO 75
70 PRINT "●●■GARLAND","HI";R:K=0:N=0
75 IF K≧5;PRINT CSR3;"GREAT!";:GOTO 95
80 A=1:B=0:C=0:D=0:E=0:M=5:K=K+1:J=K*8+30:$="・Ω:￥=＠←&≦Σ"
85 F$=MID(K*2-1,1):PRINT "R";K,"[";CSR11;"]";
90 L$=MID(K*2,1):G$="●":H$=G$:$="●●●●●●●●●":GOTO 9
95 STOP:PRINT "S";N;:IF N≧R;R=N
コメント