PROG : 16509
D-FILE: 17211
VARS : 18004
E-LINE: 18005
STKBOT: 18005
STKEND: 18005
9999 means line number
PRINT means treat as KEYWORD P
10 REM **MANDELBROT*SLR/2022**
20 GOSUB 500
30 FOR S=0 TO 750 STEP 50
40 LET SCALE=1/(S+20)
50 LET SHIFT=-S*1.75-15
60 FOR X=2*ZEROX-1 TO 0 STEP -
1
70 LET CR=(X-ZEROX+SHIFT)*SCAL
E
80 FOR Y=0 TO ZEROY
90 LET CI=(ZEROY-Y)*SCALE
100 LET ZR=0
110 LET ZI=0
120 FOR I=1 TO MAXIT
130 LET BR=CR+ZR*ZR-ZI*ZI
140 LET ZI=CI+2*ZR*ZI
150 LET ZR=BR
160 IF ZR*ZR+ZI*ZI>4 THEN GOTO
190
170 NEXT I
180 UNPLOT X,Y
190 UNPLOT X,2*ZEROY-Y
200 GOTO 230
210 PLOT X,Y
220 PLOT X,2*ZEROY-Y
230 NEXT Y
240 PAUSE 50
250 NEXT X
260 PAUSE 500
270 NEXT S
280 RUN
400 SAVE "MBS"
410 RUN
490 REM **INIT VARS**
500 CLS
510 PRINT "MANDELBROT SET"
520 PAUSE 300
530 FAST
540 LET ZEROX=32
550 LET ZEROY=21
560 LET MAXIT=10
570 RETURN