ZX81 Listing for runtest.p


ZX81 program listing for **RUN TEST***SLR/2022**

**RUN TEST***SLR/2022** (runtest.p)

A ZX81 BASIC version of person running with moving sky.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17194
VARS  : 17987
E-LINE: 17988
STKBOT: 17988
STKEND: 17988


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **RUN TEST***SLR/2022**
  20 DIM A$(4,9)
  30 LET A$(1)="·²ôñõ öòô"
  40 LET A$(2)="·² òõñ·´ "
  50 LET A$(3)="·²  ÷  ÷ "
  60 LET A$(4)="·² òõñ·´ "
  70 LET B$="          ³  ·÷ô   
  òôò ö                      ³±²
ñóóó      ôù!!ù·             "
  80 PRINT AT 3,2;" ";AT 7,0;"óó
óóóóóóóóóóóóóóóóóóóóóóóóóóóóóó"
  90 FOR R=1 TO 4
 100 PRINT AT 0,0;B$( TO 32);AT
1,0;B$(41 TO 72);AT 4,1;A$(R,
TO 3);AT 5,1;A$(R,4 TO 6);AT 6,
1;A$(R,7 TO )
 110 LET B$( TO 40)=B$(2 TO 40)+
B$(1)
 120 LET B$(41 TO )=B$(42 TO 80)
+B$(41)
 130 NEXT R
 140 GOTO 90
 200 SAVE "RUNTEST"
 210 RUN