' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( D Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` F d ֠z# u`CXXP(0,J,1)CAP(0,J,2)SA,CYYP(0,J,1)SAP(0,J,2)CAz;CXXP(1,J,1)CAP(1,J,2)SA,CYYP(1,J,1)SAP(1,J,2)CA;500;J;1: LINE ROTATE, TRANSLATE, AND PLOT ROUTINEp:CXXP(1,0,1)CAP(1,0,2)SA,CYYP(1,0,1)SAP(1,0,2)CA:CXXP(0,0,1)CAP(0,0,2)SA,CYYP(0,0,1)SAP(0,0,2)CA:J1M:CXXP(1,J,1)CAP(1,J,2)SA,CYYP(1,J,1)SAP(1,J,2)CA:;XB1953909J9500&9I/9"950C9, GRAPH ROUTINEP96I0N1n9@CA(2IAN):SA(2IAN)z9JX0:Y09T55509^I9hI0N19rCA(2IANANPI):SA(2IANANPI)9|XRM(2IANAN):YRM(2IANAN)955509I:M 8I1M*8B1IIY:M1(RRB1)(IIX)88J1M10_8P(2,J,1)P(2,J1,1)M29999:53308M2(P(2,J,2)P(2,J1,2))(P(2,J,1)P(2,J1,1))8X(P(2,J1,2)P(2,J1,1)M2B1)(M1M2)8XP(2,J1,1)XP(2,J,1)53808P(1,I,1)X9P(1,I,2)M11 7(50072I87< ROTATE AND TRANSLATE BASIC CURVET7FCA(ANPI):SA(ANPI)b7PI0M107ZXP(2,I,1)CAP(2,I,2)SA7dYP(2,I,1)SAP(2,I,2)CARM7nP(2,I,1)X:P(2,I,2)Y7x5007I7 CALCULATE END POINTS8P(1,0,1)0:P(1,0,2)R DEFINE BASIC CURVE=6I0M:P(0,I,1)0:P(0,I,2)IIY:In6P(2,0,1)0:P(2,0,2)0:P(2,1,1)0:P(2,1,2)IY|6I2M106B1(I1)IY6B2IIY6M1(RRB1)((I1)IX)6 M2(RRB2)(IIX)6P(2,I,1)(B2B1)(M1M2)7P(2,I,2)P(2,I,1)M1B1P:ANIIA:SA(AN):CA(AN)D5`P(L,I,J)IXRICA:P(L,I,K)YHISAl5jP(M,I,J)IYRICA:P(M,I,K)P(L,I,K)z5t500:I:5~ ART FORM 15N((1)43)5ANPIN5R((1).2.3)RM:RR1005M((1)30N10)5IYRM5IX(RRR)(AN)M6)4PXIYIX:IA2PIP:4C1IX90:IYCX:J1:K2:YCY]4$C2IX130:IYCY:J2:K1:YCXv4.HIHIIX:RIHI(RI)48N1PX(1)PX6PX6:IXIYPX:IYIYPX:L3:M44BN2IXIY:L2:M44LN3PX((1).8.4)PX:IXIYPX:IYIYPX:L2:M35VI2IX130:IY186:J2:K1:YCXG3HOHOIX:ROHO(RO):IX5RO:IYIYRO[3LN1:IA2PIP3I1P:ANIIA:SA(AN):CA(AN)3P(1,I,J)IXROCA:P(1,I,K)YHOSA3P(L,I,J)IYROCA:P(L,I,K)P(1,I,K)35003I34 DEFINE INSIDE HOOP(S,1),P(3,J,2)2 K2*F24 INSURE THAT NO LINE DUPLICATION OCCURSR2>I1:J1\2HII1i2RK12N~2\JJS:JPJJP2fK2pIPJ1PP1:46702z5002IP468022 DEFINE OUTSIDE HOOPS2C1IX90:IY274:J1:K2:YCY3C1,2)1K1P11*1JJS1:JP1JJP1B1P(2,J,1),P(2,J,2)Z1JJS1:JP1JJP1r1P(1,J,1),P(1,J,2)y1K1J1:((1)25)1P(3,1,1),P(3,1,2)1K1P11JJS:JPJJP1P(4,J,1),P(4,J,2)1 JJS:JPJJP 2P(3,J.5.50HI(1)(1HO)HO50RO(1)PI19:RIROI0P((1)1813)c0S(P((1).25.25))u0&C((1)21)0046700:47700DP1P:S1S0NPP1250XS(S1P1P)0b46700l48800v9500 GRAPH ROUTINE0J11P(1,1,1),P(1,670 /T4770/^4880 /h9504/r GRAPH ROUTINEK/|P(1,1,1),P(1,1,2)[/I1:L1:J1h/K1P1/IIL:IN1L1:II2/JJS:JPJJP/P(I,J,1),P(I,J,2)/500/I14250/L1:K// ART FORM 15/N10HO(1)R.I.. ART FORM 81.N((1)22)C.HO(1).8.2W.HI(1)HO1HOv.(1).50RO0:RI0:4140.RO(1)PI318.N2RI0:(1).50RIRO."N3RIRO2.,P((1)1812).6S(P((1).5.25)).@C((1)21)/J4IR0:3920 -FIRCR(NS1)1007-PDE1200:500:DE@-Z950T-d GRAPH ROUTINE`-nI1NSu-xINSNN324040-CX,CYR-AN0:RRRPR-J1P-ANANIA:CXRR(AN),CYRR(AN)-ANANIA:CXR(AN),CYR(AN)-500:J.RRI(1)4130:3780,C100/,NS((1)C84)H,P((1)115):3830R,C200m,NS(((1)C84)2)2,P(((1)112)2)21,PR(1).6.2,3890, C(1)2040,NS((1)33),P((1)55),(PR1,2RRM:IAPIP -<NS1    ԱΠԱԱԣ Ԡ ŭĠǠ ɭӠŠϠ! Ӡ Ǡ!Πנ "Ůؠ"ŠԠ٠ ĠϠ Ԡ Үʰà* à*̠Š ǠϠ z#500:I:R130İ950+D GRAPH ROUTINEFNJ1:P(1,J,1),P(1,J,2)QXI1PfbJJS:JPJJP~lP(1,J,1),P(1,J,2)v500:IRR(SPIP)3NN1:N0ıNN2617201810 ART FORMS 28 & 16PR1:1990 PR1:DE11II1:JJS:JPJJP;IPJ1P150PP1:1750N500:IP1780AN2PIP:IRCYCXR:KP:P(1,1,1)CX:P(1,1,2)CYIRI2(P21)&A(I1)AN:PXR(A):P(1,I,1)CXPX:P(1,K,1)CXPX:P(1,I,2)CYIR(A):P(1,K,2)P(1,I,2):KK101)9110):PR((1)5110):N((1)43):1730TP((1)12130):PR100:N1:1730lN((1)52):R130P((1)9110):PR((1)5110):1740R130PR100S(P2):1770A1PR100S(((A(AA1))1.5708)PPI.5)I1:J"IX0:IY0:((1).5)0IXL:1590.,IYL@6XXIX:YYIYX@X279XX10:1600nJX0XX10:1610TY191YY10:1620^Y0YY10:1630hX,Yr6,((XY)2):7,((1)41):768|500I: ART FORM 17,6,26.P((PH ROUTINEGC2 I1P1MX,YPYXPX,YX,YPYXPX,YX,YPY:500hPXPXIX:PYPYIY:I:z ART FORM 24DE1300:500:DEX((1)180):Y((1)192)2740:950 GRAPH ROUTINEX,YI1300L((1)RMRP)%50P GRAPH ROUTINEUZI1C:PYCYRP(I2PIC):PXCXRP(I2PIC):PX,PYRPdA1P:PXP(1,A,1),PYP(1,A,2):A:500:I:n ART FORM 12xP((1)256)DE1200:500:IX130P:IY90P:X140:Y95:PX130:PY0950  GRA00: ART FORMS 22,5,118P((1)85):CP:1330` P((1)93):C((1)2130):1330iP33NN11C((1)85)(NN29C((1)1120)2DE1200:500:DE<AN2PIP:I1P:P(1,I,1)RP(ANI):P(1,I,2)RP(ANI):500:IF9J1:NN18J((1)P1);K1P:1260:K:NN25ıPNN4NN181230hJ2:K3P:1260:KJP:K1P:1260:K:NN181250JP21:K1P:1260:K:J((1)P1):K1P:1260:K:P(I,J,1),P(I,J,2)P(I,K,1),P(I,K,2):51:AN2PIP/VP(1,1,1)CX:P(1,1,2)CYRM:KP`J2(P21):PXRM((J1)AN):P(I,J,1)CXPX:P(I,K,1)CXPX:P(I,J,2)CYRM((J1)AN):P(I,K,2)P(I,J,2):KK1:500:Jj950t GRAPH ROUTINE~NN311180J1P1:KJ1P:1260:K,J:#7::CX,CY:62454:4:CS7:A ART FORMS 31,25,10,4,18nDE1200:500:DE:P((1)1110):1100P((1)2190):1100$P((1)5120):1100.P(((1)2120)2)2:11008P((1)6120)B DEFINE POINTS AROUND A CIRCLE LINNNN1%:10:14:"I'M THINKING".670R ART FORM NUMBERING SUBROUTINE`FL1980j1010::10:13:"ART FORM # ";NN62450:DE1100:500:DE CHOOSE SCREEN COLOR - WHITE ON BLACK OR BLACK ON WHITE(1).50Đ:7:CS4$:A$;:X(0)1)RA$:C(A$):C13920J\C8X(0):X:" ";:X:830afC48C57ĖX:850}pC$C1$A$:A$;:X(0)1zA$:C(A$):C13920C8X(0):X:" ";:X:C$C1$:850890NN(C$):NN1NFNNĖIX:" ";:IX:830FS12320,3800,1280,3340,1500,1050,1710,3330,1970,1300:670Y NN293400,1040,3760,3450b670~  ART FORM NUMBER INPUT*:" PRESS WHEN YOU HAVE TYPED IN YOUR ENTRY...";4IX(0)1>A$:C(A$):C49C57ĖIX:830HC1$A$:C$AELECTIONFR17106FS1NNNN1:NNNF1NN1QFS1NN((1)NF1)q(NN101)720,740,760,780NN4990,3320,2950,1070,1290,1700,3850,4060,3320670NN91060,1300,1400,2600,3330,4320,1980,1690,1080,33406701NN19: b54915lFS0uvFR1:::10:" SELECT THE ART FORM (1 TO ";NF;") THAT YOUWANT TO RUN CONTINUOUSLY.":80054915FR0FS1:::10:" SELECT THE ART FORM (1 TO ";NF;") THAT YOUWANT TO START THE SEQUENCE FROM.":800 ART FORM SAA2AA3AA4AA5AA6AA7ıEAA1Č54915:FS0:FR0:100 CALL 54915 RESETS THE GOSUB STACK TO ZERO WITHOUT AFFECTING ANYTHING ELSE&AA2ľA$:0AA3640:AA4610DAA5FL(FL1):NAA6Č54915:FS0:FR0:670X:z#    ԱΠԱԱԣ Ԡ ŭĠǠ ɭӠŠϠ! Ӡ Ǡ!Πנ "Ůؠ"ŠԠ٠5 ĠϠ Ԡ Үʰà* à*̠Š ǠϠ ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE(oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL              ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ?6Mr`%_dc9_d2e@p(ŠŠӠˠӠ)\d2e da@E()]ҠǠ!q8;@rr`%q Pa@[?[ KM6N@"(r@p()]̭o@p(Š)\1(o@p(ӠΠ͠)\"2o@p(٠)\<a@E(ĠҮʰ)FM@Po M6@p(ԠŠҬî)\Zq.  1980,1982":1000O ZC(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":1000:^ d(4);"FP"u  CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASIC P10:958:A$"COPYRIGHT APPLE COMPUTER,INC.  ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H 0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ) 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ $v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00          `xJ W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWPΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơeʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWa()oPa()0Mdedededeod"e M62a(ӠΧ٠ϠΠ٠)GR@ M6'@p()\]ԠǠ*oPd2e?a()d2eŠˠΠ)ccxMq.?rde.?r]de.?r]@@p()qq\qq.?r\qq4@p()q\qq\q q2oP  K]]ˠ٠(]Ԡ٠2]ŠҬî<]F]Za(Ġٮʰ)]ð dN@"r=nN@"(rM6a(   KETTE IS WRITE PROTECTED. REMOVE WRITE PROTECT TAB.``````WRITTEN BY JAMES R. HUSTON DECEMBER 15, 1978 (THIS MESSAGE IS FILLER, WHY READ IT?)DISKETTE AND PRESS [RETURN] TO REBOOT DOS  UNABLE TO READ IMAGE.  IMAGE OF DOS 3.3 (MASTER) IS NOT AVAILABLE. CHECK INSTRUCTIONS.  UNABLE TO WRITE. DISKETTE MUST BE INITIALIZED PROPERLY. CHECK DISKETTE FOR PROPER INSERTION.  DIS HAS BEEN UPDATED, YOU MAYREMOVE IT AT THIS TIME. IF YOU WISH TO "MASTER" ANOTHER DISK- ETTE, PRESS [RETURN]. OTHERWISE PRESS [ESC] TO EXIT "MASTER" IF YOU WISH TO RETRY PRESS [RETURN] OTHERWISE PRESS [ESC] TO EXIT "MASTER" INSERT A SYSTEM R PLACE IT IN THE DISK DIRECTORY THIS IS THE FILE NAME THAT WILL BE PLACED WITHIN THE IMAGE: PLACE THE DISKETTE TO BE MASTERED IN THE DISK DRIVE. PRESS [RETURN] WHEN READY NOTE: IF YOU WANT A DIFFERENT FILE NAME,PRESS [ESC]. THE DISKETTEDOS 3.3 MASTER - CREATE UTILITY COPYRIGHT APPLE COMPUTER,INC. 1980 ALL RIGHTS RESERVED. (NOW LOADING DOS IMAGE) PLEASE INPUT THE "GREETING" PROGRAM'S FILE NAME: REMEMBER THAT "MASTER" DOES NOT CREATE THE "GREETING" PROGRAM, O`H Xh%` 1L68793` ɍɛ`,ɠ1ɍ ɬ 8`1` d ihimm7`H P^ȱQ_Odhp` a & C   #    LLF LM In4If+ L    j H 1u+      9 J  q      9   Lk    9 eJJJJ l    9 LN H h0   "THIS PROGRAM REQUIRES THAT THE FILE"c :QUOTE$"MASTER CREATE"QUOTE$" BE PRESENT ON THIS DISK"o BEL$: "PLEASE CONSULT THE DOS 3.3 PROGRAMMING" :"MANUAL FOR ERROR #"(222) BEL$:(  2000:*D$(4): CTRL-D C!QUOTE$(34): QUOTEe$BEL$(7): CAUSES BELL SOUND(10::A$"EXECUTING MASTER CREATE":1000:2D$"BRUN MASTER CREATE" CENTER STRING A$(20((A$)2)):A$:10:(222)6ī2040&  ):K128330:16368,0:K141340:KK176:KLKH330:NKSO16368,0:K141340lPKK176:KLKH330tQNKT20:N;" ":^:22:"DEFAULT = ";:hMSSSırMDSDıw:(DK$,1)"D"ĺ|"INSERT ";DK$;" DISK AN19::16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300Z '(I$,1)"Y"160p ,(I$,1)"N"290 1::672:70,70: 6:1:I$;" SLOT: ";:L1:H7:350:N;::30:330: @350:N;::4:" DRIVE: ";:L1:H2:330::JK(16384DK$"DUPLICATE":360: GET DUP DISKH 8:24::"WRITING";::" "a 710: WRITE A HUNKw 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"E " ERROR!, 5:24:" ":(713)1290G FT255: NOT FIRST RDo DK$"DUPLICATE":360: GET DUP DISKy 275 8:24::"INITIALIZING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256% "3 704:717,SS16:718,MS16:719,SD:720,MDH 17:34,16:936U :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280: PROGRAM"::# Z704:CS(718)16? d715,(110)1:BUFSTARTY n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" *% ************************C* DISK COPY *a* COPYRIGHT BY *(* APPLE COMPUTER,INC. *2* 1980 *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISK DUPLICATION `LH =<``+=h<<ȭJJJJ<`LLL <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   Ӡ)GR@ M6[)GR@ M6[1R@ M6[`R@ M6[ [ź)Gqq\[Fq.?6@r`$d6?e`$q`$q"PbE()["d2e?Pa(Ԡ)G[ `%[ `%[M6`@*#r9()%c1a(Ԡ)E@E(ˠĠ)hod2ed6?ecS(ϠՠȠϠŠҠٿ)&@`;@r$`@*#r9()$`@*#r:()$KM6M ZQHcPa@E(Ժ)Gqq\bGd2e\de[@\bGd2ePa(@p()\]ԠР5ToPd2e?a()Gd2ea()G^M]ŠhoPa()r`.?r$9|od2e?a(ŠϠŠ)_3od2e?a(ŠϠĠM]Ġ`.?r$]ҡoPa()`.?r$"`$J]ԠԠ&,@p()\]ԠР/6oPd2e?a()d2e5@a(Ԡج)FE()FE()F.?rq_T&Jħi `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶giihijg` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eѥȥ񥰶L & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ML#gL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lyi<>zi=i??><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLKA$ (A$)3Ā( (A$)131150T :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" (4)"MAXFILES 3" ' DO NOT CHANGE 10010 '(121)(122)256316A:S$: B1:S$;:40:S$:E L::"RENUMBER (DEFAULT VALUES)"w V:"& [FIRST 10] [,INC 10] [,S 0] [,E 63999]" `:"MERGE" j:"&H PUT PROGRAM ON HOLD" t"&M MERGE TO PROGRAM ON HOLD" ~23: "PRESS 'RETURN' TO CONTINUE..."; -=============>RENUMBER<===============<:::255VS$"&":1080:2:10903:"&";:12:"APPLESOFT RENUMBER";:40:"&":4:1090$5:"&";:4:"COPYRIGHT APPLE COMPUTER,INC. 1978";:40:"&".6:1090:7:1080::1100 8A139:S$;:  iq imo 膢 ȱ " [67 l67  8ij  o>C";DK$Y936_ADK$t936z STRzmWWX` `EF^_ 0^/_ F̞`EF `HHH0/0+>1jj/9hhh`( 12 1㎓0%` f`ST`LȱM`LȭM`EFST ` ` I,`EF^ȹ^Ȍ  F`,0 0S/TEF$-0 ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭS T   ` /H h/ ` % fɽR ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̆ $U+  # o? : L  hh` %)`ʽR08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈR`  UɽR 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` SSTT`S T8`STEF  `iiiRLk SLk H m hLk T%SRsU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L O D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,       RES THAT THE FILE"E :QUOTE$"FID"QUOTE$" BE PRESENT ON THIS DISK"Q BEL$: "PLEASE CONSULT THE DOS 3.3 PROGRAMMING" :"MANUAL FOR ERROR #"(222) BEL$:  2000:*D$(4): CTRL-D C!QUOTE$(34): QUOTEe$BEL$(7): CAUSES BELL SOUND(10::A$"EXECUTING FID":1000:2D$"BRUN FID" CENTER STRING A$(20((A$)2)):A$:10:(222)6ī2040 "THIS PROGRAM REQUI  NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0n o00Щ莻ɽదɬnɽ̻ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ) ; <7698  ; ` o ɱɸ" L; )9 o ɱɳ# L_ )7`  o ɱɸ" L )8 o ɱɳ# L )6789<<` L  D5   , b Y L> b @   Lvم38%0` X L8 :   < `" X    i(  ! o , и` X$i( " X ,           REQUIRES THAT THE FILE"N :QUOTE$"MUFFIN"QUOTE$" BE PRESENT ON THIS DISK"Z BEL$: "PLEASE CONSULT THE DOS 3.3 PROGRAMMING" :"MANUAL FOR ERROR #"(222) BEL$:  2000:*D$(4): CTRL-D C!QUOTE$(34): QUOTEe$BEL$(7): CAUSES BELL SOUND(10::A$"EXECUTING MUFFIN":1000:2D$"BRUN MUFFIN" CENTER STRING A$(20((A$)2)):A$:10:(222)6ī2040 "THIS PROGRAMŰՠŰŠĠԠԠՠ ȠԠҠ̠ƠŠҠϠՠŠ+RRĠՇؠƠԠՠNàҠƠҠԠՠΠzӠŠՠ͠ȠŠŠƠ͠ƠԠDzՠŠŠՠԠҠǠҠ ԠՠӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҬƠŠǠӍӠ٠٠ϠŠčӠōōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ%;HSd+2EOTkxŠԿſΠԿſſԠ˨өӠþϠ΍ϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LŠ àՠźҠӻ՗ࠠԠҠոƠƠՠӠe h RRRRR=JWdv&dsK/М LHHH@!>?ABI JL>L?Mhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  aI꽌ɪ򠚽ɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)Ƣ2>&JJJȱ>'JJJ3ȱ>*JJJfȱ>J&*J&'J&&ȱ>J&*J&'J&*)')3*)f>)JJJ`80|'x&Hh &    Y'&Yxꪽ'    `Hh` ĠzŠՇƠҠΠàԴȠҸҰϠ ՠŠŠΠɠҠŠӠϠӀà̠€ՁࠠƠγƠҠӠӻƠ̠ŀՠȠϠŠԠٿŠōȠĠՠſĠĠԠӍԍŠDӝ"$ΠՠŠՠΠĠԠŠҬƠŠǠӍӠ٠٠ϠŠčӠōӠčϠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ӠϠҠΠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿōϠӠ'4?Pv1;@WdrrrrrŠԿſΠԿſſԠ˨өӠþϠ΍ϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠנŠŠҠŢɀ@ 4 L 5  LƠ̠ࠠŠźΠϠ΀ŠɠàԷԠРŠϠt h "#!$6CPbt~?P_d ㎬М 4LHHH:612 L] 34Lhhh`HHH J ( 4L <hhh` : :4  ,>  4,$ 12 """zm"""` 3` # # 1 "2 " ̷`12 `HHHμ0+>jj9hhh`( 68>` `1#2#34`ȱ`ȭ`#1#2 13` ` X,3` #1ȹ #2Ȍ 1 `,30 "" = ` ` : :   oOɃ  hhhhhh`DDTPɍɬCDL$,)  o : L  `   DLI,ɽ! ʎ`8`HH nɽ"̿̿88hh` ȹHH`hh" XL  < L < < B,30ޭ# #   ` H h ` $>=!D  # o? : L  hh` >)`ʽ!08`  `  ?,06 /,0&莽 ,0ȌP8``Ȉ!`  nɽ! 莼Ȍ`8`  n$'   hhh`, `Hh`h`< q  ` Y  < LK ` !!`! !8`!1!2  `iii!Lk !Lk H m hLk !>!2!1!! aI꽌ɪ򠚽ɭ&Y &&Y &  꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`*x'8*xx  ')  x) `0L>` x Nx e.x-  ,`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')>JJJ >`> ?  ? JJJ ?`l (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<  XM  3 jɍ!ɱɸ) 2 C  `L ҠԠٍԠŠҬîԠϠԠ͠Խ REQUIRES THAT THE FILE"N :QUOTE$"BOOT13"QUOTE$" BE PRESENT ON THIS DISK"Z BEL$: "PLEASE CONSULT THE DOS 3.3 PROGRAMMING" :"MANUAL FOR ERROR #"(222) BEL$:  2000:*D$(4): CTRL-D C!QUOTE$(34): QUOTEe$BEL$(7): CAUSES BELL SOUND(10::A$"EXECUTING BOOT13":1000:2D$"BRUN BOOT13" CENTER STRING A$(20((A$)2)):A$:10:(222)6ī2040 "THIS PROGRAM / A K /EAEKHJJ݌h F HhHh݌FG$Ki K ,KLHhG02HhHhHh e- GLAA# GȄGL@L9L7HJJ݌h Hhꝍ݌`  7H/LHH/Hh/ ۠-HЕ( ( $8 H` jHEjNWbՑ]mAp񩠅aL92DWbr:# LINE# > .STRING. .OLDSTR.NEWSTR. SOURCE FILE<#> # p 8e  Lȱ7 ) LhhLB  H>ȥ')>JJJ >`+*xS&x'8*3Ixix&& 8 l {' o {& {x)*++`FG8`0($ p,&"USEDBY (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>WL,20:WW,20:WT,0:SR'J1J:5&16301,1S&WL,0:WW,40:WT,0:WB,24d&21:1:958&23:2::" HIT ANY KEY TO END ":&T$&0:0,390&I139:SR:':''IW1W::*INITIALIZE+BB$(2),BM$(4),MB$(2),MM$:WW,20:WT,0:WB,12:J0%I11002(1)16@J15545IJ=0W22,2519m(1)16:0,3923WL,0:WW,40:WT,0:WB,12:SUWW,20:WB,24:SL5560J=122,2520(1)16:0,3924WL,0:WW,40:WT,12:WB,24:SDWL,0:WW,20:J0*I150:(1)1690,47J19FJ0ČSLSJ1ČSRfJ1J:WL,J20lWL,0:WW,40:WT,0:WB,12:J0I150(1)160,39J23J0ČSUJ1ČSDJ1J:WT,J12:WB,(J1)12 |WL,0000 WT,0:WB,12, I19:SU::10000D I19:SD::10000O WB,24` WL,0:WB,24y 1:0,3922:0,3923 I120 WW,20:WT,0:SL WW,40:WB,12:SU WL,19:WW,21:WB,24:SR WT,11:WL,0:WW,40:SD :10000?WT,0 I13:SR: I19:SU:1 W500:10000< WW,20G I13U (WL,0:SLd 2WL,19:SRj <u A10000 FI13 PWL,0:SR ZWL,19:SL d wW500:10000 xWL,0:WW,40:WT,12:WB,24 I19:SD::10000 I19:SU::10GRAPHICS j1:0,0:0,1/ tI147:SR:SD:: ~V25K L(L$(V))1V BB(V)a H0L| BH,((L$(V),H1,1))   5:L5$ W1000:10000 I17:SR: I118:SD: I17:SL: I118:SU: I118:SD: ,10000 -I110:SD:- /WL,14:WW,26G 112:16:" SCROLLING"R 210000d 3I115:SL:v 5WL,24:WW,16 723:1:" EXAMPLE" 810000 9I111:SU: ;WL,0:WW,40 =W2000:10000 L V16302,0:16304,0: GO TO FULL SCREEN ROLL SUITE"+ SU768:SD806:SR848:SL885G WL32:WW33:WT34:WB35M T 2i " HELLO THERE!"{ I113:SR: I111:SD: W2000:10000 W500  12:" A" 10000 $I16:SR: )WL,8:WW,32 +2:1:" SMALL" **********************9* SCROLLING DEMO *U* BY ROBERT A WELLS *q* COPYRIGHT (C) 1982 ** BY MICRO-SPARC INC ** LINCOLN, MA. 01773 *********************** HELLO WITH SCROLL DEMOd11000 (4);"BLOAD SC   "H $(*)+!hi# H $(*0`#8H $(*)+!h8"0 H $(*0`"#H $(i*)+!(*hi`!8"#H $(i*)+*(hi` DRIVE IS "DR140,10,3,96 Z768 d8 n NOW GET THE IOB ADDRESSS x & CONVERT TO DECIMALY s IOB(778)(779)256z "LAST" SLOT # AT IOB+15 "LAST" DRIVE# AT IOB+16 SL(IOB15)16 DR(IOB16) "CURRENT SLOT IS "SL" AND  :- THIS PROGRAM DETERMINESK( THE ADDRESS OF THE DISKj2 INPUT/OUTPUT BLOCK (IOB)< AND THEN USES THE > ADDRESS TO DETERMINE @ THE CURRENT SLOT ANDB DRIVE IN USE.FX09:A:768X,A: P 32,227,3,141,11,3,     N039:"*";::; 7);"WHILE YOU ARE READING THIS"A #m (4);"1 LINE IS BEING DRAWN ON PAGE 1,"s - 211);"2 LINES ON PAGE 2," 7 <10);"AND 3 LINES ON PAGE 3" A F3);"OF THE HIGH RESOLUTION DISPLAY AREA." P::N130 **********************; * HIRES PAGE 3 DEMO *X * BY HARRY WHITE *u * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC * * LINCOLN, MA. 01773 * ********************** ::" APPLESOFT HI-RES PAGE 3 DEMONSTRATION"  !!! ! 18/L$ 20,14,13,13,15,20,27,19,15,14,14,14,15\L. 15,11,10,10,12,15,20,15,13,11,11,11,12L8 10,8,7,8,10,13,18,23,16,12,8,7,6LB 5,4,5,5,4,6,10,14,18,13,10,8,8,8,25,28,30,31,32,30,28,28,30,35,33NK 45,23,25,31,34,33,32,30,28,27,30,35,33{K 40,22,24,30,38,33,28,26,26,27,28,30,31K 35,20,22,27,32,27,27,25,24,24,24,25,27K 30,20,21,22,22,24,25,21,20,20,20,21,22L 25,16,15,15,17,21,26,20,17,17,17,17,`J ERASE PARALLEL TO THE DRAWN LINE BUT JUST BELOW, ALL THE WAY DOWN TO LOWEST POINT PLOTTEDfJ:}JXL%,B2X%,C2:AJ3: WHITEJXL%X%:HL%H%: SAVE THIS POINT FOR NEXT TIMEJPNT:LOWESTTEMPLO:LINE:J:J DATAJ:!K 50,23%I|(H%TEMPLO)TEMPLOH%IIXL%,HL%X%,H%: LAST POINT TO NEW POINTOI:eI ERASE PROCEDUREkI:ILINE1480: NO ERASING NEEDEDI0: BLACKIAHIGHESTLOWESTIBHL%:AHL%BAICH%:AH%CAIC177C177:B177B177J:SPOT%(LINE,1,2)(THETA)3Y%DHJLINE1ĭ(HL%TEMPLO)TEMPLOHL%SHTPNT2NP%H^X%SPOT%(LINE,PNT,1):Y%150LD%(LINE)(THETA)HhH%SPOT%(LINE,PNT,2)(THETA)3Y%Hm SAVE HIGHEST VALUES FOR LIMITS TO ERASINGIrHIGHESTH%:HL%H%HIGHESTHL%(LINE): DISTANCE FROM VIEWERYGPNT1NP%:SPOT%(LINE,PNT,1)PNT20:SPOT%(LINE,PNT,2)GPNT,LINE: DO EACH POINT AND LINEGG):G* DRAW PICTURE SUBR.G+:G,:TEMPLO1:LINE1NH%G6XL%SPOT%(LINE,1,1):Y%150LD%(LINE)(THETA)H@HL%NFxSPOT%(NH%,NP%,2) F200)F:3KF300: LOOK FROM GROUND LEVELsF21:958:"VIEW FROM ANGLE ";THETAFTHETATHETA3.14159265180F300F160F:F READ IN DATA SUBR.F:F20:7::"READING DATA":FLINE1NH%GLD27::" ";E2" ";::" 3-D CONTOUR MAP DISPLAY ";::" "RE<" ";::27::" "yEF:" ":EP10:7:"R. M. SMYTHE"Ea:Eb MAIN PROGRAMEc:EdNH%10: NUMBER HORIZONSFnNP%12: NUMBER OF POINTS ALONG EACH HORIZOD **********************;D * THREE-D MAPPING *XD * BY R. M. SMYTHE *uD * COPYRIGHT (C) 1982 *D * BY MICRO-SPARC INC *D * LINCOLN, MA. 01773 *D **********************D::" " E(" ";::      B$MM$(2)BB$MM$BB$MM$(4)BB$,L$(5)MM$(2)BM$(3)MM$(3)BM$(2)MM$(2)BM$MM$(2)BM$MM$(2)BM$(2)MM$(2)BM$(4)MM$BM$(4),B(2)1152:B(3)1280:B(4)1408:B(5)1536.3$(2)MB$BM$(3)MM$MB$BM$(2)MB$MM$BB$BM$(2)MB$MM$MB$BM$(2)MB$MM$BB$MM$(4)BB$+L$(3)MM$(2)BM$MB$(2)MM$(2)BB$MM$(4)BB$MB$(2)BM$MM$BB$MM$(2)BB$MM$BB$MM$(4)BB$ $,L$(4)MM$(5)BB$MM$BB$MM$(2)MB$MM$BB$MM$BM$MB$MM$B(5),L$(5),B(5)* +BB$(0):BB$(2)BB$BB$G+BM$(16):BM$(2)BM$BM$r+BM$(3)BM$(2)BM$:BM$(4)BM$(2)BM$(2) +MB$(1):MB$(2)MB$MB$*+MM$(17):MM$(2)MM$MM$,+MM$(3)MM$(2)MM$.+MM$(4)MM$(2)MM$(2)0+MM$(5)MM$(3)MM$(2)[\+L$(2)MMIZE2:60:$ A$"H"SIZE3:60:= A$"J"SIZE4:60:V A$"N"SIZE5:60:o A$"M"SIZE6:60: A$"P"İ340: A$"R"İ350: A$"L"İ360:7X,Y:340: A$"S"İ380: A$"*"ēX,Y:62454:7X,Y: A$"Q"İ730:E$:ɭA$"G"H1:60:' xA$"V"H2:60:= }A$"W"H3:60:S A$"O"H5:60:i A$"B"H6:60: A$"X"H0:60: A$"F"T(32603T):T,0: A$(32)D3D:60:Z(0): Z0Z10B%Z:60: A$"Y"SIZE1:60: A$"U"S50k <21::X$" "(X):Y$" "(Y):22:"X=";(X$,3);:10:" Y=";(Y$,3);:20:"COLOR:";C$(H):H: A23::23:"DRAW:";:D1ĺ"OFF";:75 F" ";::"ON";: K10:" STEP:";B%;:20:"PENCIL:";SIZE;:" (Q:HELP)": d i TRAPS n s$(I): #232,252:233,299 (D$;"BLOAD ARROW7,A$1DFC"V -D$;"BLOAD MOVE.X,A$300" 2X140:Y80:H3:B%1:D1:SIZE1:C1283.141592654:H:T16301 7:10:15:"SOUTHERN DRAW":15:"BY DON O'SHEA":18:"(C) 1982 BY MICRO-SPARC, INC.":I12000:I:4  **********************; * SOUTHERN DRAW *X * BY DON O'SHEA *u * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC * * LINCOLN, MA. 01773 * **********************D$(4):BELL$(7): C$(7),D$(2):I07:C!!!!!""" " " " " 3)9092:B(B):,F2B(I)9092:B(B):KF6B((I6))9092:B(B):140:S(16336)::A$EA$EFJ,EK:JEA(I3)100150:A(A):hEA(I3)100150:A(A):E A(I2)100150:A(A):EA(I3)100150:A(A):EA(I)100150:A(A):E'B(I)9092:B(B):E*B(I3)9092:B(B):F.B(ID BY BILL FORTENBERRY&DJ154DX1103=D:3EDI1eD J1000,2000,3000,4000,5000D J10000,11000,12000,13000,14000D A,BDI1360XXDJ1000,2000,3000,4000,5000D(J10000,11000,12000,13000,14000D2A,BD<E?I! ! !!!1(HX$):511I,((HX$,I,1))128::72,0W v144: CAN'T CALL -144 FROM A SUBROUTINEg N15000:o :{ 10:15 "THAT'S IT."N15000:)  *** MOVE PAGE 2 TO PAGE 1I HX$"2000<4000.5FFFM D823G"z I1(HX$):511I,((HX$,I,1))128::72,0 144: CAN'T CALL -144 FROM A SUBROUTINE 0N15000: X *** MOVE PAGE 3 TO PAGE 1 bHX$"2000<6000.7FFFM D823G") lICLEAR AND DRAW ON PAGE 3$ 6230,96/ @62450] T30,20250,20:30,30250,30:30,40250,40  *** GET MESSAGE TO CONTINUE 20 "PLEASE PRESS A KEY WHEN READY TO VIEW" "THE MOVE." A$ 16297,0:16300,0:16302,0:16304,0 N00:2 Z"PAGES 2 & 3 WILL THEN BE MOVED TO PAGE"H _"1 FOR VIEWING."k d *** CLEAR AND DRAW ON PAGE 1w n230,32 x62450 3 140,0140,90 *** CLEAR AND DRAW ON PAGE 2 230,64 62450 30,030,190:250,0250,190 , *** PI3.141592654:CX140:CY95:RM90:RP45W A173:A272:A383:A482:A578:A632:A727n FL0:FS0:FR0:P0| CS0:CG0 PK16384 NF33 C$"":C1$"" P(4,150,2):   PROGRAM CONTROL (PK)128ı A$:A(A$)%AA1" SPACE BAR - CONTINUE RANDOM DISPLAYS"O :" ESC - ESCAPE THIS PROGRAM"n 62450: CLEAR HGR2 SCREEN| 16368,0 :20:"YOUR COMMAND? ";:A$:A(A$) AA1AA2100 "AA5FL1:670 ,520 6100 @ CONSTANTS AND DIMENSIONS) ICTURE UNTIL ", 8:"IS PRESSED AGAIN"] :" S - 'SEQUENTIALLY' RUN ALL ART FORMS" :" R - 'RUN' ONE ART FORM CONTINUOUSLY" 8:"UNTIL THE SPACE BAR IS PRESSED" :" N - START OR STOP 'NUMBERING'" 8:"THE ART FORMS") :RUCTIONS n::< x" THIS PROGRAM RANDOMLY DISPLAYS A"e "VARIETY OF GRAPHIC ART FORMS. TO" "CONTROL IT, USE THE FOLLOWING SINGLE" "KEY INSTRUCTIONS AT ANY TIME:" :" I - DISPLAY THESE 'INSTRUCTIONS'" :" H - 'HOLD' THIS P:::7:9:"APPLE ART GALLERY"::F 29:"COPYRIGHT (C) 1982"::f <9:"BY MICRO-SPARC, INC." P320: VARIABLE INITIALIZATION Z23:6:"PRESS SPACE BAR TO CONTINUE..." \16368,0 ^A(1):(16384)12894: RANDOMIZES RND(I) d INST3 ***********************= * APPLE ART GALLERY *[ * BY EDGAR J. YOUNG *y * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC * * LINCOLN, MA. 01773 * * ALL RIGHTS RESERVED * ***********************#24576% (""""""               / @ 0`".f"*:CLEARS SCREEN Y(SIZE1) DRAWS LINE"_p"TO CHOSEN COLOR EQUAL TO # OF STEPS":z BLACK1," GREEN",VIOLET,WHITE1,BLACK2,ORANGE," BLUE ",WHITE2:"PENCIL SIZES":A*"W(HITE1) Y:^ U:*^ H:*^ J:*^*"p4"O(RANGE) 1 2 ** 3 ** 4 ***">"B(LUE) ** ***"H"G(REEN) N:5X5 M:7X8"R"V(IOLET) 5 6"\"X:BLACK1""PADDLE 0 DIRECTS IT P(UT PG1 ON PG2)"X"BUTTON 0 MOVES IT R(ETURN PG2 TO P1)""1-9:STEPS PER MOVE L(OAD FROM DISK)" "SPACE BAR TURNS S(AVE TO DISK)""DRAW ON AND OFF F(ULL SCREEN TOGGLE)" :"COLOR CONTROL";::(21):OUTINE (IF D=2)I,ND1ĕ7X1,Y1:460QXSIZE1ĕ7X1,Y1:X1,Y1X,Y:460pb7X1,Y1:1:SIZEX,Y:460v PROGRAM COMMANDS::14:"SOUTHERN DRAW":14:"BY DON O'SHEA"::"PENCIL CONTROL";::(21)::"SCREEN CONTROL":*16368,0:Z127A$(Z128):Z(A$):105F(16287)128ĕ7X,Y:470]W(0)C:X1X:Y1YsXX(B%(W).5)YY(B%(W).5)Y0Y0:BELL$;X0X0:BELL$;&Y191Y191:BELL$;0X279X279:BELL$;:60?D DRAW RA$2000"::60:9|:21:"FILE TO BE SAVED: ";F$:7X,YT(F$,1)(27)ė:60:D$;"BSAVE ";F$;",A$2000,L$1FF8"::60: MAIN PROGRAM KEYBOARD AND PADDLE ROUTINES:604(0)4:7X,Y'Z(16384):16304,0::60: BELL$;:+ BELL$;:1 ,F 6 SCREEN CONTROLX @ SUBROUTINES^ J| T7X,Y:4,0:768:7X,Y: ^7X,Y:0,0:1,64:2,0:3,32:790:7X,Y: h:21:"FILE TO BE LOADED: ";F$ m(F$,1)(27)ė:60:rD$;"BLOAD";F$;",