@@ MANDELPRINT(@ BY DOV SHERMAN=@ COPYRIGHT 1991W@( ALL RIGHTS RESERVEDa@2 180k@<X$""x@F" ";@PK$:K$""80@ZK$(13)@d(K$(20)K$"")X$""80@n(K$(20)K$"")(X$)1" ";:X$"":70+Ax(K$(20)K$"")(X$)1" ";:X$(X$,(X$)1):70[AK$(34)X$X$(34):(34)(34)" ";:70nAK$""K$" "AK$(32)K$""80A(X$)25580AX$X$K$:K$;:70AP$(33):X35122:P$P$(X):XAC$(10)AX110:C$(X):X:UF0'B"","","","","","","","","",""BBCH(Y)((Y)(Y))2]BSH(Y)((Y)(Y))2~B""(14);:53280,0:53281,0B" ";B" ";C" ݭ";OC"ݰ A N D E L R I N T ";C"" ";C,"ݭ BY OV HERMAN ";C6" ݰ";D@" ";DDJ" ";uDT"HIS PROGRAM IS UBLIC OMAIN. OU ARE"D^"GRANTED FREEDOM TO USE, TRADE, AND"Dh"DISTRIBUTE THIS PROGRAM IN ITS"Dr" FORM."E|KY$" ":""KY$&EK$:K$""390:E"AIN ENU:"_E" 1> NTER OORDINATES TO AP"E" 2> OAD OORDINATES FROM ANDELZOOM ERSION 3 OR HIGHER"E" 3> UIT"EK$:K$"3"K$"1"440EK$"3"EK$"1"640%F"NTER ILENAME TO OAD":F$"":F$:F$""400?F(F$)10F$(F$,10)F5,8,5,F$".I,S,R":5,LI,LR,SD,RE,PD,PD:X175:5,PD:X:5,TY,N,C1,C2,LG,BD:5:500F""(34)F$(34)":"FTY0"ANDELBROT ET"FTY1"ANDELBROT YBRID WITH XPONENT"N!GTY2"ULIA ET WITH XPONENT"N9GTY3"ULIA INE"SG&TY4"ULIA OSINE"qG0TY5"ULIA & UHLER'S"G:"WITH A INDOW FROM":""LR" TO "LRSD:""LI"I TO "LISD"I"GDTY1"WITH ="C1"+"C2"I"GNBD0" IN RADATIONS OF X$"#HXBD1" IN INARY ECOMPOSITION"AHb"ESOLUTION:"LG" TO "REHlXX0YY0"OTAL OF "VP"X"HP"PAGES":" "XX"X"YY"PRINTED"HvH"HOOSE:"H" 1> ANDELBROT ET"H" 2> ANDELBROT YBRID"H" 3> ULIA ET"H" 4> ULIA INE"I" 5> ULIA OSINE"0I" 6> ULIA & UHLER'S"KIK$:K$"6"K$"1"710ZITY(K$)1~I"OWEST EAL OORDINATE":LRI"OWEST MAGINARY OORDINATE":LII"IDE ENGTH":SDITY0TY3"XPONENT":NITY1"EAL OF ":C1J TY1"MAGINARY OF ":C2^J"RINT ()RADATIONS OR":" ()INARY ECOMPOSITION"{J Y$:Y$"G"Y$"B"800J*BD0:Y$"B"BD1:LG0:830J4"OWEST ESOLUTION (INIMUM TERATIONS)":LGK>"IGHEST ESOLUTION (AXIMUM TERATIONS)":RE:RELG8208KH"":510:"S THIS CORRECT?(Y/N)"UKRY$:Y$"Y"Y$"N"850eK\Y$"N"640Kf"HOOSE:":" 1> AP ON CREEN":" 2> RINT":" 3> AIN ENU"KpK$:K$"1"K$"3"880KzK$"3"400KK$"2"1350K"";0LY019:X038:X1(SD39)XLR:Y1(SD20)YLI:"*";ZL(TY1)1080,1120,1180,1240,1280,1320hLBD0970LB10" ";:1020L" ";:1020LCTRE" ";:1020LC(((CTLG)(RELG))9):C1C1LC9C9L(CT2)(CT2)CC1M""C$(C)" ";MX::Y6M"1> RINT":"2> AIN ENU"KMK$:K$"1"1350]MK$"2"1040fM$400{M. MANDELBROT SETM8CT0:A10:B10MBA2A1A1B1B1X1:B12A1B1Y1:A1A2:CTCT1:CTRE(A1A1B1B1)4ML1090MV MANDELBROT HYBRID!N`CT0:A10:B10:X10Y10CTRE:QNjR(A1A1B1B1):A10PA2:B10PAPA3vNtA10PA(B1A1):A10PAPAN~A1RN(NPA)X1:B1RN(NPA)Y1:CTCT1:CTRE(A1A1B1B1)4N1130N JULIA SETOCT0:A1X1:B1Y1:X10Y10CTRE:1OR(A1A1B1B1):A10PA2:B10PAPA3VOA10PA(B1A1):A10PAPAOA1RN(NPA)C1:B1RN(NPA)C2:CTCT1:CTRE(A1A1B1B1)4O1190O JULIA SINEOCT0:A1X1:B1Y1=PA2C1(A1)CH(B1)C2(A1)SH(B1):B1C1(A1)SH(B1)C2(A1)CH(B1):A1A2:CTCT1:CTRE(B1)50GP1250ZP JULIA COSINEoPCT0:A1X1:B1Y1P A2C1(A1)CH(B1)C2(A1)SH(B1):B1C1(A1)SH(B1)C2(A1)CH(B1):A1A2:CTCT1:CTRE(B1)50P1290P JULIA/EUHLERQ(CT0:A1X1:B1Y1uQ2A2C1(A1)(B1)C2(A1)(B1):B1C1(A1)(B1)C2(A1)(B1):A1A2:CTCT1:CTRE(A1)50Q<1330QF"RINT RACTAL MAGE"QP"URRENT RINT OURCE IS:":(P$)(RELG)P$(P$,RELG)QZP$Rd"O YOU WISH TO CHANGE THIS? (Y/N)".RnY$:Y$"Y"Y$"N"1390?RxY$"N"1430dR"NTER NEW PRINT SOURCE NOW:"xR60:P$X$:1350R"OU MAY CHOOSE TO PRINT THE MAGE ONTO"R"ANY USER-DEFINED NUMBER OF SHEETS." S"UMBER OF PAGES ACROSS":HP:HP(HP):HP11450>S"UMBER OF PAGES DOWN":VP:VP(VP):VP11460yS"RINT ON "HP"X"VP"PAGES":"S THIS CORRECT? (Y/N)"SY$:Y$"Y"Y$"N"1480SY$"N"1430SPS1:"AUSE BETWEEN PAGES? (Y/N)"SY$:Y$"Y"Y$"N"1510TY$"N"PS0:T"AKE SURE RINTER IS N AND EADY TO ECIEVE."T"HE RINTER EAD SHOULD BE AT THE ERY OP DGE OF IRST HEET."T"IT <> TO EGIN RINTING."TK$:K$(13)1560T"4,4,7T,PXXX(HP1):PYYY(VP1)U6"RINTING AGE ("(PX1)","(PY1)")"hU@Y166:Y1(SD(VP66))(PY66Y)LI:X180:X1(SD(HP80))(PX80X)LRUJ(TY1)1080,1120,1180,1240,1280,1320UTBD01670U^B10CTRE4," ";:1720UhB10CTRE4," ";:1720UrGG1:G(P$)G1V|4,""(P$,G,1);:1720-VCTRE4," ";:1720[VC(((CTLG)(RELG))((P$)1)):C1C1vVC((P$)1)C(P$)1V(CT2)(CT2)CC1V4,""(P$,C,1);VX:(7);VXWX:YQY66:XQXW80VGG1:G(P$)G1W4,""(P$,G,1);:XQ:XW1:YQ:YYQ:XXQWY(WPS01810FWPX(VP1)PY(HP1)1810W"---AKE SURE RINTER IS EADY FOR EXT AGE AND IT <>"WK$:K$(13)1800:%WPY:YY0:PX:4W&:"NTER RACTAL MAGE OMPLETED."X&"ETURN TO AIN ENU? (Y/N)",X0Y$:Y$"Y"Y$"N"1840