• IchigoJam

10 'ﾓｸﾞﾗﾀﾀｷ
20 VIDEO5:CLS
30 POKE#700,#3C,#7E,#DB,#DB,#FF,#E7,#E7,#FF
40 POKE#708,#0,#3C,#7E,#DB,#E7,#DB,#E7,#E7
50 POKE#710,#0,#0,#0,#3C,#42,#C3,#42,#3C
60 POKE#718,#8,#10,#89,#D3,#6E,#34,#7E,#FF
70 POKE#720,#0,#3C,#5A,#5A,#66,#66,#7E,#0
80 FORI=0TO8:LCI%3*2,I/3*2:?"~E3";:NEXT
90 FORI=0TO4:LC6,I:?"~E4";:NEXT
100 E=0:B=0:PLAY"ARARAR<A2"
110 @P:IFSOUND()=1GOTO@P
120 @V:IFRND(15)>0BEEP200:WAIT5:GOTO@V
130 M=RND(9):LCM%3*2,M/3*2:IFSCR()=ASC("~E3")E=E+1
140 ?"~E0";:BEEP10,2:WAIT3:BEEP5,2:T=RND(30)+10:CLT:IFE>=9GOTO@ED
150 @M:IFTICK()>TLCM%3*2,M/3*2:?"~E2";:T=0:GOTO@V
160 @K:K=INKEY():L=-1
170 IFK=55L=0
180 IFK=56L=1
190 IFK=57L=2
200 IFK=85L=3
210 IFK=58L=3
220 IFK=73L=4
230 IFK=59L=4
240 IFK=79L=5
250 IFK=74L=6
260 IFK=60L=6
270 IFK=75L=7
280 IFK=61L=7
290 IFK=76L=8
300 IFK=62L=8
310 IF(L>=0)AND(SCR(L%3*2,L/3*2)=ASC("~E0"))GOTO@H:ELSEBEEP200:WAIT5:GOTO@M
320 @H:LCL%3*2,L/3*2:?"~E1";:FORI=0TO10:BEEPI:WAIT2:NEXT:B=B+1:LC6,B-1:?" ";:IFB<5LCL%3*2,L/3*2:?"~E2";:GOTO@V
330 @ED:K=INKEY():IFK<>10GOTO@ED:ELSECLS:VIDEO1:END

Pagetop