& 330& 65497,0&> &HF812,&H21: &HF91C,&H21&I : 80&RX23&d 0,32: 8,63&s 65434,32& X);"**********************************&( X);"* *&2 X);"* FRACTALS: WORLDS OF RANDOMNESS *"'-7 X);"* *"'[< X);"* PRESENTED BY *'A X);"* *"'F X);"* THE COCO 3 *'K X);"* *"(P X);"* AND *(DU X);"* *"(rZ X);"* GRAPHIC MAGIC LTD. *(d X);"* *(n X);"**********************************(x(}Y31( Y);"SHOW WHICH FRACTAL?") ) Y);" 1) THE COAST")& )D Y);" 2) THE ISLAND ")J)h Y);" 3) THE CHANNEL ")nȇ)ɇ Y);" 4) QUIT")͒ 65496,0)A$: A$"" 210)Ӡ 200,1)A(A$): A1 A4 210) A 250,270,290,310)* RUN COASTLDR* "COASTLDR"*  *3 RUN ISLNDLDR*D "ISLNDLDR"*J*]" RUN CHANLLDR*n, "CHANLLDR"*t1*6 END PROGRAM*@ 32:: 65496,0: &HF015,&HAA::*J)A(A$): A1 A4 210) A 250,270,290,310)* RU @00000"330 3330 0333033333333333333333333"""""""""#"""""""""#"""""""""#333330"""""""""#00"""""""""#"""""""""#33330"""""""""#33"""""""""#030"""""""""#333333333333"""""""" """"" """"! "!""" " " """"" " "" " """" ! " " """""""" """"""""""""""" "!"" " """""" " " ""  """"!""""" """""" """""""" """""" " """"" " "" " """"" "  "  "" """ """""""" """"""" """" ""!""" """"" " !" "" ! """"" """""""!""""""!"""" " "" " "" """""" """ """""""" """""""""""""  " """"  """"!"! ""  """""  """"""" !"""""" " """""" """"" """"! """""""" """""""" """""!"" " ""   !! ""!""" """""""" """""""""" " """ " """"" "! """" """""" """""""" """!"""   """  ""  " """""""" " """"""" ""!"""""  """""""" """  " """"""" "  """""""" """"! """""""" """  " """"""" "  """""""" """ @""""""" """""""""""""""!"" " """"" " ""  """"" " ""  """""""  """""""" """"""""""""" ""!" "" """ " """""" "" " """""! """""""" """""""""""""""""" """"""" """" " """ """"""  " """"" """" """"""""" """"" " """"""""  """"""" """ """"""""" """"""""" """""""" """""! """"" " """ " """"" """ """ """"""" """"" """""""  ""  "" " """"" " "" " """" """"""""""""""" """""""" """""""" !  "" "  "  """"" " """ " """"!""""""" """"" """""""" """"" " " """"" " "" """  """"" " " """""" """"""""""""""" """""""""   """""  ""  """"" ""  """ """"" """""""" """"" """"""" " "" " """"" " "" " " """"""" """""""" """"""""""""""" """ """  """""  ""  " "!"""""""" """""" """""""" """"" " " """"""""""" " """"" """""""" """"""""" """"""""" """""" !"  """"" " """""""""""!  "" """" """"""" """"" !""""""""! " "" " """"" " ! ""!"""""""""""""" ""! """"""!"""" " ""  """""  """" " @00000!330! 3330! 0""3330   3333333333" "" " 3333333333""""""""""# """""""""#"""""""""#333330"""""""""#00"""""""""#"""""""""#33330"""""""""#33"""""""""#030"""""""""#333333333333"""""""" """"" " " """""" " """""""" "!"" " """"" """""""""" " "" """"""""""""  "!"  """"""" """ "!"""" """""""  """"  " """"" " """"" !"""""" """"" " """""" """" """""""" """""" "" " "" """""" """""""" !!" """ " """"""""""" """""""" ! """  !"""""" " """""""!! """""""" """"""" "  """"""" """""""" """"""" "  """"""" @""""""" """"""! """"""" " " """"" " ""  """"" " "" " "" """"""  """""""" """"""""""""""""""" """ "" """ " """""" "" ! """ " """""""" """""""""""""""""" """""""" """""""""" " """ """"""  " " """"  """"""""" """"" " """""""""""""""" " " """ """"""""" """"""""" ""!" """"""""" """"" " """ " """"" """""  """ """"""" """"" ! """"""""  "" " """"" " """ " """"""""""""""" """""""" "" """"   "" "  "  """"" " "! """ """"""" """"" """""""""""  " """"" " "" """  """""""""" """"""""""""" "  """""  "" " """"" """""""" ! " "" " ""! """"""" """"""""""" """  """"""""" """""" " """"""""" """"""" """"""""  """"" "! """"" """!"""" " "" " """"""""""""""" " "" & "NAME:";N$&& I&H70 &H73&5 &HFFA2,I&N(F$N$"/HR"(I64)&l2M F$,&H4000,&H5FFF,44539&t< I&F &HFFA2,&H7A0&A$: A$"" 30: A(A$(A))'\(SS1: @42,"SCORE:"S;:(X,Y):(X,Y,5): A(A$(A)):A$&( :********************************&O:* *&v:* THE 80-COLUMN DISK DIRECTORY *&(:* BY *&2:* ANDREW AYERS *&<:* *'F:********************************'P:'9Z &HF812,&H21: &HF91C,&H21'Jd 0,63: 8,0'Sn 80'^x 1000'jC0:X2'y I1 11' 0,17,2I,F$(1),F$(2)' F1 2' J1 97 32( (F$(F),J,1)(255) 230 : (F$(F),J,1)(32) 220 : (F$(F),J,1)(0) 220(1Q$(F$(F),J8,3)(MC$(F$(F),J,8)"."Q$(u X,C:C$:CC1: C14 C0:XX15(܋ J,F,I( 2,19: "FREE GRAN:";(0)) 0,15:" -------------- -------------- -------------- ----------------------------------";)/ T0 14: 62,T:"I";: T: 62,15:"+";) 65,3:"THE 80-COLUMN": 65,5:"DISK DIRECTRY": 70,7:"BY": 65,9:"ANDREW AYERS") 0,17:"SELECT FILE AND PRESS BUTTON TO LOAD, SELECT ---- AND PRESS BUTTON FOR NEW DISK";) END OF ROUTINE*"H((0)16 ):V(1)4*&,H2H15*86 H3,V2:" ";*T@ H2,V:">";:H3H2:V2V*lJ (0)0 350*wT 290*^ SELECT FILE*h 0,17:" ";+ r V15 : DO DIR ON NEW DISK+B| T2 13: H2T,V: A$,Z,X,Y: A$"." A$"/"+B$B$A$: T: B$" " : 2,21: "SELECT:";B$;"? (CLICK=YES,=NO)"+ " " : (0)0 400,# 2,21:" ";,m (B$,3)"BAS" : 32: B$,R : (B$,3)"BIN" : 32:M B$:, 2,17:"EXTENSION OF FILE IS NOT STANDARD:SELECT FILE TYPE", 2,19: "BAS": 2,20:"BIN", 2,22:"OR TO ABORT LOAD."-V319-H(0):V(1)-: V45 V320 : V15 V319-^ 6,V4:" ";: 6,V3:"_";:V4V3-o " " - (0)0 470- V319 : 32: B$,R : V20 : 32:M B$:- 530:"BIN", 2,22:"OR TO ABORT LOAD."-V3 @000 ""00""""""330 "3330""""!0" 3330""""! 3333333333"!" !" !3333333333""""""""""#!"""""""""#"""""""""#333330"""""""""#00"""""""""#"""""""""#33330"""""""""#33"""""""""#030"""""""""#333333333333"""""""""" """"""""""""  """""""""" " """""""" """" """""!" !""""" """""""" "  "  """"""   """"""""""""""""" """""" " " "" """"""""""""""""""  """"""""" "" """ """"""""""""""" " """""""""!! "  """"" """"""""""""  """"""" " """"""" " @""""""""""""" " " " """""""""""""""""""   "" """"""""""""""""""" "  " """""""""""" """"""" " " """"""""" """""""""""" " """"""""""""""""""""  " " """""""""""""""""" "  " """"""""""""""""""" "" """"""""""""" """""" " """"""""" """""""" " "" """"" """"""""" ""   """"""""""""""  """"""""""""""  "" h& 1140& 65497,0&;(65535):QW()&L 0,18: 8,0&U 40&d D(64,32)& "NUMBER OF LEVELS";LE&(DS2: N1 LE:DSDS2(N1): N&2MXDS1:MYMX2:PI3.1416:RHPI30180:VTRH1.2&< N1 LE:L100001.8N'F "WORKING ON LEVEL";N'(PIBMX2N:SKIB2'3Z 150'>d 220'In 290'Qx N'jy 0,32: 1, 0: 2,28'u 640'|:' YE0 MX1 SK' XEIBYE MX SK'AXXEIB:AYYE:370:D1D:AXXEIB: 370:D2D(D(D1D2)2(0)L2L4:AXXE:AYYE: 420( XE($ȋ YE:(+:(?܀ XEMX 1SK(U YEIB XE SK(AXXE:AYYEIB: 370:D1D:AYYEIB: 370:D2D(D(D1D2)2(0)L2L4:AXXE:AYYE: 420( YE( XE:(:(" XE0 MX1 SK), YEIB MXXE SK)*6AXXEYEIB:AYYEIB: 370:D1D)O@AXXEYEIB:AYYEIB: 370:D2D)JAXXEYE:AYYE:D(D1D2)2(0)L2L4: 420)T YE)^ XE:)h:)r AYMY 390)|BYAY:BXAX: 400)BYMX1AY:BXMXAX)DD(BX,BY):):*  AYMY 440* BYAY:BXAX: 450*8BYMX1AY:BXMXAX*ID(BX,BY)D:*P:*l XO999 500* ZZ1 1070:Z2ZZ:ZZ1: 620*ꁦ 1090: 610* Z21 ZZ1 610* Z21 ZZ1 Z2ZZ:ZZ1: 620+W3ZZ(ZZZ2):X3(X2XX)W3XX:Y3(Y2YY)W3YY:Z31+3ZTZZ:YTYY:XTXX+D ZZ1 590+K&:+h0ZZZ3:YYY3:XXX3: 950+: 1070:ZZ1:YYYT:XXXT:Z2ZT: 620+D:+NZZZ3:YYY3:XXX3: 950+X 1090:ZZZT:YYYT:XXXT+bZ2ZZ+lX2XX:Y2YY:+v:, 1110,XS.04:YS.05:ZS.04,@ AX0 MX:XO999: AY0 AX,s 370:ZZD:YYAYMX10000:XXAXMX10000YY2, 940: AY: AX, AY0 MX:XO999: AXAY MX, 370:ZZD:YYAYMX10000:XXAXMX10000YY2,Ɓ 940: AX: AY-Ѐ EX0 MX:XO999: EY0 MXEX-IAXEXEY:AYEY:370:ZZD:YYAYMX10000-rXXAXMX10000YY2: 940: EY: EX-~ 1130-:- XX0 800- YY0 RAPI2: 820-RAPI2: 820- RA(YYXX)-* XX0 RARAPI.4R1RARH:RD(XXXXYYYY).->XXRD(R1):YYRD(R1).3H.:R:.Q\RD(ZZZZXXXX).mf XX0 RAPI2: 900.~pRA(ZZXX).z XX0 RARAPI.R1RAVT.XXRD(R1)XX:ZZRD(R1)..:. 470.XXXXXS:YYYYYS:ZZZZZS/ 770/ʁ 860/'ԅ XO999 PR$"M"/@م XO999 PR$"D"/[XP(YY)CX:YP(ZZ)/g聦 1030/m/t:/XPXP0.625:YP33.140.663YP/ PR$"M" X8XP:Y8YP:XOX/ Y8191 Y80 YP191 YP0 0(X8,Y8)(XP,YP),:X8XP:Y8YP:0 $:0. 2 ,0:08:0+B 1,0:02L:0<V 2:0C`:0Lj A$0at 65496,0: 40:0g~/t:/XPXP0.625:YP33.140.663YP/ PR$"M" X8XP:Y8YP:XOX/ Y8191 Y80 YP191 YP0 0(X8,Y8)(XP,YP),:X8XP:Y8  !$%&()*-./123678:;<FRACTALSBAS kCOASTLDRBAS"THECOASTHR0# THECOASTHR1 THECOASTHR2' THECOASTHR3 HISAVE3 BAS BASFRCTCHNGBAS+ISLAND HR0, ISLAND HR1 ISLAND HR20 ISLAND HR3 ISLNDLDRBAS4CHANNEL HR05 CHANNEL HR1 CHANNEL HR29 CHANNEL HR3 CHANLLDRBAS=FRACMENUBAS&  THE COAST:LOADER PROGRAM&/ 110&A N$"THECOAST"&IH2&i 0,32: 1,0 : 2,28: 3,63&q H&( I&H70 &H73&2 &HFFA2,I&