ZX81 Listing for runml.p

**RUN ML***SLR/2022** (runml.p)

A machine language version of a person running with a moving sky.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16869
VARS  : 17662
E-LINE: 17663
STKBOT: 17668
STKEND: 17668

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

   1 REM /-**RUN ML***SLR/2022**
52523 EúñòóLN PRINT !Y NOT ñ ÷LN
PRINT !ö4YóNOT (CLEAR 5?INKEY$6?
INKEY$öôVAL LN SGN RNDLN NEXT
RND5? LN PINKEY$AT (LIST ?QRNDöô
:ñLN TO RNDLN TO RNDLN TO RND
TAN VAL LN PRINT !E?INKEY$öó?
INKEY$AT ôTAN 5µINKEY$LN 4INKEY$
5HINKEY$LN 4INKEY$ñ  LN PRINT !5
µINKEY$LN /INKEY$ñ ñLN PRINT !5H
INKEY$LN /INKEY$TAN ö4 GOSUB K>
TAN /SAVE   6NINKEY$LN VòGC)H??
LN X÷BASN >=£TAN ENINKEY$F?P4
THEN TAN LN VòG4IF TAN   ·²ôñõ 
öòô·² òõñ·´ ·²  ÷  ÷ ·² òõñ·´   
        ³  ·÷ô     òôò ·ñ       
   ·÷ô        ³±²ñóóó      ôù!!ù
·         óóó 
   2 RAND USR VAL "16514"