A new machine language version of a person running with a moving sky and score.
PROG : 16509
D-FILE: 18196
VARS : 18989
E-LINE: 18990
STKBOT: 18995
STKEND: 18995
9999 means line number
PRINT means treat as KEYWORD P
1 REM /-**RUN ML***SLR/2022**
52523 MCONT PIMFOR PIWMREM PIM
INPUT PIMLOAD PI5CODE ?ñRNDñQ 7"
?L4SAVE LN EúñòóLN PRINT !Y NOT
ñ ÷LN PRINT !ö4YóNOT (CLEAR 54?6
CONT PIöôVAL LN NEXT RNDLN W
INKEY$LN NINKEY$5M LN YPIAT (
GOSUB ?STR$ RNDöô:ñLN ñINKEY$LN
ñINKEY$LN ñINKEY$TAN VAL LN
PRINT !ECONT PIöóCONT PIAT ôTAN
ñ;õLN PRINT !5HINKEY$LN OPIñ/ö
LN PRINT !5JINKEY$?OPILCOPY LLL
COPY YóñôòPRINT VAL LN PRINT !5+
INKEY$LN OPIAT ôLET X4LOAD U£
INKEY$XRETURN ñCERETURN òC2
RETURN óC>RETURN ôCöYõM£INKEY$
TAN ñôô5$INKEY$/-ñõô5$INKEY$/:ñõ
ó5)INKEY$/öñöò5)INKEY$M£INKEY$
FAST LN PRINT !LPRINT ?OPI +20
COPY +20COPY COPY ñ(ôLN
PRINT !5KINKEY$UREM PIB4ó5Q
INKEY$?OPIO O OCOPY I I ICOPY U
FOR PIB4õLN JPIY?XMFOR PIUREM PI
INPUT ñMREM PIB475CODE ?LN 8PI5=
?LN 8PI5CODE ?GOSUB ?£RND<ñ4
GOSUB K5=?<ñ4 GOSUB KTAN 5??LN 8
PI5O?LN 8PI5??GOSUB ?£RND<ñ4
GOSUB K5O?<ñ4 GOSUB KTAN ö4
GOSUB K>TAN ULOAD PIX4?EGOTO PIñ
ú ù6GOTO PIUINPUT PIX4!5SAVE PI6
GOTO PIYôMINPUT PIEGOTO PI?7?7
FOR 6LIST PIFOR ?7?7FOR 6PAUSE
PIFOR ?7?7FOR 6POKE PIFOR ?7?7
FOR 6PLOT PIFOR ?7?5"??5<=??YòM
LOAD PIELIST PI)GOTO ?ñC GOSUB K
EPAUSE PI)W?ñC GOSUB KEPOKE PI)£
?ñC GOSUB KEPLOT PI)>=?ñC GOSUB
KTAN /SAVE 6WPILN VòGC)H??LN X
÷BASN >=£TAN EWPIF?P4 THEN TAN
LN VòG4IF TAN ??
??=?W? SLOW ?£?O??? ·´?G?USR ?
UNPLOT ?µµ8?????0?õõ·²ôñõ öòô·²
òõñ·´ ·² ÷ ÷ ·² òõñ·´ ñó ÷ññ
³ ·÷ô ³ ·÷ô ·ô ·÷ô
·ñ· ¶ ³±²ñóóó ·±²ñ òóó·³ ö
óóó òò´ óò ·ô ±¶ ·ô
±¶ ³ ±¶ ö ôòô ·³ öòóó
ñ ³ ö óóñ³±²ñ òóóñ ö³ òô ñ
ö ·ö¶ô·¶ ö¶ ·¶·¶ ··óô ·ó³·ô
ö ó³·± ³·öñ ò¶ô¶ö ¶ñ ¶ ¶·ñ¶ µ
·ñ ·ñòô·¶ô ¶ ò ·ñ ³ó³ öô ·óô öô
öô ôö¶ ö¶ô³ ñ ò¶ô³ ²ô³ó ó³
ò³ñ òö òôòôöòô õ ö ö ¶· ´ ÷ ÷·ò
ó ´ ÷ ó÷ñ³ ÷´ ² ´ ÷ñ³÷´
± ñôµ³± ± ± ³± ³³ ±÷
± ²³ ´÷ ´ ñô´ ÷´ ÷ ´ ÷´ó·±
ó ±÷ ó·±ó ² õò· ²³ ²
² ²³ ²³± ² ´ ² ³±÷ òô ò
ö ·±ó ³³ ·±ñ ·³ ó´³ô
·³ ³ ²ô·³ òóñ ó´³ òó
·³±ó ¶ ñ ·ñ ³÷ñ·³ô
³÷ ³ô òó²³ ³ô·± ³ ³ô
óó òó²ô óñ ³³÷ñ
2 RAND USR VAL "16514"