ZX81 Listing for rnr.p


ZX81 program listing for **RUNNER**SLR/1986*****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17396
VARS  : 18189
E-LINE: 18190
STKBOT: 18190
STKEND: 18190


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **RUNNER**SLR/1986*****
  20 PRINT AT 18,0;"            
                       RUNNER...
1986  STEVEN REID   "
  30 LET X=0
  40 LET A$=" ³"
  50 LET B$=" ·² ò²  õ ·÷"
  60 LET C$="  õ òõ ·¶  ÷"
  70 LET L=1
  80 LET S$="SIN PI"
  90 FOR A=0 TO 29
 100 PRINT AT 15,A+1;A$
 110 PRINT AT 16,A;B$(1 TO 3)
AND L=1;B$(4 TO 6) AND L=2;B$(7
TO 9) AND L=3;B$(10 TO 12) AND
L=4
 120 PRINT AT 17,A;C$(1 TO 3)
AND L=1;C$(4 TO 6) AND L=2;C$(7
TO 9) AND L=3;C$(10 TO 12) AND
L=4
 130 LET SD=VAL S$
 140 LET X=NOT X
 150 LET L=L+1
 160 IF L=5 THEN LET L=1
 170 NEXT A
 180 PRINT AT 15,30;"RU";AT 16,3
0;"NN";AT 17,30;"ER"
 190 PRINT AT 0,10;"ñù!ùò";AT 1,
0;"¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸"
 200 PRINT AT 17,0;"THE END..."
 210 FOR A=0 TO 10
 220 LET SD=VAL S$
 230 NEXT A
 240 CLS
 250 RUN
 260 SAVE "RNR"
 270 RUN