: *********************************************** Artwork Version 1.0 --> Pretty Pictures w/ Z-BASIC (c)1982 Zenith Data Systems *********************************************** ( "F": : :# ( ,: AZ: P,T,R: t: x: J Y 2 : J ,,,*,,,,6,Jm < K : K{ F x: J P Z: dCC:X:Y:RAD2:DIX:DIY n (X,Y),RAD,COLORS(CC),,VI,L} xXX(DIX):YY(DIY) X X DIXDIX3 Y Y DIYDIYC : nI c CC ( (CC) ):k : CC:X:Y:RAD2:DIX:DIY (,)(,),COLORS(),B: ,: ,: , XS:YS RATIO (XS,(YS)RATIO)(XS(RATIO),YS),COLORS(CC)@ (,YS)(XS(RATIO),),COLORS(CC)f(XS,)(,()RATIO),COLORS(CC)(,YS)(XS,()RATIO),COLORS(CC)RATIORATIOL| RATIO : ",CC ( (CC) ):6:,@CO:XS:YS:CC:XXS:YYS:RADF:DIX:DIY: XI:YIWJCOCO: (X,Y),RAD,COLORS(CC),,,bTXXXIm^YYYIh X X XIXI: Tr Y Y2 YIYI| COd  J:XS:YS:CC:X:Y:RADP:DIX:DIY: XI:YI: (X,Y)(XRAD,YRAD),COLORS(CC),BEXXXIPYYYIv Y YRAD YIYI:  X XRAD XIXI:  X Y  CC ( (CC) ): CC  : PIIC14XS:YS:CC:XXS:YYS:RAD<:DIX:DIY (2,2)(2,d),COLORS(CC): (d,d),COLORS(CC): (d,2),COLORS(CC): (L,2),COLORS(CC): (J,2)(2,2),COLORS(CC)& (F,2)(F,),COLORS(CC): (P,2)(P,),COLORS(CC)v0 (F,)(b,),COLORS(CC): (P,)(X,),COLORS(CC): (b,)(b,),COLORS(CC): (X,)(X,),COLORS(CC): (,)(,),COLORS(CC),BD (&,)(&,),COLORS(CC): (&,)(&,),COLORS(CC): (_,)(a,),COLORS(CC)HN (,),2,COLORS(C1),,,: (,)(,),COLORS(CC)cX (K,K),,COLORS(CC)b v: CCC1 : (K,K),COLORS(CC),COLORS(C1): blvCC ( (CC) )::A$()"F":A$()"":A$()"F"CC:X:Y:RAD2:DIX:DIYNCOCO:X():Y():X1():Y1() (X,Y)(X1,Y1),COLORS(CC),B:+A$(INT(2*RND(1)-1))) : CO2 : CC ( (CC) ): (,)(,),COLORS(),B:A$()"BF":A$()"B" A$()"F":A$()"":A$()"F"FCC:X:Y:RAD2:DIX:DIYCOCO:X():Y():X1()v:Y1() (X,Y)(X1,Y1),COLORS(CC),BF: COK :     :  CC ( (CC) ):*:74CO: (,)(,),COLORS(),B:CC:X:Y:RAD2:DIX:DIYu>X()N:Y():RAD()() ()H R1 RAD R (X,Y),R1,COLORS(CC),,,\ R1fCOCO: CO p : z: >pzCC ( (CC) )::CG@ X1 @ 2: Y1  ZCC:C C  :CChXX1:YY1(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C))(X,YLG)(XG,YG),COLORS(C)V(X,YLG)(XG,YG),COLORS(C)}(XG,Y)(XG,YG),COLORS(C)(X,YL~G)(X,YLG),COLORS(C)(XG,Y)(XG,YG),COLORS(C)XX1:YY1 $(X,YL~G)(XG,Y),COLORS(C)..(X,YL~G)(XG,Y),COLORS(C)S8(X,YL~G)(XG,Y),COLORS(C)xB(X,YL~G)(XG,Y),COLORS(C)L(X,YLG)(XG,YG),COLORS(C)V(X,YLG)(XG,YG),COLORS(C)`(XG,Y)(XG,YG),COLORS(C)$j(X,YL~G)(X,YLG),COLORS(C)Kt(XG,Y)(XG,YG),COLORS(C)W~ Y1,X1]e:~ COLORS() P G  X@:Y( :CENTERC()(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)'(X,YL~G)(XG,Y),COLORS(C)L(X,YL~G)(XG,Y),COLORS(C)y(X,YLG)(XG,YL~G),COLORS(C)(X,YLG)(XG,YL~G),COLORS(C)(X,YG)(XG,YLG),COLORS(C) (X,YG)(XG,YLG),COLORS(C)-(X,YLG)(XG,YG),COLORS(C)Z(X,YLG)(XG,YG),COLORS(C)((XG,Y)(XG,YG),COLORS(C)2(X,YL~G)(X,YLG),COLORS(C)<(XG,Y)(XG,YG),COLORS(C)F GPCZCC::IF C=4 THEN C=0d G  ,nX@:Y( :CENTERQx(X,YL~G)(XG,Y),COLORS(C)v(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)(X,YL~G)(XG,Y),COLORS(C)(X,YLG)(XG,YL~G),COLORS(C)(X,YLG)(XG,YL~G),COLORS(C)M(X,YG)(XG,YLG),COLORS(C)|(X,YG)(XG,YLG),COLORS(C)(X,YLG)(XG,YG),COLORS(C)(X,YLG)(XG,YG),COLORS(C) G CO:PII:XC@:YC:R:CC:D:R1R:RRJCOCO::CIRCLE (XC,YC),R1,CC,,,.5:c PT PI PIXR1(PT)XC:YR1(PT):YYYC (X,Y),R,COLORS(CC),,," PT: z,YCYC:XCXC6 CO :  @RR D:: RAD RR:DD :  : % J:- T:5 ^ Q> hCLI rCX^T |CX1d^ CYh SZ  Q I L} X2(Q)SZ:YCY(Q)SZ:XCXX2:X1CX1X2:CL()  (X,Y) (QSZ,QSZ),COLORS(CL),B"! (X1,Y) (QSZ,(Q)\})SZ),COLORS(CL),B(!0! QD! Q : QJ!!L BGR BGR BGRBGR : BGR BGR BGRBGR!V FGR FGR FGRFGR : FGR FGR FGRFGR"` COLORS() FGRBGR FGRCOLORS():BGRCOLORS()"j FGR,BGR4"t (,),:PT(,): (,),"~ PT COLORS$"07777777" : COLORS$"01234567"" J :COLORS(J)((COLORS$,J,)): J:FGRCOLORS():"x ,:" ":: COLORS$"01234567"" J :COLO