@@ MANDELZOOM V4.2,@ BY DOV SHERMAN6@4340b@((14)"HIS ROGRAM IS !"@2"OU MAY GIVE COPIES TO ANYONE YOU LIKE"@<"BUT YOU MAY SELL IT! STILL OWN"@F" ! F YOU REALLY LIKE THIS"AP"PROGRAM AND WANT TO HELP A STARVING"=AZ"COLLEGE STUDENT, SEND $1 OR SO TO:"ZAd" OV HERMAN"yAn" OX 14380"Ax" OONE, 28608-0001"Ay" 128 ERSION 4.1"Az"COPYRIGHT 1991, ALL RIGHTS RESERVED."!B{" "*B|A$KBQ$(34):"PLEASE WAIT..."BA10:B10:A20:R0:PA0:X10:X20:C10:C20:CT0:RE0:LR0:LI0:SD0:LG0:BD0B C(13),P(24,3),M(9,9),C$(13)BK$" "CX013:C(X):X)CX024:Y13:P(X,Y)1:Y:X:3,1_CX15:A$"":Y167:A:A$A$(A):Y:(A$),X:XuCX013:C$(X):XC11,3,9,8,14,6,4,15,7C5,13,12,2,1C85,0,0,64,0,0,64,0,0,64,0,0,64,0,0,0,0,0,0,0,0,0D0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0" ISK ENU "PH" AP ENU "PR" RACE ENU "P\" ":350)Qf" O SE ENUS: SE ( ) TO OVE HECK ARK, THEN IT () TO ELECT"QQpX13:Y6:S3:520:SS890,1280,3610tQz" "Q" "Q" OAD CREEN FROM ISK "Q" AVE CREEN TO ISK "R" HECK NFO FROM ILE "AR" ISK IRECTORY "jR" "R" "R" "R" ":350%SX8:Y4:S7:520:SS1010,1040,1070,1000,750,1280,3610?S"";::K$:A$:890|SF$"":"OAD ILENAME (BLANK TO ABORT)":F$:F$""890S(F$)10F$(F$,10)S600:890SF$"":"AVE ILENAME (BLANK TO ABORT)":F$:F$""890S(F$)10F$(F$,10) T$670:890JT.F$"":"ILENAME TO HECK (BLANK TO ABORT)":F$:F$""890dT8(F$)10F$(F$,10)TB%:5,8,5,F$".I,S,R":5,CI,CR,CS,RC,CX,CYTLXX024:YY13:5,DY:YY:XXTV5,TP,CN,C3,C4,LC,CB:5T`&Uj"";(20(F$)2)2);(34)F$(34)4Ut"";BU~"ݑ"WU" "T$(TP)U""UTP1TP2"ݑ WITH ="CNUTP1"ݑ WITH ="C3"+ I"C4U"ݑ OWEST EAL "CRV"ݑ OWEST MAGINARY "CI@V"ݑ IDE ENGTH "CSeV"ݑ ESOLUTION "LC" TO "RCVCB0" IN ULTI-OLOR EDIUM ES "VCB1" IN INARY ECOMPOSITION "WCX0CY0"ݑ 0% MAPPED":1250;W"ݑ "(((CX1)200)CY1)(320(CB1))"% MAPPED"lW""tWK$W 1:A$:890W" "W " "X" TART EW AP FROM OORDINATES"-X" "ZX(" "X2SD0" SE AP IN EMORY "X<" "XFS3:SD0S4XPX4:Y2:350:520XZSS1380,740,890,2490&YdSE0:" "LYn" "rYx" ANDELBROT ET "Y" ANDELBROT YBRID "Y" ULIA UADRATIC "Y" ULIA INE " Z" ULIA OSINE "0Z" ULIA & UHLER'S "VZ" "|Z" "ZX8:Y2:S7:520ZSS71280ZTYSS1Z""T$(TY):"NTER OMPLEX INDOW REA:"["ORMAL ASIN OF ";:TY2"ANDELBROT IS <2"4[TY2"ULIA UAD IS <2"U[TY3"ULIA INE IS <4"x[TY4"ULIA OSINE IS <4"[TY5"ULIA & UHLER'S":" IS <3"[""NTER OWEST EAL OORDINATE"[,LR[6"NTER OWEST MAGINARY OORDINATE"\@LI*\J"NTER ENGTH OF ASIN IDE"=\TSD:SD01610]\^"S THIS ORRECT? (Y/N)"\h"OW EAL "LR:"OW MAGINARY "LI:"ASIN IDE"SD""\rY$:Y$"N"1510\|Y$"Y"1650\BX0:BY0\TY1TY21710 ]"AISE "T$(TY)" TO WHAT POWER?"]N&]TY2SE11750U]"NTER OMPLEX LANE OORDINATES FOR "]C$"":"NTER EAL OORDINATE":C$:C$""C1:C1(C$)]C$"":"NTER MAGINARY OORDINATE":C$:C$""C2:C2(C$)^"AP INI-ES REA FOR OMPUTER-SSISTED ESOLUTION? (Y/N)"0^Y$:Y$"Y"1850B^Y$"N"1760^"NTER OW ESOLUTION (INIMUM NUMBER OF TERATIONS)":LG:LG(LG)^"NTER IGH ESOLUTION (AXIMUM NUMBER OFTERATIONS)":RE:RE(RE):RELG1780_"AP IN ()OLOR OR ()INARY ECOMPOSITION"2_A$:A$"C"A$"B"1783I_A$"B"BD1:BD0X_"";:350x_"S THIS CORRECT? (Y/N)"_Y$:Y$"N"1380_Y$"Y"1810_&3_02490_:"OW WORKING, PLEASE WAIT....": 2:%:53280,2_DRE1000:SD1RE3006`NLG1001:HG1:(TY1)1890,1970,2070,2170,2250,2330G`X MANDELBROTd`bX09:X1((X10)SD)LR`lY09:Y1((Y10)SD)LI`vCT0:A10:B10`CTRE(A1A1B1B1)4`A2A1A1B1B1X1:B12A1B1Y1:A1A2:CTCT1: aM(X,Y)CT: HGCT CTRE HGCTa LGCT LGCT.aY:X:2400Fa MANDELBROT HYBRIDcaX09:X1((X10)SD)LRaY09:Y1((Y10)SD)LIaCT0:A10:B10:X10Y10CTRE:2040aCTRE(A1A1B1B1)4aR(A1A1B1B1):A10PA2:B10PAPA3bA10PA(B1A1):A10PAPAMbA1RN(NPA)X1:B1RN(NPA)Y1:CTCT1:sbM(X,Y)CT: HGCT CTRE HGCTb LGCT LGCTbY:X:2400b  JULIA QUADRATICbX09:X1((X10)SD)LRb Y09:Y1((Y10)SD)LIc*CT0:A10:B10:X10Y10CTRE:2140-c4CTRE(A1A1B1B1)4]c>R(A1A1B1B1):A10PA2:B10PAPA3cHA10PA(B1A1):A10PAPAcRA1RN(NPA)C1:B1RN(NPA)C2:CTCT1:c\M(X,Y)CT: HGCT CTRE HGCTca LGCT LGCTcfY:X:2400dp JULIA SINE,dzX09:X1((X10)SD)LRIdY09:Y1((Y10)SD)LI^dCT0:A1X1:B1Y1sdCTRE(B1)50dA2C1(A1)CH(B1)C2(A1)SH(B1):B1C1(A1)SH(B1)C2(A1)CH(B1):A1A2:CTCT1:dM(X,Y)CT: HGCT CTRE HGCT e LGCT LGCTeY:X:2400.e JULIA COSINEKeX09:X1((X10)SD)LRheY09:Y1((Y10)SD)LI}eCT0:A1X1:B1Y1eCTRE(B1)50eA2C1(A1)CH(B1)C2(A1)SH(B1):B1C1(A1)SH(B1)C2(A1)CH(B1):A1A2:CTCT1: f HGCT CTRE HGCT!f LGCT LGCT;f M(X,Y)CT:Y:X:2400Kf JULIA EXPhf X09:X1((X10)SD)LRf$ Y09:Y1((Y10)SD)LIf. CT0:A1X1:B1Y1f8 (CTRE)((A1)50) gB A2C1(A1)(B1)C2(A1)(B1):B1C1(A1)(B1)C2(A1)(B1):A1A2:CTCT1:%gL HGCT CTRE HGCT9gQ LGCT LGCTSgV M(X,Y)CT:Y:X:2400ig` 53280,0:REHGLGgj X09:Y09:M(X,Y)((M(X,Y)LG)RE13):M(X,Y)13M(X,Y)13gt Y:X:&g~ ""14);""h Y09:14);"";:X09:C$(M(X,Y))" ";:X:"":Y)h 14);""ph "ESOLUTION WOULD BE BEST IN AREA OF "(LG.9)" TO "(HG1.1)h "NTER OW ESOLUTION (INIMUM NUMBER OF TERATIONS)":X:X(X)i "NTER IGH ESOLUTION (AXIMUM NUMBER OFTERATIONS)":RE:RE(RE):REX2430: LGXi 1781>i X(HX1)BD0BX159:BY199_i X(HX1)BD1BX319:BY199i " "i 53280,0:53281,0i " "i " AP THIS AREA "j " IEW THIS AP "-j " "Rj " "wj " "j " ":350:X10:Y2:S5:520j SS2700,2600,740,3610,890j( "IT () TO IEW AP"k2 " () TO ETURN TO THIS ENU"?k< TY5" () TO LASH LACK REAS"GkF F0OkP A$dkZ A$"F"TY5F1kd F1X015:53281,X:Xkn A$"V"BD03:TY553281,6ko A$"V"BD11kx A$"M"2640k 0:53281,6:2490k "URING APPING:"Hl " IT () FOR APPING (YOU WILL NOT BE ABLE TO WATCH MAP)"l " () FOR VISUAL MAPPING (Ƞ SLOWER)"l " ()"l " OR TO ETURN TO ENU"l " ()"l ""K$:350l A$:A$""2770 m A$:A$""2780"m BX0BY0BD03,1;m BX0BY0BD11,1Qm BD03:1:1,2im HX160:BD1HX320m (TY1)2810,2920,3050,3180,3290,3400m MANDELBROTm XBX:YBYm A$:A$"F"53280,2:%m A$"S"53280,0:&n A$" "A$(13)BXX:BYY:0:&:2490Dn, CY(Y8):X1((XHX)SD)LR:Y1((Y200)SD)LIWn6 CT0:A10:B10sn@ CTRE(A1A1B1B1)4nJ A2A1A1B1B1X1:B12A1B1Y1:A1A2:CTCT1:nT 3510n^ YY1:Y200Y0:2820n_ XX1:XHX2820n` BXHX:BYHY:0:&:2490og MANDELBROT HYBRID#oh XBX:YBY?or A$:A$"F"53280,2:%Wo| A$"S"53280,0:&o A$" "A$(13)BXX:BYY:0:&:2490o CY(Y8):X1((XHX)SD)LR:Y1((Y200)SD)LIo CT0:A10:B10:X10Y103040o CTRE(A1A1B1B1)4$p R(A1A1B1B1):A10PA2:B10PAPA3Ip A10PA(B1A1):A10PAPA{p A1RN(NPA)X1:B1RN(NPA)Y1:CTCT1:p 3510p YY1:Y200Y0:2930p XX1:XHX2930p BXHX:BYHY:0:&:2490p JULIA QUADRATICp XBX:YBYq A$:A$"F"53280,2:%)q A$"S"53280,0:&Tq A$" "A$(13)BXX:BYY:0:&:2490q CY(Y8):X1((XHX)SD)LR:Y1((Y200)SD)LIq& CT0:A1X1:B1Y1:X10Y103170q0 CTRE(A1A1B1B1)4q: R(A1A1B1B1):A10PA2:B10PAPA3rD A10PA(B1A1):A10PAPAOrN A1RN(NPA)C1:B1RN(NPA)C2:CTCT1:YrX 3510srb YY1:YHYY0:3060rc XX1:XHX3060rd BXX:BYY:0:&:2490rk JULIA SINrl XBX:YBYrv A$:A$"F"53280,2:%r A$"S"53280,0:&s A$" "A$(13)BXX:BYY:0:&:2490Ss CY(Y8):X1((X160)SD)LR:Y1((Y200)SD)LIhs CT0:A1X1:B1Y1}s CTRE(B1)50s A2C1(A1)CH(B1)C2(A1)SH(B1):B1C1(A1)SH(B1)C2(A1)CH(B1):A1A2:CTCT1:s 3510s YY1:YHYY0:3190t XX1:XHX3190.t BXX:BYY:0:&:2490>t JULIA COSLt XBX:YBYht A$:A$"F"53280,2:%t A$"S"53280,0:&t A$" "A$(13)BXX:BYY:0:&:2490t CY(Y8):X1((X160)SD)LR:Y1((Y200)SD)LIt CT0:A1X1:B1Y1 u CTRE(B1)50hu* A2C1(A1)CH(B1)C2(A1)SH(B1):B1C1(A1)SH(B1)C2(A1)CH(B1):A1A2:CTCT1:ru4 3510u> YY1:YHYY0:3300u? XX1:XHX3300u@ BXX:BYY:0:&:2490uG JULIA EXPuH BD11,2:0,1:1,11:2,9:3,8:0,7vM XBX:YBYvR A$:A$"F"53280,2:%7v\ A$"S"53280,0:&bvf A$" "A$(13)BXX:BYY:0:&:2490vz CY(Y8):X1((X160)SD)LR:Y1((Y200)SD)LIv CT0:A1X1:B1Y1v CTRE(A1)50w A2C1(A1)(B1)C2(A1)(B1):B1C1(A1)(B1)C2(A1)(B1):A1A2:CTCT1:-w BD13510:Ս3501Gw YY1:YHYY0:3410\w XX1:XHX3410vw BXX:BYY:0:&:2490w ((CT1)3)((CT1)3)C3w C,X,Y:w CTREw BD03520w B101,X,Yw w C((CTLG)(RELG)12):C12x C0C0"x (CT2)(CT2)CC1-x CC(C)Kx T0:Z13:P(CY,Z)CTZ]x Z:T03590tx TTTT1:TT4TT1x TTT:P(CY,T)Cx1,P(CY,1):2,P(CY,2):3,P(CY,3):T,X,Y:TTT:xER4 2:890x" "yHX160:BD1HX3201y$" "[y." "y8" "yB" AP REA "yL" HOOSE REA FOR OOM-N" zVTY2" HOOSE OINT FOR ULIA "8z`" ":350GzjTR03770mzt" "z~TR2" URRENT OINT"zTR1" URRENT OOM "{" EAL "((SX24)2)HXSDLR:""g{" MAGINARY "((SY50))200SDLI:""{TR1" WITH IDE "(SDSW320):""{" "{X8:Y2:S4:TY2S5|520"|SS740,2490,3800,3830,4070T|TR0"O EFINED ET.": 2:3610c|TR14030m|4230|"SE ( ) TO OVE INDOW"|" < AND > TO HANGE INDOW IZE"| " () TO ELECT REA" }" (1-9) TO HANGE INDOW PEED"}""K$+}(A$:A$""3880<})BD03:1d}2SX174:SY145:SW20:SB12:IN1:TR1}<1,1,2,0,0,0,1:2,1,2,0,0,0,1:3,1,2,0,0,0,1:4,1,2,0,0,0,1}F1,SX,SY:2,SXSW8,SY:3,SX,SYSB5:4,SXSW8,SYSB5~PA$:(((0)16)1),1~QA$""39207~ZA$""SYIN49SYSYIN:3910_~dA$""SYSBIN251SYSYIN:3910~nA$""SXIN24SXSXIN:3910~xA$""SXSWIN336SXSXIN:3910~A$","SW5SWSW1:SB(SW.625):3910A$"."SXSW336SYSB245SWSW1:SB(SW.625):39100A$"0"A$":"IN(A$)DA$(13)3920`1,0:2,0:3,0:4,0m0:3610LR((SX24)2)160SDLR:LI((SY50)200)SDLI:SDSDSW320:BX0:BY0"O AP THIS OOM, YOU MUST RE-SET THE ESOLUTION."2"O AP THIS OOM, YOU MUST RE-SET THE ESOLUTION."<1750i"SE ( ) TO OVE ROSSHAIR"" () TO ELECT OINT"" (1-9) TO HANGE ROSSHAIR PEED"Ā""K$ـA$:A$""4110BD03:1SX184:SY150:IN1:TR2"5,1,2,0,0,0,1(,5,SX,SYC6A$:(((0)16)1),1S7A$""4150w@A$""SXIN18SXSXIN:4140JA$""SYIN47SYSYIN:4140TA$""SXIN338SXSXIN:4140^A$""SYIN247SYSYIN:4140hA$"0"A$":"IN(A$)rA$(13)4150(|5,0:0:3610fBX0:BY0:C1((SX12)2)160SDLR:C2((SY47)200)SDLIoSE1X$" ="(C1)" + I"(C2):"";(20((X$)2))1);X$҂" LOT IN HICH ET?"" "" ULIA UADRATIC "D" ULIA INE "j" ULIA OSINE "" ULIA & UHLER'S "ǃ" ":X8:Y5:S4:520كTYSS1:1510(7):0:&ER55000(ER);" IN LINE "EL!ER154380'6TY34440b&"N USING THE ULIA INE, OSINE, OR"0" XPONENTIAL ACTOR (UHLER) YOU MAY":" OFTEN GET AN OVERFLOW ERROR WHEN TRYING";D" TO MAP AN AREA OUTSIDE OF THE NORMAL"!N" RANGE, IN THIS CASE <";:TY5"4.":ՙ"3."NX"F YOU TRY TO MAP A REALLY TINY AREA"{b" YOU CAN GET AN OVERFLOW MESSAGE ONCE"l" YOU PASS THE COMPUTER'S SMALLEST"˅v" OR LARGEST VALUE, IN THIS CASE"" A NUMBER USING MORE THAN 38 DECIMAL"" PLACES. F THIS IS THE CASE,"K" ONGRATULATIONS! OU HAVE NAVIGATED AS"v" FAR AS POSSIBLE ON THE 128. F YOU"" WANT TO EXPLORE FURTHER, YOU'LL NEED"ņ" A MAINFRAME OR SOMETHING."Ն""K$:A$"UT DON'T WORRY! HERE ARE PLENTY MORE"." AREAS AND VARIATIONS TO EXPLORE IN"_" THE WORLD OF COMPLEX FRACTALS! AVE YOU";" TRIED USING A NON-INTEGER VALUE FOR "" IN THE ANDELBROT YBRID OR ULIA UAD?";" R WHAT ABOUT PLAYING AROUND WITH"" A NEGATIVE ?"& "O AHEAD, BREAK NEW GROUND! RY"Q" ALTERING THIS PROGRAM! F YOU NEED" " AN EXPLANATION OF THE PROGRAM STRUCTURE";*" CONTACT ME AT:"4""K$:A$>"OV HERMAN"҈H" OX 14380"R"OONE, 28608-0001"\" OR"(f"F YOU HAVE -INK, DROP A LINE TO"Bp" SCREENNAME I!"z" HOPE YOU ENJOYED IT! ORRY THE 128 ISN'T JUST A LITTLE MORE POWERFUL!":"HE ISK RIVE IS DISCONNECTED OR TURNED OFF. LEASE CORRECT AND HIT <>"X$:X$(13)5001