■ＲＯＵＮＤ　ＴＲＩＰ■

　著作制作…………よなぷー
　制作年月日………２０１８年１月３日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………プログラム本体　１４１６ステップ
　　　　　　　　　ＤＥＦＭ命令　　　１５２ステップ
　※「クラブ」「スペード」「ハート」は、その記号を入力してください。
　※「●」はスペース一個です。
　※「○」は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)