CLS
NEW
' ------- 13 Otoate Game for IchigoJam
10 CLS:S=0:T=1:PRINT "Sound Start"
20 GOSUB 200+RND(7)*10
30 K=INKEY():K=K&`01001111
40 IF K<ASC("A") OR K>ASC("G") THEN GOTO 30
50 IF K=C THEN BEEP 2:S=S+1:PRINT "O":ELSE PLAY "O1C8R8C8R8C8":PRINT "X"
60 T=T+1
70 IF T<11 THEN GOTO 20
80 PRINT "GAME END.SCORE ";S
90 END
200 PLAY "O4C2":C=ASC("C"):RETURN
210 PLAY "O4D2":C=ASC("D"):RETURN
220 PLAY "O4E2":C=ASC("E"):RETURN
230 PLAY "O4F2":C=ASC("F"):RETURN
240 PLAY "O4G2":C=ASC("G"):RETURN
250 PLAY "O4A2":C=ASC("A"):RETURN
260 PLAY "O4B2":C=ASC("B"):RETURN