1 VIDEO3:CLS:POKE#700,102,68,221,255,255,126,255,231:POKE#708,102,221,221,255,126,126,102,102 5 ?"カエル" 10 A=RND(8):IF[A]=0LET[A+8],-3:LET[A],-RND(3) 30 FORB=0TO7:LCB*2,10:?CHR$(0):LCB*2,[B]+10:?CHR$(0):LET[B],[B]+[B+8]:IF[B]>0LET[B],0:LET[B+8],0ELSELET[B+8],[B+8]+1 40 LCB*2,[B]+10:IF[B]=0?CHR$(224)ELSE?CHR$(225) 50 NEXT:GOTO10