PROG : 16509
D-FILE: 16845
VARS : 17638
E-LINE: 17639
STKBOT: 17639
STKEND: 17639
9999 means line number
PRINT means treat as KEYWORD P
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