' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i 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#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\޼e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUTYP!pppp p p p p`" t""#x"p0p@p@@@p@!y q q t@  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-U@Ϡ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴ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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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!# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`I27:VI5:20:I-}RI811:VI6:20:I<}WT500:250_}\RM1:V24:HH9:OT1:CT1:100e}f *l` * SAS SOFTWARE PRESENTS *` * 4 INTERACTIVE PROGRAMS *` * I34:V5I:20:I!|T50:2502|I5:V11:20@| T50:250X| I67:V8I:20:Ig| T150:250p|CT1|RM1:V24:100||4 **PAGE #11**|6P$""İ140|91:|>D$"BLOAD NEWSPAPER,A$4000":950|@|CH15|DV5:FL144:20}HAN$"N"2050*{H5:I89:VI2:20:I8{T50:250R{I1011:VI1:20:I`{T50:250x{I1213:VI:20:I{T50:250{I1414:VI1:20:I{T150:250{CT1{RM1:V24:100{{H5:I12:V4I:20:I{T50:250|zI15:VI5:20:I'zT250:2504zV12:20OzV14:I7:FL0:H25:20XzH38zQL1:NU1:160:I$"Y"I$"y"I$"N"I$"n"1940zI$"y"I$"Y"zI$"n"I$"N"zPAPA1:140zAN$I$zz **PAGE#10**zzFL136{H33:V23:FL16:I11:K$(I)CL$(3):204y5T500:250Ey:PAPA1:140Wyl **PAGE #9**`yn1:yoP$"R"ĺD$"BLOAD PI.1904,A$4000":950:400yp(2);:C13:C20:33:CL$(C);:C:(1);yq500yvP$"C"X114:X253:Y15:Y216:300z{H15:FL1360xRE1:RM1:H14:V17:1009xP$"R"PAPA1:140:OxV12:I7:H16:20cx H24:T250:250|x!I810:V4I:20:Ix#T255:250x$V16:20x%H41x&QL1:NU2:160:(I$)1(I$)3Č947:1830x+CL$(3)(K$((I$)7),(K$((I$)7))2)%y0@ 'x 8(i8逅i 8ԥΥд`$ 08 !      Т '()*+,0 9  20481:"9625647("RUN FLEXLOAD"  39248:1:T115000::105,0:106,96:7704,64E x(4)"RUN FLEXLOAD"1:T13000::105,0:106,96:7704,64 x(4)"RUN FLEXLOAD"D" 190  **HMOVE2>1** 1 60,0:61,64D 62,255:63,95U 66,0:67,32_ 468e &106,96 "RUN FLEXLOAD"ECTION1,A$7000":7683 e39248 i1 nT12000: s105,0:106,96 t7704,64- u"BLOAD PI.DEMO,A$2000":g  D$(4)! D$"MAXFILES 1", D$""ID$"BLOAD SCRUNCH,A7680"q7688,416:7696,51615:7704,616D$"BLOAD END3,A$6000"768312425647688,32:7696,63:7704,641:500105,4:106,96"RUN FLEXLOAD"   paspa@U*}@ ?} +U@f0sC 0 @U*}+U<@CcCpassaspa@U*}@y?~ ?ժ~ +U@U*}+U@U*}@y?~ )UJ +U@U*}+Up@U*}@# 0 @U*}+U@U*}@y?~ _J*)U +U@U*}+U@U*}@y?~ ?U*~ +U@U*}+Up@U*}@# U*U*U*U*}+U@U*}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}+U@U*}+U@U*}w* +U@U*}+U@gcCgCgCpas~~@U*}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}+Ux@ժ@0~ +U*u @ժ@ժ@ Wz *+U@U*}+UCF@aLaLa C3`03 @U*}*+U@U*}+U@U*}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}+U|||<@|~||@U*}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}+ժժժժժժժժժժժժժժժժ|||<@|~~~@ժժժժժժժժժժժժժժժժժժ@ժ@ժ'" @ժ@ժ@# @a3C 3<< @ժ@ժ@~jU @ժ@ժ||@U*}*+U@U*}+U@U*}*+U@?~a~x8 @U*}+U@U*}@!u +U@U*}+U@U*}@Y7~ {+U*u +U@U*}+U@U*}@ Wz *@ժ@a0F`@`@3`0>|@ժ*@ժ@ժ@ժ@DH *+U@U*}+U@a?|p?@a?~sa00fL@U*}*+U@U*}+U@U*}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}+Ux@ժ*@ժ@ժժժժժժժժժժժժժժժ*+U@U*}+U@U*}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}+U1**Fm60,0:61,64Ym62,255:63,95jm66,0:67,32tm1536zm&m **UNSCRUNCH**m7683m1:(23);(23);mm140m1000m **PAGE #1**m255mI1mPA255PALPOnX2)2)lX:Y1:(92)3l(X2X1)X:Y1:(92)ElX:Y2:(92)_l(X2X1)X:Y2:(92)flXll|l **DELAY**lDD1T1.3:DD:l+ **FILL SPACES**l,YY1Y2:Y:X1:X2X11):Y:l **HMOVE**l60,0:61,32m62,255:63,63,Y2:X2X1X,Y2X2X1XSS,Y2:X>kX1,Y1X2,Y1:X1,Y2X2,Y2DkXk ** DOUBLE BOXak255rkYY11Y21kX1:Y:(124)kX2:Y:(124)kYkX1:Y1:(91)kX2:Y1:(127)kX1:Y2:(123)kX2:Y2:(125)lXX11((X1 ȑiiei888 ` `hhɦ LcHH`a8 ?@w pإ ɀ2)iiei88 `إ 8ɀ8إ   E  &&&ժժժժժժժժժժժժժժժժժժժժ + VZ"?Dثځ_"+XZ?"?DGfG?" @ *\`Awp8pp8npU A*P ((&&  @ P @ P(@&&+ VעԊՊ תժժ ?ځz+ VժժժժժժժՊ ժժԪ `pppa`papځ r+ VժЪժՠ?Dثځ"~ժЪՠժժՊЪժժժѪԪժժժԪժժժ׺ժݪ Dݪիծ ܁  ժ GԪժժժժժժժժժځ_ժժժժժժժժՊ ժժԪժժժժժժժՊ ժ֪ժժժժժժժժՊ ժԪժժժժժժժժՊ ժժժժժժժժՊժՊԪժժѪՊԊժՊԊԪժժЪՊԊԊժՂЪժՂЪՂЊժժЪժՠժЪՠժժժЪժ ߪժתЪժעԊժ תժժעԊՊ תժժעԊՊ תժժעҒՊ תժժעҒԂ תժժעҒԂ תժժעԪժՂתժժՂ ժժժժժժժժժՊ ժժg ժժժժժժժժժ ̱ጀz+ VZ#РժժժР ጆÁ"b+ VZ#ժ ߪժ Ъժ ߪժ "ԪЪՀ8u9uՊժ "|+ VZ?"@ ".=UfG?" !"+ VZժŨ ""~+ VZÁ EHثځO𸤂ɘ΃ƐԪժժժ`ժժժժժժժժժժժժժժժժժ""+ VZ3x?"Ъժժժժժժժժժժժժժժժժ""~_*U*u+ VZ"~ !Gثځժ ߪժժՀ " OثځKժժժ ϙጀ G|ثځ Ъժժժՠժ U*U*U*U*U*U*U*U*U*U*U*U*?DxثځW`!G/DثځGx Dկ#Dyثځ_~ D?DGZcԂ תժժŨժժ ̙̏́"~+ VZ#Ъժժժբժ ጆÁb+ VZ"ɤɌͰȌɐԪժժժU*U*U*U*U*U* VZ_#x U.="+XZ?" ԪժժժժժժժժժժժժPժժժ"+ VZժ ߪժժժՀ ժժժժժժժժժժժժժժժժժ"+ VX252:Y1(Y11)84:Y2Y282:SS6:3=jY(Y1Y2)2Y2SSjX1,YX1,YSS:X1,Y2Y1YX1,Y2Y1YSS:X2,YX2,YSS:X2,Y2Y1YX2,Y2Y1YSS:YjX1,Y1X1,Y2:X2,Y1X2,Y2jXX1(X1X2)2SS kX,Y1XSS,Y1:X2X1X,Y1X2X1XSS,Y1:X,Y2XSSNG:192.iNU2((P176)(P185))ČDING:192DiH2(I$):(P);Wi(I$)QL168ii(I$)QL192iH:V::PR$:QL3:NU0:PR$""ii(I$)1I$"":196iI$(I$,(I$)1)iH3(I$):" ";i168i **BOX**&jX1(X11)54:X2кPR$;:V:H:RXLIICICThRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICICohP(16384):P128168h49168,0:(P136P255)(I$)0ī192hP141188hP160P250ČDING:168iI$I$(P128):NU0((P176P185)(P174P165))ČDI;F$;",L1200,D1";gD$;"READ ";F$;",R";N:J120:K$(J):JMgD$"CLOSE";F$Xg1000`gI1fg~g **INPUT ROUTINE**g951,180:957,251:DING947gI$"":V:H:QL3):49168,0:IC1:RX0:LI3gPR$""PR$"->"gRXRXIChRX0ĢV:H:ČDING:112fvRE11269fxP195P227PAPA1:P$"C"YfzP210P242PAPA1:P$"R"of~OT0ĖH:V:19)~fRE0İ140fRE0fOT0fRM0fCT0ff **READ DATA PAGE #PA **f152fD$(4)fNPAf1:D$gD$;"OPEN "e951,180:957,251&efRM0H2:V242eh:H:VYeiCT1ĺ"(C)ontinue ";:108uej"(C)ontinue/(R)eview";{elen49168,0epP(16384):P128112er49168,0etP$(P128):P195P210P227P242ČDING:112 fuCT1(P210P242)dQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8edRFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95ydUXX1(X2X1)2dVX,Y1:X2X1X,Y1dXT1DT:TdYXd_FL(FL2):FL0FLFTd`SP0:DT0daDQ0TDQ:250dbddH14H15H13eL2(FL2)ĩ200:FL(FL2):50Hc-FL(FL2):FL2(FL2)ĺK$(I):80Qc.SO1Yc/SPkc2Z1(K$(I))c4SO1(K$(I),Z,1)" "ZZ(49200)c7(K$(I),Z,1);c<SO1(K$(I),Z,1)" "ZZ(49200)cAZcF255cPFL(FL2):FL2(FL2)9561bDT0DT7:SP0SP200LbFL2(FL2)SS40:(20);1;(20);2:27gb(20);2;(20);1:SS56bFL(FL2):FL2(FL2)ĺ(23):SSSS2bFL(FL2)bVb FL2(FL2)H((SS(K$(I)))2)1b!H(H)b#Hb%SO0 c(FL(FL2):F((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP@ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?Bjaiaaiaaaaaa@@ai i aiaͩaϭaaaiaͫaл`a F$"DATA1.2"'a FR$"PART1.3.OBJ">aPA(2047):D$(4)xaK$(20):1536,160:1537,0:1538,76:1539,44:1540,254aDING947a2048a3a998: **MAIN SWITCHBOARD** a ** PRINT SUBROUTINE **aFL0ĖH:V:K$(I):aFTFLb'+ `10Q` S A S S O F T W A R E P R E S E N T S A L C O H O L . . .` 4 I N T E R A C T I V E P R O G R A M S ` M O D U L E N U M B E R : 1 . 2` B Y : P A U L T . S A N C H E Z ` LP11a FP$"PART1.1.OBJ"ǟǧǟϟǏǟᏟϼLJ惏ϼǧϼɧϟӼǧϼϟLJϼ᧞ϟǧ惏ϟժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ`C`?x``Cp@C?x`@C@~C~?x`~CxCx?x?`xC?`C`?x@CA?x88`@C`C`?x`@C`~C?x`C@~C~?x?`C@|C?~?x?`~C|C?|?x`|C?~xCx?x`xC|pCp?x`pCx`GpCx@C~?x`GpCx@C|?x`G`Cx@C|?x`G`Cp@Cx?x``CpC`?x``Cp@C|?x`GpCx@C~?x`GpCx@C~?x`GpCx@C~?x`GpCx@C?x`GpCx@C?xx@C~?x`G|C?|@C@?x`G~C~@C@?x`GC@Cp?x`GC@@Cp?x`G@C`@Cx?x?`@C`@Cx?x``Cp@C|?x@xC88`G~C@C?x`G@C@C`?x`G`C@@Cx?x?`GpCp@C~?x`GxC  Y21+ }6:24,Y2250,Y2:24,Y21250,Y212 1C T12000:TW D$;"RUN INTRO"` 220 @$900":7000bT15000:T:D$;"BLOAD TITLE2,A$900":7000bD$;"RUN INTRO"b220 048":232,0:233,8:1:0 24580 D$;"RUN INTRO" 22A1256):A240,A1((A1256)256)192:A246,(A1256):A245,A1(A1256)256u P9,(A3256):8,A3((A3256)256) ZA2,X1:A21,X2:A22,Y1:A23,Y2 dA26 nY1 wTT401:C(TT) xY1101384:Y2Y164:24,Y2251,Y2:Y1 yTT zY2b:16302,00* D$(13)(4)QC(0)0:C(1)1:C(2)2:C(3)5:C(4)6vA124576:D$;"BLOAD LOOKLO,A";A1A225000:D$;"BLOAD SHOW,A";A2(A326000:D$;"BLOAD FOCUS.SHOW,A";A3*-Y1100384:Y2Y1642X13:X236N FA241,(&&&&&&&ժժժժժժժժժժժժժժժժժժժժ@(  *D""Q@(Յ&& @e0@`q`Ac9p8p@ iP(&& @`q`Ac9pp@ P(Յ&& TE P(&& @ |?@q8pp8>G P(ȅ&& T *AU A*P (p&&&&&&&& P (@@ P( E@ P(&& E!@@?|Ocys8~@ |N@Gs8pp8>g P(P&& T*QED @Gp|""Q@(&&ժժժժժժժժժժժժժժժժժժժ&&&&& U*A"A*P (P ( T AU A*P (~&& @ |Ocy38~@ P(&& G? P(&&ժժժժժժժժժժժժժժժժժժժ&&&&& (ED"P Q@(   D""Q@(~&& T*U @ @ P(U&& q`@?`Ac9p>p@@ !P(Յ&& E" `P(Յ&&  &&&& @"P( E@ P(T&& U*U*A  AU A*P (&&  AA@`Ac9p;p@ !P(Յ&& e@r 9 S(Յ&&  Ԫժժժժժժժժժ/ժժժժժժժ*U*U*ժժŪ*ߪժժ+U*u?ժU*U*U*U*ժժժժժOssOOsժՂժ/ժժժժժj?ժժժվ ?ՂժU*U*U*U*U*ժԪժժժժժժժժժժժժժժ/ժժժժժժժպպ ժժU*U*(Q*U*ժժժժժժժժժժժժժժ/ժժժժժժժժժպպ_~ ժբT* @/ժժժժժժժժժժ*U*ժժժU**U*U*U*U*UpժP*UժU*T*պ_ժժժժժԪՊժժU*ժժժU*U*U*U*U*ժ/ժ0*U*ժU* ?ժժժժժԪժ$ժժժժժժժժժժժժժժժժժժժժժժժժժU*p8?Ԣ+U?U*U*ժժժժժժժժU*U*u/ժժժժժժ*U*U*'rժ*U*UҨժժժU*p8pժ*U*ժժժՂЪժժժU*/ժժժժժժժժժU*U*ŪOy_*U*U*ժ?ҪժբըU**U*U*U*pժՂU*ժժU*s*U*ժU* ?ՂʊժժѪժդU*ԪU*U*U*U*U*U*ժժժժժժժժժժժU*U*u/ժժժժժ*U*UU ?ժժVJժբժդU**U*U*UݻժժժժժժժժU*U*u/ժժժժժժw*U*UU_~ ߪժZjժժըժդ*U*U*UժU*U*U*UժʪժժժժժOssOOsժЪժժժժ_ժժЪժժժ*U*U*U*U*ժU*U*U*UժժժժժժժժժժժժѪ ?ժժժ*U**U*U*U*U*U*UU*U*U*U*U*U*U*U*U*U*ժժժժժժժժժժU*U*U*Uj/ժժժժժ?ժժժժժժժժժժ/ժժժժժժ~תժժպ+J*Uj+U*uت*U*U*U*U*ժaq8|ԪժժժժժԪժժժժը/ժժժժժժժ*U*UժժŪպW*uߪժժ+U*uժU*U U*U*ժժժժժOssOOsժՊժժժժԪ/ժժժժժժժUժ*U*U*U*U*ժժժժժժժժժժժժժժժժժժժժժ/ժժժժժժժת ?ժՂU*U*PU*U*ժժժժժժժժժժժժժժ/ժժժժժժoAժժպպ_~ תժժU*U*U**U*ժp8U*U*U*U*Upժ*UժU*T*պ_ժժժժժժԪՊժժU*ժժժU*U*U*U*U*UժժՊ@*U*ժU* ?ժժժԪժժժբժժժժժժժժժժժժժժժժժժժժժժժժժժժ/ժժժժժa3ժժժժ ?Պߪժժժժ~W*U*U*U+)$UjժըU*UԪժժժU*As8U*ժժժժժժժժU*U*/ժժժժժժժըժ%U*U*ժW*u_*U*U*ժ_*ҪՊŪժU*ЪU*U*U*pժժU*ժժU*U*/ժժժժժժժժժ*U*ժժժU*ԪU*U*U*ժժժժժժժժժժժU*U*u/ժժժժժ*U*UU* ?ժՀVZՊժժդU*ժU*U*U*UݻժժժժժժժժU*U*u/ժժժժժoQ*U*U*UW ժժVjժժՈժդU*As8?*UݻժժժժժժժժU*U*u/ժժժժԪ_ժժժժժժժU*U*U*U*ժU*U*U*UժժժժժժժժՊЪժժժѪ ?ժՀЪժժ*U**U*U*ժU*U*U*UU*U*U*U*U*U*U*U*U*U*ժժժժժժժժժժU*U*U*U*/ժժժժժ7@*U*ժU* ?ՊתժժժѪժդU**U*U*U**U*ժAs8Ҫ?U*U*ժժժժժժժժժբ/ժժժժժժժպ*UժժպW*eߪժժ+U*uժU*U*U*E*ժԪժժOssOOsժժժժժժѪ/ժժժժժժժU*U*U*Uժԯպߪժժ+U*u?ժU*U*U*UժժժժժժOssOOsժԪժժժժժժժת ?ժ_ A*U"U*U*ժՊժժժժժժժժժժժժժ/ժժժժժBժժպպW ըժտU*U*U*D*U*ժAs8Ъժժժժժժժժժժժ/ժժժժժժOתժժժź+)Uj wҪ*U*U*UժU*U*U*U*U*UժժpՊ*U*ժU* ?ժՀԪժժԪժժժT*ժժժժժժժժժժժժժժժժժժժժժժժժժժժժ/ժժժժժ/ժժժՠ ?ժתժ*U*U*U*U*ժժժժժժժժժժժժժժժժժժժժժ/ժժU*U u/ժժժժժժժժ*U*U*ըD_*U*U*ժU*ҪըժժU**U*U*pժժժժժU*Q/ժժժժժժժժժR*U*ժI_*U*U*ժ?ʪժժժU**U*U*U*UpժT*ժժU*T*պ_ժժժժժժҪՊժժU*ժժժդU**U*U*U*UժժժժժժժժU*U*u/ժժժժժ(U*U*Uu ՠVJժժբժդU*Cc|ժ*U*UݻժժժժժժժժU*U*u/ժժժժժժ*U*UU'.r ߪբU*ժժժժU*@s8*?U*U*ժժժժժժժԪ ?ժՂժժժ*U**U*U ժU*U*U*UU*U*U*U*U*U*U*U*U*U*UժժժժժժժժժU*U*U*U*Uժ/ժժժժժ/*U*ժU* ?ԪՀժժժժѪժդU*U*U*U*U*U*U*U*ժժժժժժժժժժժU*U*u/ժժժժժ*U*ժU* ?ժUVժU*U~ߪժժ+U*uժU U*U*U*ժԪժժժժՂժժժժժ/ժժժժժժժ*U*U*ժժѺպ*ߪժժ+U*u?ժU*U*U*UժʪժժժժOssOOsժԪժժժԪ_ժժժժժժժU*U*U*U*ժU*U*U*UժժժժժժժժOssOOsժЪժժժժժժժժժժ/ժժժժժ!ժժպպ תU*U*U"T(U*ժpЪժժժժժժժժժժժ/ժժժժժժժժժպպ+Uk ժU*U*U*U*U*ժ`s?ʪ?U*U*ժժժժժժժժժժ/ժժժժժժժ*ժժժըu?@ժժժժժժժժժժժժժժժժժժժժժժժժժժ/ժժժժժ ժժժ ?ԪՀժժ*U*U*U*U*ժժժժժժժժժժժժժժժժժժժժժժ/ժժժժժsժժժ ?ժU*U*U"U*U*ժԪժժժժժժժ                 쮍䮠䮍Š̠ӠƠ̍ΠŠΠٍ宮⡍䠸殠忍ލ堽堽堽ލ䠸󠴰쮍Ҡſލ堽堽ޠ䠸󠴰쮍ޠ󠸰殍忍̠ŠƠĠ٠򮮮ޠ堽ލ󍱵쿍ލ栽栽栽ލ󠱵󠳰殍宍ԧӠŠŠůƠӮ󠲰쮍ލ捷捱󮍍䮠쮍廠̠٠Ġٍ           @Ah~@?|??p`|?pU* @7~? ((łE(U*pC@Cfp~C`E~0 p @T:#@ժ@U(@<@A```f@9@T*UժłP U ł#U* U*|0`T @* Ղ(T`@@p`pp@*U*ժ uT@~@= F xP*U _պx?@q@`C`pG@xݪ@ @@T EłXժp@CWDCE@LJP> Ԟ*]"@)T*`a`UU x_ԪՂ@_P U*@G@@{GpN@xCp@~_ UPP8UШ  łE/U*p@c @GE(uFUn "`ժ00ׂ<^1F``36`U*uժł@*(UЪ U:Պ@U*pU<| 0(@LJP*@8xP*U}P?_~G_Ղ pxC@OT*U@7(ժ`x~|x??ӊPՂPTP( ŊEłxժx@@EłP 0`( "|(U*=0V`łP @p@`G (Ђ#U( 6_|`@`ժ@(ՎP*Պ#U*@ժ`_<| U*E@?>ժ(x /V@@8 ```O5F`ժt+U*Ex@@xpx|g\*Uł U:"U*x0@>@?@@LJE U:```a 8TP:@ F_ x|?*U*Պ@*(U@8@'ժ(U*8p_<@A?``?C=0 P*U ժłx@U**_X +Ԃ*U0``0L9L`(U*TժP|@``~|?>* ՊEպPժ|0`|>@GłPպ`G`CeaE (@ F7 xժ@ U: Ղ@@U*Pժ@7<@AAa``FA=`Ъ U*E x@@`ժ*@_PU@Ղp@x0L1Xpժu+U*                  cLc L160F`l 3L1f`00fc "D p`8 "D @ p "D  @ @Հ  @UԪՂ  v@"D28|(E(  : ժՂ Ռ @Ղ*U պ8Ԃ  :*U*U V= ѠР @G "D  @ը d"D ` @aL```1FYAA"DD`~ ѨШ p*E U  8@`ը $*E(Q*| CY@AaCCAf f|y3` 0 `@3L1fO``Lg *U(Q* >C`?<$*T*U"  pT2U  C3@A1f 333F3Fc` `L`@fcLY``LM"D" PcL@364ժժժժժժժժժժժժժժժժ"A  H( @ v@ Ռ @U "DVԊ  (ժժժժժ(E*U*  H(E*  l`@*U*U Ղ @Պ*UЪ  *U*U Ղ ѨШШЀ p"" pC 8   (" ըШШЀ @c?*EU~ x 2*T((8 3FGfCLqqqG@@fpC@M(*E Q* pL@1~fxժժժժժժժժժժՠ P"Dժժժժժժժתժժժպժתժ ;L@A6@@]@"D 33`l@&8`"D `"D Xp@  "D Ԋ @T  H*E* "gRXRXICgRX0ĢV:H:PR$;:V:H:RXLIICIChRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICIC4hP(16384):P128168Uh49168,0:P136(I$)0ī192dhP141188hI$I$(P128):NU0((P176P185)(P174P165)4)fNPAf1:D$fD$;"OPEN ";F$;",L1200,D1"fD$;"READ ";F$;",R";N:J120:K$(J):JgD$"CLOSE";F$g1000"gI1(g@g **INPUT ROUTINE**_g951,180:957,251:DING947gI$"":V:H:" ":49168,0:IC1:RX0:LI3gPR$195P210P227P242ČDING:112evRE1126exP195P227PAPA1:P$"C"fzP210P242PAPA1:P$"R"-f|PA1ĺ(7);:PAPA1:102Cf~OT0ĖH:V:17)RfRE0İ140[fRE0dfRM0jff **READ DATA PAGE #PA **f152fD$(dYXd_FL(FL2):FL0FLFTd`SP0:DT0daDQ0TDQ:250dbdd ** CONTINUE REVIEWee951,180:957,251(efRM0H2:V244eh:H:VNej" Continue/Review ";Telaen49168,0|epP(16384):P128112er49168,0etP$(P128):P49200)c7(K$(I),Z,1);c<SO1ZZ(49200)cAZcF255cPFL(FL2):FL2(FL2)953dQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8bdRFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95vdUXX1(X2X1)2dVX,Y1:X2X1X,Y1dXT1DT:T2(FL2)ĺ(23):SSSS2bFL(FL2)bVb FL2(FL2)H((SS(K$(I)))2)1b!H(H)c#Hc%SO0Ac(FL(FL2):FL2(FL2)ĩ105:FL(FL2):50ic-FL(FL2):FL2(FL2)ĺK$(I):80rc.SO1zc/SPc2Z1(K$(I))c4SO1ZZ(DING947a2048a3a998: **MAIN SWITCHBOARD** a ** PRINT SUBROUTINE **bFL0ĖH:V:K$(I):bFTFL#b1?bDT0DT7:SP0SP105mbFL2(FL2)SS40:(20);1;(20);2:27b(20);2;(20);1:SS56bFL(FL2):FL *` * MODULE: PART1.1.OBJ *a * */a ********************************9a LP11Oa FP$"PART1.1.OBJ"`a F$"DATA1.2"va FR$"PART1.3.OBJ"aPA(2047):D$(4)aK$(20)aI27:VI5:20:I-}RI811:VI6:20:I<}WT500:250_}\RM1:V24:HH9:OT1:CT1:100e}f *l` * SAS SOFTWARE PRESENTS *` * 4 INTERACTIVE PROGRAMS *` * I34:V5I:20:I!|T50:2502|I5:V11:20@| T50:250X| I67:V8I:20:Ig| T150:250p|CT1|RM1:V24:100||4 **PAGE #11**|6P$""İ140|91:|>D$"BLOAD NEWSPAPER,A$4000":950|@|CH15|DV5:FL144:20}HAN$"N"2050*{H5:I89:VI2:20:I8{T50:250R{I1011:VI1:20:I`{T50:250x{I1213:VI:20:I{T50:250{I1414:VI1:20:I{T150:250{CT1{RM1:V24:100{{H5:I12:V4I:20:I{T50:250|zI15:VI5:20:I'zT250:2504zV12:20OzV14:I7:FL0:H25:20XzH38zQL1:NU1:160:I$"Y"I$"y"I$"N"I$"n"1940zI$"y"I$"Y"zI$"n"I$"N"zPAPA1:140zAN$I$zz **PAGE#10**zzFL136{H33:V23:FL16:I11:K$(I)CL$(3):204y5T500:250Ey:PAPA1:140Wyl **PAGE #9**`yn1:yoP$"R"ĺD$"BLOAD PI.1904,A$4000":950:400yp(2);:C13:C20:33:CL$(C);:C:(1);yq500yvP$"C"X114:X253:Y15:Y216:300z{H15:FL1360xRE1:RM1:H14:V17:1009xP$"R"PAPA1:140:OxV12:I7:H16:20cx H24:T250:250|x!I810:V4I:20:Ix#T255:250x$V16:20x%H41x&QL1:NU2:160:(I$)1(I$)3Č947:1830x+CL$(3)(K$((I$)7),(K$((I$)7))2)%y0I6:20:I$wI710:VI7:20:I7wRM1:V24:100=wOw **PAGE #8**Xw 1:wP$"R"ĺD$" BLOAD PI.1904,A$4000":950:400:CL$(3)(SP$,22)w500wA13:20A:33:CL$(A):AwFL136wH15:I16:SP220:V4I:20:IxT250:25:NU2:160:(I$)1(I$)4Č947:1630QvcCL$(2)(K$((I$)5),(K$((I$)5))2){vhH33:V22:FL16:I11:K$(I)CL$(2):20vmT500:250vrPAPA1:140vwv**PAGE#7**vvFL8:H5:V5:20vT550:250vI24:VI5:20:I wI56:VA13:20A:33:CL$(A):A%uLFL136IuNH15:I14:SP220:V5I:20:IXuOT250:250uuTRE1:RM1:H14:V17:100uUP$"R"PAPA1:140:uVV11:I5:H16:20uXH24:T250:250uYI69:V5I:20:Iu[T255:250u\V16:20u]H40&v^QL11:RM1:V24:100:P$"R"PAPA1:140:FtX11:X255:Y11:Y223:300`tI79:VI29:20:I|tI1012:VI27:20:ItRM1:V24:100tt@ **PAGE #6**tE1:tFP$"R"ĺD$"BLOAD PI.1904,A$4000":950:400:CL$(2)(SP$,22)tJ500uK:NU2:160:(I$)1(I$)4Č947:1430QsCL$(1)(K$((I$)5),(K$((I$)5))2){sH33:V21:FL16:I11:K$(I)CL$(1):20sT1000:250sPAPA1:140ss **PAGE #5**ssFL8:H5:V5:20sT550:250sI26:VI25:20:I'tRE0 r{(1);r}500 rFL136DrH15:I14:SP220:V5I:20:ISrT250:250prRE1:RM1:H14:V17:100rP$"R"PAPA1:140:rV11:I5:H16:20rH24:T250:250rI69:V5I:20:IrT255:250:FL0rV16:20rH41&sQL1H26:V13:II1:20,qH31:V14:II1:205qDQ0Mq RM1:H14:V17:100Sqeq **PAGE #3**kqtqFL8qH5:V5:20q#T550:250q(I25:V2I5:20:Iq-RM1:V24:100qFqx **PAGE#4**rz1:(2);:X114:X253:Y15:Y211:30'pP$"C"X114:X253:Y15:Y211:300=pH14:V6:FL0:20UpI23:VI6:20:IbpV11:20zpI56:VI8:20:IpT300:250pDQ250pH22:V8:FL144:20pV9:II1:20pV11:H19:II1:20pH30:II1:20pH46:II1:20q1:oRP$"R"İ400oT500'oU(1)JoVD$"BLOAD PI.1904,A$4000":950So[400wo`H14:FL136:I14:VI5:20:IoeT200:250ojI5:V11:20ooRM1:V17:100o~o **PAGE #2**o1:oP$"R"ĺD$"BLOAD PI.1904,A$4000":950o400PA1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500anPALP11025snPA1:2047,PAnD$"RUN "FR$nPA01030nFP$"NO MODULE"ČDING:PA1:1000nPA255:2047,PAnD$"RUN "FP$n1000nL **PAGE #1**oQm66,0:67,64m1536!m5m **HMOVE2>1**Fm60,0:61,64Ym62,255:63,95jm66,0:67,32tm1536zm&m **UNSCRUNCH**m7683m1:(23);(23);mm140m1000m **PAGE #1**m255mI1mPA255PALPOnX2)2)lX:Y1:(92)3l(X2X1)X:Y1:(92)ElX:Y2:(92)_l(X2X1)X:Y2:(92)flXll|l **DELAY**lDD1T1.3:DD:l+ **FILL SPACES**l,YY1Y2:Y:X1:X2X11):Y:l **HMOVE**l60,0:61,32m62,255:63,63,Y2:X2X1X,Y2X2X1XSS,Y2:X>kX1,Y1X2,Y1:X1,Y2X2,Y2DkXk ** DOUBLE BOXak255rkYY11Y21kX1:Y:(124)kX2:Y:(124)kYkX1:Y1:(91)kX2:Y1:(127)kX1:Y2:(123)kX2:Y2:(125)lXX11((X1X252:Y1(Y11)84:Y2Y282:SS6:3=jY(Y1Y2)2Y2SSjX1,YX1,YSS:X1,Y2Y1YX1,Y2Y1YSS:X2,YX2,YSS:X2,Y2Y1YX2,Y2Y1YSS:YjX1,Y1X1,Y2:X2,Y1X2,Y2jXX1(X1X2)2SS kX,Y1XSS,Y1:X2X1X,Y1X2X1XSS,Y1:X,Y2XSSNG:192.iNU2((P176)(P185))ČDING:192DiH2(I$):(P);Wi(I$)QL168ii(I$)QL192iH:V::PR$:QL3:NU0:PR$""ii(I$)1I$"":196iI$(I$,(I$)1)iH3(I$):" ";i168i **BOX**&jX1(X11)54:X2кPR$;:V:H:RXLIICICThRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICICohP(16384):P128168h49168,0:(P136P255)(I$)0ī192hP141188hP160P250ČDING:168iI$I$(P128):NU0((P176P185)(P174P165))ČDI;F$;",L1200,D1";gD$;"READ ";F$;",R";N:J120:K$(J):JMgD$"CLOSE";F$Xg1000`gI1fg~g **INPUT ROUTINE**g951,180:957,251:DING947gI$"":V:H:QL3):49168,0:IC1:RX0:LI3gPR$""PR$"->"gRXRXIChRX0ĢV:H:ČDING:112fvRE11269fxP195P227PAPA1:P$"C"YfzP210P242PAPA1:P$"R"of~OT0ĖH:V:19)~fRE0İ140fRE0fOT0fRM0fCT0ff **READ DATA PAGE #PA **f152fD$(4)fNPAf1:D$gD$;"OPEN "e951,180:957,251&efRM0H2:V242eh:H:VYeiCT1ĺ"(C)ontinue ";:108uej"(C)ontinue/(R)eview";{elen49168,0epP(16384):P128112er49168,0etP$(P128):P195P210P227P242ČDING:112 fuCT1(P210P242)dQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8edRFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95ydUXX1(X2X1)2dVX,Y1:X2X1X,Y1dXT1DT:TdYXd_FL(FL2):FL0FLFTd`SP0:DT0daDQ0TDQ:250dbddH14H15H13eL2(FL2)ĩ200:FL(FL2):50Hc-FL(FL2):FL2(FL2)ĺK$(I):80Qc.SO1Yc/SPkc2Z1(K$(I))c4SO1(K$(I),Z,1)" "ZZ(49200)c7(K$(I),Z,1);c<SO1(K$(I),Z,1)" "ZZ(49200)cAZcF255cPFL(FL2):FL2(FL2)9561bDT0DT7:SP0SP200LbFL2(FL2)SS40:(20);1;(20);2:27gb(20);2;(20);1:SS56bFL(FL2):FL2(FL2)ĺ(23):SSSS2bFL(FL2)bVb FL2(FL2)H((SS(K$(I)))2)1b!H(H)b#Hb%SO0 c(FL(FL2):Fa F$"DATA1.2"'a FR$"PART1.3.OBJ">aPA(2047):D$(4)xaK$(20):1536,160:1537,0:1538,76:1539,44:1540,254aDING947a2048a3a998: **MAIN SWITCHBOARD** a ** PRINT SUBROUTINE **aFL0ĖH:V:K$(I):aFTFLb'+ `10Q` S A S S O F T W A R E P R E S E N T S A L C O H O L . . .` 4 I N T E R A C T I V E P R O G R A M S ` M O D U L E N U M B E R : 1 . 2` B Y : P A U L T . S A N C H E Z ` LP11a FP$"PART1.1.OBJ"               '+ `10Q` S A S S O F T W A R E P R E S E N T S A L C O H O L . . .` 4 I N T E R A C T I V E P R O G R A M S ` M O D U L E N U M B E R : 1 . 2` B Y : P A U L T . S A N C H E Z ` LP11a FP$"PART1.1.OBJ"(X2X1)X:Y1:(92)kX:Y2:(92)k(X2X1)X:Y2:(92)kXkk **DELAY**lDD1T:DD:$l+ **FILL SPACES**Hl,YY1Y2:Y:X1:X2X11):Y:Xl **HGR2** l60,0:61,32:62,255:63,63:66,0:67,64:468ll140Y2:XjX1,Y1X2,Y1:X1,Y2X2,Y2jj ** DOUBLE BOXj255jYY11Y21kX1:Y:(124)kX2:Y:(124) kY3kX1:Y1:(91)FkX2:Y1:(96)ZkX1:Y2:(123)nkX2:Y2:(125)kXX11((X1X2)2)kX:Y1:(92)k82:SS6:3iY(Y1Y2)2Y2SSjX1,YX1,YSS:X1,Y2Y1YX1,Y2Y1YSS:X2,YX2,YSS:X2,Y2Y1YX2,Y2Y1YSS:Y3jX1,Y1X1,Y2:X2,Y1X2,Y2JjXX1(X1X2)2SSjX,Y1XSS,Y1:X2X1X,Y1X2X1XSS,Y1:X,Y2XSS,Y2:X2X1X,Y2X2X1XSS,)ČDING:192hNU2((P176)(P185))ČDING:192hH2(I$):(P);h(I$)QL168 iQL3:NU0:PR$""i*i(I$)1I$"":196?iI$(I$,(I$)1)TiH3(I$):" ";]i168ki **BOX**iX1(X11)54:X2X252:Y1(Y11)84:Y2Y2""PR$"->"gRXRXICgRX0ĢV:H:PR$;:V:H:RXLIICIChRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICIC4hP(16384):P128168Uh49168,0:P136(I$)0ī192dhP141188hI$I$(P128):NU0((P176P185)(P174P165)4)fNPAf1:D$fD$;"OPEN ";F$;",L1200,D1"fD$;"READ ";F$;",R";N:J120:K$(J):JgD$"CLOSE";F$g1000"gI1(g@g **INPUT ROUTINE**_g951,180:957,251:DING947gI$"":V:H:" ":49168,0:IC1:RX0:LI3gPR$195P210P227P242ČDING:112evRE1126exP195P227PAPA1:P$"C"fzP210P242PAPA1:P$"R"-f|PA1ĺ(7);:PAPA1:102Cf~OT0ĖH:V:17)RfRE0İ140[fRE0dfRM0jff **READ DATA PAGE #PA **f152fD$(dYXd_FL(FL2):FL0FLFTd`SP0:DT0daDQ0TDQ:250dbdd ** CONTINUE REVIEWee951,180:957,251(efRM0H2:V244eh:H:VNej" Continue/Review ";Telaen49168,0|epP(16384):P128112er49168,0etP$(P128):P49200)c7(K$(I),Z,1);c<SO1ZZ(49200)cAZcF255cPFL(FL2):FL2(FL2)953dQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8bdRFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95vdUXX1(X2X1)2dVX,Y1:X2X1X,Y1dXT1DT:T2(FL2)ĺ(23):SSSS2bFL(FL2)bVb FL2(FL2)H((SS(K$(I)))2)1b!H(H)c#Hc%SO0Ac(FL(FL2):FL2(FL2)ĩ105:FL(FL2):50ic-FL(FL2):FL2(FL2)ĺK$(I):80rc.SO1zc/SPc2Z1(K$(I))c4SO1ZZ(DING947a2048a3a998: **MAIN SWITCHBOARD** a ** PRINT SUBROUTINE **bFL0ĖH:V:K$(I):bFTFL#b1?bDT0DT7:SP0SP105mbFL2(FL2)SS40:(20);1;(20);2:27b(20);2;(20);1:SS56bFL(FL2):FL *` * MODULE: PART1.1.OBJ *a * */a ********************************9a LP11Oa FP$"PART1.1.OBJ"`a F$"DATA1.2"va FR$"PART1.3.OBJ"aPA(2047):D$(4)aK$(20)aɔȔɐԪժբժ|ժժժժժժժժժժժժժժժժժ"b+ VZ" !""+ VZ"` "W*"}+*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*OثځԂ תժժ ޙ̍́ጀ G~ثځ  ժժժժժժժ ጆጀ EHثثځO Dꃀ'DyثځO` Dχמ?Dثځ_x @ߪժ ժ ߪժժ Հ U+ VZ# ժժժժժժժժժժժ ㏿"b+ VZ"񤒠䬂ɑ٤ɑԪժժ" ?DHثځO|!G/D"~+ VZ"` _*U*uW*U*U*U*U*?U*Uz ߪժժ ժժժժժժժժժժժժժժժժժ"+ VZoՊ תժժ ƙጀ"z⨘ƸŃժժժ2""?b+ VZ"p~ !""+ VZ"|"z"|+ VZ" "\zjժժ /OثځOՊ תժժ ñ Gxثځ  ժժժժժժժժժժժ  Gzثځɘ񸔇ثځGp @ԪԪՂժժ/DثځO|? D?Dثځ DܪժժժժĈ ߪz+ VZ' ժժժժժժժժժժժ r+ VZ#ɤժՊժ2" ?DHثځ_@ЪժժժժժժժժժժժժժժժժE?D"p "+W"~ԪЪ+ VZՊժ"| ?   ժժG Ԫժժժժժժժժժժժժժժժժ _+ VZՊ תժժ " Gxثځ ɤժժժ3㏿"b+ VZ?"~8""+ VZ"@ ""~+ VZځ_Ip  D׾Dh ؇ ~ !Gثځժ תժժ " xثځ ժժժժժժժժժժ @*ጆጀ EHثځx?:/DثځO~ @ ǁ@/Dثځժg@ DժՂՇժ'Dث       @̟χՀժժժժժ"ՀժժժժժժժժժժժժժժժժժժժժժժժՀޮժժժժf 2ffL3fLՀժժժժժ&f̟Հժժժժժf0f̟χՀժժժժժժժժÙ ՀժժժժժժժժժժժժժժժժժժժժժժժՀժÁժժժժՀժÇᏆժժժժՀժժժժժ3fL3̙Հժժժժժs3f2 Հժժժժժ333 ՀժժժժժC3f Հժժժժ χՀժժժժժժժժժժժժժժժժժժժժժժժՀժ׭ÁߟժժժժՀժÇᏆժժժժՀժժ3fLfL3fLՀժժժժժՀժժժժժ@χՀժժժժժ χՀժժժL3fL ՀժժժժժժժժժժժժժժժժժժժժժժժՀժ֍߿ժժժժՀժÇᏆժժժժՀժ"ժժՀժ ժժժժL3fL̙̓Հժ ժժժժL3fL ՀժժժժժL3fL ՀժժժժժL3fL ՀժժժժՀժժժժժ@̟χՀժժժժժժժժժժժժժժժժժժժժժժժՀժֽժժժժՀժᏆժժժժՀժ"ժժժժfL3fśfL3fLՀժժժժժff̟Հժٿժժժժff̟χՀժժժժժf 0f̟χs3f2 Հժժժժժ3&33 ՀժժժժժC3f Հժժժժժ"ԪՀժ"ժժժժՀժጆժժժጆժժժժՀժÇÁᏆժժժժ̙ ̙Հժߏ珇ýժժժժ333 ՀժϙժժժժժժχՀժժժժժ3HχՀժժժժժρχՀժժժժժ"ЪՀժ"ժժժժՀժժጆժժժժՀժÇÁᏆժժժժfL3fLՀժժժժժ@fL3fLՀժٿժժ̙ՀժժժժժL3fL ՀժժժժժL3fL ՀժժժժժL3fL Հժժժժժ"Հժ"ժժժժՀ@ժ"ժժժժՀժáժժժժՀժÇᏆժժժժՀժƇ~ﰛժժժժL3fL      J I  ?`,0`LJ"1536*a2(4)"BLOAD OHWIPE,A$9950"Ta<7704,112:(4)"BLOAD PI.1904,A$7000"^aA7683iaF39248vaK7704,64aP(4)"MAXFILES1"aZ(4)"RUN PART1.2.OBJ`60,0:61,32%`62,255:63,636`66,0:67,64@`1536N` 16299,0n` "BLOAD PI.SHERMAG,A$2000"`"BLOAD SHERWALK.ML,A$9000"`(36864`-60,0:61,64`.62,255:63,95`/66,0:67,32`01536`116300,0a2(4)"RUN PART1.2.OBժժժժժժժ$$ $$$ $$$ $$ժժժժժժժժժժժժժժժժժժ $ $$$ $$ݻݻݻݻݻݻݻݻݻ xa|c`gp~g?xG9c|cx$$ $$$$ $$ ժժժժժժժժժ$$ $$$ $$$ $$$ x?p`gp~g`Ap``$$ 繘$$Á$$珐 $$$$ $$$$Ûà $$$$ $$$ $$$ $$$2$$ 矇Ꮬ$$$$Ð $$$$ ǃ$$ $$˹$$ $$$ $$$ $$$2$$ ῜$$$2$$ $$ $$ $$ǃ$$ $$$ $$$ $$$2$$ $2$$ ΃灜$$ ๜΃灜$$Ɓ $$қ$$ ժժժժժժժժժժժժժժժժժժ$$ $$$ $$@r($$ 灘΃灜$$ 灌๜΃灜$$$$$$ ݻݻݻݻݻݻݻݻݻ$$ $$$ $$                 @ 0 @p^j L f03㙌́ጆ ? dWkW+ 1@ |*up    x@@@ F @ p@ժ ~@ @    @@ @@ 5 @pxO `03́ጆ @$;}>710 @V*U<`?!  Y@@@ պ@ pת@ |@@0ժ  @@``@5@ @]  <@ $U=U^5 1 @ W*U;$ 1@  @@ |+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@ pת `@ `@ @ ժ   `" `@ )  @D @ ]`@  p 0ǩժժժժժժժժժժժժժժժ@ p֪0@~ @վ@@ ժ  @``@@ժժժժժժժժժժժժժժ @D @]p0 @B L `0~3ۙϟጆ@ @A  @ ժ   @ `  )U*U*U*U*U*U*U*U*U*U*U*U*U*U* @  @f @ ]P @cL `03ϙ́ƙ p`dU;Uo51``0]zWk&1@ժժժժժժժժժժժժժժ @ " @]`! @s 0F f03Ǚ́氀 p  DU;U{5 1@0 Fu?}.f 1@  p ``(U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@ p֪ >`@ ] @`CxCc㰀 pqC3WkU>52pFU/U+B1@@p p  pܪ`\@@ A걀@ ժ  @4`@Ձ @@<@`]0`? @ 5`3 WkU. 2`^ $U+U+ 1 p @ 0r@ 0x`@ A9 @ @ժ  @ 4`Շ   @   -p@0@5`kW*LxCcp?p`adU+U+1`?P b@ xp @ Bꐀ@ @ժ@ @8՚  $imPA01030mFP$"NO MODULE"ČDING:PA1:1000mPA255:2047,PAmD$"RUN "FP$m1000Pl60,0:61,32:62,255:63,63:66,0:67,64:468ll140l1000l **PAGE #1**l255lPA255PALP%mPA1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,25007mPALP11025ImPA1:2047,PAZmD$"RUN "FR)nkX2:Y2:(125)kXX11((X1X2)2)kX:Y1:(92)k(X2X1)X:Y1:(92)klm(92)k(X2X1)X:Y2:(92)kXkk **DELAY**lDD1T:DD:$l+ **FILL SPACES**Hl,YY1Y2:Y:X1:X2X11):Y:Xl **HGR2** ,Y1:X2X1X,Y1X2X1XSS,Y1:X,Y2XSS,Y2:X2X1X,Y2X2X1XSS,Y2:XjX1,Y1X2,Y1:X1,Y2X2,Y2jj ** DOUBLE BOXj255jYY11Y21kX1:Y:(124)kX2:Y:(124) kY3kX1:Y1:(91)FkX2:Y1:(96)ZkX1:Y2:(123168ki **BOX**iX1(X11)54:X2X252:Y1(Y11)84:Y2Y282:SS6:3iY(Y1Y2)2Y2SSjX1,YX1,YSS:X1,Y2Y1YX1,Y2Y1YSS:X2,YX2,YSS:X2,Y2Y1YX2,Y2Y1YSS:Y3jX1,Y1X1,Y2:X2,Y1X2,Y2JjXX1(X1X2)2SSjX,Y1XSSP141188hI$I$(P128):NU0((P176P185)(P174P165))ČDING:192hNU2((P176)(P185))ČDING:192hH2(I$):(P);h(I$)QL168 iQL3:NU0:PR$""i*i(I$)1I$"":196?iI$(I$,(I$)1)TiH3(I$):" ";]iNG947gI$"":V:H:" ":49168,0:IC1:RX0:LI3gPR$""PR$"->"gRXRXICgRX0ĢV:H:PR$;:V:H:RXLIICIChRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICIC4hP(16384):P128168Uh49168,0:P136(I$)0ī192dh0dfRM0jff **READ DATA PAGE #PA **f152fD$(4)fNPAf1:D$fD$;"OPEN ";F$;",L1200,D1"fD$;"READ ";F$;",R";N:J120:K$(J):JgD$"CLOSE";F$g1000"gI1(g@g **INPUT ROUTINE**_g951,180:957,251:DI49168,0|epP(16384):P128112er49168,0etP$(P128):P195P210P227P242ČDING:112evRE1126exP195P227PAPA1:P$"C"fzP210P242PAPA1:P$"R"-f|PA1ĺ(7);:PAPA1:102Cf~OT0ĖH:V:17)RfRE0İ140[fREX2,Y1:95vdUXX1(X2X1)2dVX,Y1:X2X1X,Y1dXT1DT:TdYXd_FL(FL2):FL0FLFTd`SP0:DT0daDQ0TDQ:250dbdd ** CONTINUE REVIEWee951,180:957,251(efRM0H2:V244eh:H:VNej" Continue/Review ";TelaenFL2)ĺK$(I):80rc.SO1zc/SPc2Z1(K$(I))c4SO1ZZ(49200)c7(K$(I),Z,1);c<SO1ZZ(49200)cAZcF255cPFL(FL2):FL2(FL2)953dQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8bdRFL(FL2):FL2(FL2)ēX1,Y1(20);1;(20);2:27b(20);2;(20);1:SS56bFL(FL2):FL2(FL2)ĺ(23):SSSS2bFL(FL2)bVb FL2(FL2)H((SS(K$(I)))2)1b!H(H)c#Hc%SO0Ac(FL(FL2):FL2(FL2)ĩ105:FL(FL2):50ic-FL(FL2):FL2(ATA1.2"va FR$"PART1.3.OBJ"aPA(2047):D$(4)aK$(20)aDING947a2048a3a998: **MAIN SWITCHBOARD** a ** PRINT SUBROUTINE **bFL0ĖH:V:K$(I):bFTFL#b1?bDT0DT7:SP0SP105mbFL2(FL2)SS40:WARE PRESENTS *` * 4 INTERACTIVE PROGRAMS *` * *` * MODULE: PART1.1.OBJ *a * */a ********************************9a LP11Oa FP$"PART1.1.OBJ"`a F$"D24:100z!z4 **PAGE #11***z91:Mz>D$"BLOAD PI.NEWSPAPER,A$2000"UzCH6hzDV3:FL144:20zHI26:VI4:20:IzRI710:VI5:20:Iz\100zf *l` * SAS SOFT50:250"yI1213:VI1:20:I0yT50:250HyI1415:VI:20:IWyT150:250jyRM1:V24:100pyyH1:I12:V4I:20:IyT50:250yI35:V5I:20:IyT50:250yI67:V6I:20:Iy T50:250y T150:250zRM1:VI$"N"I$"n"19405xX114:X253:Y15:Y216:300HxI$"y"I$"Y"[xI$"n"I$"N"gxPAPA1rxAN$I${x140xx **PAGE#10**xxFL136xAN$"N"2050xH5:I89:VI3:20:IxT50:250xI1011:VI2:20:IyT5:V17:100wl **PAGE #9**&wn1:LwqP$"R"ĺD$"BLOAD PI.1904,A$2000"twvP$"C"X114:X253:Y15:Y216:300w{H15:FL136wI15:VI5:20:IwT250:250wV12:20wV14:I7:FL0:H20:20wH33xQL1:NU1:160:I$"Y"I$"y"17:100vV12:I7:20"v H24;v!I810:V4I:20:IJv#T255:250Wv$V16:20`v%H43v&QL1:NU2:160:(I$)1(I$)3Č947:1830v+CL$(3)(K$((I$)7),(K$((I$)7))2)v0H33:V23:FL16:I11:K$(I)CL$(3):20v5T500:250 w:RM1:H1IuI56:VI6:20:I3uI710:VI7:20:IFuRM1:V24:100Lu^u **PAGE #8**gu 1:uD$"BLOAD PI.1904,A$2000"u21:33:CL$(1)u22:33:CL$(2)uFL136uH15:I16:SP220:V4I:20:IuT250:250vRE1:RM1:H15:V.t^QL1:NU2:160:(I$)1(I$)4Č947:1630YtcCL$(2)(K$((I$)5),(K$((I$)5))2)thH33:V22:FL16:I11:K$(I)CL$(2):20tmT500:250trRM1:H15:V17:100twt**PAGE#7**ttFL8:H5:V5:20tT550:250uI24:VI5:20:s@ **PAGE #6**sE1:9sJD$"BLOAD PI.1904,A$2000"MsK21:33:CL$(1)XsLFL136|sNH15:I14:SP220:V5I:20:IsOT250:250sTRE1:RM1:H15:V17:100sVV11:I5:20sXH24sYI69:V5I:20:Is[T255:250s\V16:20s]H43$((A$)32).r $A$"Y"A$"N"ČDING:92156r$A$Kr$A$"N"ĹDING,96[r@$A1500:AzrE$X18:X247:Y15:Y215:300rT$M1:V24:100rX11:X255:Y11:Y223:300rI79:VI29:20:IrI1012:VI27:20:IrRM1:V24:100sress"!qe#21:"Return to begin.".qi#49168,0Iqn#P(49152):P1289070Tqx#9060mq#D$"RUN PART1.4.OBJ"wq#9060}q#:"WOULD YOU LIKE SOUND WHILE"q#18:"WORKING ON THIS PROGRAM?"q#12:21:"Press Y or N:";q#12:35:A$ r$A$"Z"A WANT TO START?"8p<#15:9:"1) The beginning (Side A)"QpF#15:11:"2) Side B"xpP#17:14:"PRESS 1 OR 2 TO BEGIN:";pR#X115:X241:Y17:Y214:200pU#49168,0pZ#A$:A$"1"A$"2"Č947:9045p_#A$"1"ıqd#:11:15:"Turn the disk over and p9200+oJ11:17:"HAVE YOU EVER RUN THIS"QoT12:17:"PROGRAM BEFORE (Y/N)?";^oV49168,0oYA$:A$"Y"A$"y"A$"N"A$"n"ČDING:8025o^A$"N"A$"n"ıoh11:16:25);:12:16:25);o(#V515:8:V:40);:Vp2#15:7:"WHERE DO YOU220 n140nFnV2:FL5:20:(20);1:X18:X248:Y11:Y23:210Pn1225]n4:(6)|nY16:Y220:X13:X254:200nH4:V6:FL40:I2:20nI37:VI5:20:InI813:VI6:20:In100nn@nEX18:X248:Y15:Y215:300oG1000mQV2:FL5:20$mS(20);1BmVX17:X249:Y11:Y23:210Om[4:(6)nm`Y16:Y217:X13:X254:200meH4:V6:FL40:II1:20mjFL0:I37:VI5:20:ImoI810:VI6:20:Imt100m~m **PAGE #2**mI1mZE1nP$"C"1255*lPA1100,1200,1300,1400,1500,1600kX:Y2:(92)Xk(X2X1)X:Y2:(92)_kXekuk **DELAY**kDD1T:DD:k,YY1Y2:X1:Y:1X2X1);:Y:k7683:(23);(23);:k140k1000k **MAIN SWITCHING ROUTINE**lX1X,Y2X2X1XSS,Y2:X7jX1,Y1X2,Y1:X1,Y2X2,Y2=jQj ** DOUBLE BOXZj255kjYY11Y21~jX1:Y:(124)jX2:Y:(124)jYjX1:Y1:(91)jX2:Y1:(127)jX1:Y2:(123)jX2:Y2:(125)kXX11((X1X2)2)Y1(Y11)84:Y2Y282:SS6:36iY(Y1Y2)2Y2SSiX1,YX1,YSS:X1,Y2Y1YX1,Y2Y1YSS:X2,YX2,YSS:X2,Y2Y1YX2,Y2Y1YSS:YiX1,Y1X1,Y2:X2,Y1X2,Y2iXX1(X1X2)2SSjX,Y1XSS,Y1:X2X1X,Y1X2X1XSS,Y1:X,Y2XSS,Y2:X2185)(P174P165))ČDING:192GhNU2((P176)(P185))ČDING:192]hH2(I$):(P);oh(I$)QL168hQL3:NU0:PR$""hh(I$)1I$"":196hI$(I$,(I$)1)hH3(I$):" ";h168h **BOX**iX1(X11)54:X2X252::RX0:LI3gPR$""PR$"->",gRXRXICVgRX0ĢV:H:PR$;:V:H:RXLIICICgRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICICgP(16384):P128168g49168,0:P136(I$)0ī192gP141188 hI$I$(P128):NU0((P176P f152fD$(4)fNPA*f1:D$IfD$;"OPEN ";F$;",L1200,D1"ufD$;"READ ";F$;",R";N:J120:K$(J):JfD$"CLOSE";F$f1000fI1ff **INPUT ROUTINE**f951,180:957,251:DING947 gI$"":V:H:" ":49168,0:IC109etP$(P128):P195P210P227P242ČDING:112GevRE1126gexP195P227PAPA1:P$"C"ezP210P242PAPA1:P$"R"e|PA1ĺ(7);:PAPA1:102e~OT0ĖH:V:19)eRE0İ140eRE0eRM0ef **READ DATA PAGE #PA **dXT17:TdYX/d_FL(FL2):FL0FLFT5dbNdd ** CONTINUE REVIEWdde951,180:957,251wdfRM0H2:V24dh:H:VdiPA1ĺ"(C)ontinue ";:108dj"(C)ontinue/(R)eview";dldn49168,0dpP(16384):P128112er49168,c4SO1ZZ(49200)'c7(K$(I),Z,1);=c<SO1ZZ(49200)DcAZMcF255mcPFL(FL2):FL2(FL2)95cQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8cRFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95cUXX1(X2X1)2cVX,Y1:X2X1X,Y1 (FL2):FL2(FL2)ĺ(23):SSSS25bFL(FL2)"gRXRXICgRX0ĢV:H:PR$;:V:H:RXLIICIChRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICIC4hP(16384):P1Cf~OT0ĖH:V:17)RfRE0İ140[fRE0dfRM0jff **READ DATA PAGE #PA **f152fD$(4)fNPAf1:D$fD$;"OPEN ";F$;",L1200,D1"fD$;"READ ";F$;",R";N:J120:K$(J):JgD$"CLOSE";F$g1000"gI1(g@g:H:VNej" Continue/Review ";Telaen49168,0|epP(16384):P128112er49168,0etP$(P128):P195P210P227P242ČDING:112evRE1126exP195P227PAPA1:P$"C"fzP210P242PAPA1:P$"R"-f|PA1ĺ(7);:PAPA1:1021V8bdRFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95vdUXX1(X2X1)2dVX,Y1:X2X1X,Y1dXT1DT:TdYXd_FL(FL2):FL0FLFTd`SP0:DT0daDQ0TDQ:250dbdd ** CONTINUE REVIEWee951,180:957,251(efRM0H2:V244eh20:IxV22:RM1:100xI7xV22:RM1:100=xSO1zc/SPc2Z1(K$(I))c4SO1ZZ(49200)c7(K$(I),Z,1);c<SO1ZZ(49200)cAZcF255cPFL(FL2):FL2(FL2)953dQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y9:VI8:20:I"wV22:RM1:100(w1wCT1V22:RM1:100HwQwCT11^wgwCT122:RM1:100]wC"X121:X255:Y122:Y26:300:1720w1::D$"BLOAD INFAST,A$4000":950wFL0wI13:VI7:20:IxI49:VI8:vTH21:I37:VI5:20:I5vYI812:VI6:20:IHv^V22:RM1:100Nvr`v *:PAGE #6**uv **DEPRESSANT**vP$"C"X121:X255:Y122:Y26:300:1720v1::D$"BLOAD INFAST,A$4000":950vFL0vH21vI13:VI7:20:IwI4FL40:H4:V13:20:FL136%uT150IuHH10:I68:V7I:20:250:IXu"T250:250vu,H4:FL40:V19:20:FL136u6HH10:I1011:VI9:20:I:FL0u;u@ **PAGE #5**uA **BODY---INFAST**uBFL0uJ1::D$"BLOAD INFAST,A$4000":950500:250:X13:X252:Y123:Y27:300-t1500VtVV3:RM1:RE1:CT1:H14:100:VV3`t1492tI16:FL0:VV2:H18:20:""tT400:250tPAPA1:140ttFL40:I2:H4:V8:20tFL136tHH10:I34:V5I:20:ItT250:250uss the Return Key after "::VV4:FL8:20jsVV1:K$(I)" you type in your answer. ":FL8:20:VV5:}sH33:QL3:160sIX(I$)sIX40IX.41490sFL0:I15:H14:VV2:20:T500:250sIZ1X13:X252:Y123:Y27:300:1500:1495#tT rSP2005rFL8:I0:H3:K$(I)(SP$,(K$(1))):20OrFL40:I2:H5:V8:20urFL136:HH10:I34:V5I:20:IrT250:250rX18:X248:Y113:Y213:200rV13:H9:I6:20rT200:250rV16:H15:I13:20:SP200:H13*sI21:K$(I)" PreSP200*q-FL8:I0:K$(I)(SP$,(K$(1)))2q/20"gRXRXICgRX0ĢV:H:PR$;:V:H:RXLIICICgRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICIChP(16384):P12816H:V:19)fRE0İ140"fRE0+fRM04fCT0:fXf **READ DATA PAGE #PA **bf152nfD$(4)wfNPAf1:D$fD$;"OPEN ";F$;",L1200,D1"fD$;"READ ";F$;",R";N:J120:K$(J):JfD$"CLOSE";F$f1000fI1fg *tinue/(R)eview";el#en49168,0>epP(16384):P128112Ker49168,0etP$(P128):P195P210P227P242ČDING:112eu(P210P242)CT1ČDING:112evRE1126exP195P227PAPA1:P$"C"ezP210P242PAPA1:P$"R" f~OT0Ė(X2X1)2 dVX,Y1:X2X1X,Y1/dXT1DT:T6dYXRd_FL(FL2):FL0FLFTed`SP0:DT0:255ydaDQ0TDQ:250dbdd ** CONTINUE REVIEWde951,180:957,251dfRM0H2:V24dh:H:VdiCT1ĺ"(C)ontinue ";:108ej"(C)onc4SO1ZZ(49200)(c7(K$(I),Z,1);>c<SO1ZZ(49200)EcAZNcF255ncPFL(FL2):FL2(FL2)95cQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8cR(K$(I),1)"^"X2X2280SScSFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95 dUXX1FL(FL2):FL2(FL2)ĺ(23):SSSS28bFL(FL2)?bVhb FL2(FL2)H((SS(K$(I)))2)1sb!H(H)zb#Hb%SO0b(FL(FL2):FL2(FL2)ĩSP:FL(FL2):50b-FL(FL2):FL2(FL2)ĺK$(I):80b.SO1b/SPb2Z1(K$(I)) "Pa998: **MAIN SWITCHBOARD** ma ** PRINT SUBROUTINE **aFL0ĖH:V:K$(I):aFTFLa1:SP0SP140aDT0DT7aFL2(FL2)SS40:(20);1;(20);2:27a(20);2;(20);1:SS56)b2 `10#` BY PAUL T. SANCHEZ[` LP6:1536,160:1537,00:1538,76:1539,44:1540,254q` FP$"PART1.2.OBJ"` F$"DATA1.3"` FR$"FLIP MODULE"`PA(2047):D$(4)`K$(21)`:DING947:PA255PA6`2048:255+a3:SP$"            0$tI1114:H6:VI4:FL8:20:IBt24:6::" (C)ontinue ";Mt(2);rt"A$:A$"C"A$"c"ČDING:1570t,(1);:1t6PALP1:s(1);:500&sV18:H6:FL40:20/s400:s(2);XsI89:H17:V10I:20:Ihs(1);:500qs400s24:6::" Continue ";:s(2);:49168,0sA$:A$"C"A$"c"ČDING:1543s 500s X15:X254:Y110:Y223:300t (1);:5024:6::" (C)ontinue ";$r(2);Ir"A$:A$"C"A$"c"ČDING:1570Wr,(1);:1er6PALP1:LP1:00:500rI13:VI9:H6:20:I:500:(1);rT2000:250rV15:FL40:20r400r(2);rI56:H17:V10I:20:IK$(9)" "K$(9)/qI89:H17:V10I:20:I?q(1);:500Hq400fq24:6::"(C)ontinue";:zq(2);:49168,0qA$:A$"C"A$"c"ČDING:1543q 500q X15:X254:Y110:Y223:300q (1);:500qI1114:H6:VI3:FL8:20:Ir:p4p(2);:X13:X254:Y110:Y223:300:500\pI13:VI9:H6:20:I:500:(1);lpT2000:250pV15:FL40:20p400p(2);pI56:H17:V10I:20:Ip(1);:500pT1500:250pV18:H6:FL40:20p400p(2);q:V15:FL40:20o14409oX14:X253:Y121:Y222:200soI7:H5:400:V21:(2);:20:I9:V22:20:(1);:500oT1000:250ooI8:V18:FL8:H9:20o1430oI8:V18:FL0:H9:20oH35:QL1:NU1:160oH:V:"->"pPAPA1:140" ";:nZ(2);:49168,0On_A$:A$"C"A$"R"A$"c"A$"r"ČDING:1375Xnd500vniA$"R"A$"r"İ140:1200nnPAPA1:140nsnxn}(2);:X111:X253:Y110:Y223:300:500nI15:VI9:H6:20:I:500:(1);nT4000:250oI60:(1);(mI1112:VI1:FL12:20:IEm(I13:V13:H11:FL40:20Um2400:(2);zm7K$(14)" "(K$(14),(K$(14))1)m<I1417:VI1:H11:FL0:20:500:ImF(1);mHT3000:250mK21:11:"Let's try one..."mP400nU24:11::" "K$(13)(1);&lY118:Y219:X15:X250:200/l400:l(2);WlI89:H5:VI10:20:Igl500:(1);l24:5::" "K$(2)" ";:l(2);l49168,0l A$:A$"C"A$"c"ČDING:1290l(1);l500m(2);:X12:X254:Y110:Y222:300:50(2);:X15:X250:Y110:Y222:300:5002k(1);LkV8:FL4132:I1:20Yk(20);1tkI2:V11:H2:FL40:20}k400k(2);kK$(4)" "K$(4)kI34:VI8:H13:FL0:20:500:IkI67:VI7:H13:FL0:20:500:IkT2000:250l P1jQ1::D$"BLOAD LOCKER"(jV9501j[400" L2(FL2)95FcQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8ucRFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95cUXX1(X2X1)2cVX,Y1:X2X1X,Y1cXT17:TcYXc_FL(FL2):FL0FLFTcbc **READ DATA PAGE #PA **dD$(4))2)1b!H(H)b#H!b%SO0Sb(FL(FL2):FL2(FL2)ĩ205:FL(FL2):50{b-FL(FL2):FL2(FL2)ĺK$(I):80b.SO1b/105b2Z1(K$(I))b4SO1ZZ(49200)b7(K$(I),Z,1);b<SO1ZZ(49200)bAZbF255cPFL(FL2):FCHBOARD** 'a ** PRINT SUBROUTINE **@aFL0ĖH:V:K$(I):JaFTFLQa1aFL2(FL2)SS40:(20);1;(20);2:27a(20);2;(20);1:SS56aFL(FL2):FL2(FL2)ĺ(23):SSSS2aFL(FL2)aVb FL2(FL2)H((SS(K$(I))h`1::"BLOAD BS,A947"#`79`951,180:957,251B` LP4V` FP$"NO MODULE"g` F$"DATA.SI"}` FR$"PART1.1.OBJ"`PA(2047):D$(4)`K$(20)`DING947:1536,160:1537,0:1538,76:1539,44:1540,254`2048 a998: **MAIN SWIT            0ժz_,U'@GТժz~@Т`U*U*U*U*m?}T @mOg*U (*U*\`*_ @}*U*Ղ_,U*Ԋ@@`U*U*U*U*_,U*>@GТU*U*U*U*[U*U*U*U*|?}@T @kp<`(U Ђ(*U*]@A*_ p?(U*_,U*~ @CU*U*U*U*_,U*~ @GТ`U*U*U*U*g@Т @ժz~m@l`aԪ@x]`spԵ>{_,UՊ@@m8p*U @(UU*] F*_ `U+U*U*U*_,U*~ @ТU*U*U*U*x'@GТժzx}@Gq kp`p Ъ_@Ե@x^|Ե@ժz_,Ug@GТժz>@Т`U+U*U*U*_,U*Ԋ@@U*U*U*U*,U'@GТժzlЂ>@GqԂ k@x@Њm`Ԫ@x]lԵ @իz_,Ug@pժz|>@GТU*U*U*U*`}@CaԀ k@@ U@,,U'@GТ`ժzfg@Тp8m>}Рm88Ԫx]Եp8z_,UՊ@@ժz,U>@GТU*U*U*U*i@Т@@Ԃ k@|?@T Шm`*U `(*U*] @*_ 0  ѩP8L-@өPLrpթ` ` Рԥ<^i` Ԭԥ\1i`L8iАL-Lג8iҐLr?Lɀɨ3L ѩ(8L-_LɀɨL@ө(8Lr V ,P( 9 ` > R ? V2 ,I 9 > R ?` ,C( 9`թ`* > R V ? ` * > R V ? `* > R V ?  ` ? m ` ӥ @`-PRWUL`` 9 `фЩpթ`ӄ`m`m` @өҩ` ͑  * > R V ?  V4 ,* > R ?  VN( 98 > R ?  !!                                                                      !!!!!*0 <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>>>< (&20 *, >>>>>> >""""">> >>> 8 >"""> >> >>>"">> >"">"">>""> >>> "! ! ! !!@A8m @0 /@ q@8@8e@@AiAPʘ8e@@AiA@ q@8@֠Ș8e@@AiA@ q@8@` & Xq@8@`! ! H hL` ,T,RL r r g zR e  g clvPPPP@#"ÿ??@ `а8`NwL7 H *&+)'h}"H c0 c"  L" *&!0+i+'i'`%J) +hj*` :+2 VV LLޅUHTHL ʊ c%LL$O"%C%L" 7 )ߠقΰɐU8Iiii+`8"%%H hi#L"%H$3  8***,uIL -*+i+Ȅh!1 $0p,u0*I*!0 +i+ & & &mx)my $20t I-t I-t$0PPT&'JH&'h&&'&&'&FJ 쩀L  &J*, YYL 9Y*߬ +i+LG m%%#F emy @($0pJ (!` 8 ۩Fŭ к,w wNw)pT  r HH`@, `,T@,U`,,L 8nT`8n`u" w Nu`I`8n`0jjj`  $(8$$hh`  $0,p FjFFFj : .II -- Fj xyz8i!$PzMz0`*+i+`z`1I (,ɛ nU ! ,U0ɕ  Hɍ hwL f NO,+i+ U `*Y*`Lű S(*)  + II U 8++`$2 $pi}e*e*`p Pp ` $8 LLf LE L 8697,R,Wxy " (!#i18 ,PL` ~Lv,T ~hhL 󦴊HH hh`8HH$(L ( vv  ,Ɂvv,c0 ې I""""""""!!104,44,129,192,205,0,224,240,3,44,128,192,96,201,3,208,23,44,139,192,44,139,192,173,3,208,201,76,208,5,169,127,141,0,208,104,44,129,192,96,104,96(978)189ĹB205,10:DM FIX$cB0c1::1