A new machine language version of a person running with a moving sky, coins and score.
PROG : 16509
D-FILE: 18232
VARS : 19025
E-LINE: 19026
STKBOT: 19031
STKEND: 19031
9999 means line number
PRINT means treat as KEYWORD P
1 REM /-**RUN 3 ML*SLR/2022**
52523 M£?M??WM:?M>?M<?YõM2INKEY$5
CONT ?ñRNDñQ 7"?L4SAVE LN Eúñòó
LN PRINT !Y NOT ñ ÷LN PRINT !ö4Y
óNOT (CLEAR 5??6£?öôVAL LN SAVE
RNDLN STEP INKEY$LN JINKEY$5M
LN LLIST PIAT (GOSUB ? AND RNDöô
:ñLN öINKEY$LN öINKEY$LN öINKEY$
TAN VAL LN PRINT !E£?öó£?AT ô
TAN ñ;õLN PRINT !5MINKEY$LN **PI
ñ/öLN PRINT !5OINKEY$?**PILCOPY
LLLCOPY U2INKEY$XRETURN ñC?
RETURN òCMRETURN óC4RETURN ôC:Yõ
5,ó6HINKEY$ñôò?(INKEY$ñôóLN (
INKEY$ñôô53INKEY$/IñôôLN (INKEY$
ñõô53INKEY$/4ñôôLN (INKEY$ñõó57
INKEY$/>ñôóLN (INKEY$ñöò57INKEY$
M2INKEY$5BINKEY$FAST LN PRINT !
LPRINT ?**PI +20COPY +20COPY
COPY ,óGOSUB ?HINKEY$$?RETURN
ó4ó?SINKEY$GOSUB ?HINKEY$LN
PRINT !5ABS INKEY$U:?B4ó5 OR
INKEY$?**PIO O O COPY I I I
COPY U??B4õLN ?PIY?XM??U:?INPUT
ñM:?B475CONT ?LN ?PI5S?LN ?PI5
CONT ?GOSUB ?£RND<ñ4 GOSUB K5S?<
ñ4 GOSUB KTAN 5¸?LN ?PI5**?LN ?
PI5¸?GOSUB ?£RND<ñ4 GOSUB K5**?<
ñ4 GOSUB KTAN ö4 GOSUB K>TAN U<?
X4?E(?ñú ù6(?U>?X4!50?6(?YôM>?E(
??7?7FOR 6=?FOR ?7?7FOR 6-?FOR ?
7?7FOR 6/?FOR ?7?7FOR 6,?FOR ?7?
5J??5COPY ??YòM<?E=?)(?ñC GOSUB
KE-?)??ñC GOSUB KE/?)K?ñC GOSUB
KE,?) ?ñC GOSUB KTAN /SAVE 6
STEP PILN VòGC)H??LN X÷BASN >=£
TAN E STEP PIF?P4 THEN TAN LN Vò
G4IF TAN ??(?S?
STEP ? !?K??? ? ·C?SQR ?SAVE ?
4?µµ????/?""?õõ·²ôñõ öòô·² òõñ·´
·² ÷ ÷ ·² òõñ·´ ñó ÷ññ ³
·÷ô ³ ·÷ô ·ô ·÷ô ·ñ·
¶ ³±²ñóóó ·±²ñ òóó·³ ö ó
óó òò´ óò ·ô ±¶ ·ô ±¶
³ ±¶ ö ôòô ·³ öòóóñ ³ ö
óóñ³±²ñ òóóñ ö³ òô ñ ö ·ö
¶ô·¶ ö¶ ·¶·¶ ··óô ·ó³·ô ö ó³
·± ³·öñ ò¶ô¶ö ¶ñ ¶ ¶·ñ¶ µ ·ñ ·
ñòô·¶ô ¶ ò ·ñ ³ó³ öô ·óô öôöô ô
ö¶ ö¶ô³ ñ ò¶ô³ ²ô³ó ó³ò³ñ ò
ö òôòôöòô õ ö ö ¶· ´ ÷ ÷·ò ó
´ ÷ ó÷ñ³ ÷´ ² ´ ÷ñ³÷´ ±
ñôµ³± ± ± ³± ³³ ±÷ ± ²
³ ´÷ ´ ñô´ ÷´ ÷ ´ ÷´ó·± ó
±÷ ó·±ó ² õò· ²³ ² ² ²³
²³± ² ´ ² ³±÷ òô ò ö
·±ó ³³ ·±ñ ·³ ó´³ô ·³
³ ²ô·³ òóñ ó´³ òó ·³±ó
¶ ñ ·ñ ³÷ñ·³ô ³÷
³ô òó²³ ³ô·± ³ ³ô óó
òó²ô óñ ³³÷ñ
2 RAND USR VAL "16514"