10 REM Loader by C.J.Richardson for 8BS 20 DEFFNS="MandRun" 30 MODE7 40 VDU23;8202;0;0;0; 50 PRINT''TAB(4)"Mandelbrot. TBI-54 Demo" 60 PRINTTAB(4)"ƒMandelbrot. TBI-54 Demo" 70 PRINT''''"ƒYou are in for a real treat if you" 80 PRINT"ƒorder TBI-54. Mandelbrots in seconds!" 90 PRINT''"…Here is a demo of three " 100 PRINT"…screens produced and saved in" 110 PRINT"…just11…minutes. The flashing box" 120 PRINT"…shows you where the zoom function" 130 PRINT"…is going next." 140 PRINT''"†PLEASE PRESS A KEY" 150 *FX 21 160 REPEATUNTILGET 170 MODE2 180 VDU23;8202;0;0;0; 190 *LDPIC Mand1 3000 200 PROCbox(200,550,150) 210 *LDPIC Mand2 3000 220 PROCbox(600,200,400) 230 *LDPIC Mand3 3000 240 *FX21 250 REPEATUNTILGET 260 *EX. !BOOT 270 END 280 DEFPROCbox(A%,B%,C%) 290 FORL%=1TO7 300 GCOL 0,L% 310 MOVE A%,B% 320 DRAW A%+C%,B% 330 PROCdelay 340 DRAW A%+C%,B%+C% 350 PROCdelay 360 DRAW A%,B%+C% 370 PROCdelay 380 DRAW A%,B% 390 PROCdelay 400 NEXT 410 ENDPROC 420 DEFPROCdelay 430 FORD%=1TO1000 440 NEXT 450 ENDPROC