' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   LDcpq` [` ~  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õ`  \ 濭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- (  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`FY:20010#%NA,B,C#*N%#}D$""1#}:936D# }D$;"RUN MENU"W#}D$;"RUN MENU"]#}DM:S114050"6SS1:140204"616000:DMDMLY:D":XDM15050\":MOMO1:MO13MO1i"::A,B,C":13000:14000:X1":">LY0:IN%YE4:IYE4">MO216030">IN%ILY1">LY1(YE1000)YE1000LY0"> # N:FC1AFD:BFM:C+ 32,29,32,31,32,31,32 ,32,31,32,31,329!.Q!.FC1ćA,B,C:12030_!.DA,MO,YEu!.MO2İ120:12050~!/110!/!2SMO:XDA!2COL$(0),COL$(1),COL$(2)!2S113050!2SS1:13010!2!6:A,B,C:SMO!6I136:X$:I "6R ONE RUN OR FOR A NUMBER"* $"OF RUNS."L $"0 RETURNS YOU TO THE MENU." $:"THE PROGRAM WILL PROCEED WHEN YOU HIT":"A KEY." $::XX$:10000 '16368,0:::2 * J,A,N,F,E,B,M,A,R,A,P,R,M,A,Y,J,U,N,J,U,L,A,U,G,S,E,P,O,C,T,N,O,V,D,E,C3! DAY , MONTH AND YEAR":E#"FOR EXAMPLE ( 21 , 8 , 1978 ).":::S#FD,FM,FY\#FC1e#200$:"WHEN THE NAME IS ASKED YOU GET DISPLAYS"$"BY HITTING NUMBERS BETWEEN 1 AND 8"$"9 ALLOWS YOU TO CHANGE THE FORSCAST" $"DATE EITHER FO:"1 DATA DAY , MONTH , YEAR "::"AT THE MOMENT THE FORECAST DATE IS":SK#::P#:A,B,C:" 1 DATA ";A;" , ";B;" , ";C:Z#23::" TYPE ";::" RUN ";::" WHEN FINISHED. "d#15::#:"FOR A SINGLE FORECAST YOU MUST TYPE":#"IN THE(# FORECAST DATE2#:"DO YOU WISH TO CHANGE THE FORECAST"::"DATE PERMANENTLY (TYPE P) OR MAKE"::"A SINGLE FORECAST (TYPE S)."7#:"OR INFORMATION (TYPE F)."<#:X$:X$"S"9100A#X$"F"9400IF#:"TO CHANGE THE DATE PERMANENTLY TYPE":16384)127XXA+z:(16384)1271000057015?@::fJ:16302,0:I3947:0:0,39I:IOK((1)151):A(1)2:AA5:KTX039:XX(X18)3:YAXX2:Y47Y47^47Y,47X:(16384)127X39hX:(16384)127100008015I:I2,JI2:6020:I2,JJ:6020WI,JJ:6020:I,JI:6020:I:(16384)12710000a6010kX::b:16302,0:I3947:0:0,39I:IgX((1)151)lA(1)910:B(1)1310vXXAA:YY(B2(1XX2A2)):X:23YY,23YYXX19:((10)16):0,39I:0,3939I:0,39I:0,3939I:IJ(16384)12710000T5005\p:z((10)16):I0182:J39I:I,JI:KI76020:6030"":I,JJ:6020I2,JJ:6020:I2,JI2:6020:I!((10)16):I1802:J39 ::  (16384)12710000* 30102:MI14:C%(I)(2)15:I311:C%(I1)C%(I)::C%(I)(2)16:I15:J14:C%(J):LJ514I:K39L:K,LK:K,LL:K,LL:K,LK::(16384)128400510000:I0391(2>9:A1A:B1B:A,B:1:"DRIP NUMBER ";J;:2030U9:A1,B1:(16384)12710000_2020 ::W350:I119:J019:KIJ:J3(I3)IW12 I,K:K,I:40I,40K:40K,40I:K,40I:40I,K:I,40K:40K,I (16384)127W50:I19:J190ĴT2050,2043BB1:20807X(10)2:X12050A2060VA1,B)02060fAA1:2080{ A1,B)02080 AA1:T2060:2080 A1,B11)0A11,B1)02200"A1,B11)0A11,B1)02200%21004A1A38B1B382200` e ɰ ,ZL LhhB;uhvhh e`:PS $L*?`gh<=ij>?`v(Le lL7 HHvHuHH @L  vQ 8egh  И H e ihh eHiHvHuH  m j %^_L# ! "  j y# HHH ZvyzW4ȱuȱve$v# _uv % Z *Lb-逐@ HHLLH:L8gh}~`Ƀ` ,stopijklmn KURhhz`gihi` ,   ,Ђ hhPQPQD Z ȱȱQP- % ) _$! $ȱȱж _L枱`8Є .0 _ .0 _ _hh eL$p "tpM?E0<=Ѕ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ Pћ `gȑggiihijj  Y  D_i^aeii`jij圪8iae^_^`_a8stopiejȄ PQmnij egh^_^ ijL< ȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$Ɂ! i` mn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H {h0hhpo`M$L*  ]` H _h P =v %  . F v Y LiT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXoz qiH#$#  &'8!'''1(([=Q}yy{x!{_"}&PWFQ&dgENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOe de,dedeLdede)-FdBedCed>e.?Lrd?e.?Mr;Pd<e8.?rrd=e.?r8.?r0rMqg7+++)))+*8*G*++..a/g//W//m/s*u*y*}**U*l\****+++h*G?J"l)GP(a()GP(Ka(Ԡ۠ǠԠà)GPa(̠)GP(0a()M(ca(ԠŠҬî)ca(Ԡ٠)2ca(̠Ӡ)9<dJ KM6a(ŠӠϠŠŠŠӠſΠƮϮˮŠ̠ĠϠŠŠՠ׮٠Ġՠ٠ԿĠՠŠŠ٠ӠҠҿϠՠΠſɠĠĠŠ̠ՠŠŠȠՠŠӠĠŠŠϠĮ٠ĠՠҠԠٮϠՠŠӿϠՠŠĠſɠҠԠϠ̠ɠӠƠĮԠĠԠοŠՠӿԠԠϠՠŠԿٿӠ̠٠ՠӿԠŠՠǠϠϠΠՠŠ̿ϠՠˠŠ٠ĠŠՠҿԠϠŠŠΠԠӠϠՠٿϠՠŠ̿ŠŠΠɠӠĠϠ٠ԡԠӠԠοϠՠΠҿŠՠԿԠӠԠο̠Ӡ٠ΠԠϠծŠՠĮ٠ӠǠԠɠ̠ҠŮɠӠǠŠՠ׮ĠՠŠ٠ĿONVERSATIONALIST.":2tDuI$"PLEASE WAIT FOR ABOUT ONE MINUTE WHILE I JUST STRAIGHTEN MYSELF UP. THANK YOU. ---":2Xu255:D THAT TALKS TO YOU .":2 0,0,0,1,1,1,1,1,1,1,0,0,0,0 zH 0,0,1,1,1,1,1,1,1,1,0,0,0,0R 0,0,1,1,0,0,0,1,1,0,0,0,0,0 \ 0,0,1,1,0,0,0,1,1,1,1,1,0,0f 0,0,1,1,0,0,0,1,1,1,1,1,0,0 p 0,0,0,0,0,0,0,0,0,0,0 " 0,0,0,0,0,0,0,0,0,0,0,0,0,0 D 0,0,0,0,0,0,0,1,1,1,0,0,0,0f 1,0,0,0,0,0,0,1,1,1,0,0,0,0 0,1,0,0,0,0,0,0,1,1,0,0,0,0  0,0,1,0,0,0,0,0,1,1,0,0,0,0 0,0,0,1,1,1,1,1,1,1,0,0,0,0   0,0,0,0,1,0,1,1,1,1,0,0,0,0 * 0,0,0,0,0,0,1,1,1,0,0/v 0,0,0,0,0,1,0,0,0,1,1,1,1,0 Q 0,0,0,0,0,0,0,1,1,1,1,1,1,1t 0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,0,0,0 <0 0,0,0,0,0,0,0,0,1,1,0,0,0,0^: 0,0,0,0,0,0,0,1,0,0,0,0,0,0D 0,0,0,0,0,0,1,0,0,0,0,0,0,0N 0,0,0,0,0,1,0,0,1,1,1,1,0,0 X 1,1,1,1,1,1,1,1,1,1,1,1,0,0 b 0,0,1,1,1,1,0,1,1,1,1,1,0,0 l 0,0,0,0,0,1,0,00,0 ' 0,0,1,1,1,1,1,1,1,1,1,1,0,0 J 0,1,1,1,1,1,1,1,1,1,1,1,1,0 l 0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,0,0,0 & 0,1,1,1,1,1,1,1,0,04r 0,0,0,1,1,1,1,1,1,1,1,0,0,0 W| 0,0,0,0,0,1,1,1,1,0,0,0,0,0 y 0,0,0,0,0,1,1,1,1,0,0,0,0,0 0,0,0,0,0,1,1,1,1,0,0,0,0,0  0,0,0,0,0,1,1,1,1,0,0,0,0,0  0,0,0,0,1,1,1,1,1,1,0,0,0,0 0,0,0,0,1,1,1,1,1,1,0,0,! 0,0,0,0,0,1,1,0,1,1,0,0,0,0C 0,0,0,0,1,1,0,0,1,1,0,0,0,0e 0,0,0,1,1,0,0,0,0,1,1,0,0,0 0,0,0,1,1,0,0,0,0,1,1,0,0,0 J 0,0,0,0,0,0,0,0,0,0,0,0,0,0T 0,0,0,1,1,1,1,1,1,1,1,0,0,0^ 0,0,1,1,1,1,1,1,1,1,1,1,0,0 h 0,0,1,1,1,1,1,0,0,1,0- 0,0,0,1,1,1,1,1,1,1,1,1,0,0P 0,0,0,1,0,0,1,1,1,1,1,0,0,0 s 0,0,0,1,0,0,1,1,1,1,0,0,0,0  0,0,0,0,1,0,1,1,1,1,0,0,0,0  0,0,0,0,0,1,1,1,1,1,0,0,0,0  0,0,0,0,0,0,1,1,1,1,0,0,0,0  0,0,0,0,0,1,1,1,1,1,0,0,0,0 ԿϠՠŠӿӠǠԠտנϠՠ̠ԠŠϠՠſԠӠϠՠſϠՠŠ٠ӿϠՠŠ͍ԠӠҠנԠ̿ԠӠϠՠŠ٠ӠǠпԠԠϠՠٿϠՠΠҠҠſԠӠԠԠϠտɧ͠ԠŠɠĠՠٮŠŠŠҠӮΠՠŠΠԿԠӠŠǮɠŮϠՠŠſ(ҠĠ٠)(Fq.?6@r`$Fd6?eM6IP`<()r$`<()r$`<()r$ `<()r$`<()r$_`S(נ٠˧Ơ٠Š)'`0$q` $qq +qde)cP a(٠ )Pa(̠)cP a(Ġ)@(o P a(àҠ)cP a(ҠĠ)cA2P a(Р٠)cP a(̠ĠŠ͠)cG<P a(ӠŠŠϠ)ccP a 7   @I H88888hH(H@(`8HH@@@P @W hH@ H`hH( 8 H(h Hب@HH88 H@h H@888 hH8@@ Hh8H@H             :ASĺ"AS USUAL, I WIN!!!":4050BASĺ"IT IS A TIE":4050Q"YOU WIN":"ANOTHER GAME (Y/N)? ";:A$:A$"Y"A0:S0:G0:N0:::925300" PAUL ZABRS "" SYDNEY, AUSTRALIA "" DECEMBER 1979 " P 20::"YOU HAVE MADE A MISTAKE IN SCORING";:Q3ĺ:::110:1022 ", AND":7:"THUS WILL LOSE 3 POINTS!!!": AA3:SSJ:"THIS GAME WILL NOW BE REPLAYED":110:1030$:5:(N$,(N$)2);", YOUR SCORE IS ";S::"MY SCORE IS ";A:150($J;".";:8:I1H:G(I);" ";:0&65@)TH1İ200J*1110R.65VJJ1:JP:J;".";:8:I1H:G((7I));" ";:`SS1::Q1İ150j1070:"I DID IT IN ";J;" MOVES"110 Q31022 NN1:N2G4000500ART (Y/N)? ":160:Z217500f::"GAME ";(1N2);" OF ";G;" MY TURN ";H;" HLS ";C;" CLRS": 7232:10:"PREPARE A CODE FOR ME TO BREAK"::110:9:958P:10:"MY GUESS";:27:"BLACK WHITE"30:I1H:7936I,I::J1SS1:Q1:"HOW MANY COLORS (";6(H4)8(H5);" TO ";7(H4)9(H5);")":160:CZ176e(C9C8)H51010}(C7C6)H410105,H:7,CQ1029,480,1022,400::" MACHINE BREAKS CODE ";H;" HOLES ";C;" COLORS "::1035"DO YOU WANT TO ST0,0,0,0,0,0,0,0,0,0,0,09% 1,1,1,1,1,1,1,1,1,1,1,1,1,1[% 0,0,0,0,0,0,0,0,0,0,0,0,0,0}% 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0($d 1,1,1,1,1,1,1,1,1,1,1,1,1,1J$n 0,0,0,0,0,0,0,0,0,0,0,0,0,0l$x 1,1,1,1,1,1,1,1,1,1,1,1,1,1$ 0,0,0,0,0,0,0,0,0,0,0,0,0,0$ 1,1,1,1,1,1,1,1,1,1,1,1,1,1$ 0,0,0,0,0,0,0,0,0,0,0,0,0,0 $ 1,1,1,1,1,1,1,1,1,1,1,1,1,1% 0,0,,1,1,0,0,1,1,0,0,1,1,09# 0,1,1,1,1,0,0,1,1,0,0,1,1,0 [# 0,0,0,0,0,0,0,0,0,0,0,0,0,0}#2 0,0,0,0,0,0,0,0,0,0,0,0,0,0#< 1,1,1,1,1,1,1,1,1,1,1,1,1,1#F 0,0,0,0,0,0,0,0,0,0,0,0,0,0#P 1,1,1,1,1,1,1,1,1,1,1,1,1,1 $Z 0,0,0,0,0,0,0,0,0,0,0,1,0&" 0,0,0,0,0,0,0,0,0,0,0,1,1,0H" 0,0,0,0,1,1,0,0,0,1,1,1,1,0j" 0,0,0,0,1,1,0,0,0,1,1,1,1,0" 0,1,1,1,1,1,0,0,0,0,0,0,0,0 " 0,1,1,1,1,1,0,0,0,0,1,1,1,0" 0,0,0,0,0,0,0,0,0,0,1,1,1,0" 0,0,0,0,0,0,0,0,0,0,0,1,1,0 # 0,1,11,1,1,1,1,1,1,1,1,1,18!8 1,1,1,1,1,1,1,1,1,1,1,1,1,1 Z!j 0,0,0,0,0,0,0,0,0,0,0,0,0,0|!t 0,1,1,1,1,0,0,1,1,0,0,0,0,0!~ 0,1,1,1,1,0,0,1,1,0,0,1,1,0! 0,1,1,0,0,0,0,1,1,0,0,1,1,0! 0,1,1,0,0,1,1,1,1,0,0,1,1,0" 0,1,1,0,0,1,1,1,1,0,0,1,1 &  1,1,1,1,1,1,1,1,1,1,1,1,1,1H  1,1,1,1,1,1,1,1,1,1,1,1,1,1j  1,1,1,1,1,1,1,1,1,1,1,1,1,1  1,1,1,1,1,1,1,1,1,1,1,1,1,1  1,1,1,1,1,1,1,1,1,1,1,1,1,1  1,1,1,1,1,1,1,1,1,1,1,1,1,1 $ 1,1,1,1,1,1,1,1,1,1,1,1,1,1 !. 1,1,1, ,0,0,0 4 1,1,1,1,1,1,1,1,1,1,1,1,1,1V 1,1,1,1,1,1,1,1,1,1,1,1,1,1y 1,1,1,1,1,1,1,1,1,1,1,1,1,1  1,1,1,1,1,1,1,1,1,1,1,1,1,1 1,1,1,1,1,1,1,1,1,1,1,1,1,1 1,1,1,1,1,1,1,1,1,1,1,1,1,1   1,1,1,1,1,1,1,1,1,1,1,1,1;{-)  'D>C"A&,D!*A#G6-E8*Di6*Cg3+> e4(@ g&: i"8 O" R# 6 Y$   >:;G: #K9  !  g '0 r  1 v  E+   J    :1d -YEE4X_/AmrZ  Y _N'I ( +-J/T&'+) R >#  %  .      $*X$.O   ! /&    f    O   H ^<:::(=149 5#! 3#  "8! #8! "%U8" !%R9! ! "N8# " w:99y:98|:99|;9:y;9<~;$=' 4 x>=D5?+>}) >A. >)=+*?, +}1+T?2TGD?3@E<A4FA EY5DA RXEF@6dLATA0OBTO                      F*&5s c  Y b ! a   g  0g  t  c   k32< =4hR7j]Y7`]8`[8f ]?do6dWRjm@rp4ox0p*xii!LKI! ; 0=  X 24;;U_9;MGB==,"=-<]Ӹ:    9aPdCOdDN_FJZJELSAA[;8`M?94; ;:6/,#2F6,'$c-( $20( (!' 9*$ ( !D&! m F   |&%j (8m!9'.l'1#7$:$0#) :"2"# !$D!6 !5"F!;6 J!;)+"K!:0$"P"74!(X#2!5!)Z" 9!(k"0 9 )w# "(#* K&# !!) ^*'9;66[& " !%(f# "062b$ &  = C*<:18= ;= ; :#     \6"[=S/76: ; " 5s 7 2 m 62k 4K|  43 {  4/ |  7-} %, =) &- '. =1e)?2=88>;7A*  ~'<t5, v""A     rM_V`.? r.? r$a(ϠŠΠ٠ϠŠ)UVWY_Bo Pa()d<e d=ed>e d?eM4d<ed=ed>e.? rd?e.? rM_]Ԡ٠a(Ǡ٠)F MY_B M6S(Ƞ٠Ҡԩ)'`$`$ , ca(Ǡ٠)FdeM_ Bo Pa()d<e d=ed>e d?eM3d<ed=ed>e.? rd?e.? 2ea(٠)FM_ MԲ MS q.?r`$ a(ŠŠϠӠΠ٠)UVWY_^ a(ŠŠ)FE(ӠΠ)cS(٠̠ӿٯΩ)&@`@*#r:()$ . UVWdeM6deM_<`.? r$a(٠̠)UVWY_ MԲ M[q.?ra(ϠԠǠӠ)ca(ϠŠǠӠŠ)$q.?6@r`$d6?ec?d2e?a()Gd`3L L"LV ``H  }    ȥ h`H  ȱ  h`Hȱh```E0 `0`E `ɠ  +    + J   #O   #'<    ( (    ']    `      S , & A  -B,   *o    :w     `OO 9 R    0-&)#8 &  a;>@@v;z]dlEm]Y;Z[Cb`Dhk*4q &; T  A J   `    % L  A  .",     " /jM64v6J1{4B2~4{'242D)0$48)02  =02( 7*/1 N0/ 9*0/(D1-,E3.,B5. C  1 :  N8-# X>(>^%(3H#B812 PC:'v?Q5#  #6|#+#  $ !6{$     b$"   ,,  (3,'N  4 F   8G@  K1D$Q=/ Q!'%=}!4(d 0*2+F%=/'59e %A T 7$          0;;267555454443432)! f)10 ]*1"*"^( . d !-$f "+%, ,3-(+ . 4+-"!; ++*4# "$     T o     $ X     X  -/= -/ &Z 2$  !3  3 Z "G!E D D B#A!?%=!)<)8'? e @ :! " A !   I  * ! P  ^  "!"+/%&&I#""&)#"M!#&-?*#"$ #(w)!!* $#5'M&J%:,39G9s B&@"u""?!!2O @ !Z :$ $*" 1) $ ( # & +! -'#" + 3" 0 #3!.! :$!)6i>JCL,fZ3 ,K24O81P,;S)8>6G04R@*4/RC%30RK(31G42B52@62?53>64=73=73=63<63<52<62952651540330/1a1/-+ f/-,'$0$-+*'%-*-**&'063,+*8.42,-92&92-*,H'O0)&+Kh-&'4* 0*  . ~  ,   V    a    #    q       ?       *     (<   )  S9  B<&   ;   A; < N ?=O16384,128:16368,0' <"RUN MENU" I)I ::"FOR ANY INFORMATATION ABOUT THESE":"PROGRAMS PLEASE CONTACT":"ROGER KEATING,":"APPLE USERS GROUP,":"P.O.BOX 448,":"DOUBLE BAY, AUSTRALIA, NSW, 2028"::I135:"-";:J1100::(:"HIT ANY KEY TO RETURN TO MENU." 2 z#??   ϲ Ġ!ĠŨð̤é"ñ ϠˠӠ9Ƞ ͠@ԠԠ٠ӠҠԠԠŠҠϠ ϱՠ ԠԠԠ٠РˠҠϡ        !    )#$  '/'%)&1+.2$  75)n4.2M2#f(4"%=F=)#"1 a ,%:*+4  !    #!   e`RdbKN#e^GP\bWo^V)P 5/o     # #2% ]=gX G# ?n " G #ECN "!!    h   OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "         Q       6_     "d      0 9 " !&+S  2 ,'2Q     ('L    1, B     3 0H     sSb P7ef[>"}  9 M WnF; ! 8 < ; A AC""LJ ")   ! !. " X  d   ^  "]  "X  >  %5]_+&9K589yw:xtrqtw $vrQL  U 3] 2 [   h    j  s Y     J     - h  0                8G|}}W'X/F(*o%  t"{!  s  2z  3-   3  263,:98<Y7H G$ 4I[{c`_coTawYc0e0ZoLW\[p*  0   (@       3-/!:9 y q  q  o  +9 4o  l (u  l   $w } %y   g  s fy  o~z p  l  z       F :C 2}                = 0m: \F          R  D$""!D$;"NOMONI,C,O"+936>(D$;"RUN MENU"Q2D$;"RUN MENU";   !                  )    Q  J3J J !0X0Q3z"7SA;G5#)L8JR(PR6 DLGMnvla-    !  O         ) %1      (        ,       ; '   fA:#q3:+|  ) 'D53;l [N`$!- *P#- f1 *,=+T15%?fY9W3e FU)9]9?E8N>>,<7P78P;.H[:[01,:\22?w@W3BX(16384):X1271090LL16368,0]QX209ĉ::wVX176X176P11230`D$;"OPEN CAT,L80"jXX175::936:XXLE10tD$;"READ CAT,R";X~A$:B$D$;"CLOSE CAT"D$;"RUN ";B$Q111 J1615:E04716-F03010CG07:F,F4EGMG:FcF53510:G07zF,F4EG8:G:FEB0:1190:21038421$" HIT ANY KEY TO CONTINUE LIST , "." OR HIT THE NUMBER OF THE PROGRAM. "8 CAT,L80") D$;"READ CAT,R0":XS:KK14 *I09S 4I1LE10XSPI:I9:860r >D$;"READ CAT,R";I1LE10z HA$ RI;" -- ";A$ \I f1030 pD$;"OPEN CAT,L80" zD$;"READ CAT,R0":XC 10(LE1)P1XS780 810 720H 1180  936M 384:" APPLE USERS CLUB DEMONSTRATION DISK. ": " SYDNEY, AUSTRALIA ":380 :D$"" D$"":16:"THE FOLLOWING PROGRAMS ARE ON THIS DISK.":34,5:936 D$"" LE0 P10 D$;"OPEN &3K,36K32 02( :4K,36K339 D4K,36K34J N4K,36K35[ X5K,35K36l b5K,35K37s l3 v6K,35K38 6K,34K39 7K,33K40 8K,19K41 24K,32K41 9K,17K42 27K,30K42 11K,15K4313 5K,33K18$ 4K,31K195 4K,30K20F 3K,30K21W 3K,29K22_ 14p 2K,29K23 2K,29K24 2K,29K25 2K,29K26 2K,29K27 6 2K,30K28 2K,30K29 3K,31K30 3K,33K31A 9 25,4 23,255- 21,256: 20,257G 20,248T 20,229b 20,2110m "20,11 ,28K,31K13 611K,15K14 @26K,33K14 J9K,16K15 T24K,34K15 ^7K,18K16 h23K,35K16 r6K,35K17 |R CATALOG PROGRAM BY. R.J. KEATING.8D$""K(A$(40),B$(40)`2D$;"NOMONI,C,O"n<XX(760)~FXX20190P720Z760,201d:16302,0n0xL40470,39LLK0930CA0470,39A      q M6(o a(ɮîˠ)o Pa()UVWY a(Πϱ)Qqr" 2207,27,27,0 I156:P(I):1 I156:D(I):7 :21:"BACH BY MARCUS BROWN":I156:768,P(I):769,D(I):(1)15:(9)39,(9)39:770: :21:"HIT '0' TO RETURN TO MENU":"OR ANY OTHER KEY TO REPLAY BACH":S$:S$"0"ĺ::::"RUN MENU8,160,120,69,78,88,95,78,88,69,78,88,95,107,120,95,107,88,95,107,120,128,144,120,128,107,120 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,2 X56P(X),D(X)i 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 A770790:I:A,I:A\ d 243,220,197,183,220,197,243,160,243,220,197,183,220,197,243,160,160,144,128,120,144,128,160,107,160,144,128,120,144,12I D$;"CLOSE CAT" 95 1_"PROGRAM DISCRIPTION 'END' STOPS PROGRAM"6 `II1Y d"PROGRAM DISCRIPTION -- ";I:c nA$:s sA$"END"Ā x"PROGRAM NAME -- ";I: B$: B$"END"Ā D$;"OPEN CAT,L80" D$;"WRITE CAT,R";I A$:B$ D$;"WRITE CAT,R0" A$(40),B$(40) D$""6D$;"OPEN CAT,L80"MD$;"READ CAT,R0"T(Ih2D$;"CLOSE CAT"r<936>"THIS PROGRAM INITIALISES THE MENU"::"AND ADDS PROGRAMS TO IT.":F"INPUT THE PROGRAM DISCRIPTION"P"THEN THE PROGRAM NAME",   E DŠҍԍččȠàҠ͍ȍ΍ύԠōԠԍ٠Πٍ͍ŠǠҍҠԍԠŠҍԠɠΠ΍Ҡϡ͠ӠΠ͍ԠԠ   INFORMATION NAME "UD$;"RUN MENU"&VD$;"RUN MENU"C COPYRIGHT R.J.KEATING X 18 AUGUST 1978p SYDNEY, AUSTRALIAX3:P070707020'E2E37080jX50(10)199:Y50(10)80:E2:P10(10)5:X,191X,Y:7020xE37000X50(10)30:Y91(10)80:E3:P5(10)5:X,191X,Y:7020@1(#1':936:"":16368,0:1UD$""U:::936X,YRlAY(191Y)(10):R(80(10)20)E:T(1)(((10)2))(1.047(10).17)vMR(T)X:NAR(T):M20N20M259N1717020X,AM,N:PP1:R(10(10)10)E:2(10)1:I.36.3.3M,NR(I)M,R(I)N1:I:(16384)12710000 E,Y:A,B:6030B279A,B:279C,X:279E,Y:279A,B:6030279A,191B:279C,191X:279E,191Y:279A,191B:6030A,191B:C,191X:E,191Y:A,191B:6030XX100(10)75:Y50(10)30:P10(10)5:E1::16302,0:3bX,191xS(2(10)1)7yZ((10)40):ZZ2:NZ1:ZZSRz3(10)1::16302,0mT6050,6060,6070,6080A(NAC)Z:B(NBX)Z:C(NCE)Z:X(NXY)Z:E(ENA)Z:Y(NYB)Z(AC).16000(16384)127100006020A,B:C,X:A,B:A(NAG)Z:B(NBH)Z:G(NGE)Z:H(NHF)Z:E(NEC)Z:F(NFD)Z:C(NCA)Z:D(NDB)Z~(AE)(BF)25000(16384)127100005020pA279(10):B191(10):C279(10):X191(10):D279(10):Y191(10)vT(4(10)1)Z,(NA(6)MA(8))ZAOO1:PP1:MMX:NNX:I:X1:SS1:JZ(16384)12710000pI1800:I:4005A50(10):B(10)35:C279A:DB:EC:F191B:GA:HFZ(35(10)):ZZ2:NZ13(10)1::16302,0dA,B:C,D:E,F:G,H:280(10):I:I58:A(I)192(10):I:Z2(10(10))10h O0:PZ:S(Z1)2:3(10)1:MZ2:NM:X1s J12 I0S:(OA(3)PA(1))Z,(OA(5)PA(7))Z(MA(2)NA(4))Z,(MA(6)NA(8))Z(PA(3)OA(1))Z,(PA(5)OA(7))Z(NA(2)MA(4))R85(10)10 4(10)* X7:M0:N0S J17:R(M)140,R(N)95:AM:BN I0X:AAIN:BBIN:R(M)140,R(N)95R(A)140,R(B)95:I MMIN:NNIN:XX1:J (16384)12710000 3001 I0 :16302,09 I14:A(I))2))M:AXR(T):BYR(T):A279B191A0B02060L X,YA,B:XA:YBn I:RR2:(16384)12710000| R52000 2010 TT(1)(((10)2))M2:AXR(T):BYR(T):A279B191A0B02060 2030 IN2.3561937::16302,0 )95:X,Y:UNAN:UUPI180E J139(U)139:K95(U)95:J,K:Ae NN1:(16384)127ī10000{ $:16302,0:1020 M1.04719755:T0:X279(10):Y191(10):R30::16302,0 E200(10)20:3(10)1 R30Ē37 I1E:TT(1)(((10 FINISH"9 384::::" HIT ANY KEY TO RETURN ":380T X$:W(X$):W022000 W1000,2000,3000,4000,5000,6000,7000,10000,10000 N2:PI3.1415926535 :16302,0 X(45)31:X:N6N2 A03603:VAPI180:X139(V)139:Y95(Vq 936:A(8)X0_10:10);"APPLESOFT II "::10);"HIGH RESOLUTION DEMONSTRATION"{:10);"BY R. KEATING":"1 CARDOID":"2 HEX":"3 VERTEX "4 LINES":"5 INTERNAL SPIRAL":"6 EXTERNAL SPIRAL":"7 GARDEN" "0      )40I:XX1*(16384)127109041005IB16368,0:::2Q:a::::J015:I1250:(10)39,(10)3010:IA1(10)306:B13:AA1:BB1T((10)2)T0T60JJ10:A,BT((10)2)A,B1)TERPRETATIONS TO YOU."g:" R.J.KEATING."w:::::255 TURN OFF AND RETURN90:992:X(16)XI039:40(10),39I:0I039:0,(40E 'HIGH' PART OF THE CYCLE."x"WHEN THE BIORHYTHM CROSSES THE CENTRE LINE (*) IT IS CALLED A 'CRITICAL'":"PERIOD. "" BIORHYTHMS ARE SIMPLY MATHEMATICAL FORMULAE AND AS SUCH CAN HAVE MANY AND ":"VARIED INTERPRETATIONS. WE WILL LEAVE THESE INrDSDS1v509{100z:::"'I' INTELLECTUAL CYCLE.":"'P' PHYSICAL CYCLE.":"'E' EMOTIONAL CYCLE."::" WHEN THE CYCLE IS IN THE NEGATIVE (-) YOU ARE IN THE 'LOW' PART OF THE":"CYCLE AND WHEN IN THE POSITIVE (+) YOU ARE IN TH5)"1"KZ%2COL$(5)"2"2LZ%3COL$(5)"3"HMZ%4COL$(5)"4"^NZ%5COL$(5)"5"tOZ%6COL$(5)"6"PZ%7COL$(5)"7"QZ%8COL$(5)"8"RZ%9COL$(5)"9"XI075:COL$(I);::bXX1lXDADS5DS0640qNUNU1 !AI%(((PI(NU33))1)34)72&COL$(41)"*"`0COL$(AP%)"P":COL$(AM%)"E":COL$(AI%)"I"k:15000DY%X10:Z%XY%10EY%0COL$(4)" "FY%1COL$(4)"1"GY%2COL$(4)"2"HY%3COL$(4)"3"IZ%0COL$(5)"0"JZ%1COL$(OU HAVE LIVED FOR ";NUM;" DAYS":"AND WERE BORN ON A ";DAY$U* PRINTOUT GOES HEREg13000:1400070:80:20:60::::::181:60:185:190 JUMPI375:COL$(I)" ":IAP%(((PI(NU23))1)34)7AM%(((PI(NU28))1)34)7YE$"0"YE$-(YE$)3YE$"19"YE$::180NYE(YE$):YE100YEYE1900dDXDA:MXMO:YXYEsDS62:CF06MO2330@110:350J120^FBFA((FA7)7)_FXFAc130eFC1DAFD:MOFM:YEFYh12000iNUMFAFX;r:"Y):X0230X1X9220OX1000,2000,3000,4000,5000,6000,7000,8000,9000q:160:12:36,10:DT$::160DA(DT$):DA1DA31230:170:14:36,10:MO$::170MO(MO$):MO1MO12240:180:16:36,10:YE$::180 (YE$)2 - - - - - 0 + + + + + + + + + + +": " **********************************************************************": :140 145 :150::160::170::180 :150:8:36,10:NA$::150 NA$"0"32000 X(NA$50:" BIORHYTHM PROGRAM BY ROGER KEATING":::" NAME ";NAME$::" DATE OF BIRTH ";DT$;" , ";MO$;" , ";YE$:"DATE OF FORECAST ";:20000:A;" , ";B;" , "C: "YOU HAVE LIVED ";NUM;" DAYS ":"AND WERE BORN ON A ";DAY$::6 " DATE - - - - - -" BIORHYTHM PROGRAM BY ROGER KEATING"::T 5:"HIT 9 (RETURN) FOR INFORMATION": 8:" NAME ";::" ";NAME$;" ": 12:" DATE ";::" ";DT$;" ": 14:" MONTH ";::" ";MO$;" ": 16:" YEAR ";::" ";YE$;" ": DA31(MO1)(.4MO2.3)(YE4)(34((YE100)1)):S FB0DAY$"SATURDAY"k FB1DAY$"SUNDAY" FB2DAY$"MONDAY" FB3DAY$"TUESDAY" FB4DAY$"WEDNESDAY" FB5DAY$"THURSDAY" FB6DAY$"FRIDAY" ) 1:2);::93: K TURN ON 80 LINES) P" 80N":J U TURN ON SCREEN AND PRINTERV Z" I":_ [""w _ TURN OFF PRINTER c54,240:55,253: d BIO SUB. GO HERE 100-200 nFA365YEDA31(MO1)((YE1)4)((34)(((YE1)100)1)):9 xFA365(YE)B> 15,12,1978$:COL$(75):9PI6.28318530718D:200T 8.3 C/I _ "":l 10 C/Iw"": 12 C/I"":# 16.5 C/I("":- ENHANCED2"":7 NORMAL <"":A START PRINT F54,0:55,1                    oP8ra(Ӡ)FE(Ӡ)FE()2`$M6a(ՠĠԠΠ)FE()Pcca(ҠŠӠ)F'88drrE()a()UVWY_na()_Gq.?6@r`$qqd6?e`$`$%oP8ra()qqq_"oP8ra()qq6q6;oP8ra(Ӡ)FE(Ӡ)FE()q` $_Ha()qq/?$roP8ra() a()oP8ra()PqqoP8rq=>8rr=>8rra()q`$/`$`$`$`$>oP8ra()qqq6q6oP8r)GY/}a()3oP8ra(ӠӠ)2q UVWo/?rP/?$ra()YqqLqqqoP8ra()q/?rƠՠԠĠάԠԮҠԠӬՠ̠Š)BFa()ca(ŠҠӠĬŠҮ)KUVWXYnUVWYqM6kxa()GUVWa( M6@p()de$oa(ԠǠ)q<#UVW2Ya(ՠĠŠӠҠ)(c-a(ҠӠŠ)/c2a(ڧܠ)7a()<cuAa(Ԡ٠ϠŠ     0R NO KEY WORD+\I13:RI(I)0880PfX1113:RE%(X)RI(I)KX:X113Vkap:650ZK95:R26%(Z,3)R26%(Z,2)R26%(Z,3)0R26%(Z,3)R26%(Z,3)1QR26%(Z,1)R26%(Z,3)1I115:R26%(I,1)R26%(Z,1)R26%(I,3)R26%(Z,3)000#R%(RE%(K))10R%(RE%(K))0ZR%(RE%(K))R%(RE%(K))1:Q10(RE%(K)1)R%(RE%(K))pRE%(K)26QQ30I$RF$(Q):PRF%(Q)(I$,1)"*"İ2:770I$(I$,(I$)1)C$2K13:RI(K)RI(K1)::RI(3)P :IP135:"=";:::17STRINGS TO BE SWAPPED&LTQ4J1N22\WO$(L)WC$(J)WO$(L)WC$(J1):480WO$(L)WC$(J1)WO$(L)WC$(J):480:C$""TQ580XT1Q&C$C$" "WO$(X)::C$C$" "DRE%(K)26950RE%(K)291"WO$(I2):WO$(I1)"":WO$(I2)""(kYlWO$(2)"GOODBYE"ė:"GOODBYE FOR NOW -- ":eqS0:T0xrK1N1:L1QwS0385|KW$(K)WO$(L)SK:TL:KN1:S0KS:LT:390KN1:850RE%(K)26580 USING THE LIST OF WO$(I)"ARE"WO$(I1)"YOU"WO$(I)WO$(I)" "WO$(I1):WO$(I1)""iWO$(I)"WHY"WO$(I1)"CANT"WO$(I2)"I"WO$(I)WO$(I)" "WO$(I1)" "WO$(I2):WO$(I1)"":WO$(I2)"""jWO$(I)"WHY"WO$(I1)"DONT"WO$(I2)"YOU"WO$(I)WO$(I)" "WO$(I1)" WO$(I)WO$(I)" "WO$(I1):WO$(I1)""neWO$(I)"I"WO$(I1)"CANT"WO$(I)WO$(I)" "WO$(I1):WO$(I1)""fWO$(I)"I"WO$(I1)"AM"WO$(I)WO$(I)" "WO$(I1):WO$(I1)""gWO$(I)"I"WO$(I1)"WANT"WO$(I)WO$(I)" "WO$(I1):WO$(I1)""BhWO$(I1)""QaWO$(I)"CAN"WO$(I1)"I"WO$(I)WO$(I)" "WO$(I1):WO$(I1)""bWO$(I)"YOU"WO$(I1)"ARE"WO$(I)WO$(I)" "WO$(I1):WO$(I1)""cWO$(I)"I"WO$(I1)"DONT"WO$(I)WO$(I)" "WO$(I1):WO$(I1)""'dWO$(I)"I"WO$(I1)"FEEL"1((I$,1)" "I$I$" "7-:IP135:"-";::?6Q1X@I1(I$):Q40350JV$(I$,I,1):V$" "WO$(Q)A$:V$"":QQ1:A$""TA$A$V$Y^IQ42:WO$(I)"":_I1Q `WO$(I)"CAN"WO$(I1)"YOU"WO$(I)WO$(I)" "WO$(I1):CO150ĺ"":205!512CO,V*V$;_KK30V$" "ĺ:CO40LINE:LINELINE1:KK0:205sKKKK1:COCO1|205 V8CO1205"V8COUNTCOUNT1:CTCT3:V$;:958:KKKK1:512CO,20:205#V21205%512CO1,141&2066'NPUT SECTION**** G KK4:I$"":"? ";:COUNT3:LINE1:H$"":CT0_ I512639:I,20:Ik TX1000 16368,0:JK0:KK0KK0 JKJK1 JKTXİ28000 (16384)127207 958 TX1000 V$ V(V$):V8V21V13ī288: xD$;"CLOSE LWORDS" ) 1701 :N 8:" *********** "m 8:" * * BY" 8:" * LUCY * ROGER " 8:" * * KEATING" 8:" *********** " 20:34,6::  ****USER IT":"GROWING IMPATIENT."0 ZN1113:N214:N3112r dR%(113),KW$(113),WO$(42),WC$(14),RE%(113),RN%(29),R26%(15,3) fD$;"OPEN LWORDS":D$;"READ LWORDS" gI1N1:KW$(I): hI1N2:WC$(I): iI1N1:RE%(I): nI13:II115:R26%(II,I): :: RF$(330),RF%(330)* D$""A D$;"NOMONI,C,O":Q 155:30000q D$;"OPEN LDATA,L100":DF1 D$;"READ LDATA,R";DF:RF$(DF):RF%(DF) DFDF1:DF33120 16 D$;"CLOSE LDATA"  P"ALMOST READY. I HOPE YOU ARE NOXYZ ABCDEFGHIJKLMNOPQRSTUABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMABCDEFGHIJKLMNOPQRSTUVWXYZ ABCD "::AA"::AAAAAAAAAAAAAAAAAAAAAAAAAA AAAA AAAAAAAAAAAAAAA"::***********": KK0:I1(I$) KKKK1:(I$,I,1);:KK30(I$,I,1)" "ĺ:KK0 I01,00:10:*ɍW "?)!%ALBB[L'ԩ ΙL Lș șL"ȩ:ȩȩ:ȩ`******************************************* I$" GOODBYE ! ! ! ! "::VWXYZ ABCDEFGH IJKLMNOPQRSTUVW       ԠӠϠՠٿϠՠȠՠŠǠΠǠԠՠננƠŮ٠٠ԿŮϠΠŠՠٿŠՠĿοϠΠŠտȠϠŠǠήנ٠ΠϠՠ̠֠ƠŠտ٠Ϡՠ٠ԮŠΠҠР̠ŠŠՠŠǠϠϠΠҠԠӠĠŠՠٿ٠ŠՠٿՠŠԠ̠̠Ԡ٠ӮɠĠŠӠϠĠϠŮӠɠȠƠϮҠРԠΧԠŠԠĮŠΧԠٮŠנĠĠՠ٠ՠŮՠ͠ϠŠΠΠƠԮנϠՠ̠ԠҠҿՠ٠ŠԮ٠ΧԠՠԧҡŠӠŠԠӠԠԿԿٿɠ̠ՠ٠Š͠ŮӿŠ٠ԠӠӠɠŠҠΠŠϠĠΠٮɠ͠Ԡ٠ĠϠӠӠî٠ˠΠ٠ӠĠɠՠŠӠՠ׍ϠՠŠ٠ԠӠɠנԠԠͮϠՠҠ͠ԠӠŠϠϠȠҠſҠ̠ӠΠŠĠƮ٠ŠӠĠΠ٠ӿŠՠĠ٠ӍŠƠ٠ԠӠŠӮԠϠϠӠ٠ՍŠՠǠԠŠΠҍ                                                           ٍōō͍ōōՍÍǍӍ΍ˍčǍԍȍҍԍԍԍύ΍ōٍ׍ΠՍΠɍՠōҍɠԍɠ̍٠ԠՍ٠ԠɍŠՍɠԍɠ͍͍ɠԍōӍčō͍ōӍՍɍҍč͍ōЍ٠΍ԍ͍̍ōԍҍōӍ̍ҍٍōōҍҍҍҍōԍ׍ٍύɍٍččҍčōǍԍ͍΍ҍōӍ؍ٍōčٍԍԍ΍ٍōȍҍӍ͍̍ōōٍōӍԍƍӍǍǍčōҍōōōčٍčˍ    @E(Πñ) ) Πñ) dJe<dKeA M63oa(ŠǠҠ٠Ҡ)A`.?r$deca(ŠŠΠΩ)cQM6o P a(Ǡנ)M6| @p()a@E(Ġ)a@E(Ġ)(a 0,0,0,0,0,0,0,0,0,0,0,0,0<< 0,0,0,0,0,0,0,0,0,0,0,0,0,0 `F 0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,1,1,1,0,0,0,0,0 0,0,0,0,0,0,1,1,1,0,0,0,0,0  0,0,0,0,0,0,1,1,1,0,0,0,0,0 0,0,0,0,0,0,0,1,0,0,0,0,0,1  0,0,0,0,1,1,1,1,0,0,0,0 * 0,0,0,0,0,0,0,1,1,0,0,0,0,0L 0,0,0,0,1,1,1,0,1,1,0,0,0,0o 0,0,0,0,1,1,1,1,0,1,1,0,0,0   0,0,0,1,1,1,1,1,1,0,0,0,0,0 0,0,1,1,1,0,0,1,1,0,0,0,0,0 0,1,1,1,0,0,1,0,0,1,0,0,0,0( 1,1,1,0,0,0,0,1,1,0,0,0,0,02 0,0,0,0,0,0,0,0,0,0,0,0 9 0,0,0,0,0,0,0,0,0,0,0,0,0,0 [ 0,0,0,0,0,0,0,0,0,0,0,0,0,0~ 0,0,0,0,0,0,0,0,0,0,0,0,0,0  0,0,0,0,0,0,0,0,0,0,0,0,1,0  0,0,0,0,1,1,0,0,0,0,0,1,0,0 0,0,0,0,0,1,1,0,0,0,1,0,0,0 0,0,0,0,0,0,1,1,0,1,,0 &8 0,1,1,1,1,1,1,1,1,1,1,1,0,0 IB 1,1,1,1,1,1,1,1,1,1,1,1,1,0 kL 1,1,1,1,1,1,1,1,1,1,1,1,1,1V 1,1,0,1,0,1,0,1,0,1,0,0,1,0` 0,1,0,0,1,0,1,0,1,0,1,1,0,0j 0,0,1,0,0,1,0,1,0,1,1,0,0,0t 0,0,0,1,1,1,1,1,1,1,0,0,0,0~ 0,0,0,)63YY16 0,0,0,0,0,0,0,0,0,0,0,0,0,0X 0,0,1,0,0,0,0,0,0,0,0,0,0,0z 0,0,1,0,0,0,0,0,0,0,0,0,0,0 0,1,1,1,1,1,1,1,1,0,0,0,0,0 0,1,1,1,1,1,1,1,1,1,1,1,1,1$ 0,1,1,1,1,1,1,1,1,0,0,0,0,0. 0,0,0,0,1,1,1,1,1,1,1,0,0ULD BLOAD IT INTO THE COMPUTERBEFORE YOU START"5WLXA$"00"N%(N,Y)9dbA$"10"N%(N,Y)41|lA$"01"N%(N,Y)13vA$"11"N%(N,Y)45YY1A$"00"N%(N,Y)27A$"10"N%(N,Y)59A$"01"N%(N,Y)31A$"11"N%(N,Y LINES."1:"1 HIMEM: ";(116)256(115)Y:"2 POKE 232, ";ST(ST256)256z:"3 POKE 233, ";(ST256)::"YOU CAN ALSO SAVE YOUR TABLE BY TYPING":&"BSAVE 'NAME' , A";(116)256(115)1;" , L";SH29SHY/0:"AND YOU CO:1:0:3J17 J:SV1=SPSH:SA1:SH9SASP9JISASP\I25SV,25JhSVSV1p:16384,128:A$ ::"YOUR SHAPE TABLE IS NOW READY FOR":"USE. YOU SHOULD START ANY PROGRAM USING THIS TABLE WITH THE FOLLOWING (LE256)256:STLE&ST,SH:ST1,0@232,ST(ST256)256S233,(ST256)I1SH:NU2SH2(I1)Y:ST22(I1),NU(NU256)256ST32(I1),(NU256)I1SH:NU2SH2(I1)Y1STJ1YNUJ,N%(I,J): $ XX1 600 "J0 ,N%(N,Y)26:YY1> 6J1CO2P @A$(A%(N,X))Z JXX1o TA$(A%(N,X))A$y ^XX1 h700 rJ |N%(N,Y)10:YY1 I N N%(N,Y)00:YY1N1:LESH29SHY:LEMH256MLLE:116,(LE256):115,LECO2I) #I (I1CO2 -A%(N,CO2J(I1))9 2I@ 7J dJ1RO2:I1CO:A%(N,(J1)2COI);:I::I1CO:A%(N,CO2J(I1));:I::J xN N1SH X1:Y1 I1RO2 J1CO2 A$(A%(N,X)) XX1 A$(A%(N,X))AILL END IT."+ 16384,128:A$:A$" "Āc :"THE PROGRAM TAKES ABOUT 2 MINUTES TO RUN"::: "THIS PROGRAM WAS DESIGNED ON A 48K MACHINE AND MAY NOT WORK ON A SMALLER MACHINE."::: N1SH J1RO2 I1CO A%(N,(J1) THE NUMBER OF ROWS AND COLUMNS YOU ARE USING A SHAPE TABLE WILL BE GENERATED." "I HAVE USED A 16 X 14 MATRIX FOR THE EXAMPLES IN THE PROGRAM. THESE ARE SET IN LINES 6 AND 7. " :"HIT THE SPACE BAR TO CONTINUE PROGRAM ANY OTHER KEY WRO16: ROW #$ CO14: COLUMN #0 IROCOT A%(SH,I),N%(SH1,(I242RO))d N1:X0:Y1 :"SHAPE TABLE PROGRAM"::"BY R.J. KEATING."U ::"BY ENTERING DATA AT THE END OF THIS PROGRAM IN A MATRIX OF '1'S AND '0'S AND SPECIFYING~ 24576= COPYRIGHT R.J. KEATING, 4 APRIL 1980 UML(115):MH(116) RO AND CO MUST BE EVEN NUMBERS I.E. 10,12 NOT 7,9 YOU MUST ADJUST THE FOLLOWING THREE LINES WHEN YOU ADJUST THE PROG