10 ! TMANDBRO.BAC
20 ! Det h{r {r ett program f|r att skapa Mandelbrots bilder med.
30 ! Man anger fyra kordinater i b|rjan av programet Xmin,Xmax,Ymin,Ymax
40 ! som {r kordinater till de f|nster som du vill se p} sk{rmen.
50 ! Sj{lva Mandelbrot bilden {r o{ndligt stor eller liten.
60 ! S} man kan allts} zooma bilde hur mycket som h{lst.
70 ! ex. Du tar kordinaterna Xmax 1, Xmin -1, Ymax 1, Ymin -1.
80 ! Om du nu vill zooma nedre v{nstra h|rnet 2 g}nger s} skriver du
90 ! Xmax 0, Xmin -1, Ymax 0, Ymin -1
100 ! --------------------------------------------------------
110 ! Programet av Magnus <8042> 1992
120 ! F|r ABC806 med f{rgsk{rm.
130 ! --------------------------------------------
140 ! H{r kommer n}gra v{rden man kan prova.
150 ! Xmax          Xmin          Ymax              Ymin
160 ! -2             -2             0                 -1
170 ! .567354       -.653635      -.874534          -.677438
180 ! .474755       -.754754      .654367           -.757346
190 ! -.67           .54          -.86               .36
200 ! ---------------------------------------------------
210 ! Max N {r hur nogrant datorn ska rita bilden anv{nd minst 16 
220 ! gj{rna 100 med desstu h|gre v{rde desstu l{nger tid tar det.
230 ! S{tt gj{rna p} datorn p} kv{len s} det f{rdigt n{sta dag.
240 ! 
250 FLOAT : EXTEND : ATTRIBUTE 1% ! Fraktal program av magnus 1992
260 DEF FNCol%(A%,B%) LOCAL X1,Y1,X2,Y2
270   X1=Xmin+A%*Xd : Y1=Ymin+B%*Yd
280   FOR N%=1% TO Mn%
290     X2=X1*X1-Y1*Y1+X : Y2=2*X1*Y1+Y
300     X1=X2 : Y1=Y2
310     IF X2*X2+Y2*Y2>=4 THEN 330
320   NEXT N% 
330   FGPOINT A%,B%,MOD(N%,16%)
340   RETURN 0%
350 FNEND 
360 ; CHR$(12%)
370 ; GRN EL TAB(10%);"Mandelbrot-program av" : ; ""
380 ; GRN EL TAB(7%);"Magnus Nilsson <8042> 1992"+CHR$(13%,10%)
390 INPUT "Xmin: ";Xmin
400 INPUT "Xmax: ";Xmax
410 INPUT "Ymin: ";Ymin
420 INPUT "Ymax: ";Ymax
430 INPUT "Sidbredd i pixels: ";Sb% : IF Sb%>255% THEN ; CHR$(7%) : GOTO 430
440 INPUT "Sidh|jd: ";Sh% : IF Sh%>239% THEN ; CHR$(7%) : GOTO 440
450 INPUT "Max n ";Mn%
460 FGCTL BLK+RED+GRN+BLU+YEL+MAG+CYA+WHT+RED+GRN+BLU+YEL+MAG+CYA+WHT+RED
470 FGPOINT 0%,0%,0% : FGFILL 255%,239%
480 X=Xmin : Y=Ymin : Xd=(Xmax-Xmin)/Sb% : Yd=(Ymax-Ymin)/Sh%
490 ; CHR$(12)
500 FOR Xx%=0% TO Sb% : FOR Yy%=0% TO Sh%
510     Z%=FNCol%(Xx%,Yy%)
520 NEXT Yy% : NEXT Xx% 
530 END