JUMP.DO

1 CLS:B=1:P=147:R$=CHR$(229):PRINT@15,"LONG JUMP"SPACE$(26)"[F][J]Run [SPC]Jump
2 X$=STRING$(40,R$):PRINT@80,X$:PRINT@240,X$;:PRINT@221,STRING$(18,CHR$(231));
3 P=P+B:PRINT@160+INT(A/3)," "CHR$(P):A=A+1:B=B*-1
4 R$=INKEY$:IFR$="f"ORR$="j"THENGOTO5ELSEIFR$=" "ANDC>99THENGOTO7ELSEC=C+R:GOTO4
5 R=1:IFA>59THENGOTO6ELSEGOTO3
6 BEEP:PRINT@50,"FOUL! Over the line!";:FORA=1TO500:NEXT:R$=INPUT$(2):GOTO10 
7 S=50*A/C:PRINT@281,USING"Speed:##.#";S;:PRINT@160+INT(A/3),"   "
8 FORI=1TO5*S:J=INT(A/3+I/5):PRINT@120+J," "CHR$(P):NEXT:PRINT@121+J," "
9 PRINT@162+J,CHR$(P):PRINT@304,USING"Distance:##.#";1.5*S+A-59;
10 PRINT@134,"Play again?";:Y$=INPUT$(1):IFY$="y"THENC=0:R=0:A=0:CLS:GOTO1