• Ichigojam

10 CLS:CLV:CLP:S=3:LET[1],4,16,4,8,0,8,8:POKE#720,~0:COPY#721,#720,31
20 FORK=0TO3:FORI=0TO7:FORJ=0TO7:LC[K*2]+J,[K*2+1]+I:?CHR$(1+(227+K)*!(PEEK(#700+K*8+I)>>(7-J)&1)):NEXT:NEXT:NEXT
30 FORI=0TOS-1:[I+8]=RND(4):LCI,17:?(I+1)%10:NEXT
40 @S:T=0:[S+8]=RND(4):FORI=0TOS:LCI,17:?(I+1)%10:NEXT
50 FORI=0TOS:POKE#720+[I+8]*8,0,0,0,0,0,0,0,0:WAIT20:FORJ=0TO7:POKE#720+[I+8]*8+J,~0:WAIT5:NEXT:NEXT:CLK
60 @A:K=INKEY():LCT,17:?" ":LCT,17:?(T+1)%10:IF(K<28)||(K>31)CONT
70 LCT,18:?CHR$(196+K):IFT!=ST=T+1:GOTO@A
80 FORI=0TOS:LCI,19:C=0:IF[I+8]+224=SCR(I,18)?CHR$(232)ELSE?CHR$(244):C=1
90 NEXT:WAIT60:IFCGOTO@E
100 FORI=0TOS:LCI,18:?" ":LCI,19:?" ":NEXT
110 S=S+1:GOTO@S
120 @E:LC0,20:?"GAME OVER

Pagetop