110 ms%=milliseconds(0):sleepms%=milliseconds(0)

120 gl"fon","/fon.png":gl"ak","/ak.png"
130 if (milliseconds(0)-ms%)>150 then ms%=milliseconds(0):dg"fon",0,0

470 if inkey(0)=49 and (milliseconds(0)-sleepms%)>300 then sleepms%=milliseconds(0):dg"ak",26,41:pw "/1.mid"
480 if inkey(0)=50 and (milliseconds(0)-sleepms%)>300 then sleepms%=milliseconds(0):dg"ak",74,41:pw "/2.mid"
481 if inkey(0)=51 and (milliseconds(0)-sleepms%)>300 then sleepms%=milliseconds(0):dg"ak",122,41:pw "/3.mid"
482 if inkey(0)=52 and (milliseconds(0)-sleepms%)>300 then sleepms%=milliseconds(0):dg"ak",26,87:pw "/4.wav"
483 if inkey(0)=53 and (milliseconds(0)-sleepms%)>200 then sleepms%=milliseconds(0):dg"ak",74,87:pw "/5.wav"
490 if inkey(0)=54 and (milliseconds(0)-sleepms%)>210 then sleepms%=milliseconds(0):dg"ak",122,87:pw "/6.wav"
491 if inkey(0)=55 and (milliseconds(0)-sleepms%)>190 then sleepms%=milliseconds(0):dg"ak",26,133:pw "/7.wav"
492 if inkey(0)=56 and (milliseconds(0)-sleepms%)>190 then sleepms%=milliseconds(0):dg"ak",74,133:pw "/8.wav"
493 if inkey(0)=57 and (milliseconds(0)-sleepms%)>190 then sleepms%=milliseconds(0):dg"ak",122,133:pw "/9.wav"
494 if inkey(0)=42 and (milliseconds(0)-sleepms%)>120 then sleepms%=milliseconds(0):dg"ak",26,179:pw "/10.wav"
495 if inkey(0)=48 and (milliseconds(0)-sleepms%)>150 then sleepms%=milliseconds(0):dg"ak",74,179:pw "/11.wav"
496 if inkey(0)=35 and (milliseconds(0)-sleepms%)>120 then sleepms%=milliseconds(0):dg"ak",122,179:pw "/12.wav"

600 if inkey(0)=-11 then end
620 goto 130