4 FORX=53248TO53263:POKEX,.:NEXT
5 IFA>0 THEN 14
10 GOSUB 500
14 FORN=896TO958:READA:POKEN,A:NEXT
16 DATA255,255,255,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1
18 DATA128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1
20 DATA128,0,1,128,0,1,128,0,1,128,0,1,255,255,255,255,255,255
22 HP=160:VP=100:POKE2040,14
24 POKE49500,18
26 POKE53272,21:POKE53265,27:POKE53270,200
28 REM MANDELBROT PROGRAM C-64
30 POKE53280,.:POKE53281,.
32 PRINT"[147]   [205]ANDELBROT [208]ROGRAM [195]-64 [205]AIN [205]ENU"
34 PRINT"      1[152])[154] [214]IEW DIRECTORY"
36 PRINT"      2[152])[154] [204]OAD [205]ANDELBROT PICTURE"
38 PRINT"      3[152])[154] [214]IEW [205]ANDELBROT PICTURE"
40 PRINT"      4[152])[154] [201]NPUT COORDINATES"
42 PRINT"      5[152])[154] [195]HANGE COLORS"
44 PRINT"      6[152])[154] [214]IEW & CREATE [205]ANDELBROT "
46 PRINT"      7[152])[154] [211]AVE [205]ANDELBROT PICTURE"
48 PRINT" [160]    8[152])[154] [209]UIT BACK TO [158][204][207][193][196][211][212][193][210]"
50 PRINT"[160] [155]         [205]ENU CHOICE 1 - 8"
51 GETA$:IFA$="" THEN 51
52 IFA$<"0"THEN51
54 IFA$>"8"THEN51
56 ON VAL(A$)GOTO 268,246,282, 60,152,170,226,167
58 PRINT"ERROR, PLEASE ENTER NUMBER BETWEEN 1-8":GOTO50
60 PRINT"[147]       [197]NTER NEW COORDINATES.."
61 PRINT" [154][197]NTER [216][204][152]:";:NU=1:GOSUB300:XL=VAL(A$):
62 PRINT" [154][197]NTER [216][210][152]:";:GOSUB300:XR=VAL(A$)
63 PRINT" [154][197]NTER [217][212][152]:";:GOSUB300:YT=VAL(A$):
64 PRINT" [154][197]NTER [217][194][152]:";:GOSUB300:YB=VAL(A$)
65 PRINT"[147]  [193]RE THESE THE COORDINATES YOU WANT"
66 PRINT"         [154][216][204][152] = ";XL:PRINT"         [154][216][210] [152]= ";XR
67 PRINT"[154]  [160]      [217][212] [152]= ";YT:PRINT"         [154][217][194] [152]= ";YB
68 PRINT"[152]         ( [217][152]/[206][152] OR [205][152] FOR MENU)":
69 GETA$:IFA$="" THEN 69
70 IFA$="Y"THEN 78
72 IFA$="N" THEN 60
74 IF A$="M" THEN26
76 GOTO69
78 PRINT"[147]"
80 PRINT"  [154]  [197]NTER [152](1[152])[154] TO PROCEED TO [196][210][193][215]
82 [153]"  CONT  VALNTER PRINT#(2PRINT#) CONTTO RETURN TO (null)VAL(null)(null)"
84 [153]"             PRINT#(VALNTER 1PRINT# OR 2PRINT#)"
85 [161]A$:[139]A$[178]""[167] 85
86 [139]A$[178]"1" [167]94
88 [139]A$[178]"2" [167] 26
89 [137] 85
92 [143] COORDINATES
94 DX[178](XR[171]XL):DY[178](YB[171]YT)
96 [151]53265,[194](53265)[176]32:[151]53270,[194](53270)[176]16
98 [151]53272,[194](53272)[176]8:[153]"CONTLOAD";:
100 [129]I[178]8192[164]16191:[151]I,0:[130]
102 [129]I[178]1024[164]2023:[151]I,16[170]2:[130]
104 [151]53280,0
106 [151]53281,3
108 BA[178]8192:SM[178]3:CT[178]48
110 [129]X0[178]XL[164]XR[169](DX)[173]159
112 [129]Y[178]YT[164]YB[169](DY)[173]199
114 A[178]X0[172]X0[171]Y[172]Y[170]X0:B[178]2[172]X0[172]Y[170]Y:C[178]0
116 R[178]A[172]A[171]B[172]B[170]X0:I[178]2[172]A[172]B[170]Y:C[178]C[170]1
118 A[178]R:B[178]I
120 [139]R[179][171]10[174]16[167]134
122 [139]R[179]SM[167][139]C[179]CT[167]116
124 X1[178][181]((X0[171]XL)[173]((DX)[173]159))
126 Y1[178][181]((Y[171]YT)[173]((DY)[173]199))
128 [139]C[179]4 [167][141]144:[137]134
130 [139]C[179]6 [167][141]146:[137]134
132 [139]C[179]48[167][141]148
134 [139]X1[178][177]158[167]150
136 [130] Y,X0
138 X[178]2[172]X1
140 RO[178][181](Y1[173]8):CH[178][181](X[173]8):LN[178]Y1[175]7:BI[178]7[171](X[175]7):BY[178]BA[170]RO[172]320[170]CH[172]8[170]LN
142 [151]BY,[194](BY)[176]2[174]BI:[142]
144 X[178]2[172]X1[171]1 :[141]140:[142]
146 [141]138:[142]
148 [141]138:X[178]X[171]1:[141]140:[142]
150 [137]26
152 [143] CHANGE COLORS
154 [151]53265,[194](53265)[176]32:[151]53270,[194](53270)[176]16
156 [151]53272,[194](53272)[176]8:[153]"CONTLOAD";:
158 [129]X[178]1[164]255
160 [129]I[178]1024[164]2023:[151]I,X:[130]I
162 [161]K$:[139]K$[178]""[167]162
164 [139]K$[178]"Q"[167][151]49500,X:[137]26
166 [130]X :[137]26
167 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER,ER$:[160]15
168 [139]ER[179][177]63 [167] [153]"LOAD":[128]
169 [147]"HELLO CONNECT",8,1
170 [151]650,128
172 VIC[178]53248:[151]VIC,HP :[151]VIC[170]1,VP :[151]VIC[170]39,13
174 [151]53265,[194](53265)[176]32:[151]53270,[194](53270)[176]16
176 [151]53272,[194](53272)[176]8:[153]"CONTLOAD";:
178 X[178][194](49500)
180 [129]I[178]1024[164]2023:[151]I,X:[130]
182 [151]VIC[170]21,1
184 [161] A$
186 [139]A$[178]""[167]184
188 [139]A$[178]"L"[167]HP[178]HP[171]1:[137]214
190 [139]A$[178]"R"[167]HP[178]HP[170]1:[137]214
192 [139]A$[178]"U"[167]VP[178]VP[171]1:[137]220
194 [139]A$[178]"D"[167]VP[178]VP[170]1:[137]220
196 [139]A$[178]"E"[167]200
198 [137]184
200 HP[178]HP[171]24:HP[178]HP[173]2:VP[178]VP[171]50
202 DX[178](XR[171]XL):DY[178](YB[171]YT)
204 XR[178](XL)[170]((HP[170]24)[172](DX[173]159)):XL[178](XL)[170]((HP)[172](DX[173]159))
206 YB[178](YT)[170]((VP[170]21)[172](DY[173]199)):YT[178](YT)[170]((VP)[172](DY[173]199))
208 [151]VIC[170]21,0:[151]VIC[170]39,0
210 [151]53272,21:[151]53265,27:[151]53270,200
212 [137]65
214 SF[178](HP[177]255)
216 [151]VIC,HP[170](SF[172]256)
218 [151]VIC[170]16,SF[172]([171]1)
220 [151]VIC[170]1,VP
222 [137]184
224 [151]VIC[170]1,VP
226 [143] SAVE COORDINATES & BINARY PIC
228 [153]"LOAD"
230 [153]"":[153]"  VALNTER FILENAME:";:NU[178]0:[141]300:F$[178]A$:[139]A$[178]""[167]30
232 [159]1,8,2,"@0:"[170]F$[170]".NUM,S,W"
234 [152]1, XL:[152]1, XR
236 [152]1, YT:[152]1, YB
238 [160]1
240 [158]57812F$[170]".PIC",8:[151]173,8192[173]256
241 [151]172,8192[171][194](173)[172]256:[151]780,172
242 [151]782,16191[173]256:[151]781,16191[171][194](782)[172]256:[158]65496
244 [137]28
246 [143] LOAD COORDINATES & BINARY PIC
248 [153]"LOAD":[153]""
250 [153]"  VALNTER FILENAME:";:NU[178]0:[141]300:F$[178]A$:[139]A$[178]""[167]30
252 [159]3,8,3,F$[170]".NUM,S,R"
254 [132]3,XL,XR,YT,YB
256 [160]3
258 [151]53265,[194](53265)[176]32:[151]53270,[194](53270)[176]16
260 [151]53272,[194](53272)[176]8
262 [129]I[178]1024[164]2023:[151]I,18:[130]
264 [147]F$[170]".PIC",8,1
266 [128]
268 [143] DIRECTORY
270 [153]"LOAD"
272 [158]57812"$",8:[151]43,1:[151]44,192:[151]768,174:[151]769,167:[158]47003,1
274 [151]782,192:[158]65493:[158]42291:[155]:[151]44,8:[151]768,139:[151]769,227
276 [153]:[153]:[153]"PRESS ANY KEY TO CONTINUE"
278 [161] K$:[139]K$[178]""[167]278
280 [137]28
282 [151]53265,[194](53265)[176]32:[151]53270,[194](53270)[176]16
284 [151]53272,[194](53272)[176]8:[153]"CONTLOAD";
286 X[178][194](49500)
288 [129]I[178]1024[164]2023:[151]I,X:[130]
290 [161] K$
292 [139]K$[178]""[167]290
294 [137]26
300 A$[178]"":[153]"TOCMD";:
310 [161]B$:[139]B$[178]""[167]310
311 [139]B$[178][199](20)[175][195](A$)[177]0 [167][153]B$" CMDTOCMD";:A$[178][200](A$,[195](A$)[171]1):[137]310
312 [139]B$[178][199](20)[167]310
313 [139][195](A$)[177]10 [167] 310
315 [139]B$[178][199](13) [167] [153]" ":[142]
316 [139]NU[178]1[167] [139]B$[179]"-"[176]B$[177]"9" [167] 310
317 [139]B$[179]" "[176]B$[177]"Z"[175]B$[179]"ATN"[176]B$[177]"(null)"[167]310
320 A$[178]A$[170]B$:[153]B$"TOCMD";:[137]310
500 [151]53272,21:[151]53265,27:[151]53270,200
501 [151]53265,[194](53265)[175]239
502 [151]53280, 6:[151]53281, 1:[153]"LOADRETURN";
505 [153]"LIST                                                                      ";
510 [153]"               CONT                             LIST           CONT      LOADSTAR";
515 [153]" PRESENTS      PRINT# LIST          CONT                             PRINT# LIST          CONT";
520 [153]"    WAIToUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpCONT    PRINT# LIST          CONT    WAITSGNMANDELBROT";
525 [153]"THEN CONT   PRINT# LIST          CONT    WAITlANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR CONT   PRINT# LIST          ";
530 [153]"CONT                          CONT   PRINT# LIST          CONT                          ";
535 [153]"   PRINT# LIST          CONT     WAITCLRoUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpCONT     PRINT# LIST          CONT     WAITCLRFN";
540 [153]"BYJOHNIOVINECLRTHEN CONT    PRINT# LIST          CONT     WAITCLRlANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR CONT";
545 [153]"    PRINT# LIST          CONT                         CONT    PRINT# LIST          CONT         ";
550 [153]"                    PRINT# LIST          CONT    WAIToUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRpCONT    PRINT# LIST  ";
555 [153]"        CONT    WAITFNCLRCOPYRIGHT1988THEN CONT   PRINT# LIST          CONTCLOSE   WAITlANDANDANDANDANDAND";
560 [153]"ANDANDANDANDANDANDANDANDANDANDANDANDANDSQR CONT   PRINT# LIST          CONT                          CONT   PRINT# LIST   ";
565 [153]"       CONT                             PRINT# LIST          CONT   PRESS (SPACE) WHEN";
570 [153]" READY  PRINT# LIST          CONT                             PRINT# LIST           PRINT#      ";
575 [153]"                       LIST                                                ";
580 [153]"                                    "
581 [151]53265,[194](53265)[176]16
585 [151]2023,160:[151]56295,15
590 [161]A$:[139]A$[179][177]" "[167] 590
599 [142]