' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( fӠ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`"PR$(6)"TL")TFTRUE7200D F1:RT1:4000:PRNT,3,10,(TX$,30)nF1:RT11:4000:PRNT,4,10,(TX$,30) PR$(7)"NP"CB0ČPRNT,1,34,"page "(PA)%TFTRUEĭPR$(6)"TA"ČPRNT,3,10,(TT$,29)*T1(PR$(8)):PR$(8)""T1UR4LRT1:ZC1 ST$(IS1)TX$IVKPČIPT,24,40,Z$:KP0:PRNT,24,1,BL$:Z$"Q"QFTR:7430wUR(PR$(4)):PR$(4)""UR8LW(PR$(5)):PR$(5)""LW23LW24LW24PR$(3)"C"āIIURLW:PRNT,II,1,BL$:II:7160:4500 (PR$(3)"C^NN0PM0:7000Gh(OL$,PS,1)")"PR$(PM)(OL$,SR,PSSR):7000r(OL$,PS,1)","PR$(PM)(OL$,SR,PSSR):SRPS1:PMPM1|PSPS1:6760Xb I116:ST$(I)"":ISST:T11:PR$(6)"TL"T1ST:SST2ISEN:F1:RI:4000R,1,OL$,")",NN%:NNNN%:4NN0CC$(OL$,4):6680HCT$(OL$,NN1)h INSTR,1,OL$,"(",NN%:NNNN%y NN106680CC$(OL$,NN1)OV$(OL$,1,2)"OT$(OL$,3),TINSTR,1,OL$,"(",NN%:NNNN%:SRNN1:PSSR:PM1:I117:PR$(I)"":I100:ST(SR$):EN(ER$):IX(EX$):PA(PG$):OC$OP$IX0ĺ(4)"CLOSE"::(7):::"*** ERROR -> OI (";OI;") IS NOT CORRECT"::A$I1IXR2I(OI1):5100OL$OL$OJ$IOIOIIXOL$(OL$,12):OC$"09"OL$(OL$,6)INSTΨԨͬ¬ìԨˬҨԨˬ¬ŷҨՍԩΨн¬̬ǬԨˬ¬Ҩ΍Ԩˬ̬èԨˬԨн¬ըԨˬԨˬìԨн¬ըԨˬԨн¬èԨˬԨн¬ӳԨˬرررررΨԨˬ¬ìô¨н¬̬ǬԨˬͨԨˬԨˬԨˬԨнΠԨˬԨˬԨˬ̨ԨˬԨͬĬԨнĬèɩԨнĬèɩͬĬԨнĬèɩԨнĬèɩԨˬ堠᭠󠠠宠砠쮠堠Ũ젠䠠䠠䠍򬠠􍢠󠠍堠宠󠠍笠ᠠ堠򠠠䮠宠纠썢栠󠍢嬠䠠笠墭堠     ST$(I),K1):K1K;(ST$(I1),2)" "İ7680:7670E7740KR vE16I21:ST$(E)ST$(E1):E(ST$(I1)RT$2< Z(ST$(I1),1)" "ST$(I1)RT$ST$(I1):7780_ST$(I1)RT$" "ST$(I1)dTNI$"9")ST$(I)(ST$(I),Y1)RP$((NI$))(ST$(I),Y2)>tE~ [(ST$(I))07670qE(ST$(I))11(ST$(I),E,1)" "ST$(I)(ST$(I),E):E1E(ST$(I))407670K4111(ST$(I),K,1)" "RT$(ST$(I),K):ST$(I)((1)"K"P1$CP$'PR$(1)"M"P1$NP$h(PR$(1),1)"P"KP0:PE((PR$(1),3))757:I1PE:I:74307440:PR$(1)"M"QFFA PRNT,24,1,P1$$CLRKBD)LR24:ZC40.KP18B `NI$(ST$(I),Y1,1)8j(NI$"0")(RI116@fINSTR,1,ST$(I),"&",XX%:XX%0YXX%:7490:7270GzISI116]7550qST$(I)""7380TFTRUE(ST$(I),1,1)">"ČPRNT,LR,2,(ST$(I),2):7350PRNT,LR,1,ST$(I)LRLR1LR247380I PR$(1)""PR$堠ﬠ讠堠栠頠獢堠堠򠠠卢栠ﮠ砠Ũԭ󠠠卢堠堠ԭ堠宠󠠠宠򭭭堠宠ᠠ䠠䮠宠󠲮𠠠嬠䠠𮠠󭭭堠󭭭򿠠٠󠠠Πӭ嬠㮠孭󠠠ӠŠ     宠栠堠쮠젠ԭ報젠󮠠䮠ԭ䭠󠠠썢󮠠Ũ䠠󠠠󠠠䮠㢠󬠠宠堠宠ﭠ宠宠堠堠󠠠䮠堍򠠠堠堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭堠򠠍󮠠Ӡ堠宠󠢭堠ӭ󠠠     䍢宠󠠠栠獢خͮ砠򠠠󮠠󠠠栠î젠Į栠Ů堠Ʈ򠠠󺠠®Ͻ젠ƽ젠ɽ젠Ǡ󩠠婠宠䬠堠ս䠠Ľ䠠׽㠭󬠠󮠠󺠠쬠󺠠䬠䠠󮠠ƭ魠䠠󮠠󠠠򠠠쮠䮠䮠򠠠䠠宠򠍢󠠠쮠堠򠠠宠堠䍢󮠠箠ŠͭĠԠԢŠԠ󠠠  󠠠獢堍󮠠򠍢卢󮠠䠠笍䠠젠堠󮠠®堠󠠍魠婠宠ή׽Ͻ젠ƽ젠ɽ젠Ǡս䠠Ľ䠠®堠箠堍卢򠠠®렠宠栠®宠쬠䩮󮠠ͮ嬠󠠍魠婠宠ή׽Ͻ젠ƽ젠ɽ젠Ǡ堢俠堠󺠠ս䠠Ľ䠠C03$QRES.SUBE by TERRY WOODFORD date 12/1/83Ko.KB$"N"CO(10)1:CO(1)1:10803CO(10)2:CO(1)28KPFA:=CHAIN,MP$"CMND.SUB",CV$Bd魠婠宠ήϽ젠ƽ젠ɽ젠Ǡ堭俠堍󺠠ս䠠Ľ䠠׽젍堍欠堠宠󮠠󠠠ᠠ箠젠卢󮠠󠠠䬠䠠򮍢󠠠󠠍魠婠宠ήᠠĽ䠠׽Ͻ젠ƽ젠ɽ젠Ǡ俠堠󺠠ս䠠2)(RP$(2),X1)" : RP$(3)UA$(2)6 D RP$(3)""3200Y X INSTR,1,RP$(3)," ",II%:XII%w l X0RP$(3)(RP$(3),X1) v SA$(0)UA$(3) BX$(34)(SA$(0)BL$,20):(4);"WRITE";F$(1);",R";SX2:X$] >(4);"CLOSE";F$(1):F$(1)S1${ H(4);"OPEN";F$(1);",L42" \ GET ANSWERS FROM FILE RP$(2)UA$(1) RP$(2)""3200 INSTR,1,RP$(2)," ",II%:XII%  X0RP$(  SAVE ANSWERS TO FILE% 3 S1$F$(1)_ (4);"CLOSE";F$(1):F$(1)"ANSWERS.DAT"} (4);"OPEN";F$(1);",L22" X$(34)(RP$(2)BL$,20):(4);"WRITE";F$(1);",R";SX:X$ X$(34)(RP$(3)BL$,20):(4);"WRITE";F$(1);",R";SX1:X$; . C03$ANSR.APB-BY:JIM DYAR 1/19/844]KPČIPT,24,40,Z$:Z$"Q"QF1:1090pPRNT,24,1,BL$TEST & FREE ANS I/O$PR$(1)"OUT"İ2000.PR$(1)"IN"İ30008PR$(1)"QUIT"QF1BCLRKBDLKP0:CHAIN,MP$"CMND.SUB",CV$  젠宠쩠젠򍢠󮠠젠箠󮠠蠠󠠍);",R1":(34)X$L90 &E UPDATE INDEX RECORDK]F2:R1:6100kL$(SL%)TX$L$(TX$,3)(4)"WRITE USER.DAT ,R1" TX$ GET TEXT(4);"READ";F$(F);",R";RTX$F26200 00000000000000",M%)HX$F1$(BL$,20(F1$))F2$(BL$,20(F2$))ME$q(X$)JDĉ:"Parity error in JD":(4);"WRITE";F$(2);",R";UL:(34)X$SL$(" "(SL%),2):ML$(" "(M%),2):F9$(BL$,34M%):X$SL$ML$A$F9$(4);"WRITE";F$(2TX$ 0 K#: (4);"CLOSE";F$(1)KD F$(1)S1$:(4);"OPEN";F$(1);",L42"Qk-------------------- ADD NEW USER --------------------ULSL%SL%SL%1:SL%6SL%2SX(UL2)T91:EASXT9F1$PF$:F2$PL$:ME$("000000ĆUA$(T9)! (4);"CLOSE";F$(1)S F$(1)"ANSWERS.DAT":(4);"OPEN";F$(1);",L22"^ FIELDz SX(UL2)T91:EASXT9 KSXEA F1:RK:6100! INSTR,1,TX$," ",XX%" XX%03115# XX%1TX$"":3115& TX$(TX$,XX%1)+ UA$(KSX1);F$(2):L90:LFFA:F$(2)S2$:(4);"OPEN";F$(2);",L";SO@ Z --------------------o USER EXISTS -------------------- FD1 ULI:I100 INSTR,1,ME$,"1",II%:L9II% L90LFTR  INIT ANSWER LOC  T910-------------pzL90LR18:ZC2:X$" You have completed Subunit(s) "((L9),1,2):PRNT,LR,ZC,X$:ZCZC(X$){INSTR,L91,ME$,"1",II%:L9II%:L90ČPRNT,LR,ZC,","((L9),1,2):ZCZC3:L932171|LFČPRNT,19,1,"in this unit."(4);"CLOSE"LD FIELD; F2:R1:6100:M%(ML$):SL%(SL$):A$AN$I T9(AN$)R FD0] I26o *F2:RI:6100 4PF$(BL$,20(PF$))F1$PL$(BL$,20(PL$))F2$İ3000 >I HFDİ4000 R------------------- \Tell Where Left Off f------Z131400! UZC32ĺ(7):13155 ZZ65Z901315_ dPRNT,LR,ZC,Z$:W$W$Z$:ZCZC1:1315e x{ ---------------- FIND/INSERT NAME ---------------- (4);"CLOSE";F$(2) F$(2)"USER.DAT" (4);"OPEN";F$(2);",L";JD2  FIE6X123PL$(PL$,I1)(X32)(PL$,I1)0 I6 < M  NAME INPUTS ] W$""w #IPT,LR,ZC,Z$:Z(Z$) 7(Z8Z127)W$""1360 <(Z8Z127)1360 A(W$)1W$"":1355 FW$(W$,(W$)1) KZCZC1:PRNT,LR,ZC," ":1315 P:" oRP$(0)PF$2 tLR12:ZC14:1280:PL$W$" "D yPL$" "1140a FI$PF$(BL$,20(PF$))~ IL$PL$(BL$,20(PL$)) I2(PF$):X((PF$,I,1)) X96X123PF$(PF$,I1)(X32)(PF$,I1) I I2(PL$):X((PL$,I,1))) X9PUT,PX,PY,LO%(0)I LPRNT,7,1,"Type your first name, and press RETURN;"} QPRNT,8,1,"then type your last name, and press" VPRNT,9,1,"RETURN." `PRNT,11,3,"First Name:" eLR11:ZC14:1280:PF$W$" " gPF$" "1125 jPRNT,12,3," Last Name  C03$NAME.SUB HS1$F$(1):S2$F$(2):SAVE FILENAMESqKPČIPT,24,40,Z$:Z$"Q"QF1:1042{JD431050:2000CLRKBDPRNT,24,1,NP$KPTR:CHAIN,MP$"CMND.SUB",CV$$ NAME.8:7 =0,43279,43:        117  15,105' 153,107152,108< 157,108155,110O 165,96164,97c 166,98165,100x 110,112109,113 109,116109,117 0118115,119 d 108,121107,1225n 149,100148,101Jx 148,103146,105_ 144,110144,111s 153,99151,101 158,101155,105 153,107152,108 157,108155,110 165,96164,97 166,98165,100 110,112109,113 109,116109, 145,97144,99' 138,99136,102< 133,100132,101Q 134,100133,101f 137,110137,111{ 140,103139,104 144,103141,106( 162,101160,1032 172,96171,98< 169,100168,101F 176,98174,100P 111,117109,119 Z 116,80100,83L 104,85101,89/V 105,88103,90B` 112,90111,91Uj 109,89108,90ht 104,93101,97{~ 122,92119,95 132,92131,93 145,81143,84 163,85162,86 169,96165,100   STORM14--RAIN  139,93137,96STORM11--RAIN&101,53100,549102,58100,60L102,66100,68_102,70100,73r104,74102,76100,7999,80 114,93112,95 131,87127,92 142,83140,85$ 160,85158,87. 167,85165,888 172,97172,98 B 102,116,123115,124$4180,112176,1179>158,114156,116NH156,120152,124cR165,121162,125i\ofpSTORM10--FILLEDCLOUDS/FILLEDLIGHTNINGz146,65146,65 HPLATTO"E+1R+3E+1R+2E+1U+1"PAINT(175,77),CLR,2 10111,110109,113,166,111165,113A161,120159,122V172,111170,113k171,115169,117qwSTORM6--MORERAIN121,91119,93117,104115,107 103,115102,117109,116106,120 117,115115,118*IGHTNINGBOLTSHADOW-&152,100145,108B0145,108155,108W:153,100147,107lD154,100148,107N155,109138,128X153,109137,128b154,109137,128lv115,91111,95105,99103,101113,100109,105105,107102,1THPLATDINWHITE(133,83118,100=118,100132,100R132,100121,114g121,114131,114|131,114121,127147,91142,97142,97152,97152,97142,109142,109151,109151,109135,127STORM5--RAIN/LPLATTOOUTHPLATNEXTTOCLOUDJ " HPLATTO"R+1D+1R+1D+1R+2D+1R+2D+1R+4D+1R+5"P , 6PAINT(154,103),CLR,CLR:REMFILLINLIGHTNINGBOLT @ J TSTORM3--FILLEDCLOUDANDFILLEDLIGHTNING ^ hPAINT(173,66),C3,C3 r |STORM4TOTOLIGHTNINGOUIGHTNING ! 135,82122,984 122,98134,98H 134,98124,112] 124,112134,112r 134,112122,128 148,88139,99 139,99149,99 149,99139,111 139,111147,111 147,111132,128 122,128132,128 135,83135,83:4:2180:REMOVELIGHTNING2 24:2250:REMOVERAINJ <PAUSE1500:PAUSEh FPUT,110.8751,39,S3%(0){ P5:2520:RAIN Z4:2520:REMOVERAIN dPAUSE1500:PAUSE x KP0:CHAIN,MP$"CMND.SUB",CV$  STORM2--UNFILLEDCLOUDANDFILLEDLOVERAIN$ 4:2040:REMOVEMORERAINB 4:1450:REMOVELIGHTNINGO 4:1590\ 5:1910| 5:2040:PAUSE150:PAUSE 4:1910 4:2040 PAUSE1500:PAUSE PUT,110.8751,39,S2%(0) 6:2180:FILLLIGHTNING 5:2250:RAIN (0:HPLATTOLIGHTNING `6:1590: j7:1640:FILLINCLOUDZ t7:1690:OUTHPLATLIGHTNING ~6:1830:LIGHTNINGSHADOWANDRAIN 5:1910:RAINFROMABOVE 5:2040:MORERAIN 4:1830:REMOVEBOLTSHADOW 4:1690:REMOVEOUTHPLAT 4:1910:REM C03$STRM.SUBHKPČIPT,24,40,Z$:Z$"Q"QF1:1410[PRNT,24,1,BL${$S1%(684),S2%(684),S3%(684).BLD,MP$"STRM.SCR",S1%(0):BLD,MP$"STM2.SCR",S2%(0):BLD,MP$"STM3.SCR",S3%(0)8LPUT,110.8751,39,S1%(0) V6:145          󠠠俠卢󺠠ս䠠Ľ䠠׽Ͻ젠ƽ젠ɽ󮠠嬠栠堠蠍򮠠젍堠􍢠堠󮠠젠宠쩠堍젠󮠠砠堦󮠠󠠍魠婠宠ήս䠠Ľ䠠׽Ͻ젠ƽ젠ɽ젠Ǡ堠宠俠󺠍ᠠ󮠠栠堠嬠堠򠠠ICH THERE ARE 40 COLS.":7 (4);"READ";F$(F);",R";R@ TX$F t rec ) (4);"READ";F$(F);",R";R2 TX$8 W  Feedback Graphice A%(1014) BLD,MP$"GRPF.SCR",A%(0) :PRNT,2,8,"THE COMMUNICATION PROCESS" PUT,60,42,A%(0)    get rec  TX$"THIS IS TEXT OF WH7EN:F1:RI:4000:PRNT,LR,1,TX$:LRLR1:I@ PRNT,24,1,CP$c KP1:CHAIN,MP$"CMND.SUB",CV$~  Feedback Graphic A%(1014) BLD,MP$"GRPF.SCR",A%(0) :PRNT,2,8,"THE COMMUNICATION PROCESS" PUT,60,42,A%(0)    ge,24,40,Z$ jPRNT,24,1,BL$= oLR1921:PRNT,LR,1,BL$:LR| tLR19:IST3ST5:F1:RI:4000:PRNT,LR,1,TX$:LRLR1:I ~PRNT,10,18,"Receiver" PRNT,24,1,NP$ IPT,24,40,Z$ PRNT,24,1,BL$ LR1921:PRNT,LR,1,BL$:LR- LR19:IST9 C03$GRPF.SUB .KP10807KP0JIPT,24,40,KB$c$KB$"Q"QFTR:1210v.PRNT,24,1,BL$82000: DRAW THE MENBLR19:ISTST2:F1:RI:4000:PRNT,LR,1,TX$:LRLR1:ILPRNT,6,17,"Sender"VPRNT,24,1,NP$ `IPT  婠宠ή󠍢젠Ǡ魠  ERROR ( (7);(7);(7). 5 F GET RECORDLj(4);"READ";F$(1);",R";RsTX$y| P2(CP)02580 1850 % 5 ENTER KEY;( K< Z0:I1CP]F P2(I)ZZ1dP IvZ CO(0)Z:KPFAn CHAIN,MP$"CMND.SUB",CV$s :x   MOVE LV=1 TO MIDDLE  " , MOVE MIDDLE,THEN DOWN6  :2380 DS(Z$)$ 2770'. 285038 CPRT1B= DS12375]B I1DS1:CPP1(CP):IgG 2520mL sV ` MOVE UPj t CP1ER4:2980:2510~ CPRT NP1(CP):NCPCPN:2440 CPN:1850   MOVE DOWN $(LO(S))'&1,138(LT$(LO(S)))7,138V*PRNT,24,8,"Press the appropriate number."`>CPRTfHlRx\ INPUT~fp49168,0(16384)1282220Z(16384):49168,0:Z$(Z128)Z$"0"(Z$)NNER1:2980:2220Z$"0"İ2390NN4IC70:SC9*NN3IC102:SC11ANN2IC203:SC13H5UK6064tSC17,K(NN1)IC23SC,K{KCPCP1:XCSC:YC75BN1NN 1400:XCXCIC:SCP:CPP1(CP)BN PRNT,5,4,"LEVEL #"(LO(CP)1)%PRNT,17,1,LT"-"IN$(CP)6: +D DISPLAY TREE1N7XSbPRNT,1,15,"Thoughtree"el98,10168,10|vXC113:YC22:RTCPBN0:1400:SVCP1NN1:CPP1(SV)NN2P1(SV)P1(P1(SV))1970NNNN1:SVP1(SV)1940NN5IC56:SC13 "K,YC32K,YC37 ,K4 -3:BN0CP11585Y .PRNT,57(YC60),(XC7)4,(BN)f 1LR18BN 2BN0CP1ČPRNT,4,25,"PEOPLE ":PRNT,5,25,"MANAGEMENT":1589 4BN0ČPRNT,15,1,(BN)"-RETURN TO LEVEL #"(LO(CP)) 5BN0ČPRNT,LR,1,(BN)  MAIN BOX LC(LO(CP))L XC,YCXC40,YCXC40,YC31XC,YC31XC,YC XC1,YC1XC39,YC1XC39,YC30XC1,YC30XC1,YC1 XC2,YC2XC38,YC2XC38,YC29XC2,YC29XC2,YC2  BOTTOM PIECE P2(CP)1581 5 KXC17XC2P)PT 2CP:CP1 <- F LEADING SPACES: PLV140p Z(IN$(CP),LV,1)" "IN$(CP)(IN$(CP),LV):1390x dLV~ n x  DISPLAY BOX AT XC,YC  P1(CP)RC1490  TOP PIECE 5 KXC17XC23 K,YC10K,YC1 K 3)"END"1250) PT0:LS(PT)1:PS(PT)16 CP2RC@ 1350} LVLS(PT)PTPT1:PS(PT)CP:LS(PT)LV:P2(CP1)1:1320 LVLS(PT)P1(PS(PT))CP:PS(PT)CP:1320 LVLS(PT)P1(PS(PT))PS(PT1):PTPT1:1310 #P1(PS(PT))CP:PS(PT)CP (LO(CC(0)6:LC(1)1:LC(2)2:LC(3)5:LC(4)6:LC(5)1:LC(6)2:LC(7)5 ~LT$(1)"Program Units":LT$(2)"Subunits":LT$(3)"Sub-subunits" LT$(4)"Sub-subunits"    CONSTRUCT TREE  RC0: RCRC1:F1:RSTRC1:4000:IN$(RC)TX$:(TX$,z KP1000#KP0.((16384)12840P2KB$((16384)128):49168,0i<KB$"Q"QFTR:2670o FLOWCHRT.BAS108012101850$2130:1060.8B INITLVT35`IN$(T),P1(T),P2(T),LO(T)> tL       󮠠󠠠箠T3PRNT,RW,CW,TX$3d$2KP13090.2KP0:(16384)12813040P2KB$((16384)128):49168,0k3KB$"Q"KB$"q"QFTRq"3w,363 PRINT ROUTINE@3J3TX$""TX$(BL$,39)T3PRNT,RW,CW,TX$3dPRINT ROUTINE@3J3TX$""TX$(BL$,39)05"0RW17TX$" MANAGING FOR SUCCESS SERIES"d%0RW21TX$" PERSONAL DEVELOPMENT"*0(4)"READ "F$(F)",R"R40TX$f0p0z0 WRITE A RECORD00(4)"WRITE "F$(F)",R"R0TX$022 KP LOGIC21)!X/(4)"OPEN "F$(F)" ,L"LG2'b/-l/Tv/ CLOSE FILES FOR THE APPLEZ/q/(4)"CLOSE "F$(F)/F$(1)S1$:F$(2)S2$/F2(F2)ĺ(4)"OPEN "F$(2)" ,L"SO:12200/(4)"OPEN "F$(1)" ,L"40/ 00 READ A RECORD 13040(2KB$((16384)128):49168,0C3KB$"Q"KB$"q"QFTRI"3O,3i63 PRINT ROUTINEo@3J3TX$""TX$(BL$,39)T3PRNT,RW,CW,TX$3d3d OCM FILE:/D/F2(F2)ĺ(4)"CLOSE "F$(2):12120N/(4)"CLOSE "F$(CCESS SERIES"<%0RW21TX$" PERSONAL DEVELOPMENT"W*0(4)"READ "F$(F)",R"R`40TX$ff0lp0z0 WRITE A RECORD00(4)"WRITE "F$(F)",R"R0TX$022 KP LOGIC22KP130902KP0:(16384)128l/,v/ CLOSE FILES FOR THE APPLE2/I/(4)"CLOSE "F$(F)a/F$(1)S1$:F$(2)S2$/F2(F2)ĺ(4)"OPEN "F$(2)" ,L"SO:12200/(4)"OPEN "F$(1)" ,L"42/ 00 READ A RECORD 0 "0RW17TX$" MANAGING FOR SU*&+ BLOAD AND PUT SCR FILE, +@+BLD,SF$,A8%(0)M+HGTRĐa +PUT,X,Y,A8%(0)gR+m.. OPEN FILES FOR THE APPLE:/D/F2(F2)ĺ(4)"CLOSE "F$(2):12120N/(4)"CLOSE "F$(1)X/(4)"OPEN "F$(F)" ,L"LG2b/(TX$,41,JD40)) (TM$,SS,1)"1"ī5110S SS1TM$"1"(TM$,2,(TM$)1):5090w TM$(TM$,SS1)"1"(TM$,SS1) TX$(TX$,40)TM$ F1:RUL:12400 F1:12140 f ' ' NEXT SCREEN $' .'PRNT,24,1,CP$ 8'KPTR B':13100= RW24:CW16:TX$"Please remove your disk.":13100G 4087M l  -----------------------  UPDATE USER MENU  ----------------------- F1 F$(1)"USER.DAT":LGJD:12000 SS(PR$(2)) F1:RUL:12300 TM$75,138I I  V  CLOSING GRAPHIC -- TREE WITH LEAVES AND FRUIT\ s 13000:QFTR4090 SF$MP$"SUN.SCR":X68.875:Y31:HGTR:11000 RW19:CW14:TX$"CBS SOFTWARE":13100 RW21:CW7:TX$"MANAGING FOR SUCCESS SERIES" CBS SOFTWARE LINES % 50 I03l 10.875,18I299.875,18I:10.875,38I299.875,38Is I RW5911920 I03 10.875,RWI63.875,RWI:245.875,RWI299.875,RWI I RW I03 10.875,138I299.842:HGTR:11000 o3500B ~RW20:CW20:TX$"PRESENTS...":13100H N END OF UNIT GRAPHIC -- RISING SUN WITH LEAVES 5000 13000:QFTR3090 SF$MP$"SUN.SCR":X68.875:Y21:HGTR:11000 KPFA   C03$OPEN.SUB7S1$F$(1):S2$F$(2)EA8%(940)c(PR$(1))1100,3000,4000mKPFAF$(1)S1$:F$(2)S2$CHAIN,MP$"CMND.SUB",CV$BL OPENING GRAPHICQPR$(2)"1"1190 VSF$MP$"CBS.SCR":X(66.875):Y     𮠠ɠ宠ɠ퍢ɠɠ堠ɠ󠠠ɠᮠɠ䠍ɠ𠍢ɠ堠堠󺠠䠠򠠠宠󠠍殠堢ᩮ䮠堠젠𮠠READ";F$(F);",R";RTX$!1$(F);",R";R9TX$?)T(4);"PR#0"Z`mGET RECs(4);"READ";F$(F);",R";RTX$ 3 4 5 "8;I7$;(BL$,I7);" RARELY FREQUENTLY"M@X1ST(C91)31SE`JI7$;X0$pTEEX1X12^F1:REE:5000:I7$;TX$hEEmC93ĺ(12)o:::rC9|(12)(4);"PR#0"GET REC(4);";:C81(Z$):"####";:C8:3I7$;(BL$,I7);"|"ZZ2$(SA$(1),C9,1):(Z2$)04160yI7$;(BL$X1$,I72);" ";"|";:C81(Z2$):"####";:C8:"I7$;(BL$,I7);"|",I7$;(BL$,I7);"---------------------" 6I7$;(BL$,I7);" 1 2 THEN PRINT TO PRINTER, CO(10)24240D I7$(BL$,20):I712U (4);"PR#1"q F1:RST:5000:I7$;TX$ I7$X0$" and "X1$  C915 Z$(SA$(0),C9,1):(Z$)04100 I7$;(BL$,I7);"|" I7$;(BL$X0$,I72);" ";"|"(Z2$)03140 & II96103H 0 108,II(127(5((Z2$)1))8).875,IIP : IIk D X1ST(C91)31:LR20~ N PRNT,19,2,X0$ X EEX1X12 b F1:REE:5000:PRNT,LR,1,TX$:LRLR1 l EE v C95ČPRNT,24,1,NP$:CLRKBD:IPT,24,40,Z$ C9  RNT,9,2,X0$"'s Listening Skills:". C915R II2024:PRNT,II,1,BL$:II:6 PRNT,11,17,(BL$,22):PRNT,13,17,(BL$,22) Z$(SA$(0),C9,1):(Z$)03100 II8087  108,II(127(5((Z$)1))8).875,II  II  Z2$(SA$(1),C9,1):((15U9)2)- X9$"":S90X9$(BL$,S9)D PRNT,11,1,X9$UN$u L9(L9$):F8$L9$:L915F8$(L9$,15):L915 S9((15L9)2) X9$"":S90X9$(BL$,S9) PRNT,13,1,X9$F8$ CALC & PRINT BARS F1:RST:5000:PRNT,8,1,TX$" P0$(X0$,XX%1)  7' I14P 5:(119I).875,72(119I).875,120i 105,120I259,120Ix *I:L9$X1$ \PRNT,17,17,"1 2 3 4 5" fPRNT,18,17,"Rarely Frequently" pUN$X0$:U9(UN$):U915UN$(UN$,15):U915 zS9" C03$2BAR.SUB IKPČIPT,24,40,Z$:Z$"Q"QF1:1060\PRNT,24,1,BL$l2000:4000$PRNT,24,1,CP$:KP1:CHAIN,MP$"CMND.SUB",CV$ PRINTS X,Y AXISX0$RP$(0):X1$RP$(2) INSTR,1,RP$(0)," ",XX%:XX%0X     ¢忠󠠠卢堠젠󠍢젠젠堠󺠠򠠠젍󮠠堠堠젠󮠠栠󠠍󮠠栠砠TX$ r1)(RP$(2))5))2)@PRNT,11,T9,RP$(0)" AND "RP$(2):ROW13KL17sPRNT,ROW,1,(L)"."(P9$(L),6,16)PRNT,ROW,20,(L)"."(FRI$(L),6,16)ROWROW1 L1270 @J get recT^(4);"READ";F$(F);",R";RhSVSL$(J)NJXb3l PARM$(1)=69vO:PUT,3,0,LO%(0)jPRNT,3,18,"RECEIVING"PRNT,4,16,"COMMUNICATION"7:0,43279,43:LR8RECSTENF1:RREC:8000PRNT,LR,1,TX$:LRLR1RECT9((40(((PF$)25:1350:S$"1"S$"7"ČBEEP:17107PRNT,20,25,S$wII$SVSL$((Y$)):SVSL$((Y$))SVSL$((S$)):SVSL$((S$))II$1540 SUBJ17P9$(J)SVSL$(J)J& SUB0:J17DFRI$(J)PRNT,LR,2,(I)"."(P9$(I),6,16)L PRNT,LR,21,(I)"."(SV$(I),6,16)X LRLR1_ Ie k @y J get rec T Y ^(4);"READ";F$(F);",R";R hTX$ rS270: S$"1"S$"7"ČBEEP:1660 PRNT,20,13,S$:Y$S$$R920:C9 J  $ & SUB* 0B :PUT,3,0,LO%(0):[ 7:0,43279,43:LR8h ISTENz F1:RI:8000 PRNT,LR,1,TX$:LRLR1 I T9((40(((PF$)1)(RP$(2))5))2) PRNT,11,T9,RP$(0)" AND "RP$(2):LR13 I17$ Z$:Z$"1"Z$"7"ČBEEP:17107 PRNT,20,25,Z$:A2$Z$q I$SV$((A1$)):SV$((A1$))SV$((A2$)):SV$((A2$))I${ 1550  (PR$(1))1ČPRNT,24,1,CP$:IPT,24,40,Z$:Z$"Q"QF1    SAVE FROM 1ST  J17 P9$(J)SV$(J))". "SV$(K)" "+ @LRLR12 JKg hPRNT,22,5,"Press the RETURN key when finished." rPRNT,20,5,"Switch with ":CLRKBD |IPT,20,13,Z$:Z$(13)1745 Z$"1"Z$"7"ČBEEP:1660 PRNT,20,13,Z$:A1$Z$ IPT,20,25,)"your age"""( SV$(2)"your sex"""B SV$(3)"your race"""a SV$(4)"your education""" SV$(5)"your financial status""" SV$(6)"your religion""" SV$(7)"your regional origin"""  CONTINUE "LR8 ,K17 6PRNT,LR,5,(K C03$SWTC.SUB .BEEP198WKPČIPT,24,40,Z$:Z$"Q"QF1:1060` QF0yPRNT,24,1,BL$:1420QF1KP0:1060(PR$(1))1750,1820PRNT,24,1,CP$:KP1$CHAIN,MP$"CMND.SUB",CV$ SWITCH SV$(1     z"#ðîҠðîҠðîҠðîҠðƮҠ ܠҮԠ  ðήҠðϮҠ ðîҠ ðîҠ ðٮҠ! ðٮҠ" ðͮҠ  ðԠ"ð´ԠN ðôԠ+ԠðͲҠ ðͳҠ ðͮҠ ðͮ  ðŮ  ðҮ ðӮ ð׮ԠðԮԠðծԠ !ðر "ðծ ðî  ðҮ  ðή  ð׮  ðƮ  ðҮ͠ðĮ ðŮ +ðî  ð̮ ðή  ðӳ Ӡ堠Ӥή ԮԠ  "ҮԠӮԠ򠍢宠栠󮠠堠䠠󮠠堍쮠󠠍쮠󬍢󬠠󮠠󠠠䮠󬠠󮠠䠠嬠宠堠䠠󠠠󮠠䠠䠍󮠠ᠠ栍󬠠󠴠󠱬򠳠󠠠򠠠쮠栠ᠠ獢㠠򠠠庠堠䮠󍢠堠蠠宠砠                                  ͮ򠠠رɠ򮠠󠠍栠뮠򠠠ر󺠠ɧ䮠ɠڠҮ󮠠堠󮠠򠠠ر䠠ɠ䮠宠堠宠栠ӳɠ󮠠堍箠򮠠堠堍 ᠠ򠠠󠠠宠砠           宠嬠󠠠宠󠠠堠򮠠䠠嬠堠栠庠򠠠󠠠ᠠ堠箠ȭǠƠӠǠΠҺ堍堠堠󠠠砠堠ԭԭ󠦲󠠠򠠠堠󠠠ȭ砠堠ԭ堠󬠦󠠠蠦Π讠ԭԭ䠠堠򠠠庠رɧ堠׮򠠠ԭ𠍢ʮ򠠠رɠ򠠠. : 34,23- (4);"EXEC T.START"0ᠠ᠍孍堦砠堠堠嬠堠ҨΩ嬠렠󮠍󠦲俠٠Πﮠ䠠䮠ɠ䮠ɠ栦ɠ젍ɠ砦ɠ砠ɠᠠ᠍ᠠ栦Π讠ԭᠠ栦 """8 KB$" ":SQ1:SA1> 9%KB$" ":SQ1:SA1\%,LO%(107),RP$(15)0 oBLD,MP$"LOGO.SCR",LO%(0)M t(4)"OPEN "F$(2)" ,L"SOj y(4)"OPEN "F$(1)" ,L42" ~==LOAD LOGO HERE== CP$" Space Bar to continue, or Q to Quit.""" NP$" Space Bar to continue."""" BL$" AIN,MP$"CMND.SUB",CV$ .4 8 Initialize: BE GF$(3)_ LOC3:SO21:OI3:JD45 VF$(1)"AAAAAAAA.DAT""":F$(2)MP$"MSTR.OCM":TR1:FATR `AD8192: ADDRESS OF BLOAD SCR FILES jST$(17),SS(16),PR$(17),CO(99),OP$(10),TG$(17),SA$(10)FA:CBTR PX3CB2:PYPX CV$"AD!CB!CO!()CP$EN!F$()FA!KP!MP$NP$OC$OI!PR$()PX!PY!QF!RP$()SO!BL$SS!()ST!ST$()TR!TR$()CV$PR!CH!PU!IN!GI!IP!CL!BL!UR!TT$SC$PR$OP$()SA!SA$TG$()MN$MX$LW$HG$SH$TP!KB$SA$()KB$SQ!SA!UA$()LO%()CK$PT!P9$()JD!UL!SX!""" $CH:LN(43616)(43617)256, :AD38400LN4 ADA ":PRNTADS ,:CHAINPRNT3d 6:PUTCHAIN3u @:INSTRPUT3 J:GITINSTR3 T:IPTGIT3 ^:CLRKBDIPT3 c:BLDCLRKBD3 h:MP$"C03$""" r1070   Execution  QF?d nCBS--STUDENT SYSTEM&x@INCLUDES UPDATES OF:K PRNTW CHAINa PUTm INSTRw GIT IPT CLRKBD BLDMARCH 9,198443699,024576(4);"CLOSE"(4);"BLOAD QAPCPIGICB"      ժժժժժժժժժժ޺ׯ׿޾߯Ղ׹Ղ߮߿߀߀߀߀ժ󠠠䠠ӭ堠󠠠󠠠󠠍䮠頭󺠠堠箠砠󠠠䮠宠󮠠󠠠宠Ү­砠砠䮠ɠ򠠍宠젠箠ŠŠŠĠðĮŠ˨Š˨ŠŠŠĠӤލŠ˨Š˨΍hՀǟՀກ Xc[ժժժժժժժ >e>>e??8>EFF` g ᤡ` { <=&`((((PPPP\\]]^^__\\]]^^__\\]]^^__8EFF _ 0 0L)H ߅>?>opoha{)ߑooȑ>pȑ> >? `,0`,` ȒO < &V  ߪ A `„؅BA ADH @he@C`DFCE`8 >? &?NBGGEȥFȥGii*8@@AA@i+D&'>BJJJ )i<(B) e+=D<F=F=f?>>8f???><< ȱ=<&''F¥&E>F??B**GLڐ` g ᥡ` Y =F=<` ' Ȓ?@@e'&@><' '<=Lҏ ߅>?>>` zA@ zB zIH zN ߅A4@.B(I HNIAH@NBʆ`8H@EIAFEF8A `@`B`EȱFȱGii*8@@AA@i+D<&'BJJJ )i<(B) e+D>Jf?> f?&&'E'F>8f??(Ȣ>($>JC8>FCf?8f??BB **G`L뎦<ȱ>  2L> L` h$ $0> 2 L>Bȱ>C> 2>?BCBBCL`$0>>e>>e??`e`$0lkLKmn?>`$0Lc`$0jiLwkl>?` zA@ zB ߅7  eօ3آiLӤخӤĮ Ȓ< u Tͩ>?ϩ` Ȓ{'&i<@Aȱ<0[AȱAȑ>>>'L@A'L>?` h T <&$>f LLًL|LLLLL Y' Ȓ '< CD''&` ӌ $0(  mnkl i unj ghL uٻghL ugh67  6      !/「ؙÁ̙ÁǁǁÍ  ܁؃恀ށÉժժՊՂՂՀՀՀЪՎ֪Ռުռު쀀ߪڀݪ€ت€€€€ՂՀՀՀՀՀՀՀՐՏ %@㏀ఀ 怀ϱ쀀ã́ӂ숎Àࣀ•۪ݻתݻݻ޻ݻݻݻժժժժժժժۻժժݻժՊݻՊժݻժЪժۻݻժժݻݻժժݻݻݻݻݻߪݻ۪ݻݻ߀׀Հ콁λ𿁁ρ𿁁 Xc[ժժժժժժժ   ؠ҇ΠŠӠ ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժЀ؟ՐԀЊЊԂԂŀՀЀԈՀԠԀ𞏀ԐۀĔАĄÀĄ̀ĀՀƁƁƁԀԀ =D9큀غؚ؊ݮ낀ꂀ끀끀遀聀ժժժժժժժÀ؁؃ Xe[ժժժժժժժㆀ   Š ԨнĬèƩԨнĬèƩԨˬԨèɩԨнĬèɩԨˬԨͬĬԠԨнĬèƩԨˬԨͬĬԨнĬĬèɩԨˬԨͬĬԨнĬèƩ؍н¬̬ǬԨͬĬԨнĬèɩԨнԨˬԨˬԨˬԨˬΨԨˬ¬ì´Ԩˬ̬ԨԨн¬̬Ǭн¬̬ǬԨˬԨԨˬƠԨˬԨˬԨнĬìŨԨˬĬìԨˬԨнĬìŨԨˬĬìн¬̬ǬԨˬԨˬŨԨˬĬìн¬̬ǬԨˬԨˬԨˬŨԨˬĬìн¬̬ǬԨˬصΨԠԨͬĬ̬ЬԨͬĬ̬ЬԨͬĬì̬ЬԨˬ̬ԨͬĬԨͬĬ̬Ҩ΍נרֳՠΨԨͬ¬̬ŨΨн¬̬Ө          NN0JJ1S1S21;(S1$,JJ,S2)S2$NNJJ:JJ10000CJJIP Vw(4)"READ "F$(2)",R"R2:T2$EX$(T2$,1,1):OP$(T2$,2,2):SR$(T2$,4,3):ER$(T2$,7,3):PG$(T2$,10,3) OJ$(T2$,2,18)Od OL$""3R2OI:5Z$SI$:3030#l SA$(SA)SA$(SA)Z$8 PRNT,22,38," "P KP0:SQ:TFFALSE:W u(4);"READ";F$(F);",R";R~TX$, PUT,PX,PY,LO%(0)71,42279,42 PRNT,LR,ZC,TX$  S1(S1$):S2(S2$)::STEN1 PRNT,22,38," "| PRNT,22,5,"Press the key of your response - ":PRNT,23,14,"then press RETURN":LR22:ZC38 CLRKBD:SI$" " IPT,22,38,Z$ Z$LW$Z$HG$ĺ(7):3030 PRNT,22,38,Z$:C0(1)(Z$)  IPT,22,39,SI$:SI$(13)lIIST1TEqRII:4000=rINSTR,1,TX$,"----------",A%NsA%0IITEvv(TX$,1)">"A%0ENII1:IITE2{SQTQENTEIIINSTR,1,PR$,"#",NN%:NNNN%:NN0ČPRNT,8,1,PR$:1940PRNT,8,1,(PR$,NN1)" "(SQ)"."KP0:7010I1819TP1PN140TQ(OPT$(TP1(18I1)),N,1)"|"ČPRNT,I1,1," ":1875|RPRNT,I,N,(OP$(TP1(18I1)),N,1)SN:ITPRNT,20,1,SC$UPR$(3)""PR$(3)"C""":PR$(5)""PR$(5)(18TP)XTEEN]A$(BL$,SQ):F1bSQ1TQ ,II%:IIII%52TQ1ČPRNT,4,11,"1 "(PR$,II):1863A3NN9IIn4PRNT,4,14," "(TQ)" "(PR$,II1)"s"wGSC0HSCSC1:SH$(SC)""1868IPRNT,9SC,1,SH$(SC)J1864LPR$(8)""PR$(8)(10SC)MPR$(4)""PR$(4)(9SC)N O:TQ(PR$(1))I295 PR$(I)""PR$(I)TG$(I)<!I$PR$(1)"P=0""":PR$(3)"""":PR$(6)"TA"""::4500:PR$(6)"TA"ČPRNT,3,10,(TT$,29)&TEEN:TFTRUE'PR$(1)"P=0"""(I29)PR$(I)""PR$(I)TG$(I)*I 0INSTR,1,PR$," " RI:4000:S1$TX$:S2$"|":5000:NN0IEN1:1780POP$(I(ST2))TX$\TPTP1cIxENST3TP1790IST3TPENRI:4000SH$(I(ST2TP))TX$I KPLR24:ZC40:1610:KB$"Q"QFTRUE:1585 67408)"10"""8LW$(CC$,1):HG$(CC$,1):MN$LW$:MX$HG$aI110:OP$(I)"""":SH$(I)"""":I|F1:RST:4000:PR$TX$RST1:4000:TT$TX$RST2:4000:SC$TX$I140:(TT$,I,1)" "TG$(6)"TA""":I100ITP0IST3ENR23LR24 KZC40( NIPT,LR,ZC,KB$T OKB$((KB$)32((KB$)96(KB$)123))Z Tj r6740:7010p ww | 6740:I110:OP$(I)"":I SA(PR$(1)):SA$(SA)"" I29:TG$(I)PR$(I):I TG$(8)""TG$(8)"10""" TG$(4)""TG$(,3)) X0OIX QF0" )  5 OF$CC$? X$""V (4);"CLOSE"F$(1)o "F$(1)MP$OF$".DAT"x 'QF0 ,(13)(4);"OPEN";F$(1);",L42" .(13)(4);"READ";F$(1);",R1":TY$ /(13)(4);"READ";F$(1);",R2":TZ$ 1 @ JL(RS$,1)" - "& ZCZC6(TX$)313X 1614:INSTR,1,RS$,KB$,XX%:XX%0ĺ(7):1310l -PRNT,LR,ZC,KB$ 2OI((CT$,(XX%1)31,3)) 7QF0 <  OI(SR$):QF0   RS(OV$) CO(RS)0ī1505 X((OT$,(CO(RS)1)317010 LR24$ (RS$)111290v TX$"":I17:TX$TX$(RS$,I,1)",":I:PRNT,LR,ZC,"Press "TX$:ZCZC(TX$) PRNT,LR,ZC," OR "(RS$,1)" - ":1307 ZC15 TX$"":I1(RS$)1:TX$TX$(RS$,I,1)",":I:PRNT,LR,ZC,"Press "TX$"or "(4);"CLOSE"F$(1):QFTRUE! (  : 6740:SF$CC$R SF$"TEXT"İ7010:h F$MP$SF$".SUB"z CHAIN,F$,CV$  KPTRUELR24:1611:KP0:KB$"Q"QFTRUE:1620 6740 CC$CC$" ":INSTR,1,CC$," ",I%:II% RS$(CC$,I1) QFTRUEKPFALSE1QFFALSEİ1080:1040RF2:R1:4000:ET$(TX$,7,3)z$(ET$)0OI(ET$):QFFALSE:1040.:(7):" *** ESECT Not Defined *** ":8 j6500t(OC$)11160,1180,1230,1450,1660,1800,1650,1480,1550:1170        ԂԂԀԀЀժժ 5(3࿀🀀㏿㏿᏿߿ر怀́ߟ󏿌ԀŸЀԐԐՔՄߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN  IPT,24,40,Z$:CLRKBD r1< A9%(650):BLD,MP$"OFFC.SCR",A9%(0):PUT,15,36,A9%(0)B H  A9%(650):BLD,MP$"6FAC.SCR",A9%(0)::PUT,32,120,A9%(0)   A9%(650):BLD,MP$"7FAC.SCR",A9%(0)::PUT,240,104,A9%(0)  @ J INPUT$(1) T ^ C03$FACE.SUB HKPİ8000:Z$"q"Z$"Q"QF1:1060[PRNT,24,1,BL$~(PR$(1))2000,3000,4000,5000$KP0:CHAIN,MP$"CMND.SUB",CV$ PARM$(1)=1A9%(650):BLD,MP$"2FAC.SCR",A9%(0):PUT,240,32,A9%(0)   РԠՠԠРՊЪЪЪЪ XՊЪЪЪЪՊЪЪЪЪՊЪЪЪЪՊЪЪЪЪ /඀춆ρ́۟͟؁ύǁΏ̟χ぀࿀㿜񀀀瀀怀怀7- XX(J).875,YY(J)XX(J).8754,YY(J)8X XX(J).875,YY(J)XX(J).8752,YY(J)4^ XXX(J).8754,YY(J)8 XX(J).875,YY(J)XX(J).8752,YY(J)4 )4  L$"O"JA%5:3450:3240< L$"F"JA%6:3450:3240K F%13240j L$"I"JA%7:3450:3240q I press space bar to cont. routine PRNT,24,1,CP$ CLRKBD:KP1 z  Draws check mark at given coordinates.  160B & YY(2)94:YY(4)102:YY(6)110:YY(3)94:YY(5)102:YY(7)110o : Getting coordinates of correct answers D I1(CL$) N L$(CL$,I,1) X F%0ī3180 b L$"U"JA%2:3450:3240 l L$"D"JA%3:3450:3240 v L$"W"JA%4:3450:3240CL$"":A%(PR$(2)):F%(PR$(3)):RA$PR$(4):W$RP$(9)E I1(RA$)W L$(RA$,I,1)n INSTR,1,W$,L$,II% II%0CL$CL$L$  I  Coordinates where RP$ is located on the text screen.  XX(2)16:XX(4)16:XX(6)16:XX(3)160:XX(5)160:XX(7) FORMAL INFORMAL "A  Answers in RP$R $ II$"UDWOFI"b . I1(RA$) 8 L$(RA$,I,1):INSTR,1,II$,L$,II% B RP$(I1)(X$,(II%1)171,17) L I Q KP0 V Creating a string of correct responses. 5 STR,1,W$,Z$,II%:II%0ČBEEP:2070> zPRNT,LR,ZC,Z$:ZCZC1j W$W$Z$:2070: W$ holds user's answer EXPAND RESPONSES RP$(9)W$ RA$PR$(2)  I27:RP$(I)"":I%  X$"UPWARD DOWNWARD WRITTEN ORAL  *Z8W$""2070* 4Z8(W$)12050c >Z8W$(W$,(W$)1):ZCZC1:PRNT,LR,ZC," ":2070 HZ13(W$)0ČPRNT,LR,ZC," ":2190 RZC38ČBEEP:2070 \Z$"G"ČPRNT,LR,ZC,Z$:CO(2)1: fINSTR,1,"UDFIOW",Z$,II%:II%0ČBEEP:2070# pIN_C03$CMMC.SUB-BEEP198VKPČIPT,24,40,Z$:Z$"Q"QF1:1080iPRNT,24,1,BL$u$CO(2)0.(PR$(1))2000,30008:CHAIN,MP$"CMND.SUB",CV$GETINPUTLR23:ZC32 W$""IPT,LR,ZC,Z$ Z(Z$)     РРʠĠ堠󠠠 쌀ˀ̒Ѫ඀ٙа☊ВЂЊҊ҂҂€€‚ЊЊЊЊЊЊЊЊЊ ,B큀῀ǹ怀̹̇ر̙̹晀πα΀胎Ùҁށׁ惽怎΀؁လ໰  T1T1((A$,I,1)) I2 T122CO(1)2:2110K *T141CO(1)1:2110W 4CO(1)3] >2^ C03$EVAL.SUB MKPČIPT,24,40:Z$"q"Z$"Q"QF1:1060`PRNT,24,1,BL$j2000$KP0:CHAIN,MP$"CMND.SUB",CV$ Evaluate C03$UNB4A$SA$(0):T10I17I2I3I6T1T19((A$,I,1)):2070  瀛ʟ q)=߿ہㆀÏށ (TX$,1)">"1530: WEND 6& 4  Get Rec: X (4);"READ";F$(F);",R";Ra TX$g m   Next screen  PRNT,24,1,CP$ TEN& ::F1:RI:4000:S9$(TX$,10)3 :J131J :::X((S9$,J,1))i "::PRNT,LR,ZC,(X):ZCZC1q ':J )::LRLR1:ZCCOL ,I 6   Get Rec  (4);"READ";F$(F);",R";R TX$ X):ZCZC1 'J )NENE1 ,ROUTINE  :LR16:ZCCOL, ISTENM ::F1:RI:4000:S9$(TX$,7)Y :J17p :::X((S9$,J,1)) ::PRNT,LR,ZC,(X):ZCZC1 :J ::LRLR1:ZCCOL I    INSERT RIGHT TEXT ROUTINE  :LR16:ZCCOL IS C03$PLAN.SUB IKPČIPT,24,40,Z$:Z$"Q"QF1:1320\PRNT,24,1,BL$b8sB DRAW CHARTyGCOL2:1400P11500:PCOL10:1500PRNT,24,1,CP$(KP1:CHAIN,MP$"CMND.SUB",CV$nx  INSERT TEXT    A9$TX$:8SL$(TX$,2)/BML$(TX$,3,2)BLAN$(TX$,5,2)SVF9$(TX$,7)e`F1$(TX$,20)zjF2$(TX$,21,20)tME$(TX$,41)~܁ÿՀՀĪԂ߃ՊѪժԠՊԨԪĪՂՂՊ 96ကÁೆᘴ冀 ei<,B9=.  "9+-´^jZc]ZTLbh-==, \WP;) TL-+ ^6^:]?WkRl Se õEqCn ;eI|˾ :}##9~ J± Sf""!PuOvO{PPOMKKJKOQSSR~QyPuXyJOĵ5a٠ή".:FR_kwYYbZ[[H\\]8^^r_``Iaab%ccee^f gg_E FFTGGJDKKL*MMnNOOYP@-AAlB CCCDDE)FFmGHHIIIJ KKZLLM@NNO:PPyQRRB@@A-BBlC DDHEEF)GG<@@{A'BBfCDDQEEEqFGGRHHI.JJwKLIGGH IIdJh`HḦ́*: ; 7 hh`HHք0A*sẗ́+Hȱ ȱ< ȱ= HH ٥ hhh8hh`æĦȦ̦ӦԦئܦ __s  ,An ,An8n q)  5 i Ά ή ΆL~ Ά1 ή ΆL~ 4 !hh`#ŠsS]^(_ IFJ{NICJMWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~GGHH>II1JJK4@@AABtBCqCDD5EN@@1AABBBmCCvDEnEEQFFG HH3IITJKcKK`LL9MmHHJII1JJEKK1LLMM)NH]IwJIJKULLi pՈ # #(  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVKK@LLMNN`O2@@qABBMCCD$EEcFGL@@A#BBgCDD>EE}F)GGr@AANBBC%DDid]hVhQiijjjwkkxlltmmfnn,oodppdqr|rrgsMNN O]OQnQQR?SSaTTVUURSSSuTUUVVVWWXXVYYLZZh[[t\\B]^^R__`aramHxIIJ KmKKxLMMMNOF"G٠ή".:FR_kwYYbZ[[H\\]8^^r_``Iaab%ccee^f gg_E FFTGGJDKKL*MMnNOOYP@-AAlB CCCDDE)FFmGHHIIIJ KKZLLM@NNO:PPyQRRB@@A-BBlC DDHEEF)GG<@@{A'BBfCDDQEEEqFGGRHHI.JJwKLIGGH IIdJwLьɿ L LьL %LX nLXLU YLь Ά LьLь&٬٠ĠϠŠ ƠǠԠ Š̠ϠŠȡՠΠŠ٠ٮ `ŠԠӠ҅ Ά"Lɹ!τ Lь Lьɻ0LX ƞ LXڄ wLXɺ0LUڄ\ w ؄ Ά Ӊ Lьɼ L LXɽ(Sɢ Ά Lь wLUɾ$™ w.؄ Ά Ӊ؄؄1™ ɳ1LUڄ E L ڄLiLɴ. wLXڄξ wLXLUɵI!ڄ LX鄍Pi wLULX鄍P8 w LXɶ (LUɷ+LX Ά!؄ Ӊ Lьɸ"LX焩 wŚLULXɬ LULXɭ"LXƅㄩ4 w4LUɮ儩4 wLU$LXɯ LULɰ ȅLU"LXɱ焩 wȅҚLUɲLLUL-LXAD D DSPHED2 DROOM #69 NEW ٩k wLUɥ"&LX ܖw wLUɦ"&LX ܖ~ wLUɧ:LXLU"LX焩 w#LXɨ/䄩u wLU䄩u w%LXɩ LUɪ؄ Ά ӉL w؄ Ά ӉwM?Lɝ LU LXɞ(ᄍN焩 ٩O wLUɟ LUɠ؄ Ά ӉYLɡ焩 wLULXɢ؄ Ά ӉXLɣ LULXɤ#ℍ穭ș wLULXɔ=ބ^^LU^̙ɮ̙ w^HLX'LXɕބLUɖ^焩 wLUɗ ffLUɘ߄ fLU;Lə߄fHԙ whLUɚ wLUGLXɛ؄ Ά Ӊ?Lɜ6 ٩GM wLUɌ. ܖ wLUɍ! ܖ wLUZ؄L[ɎX ܖ wLUɏ8\`X ܖ wLUɐڄH ڄ hڄ Lɑ ZLUɒ ܄LU'Lɓ"݄܄݄焩 wLUɃJ wLUɄJ? ܖ wLUɅ?LUɆKɟ  wLUɇK ܖ wLUɈLɠ  wLUɉ ܖ wLUZ؄L[Ɋ! ܖ wLUZ؄L[ɋmф ք wL4H Άh*ȱ ȱ 6Lь؄ Ά ӉLь@؄ ؄ Ά Ӊ88Lь Ά ܖ w 8Lьɀ% w ؄ Ά Ӊ8LьɁۚх ܖ wLUɂܚ҅ABCDEFGHIԓ ===&'()*+,==քA` Άք)*ݛޛLi*ݚޚLi  ٭,9ڄ  ք wfn V Άe ㉩ Lь Ά E EքE@L ҡ w q 9Մ  ՄLꌮЄ@===9==DMIo pqrstuvwxy=N=m=cdefghijkӄc}_====== opqrstuvǜopqrstuvҜ~===========? @H 8 hPL+hL+hPL+hׄ зHHHHۄۄ hhhh ` ٠ӠŠŮllHل* ȱȱ! h` "ENUvy~‹Nj̋ы֋ۋ"',;οԠΧԠŠš ٠ΧԠԠϠϠԡք)*VWLi*VW ȱׄ(8ׄJȱH 8 hPLhLhPLhׄ з 6`؄*L㉭؄*@@ ȱׄ(8ׄJȱ Є҄L(ӄ фӄLՄL҄)ЄЄ!0IЄL҄)Є!ЄЄLӄ,фф^0фLӄф ^фф 9LԠԠŠĮ٠ǠŠĮ ԠΧԠŠŮ ٠ΧԠԠϠϠԡ Ƞ҄L?LԄ -Ԅ h`^*8HJфӄLe?LeԄ -ԄP h`LL)ߍ ` ߩ `  LɕaɈuɠYɍ+ɛ LLӄ҄ЄфL #!"ք)*L*!ք7ׅل ل҄ӄЄфH'PPh`!*8 HJЄ $% &LxTSWP`!1LW_s{ϠŠȠ ȠŠԠԠŠ%",2