1 '*Long Jump* CC BY Copyright (c) 2017 Shiro SAITO 10 CLS:CLV:LC 0,23:FOR X=0 TO 30:?CHR$(1);:NEXT 20 X=0:Y=22:LC X,Y:?CHR$(251):CLT 30 IF !SCR(0,23) BEEP 30,60:END 40 K=INKEY():IF K=29 LC 0,Y:?CHR$(0,251):SCROLL 3:V=V+10/TICK():CLT 50 IF K<>32 GOTO 30 60 BEEP:E=-6 70 LC X/20,Y:?" ":X=X+V:Y=Y+E:E=E+1 80 LC X/20,Y:?CHR$(251):WAIT 5 90 IF Y<22 GOTO 70 100 LC 0,0:?X/20;"m"