4 DV=PEEK(186)
5 IFA=10THENA=11:LOAD"RECONNECT.O",DV,1
6 IFA=11THENSYS828:END
10 IFA=0THENA=1:POKE56,19:LOAD"MML",DV,1
12 POKE4876,DV:POKE4905,DV:POKE840,DV
20 READD,XC,YC:DATA53248,166,138:POKE820,3:POKE821,91:POKE822,49:POKE823,93:POKED+39,1:POKED+40,1:GOTO510
40 GOSUB420:POKED+21,0:SYS4864:CX=XC:CY=YC:C0=C0AND15:IFN>NLTHENNL=N
60 POKED+17,27:POKED+21,0:POKED+22,8:POKED+24,20:POKED+32,11:POKED+33,11:POKE53281,0:POKE53280,0
70 PRINT"[147][159][205]AGNIFICATION [158]="M:PRINT"[159][195]ENTER [158]="X","Y:PRINT"[159][195]URSOR [158]="(CX-XC)/2*H+X","(CY-YC)/2*V+Y:PRINT"[159][201]TERATION LIMIT [158]="N:PRINT"[158]([199][158])[159]: [212]OGGLE [199]RAPHICS":PRINT"[158]([204][158])[159]: [195]HANGE ITERATION LIMIT":PRINT"[158]([205][158])[159]: [205]AGNIFY AT CURSOR":PRINT"[158]([195][158])[159]: [195]HANGE DISPLAY COLORS
115 [153]"SYS(RIGHT$SYS)OPEN: RIGHT$NTERPOLATE FOR MAX RESOLUTION":[153]"SYS((null)SYS)OPEN: LENHANGE COLOR REPEAT COUNT":[153]"SYS((null)SYS)OPEN: (null)AVE SCREEN":[153]"SYS(STR$SYS)OPEN: (null)OAD SCREEN":[153]"SYS((null)SYS)OPEN: (null)UIT TO (null)(null)ATNSTR$(null)(null)ATN(null)":[153]"    SYSASC(null)(null)(null)CLOSECHR$(null)ATN(null)LEFT$RIGHT$LEN(null) STR$RIGHT$(null)(null)(null)ATN(null):
150 PRINT"[158]([200][158])[159]: [200]ELP [211]CREEN":PRINT"[158]([216][158])[159]: [195]URSOR ON/OFF ([195][210][211][210] KEYS MOVE)":PRINT"[158]([195][158])[159]: [195]HANGE CURSOR COLOR":PRINT"[158]([205][158])[159]: [205]AGNIFY X10 AT CURSOR
170 [161]A$:[139]A$[178]""[167]170
180 [139]A$[178]"G"[167][151]D[170]39,1:[151]D[170]40,1:[158]4867:[137]300
190 [139]A$[178]"L"[167][133]"LOADVALNTER NEW LIMIT";B:[139]B[177]1[175]B[179]256[167]N[178]B:[137]40
200 [139]A$[178]"I"[167]C0[178]C0[170]128:[137]40
210 [139]A$[178]"C"[167][153]"LOADLENURRENT COLORS ARE"C0","C1","C2","C3:[137]280
211 [139]A$[178]"Q"[167]A[178]10:[137]5
220 [139]A$[178]"R"[167][153]"LOADLENURRENT REPEAT="R:[133]"(null)EW VALUE";R:[139]R[177]0[175]R[179]255[167]40
230 [139]A$[178]"S"[167][153]"LOAD(null)ATN(null)VAL";:[137]500
240 [139]A$[178]"D"[167][153]"LOAD(null)(null)ATNSTR$";:[141]480:[137]510
250 [139]A$[179][177]"M"[167]70
260 ML[178]M:[133]"VALNTER NEW MAGNIFICATION";M:[139]M[179]1[176]M[177]ML[172]25[167]M[178]10[172]ML
270 M[178][171](M[179]1E6)[172]M[171](M[177][178]1E6)[172]1E6:X[178]X[170](CX[171]XC)[173]2[172]H:Y[178]Y[170](CY[171]YC)[173]2[172]V:NL[178]0:[137]40
280 [133]"VALNTER NEW COLORS";C0,C1,C2,C3:C0[178]C0[175]15:C1[178]C1[175]15:C2[178]C2[175]15:C3[178]C3[175]15:[141]420:[158]4867
300 [151]D[170]2,CX[170]256[172](CX[177]255):[151]D,CX[171]6[170]256[172](CX[177]261):[151]D[170]16,[171]2[172](CX[177]255)[171](CX[177]261):[151]D[170]1,CY[171]3:[151]D[170]3,CY
320 [161]A$:[139]A$[178]""[167]320
330 [139]A$[178]"CMD"[175]CX[177]22[167]CX[178]CX[171]2:[137]300
340 [139]A$[178]""[175]CX[179]310[167]CX[178]CX[170]2:[137]300
350 [139]A$[178]"ON"[175]CY[177]48[167]CY[178]CY[171]2:[137]300
360 [139]A$[178]""[175]CY[179]228[167]CY[178]CY[170]2:[137]300
370 [139]A$[178]"T"[176]A$[178]" "[176]A$[178]"H"[176]A$[178]"G"[167]60
380 [139]A$[178]"X"[167]I[178][194](D[170]21):I[178]I[170]1:I[178]I[170]3[172](I[177]2):[151]D[170]21,I
390 [139]A$[178]"C"[167]I[178][194](D[170]39):I[178](I[170]1)[175]15:[151]D[170]39,I:[151]D[170]40,I
400 [139]A$[179][177]"M"[167]320
410 I[178][194](D[170]21):[139]I[179][177]0[167]I[178][171]10[172](I[178]2)[171]20[173]3[172](I[178]1):M[178]I[172]M:[137]270
415 [137]320
420 B[178]32192:[151]B,N:[151]B[170]1,NL:[151]B[170]2,R:[151]B[170]3,C0:[151]B[170]4,C1:[151]B[170]5,C2:A[178]2[174][181]([188](M)[173][188](2)[170]9.5):V[178].025[173]M:V[178][171][181](V[172]A[170].5)[173]A:[151]B[170]6,C3:B[178]B[170]7:H[178][171]V[172]3[173]4:A[178]X[171]80[172]H:[141]460:A[178]Y[171]50[172]V[171]V[173]2[172](C0[177]16):[141]460:A[178]H:[141]460:A[178]V:[141]460:[142]
460 [151]B[170]6,[171]255[172](A[179]0):A[178][182](A)[173]2:T[178][181](A):[151]B[170]5,T:[129]I[178]B[170]4[164]B[169][171]1:A[178](A[171]T)[172]128:T[178][181](A):[151]I,T[170]T:[130]:B[178]B[170]7:[142]
480 [133]" (null)CREEN: VALNTER FILE NAME";A$:B[178][195](A$)[170]5:[151]820,B:[139]B[177]19[176]B[179]6[167]480
490 A$[178]"@0:["[170]A$[170]"]":[129]I[178]1[164]B:[151]820[170]I,[198]([202](A$,I)):[130]:[142]
500 [141]420:[141]480:[158]4870:[158]4867:[137]300
510 [158]4873:[158]4867:B[178]32192:N[178][194](B):NL[178][194](B[170]1):R[178][194](B[170]2):C0[178][194](B[170]3):C1[178][194](B[170]4):C2[178][194](B[170]5):C3[178][194](B[170]6):[141]540:X[178]A:[141]540:Y[178]A:[141]540:H[178]A:M[178]3[173]160[173]H:V[178][171].025[173]M:X[178]X[170]80[172]H:Y[178]Y[170]50[172]V:CX[178]XC:CY[178]YC:[137]300
540 B[178]B[170]7:A[178]0:[129]I[178]0[164]4:A[178](A[170][194](B[170]I))[173]128:[130]:A[178]A[170]2[172][194](B[170]5):[139][194](B[170]6)[179][177]0[167]A[178][171]A
560 [142]