5 REM ** 4MOKU_1
10 CLS:CLV
20 FOR I=1 TO 6
30 LC 8,20-2*I:?I:LC 24,20-2*I:?"|":NEXT
40 FOR K=1 TO 7
50 LC 8+2*K,20:?K:NEXT
55 LRUN FILE()+1
60 IF P=1 Q=A ELSE Q=B
65 IF X>0 K=X:X=0:GOTO 130
70 D=16:LC D,6:?CHR$(Q)
80 IF BTN(29)=1 D=D+2:IF D>22 D=D-2:GOTO 80 ELSE GOTO 110
90 IF BTN(28)=1 D=D-2:IF D<10 D=D+2:GOTO 80 ELSE GOTO 110
100 IF BTN(31)=1 GOTO 120
110 LC D-2,6:?" ";CHR$(Q);" ":WAIT 10:GOTO 80
120 K=(D-8)/2:IF [60+K]>0 GOTO 80
130 I=1
140 IF [10*(7-I)+K]=0 LC 8+2*K,6+2*I-2:?" ":LC 8+2*K,6+2*I:?CHR$(Q):WAIT 10:I=I+1:GOTO 140 ELSE IF I>=2 [10*(8-I)+K]=P
150 FOR K=1 TO 7
160 FOR I=1 TO 6
170 Y=10*I+K:E=[Y]+[Y+1]+[Y+2]+[Y+3]:F=[Y]+[Y+10]+[Y+20]+[Y+30]:G=[Y]+[Y+11]+[Y+22]+[Y+33]:H=[Y]+[Y+9]+[Y+18]+[Y+27]
180 IF E=4 OR F=4 OR G=4 OR H=4 GOTO 250 ELSE IF E=20 OR F=20 OR G=20 OR H=20 GOTO 250
190 NEXT:NEXT
200 IF M=1 GOTO 230
210 C=C+1:IF C=2 LRUN FILE()+1,55
220 C=1
230 IF P=1 P=5 ELSE P=1
240 WAIT 60:GOTO 60
250 LC 25,22:?CHR$(Q);"ﾉｶﾁ"
260 LC 3,23:?"Push SPACE"
270 IF BTN(32) GOTO 10 ELSE GOTO 270
10 REM ** 4MOKU_2
20 A=#01:B=#EF:P=1:LET[1],1,1,1,1,1,1,1:LC 0,0
30 INPUT"1=ﾋﾄvsﾋﾄ 2=ﾋﾄvsIJ ? ",M:IF M=1 LRUN FILE()-1,60
40 B=#FF:?:INPUT"ｾﾝﾃﾊ 1=ﾋﾄ 2=IJ ? ",C:J=0
50 IF C=1 LRUN FILE()-1,60
55 IF P=1 P=5 ELSE P=1
57 J=J+1:IF J>1 GOTO 60
58 X=RND(3)+3:IF [10+X]=0:WAIT 30:GOTO 170 ELSE GOTO 58
60 FOR I=1 TO 6
70 FOR K=1 TO 7
80 Y=10*I+K
90 IF I>=4 GOTO 169 ELSE E=[Y]+[Y+1]+[Y+2]+[Y+3]
100 IF I<4 AND E=15 GOSUB 210
110 F=[Y]+[Y+10]+[Y+20]+[Y+30]
120 IF F=15 X=K
130 G=[Y]+[Y+11]+[Y+22]+[Y+33]
140 IF G=15 GOSUB 230
150 H=[Y]+[Y+9]+[Y+18]+[Y+27]
160 IF H=15 GOSUB 250
161 IF X>0 GOTO 169
162 IF E=3 GOSUB 210
163 IF F=3 X=K
164 IF G=3 GOSUB 230
165 IF H=3 GOSUB 250
169 NEXT:NEXT
170 IF X>0 LRUN FILE()-1,60
180 X=RND(7)+1
190 IF [60+X]=0 GOTO 200 ELSE GOTO 180
200 LRUN FILE()-1,60
210 FOR R=0 TO 3
220 IF [Y+R]=0 AND [Y+R-10]>0 X=K+R
225 NEXT:RETURN
230 FOR R=0 TO 3
240 IF [Y+11*R]=0 AND [Y+11*R-10]>0 X=K+R
245 NEXT:RETURN
250 FOR R=0 TO 3
260 IF [Y+9*R]=0 AND [Y+9*R-10]>0 X=K-R
265 NEXT:RETURN
＜あおむし＞
10 REM ** AOMUSI
20 POKE#700,#05,#08,#3C,#7E,#7A,#7A,#7E,#3C
30 POKE#708,#7E,#81,#A5,#A5,#81,#7E,#24,#C3
40 POKE#710,#7E,#81,#A5,#A5,#81,#7E,#24,#18
50 POKE#718,#7E,#81,#A5,#81,#A5,#81,#A5,#66
60 POKE#720,#20,#20,#3C,#62,#51,#49,#25,#1E
70 CLS:P=0:WAIT 60
80 X=15:Y=1
90 LC 0,0:?"POINT:";P
100 LC X,Y:IF RND(2)=0 THEN ?CHR$(#E2) ELSE ?CHR$(#E1)
110 LC X,Y-1:?CHR$(#E3)
120 IF BTN(28) X=X-1:IF X=0 X=1
130 IF BTN(29) X=X+1:IF X=31 X=30
140 WAIT 7
150 IF RND(5)>1 GOTO 170
160 LC RND(7)+X-3,10+RND(8):?CHR$(#E0)
170 LC RND(30)+1,23:?CHR$(#2B)
180 IF SCR(X,Y)=#2B P=P+1:Y=Y+1
190 IF SCR(X,Y)=#E0 GOTO 210
200 GOTO 90
210 LC X,Y:?CHR$(#F4):WAIT 100
220 CLS:LC 10,10:?"GAME OVER"
230 LC 10,12:?"POINT ";P
240 WAIT 30:LC 10,15:?"PUSH SPACE"
250 IF BTN(32) GOTO 70
260 WAIT 30:LC 10,15:?" ":GOTO 240
＜生きのこり＞
10 REM ** IKINOKORI
20 CLS:OUT1,-2
30 FOR I=0 TO 24:LC I,0:?"・;:LC I,22:?"・:NEXT
40 FOR I=0 TO 22:LC 0,I:?"・;:LC 25,I:?"・:NEXT
50 LC 27,5:?"・";A:LC 27,7:?"・";B
60 X=8:Y=7:P=16:Q=15:T=3
70 LC X,Y:?"・:LC P,Q:?"・
80 WAIT 60
90 WAIT 60:LC 10,0:?"< ";T;" >"
100 T=T-1:IF T=-1 LC 12,0:?"0":WAIT 60 ELSE GOTO 90
110 IF BTN(28) X=X-1:GOTO 150
120 IF BTN(29) X=X+1:GOTO 150
130 IF BTN(30) Y=Y-1:GOTO 150
140 IF BTN(31) Y=Y+1:GOTO 150
150 IF SCR(X,Y)<>0 GOTO 260
160 LC X,Y:?"・
170 WAIT 30
180 IF IN(1)=0 Q=Q-1
190 IF IN(2)=0 P=P+1
200 IF IN(4)=0 Q=Q+1
210 IF IN(5)=0 P=P-1
220 IF SCR(P,Q)<>0 GOTO 280
230 LC P,Q:?"・
240 WAIT 30
250 GOTO 110
260 LC X,Y:?"X":WAIT 60:LC 27,21:?"・Win":B=B+1
270 LC 29,7:?B:GOTO 300
280 LC P,Q:?"X":WAIT 60:LC 27,21:?"・Win":A=A+1
290 LC 29,5:?A:GOTO 300
300 WAIT 120
310 WAIT 30:LC 5,22:?" Push Space! ":WAIT 30
320 IF BTN(32) GOTO 10 ELSE LC 6,22:?" ":GOTO 310
＜落下 １、２＞
10 REM ** RAKKA_1
20 CLS:Z=0:WAIT 60
30 FOR I=1 TO 5:LC 10+2*I,0:?"・:LC 10+2*I,20:?"・:WAIT 20:NEXT
40 FOR I=10 TO 99:[I]=0:NEXT
50 FOR I=0 TO 9:[I]=20:NEXT
55 LC 9,6:?"黛":LC 22,6:?"熨":LC 23,13:?"Max:";M
60 WAIT 60
70 IF [71]+[72]+[73]+[74]+[75]>0 GOTO 310
80 P=3:Q=P:A=1+RND(9):[93]=A
90 I=0:T=0:WAIT 30:Z=Z+1:LC 25,16:?"Z:";Z
100 GOSUB 230:WAIT 60
110 IF BTN(28) AND Q>=2 Q=Q-1:T=T+4:GOTO 140
120 IF BTN(29) AND Q<=4 Q=Q+1:T=T+4:GOTO 140
130 GOTO 150
140 [90+Q]=A:[90+P]=0:LC 10+2*P,2:?" ":LC 10+2*Q,2:?[90+Q]:GOSUB 230:P=Q
150 WAIT 3:T=T+1:IF T<=25 GOTO 110
160 K=1
170 I=0
180 IF [90-10*I+K]>0 AND [90-10*(I+1)+K]=0 [90-10*(I+1)+K]=[90-10*I+K]:[90-10*I+K]=0:WAIT 10:GOSUB 280
190 I=I+1:IF I<=8 GOTO 180
200 K=K+1:IF K<=5 GOTO 170
210 LRUN FILE()+1
230 FOR J=1 TO 9
240 FOR L=0 TO 6
250 IF [L+10*J]>0 LC 10+2*L,20-2*J:?[L+10*J]
260 NEXT:NEXT
270 RETURN
280 LC 10+2*K,2+2*I:?" "
290 LC 10+2*K,2+2*(I+1):?[90-10*(I+1)+K]
300 RETURN
310 LC 23,20:?"END"
315 IF Z>M M=Z
320 IF BTN(32) GOTO 20 ELSE GOTO 320
10 REM ** RAKKA_2
15 G=0:H=0
20 FOR K=1 TO 8
30 FOR I=1 TO 5
40 IF [10*K+I]+[10*K+I+1]=10 [10*K+I]=0:[10*K+I+1]=0:WAIT 10:LC 10+2*I,20-2*K:?" ":LC 10+2*(I+1),20-2*K:?" ":G=1:GOSUB 150
50 NEXT:NEXT
55 IF G=1 GOTO 15
60 FOR K=1 TO 6
70 FOR I=1 TO 5
80 IF [10*K+I]+[10*(K+1)+I]+[10*(K+2)+I]=15 H=1:[10*K+I]=0:[10*(K+1)+I]=0:[10*(K+2)+I]=0:WAIT 10:LC 10+2*I,20-2*K:?" ":LC 10+2*I,20-2*(K+1):?" ":LC 10+2*I,20-2*(K+2):?" "
90 :NEXT:NEXT
95 IF H=1 GOTO 15
100 FOR K=1 TO 7
110 FOR I=1 TO 5
120 IF [10*K+I]>0 LC 10+2*I,20-2*K:?[10*K+I]
130 NEXT:NEXT
140 LRUN FILE()-1,70
150 FOR C=I TO I+1
160 FOR D=K TO 7
170 IF [10*D+C]=0 [10*D+C]=[10*(D+1)+C]:[10*(D+1)+C]=0:IF [10*D+C]>0 LC 10+2*C,20-2*D:?[10*D+C]
172 LC 10+2*C,20-2*(D+1):?" "
174 WAIT 10
180 NEXT:NEXT
190 RETURN
＜カベテニス １、２＞
10 REM ** TENISU_1
15 OUT1,-2
20 LRUN FILE()+1
30 X=P+1:Y=Q+1
40 IF SCR(X,Y)=#3D Y=Y-1:GOTO 80
50 IF X=30 X=X-1:GOTO 120
60 IF X=15 AND Y>=10 GOTO 120
65 IF Y=21 LRUN FILE()+1,200
70 GOSUB 210:GOTO 30
80 X=P+1:Y=Q-1
90 IF X=30 X=X-1:GOTO 170
100 IF Y=0 Y=Y+1:GOTO 30
105 IF X=15 AND Y>=10 GOTO 170
110 GOSUB 210:GOTO 80
120 X=P-1:Y=Q+1
130 IF SCR(X,Y)=#3D Y=Y-1:GOTO 170
140 IF X=0 X=X+1:GOTO 30
150 IF X=15 AND Y>=9 GOTO 30
155 IF Y=21 LRUN FILE()+1,200
160 GOSUB 210:GOTO 120
170 X=P-1:Y=Q-1
180 IF X=0 X=X+1:GOTO 80
190 IF Y=0 Y=Y+1:GOTO 120
195 IF X=15 AND Y>9 GOTO 80
200 GOSUB 210:GOTO 170
210 LC P,Q:?" ":LC X,Y:?CHR$(#E9):P=X:Q=Y:WAIT 4
220 LC A,B:?" "
260 A=A+BTN(29):IF A=13 A=12
270 A=A-BTN(28):IF A=0 A=1
280 B=B-BTN(30):IF B=10 B=11
290 B=B+BTN(31):IF B=21 B=20
300 LC A,B:?"==="
310 LC C,D:?" "
320 IF IN(5)=0 C=C-1:IF C=15 C=16
330 IF IN(2)=0 C=C+1:IF C=28 C=27
340 IF IN(1)=0 D=D-1:IF D=10 D=11
350 IF IN(4)=0 D=D+1:IF D=21 D=20
360 LC C,D:?"==="
400 RETURN
10 REM ** TENISU_2
20 P=15:Q=10:E=0:F=0
30 CLS
40 FOR I=0 TO 30
50 LC I,0:?"*":NEXT
60 FOR I=0 TO 20
70 LC 0,I:?"*":LC 30,I:?"*":NEXT
80 FOR I=0 TO 10
90 LC 15,10+I:?"*":NEXT
100 A=6:B=20:LC A,B:?"===":C=21:D=20:LC C,D:?"==="
110 LC 19,22:?"POINT 0":LC 4,22:?"POINT 0"
120 WAIT 60:LC P,Q:?CHR$(#E9):WAIT 100
130 IF RND(2)=0 THEN LRUN FILE()-1,170 ELSE LRUN FILE()-1,80
200 LC X-1,20:?" ":LC 15,20:?"*":IF X<15 GOTO 210 ELSE GOTO 220
210 F=F+1:LC 25,22:?F:WAIT 100:P=15:Q=10:LRUN FILE()-1,80
220 E=E+1:LC 10,22:?E:WAIT 100:P=15:Q=10:LRUN FILE()-1,170
