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