■ＲＯＵＮＤ ＴＲＩＰ■
著作制作…………よなぷー
制作年月日………２０１８年１月３日
対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
使用メモリ………プログラム本体 １４１６ステップ
ＤＥＦＭ命令 １５２ステップ
※「クラブ」「スペード」「ハート」は、その記号を入力してください。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
P0
2 B=0:IF K=35;K=34:$="●NICE●CLEAR●":GOSUB #7:END
4 GOSUB #4:PRINT:PRINT "STAGE";K;:GOSUB #8
6 PRINT CSR0;$;A;
8 IF KEY="" THEN 8
20 IF KEY="Q";B=B-SGNB
25 IF KEY="W";B=B+SGN(8-B
30 IF KEY="-";GOSUB #1
35 IF KEY="9";PRINT:PRINT "GIVE●UP!";:GOSUB #8:GOTO 2
40 IF KEY≠"6";PRINT CSRB;"##";:I=TAN SIN π:GOTO 6
45 E=0:J=0
50 PRINT CSR0;$;CSRE;"=";:I=COS TAN SIN π
55 IF KEY="9";PRINT:PRINT "STOP":GOTO 6
60 F$=MID(E+1,1):IF F$="]";E=E+1
65 IF F$="→";PRINT CSRE;"==";:E=E+3
70 IF F$="[";E=E-1
75 IF F$="←";E=E-3:IF E≧0;PRINT CSRE;"==";
80 IF E=9;J=1
85 IF E≧10 THEN 105
90 IF 0>E;IF J=0 THEN 105
95 IF 0>E;IF J=1;PRINT "CLEAR!";:K$(K)="*":GOSUB #8:K=K+1:GOTO 2
100 GOTO 50
105 PRINT:PRINT "FAILED";:GOSUB #8:GOTO 6
P1
10 C$=MID(B+1,1):D$=MID(B+2,1):IF A=0;RETURN
20 A=A-SGNA:IF B=0;$=D$+C$+MID(3):RETURN
30 IF B=8;$=MID(1,8)+D$+C$:RETURN
40 $=MID(1,B)+D$+C$+MID(B+3):RETURN
P4
1 PRINT CSR0;"SELECT";K;K$(K);"●●";
3 IF KEY="Q";K=K-SGN(K-1:GOTO 1
5 IF KEY="W";K=K+SGN(34-K:GOTO 1
7 IF KEY≠"-" THEN 3
9 A=1+INT((K-1)/5:GOTO K*10
10 $="]→←→]←→]←[":RETURN
20 $="→←[]→←][]←":RETURN
30 $="]→[←]→←[]←":RETURN
40 $="→←]→←[←→[[":RETURN
50 $="]→←[→[]←]←":RETURN
60 $="→]→←]→←]←[":RETURN
70 $="→←[→][←]]←":RETURN
80 $="]→[←→]←[]←":RETURN
90 $="←→]→←[←→[[":RETURN
100 $="]→←[←→[]]←":RETURN
110 $="→]→←←→]]←[":RETURN
120 $="→←[→][←]←]":RETURN
130 $="→][←]→[←]←":RETURN
140 $="→←→][←→[←[":RETURN
150 $="]←→[→←[]←]":RETURN
160 $="→]←←→]]←→[":RETURN
170 $="←→[→][]←]←":RETURN
180 $="]→←→[←]][←":RETURN
190 $="→←→][→←[←[":RETURN
200 $="←]→→[←[]]←":RETURN
210 $="→←]]→]←→[←":RETURN
220 $="→[]←→[←←]]":RETURN
230 $="]←[]→→[]←←":RETURN
240 $="→]→←[←←[→[":RETURN
250 $="→][←[→]←←]":RETURN
260 $="]→←→←]]→[←":RETURN
270 $="←[→→][]←←]":RETURN
280 $="→][]←←[→←]":RETURN
290 $="]→←←→→[[[←":RETURN
300 $="]←[→→←←[]]":RETURN
310 $="]←→]←→→][←":RETURN
320 $="[→[←]→←]←]":RETURN
330 $="→]][←←→]←[":RETURN
340 $="→←]→←→[[[←":RETURN
P7
10 FOR I=0 TO 11:FOR E=11 TO I STEP -1
20 PRINT CSRE;MID(I+1,1);:NEXT E:NEXT I:RETURN
P8
10 FOR I=0 TO 130:NEXT I:PRINT:RETURN
P9
10 $="-ROUND●TRIP-":GOSUB #7:STOP:VAC:K=1:GOTO #0
(DEFM 19)
