+JJJJ  / X: L5ŠԠӠˠ͠ŠҠŮ t& & & & & & & & & & & & & & U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*& & & `063?x?``063 630p?`xGlf0p& & 0& & 0& & & & & & & & & & & & & & & & & `0f3```?f3 f300CLg<00& & |qx0x0~pGaxc~x@?|g0~s @ ՊՊ|ן5i3f k @ @S8ժѪԪ^~pժըժ\~?}ԪԪѪr9! Պժ6ph 3f o a ժ`ժՂ@ ԨըՂ8ժԨԪԪ^|?=ժըՊ\~~ЪԪ a0,!,6.$,6,$,,--55.-5?&7>$7<,?$46??.-- Wh Acohol Is So Dangerous.":FL4:20Zz500`z}zD$"BLOAD PI.BAL,A$4000"z500zL`MN$(MN):(MN$)1MN$"0"MN$a5:20:BUZZ(49200):HR$;":"MN$%aHRHXMSMN9607aBUZZ(49200)@  `q|O`As8@qO?`F%pw +!j+!j|@} +!j+!j\Cqgg@F2p+!j+!jwߪ+!j+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj+X+!j,+`+!j,+!j+!j,@U:xvpUpU*Uj+!jj+!j*8`@Upf*U*U*U*}o`*Uj+!jj+!j*AG|@U*Lp*U*U*Uz~ܪ-Uj+!jj+!jjժժժժժժժժժժժժժժժ}Uj+!jj+!jj+@o*Uj+!jj'j+!j+U(Uj+!j0!j@?+!j+!j+U*U+!j+U*UG`gg@+!j+U*U+!j+U*U!{?+!j+U*U+!j+U*U+@+!j+U*U$+U*U+!j+!j+U*U0*}U*U*U*U*U*U*U*U*U*U*Uj+!j@?j+!j*`xxOc~@U*Up7V*U*U*U*U*Uj+!jj+!j*`NzwW*U*U*Uw?Uj+!jj+!jj+p+Uj+!jjժժժժժժժժժժժժժժժժj+ ?U*Uj+!j0)+!jk@_+!j+U*U``xOn@ Vs +!j+V+!j+U*U@?x@Oc@8`& n+!j+U*U+!j+U*U @@9 3U*U*U*U*Uj+!j@j+!j*`q`@U*UzyHy?U*U*U*U*U*Uj+!jj+!j*`q@caAs8@UjyC@%|p+Uz+U*Uj+!jj+!j* @U2 .U*U*U*}h*Uj+!jj+!j*Gagg@UzFp*U*U*Uj @-Uj+!jj+!j*U*U*U*U*U*U*U*U*U*U*UU*U+!j+U*U|@} +!j+U*U+!j+U*U\Cqgg@F2p+!j+U*U+!j+U*Uwߪ+!j+U*U+!j+U*U+X+!j+U*Uժժժժժժժժժժժժժժժժ+U*U+`+!j+U*U0*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*gqg@U B_*U*U*Uj<+Uj+!jj+!j*}U*U>\*U*U*UoߪUj+!jj+!jj+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*=-Uj+!jj'j+xW*Uj+!j0)+!j+@W+!j+U*U`q`@`8 +!jk|W+!j+U*U`q|O`As8@qO?`F%pw +!j+*U*U*U*U*Uj+U*U+x+!j+U*U0*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj+!j@j+!j*@?`A@U*U*uwH_*U*U*U*U*U*Uj+!j~?j+!j*p|O`As8@U*p\>6F_O{U*U*U*U*Uj+!jj+!j*|@UNC$ T14000:TH8000NK$(1)"You have completed Part 1 of the Program"K$(2)"Please insert Disk 1, Side A for Menu"K$(3)"and then hit RETURN"I311VI14:100:I#X1X4V5:K$"You attempted "(TQ)" questions.":100V7:K$"You answered "(TC)" correctly and "(TW)" incorrectly.":100K$"That is a":PP((TCTQ)100):PP11PP8PP18(PP79PP90)K$K$"n"K$K$" "V9:K$K$(PP)"% accuracy orrect answer because";8I15:6:I17:K$(I7);:IA500K5015K$(1)"You have completed Part 1 of the Program"K$(2)"Please insert Disk 1, Side 1 for Menu"| ** TEST SUMMARYV2:Y23:B1:K$"Test Results":100120I 255.4:17:"Your answer? ";:800C4:17:30);:4mI$K$(20)ĺ"Right@ ";:TCTC1:15500I$K$(20)ĺ"Wrong@ ";:TWTW1K$(20)"T"K$(20)"F"ĺK$(20);:5064K$(20)"T"ĺ"True";K$(20)"F"ĺ"False";" is the c:K$(3)lL$(K$(2),1):L$"1"L$"2"L$"3"L$"4"L$"5"L$"6"L$"7"L$"8"L$"9"Ė4:9:K$(2):5037}8:9:K$(2)255:T1500:T:150IQT5:6:I10L$(K$(I2),1):L$"A"L$"B"L$"C"L$"D"ĺK$(I2):50419:K$(I2)D REVU2";+",A$4000":7683:(23);(23)51400>QT1^K$(20)"T"K$(20)"F"QT2jTQTQ1p4:8:K$(1)QT15035L$(K$(3),1):L$"1"L$"2"L$"3"L$"4"L$"5"L$"6"L$"7"L$"8"L$"9"Ė4:9:K$(3):50358:102)):X2X1DXaY3Y1'f430:Y1Y3:>$ ** SLIDE PRINT \)HS56(K$(I)):L(K$(I))c+Vr.XHSH1y/V0X:(5);1V3X:K$(I);8XB ** THE TEST255TQ0:TW0:TC0PA35ī55001: D$"BLOA255:VV1:"h ** NORMAL PRINT,jH:V7lK$(I)LmUN0İ200:UN0VnVV1\ro ** UNDERLINEX1(H1)58:X2(L5)8X1:207 ** CENTER IN VERSEYY1Y2Y:H29(DX2):H:DX)Y   \X129((DX(4)~NPA1PA2N0+PA1N1715:D$UD$"OPEN TESTDATA1,L1200"D$"READ TESTDATA1,R";N:J120:K$(J):JD$"CLOSE TESTDATA1"I0100:VV1:H:V:120K$(I);:255VV1:6H:V:120 ;100:3C196C228I$"D"4B;C198C212C230C244810Z<C198C230I$"F"r=C212C244I$"T"x>805I$;QR(49152):QR141ıQR136QR255ĺ(8);" ";(8);:900910x ** READ THE K ARRAYz307}D$279,X:0,191X279,191X X&/ 900<%49168,0W*C(49152):C127810v.K$(20)"T"K$(20)"F"827/C193C194C195C196C225C226C227C2288100C193C225I$"A"1C194C226I$"B"2C195C227I$"C"28520 49168,06 P$(P128):P195P227517V P195P227PAPA1:P$"C"u PA22ĺ(7);:PAPA1:505{ ! X ** CURTAIN ]0 bX0139 gX,0X,191:279X,0279X,191 lX q  ** HOR CURTAIN 0 X0950,XX:Y1:(92)& (X2X1)X:Y1:(92)8 X:Y2:(92)R (X2X1)X:Y2:(92)Y Xj YY11Y21} X1:Y:(124) X2:Y:(124) Y   ** CONTINUE REVIEW 24::2 " (C)ontinue ";  49168,0 P(16384):P11,Y   ** ANY SIZE BOX' 3U X1(X15)5:X2(X25)6:Y1Y182:Y2Y28x X1,Y1X2,Y1X2,Y2X1,Y2X1,Y1~   ** DOUBLE BOX X1:Y1:(91) X2:Y1:(127) X1:Y2:(123) X2:Y2:(125) XX11((X1X2)2) X # , ** ERASE DOWN QUICKLY0 -V4:310> .V13:310K /V7:310X 1V5:310f 2V20:310t 3V24:310 4V14:310 5V16:310 61:V @(6); E  ** OUTSIDE BOX 3 Y0Y30 1,Y278,Y278,(8LI)Y51,(8LI)Y5|B0 } ** CENTER WIDE; K$""K$(I)K$:K$""T X10(((K$(I))2))^ X:Vk K$(I):y ## READ II1: ** SLOW UNDERLINE V:H X15:X2(K$(I))58:K$(I) V1V8 XX1(X1X2)2 X,V1:X2X,V1  20000%:UL$(15):K$(24)4:PA22:3ALI$(24)_D$(4):1:D$"MAXFILES1"k:5000d ** CENTER PRINTfK$""K$(I)K$:K$""iX28(((K$(I))2))nX:VxK$(I)yB0125{X1X2:X2X1(K$(I))3:Y11:450         "D"D)p p?"D"D$` `;߀6T*;pߊժ&T~+ h?{;p*@u?/ |7v?;ժժŪժ)p o=ժժժՂ% `>C #"D"D#`?Ъժz|(U*s(Uj@*U*@~_-CLaAx/|_*Uz_W(Հf?~xc0~ժ;D`/ U*& O燀;D`*@w?wo L?3;@"D"$`?ުժ~ U*s*U*U @z/W-pG? AT:`g_*U^X6Ъ;@p.(U*&~g?~xc00;`*@{?_ ~{{;"DQ/D)po_ =@"D"%~ `>C1 #ժժըՀ$`?Ъժz@uժs*UOժ׀-CLa A|<x"d"*x @?x="D"D%p `fժժՂ#`ժ~8ժժժŪ$@ժժժ|@]un*U /׀tT*{^ۀ6@*;@b݊&Pz Og f00(U?;`~+~G wKKo:ժՂ)p` =ժժժՂ%x `>`C|"@'*U 3f `?0 U:;`Ђ'ymZ- nggw;ժ*|?p? @?{<ЪժժժՀ'~w? pg"D"@#@ժ `C |U*"DD$@ժժժ|݃(j/<tU*~W*EF?X-pG?`;DPb?*>&݊{fLg00տ;D`/+x;w {[[_:Dժṕ */s Uj>U*EF?X-CLa`B\.j~&Պf `00պ;`?U*'y `{;"D@+~_o @?< D"D(`{ |?fժժՠՂ$~ `c Ђժժ$@ժժժx\un(tU*|Vۀ-CLa`BT`Պ@)+ժժժՂ$p} ` |"ժժՀ$`ԪժժpXun s(UzԪ~߀-LapA'^/_׀'(Uf f00 U ;pߊժ't/ `w_;ժ+_o @?<ժժժժ(p |?f@"D"%|} `3x #@"D"$@Ԫժ       "Let's See Why Alcohol Is So Dangerous.":FL4:20Zz500`z}zD$"BLOAD PI.BAL,A$4000"z500z*PAGE 4**zyI21Qz}(2)::V12:K$(21)"Let's See Why Alcohol Is So Dangerous.":FL4:20Zz500`z}zD$"BLOAD PI.BAL,A$4000"z500z:I14:V2I2:20:IOy7I56:V4I2:20:I^y9500:(1)zy:RE1:RM1:V24:H3:100y<X12:X255:Y119:Y222:200yAFL8:V19:H3:20yFHH9:I811:V11I:20:IyPRM1:V24:H3:100yZyx **PAGE 4**zyI21Qz}(2)::V12:K$(21)x(2):400MxH13:I26:VI4:20:H3:I\x500:(1)exRE1xxRM1:V24:100xH4:I78:V15I:FL8:20:IxP$"C"PAPA1:1280xPAPA1x140x x **P 3**x(2)y#I424:(22):I:24:I424::Iy(5005y2H4(2)+w[5004w]H22Lw`I16:V6I:20:IewjI713:V7I:20:Itwl(1):500wtRM1:V22:100w~w **PAGE 2**wD$"BLOAD PI.SLOWGO,A$4000"w1w(2):(22):(1)w500xY15:Y211:X12:X255:200xFL8:H3:I1:V6:20,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500bvPALP11025tvPA1:2047,PAvD$"RUN "FR$vPA01030vFP$"NO MODULE"ČDING:PA1:1000vPA255:2047,PAvD$"RUN "FP$v1000vL *PAGE 1*wQD$"BLOAD PI.INFAST,A$4000""wVMN):(MN$)1MN$"0"MN$a5:20:BUZZ(49200):HR$;":"MN$%aHRHXMSMN9607aBUZZ(49200)@a920RaOHHR:OIMN:u ***MAIN PRIMER***u140u1000u **MAIN**u255uI1uPA255PALPPvPA1100,1200,1300,1400,1500,SP:V1V1SP:V2V2SPHtBH1A1V1A3832NtD` **DIGITAL CLOCK**%`TX$TI$G`HX((TX$,2)):MS((TX$,2))W`HROH:MNOIx`MNMN10:MN60MN0:HRHR1`TG1MNMN20:MN0HRHR1:MN60MN`HR$(HR):(HR$)1HR$"0"HR$`MN$(SP2*s$11s*0Ms,A1H1:A2H2:A3V1:A4V2Vs.826gs0H1,V1H2,V1xs2H1,V2H2,V2s4H1,V1H1,V2s6H2,V1H2,V2s8s:816:H1H1SP:H2H2SP:V1V1SP:V2V2SPs<H1H2V1V2826t>H1H11:H2H21:V1V11:V2V213t@816:H1H1SP:H2H2.11BA.1995IN5DrBA.20IN6Zr **DO IT TO IT**grVV7INrK$(21)(Q$(IN),10)::20rr3rHH11:K$(21)(Q$(IN),(Q$(IN))11):FL32:20:HH11rr  **WIPE2**s!H1(X11)5:H24(X21)5:V1(Y11)8:V2(Y21)87#s"0:(8(((LX)))):2:(LX):BUZZ(49200):LXnq(8((LB))):2:LB:OWLB:q **INTOXIMETER**qI21qXZ16:K$(21)Q$(XZ):20:VV1:XZqBA.01IN1qBA.01BA.0395IN2qBA.04BA.0695IN3rBA.07BA.1095IN42rBA0);2;(23)6ptEE120`pvBUZZ(49200):T16:T:BUZZ(49200)pxA$((((1)15)1)100):(A$)2A$A$"0"pz16:14:A$p|EE:16:14:Q$((BAL100)100):Q$;:(Q$)2ĺ"0";p~(20);1pp ***SCALE*** qLB(LB)MqLX1LB1LB3770:X2obBQX2:Kod **ALCO METER** tofX191:X2103:D11:Y247:OA0Y2OAohY147AM72oj3:ST1:AM0Ē0:ST1:Y147AM72olYY2Y1ST:X1,YX2,Y:T15:T:768,D1:769,((Y2Y))410:770:YpnOAY1:pp **BAL METER**)pq(262,255:63,95=n66,0:67,32Gn1536Mn&dnX **BEER METER** nZX1161:Y115:Y242:D11:BQ0X1BQn\X2161BM111:BM(BM)X2X21n^3:ST1:BM0Ē0:ST1:X2161BM111&o`XX1X2ST:X,Y1X,Y2:T15:T:768,D1:769,((XX1))410:&mX,mH1H11:H2H21:V1V11:V2V21s@816:H1H1SP:H2H2SP:V1V1SP:V2V2SPsBH1A1V1A3832sDs **DIGITAL CLOCK**s1:sD$"BLOAD SHAPE,A$400"sHROH:MNOIsHXHRTG1tM$(IN))11):FL32:20:HH11!r1r  **WIPE2**ir!H1(X11)5:H24(X21)5:V1(Y11)8:V2(Y21)87rr"SP2yr$1r*0r,A1H1:A2H2:A3V1:A4V2r.826r0H1,V1H2,V1r2H1,V2H2,V2r4H1,V1H1,V2r6H2,V1H2,V2r8s:816:H1H1S0:qBA.01IN10qBA.01BA.0395IN2KqBA.04BA.0695IN3fqBA.07BA.1095IN4qBA.11BA.1995IN5qBA.20IN6q **DO IT TO IT**qVV7INqK$(21)(Q$(IN),10)::20qq3rHH11:K$(21)(Q$(IN),(Q(A$)1ĺ"0";p}A$:$p~(20);1*pjH:V::PR$:QL3:NU0:PR$""Dj\j(I$)1I$"":196qjI$(I$,(I$)1)jH3(I$):" ";j168j:1000j **BOX**jX1(X11)54:X2X252:Y1(Y11)84:Y2Y282:SS6:3jY(Y1Y2)2Y2SSSkICIC"iP(16384):P128168Ki49168,0:(P136P255)(I$)0ī192ZiP141187viP160P250ČDING:168iI$I$(P128):NU0((P176P185)(P174P165))ČDING:192iNU2((P176)(P185))ČDING:192iH2(I$):(P); j(I0 hI1h'h **INPUT ROUTINE**1h199Ph951,180:957,251:DING947hI$"":V:H:QL3):49168,0:IC1:RX0:LI2hPR$""PR$"->"hRXRXIChRX0ĢV:H:PR$;:V:H:RXLIICICiRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLI16Ē2:20,120159,120$gRE0İ140-gRE06gCT0?gRM0HgOT0Nglg **READ DATA PAGE #PA **vg152gD$(4)g1:D$gD$;"OPEN ";F$;",L1200,D1"gD$;"READ ";F$;",R";PA:J120:K$(J):Jg1000gD$"CLOSE";F$h10049168,0$fpP(16384):P1281121fr49168,0iftP$(P128):P195P210P227P242ČDING:112fuP$"R"CT1ČDING:110fvRE1126fxP195P227PAPA1:P$"C"fzP210P242PAPA1:P$"R":CT1100f~OT0ĖH:V:19)gH14VeXT1DT:TeYX1e_FL(FL2):FL0FLFT?e`SP0:DT0SeaDQ0TDQ:250Yebred ** CONTINUE REVIEWee951,180:957,251efRM0H2:V24egH16H14eh:H:VeiCT1ĺ"(C)ontinue";:108ej"(C)ontinue/(R)eview";ekel fnZZ(49200)dAZdF255;dPFL(FL2):FL2(FL2)95sdQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8dR(K$(I),1)(126)(K$(I),1)"^"X2X2280SSdSFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95dUXX1(X2X1)2dVX,Y1:X2X1X,Y1L2) cV4c FL2(FL2)H((SS(K$(I)))2)1?c!H(H)Fc#HOc%SO0c(FL(FL2):FL2(FL2)ĩ200:FL(FL2):50c-FL(FL2):FL2(FL2)ĺK$(I):80c.SO1c/SPc2Z1(K$(I))c4SO1ZZ(49200)c7(K$(I),Z,1); d<SO1 **MAIN SWITCHBOARD** 5b ** PRINT SUBROUTINE **ObFL0ĖH:V:K$(I);:YbFTFLcb1:3bDT0DT7:SP0SP200bFL2(FL2)SS40:(20);1;(20);2:27b(20);2;(20);1:SS56bFL(FL2):FL2(FL2)ĺ(23):SSSS2cFL(F FP$"PART1.6.OBJ"$a F$"DATA1.6":a FR$"REVIEW1.OBJ"QaPA(2047):D$(4)haK$(21):UP(2046)uaDING947a2048:1536,160:1537,0:1538,76:1539,44:1540,254a3:SP$" "b998: i1 `10M` S.A.S. SOFTWARE PRESENTS ` ALCOHOL - 4 INTERACTIVE PROGRAMS ` B Y  P a u l  S a n c h e z ` LP10:OX0a                               z500`z}zD$"BLOAD PI.BAL,A$4000"z500zL500:(1)zy:RE1:RM1:V24:H3:100y<X12:X255:Y119:Y222:200yAFL8:V19:H3:20yFHH9:I811:V11I:20:IyPRM1:V24:H3:100yZyx **PAGE 4**zyI21Qz}(2)::V12:K$(21)"Let's See Why Alcohol Is So Dangerous.":FL4:20Z500:(1)exRE1xxRM1:V24:100xH4:I78:V15I:FL8:20:IxP$"C"PAPA1:1280xPAPA1x140x x **P 3**x(2)y#I424:(22):I:24:I424::Iy(5005y2H4:I14:V2I2:20:IOy7I56:V4I2:20:I^y9713:V7I:20:Itwl(1):500wtRM1:V22:100w~w **PAGE 2**wD$"BLOAD PI.SLOWGO,A$4000"w1w(2):(22):(1)w500xY15:Y211:X12:X255:200xFL8:H3:I1:V6:20,x(2):400MxH13:I26:VI4:20:H3:I\xPRM1:V24:H3:100yZyx **PAGE 4**zyI21Qz}(2)::V12:K$(21)"Let's See Why Alcohol Is So Dangerous.":FL4:20Zz500`z}zD$"BLOAD PI.BAL,A$4000"z500zINFAST,A$4000""wV(2)+w[5004w]H22Lw`I16:V6I:20:IewjI **P 3**x(2)y#I424:(22):I:24:I424::Iy(5005y2H4:I14:V2I2:20:IOy7I56:V4I2:20:I^y9500:(1)zy:RE1:RM1:V24:H3:100y<X12:X255:Y119:Y222:200yAFL8:V19:H3:20yFHH9:I811:V11I:20:Iy22):(1)w500xY15:Y211:X12:X255:200xFL8:H3:I1:V6:20,x(2):400MxH13:I26:VI4:20:H3:I\x500:(1)exRE1xxRM1:V24:100xH4:I78:V15I:FL8:20:IxP$"C"PAPA1:1280xPAPA1x140x xD$"RUN "FP$v1000vL *PAGE 1*wQD$"BLOAD PI.INFAST,A$4000""wV(2)+w[5004w]H22Lw`I16:V6I:20:IewjI713:V7I:20:Itwl(1):500wtRM1:V22:100w~w **PAGE 2**wD$"BLOAD PI.SLOWGO,A$4000"w1w(2):(*MAIN**u255uI1uPA255PALPPvPA1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500bvPALP11025tvPA1:2047,PAvD$"RUN "FR$vPA01030vFP$"NO MODULE"ČDING:PA1:1000vPA255:2047,PAvMN20:MN0HRHR1:MN60MN`HR$(HR):(HR$)1HR$"0"HR$`MN$(MN):(MN$)1MN$"0"MN$a5:20:BUZZ(49200):HR$;":"MN$%aHRHXMSMN9607aBUZZ(49200)@a920RaOHHR:OIMN:u ***MAIN PRIMER***u140u1000u *H1H2V1V2826t>H1H11:H2H21:V1V11:V2V213t@816:H1H1SP:H2H2SP:V1V1SP:V2V2SPHtBH1A1V1A3832NtD` **DIGITAL CLOCK**%`TX$TI$G`HX((TX$,2)):MS((TX$,2))W`HROH:MNOIx`MNMN10:MN60MN0:HRHR1`TG1MNr  **WIPE2**s!H1(X11)5:H24(X21)5:V1(Y11)8:V2(Y21)87#s"SP2*s$11s*0Ms,A1H1:A2H2:A3V1:A4V2Vs.826gs0H1,V1H2,V1xs2H1,V2H2,V2s4H1,V1H1,V2s6H2,V1H2,V2s8s:816:H1H1SP:H2H2SP:V1V1SP:V2V2SPs<BA.0395IN2qBA.04BA.0695IN3rBA.07BA.1095IN42rBA.11BA.1995IN5DrBA.20IN6Zr **DO IT TO IT**grVV7INrK$(21)(Q$(IN),10)::20rr3rHH11:K$(21)(Q$(IN),(Q$(IN))11):FL32:20:HH11rĺ"0";p~(20);1pp ***SCALE*** qLB(LB)MqLX1LB1LB30:(8(((LX)))):2:(LX):BUZZ(49200):LXnq(8((LB))):2:LB:OWLB:q **INTOXIMETER**qI21qXZ16:K$(21)Q$(XZ):20:VV1:XZqBA.01IN1qBA.01768,D1:769,((Y2Y))410:770:YpnOAY1:pp **BAL METER**)pq(20);2;(23)6ptEE120`pvBUZZ(49200):T16:T:BUZZ(49200)pxA$((((1)15)1)100):(A$)2A$A$"0"pz16:14:A$p|EE:16:14:Q$((BAL100)100):Q$;:(Q$)261BM111&o`XX1X2ST:X,Y1X,Y2:T15:T:768,D1:769,((XX1))410:770:X2obBQX2:Kod **ALCO METER** tofX191:X2103:D11:Y247:OA0Y2OAohY147AM72oj3:ST1:AM0Ē0:ST1:Y147AM72olYY2Y1ST:X1,YX2,Y:T15:T:m66,0:67,64m1536mn **HMOVE2<1**n60,0:61,64,n62,255:63,95=n66,0:67,32Gn1536Mn&dnX **BEER METER** nZX1161:Y115:Y242:D11:BQ0X1BQn\X2161BM111:BM(BM)X2X21n^3:ST1:BM0Ē0:ST1:X21(92)l(X2X1)X:Y1:(92)mX:Y2:(92)m(X2X1)X:Y2:(92)&mX,mH1H11:H2H21:V1V11:V2V21s@816:H1H1SP:H2H2SP:V1V1SP:V2V2SPsBH1A1V1A3832sDs **DIGITAL CLOCK**sHROH:MNOItTG1:HXHRHH11:K$(21)(Q$(IN),(Q$(IN))11):FL32:20:HH11ErT400:250Kr[r  **WIPE2**r!H1(X11)5:H24(X21)5:V1(Y11)8:V2(Y21)87r"SP2r$1r*0r,A1H1:A2H2:A3V1:A4V2r.826r0H1,V1H2,V1r2H1,V2H2,V2s4H1,V1H1,16:K$(21)Q$(XZ):20:VV1:XZ0qBA.01IN1KqBA.01BA.0395IN2fqBA.04BA.0695IN3qBA.07BA.1095IN4qBA.11BA.1995IN5qBA.20IN6q **DO IT TO IT**qVV7INqK$(21)(Q$(IN),10)::20qq36r:250:P(16336):A$((BAL100)):17:14:(A$)1ĺ"0";Cp}A$:Pp~(20);1Vphp ***SCALE***upLB(LB)pLX1LB1LB30:(8(((LX)))):3:(LX):BUZZ(49200):LXp(8((LB))):3:LB:OWLB:p **INTOXIMETER**pI21qXZ,D1:769,((Y2Y))410:770:Y+onOAY1:?op **BAL METER**Roq(20);2;(23)dorBAL7.6AMLB|os0:222,110224,110otEE120ovBUZZ(49200):T16:T:BUZZ(49200)owoxA$((((1)15)))oz17:14:(A$)1ĺ"0";o{A$:T119p|EEM111On`XX1X2ST:X,Y1X,Y2:T15:T:768,D1:769,((XX1))410:770:X[nbBQX2:tnd **ALCO METER** nfX191:X2103:D11:Y247:OA0Y2OAnhY147AM72nj3:ST1:AM0Ē0:ST1:Y147AM72olYY2Y1ST:X1,YX2,Y:T15:T:76866,0:67,64m1536m1m **HMOVE2<1**Bm60,0:61,64Um62,255:63,95fm66,0:67,32pm1536vm&mX **BEER METER** mZX1161:Y115:Y242:D11:BQ0X1BQm\X2161BM111:BM(BM)X2X21n^3:ST1:BM0Ē0:ST1:X2161BY1:X,Y2XSS,Y2:X2X1X,Y2X2X1XSS,Y2:XKlX1,Y1X2,Y1:X1,Y2X2,Y2Qlal **DELAY**wlDD1T1.3:DD:l+ **FILL SPACES**l,S1:Y2Y1SSl-YY1Y2S:Y:X1:X2X11);:Y:l **HMOVE**l60,0:61,32l62,255:63,63 mX11)54:X2X252:Y1(Y11)84:Y2Y282:SS6:3JkY(Y1Y2)2Y2SSkX1,YX1,YSS:X1,Y2Y1YX1,Y2Y1YSS:X2,YX2,YSS:X2,Y2Y1YX2,Y2Y1YSS:YkX1,Y1X1,Y2:X2,Y1X2,Y2kXX1(X1X2)2SS-lX,Y1XSS,Y1:X2X1X,Y1X2X1XSS,ING:192/jNU2((P176)(P185))ČDING:192EjH2(I$):(P);Xj(I$)QL168jj(I$)QL192jH:V::PR$:QL3:NU0:PR$""jj(I$)1I$"":196jI$(I$,(I$)1)jH3(I$):" ";j168j:1000j **BOX**3kX1(:PR$;:V:H:RXLIICICUiRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICICpiP(16384):P128168i49168,0:(P136P255)(I$)0ī192iP141187iP160P250ČDING:168jI$I$(P128):NU0((P176P185)(P174P165))ČD0,D1"2hD$;"READ ";F$;",R";PA:J120:K$(J):JDhD$"CLOSE";F$Oh1000WhI1]huh **INPUT ROUTINE**h199h951,180:957,251:DING947hI$"":V:H:QL3):49168,0:IC1:RX0:LI2hPR$""PR$"->"hRXRXICiRX0ĢV:HPA1:P$"C"6gzP210P242PAPA1:P$"R":CT1100Lg~OT0ĖH:V:19)ngH14V16Ē2:20,120159,120}gRE0İ140gRE0gCT1gRM0gOT0gg **READ DATA PAGE #PA **g152gD$(4)g1:D$hD$;"OPEN ";F$;",L120 ";:108%fj"(C)ontinue/(R)eview";+fk1fl>fn49168,0YfpP(16384):P128112ffr49168,0ftP$(P128):P195P210P227P242ČDING:112fuP242P$"R"fvP227P$"C"fwP$"R"CT1ČDING:112fxRE1126 gyP195P227PA(FL2)ēX1,Y1X2,Y1:95.eUXX1(X2X1)2DeVX,Y1:X2X1X,Y1SeXT1DT:TZeYXve_FL(FL2):FL0FLFTe`SP0:DT0eaDQ0TDQ:250ebedH16H14ee951,180:957,251efRM0H2:V24eh:H:V fiCT1ĺ"(C)ontinue d2Z1(K$(I))'d4SO1ZZ(49200):d7(K$(I),Z,1);Pd<SO1ZZ(49200)WdAZ`dF255dPFL(FL2):FL2(FL2)95dQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8dR(K$(I),1)(126)(K$(I),1)"^"X2X2280SSeSFL(FL2):FL2(20);1:SS56:cFL(FL2):FL2(FL2)ĺ(23):SSSS2IcFL(FL2)PcVyc FL2(FL2)H((SS(K$(I)))2)1c!H(H)c#Hc%SO0c(FL(FL2):FL2(FL2)ĩ200:FL(FL2):50c-FL(FL2):FL2(FL2)ĺK$(I):80c.SO1c/SP "]b998: **MAIN SWITCHBOARD** zb ** PRINT SUBROUTINE **bFL0ĖH:V:K$(I);:bFTFLb1:3bDT0DT7:SP0SP200bFL2(FL2)SS40:(20);1;(20);2:27 c(20);2;***************************$a LP7:a FP$"PART1.5.OBJ"Ka F$"DATA1.6"aa FR$"PART1.7.OBJ"aPA(2047):D$(4):PA255PA3aK$(21):UP(2046)aDING947:D$"BLOAD SOUND"a2048:1536,160:1537,0:1538,76:1539,44:1540,2548b3:SP$" . `101` ********************************X` * *` * SAS SOFTWARE PRESENTS *` * 4 INTERACTIVE PROGRAMS *` * *` * *a *****                       yT500:250*yX12:X232:Y115:Y211:300:H3_yI$"B"I$"b"I16:FL8:V12:H3:20:H17:1288yV12:I20:H3:FL8:20:H14yI1719:VI5:20:H3:Iy T250:250y BALAM(AM(12130)LB):624yH3:V18:700yRM1:H16:VL700yRM1:H16:V16:V00:H3_yI$"B"I$"b"I16:FL8:V12:H3:20:H17:1288yV12:I20:H3:FL8:20:H14yI1719:VI5:20:H3:Iy T250:250y BALAM(AM(12130)LB):624yH3:V18:700yRM1:H16:V"B"I$"b"ČDING:1382I$"B"I$"b"ČDING:1382yT500:250*yX12:X232:Y115:Y211:300:H3_yI$"B"I$"b"I16:FL8:V12:H3:20:H17:1288yV12:I20:H3:FL8:20:H14yI1719:VI5:20:H3:Iy T250:250y BALAM(AM(12130)LB):624yH3:V18:H3:I710:V4I:20:Iw(1)x500)xV16:H16:RM1:RE1:CT1:100=xLBLB1.25:650Lx400:(2)lxX12:X232:Y111:Y215:300xH3:I1112:VI:20:Ix(1):500xV14:I15:FL8:20xH17xNU1:QL1:160:I$"A"I$"a"RE1:H16:V16:CT1:100wBALAM(AM(12130)LB):624&wPAPA1:140,w9w **P2**Bw400\wI16:Q$(I)K$(I):InwH3:V18:700wRM1:RE1:H16:V16:100:P$"R"PAPA1:140:w1215w(2)wX12:X232:Y111:Y215:300w300uH3:I68:V6I:20:IvV16:H16:CT1:RE1:RM1:1000vBMAM0.8:600PvX12:X232:Y111:Y215:300mvH3:I912:V2I:20:IvRM1:RE1:H16:V16:CT1:100vX12:X232:Y115:Y211:300vH3:I1314:VI1:FL8:20:IvRM1::H3(ueV15:K$(16)(SP$,30):T260:XZ13:I16:20:250:I15:20:250:XZgujNU2:QL3:V13:H9:160:LB(I$):LB80LB300ČDING:1130puo650utX12:X232:Y111:Y215:300uyH2:I45:FL8:VI8:20:Iu~AM2:612uX12:X232:Y112:Y213:1000sL **PAGE1**sMP$"C"tNP$"C"İ500:1115 tOP$"R"=tQD$"BLOAD PI.BAL,A$4000"tV1:(2):X11:X255:Y117:Y224:300:0:X273279:X,100X,191:X:2:0,128163,128:500:1:(1)t[H3:V11:FL8:20t`V13:I2:20tbH19:I3:20rI1rPA255PALPIsPA1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500[sPALP11025msPA1:2047,PA~sD$"RUN "FR$sPA01030sFP$"NO MODULE"ČDING:PA1:1000sPA255:2047,PAsD$"RUN "FP$sV1H2,V2Ns8{s:816:H1H1SP:H2H2SP:V1V1SP:V2V2SPs<H1H2V1V2826s>H1H11:H2H21:V1V11:V2V21s@816:H1H1SP:H2H2SP:V1V1SP:V2V2SPsBH1A1V1A3832sDr ***MAIN PRIMER***r140r1000r **MAIN**r255),10)::20QrXr3rHH12:K$(21)(Q$(IN),(Q$(IN))12):FL32:20:HH12rr  **WIPE2**r"SP2r$1r&H10:H2279r(V10:V2191r*0r,A1H1:A2H2:A3V1:A4V2s.826s0H1,V1H2,V1&s2H1,V2H2,V27s4H1,V1H1,V2Hs6H2,OXIMETER**SqI21{qXZ16:K$(21)Q$(XZ):20:VV1:XZqBA.01IN1qBA.01BA.0395IN2qBA.04BA.0695IN3qBA.07BA.1095IN4qBA.11BA.1995IN5 rBA.20IN6 r **DO IT TO IT**-rVV7INKrK$(21)(Q$(IN)1)100):(A$)2A$A$"0"lpz16:14:A$p|EE:16:14:Q$((BAL100)100):Q$;:(Q$)2ĺ"0";p~(20);1pp ***SCALE***pLB(LB)qLX0LB1LB30:(8(((LX)))):2:(LX):BUZZ(49200):uLX4q(8((LB))):2:LB:Jq **INTPohY147AM72xoj3:ST1:AM0Ē0:ST1:Y147AM72olYY2Y1ST:X1,YX2,Y:T15:T:768,D1:769,((Y2Y))410:770:YonOAY1:op **BAL METER**or(20);2:(23)ptEE120,pvBUZZ(49200):T16:T:BUZZ(49200)\pxA$((((1)15:Y242:D11:BQ0X1BQ~n\X2161BM111:BM(BM)X2X21n^3:ST1:BM0Ē0:ST1:X2161BM111n`XX1X2ST:X,Y1X,Y2:T15:T:768,D1:769,((XX1))410:770:XnbBQX2:od **ALCO METER** ?ofX191:X2103:D11:Y247:OA0Y2OAz#    Š ϠĠĠ Աʠ, Աʠ2Աʠ4 Աʠ3 Š ױʠ ղ   ˠ ؠ Ԡ ŠĠӠŠ̠̲  ҠӠ      @ @3 0f3<f @*U"`pf@ fL3@|1C3C `@`U*U*U*U*U @(@((U*U*U*U*U* @(Ϫ @@ Ԯ姝@ @@ @ CyOߎ U*  @ߎ @ @s @@ *U*U@ߎ? @  + u@?p}` @תժժժժժժ@x@@ >s pgf|ac *U `0<||C|@0C0C ``U*U*U*U*U @8` U*%@ժՊx` @ߟ3C0CC ` P*U@U*U*U*U*U @8` U* `8@pLagxC@ߪ @ P.U* @ @@  *yU@ Lߎ U*@ CL (U* ժ@ߎ @` ԫ@껿W*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* @@ժժժժժժ@Ԫ00033360ff3` *U ժ8333333g `LLcl (U*ժՊp@ @|1~0p~~p` PP@>xU*U*U*U*U @8` T* `@@063`Lc@ @ P@Ժժ@ժp P@   *T`Uj@Ԫ P@ @> +u@ C1Fa| ((`0 *e'U@ߎ @` + e@? @` Ъh@𿫕 @{ @ժժժժժժպ@ժ0f>?F` LqAg *ժՊ@~@p|?`x~@p|?`x~@ PP@3 U*U*U*U*U @8` @@>p6sgLc@Oqcc ~88~~p` p@063fLc`L0fL *U@U*U*U*U*U*U*U*U*U*U*U*U P@  ԫ@`? *U`@0 @ ߎ @`5@{ *T`< *U@ ߎ{ @`@  * U@w @  , @` U*ժՂ@(` P*U@3|xc<||C>U*U*U*U*U @|qՀ@@ @`cCfpa P*U@3fL`0 f f@`U*U*U*U*U @3Cy<CC ` `@@06ccxyq@O0fL * Uתժժժժժժ_U*U*U*U*U*U*U*U*U*U*U*U P@  +U*UT*U*U*U*U*U*U*U*U*U P@  ԫ@ @ P`0 @  ?ߎ @` @w @@  Ԯ@` T / @` @ժ@ @@ ` @@ @1c 36c @*U"@3>x`0 f0 fO<U*U*U*U*U*U*U*U*U*U*U*U3CY7Cs ` @8@` `L0fLU*UW*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* (U*ժ֪ժժժժժժ@d *``@GqccU*U*U*U*U*U*U*U*U*U*U*U(U*x @@ .a@ @ P` *U@ CLaߎ{ P  *(U@ߎw @       ǠŠȠƍΠàŮލᠱ蠱栱ލ©©򮮮場宮蠱栱򮮮ȠӠ٠ƠŠ̮堍ލ報쮍ȍō٠ԍӍŧŠ̠ԍ뮮נ̠ӠŠٍ       @6@ @4@@2@*U"0x3`3fL@L@`U*U*U*U*U @A* @A @:`U*U*U*U*U* @AU*U*U*U*U* @B6@  + u@4@תժժժժժժ@3*U 0~~aCG>@?`U*U*U*U*U @C U*%@5@@ Ԯ姝@5@@ @ L3U*@ժժժժժժ@3*U ժՊ<0 @ߟ2P*U@U*U*U*U*U @DU* `8@pLagxC@5@ P.U* @5@@  *yU@ CL2 U* *U*U@ @2PP@>xU*U*U*U*U @DT* `@@063`Lc@5@ P@Ժժ@5P@  @ C1Fa2(U* ժ@7@` ԫ@4@p6sgLc@Oqcc 6*T`Uj@5P@ @> +u@ `?2((`0 *e'U@8@` + e@4@` Ъh@3(U*ժՊ8`U*U*U*U*U*U*U*U*U*U5P@  ԫ@6*U`@0 @ 8@` @4@ժժժժժժպ@3 *ժՊ@2PP@3 U*U*U*U*U @N @@>< *U@  ?3@`@  * U@4@  , @3 U*ժՂ@2P*U@3||q~~aGOU*U*U*U*U @N p@063fLc`L0fL6*U@U*U*5@@  Ԯ@4T ժՀ@2P*U@3fL033`@0U*U*U*U*U @N `@@06ccxyq@O0fL6* Uתժժժժժժ_U*U*U*U*U*U*U*U*U*U*U*U5P@  +5@6*T`"@3>x03sgOU*U*U*U*U*U*U*U*U*U*U*UY@8@` `L0fL6(U*ժ֪ժժժժժժU*UT*U*U*U*U*U*U*U*U*U5P@  ԫ@5@ P`0 @ CLa3@` @@ *``@GqccU*U*U*U*U*U*U*U*U*U*U*U(U*x5@@ .a@5@ P` *U@ CyO3P  *(U@5@  / @4@ժ@2@*Uލ䠲      䠨éà󠲰󮍍󠲰󮍍éލ䮍ӍàӍàà󠱰󮍍󠱯堨宍Ƞ쿍򠭠栽ލ򩠪ލ蠱፱󠱯쮍ލލ栱쿍򠭠栽ލލ報󠮸쮍蠱栱ލލ¢報ލ殍󠶭橍㮩殍󠸰橍䩠̠宍ȍō٠ԍӍŧŠ̠ԍ쮠䮠젨ލލà忍à宮©Ҡ©à宍宍à썮迍栍àà宮©©Ҡ©􍮰䍮䍮栲쿍à䮍à󮮮Π٠宍䠱쮍栲俍쮍šҠލލ􍱯à򠲠򮍍䮍էŠנҠ̠Ӡ̡草報Š쮍󮍍䩠ޠӍԧӠō宠䩠        󮍍̠堭宠_*U*U*U*U*^ՂՃߪժ՟׾ߟ6؁?uWzҊՎ<< ߇DU*U*E*U*U*U*U*ը<Њ ߇DЪЪՊEժժժժՂժ4ߟ *U*U*U*UjU*U*U*ժ _*U*U*U*Ujժߪ4ժ4 ݻݻԪժժժժ ݻݻꁀժꏀ4ݻݻ?ժժժߟ5ﺀԊՎ;܃U*U*UjV>ժժ ժׇ5UUUzԊՎտ돀;+ߟ̏ЀԨՃ< ߇>UU*ׇE*U*U*U*U*;ת ߇>ՊߟEժժժժՀ߿ժꏀ4 *U*U*U*UzU*U*U*Uߪժ՟ _*U*U*U*Ujꁀժ4_:U*@  ݻݻժժժժת߿ ݻݻՊժݻݻ~Ԫժ ժ5բՎ돀;ԢՃ     󮠍ƠӠŠΠǮΧԠԠ͠ŠōΧԠԠ͠ˠōΧԠԠ͠ύύ᠍箠ΠӠĮ쮍쮍򠣳Ҡޠ̠Ǡ䮍̠ǍŠӠ쮍򠣲Ҡޠ̠Ǎ䮍էŠˠҍ̠Ӡ̡Ǎ䮍נԧӠҠή򠣱Ҡޠ蠳堷쮍ޠ$N3>$N3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3>$N3>$N3fL3`@1L`lM3L1c 0`L3L13fL3>$N3>$N3fL3/3fL3>$N3>$N3>$N3>$N3>$N3>$N3>$N3~$OU*U* U*U*U:$^*U:$^*U*U* xpgN@|p8gpgqpU*U*U:$*U*U*U*U*U*U*U*U*U*U*U*U*U*U:$^*U:$^*U*U*U@3?@9x|sam`OO?x`&U*U*U:$^*U:$^*U*U*U&U*U*U:$^*U:$^*U:$^*U:$^*U:$^*U:$^*U:$^*Uz$_*3fL3fL3>$N3>$N3fL8pgNlp8g?pgq03fL3>$N3>$N3fL3fL3>3fL9$>fL9$>fL3fLnL3fL9$>fL9$>fL3fLnL3fL9$>fL9$>fLy$?fL9$>fL9$>fL9$>fL9$>fL9$>fU*U*}U*U*U:$^*U:$^*U*U* 8pgqN@nq8gqp8gq8U*U*U:$^*U:$^*U*U* 8p`q`A8p`qpp``U*U*U:$^*U:$^*U*U*U*U*U*U*UU*U:$^*U:$^*Uz$_*U:$^*U:$^*U:$^*U:$^*U:$^*L3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL9$>fL9$>fL3f 8pgqN`9Fq8gqp8gqL3fL9$>fL9$>fL3f 8c|cqxG@_8`|cqp|c?`L3fL9$>fL9$>fL3fL3fL3fL3fL3fL3fL3fL3fL3fLU*U*U*U*U*U*U*U*U:$^*U:$^*U*U* 8p8gqN`9Gs8gqp8gqU*U*U:$^*U:$^*U*U* 8p8gqN`a8p8g9p8gq`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*U6U*U*U:$^*U:$^*U*U*U00p33 fXc CG3x6U*N3fL8p8gqN`q8p8g9p8gq`3fL3>$N3>$N3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3>$N3>$N3fL33fL3>$N3>$N3fL30p03@ fXc cLAL3fL3>$N3>$N3~$O3>$N3>$N3>$N3>$N3>$NU*U*U*U*U*U*U*U*U*U*U*U*3fL3&U*U*U:$^*U:$^*U*U*U0`pa0f@1LYG0fC1&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:$^*3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3>$N3>$N3fL8p8gqN`9Gs8gqp8gq3fL3>$N3>$@Z U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U:$^*U:$^*U*U* p`|cqxG@Gcg?p|c?U*U*U:$^*U:$^*U*U* 8pgqN`98p8gp8gq`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*U3fL3fL3fL3fL3fL3fL ߪGU*U*U*U6Ԫժ 5~Uz/U*U?u[բՎꃀ;*|?WߪҢՃ;ժպ ߇=U*׾ߟEU*U*U*U*U*߿;ժժ<ЪՊ վߞEժժՊFժժժժ5ȇ _*U*U*U*UjՂת*U*U*U*U|E*U*U*U*U*ꃀ5 ݻݻԂժ ݻݻxܪꟀ ު4ݻբՎ;翿ҢՎ4 _*U*U*U*/uZըըՃ7?~ҊՎ߿;y_ժԨժ< ߇DU*U*U*ժ<ЊՊ ߇DЪՊժՊުEժժժժՀ돀5 _*U*U*U*Uj U*U* *U*U*U*UpЪժ տ돀ת5 ݻݻժժՂժ ݻݻ` 4ݻݻըըՃתվߞ7ҊՎ߿:ժժժ ?ժժժժժԪժ$ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժa3ժժժ ?ՂʊժժѪժդUժԪժժժժժժժժժժժժժժժժժժժժժժժժժժժ ?ժժVJժբժժժժҪժժժpժՂժժժժŪ ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժʪժժժժժOssOOsժЪժժժŪպ_ժժժժժԪՊժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժՀժp8ժժժժժժժժժժժժժժժժ~תժժՊ׺ժ+U*uت*U*U*U*U*Հժaq8|ԪժժժժժԪժժժժըժժժժժժժ*U*Uժժբտ'U*ߪժժ+U*uժU*U U*U*Հժժժժժժժժժժժժժժժժժ7@ժժժժ ?Պߪժ*U*U*U*U*Հժժժժժժժժժժժժժժժժժժժժժժժժժժժժժת ?ժՂU*U*PU*U*ՀժժժժժժժժժժժժժժժժժժժժoAժժպu תժժU*U*U**U*ժժժժժԪժժժժժpժԪժժժŪ_ժժЪժժժ*U*U*U*U*ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժՊ@ժժժ ?ժժժ*U**U*U*ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժUժAs8ժժժժժժժժժժՠժժժժժժժըժ%ժժբ'U*~_*U*U*ժ_*ҪՊŪժUժժժժժժժժժժժժժժժժժժժժժժժժժOssOOsժՊժժժժŪժժժժժժժU*U*U*Uժժժժժժժժժժժժժժժժժժժժ ?ժՀVZՊժժդUժժժժժݻժժժժժժժժժժժժժժժBժժW ժժVjժժՈժդUժAs8?Ԫݻժժժժժժժժժժժժժժժժ~WժժժW*UzժըU*UԪժժժժժժժժժժժժժժժժժժժՊЪժժժ ?ժժժԪժժժբժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ/ժժժ ?ՊתժժժѪժդUժҪժժժժժժժժժժժժժժժժժժժժժժժժ@ժժժժժժժժժժժժժժժժժժժժժЪժժժpժժժժժժŪժժժժժժժժժʪժժժժժժժժժժժժժժժժժժժժժժժժժժժOssOOsժԪժժժŪպ_ժժժժժժԪՊժժժժժժժժժժժժժժ      :63,95:67,32:1536a `30`:1:E`"BLOAD FLIPEX,A$4000":7683:(23);(23);O` 1:3`"FLIP THE DISK AND HIT THE 'RETURN KEY' TO CONTINUE"``49168,0`#(49152)1312835`((4)"RUN PART1.3.OBJ"`d61,32:63,63:67,64:1536`na61,64  UjL3fL9$>fL9$>fL9$>fL9$>fL9$>fL9$>fL9$>fLĈĈĈĈĈĈĈĈĈ2fGgpp`L3fL9$>fL9$>fL3f xpgqN`]8p8gp8gq`L3fL9$>fL9$>fL3f|L3fL9$>fL9$>fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL9$>fL9$>fL3fLpg0c0fO1~|qGxsgC1~pnL3fL9$>fL9$>fL3fT*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*U:$^*U:$^*U*U*U`@1F`lLY1L1s 0`LF1L6U*U*U:$^*U:$^*U*U*3ĈĈĈĈĈĈĈĈU*U*U:$^*U:$^*U:$^*U:$^*U:$^*U:$^*U:$^*Uz$_*L3f @p`q`A_ժժժժժժժU*U*U*U*ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժpՊЪժժժ ?ժՀЪժժ*U**U*U*ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ/ժժժժ ?ժתժ*U*U*U*U*ՀժժժՊժժժժժժժժժժբժ_*U*U*ժU*ҪըժժUժʪժժpժժժժժժŪժժժժժժժժժҪժը_*U*U*ժ?ʪժժժUժժժժժժժժժժժժժժժժժժժժժԪժժժժpժԪժժժŪժժժդUժԪժժժժժժժժժժժժժժժժժժ!ժժՠVJժժբժդUժCc|ժժݻժժժժժժժժժժժժժժժժתժժ_*U~ ߪբU*ժժժժUժ@s8ª?U*U*ժժժժժժOssOOsժЪժժժ ?ժՀԪժժԪժժժԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ ժժժ ?ԪՀժժժժѪժդUժժժժժժժժժժժժժժժժժժժժժժժժժժsժժժ ?ժUVժՂժժժժժժժժժժժ*U*U*ժժըպrߪժժ+U*u?ժU*U*U*UՀժժժժժժժժժժժժժժժժժժժժժʪժժժժOssOOsժԪժժժŪպ_ժժժժժժҪՊժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժꪕU*U*U"T(U*ՀժpЪժժժժժժժժժժժժժժժժժժժժ_jUժU*U*U*U*U*Հժ`s?ʪ?U*U*ժժժժժժժժժՊժժժժժժժ*ժժժբݻժߪժժ+U*uժU U*U*U*ՀժԪժժժժժժժժժժ?(ժժժՂ ?ԪՀժժ*U*U*U*U*Հժժժժժժժժժժժժժժժժժժժժժժժժժժժqժժժ ?ժU*U*U"U*U*ՀժԪժժժժժժժժժժժժժժժժժժժ/!ժժպ תժժժժժժժժժժժժժժժժժԪժժժժpժՀժժժժŪ_ժժժժժժժU*U*U*UժժժժժժժժժժժժժժժժժժժժժժժժժժժժpժЪժժժŪ ?ժՂժժժ*U**U*U ժժժժժժժժժժժժժժժժժժժժժժժժժժժ?ժժѪժժժժդUժq?x?U*U*ժժժժժժժժժժժժժժժժպҪժժբժժU*ҪժժժUժժժժժժժժժժժժժժժժժժժԪժը?_*U*U*ժ?ҪժժŪUժժժժժժժժժժժժժժժժժժժժժj?ժժժ ?Պ֊ժժժժդUժʪժժժժժժժժժժժժժժժժժժժժժ ժVJժժтԪդUժ>ЪժժݻժժժժժժժժժժժժժժժժժժʪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժOssOOsժЪժժժŪ ժՂժժժԪՊժժ%ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ ?ԪՀԪժժժժժդժժժժժժժժժժժժժժժժջ+תժժՊߺժ+U*uߪ֪U(U*U*U*Հժ>Ԫժժժժժժժժժժժժժժժ*U*U*ժժբպߪժժ+U*u?ժU*U*U*U*ՀժժժժժժժժժժժժժժժժժժժժժժժժժOssOOsժՂժժժժŪպ_ժժժժժԪժժժժժժժժժժժժժժժժժժժժժժ׺ ժժU*U*(Q*U*Հժժժժժժժժժժժժժժժժժժժժժժժպ?} ժբU*U*U**U*Հժp8|?U*U*ժժժժժժժժժժժŪ_ժՊժժժ*U*U*U*U*ժժժժժժժժժժժժժժժժժժժժժժժժժժժժ0ժժժՠ ?ժժժ*U*U(U*U*ժժժժժժժժժժժժժժժժժժժժժժժժժժժժ?sժժժվ ?ՂժU*U*U*U*U*Հժժժժժժժժժժժբ/U*_*U*U*ժ?ҪժբըUժժժժժժժժժժժժժժժժժժժժժժժժժOssOOsժՂժժժժŪժժժժժժժU*U*U*UժժժժժժժժժժժժժժժժժժժժժժԪժժժժժpժЪժժդUժҪժժݻժժժժժժժժժժժժժժժժwժժu ߪժZjժժըժդUժp8?Ԣ?U*U*ժժժժժժժժժժժժժժժժתժժՊU*Uzժ*U*UҨժժժUժp8pժժժժժՂЪժժժժ` (4)"MAXFILES1",`115,255:116,111L`7688,64:7696,95:7704,112S`(1o`2"BLOAD INGRED,A$7000"`<(4)"BLOAD OHWIPE,A$9950`F7683:(23)(23)`P39248`Z(4)"MAXFILES1"`d(4)"RUN PART1.5.OBJ"" @ 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՚     U*u?ժU*U*U*UՀժժժժժժOתժժ׺W*Uz wҪ*U*U*U*U*ՀժAs8Ҫ?U*U*ժժժժժժժժժբժժժժժժժպ*UժժբӪߪժժ+U*uժU*U*U*E*ՀժԪժժOssOOsժժժժժժŪժժժժժժժU*U*U*Uժըպߪժժ+ժժժժժժժժժժժժժժժժժժժժժժժժժժժժ ?ժ_ A*U"U*U*ՀժՊժժժժժժժժժժժժժժժժժժժժպ_ ըժտU*U*U*D*U*ՀժAs8Ъժժժժժժժժժժժ@)ժժժժժժժժժժժժժժժժժժժժU*U*U+@U*U*Uj?ĈĈĈĈĈĈĈĈĈĪU*U*U*@U*U*U*@ժU*U*UjT*U*U*@ U*jy`N~?` `y3sy     *0%U**(&&` (Ԫ8 U*+5(U*&&` (Ͽǟ U?+5(UU*xԪ`&` ժ U*(UU*(Gah~G_oՀTzG `~7 &`&@xowxׂ@m?_j|~&`&*U*/U*0Lق_ԪЪժ*%U*Z :D@`|7 &`&?x uwo/Ux+~}?p~|&`&(U*U*PzW*?JЪʪժ*%%**3@պ@!PB*P&ժ@3c0`00Ca0C@g`U*U*U* ժ֪;PR* U && (ժj8 Uj*5(U*(%})*( @ @U: !&ժ@3f0@0Ca0C@c`T*U*U* U*@֪|? bЪ&( (U*@vk~bЪ&&` (%UԪ8ЪbЪ&&` (%Ubժ`@&` (U*ժWiՂt+ToVkpUZ*5(U*&&` (ת8 U*+5(U*&&` ( U?+5(UU**~&` (ժϿ U?U*(UU**U ~gդ@@7_&`&wzgwow@_o~}{&`&(UjU*y?ր` ЪU*DHժW{P~_  D~n6[&`&8o }'T/ W]p_o~~w&`& UjW U~*p@ժժ %'*&` @P(P&ժ@sf~0~qg?~sxOa|T*U*U* ժ֪ PV*U U &2(ժp?o>w&`&~?UzpS ~Ԁx+=xժe*&` @ ԂD&ժՂT*U*U* U*@֪ !D&2(U*@V^;wDHЪ&&` (%U@v8ЪDHЪ&&` (%U pDHժ-&` (U*Ƴᰘ&P*U*U (ժV@TZ*5(U*&&` (v8 U*+5(U*&&` (~ U?+5(UU*(&` (ժ泞ᰘ U?+5(UU* nwUq'Ԫx\}m&`&<x=x?xނ8bժ&&` (U*bժ?ЂP*UPj " <~s&`(|_{? u[Y+T_w/ }O s?~>{~&`&~TzwoWU~)ܪpժt*&` @ Ԃ(P&ժՂP*Q*T* T֪ PV*UT&Pr{W?~Ղ<ʇ)U*Պx?&` @  Ԃ&ժՂP*U*AԊU*%))* @ @U "&ժ@g3``00Ca0c@q`U*U*U* (U*@Uvp];wbЪ&&` (%U@V8ЪbЪ&&` (%U `?0Ca03@y`U*U*U* (ժU~PZ*5(U*&&` (V8 U*+5(U*&&` (Ԫ8 U+5(U*&&` (Ùᰘ U?+5(UU*|?@DЪ x?&` T%L}3rcwӂDz< @?{~&`DHժx*U*U@( p&` U*ЪՀժ|}? u}+T/ |u_`{~&`&ux/ U|+@꿀ժՂ|&` @ @Ԃ(P&ժՂ(U*H3QĪժժժU*%** @պPR*P&ժ@=3`@ @D&*}/U*P*U*^ԂԪՊԪժ*%U** @ @U:!!D&ժ@s`~`00Ca~pxCm`U*U*U* U*@֪h];w!DHЪ&& (%U@V~8DHЪ&&` (%UԪ8ЪDHЪ&&` (%UÙ     @PB(]0a`8a c`b  iL8i4D*P#@a`b c Da`b$c `L@PLwa`8a c`b  8LwT*U*u/@*UU*U*Uj?*(U*U*U*U*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR}v TRRRR*U@*UU**U`|j*U$*UUj*U@j?syLg"whRXRXIChRX0ĢV:H:PR$;:V:H:RXLIICIChRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICIChP(16384):P128168 i4910İ140gRE0gOT0!gRM0*gCT00gNg **READ DATA PAGE #PA **Xg152dgD$(4)mgNPAxg1:D$gD$;"OPEN ";F$;",L1200,D1"gD$;"READ ";F$;",R";N:J120:K$(J):JgD$"CLOSE";F$g1000gI1gh **INPUT ROU4):P128112fr49168,0RftP$(P128):P195P210P227P242ČDING:112ufu(P210P242)CT1ČDING:112fvRE1126fxP195P227PAPA1:P$"C"fzP210P242PAPA1:P$"R"f|PA1ĺ(7);:PAPA1:102f~OT0ĖH:V:19)gRE:T eYX&e_FL(FL2):FL0FLFT4e`SP0:DT0HeaDQ0TDQ:250Nebged ** CONTINUE REVIEW}ee951,180:957,251efRM0H2:V24eh:H:VeiCT1ĺ"(C)ontinue ";:108ej"(C)ontinue/(R)eview";elen49168,0 fpP(1638dAZdF2550dPFL(FL2):FL2(FL2)95hdQX1(H1)(280SS):X2((K$(I))H1)(280SS):Y1V8dR(K$(I),1)(126)(K$(I),1)"^"X2X2280SSdSFL(FL2):FL2(FL2)ēX1,Y1X2,Y1:95dUXX1(X2X1)2dVX,Y1:X2X1X,Y1eXT1DT)c FL2(FL2)H((SS(K$(I)))2)14c!H(H);c#HDc%SO0vc(FL(FL2):FL2(FL2)ĩ140:FL(FL2):50c-FL(FL2):FL2(FL2)ĺK$(I):80c.SO1c/SPc2Z1(K$(I))c4SO1ZZ(49200)c7(K$(I),Z,1);d<SO1ZZ(49200)IN SWITCHBOARD** .b ** PRINT SUBROUTINE **GbFL0ĖH:V:K$(I):QbFTFLXb1tbDT0DT7:SP0SP140bFL2(FL2)SS40:(20);1;(20);2:27b(20);2;(20);1:SS56bFL(FL2):FL2(FL2)ĺ(23):SSSS2bFL(FL2)cV FP$"FLIPBACK"!a F$"DATA1.4"7a FR$"PART1.5.OBJ"YaPA(2047):D$(4):P(49200)eaK$(21)raDING947a:1536,160:1537,0:1538,76:1539,44:1540,254a3:SP$" "b998: **MA* `101` * *X` * SAS SOFTWARE PRESENTS *` * 4 INTERACTIVE PROGRAMS *` * *` * *` ********************************` LP8a                  i8逍Lw_Lw ``b`b(`3: *` * 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)aDING947a204| |H8:I13:V9I:20:I0|&T2000:2509|/CT1L|0RM1:V24:100R|: *l` * SAS SOFTWARE PRESENTS *` * 4 INTERACTIVE PROGRAMS *` * 00"{X12:X210:Y114:Y216:200C{X145:X253:Y114:Y216:200U{FL12816:H2m{I79:VI7:20:Iv{H45{I1012:VI4:20:I{X12:X255:Y119:Y222:200{FLO:H2:I1316:VI6:20:I{RM1:V24:100{{ **PAGE #8**100 z|z **PAGE #7**>zD$"BLOAD RATE,A$4000":950]zX121:X255:Y12:Y29:200zH22:FL136:I13:V1I:20:IzFL40:V6:20:FL136:HH5zI56:V1I:20:IzHH5zCT1zRM1:V9:RE1:100{X120:X256:Y11:Y210:30:V17:H3:204y1H12:FL136:I1113:VI6:20:IKy6RM1:V23:H3:100Qy;cy@ **PAGE #6**lyEFL0ryJyTH3:I13:VI25:20:Iy^I45:VI27:20:IycCT1:RE1:RM1:V24:100ye(2);::500:(1);yhI69:VI24:20:Izr xX112:X244:Y116:Y216:2009x T450:FL0:V16:H12uxK$(21)(SP$,33):ZX12:I21:20:250:I7:20:250:ZXxRE1:RM1:V23:H3:100xX110:X245:Y117:Y215:300xFL40:I8:V15:H3:20x"FL8:I9:H12:20x'T250:250y,FL40:I11415:VI6:20:I/wFL0:H3:V23:RM1:1005wGw **PAGE #5**^wP$"C"İ500:1520wD$"BLOAD UNDERSTAND,A$4000":950wV6:H3:FL8:20wT250:250wI2:FL40:VV3:20wI3:FL40:VV2:20wFL136:H12:I46:V7I:20:I19:H13DvK$(21)(SP$,31):ZX12:I21:20:250:I10:20:250:ZXMvOT0VvCT1rvRE1:RM1:V23:H3:100vX110:X245:Y120:Y218:300vFL40:V18:I11:20vFL8:H13:I12:20vT250:250vI13:FL40:H3:V20:20wH13:FL136:I300uH3:I13:V5I:20:I/uT3500:250NuFL136:I45:V6I:20:I]uT250:250puFL40:V13:20uT500:250uFL40:I7:V15:20uFL136:H13:I89:V7I:20:IuT250:250uY119:Y219:X113:X243:200vT450:FL0:I9:V)96I$((I$)32)3tZX12:X255:Y123:Y215:300it_V15:I21:I$"A"K$(I)"***CORRECT***":1380taK$(I)"INCORRECT"tdFL5:20:1:(20);1tnPAPA1:T1000:250:140tstx **PAGE #4**t}P$"C"İ500:1420uX12:X255:Y123:Y26:s9T300:250*s<V15:I11:FL40:H2:20JsAX15:X237:Y117:Y222:200hsFH6:I1213:V5I:20:IsKI1416:V6I:20:IsPI10:H12:V13:FL0:20sUNU1:QL1:H24:V13:H3:V:" ";:160:I$"A"I$"B"I$"a"I$"b"ČDING:1365tW(I$rT750:250)rH4:V24:OT1:RM1:100/rAr **PAGE #3**XrP$"C"İ500:1320wrX12:X255:Y123:Y26:300r(V6:H2:I3:FL40:20r-H11:FL136:I46:VI2:20:Ir/T300:250r2H2:V10:FL40:20r7H12:FL136:I89:VI2:20:IqT300:250(qI2:FL40:H3:V8:20LqFL136:H14:I35:VI5:20:I[qT500:250rqH3:FL40:V13:20qX114:X245:Y113:Y218:200qH14:I79:V2I1:20:IqV18:H15:20:H14qT2750:250qI1112:V10I:FL8:20:H19:I pe400:1:(20);2;Zpj(2):H12:I610:K$(I)"*"K$(I):VI8:20:500:250:I:(1);iptT450:250qpyH5p~V21:FL8:20pCT1pV23:RM1:100pp**pD$"BLOAD UNDERSTAND,A$4000":950p400pT400:250pV6:FL4:20PA1:2047,PAoD$"RUN "FR$-oPA01030SoFP$"NO MODULE"ČDING:PA1:1000goPA255:2047,PAxoD$"RUN "FP$o1000oL **PAGE #1**oQD$"BLOAD FACTORS,A$4000":950oVFL136:H5:I35:V6I:20:Io[T500:250o`T100oaFL0,0:67,32n1536n&nXL3n **UNSCRUNCH**=n7683Rn1:(23);(23);Xnan140ln1000{n **MAIN**n255nPA255PALPnPA1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500nPALP11025 o "[a998: **MAIN SWITCHBOARD** xa ** PRINT SUBROUTINE **aFL0ĖH:V:K$(I);:aFTFLa1:SP0SP200aDT0DT7aFL2(FL2)SS40:(20);1;(20);2:27b(20);2;(20)/ `10`:(1);(16);#`,` LP6B` FP$"PART1.4.OBJ"S` F$"DATA1.5"i` FR$"PART1.6.OBJ"`PA(2047):D$(4)`K$(21):PA255PALP`DING947:D$"BLOAD SOUND"`2048:1536,160:1537,0:1538,76:1539,44:1540,2546a3:SP$"  !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""      "FP$m1000AGE #1**l255lPA255PALP%mPA1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,25007mPALP11025ImPA1:2047,PAZmD$"RUN "FR$imPA01030mFP$"NO MODULE"ČDING:PA1:1000mPA255:2047,PAmD$"RUN(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:468ll140l1000l **P,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)k(X2X1)X:Y1:(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,Y2:XjX1,Y1X2U2((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:Y2Y282:SS6:3iYRXICgRX0Ģ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))ČDING:192hND$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$""PR$"->"gRXP242ČDING:112evRE1126exP195P227PAPA1:P$"C"fzP210P242PAPA1:P$"R"-f|PA1ĺ(7);:PAPA1:102Cf~OT0ĖH:V:17)RfRE0İ140[fRE0dfRM0jff **READ DATA PAGE #PA **f152fD$(4)fNPAf1:2):FL0FLFTd`SP0:DT0daDQ0TDQ:250dbdd ** CONTINUE REVIEWee951,180:957,251(efRM0H2:V244eh:H:VNej" Continue/Review ";Telaen49168,0|epP(16384):P128112er49168,0etP$(P128):P195P210P227,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:TdYXd_FL(FLSSS2bFL(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(49200)c7(K$(I)8a3a998: **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):FL2(FL2)ĺ(23):SqBA.01BA.0395IN26qBA.04BA.0695IN3QqBA.07BA.1095IN4lqBA.11BA.1995IN5~qBA.20IN6q **DO IT TO IT**qVV7INqK$(21)(Q$(IN),10)::20qq3rHH11:K$(21)(Q$(IN),(Q$(IN))11):FL32:20:p ***SCALE***4pLB(LB):LB100Ģ3:5:" ";vpLX1LB1LB30:(8(((LX)))):3:(LX):BUZZ(49200):LXp(8((LB))):3:LB:OWLB:p **INTOXIMETER**pI21pXZ16:K$(21)Q$(XZ):20:VV1:XZpOZ1OZ0:qBA.01IN1rBAL7.6AMLB'os0:222,110224,1104otEE120^ovBUZZ(49200):T16:T:BUZZ(49200)dow{oxA$((((1)15)))oz17:14:(A$)1ĺ"0";o{A$:T11o|EE:250:P(16336):A$((BAL100)):17:14:(A$)1ĺ"0";o}A$:o~(20);1pQX2:nd **ALCO METER** HnfX191:X2103:D11:Y247:OA0Y2OAYnhY147AM72nj3:ST1:AM0Ē0:ST1:Y147AM72nlYY2Y1ST:X1,YX2,Y:T15:T:768,D1:769,((Y2Y))410:770:YnnOAY1:np **BAL METER**nq(20);2;(23)o255:63,95m66,0:67,32%m1536+m&6mX BEER_mZX1160:Y115:Y242:D11:BQ0X1BQm\X2160BM111:BM(BM)X2X21m^7:ST1:BM0Ē4:ST1:X2161BM111m`XX1X2ST:X,Y1X,Y2:T15:T:768,D1:769,((XX1))3.610:770:XnbBX11);:Y:l **HMOVE**,l60,0:61,32?l62,255:63,63Pl66,0:67,64Zl1536`lylQL3(I$)5QL2:lQL2(I$)3QL3lXX0lQL2ıl(I$)2(I$)6ČDING:QL3:XX1:ll **HMOVE2<1**l60,0:61,64 m62,Y2kXX1(X1X2)2SSpkX,Y1XSS,Y1:X2X1X,Y1X2X1XSS,Y1:X,Y2XSS,Y2:X2X1X,Y2X2X1XSS,Y2:XkX1,Y1X2,Y1:X1,Y2X2,Y2kk **DELAY**kDD1T1.3:DD:k+ **FILL SPACES**k,S1:Y2Y1SS l-YY1Y2S:Y:X1:X21)jH3(I$):" "; j168,j:1000:j **BOX**vjX1(X11)54:X2X252:Y1(Y11)84:Y2Y282:SS6:3jY(Y1Y2)2Y2SSjX1,YX1,YSS:X1,Y2Y1YX1,Y2Y1YSS:X2,YX2,YSS:X2,Y2Y1YX2,Y2Y1YSS:YkX1,Y1X1,Y2:X2,Y1X2,NU0((P176P185)(P174P165))ČDING:192ViNU2((P176)(P185))ČDING:192liH2(I$):(P);i(I$)1İ460:XX1160i(I$)QL168i(I$)QL192iH:V::PR$:QL3:NU0:PR$""ii(I$)1I$"":196jI$(I$,(I$)"PR$"->"hRXRXICAhRX0ĢV:H:PR$;:V:H:RXLIICIC|hRX0Ğ:V:H:(15);PR$;(15)::H:V:RXLIICIChP(16384):P128168h49168,0:(P136P255)(I$)0ī192hP141187hP160P250ČDING:168/iI$I$(P128): gD$(4)g1:D$6gD$;"OPEN ";F$;",L1200,D1"cgD$;"READ ";F$;",R";PA:J120:K$(J):JugD$"CLOSE";F$g1000gI1gg **INPUT ROUTINE**g951,180:957,251:DING947gI$"":V:H:QL3):49168,0:IC1:RX0:LI2 hPR$"26"fxP195P227PAPA1:P$"C"LfzP210P242PAPA1:P$"R":CT1100gf{P$"R"PA5PA1PA1}f~OT0ĖH:V:19)fH14V16Ē2:20,120159,120fRE0İ140fRE0fCT0fRM0fOT0ff **READ DATA PAGE #PA **g152250:CT1eh:H:V