ZX81 Listing for here.p

****HERE***SLR/2023**** (here.p)

A modified take on the old "I WAS HERE" concept from the eighties.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16699
VARS  : 17492
E-LINE: 17493
STKBOT: 17493
STKEND: 17493

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  10 REM ****HERE***SLR/2023****
  20 FOR A=1 TO 100000 STEP .2
  30 SCROLL
  40 LET S=11+11*SIN A
  50 PRINT TAB S;("I WAS" AND
INT S<>11);("YOU WERE" AND INT S
=11);" HERE";
  60 NEXT A
  70 RUN
 100 SAVE "HERE"
 110 RUN