ZX81 Listing for fizzbuzz.p

**FIZZBUZZ***SLR/2022** (fizzbuzz.p)

My take on FizzBuzz for the ZX81 with some added flair.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16845
VARS  : 17638
E-LINE: 17639
STKBOT: 17639
STKEND: 17639

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  10 REM **FIZZBUZZ***SLR/2022**
  20 FOR I=1 TO 100
  30 SCROLL
  40 LET FIZZ=NOT I-3*INT (I/3)
  50 LET BUZZ=NOT I-5*INT (I/5)
  60 IF FIZZ THEN PRINT "FIZZ";
  70 IF BUZZ THEN PRINT "BUZZ";
  80 IF NOT (FIZZ OR BUZZ) THEN
PRINT I;
  90 NEXT I
 100 LET T$="PI*PI+1"
 110 LET Z$="NOT PI"
 120 FOR P=1 TO 50
 130 PRINT AT VAL T$,VAL Z$;"FIZ
ZBUZZ"
 140 PRINT AT VAL T$,VAL Z$;"FIZ
ZBUZZ"
 150 NEXT P
 160 CLS
 170 RUN
 200 SAVE "FIZZBUZZ"
 210 RUN