10 PRINT"[147]         MANDELZOOM64"
20 REM COPYRIGHT D.G.WILKINSON FEB 1988
30 DN=8:REM DEVICE NO. 8=DISK, 1=TAPE
40 IFPEEK(16384)=76ANDPEEK(16385)=33ANDPEEK(16386)=64GOTO65
50 PRINT"     LOADING MACHINE CODE"
60 LOAD"MANDEL",DN,1
65 :
70 IFPEEK(52654)=27ANDPEEK(52655)=51ANDPEEK(52656)=23GOTO100
80 PRINT"     LOADING MULTIDUMP CODE"
90 LOAD"MULTIDUMP",DN,1
100 GOSUB 880:REM MENU
110 GETZ$:IFZ$=""GOTO110
120 Z=VAL(Z$)
130 IFZ<1ORZ>7GOTO110
140 IFZ=7GOTO990
150 IFZ=6GOTO470
160 ONZGOSUB190,810,520,670,720
170 GOTO100
180 :
190 PRINT"[147]           MANDELZOOM64"
200 PRINT"  RANGE OF ACORNER = -1.7 TO +0.5
210 [153]"  RANGE OF BCORNER = -1.0 TO +1.0"
220 [133]"    GIVE ACORNER (X)=";AC
230 [133]"    GIVE BCORNER (Y)=";BC
240 [133]" GIVE LENGTH OF SIDE=";S1
250 [153]"        SELECT SIZE OF PATTERN"
260 [153]"         1 = 200 X 200 PIXELS"
270 [153]"         2 =  50 X  50 PIXELS"
280 [153]"          PATTERN SIZE =?";
290 [161] Z$:[139]Z$[178]""[137]290
300 Z[178][197](Z$)
310 [139] Z[179]1 [176] Z[177]2 [167][153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD                  ONON":[137]280
320 [153]"Z"
330 [139] Z[178]1 [167] XS[178]0:YS[178]0:XL[178]200:YL[178]200
340 [139] Z[178]2 [167] XS[178]75:YS[178]75:XL[178]50:YL[178]50
350 [151]16413,XS
360 [151]16414,YS
370 [151]16415,XL
380 [151]16416,YL
390 [158]16393:[143] INITIALISE HIRES
400 [158]16387:[143] CLEAR SCREEN
410 DT[178]S1[173]YL
420 [158]16384,AC,BC,S1,DT
430 [161]Z$:[139]Z$[178]""[137]430
440 [158]16396:[143] RESET TO BASIC
450 [142]
460 :
470 [153]"LOAD           MANDELZOOM64"
480 [153]"   INPUT A SAVED PATTERN"
490 [133]"    GIVE FILENAME";A$
500 [147] A$,DN,1
510 :
520 [153]"LOAD           MANDELZOOM64"
530 [153]"     SET COLOURS FOR PLOTTING"
540 [153]"       USE NUMBER KEYS 1-8.
550 PRINT"     COLOURS ARE SHOWN ON KEYS.
560 [153]"     FOR EXTENDED COLOUR RANGE,"
570 [153]"         USE NUMBERS 9-16."
580 [153]"    (DO NOT USE CTRL OR CBM KEYS)"
590 [133]"     FOREGROUND COLOUR NO.";C1
600 [139] C1[179]1 [176] C1[177]16 [137]590
610 [133]"   CLOSE BACKGROUND COLOUR NO.";C2
620 [139] C2[179]1 [176] C2[177]16 [137]610
630 C1[178]C1[171]1:C2[178]C2[171]1:C3[178]C1[172]16[170]C2
640 [151]16411,C3
650 [142]
660 :
670 [153]"LOAD           MANDELZOOM64"
680 [153]"  SAVE PATTERN ON DISK FILE"
690 [133]" GIVE FILENAME";A$
700 [158]16408 A$,DN,2,8192,16192
710 [142]
720 :
730 [153]"LOAD           MANDELZOOM64"
740 [158]52662
750 [153]"       MULTIDUMP ACTIVATED"
760 [153]"       USE F1 FOR SMALL DUMP"
770 [153]"       USE F3 FOR LARGE DUMP"
780 [153]"  HIT ANY KEY TO RETURN TO MAIN MENU"
790 [161]Z$:[139]Z$[178]""[137]790
800 [142]
810 :
820 [158]16393:[143] BACK TO HIRES
830 [158]16390:[143] SET COLOURS
840 [161] A$:[139]A$[178]""[137]840
850 [158]16396:[143] BACK TO BASIC
860 [142]
870 :
880 [153]"LOADSTOP":[151]53280,3:[151]53281,7
890 [153]"     MANDELZOOM64 - CHOOSE OPTION"
900 [153]"      1   PLOT A NEW PATTERN"
910 [153]"      2   SWITCH TO HI-RESOLUTION"
920 [153]"          (HIT ANY KEY TO RETURN)"
930 [153]"      3   CHANGE COLOURS"
940 [153]"      4   SAVE EXISTING PATTERN"
950 [153]"      5   PRINT PATTERN"
960 [153]"      6   INPUT A SAVED PATTERN"
970 [153]"      7   EXIT"
980 [142]
990 [128]