' +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`堠젠砍ᠠ򠠠젠砠렠󠠠宠í􍢠堠󮠭󠠠堠󠠱堠󮠠堠󠠍󺠠젠󠍢򠠠-----------/C1821:PRNT,C,1,(BL$,40):Cc PRNT,22,1,"Your time is up, your results will"*PRNT,23,1,"be presented on the next screen."/P11000:P4CO(1)1H"I1$""I1$A$:7130:7090+I2$A$:11909TI%TI%1mTI%30(TI%30)ĺ(7):PRNT,3,37,((TI%30))w7040} ------ Do Locates or Whatever for Inputs ------PRNT,19,13,I1$:A$""  ------------ Comes here if Time Out 5 ----------------- Start Loop -----------------MTI%TTİ7190:7120|(16384)127A$((16384)128):CLRKBDA$""7090(A$)13I1$""ı(A$)13I1$""ĺ(7):A$"":7090INSTR,1,VD$,A$,X%:X%0A$""ĺ(7):7090RWRW1 L3000jX ----- Routine needs TIME.OUT% (= 30 * #seconds i.e. 300=10 secs)b ----- Routine needs VALID$ (String of Valid input i.e "12345")l --------------- Initialize --------------------vTI%0:I1$"":I2$""N%(4);"READ";F$(1);",R";RC:TX$@PRNT,RW,1,TX$:RWRW1HRCrTL(40(((RP$(0))1)(RP$(2))5))\2PRNT,11,TL,RP$(0)" AND "RP$(2)RW13L17PRNT,RW,1,(L)"."(PU$(L),6,16)PRNT,RW,20,(L)"."(FR$(L),6,16)P1$(J)SV$(J)""J ' U FRIENDS RESPONSES FOR PARM$(1)=5\ gJ17|FR$(J)SV$(J)""J8 B PRINT FRIEND AND USER LISTL V`PUT,3,0,LO%3:0,43279,43RW8RCSTE󮠠¢î堍󠍢䮠󠠠宠䠍򠠠®砍󮠠翠󮠠箠퍢堠렠󬠠嬠䠠换𮠠纠󬠠卢蠠卢䠠󠦵ɠɧ堠򠠠堠ﮠŭﬠɠ뿠ɠ堠宠Ġӭ䠠󮠠砠箠렠䠠󮠠謠ᠠ󮠠󠠠󠠍ή砠嬠𠠠堠堠堠򠠠󮠠堠󮠠堠󬠠堠宠嬠堠򠱰䠠򠠠𮠠䬠􍢠î堠堠󮠠忠ɠɠ®宍젠宠堠󠍢殠󮠍󠠠󠍢®󠠠迠頠俠ɠ򠠠󠍢󮠠ɠ䠠卢ɠ堍󮠍󺠠䠠󮠠堠箠􍢠퍢򠍢宠젠䮍î堠𮠠ᠠ箠󠍢箠®𠠍렠󮠠٠󠠠ΠȠ𮠦󠠠砠場堠砠砠堍󠠠Π뮠®󠠠î堠¬àȭ卢뿠堠󠠠󠠠󮍢򮠠嬠󮠠宠堠򺠠𠠍쮠󮠠𬠠󠠍宠宠庠쬠堠󮠠󠠠󠍢렍𮠠ᠠ卢󠍢堠嬠獢򠱰䠠ᠠ栠箠󠍢젠荢󮠠󬠠蠠󬠠󠠠𮠠M"QFFA (PRNT,24,1,P1$4$CLRKBDD)LR24:ZC40M.KP1S8ZB r`NI$(ST$(I),Y1,1)j(NI$"0")(NI$"9")ST$(I)(ST$(I),Y1)RP$((NI$))(ST$(I),Y2)t~ (ST$(I))07670E(ST$(I))11%(ST$UE(ST$(I),1,1)">"ČPRNT,LR,2,(ST$(I),2):7350GPRNT,LR,1,ST$(I)SLRLR1cLR247380jIq PR$(1)""PR$(1)"K"P1$CP$PR$(1)"M"P1$NP$(PR$(1),1)"P"KP0:PE((PR$(1),3))757:I1PE:I:74307440:PR$(1)""NP"CB0ČPRNT,1,34,"page "(PA)Q%TFTRUEĭPR$(6)"TA"ČPRNT,3,10,(TT$,29)s*T1(PR$(8)):PR$(8)""T1UR4LRT1:ZC1RI116fINSTR,1,ST$(I),"&",XX%:XX%0YXX%:7490:7270zII1167550ST$(I)""73801TFTRLW(PR$(5)):PR$(5)""LW23.LW24LW24aPR$(3)"C"āIIURLW:PRNT,II,1,BL$:II:7160m:4500t (PR$(3)"C"PR$(6)"TL")TFTRUE7200 F1:RT1:4000:PRNT,3,10,(TX$,30)F1:RT11:4000:PRNT,4,10,(TX$,30)" PR$(7):PMPM1|PSPS1:6760 X'b @I116:ST$(I)"":IhSST:T11:PR$(6)"TL"T1ST:SST2ISEN:F1:RI:4000ST$(IS1)TX$IKPČIPT,24,40,Z$:KP0:PRNT,24,1,BL$:Z$"Q"QFTR:7430UR(PR$(4)):PR$(4)""UR8CC$(OL$,NN1)$OV$(OL$,1,2)5"OT$(OL$,3);,TINSTR,1,OL$,"(",NN%:NNNN%:SRNN1:PSSR:PM1:I117:PR$(I)"":I^NN0PM0:7000h(OL$,PS,1)")"PR$(PM)(OL$,SR,PSSR):7000r(OL$,PS,1)","PR$(PM)(OL$,SR,PSSR):SRPS1RECT"::A$I1IX-R2I(OI1):5100=OL$OL$OJ$DIQOIOIIXzOL$(OL$,12):OC$"09"OL$(OL$,6)INSTR,1,OL$,")",NN%:NNNN%:NN0CC$(OL$,4):6680CT$(OL$,NN1) INSTR,1,OL$,"(",NN%:NNNN% NN106680Ψн̬ԨԨΨͬ¬ì卢렳堠宠堠ӭ箠砠堠󠺠砠󡠠󠠠󮠠٠󠠠ΠTE IIDINSTR,1,PR$,"#",NN%:NNNN%:NN0ČPRNT,8,1,PR$:1940xPRNT,8,1,(PR$,NN1)" "((SQ),((SQ)))"."KP0:7010:STEN1 PRNT,22,38," " PRNT,22,5,"Press the key of your response - ":PRNT,23,14,"then press RETURN":LR22:ZCITPRNT,20,1,SC$LUPR$(3)""PR$(3)"C""":PR$(5)""PR$(5)(18TP)VXTEENk]A$(BL$,SQ):F1xbSQ1TQlIIST1TEqRII:4000rINSTR,1,TX$,"----------",A%sA%0IITEv(TX$,1)">"A%0ENII1:IITE2{SQTQENSH$(SC)""1868(IPRNT,9SC,1,SH$(SC)2J1864QLPR$(8)""PR$(8)(10SC)oMPR$(4)""PR$(4)(9SC)vN OI1920TP1PN140Q(OPT$(TP1(19I1)),N,1)"|"ČPRNT,I1,1," ":1875RPRNT,I,N,(OP$(TP1(19I1)),N,1)SN:(PR$(1))I292 PR$(I)""PR$(I)TG$(I)9!I$PR$(1)"P=0""":PR$(3)"""":PR$(6)"TA"""::4500:PR$(6)"TA"ČPRNT,3,10,(TT$,29)&TEEN:TFTRUE0PR$(1)"P=0""":I29DPR$(I)""PR$(I)TG$(I)EI:GSC0HSCSC1:RI:40007S1$TX$:S2$"|":5000:NN0IEN1:1780MOP$(I(ST2))TX$YTPTP1`IuENST3TP1790IST3TPENRI:4000SH$(I(ST2TP))TX$I KPLR24:ZC40:1610:KB$"Q"QFTRUE:1790 6740:TQߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN    T$(I1)RT$2< KZ(ST$(I1),1)" "ST$(I1)RT$ST$(I1):7780i_ST$(I1)RT$" "ST$(I1)od(I),E,1)" "ST$(I)(ST$(I),E):E1,ED(ST$(I))407670SK4111(ST$(I),K,1)" "RT$(ST$(I),K):ST$(I)(ST$(I),K1):K1K(ST$(I1),2)" "İ7680:76707740 E16I21:ST$(E)ST$(E1):E (S:A$I1IX'R2I(OI1):51007OL$OL$OJ$>IKOIOIIXtOL$(OL$,12):OC$"09"OL$(OL$,6)INSTR,1,OL$,")",NN%:NNNN%:NN0CC$(OL$,4):6680CT$(OL$,NN1) INSTR,1,OL$,"(",NN%:NNNN% NN106680 CC$T2$,1,1):OP$(T2$,2,2):SR$(T2$,4,3):ER$(T2$,7,3):PG$(T2$,10,3)Y OJ$(T2$,2,18)_Ofd qOL$""R2OI:5100:ST(SR$):EN(ER$):IX(EX$):PA(PG$):OC$OP$IX0ĺ(4)"CLOSE"::(7):::"*** ERROR -> OI (";OI;") IS NOT CORRECT":TX$ , %PUT,PX,PY,LO%,7=1,42279,42CJ ^PRNT,LR,ZC,TX$d k S1(S1$):S2(S2$):NN0JJ1S1S21(S1$,JJ,S2)S2$NNJJ:JJ10000JJ (4)"READ "F$(2)",R"R2:T2$EEX$(38 CLRKBD:SI$" ") IPT,22,38,Z$H Z$LW$Z$HG$ĺ(7):3030g PRNT,22,38,Z$:C0(1)(Z$) IPT,22,39,SI$:SI$(13)Z$SI$:3030l SA$(SA)SA$(SA)Z$ PRNT,22,38," " KP0:SQ:TFFALSE: (4);"READ";F$(F);",R";RȪժժժժժժժժժժժժժժժժժժժժժժժժժժժՂЪժŪԪժՀŪժժժՊժժժըժժீժժբժъժժժժժժժժժժժժժժժժޏתժתժתժתժժתժժתժժתժժӪժժתժϼժժտժժժժԪժժժӪժת޽ժ޹תՐժժժժժժժժժժժժժժժժժժժժժժժժժժժŀժժժԪѪժժՊ↑ժժժߏժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ߯ժժժժߏժ߯ժժժժߏժ߯ժժժժߏժ߯ժժժժߏժ߯ժժժժժ߁ժժժ􈀀ժժժժժժժժժժժժժժժժժժժժժժժժߟժ߿ժժժժߟժժժժժժժժժժժժժժժժϪժժӪժժԪժժժժՊժժղժժղժߟժժ矀ժժժժժժժժ b gժժժժժժժժժժժժժժժժժժժժժժժժժժժժԪժժժתժժժܪժժժժժ      B0ČPRNT,1,34,"page "(PA)K%TFTRUEĭPR$(6)"TA"ČPRNT,3,10,(TT$,29)m*T1(PR$(8)):PR$(8)""T1UR|4LRT1:ZC1RI116fINSTR,1,ST$(I),"&",XX%:XX%0YXX%:7490:7270zII1167550ST$(I)""7380+TFTRUE(SR$(5)):PR$(5)""LW23(LW24LW24[PR$(3)"C"āIIURLW:PRNT,II,1,BL$:II:7160g:4500n (PR$(3)"C"PR$(6)"TL")TFTRUE7200 F1:RT1:4000:PRNT,3,10,(TX$,30)F1:RT11:4000:PRNT,4,10,(TX$,30) PR$(7)"NP"C1|PSPS1:6760X!b :I116:ST$(I)"":IbSST:T11:PR$(6)"TL"T1ST:SST2|ISEN:F1:RI:4000ST$(IS1)TX$IKPČIPT,24,40,Z$:KP0:PRNT,24,1,BL$:Z$"Q"QFTR:7430UR(PR$(4)):PR$(4)""UR8LW(P(OL$,NN1)OV$(OL$,1,2)/"OT$(OL$,3)5,}TINSTR,1,OL$,"(",NN%:NNNN%:SRNN1:PSSR:PM1:I117:PR$(I)"":I^NN0PM0:7000h(OL$,PS,1)")"PR$(PM)(OL$,SR,PSSR):7000r(OL$,PS,1)","PR$(PM)(OL$,SR,PSSR):SRPS1:PMPMԂʪԂʪԂªЀՀՀʪԊЪՂʪԊЪՂԊԊЪՂԊԊЪՂՊԪՀЪªЀʪԂʪԂʪ࿀êՀՀժՊժՂԊԊЪՂʪԊЪՂʪԊЪՂʪԊЪՀʪՀʪՀªՀժՀժϪǪԊʪԊԊԊժժǪժժêՀªՀʪՀʪՀʪՀՀЪՊՀЪՊԪՀЪՊЪՊԊԊԊꟀԊʪԊʪԊʪԊʪԊԊԊԊԊԪժժԊժժՊՀЪՊՀЪǪՊՀЪǪՊՀЪǪՊՀЪǪՊՀЪǪՊЪՀ‚ԊժժժժժԊԊԊԊԊԊԊԊԊԊԊԊԊԊԊԊԊԊԊԊԊЪժժժՂЪªЀՂЪʪԂ‚ҪʪԂҊҪʪԂҊҪʪԂҊҪʪԂҊҪªЀҊ S XԊԊԊʪʪʪʪʪ      UA$(T9)( (4);"CLOSE";F$(1)Q( F$(1)"ANSWERS.DAT":(4);"OPEN";F$(1);",L22"\( FIELDx( SX(UL2)T91:EASXT9( KSXEA( F1:RK:6100(! INSTR,1,TX$," ",XX%(" XX%03115(# XX%1TX$"":3115(& TX$(TX$,XX%1))+ UA$(KSX1)T)RT$ 2< EZ(ST$(I1),1)" "ST$(I1)RT$ST$(I1):7780c_ST$(I1)RT$" "ST$(I1)id" "ST$(I1)d1)" "ST$(I)(ST$(I),E):E1&E>(ST$(I))407670MK4111(ST$(I),K,1)" "RT$(ST$(I),K):ST$(I)(ST$(I),K1):K1K(ST$(I1),2)" "İ7680:76707740 E16I21:ST$(E)ST$(E1):E(ST$(I1FA "PRNT,24,1,P1$.$CLRKBD>)LR24:ZC40G.KP1M8TB l`NI$(ST$(I),Y1,1)j(NI$"0")(NI$"9")ST$(I)(ST$(I),Y1)RP$((NI$))(ST$(I),Y2)t~ (ST$(I))07670E(ST$(I))11(ST$(I),E,T$(I),1,1)">"ČPRNT,LR,2,(ST$(I),2):7350APRNT,LR,1,ST$(I)MLRLR1]LR247380dIk PR$(1)""PR$(1)"K"P1$CP$PR$(1)"M"P1$NP$(PR$(1),1)"P"KP0:PE((PR$(1),3))757:I1PE:I:74307440:PR$(1)"M"QFп  @he@C`DFCE`8 >? &?>e>>e??8>EFF` g ᤡ` { <=&`((((PPPP\\]]^^__\\]]^^__\\]]^^__><< ȱ=<&''F¥&E>F??B**GL` g ᥡ` 9 _8EFF __ h 0  0LǑ)H ߅>?>opoha{)ߑooȑ>pȑ> _>? `,0`,`BЅA ADHIH N A4@.B(I HNIAH@NBʆ`8H@EIAFEF8NBGGEȥFȥGii*8@@AA@i+D&'>BJJJ )i<(B) e+=D<F=F=f?>>8f???&&'E'F>8f??(Ȣ>($>JC8>FCf?8f??BB **G`L<=F=<` ' ?@@e'&@><' '<=L ߅>?>>` A@ B >e>>e??`e`$0lkL{mn?>`$0L`$0jiLkl>?` A@ B A `@`B`EȱFȱGii*8@@AA@i+D<&'BJJJ )i<(B) e+D>Jf?> f?Aȑ>>>'L7@A'L7>?` l&$>ȱ>  bL> EL` $ lMK>$0> b EL>Bȱ>C> b>?BCBBCL`$0>W LlLLL׏L;LL3 9'  _'< hCD''&`  *$0( ㍦ ㍥mnkl i67  67  eօ3آiL < u ͩ>?ϩ` {'&i<@Aȱ<0[A     EX$(T2$,1,1):OP$(T2$,2,2):SR$(T2$,4,3):ER$(T2$,7,3):PG$(T2$,10,3)_ OJ$(T2$,2,18)eOld wOL$""R2OI:5100:ST(SR$):EN(ER$):IX(EX$):PA(PG$):OC$OP$ IX0ĺ(4)"CLOSE"::(7):::"*** ERROR -> OI (";OI;") IS NOT COR;R TX$, +PUT,PX,PY,LO%27C1,42279,42IP dPRNT,LR,ZC,TX$j q S1(S1$):S2(S2$):NN0JJ1S1S21(S1$,JJ,S2)S2$NNJJ:JJ10000JJ (4)"READ "F$(2)",R"R2:T2$K22:ZC38 CLRKBD:SI$" "/ IPT,22,38,Z$N Z$LW$Z$HG$ĺ(7):3030m PRNT,22,38,Z$:C0(1)(Z$) IPT,22,39,SI$:SI$(13)Z$SI$:3030l SA$(SA)SA$(SA)Z$ PRNT,22,38," " KP0:SQ:TFFALSE: (4);"READ";F$(F);",R"TE IIJINSTR,1,PR$,"#",NN%:NNNN%:5000:NN0ČPRNT,8,1,PR$:1940~PRNT,8,1,(PR$,NN1)" "((SQ),((SQ)))"."KP0:7010:STEN1 PRNT,22,38," "  PRNT,22,5,"Press the key of your response - ":PRNT,23,14,"then press RETURN":LRITPRNT,20,1,SC$LUPR$(3)""PR$(3)"C""":PR$(5)""PR$(5)(18TP)VXTEENk]A$(BL$,SQ):F1xbSQ1TQlIIST1TEqRII:4000rINSTR,1,TX$,"----------",A%sA%0IITEv(TX$,1)">"A%0ENII1:IITE2{SQTQENSH$(SC)""1868(IPRNT,9SC,1,SH$(SC)2J1864QLPR$(8)""PR$(8)(10SC)oMPR$(4)""PR$(4)(9SC)vN OI1920TP1PN140Q(OPT$(TP1(19I1)),N,1)"|"ČPRNT,I1,1," ":1875RPRNT,I,N,(OP$(TP1(19I1)),N,1)SN:(PR$(1))I292 PR$(I)""PR$(I)TG$(I)9!I$PR$(1)"P=0""":PR$(3)"""":PR$(6)"TA"""::4500:PR$(6)"TA"ČPRNT,3,10,(TT$,29)&TEEN:TFTRUE0PR$(1)"P=0""":I29DPR$(I)""PR$(I)TG$(I)EI:GSC0HSCSC1:RI:40007S1$TX$:S2$"|":5000:NN0IEN1:1780MOP$(I(ST2))TX$YTPTP1`IuENST3TP1790IST3TPENRI:4000SH$(I(ST2TP))TX$I KPLR24:ZC40:1610:KB$"Q"QFTRUE:1590 6740:TQ"10"""5LW$(CC$,1):HG$(CC$,1):MN$LW$:MX$HG$^I110:OP$(I)"""":SH$(I)"""":IyF1:RST:4000:PR$TX$RST1:4000:TT$TX$RST2:4000:SC$TX$I140:(TT$,I,1)" "TG$(6)"TA""":I100ITP0IST3EN 23LR24 KZC40% NIPT,LR,ZC,KB$Q OKB$((KB$)32((KB$)96(KB$)123))W Tg r6740:7010m wt | 6740:I110:OP$(I)"":I SA(PR$(1)):SA$(SA)"" I29:TG$(I)PR$(I):I TG$(8)""TG$(8)"10"""TG$(4)""TG$(8)) X0OIX QF0 &  2 OF$CC$< X$""S (4);"CLOSE"F$(1)l "F$(1)MP$OF$".DAT"u 'QF0 ,(13)(4);"OPEN";F$(1);",L42" .(13)(4);"READ";F$(1);",R1":TY$ /(13)(4);"READ";F$(1);",R2":TZ$ 1 @  JLRTX$" or "(RS$,1)" - "# ZC40U 1600:INSTR,1,RS$,KB$,XX%:XX%0ĺ(7):1310i -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)31,3)7010 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 ZC28((RS$)2) TX$"":I1(RS$)1:TX$TX$(RS$,I,1)",":I:PRNT,LR,ZC,"Press "(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) pQFTRUEKPFALSE1QFFALSEİ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          +'+ UPDATE INDEX RECORD-+?+F2:R1:6100M+L$(SL%)a+TX$L$(TX$,3)+(4)"WRITE USER.DAT ,R1"+ TX$+++ GET TEXT++(4);"READ";F$(F);",R";R+TX$+F26200+A9$TX$:+8SL$(TX$,2)(BL$,20(F1$))F2$(BL$,20(F2$))ME$S*(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$(2);",R1":(34)X$*L90+X$ )0 K!): (4);"CLOSE";F$(1)I)D F$(1)S1$:(4);"OPEN";F$(1);",L42"O)i)--------------------) ADD NEW USER )--------------------)ULSL%)SL%SL%1:SL%6SL%2)F1$PF$:F2$PL$:ME$("00000000000000000000",M%)**X$F1$ՂԪժՂԪժՂԪժՂԪժՂԪժՂԪժՂԪժՂԪժՂԪժՂՀ☊ВЂЊҊ҂҂€€‚ЊЊЊЊЊЊЊЊЊ 5*3ㆃ쀀󃀀🀀ժժЪժՀԪժՂԪժՂԪժՂԪժՂԪժՂԪժՂԪժՂԪ  !7 ,BML$(TX$,3,2)$,LAN$(TX$,5,2)5,VF9$(TX$,7)G,`F1$(TX$,20)\,jF2$(TX$,21,20)n,tME$(TX$,41)t,~Z၀ "7ؙ̿ᇇÙ 󭭭堠󭭭򿠠٠󠠠Πӭ嬠㮠孭砠󠠠ӠŠ     z#????  Р!ðŮ ӮԠ  ðŮҠ  ðԮԠ ðή   ðӮҠ ԠðĮ  ð׮   ųĠ à ðԮҠ ðήҠ  ðήҠðîҠ ðŮҠ Ԡ!ðЮ "ðҮ͠ðծԠðήҠðήҠ ðîҠ ðծ ðӮ ð̮  ðҮ ҮԠð ðŮ  Ӡðî ðԠð²ԠJðӮ ð׮Ԡ ðϮҠԪժժՀժՂժՊժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ 33 ଃ́ƀЪ Space Bar to continue."""^%BL$" """t%KB$" ":SQ1:SA1%TY$BL$:TZ$BL$%IFILES%$eLO%16231: ADDRESS OF LOGO`$jST$(17),SS(16),PR$(17),CO(99),OP$(10),TG$(17),SA$(10)}$t(4)"OPEN "F$(2)" ,L"SO$y(4)"OPEN "F$(1)" ,L42"$~(4);"BLOAD"MP$"LOGO.SCR,A"LO%$CP$" Space Bar to continue, or Q to Quit."""(%NP$" """\#$CHAIN,MP$"CMND.SUB",CV$b#.z#8 Initialize#B#GF$(3)#LOC3:SO21:OI3#VF$(1)"AAAAAAAA.DAT""":F$(2)MP$"MSTR.OCM":TR1:FATR$`AD8192: ADDRESS OF BLOAD SCR "PX4CB2:PYPX"CV$"AD!UL!CB!CO!()CP$EN!F$()FA!KP!MP$NP$OC$OI!PR$()LO%PX!PY!QF!RP$()SO!BL$SS!()ST!ST$()TR!TR$()CV$PR!CH!PU!IN!GI!IP!CL!BL!JD!TT$SC$PR$OP$()SA!SA$TG$()MN$MX$LW$HG$SH$TP!KB$SA$()KB$SQ!SA%UA$()TY$TZ$SC!()T$SC$()SN$"""">#T$" 616)(43617)256"!:AD38400LN*!AD7!":PRNTADI!,:CHAINPRNT3Z!6:PUTCHAIN3k!@:INSTRPUT3|!J:GITINSTR3!T:IPTGIT3!^:CLRKBDIPT3!c:BLDCLRKBD3!h:MP$"C01$"""!r1070!! Execution!!QFFA:CBTR d nCBS--STUDENT SYSTEM& x@ INCLUDES UPDATES OF:K PRNTW CHAINa PUTm INSTRw GIT IPT CLRKBD BLD MARCH 9,1984 24576 (4);"BLOAD PCPIGIC" (13)(4)"CLOSE"!:LN(43     ,S$ Y$S$HIPT,20,25,S$:X1(S$):X196X1123X1X132:S$(X1)gS$"1"S$"7"ĺ(7):5785zPRNT,20,25,S$H$SV$((Y$)):SV$((Y$))SV$((S$)):SV$((S$))H$5610p z USER RESPONSES FOR PARM$(1)=5 J17 key when finished.";XPRNT,20,5,"Switch _ with _"GbCLRKBDgIPT,20,13,S$:X1(S$):X196X1123X1X132:S$(X1)lX113ĭPARM$(2)"1"İ6000qPR$(2)"1"X113İ6100vX113İ3000:S$"1"S$"7"ĺ(7):5735PRNT,20,135)"your financial status"7SVSL$(6)"your religion"[SVSL$(7)"your regional origin"g5700:pRW8{K17PRNT,RW,4,(K)". "SV$(K)(BL$,15)RWRW1K&K8RW8DPRNT,24,5,(BL$,30)NPRNT,22,5,"Press the RETURN)"3"H$SV$(Y):SV$(Y)SV$(S):SV$(S)H$ZPR$(1)"3"H$SL$(Y):SL$(Y)SL$(S):SL$(S)H$d4300k|  FOR PARM$(1)=5 SVSL$(1)"your age"SVSL$(2)"your sex"SVSL$(3)"your race"SVSL$(4)"your education"SVSL$((X1)X113İ3000:&S(S$)64@S1S10ĺ(7):5025SPRNT,20,13,S$]Y$S$IPT,20,25,S$:X1(S$):X196X1123X1X132:S$(X1)S(S$)64:S1S10ĺ(7):5062S$(S64):PRNT,20,25,S$Y(Y$)64:S(S$)64'PR$(1PR$(1)"3"ČPRNT,RW,6,SL$(K)(BL$,9)2RWRW19KHK11RW8aPRNT,24,5,(BL$,30)PRNT,22,5,"Press the RETURN key when finished."PRNT,20,5,"Switch _ with _"CLRKBDIPT,20,13,S$:X1(S$):X196X1123X1X132:S$$(7)7SV$(8)"Persistence, resistance":SL$(8)SV$(8)iSV$(9)"Enthusiasm, excitement":SL$(9)SV$(9)SV$(10)"Intelligence, reasoning":SL$(10)SV$(10):RW85000:h5000: K110PR$(1)"3"ČPRNT,RW,6,SV$(K)(BL$,9)&arisma":SL$(2)SV$(2)ESV$(3)"Alliances, loyalties":SL$(3)SV$(3)rSV$(4)"Strength, stature":SL$(4)SV$(4)SV$(5)"Wisdom, perspective":SL$(5)SV$(5)SV$(6)"Knowledge, expertise":SL$(6)SV$(6)SV$(7)"Appeal to values, needs":SL$(7)SV  & Single Char Input- Q C1824:PRNT,C,1,(BL$,40):C] CLRKBDp PRNT,24,1,CP$z KPTR   FOR PARM$(1)= 3 AND 4 SV$(1)"Authority, rules, rewards":SL$(1)SV$(1)SV$(2)"Magnetism, ch FOR SWITCH ROUTINE  & CLRKBD@ IPT,19,28,Z$:Z(Z$)W Z96Z123ZZ32r Z65Z67ĺ(7):2050 PRNT,19,28,Z$ *Z65TP$"30""":PT$"60""" 4Z66TP$"45""":PT$"45""" >Z67TP$"60""":PT$"30""" CKPFA H RWRW2 I CLRKBD" ) d G n CALCULATE SCOREN x Y I16t SL$(I)SV$(I)RARA1{ I RA6CO(1)3 RA6RP$(2)(RA)"":CO(1)2 RP$(3)PT$ RP$(4)TP$ 3000     INPUT ROUTINE,5,"PRESS THE RETURN KEY WHEN FINISHED."O PRNT,19,5,"SWITCH _ WITH _" H$SV$((Y$)):SV$((Y$))SV$((S$)):SV$((S$))H$ I13 PRNT,RW,1,(I)"."SV$(I)(BL$,17(SV$(I))) PRNT,RW,20,(I3)"."SV$(I3)(BL$,17(SV$(I3))) (1)+ 5:237,0277,0277,28237,28237,0D 3:PRNT,2,36,"TIME"b TT(TP$)30:VD$"123456" 1190:7000:1380:3000:   SWITCH ROUTINE  RW8:PRNT,19,25,I2$:Y$I1$:S$I2$ I1100:I I1$"":I2$"":A$""( PRNT,21 B PR$(1)="2" L" VRA0^ jSL$(1)"Assembly":SL$(2)"Organizing":SL$(3)"Learning" tSL$(4)"Gaining Momentum":SL$(5)"Peak Performance":SL$(6)"Decline" ~SV$(1)SL$(5):SV$(2)SL$(4):SV$(3)SL$(2):SV$(4)SL$(6) SV$(5)SL$(3):SV$(6)SL$% C03$SWTC.SUB +9KP1056CKPFA[(16384)1281050|KB$((16384)128):CLRKBDKB$"Q"KB$"q"QFTR:1070 PRNT,24,1,(BL$,40)$(PR$(1))2000,1100,4000,4000,6200.CHAIN,MP$"CMND.SUB",CV$ 8         򮠠󮠠򮠠󮠠栠󮠠䠠蠠򮠠䠠蠠򠠠忠堠ﺠ򿠠󠠠򠠍栦󠠠󍢠𠠠쬠堠󿠠󠠠堠忠嬠󿠠󿠠󿠠򠠍⿠⠠堠𿠠堠堦忠堦⭭ᠠᠠ䭠ᠠ堠ԭ󮠠덢獢ɠﺠ󬠠Π䮍󠠠𬠠󠠠墭      俠堠젠󮠠砠󮠠宠렠宠䠠󮠠򠠠箠蠠󧠠쮠讠󮠠宠堠򠠠䠠󠠠򠠍堠俠堠젠堠䠠󮠠堠堠󮠠𠠠堠򠠠嬠䬠㮠𠠠堠宠堠堠뮠嬠堠󠠠箠䮠堠򮠠颭                         ԨŊժԪŪтԨŊժԪŪтԨŊժԪŪтԨŊժԪŪтԨŊԢŪтǏ㇀ԨŊԢŪтǏ㇀ԨŊԢŪтǏ㇀ԨŊԢŪтǏ㇀ԨŊԢŪтǏ㇀ԨŊԢтǏ㇀ԨŊժԪŊтԨŊժԪŊтԨŊժԪŊтԢŊтԨŊԢŊтԨŊԢŊтԨŊԢŊтԨŊԢŊт㇀ԨŊԢŊтǏ㇀ԨŊԢŊтǏ㇀ԨŊԢŊтǏ㇀ԨŊԢŊтǏ㇀բ⟾ԨՊժԢŪբ⟾ԨՊժԢŪբ⟾ԨŊԢŊтǏ㇀ԨŊԢŊтǏ㇀ԨŊԢŊтǏ㇀ԨŊԢŊт㇀ԨŊԢŊт㇀ԨŊԢŊтԨŊԨՀԨՀԨՀԨՀԨՀԨՊժԢŪբ⟾ԨՊժԢŪբ⟾ԨՊժԢŪբ⟾ԨՊժԢŪ s0ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժԀԀԨՀԨ   KB$"N"KB$"n"CO(10)1:CO(1)1F 0KB$"Y"KB$"y"CO(10)2:CO(1)2j 3KPFA:CHAIN,MP$"CMND.SUB",CV$p 8 Fr= C01$QRES.SUB -- YES, NO QUSTION RESPONSERi by TERRY WOODFORD date 12/1/83o}%KP1070&KP0'(16384)1281063)KB$((16384)128):49168,0+KB$"q"KB$"Q"QFTR:1075-PRNT,24,1,(SP$,40) . 㟀翀ៀ࿀࿀࿀࿀࿀🀀🀀࿀ |  砠ĠԠŠͭŠԠ󠠠  堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭堠򠠍󮠠Ӡ堠宠󠢭堠ӭ󠠠     /඀춆ρ́۟͟؁ύǁΏ̟χ぀࿀㿜񀀀瀀怀怀F22KP13090/2KP0:(16384)12813040Q2KB$((16384)128):49168,0l3KB$"Q"KB$"q"QFTRr"3x,363 PRINT ROUTINE@3J3TX$""TX$(BL$,39)T3PRNT,RW,CW,TX$3d 06"0RW17TX$" MANAGING FOR SUCCESS SERIES"e%0RW21TX$" PERSONAL DEVELOPMENT"*0(4)"READ "F$(F)",R"R40TX$f0p0z0 WRITE A RECORD00(4)"WRITE "F$(F)",R"R0TX$022 KP LOGIC(1)"X/(4)"OPEN "F$(F)" ,L"LG2(b/.l/Uv/ CLOSE FILES FOR THE APPLE[/r/(4)"CLOSE "F$(F)/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.'PRNT,24,1,CP$8'KPTR#B')*L+ BLOAD AND PUT SCR FILER +m+(4)"BLOAD "SF$",A"ADz+HGTRĐ +PUT,X,Y,ADR+.. OPEN FILES FOR THE APPLE:/D/F2(F2)ĺ(4)"CLOSE "F$(2):12120N/(4)"CLOSE "F$ F1:RUL:12300* TM$(TX$,41,JD40)E (TM$,SS,1)"1"ī5110o SS1TM$"1"(TM$,2,(TM$)1):5090 TM$(TM$,SS1)"1"(TM$,SS1,(TM$)SS) TX$(TX$,40)TM$ F1:RUL:12400 F1:12140 f ' ' NEXT SCREEN$'MANAGING FOR SUCCESS SERIES":13100Y RW24:CW16:TX$"Please remove your disk.":13100c 4087i   -----------------------  UPDATE USER MENU  ----------------------- F1 F$(1)"USER.DAT":LGJD:12000 SS(PR$(2))3$ 10.875,138I299.875,138I+ I1 7 r  CLOSING GRAPHIC -- TREE WITH LEAVES AND FRUITx  13000:QFTR4090 SF$MP$"SUN.SCR":X68.875:Y31:HGTR:11000 RW19:CW14:TX$"CBS SOFTWARE":13100# RW21:CW7:TX$" KPFA   4 CBS SOFTWARE LINES: A 5L I03 10.875,18I299.875,18I:10.875,38I299.875,38I I RW5911920 I03 10.875,RWI63.875,RWI:245.875,RWI299.875,RWI I RW I0P$"CBS.SCR":X(66.875):Y42:HGTR:110005 o3500^ ~RW20:CW20:TX$"PRESENTS...":13100d j END OF UNIT GRAPHIC -- RISING SUN WITH LEAVES 5000 13000:QFTR3090 SF$MP$"SUN.SCR":X68.875:Y21:HGTR:11000 C C01$OPEN.SUB -opening, end of unit, closing graphicsIaS1$F$(1):S2$F$(2)(PR$(1))1100,3000,4000KPFAF$(1)S1$:F$(2)S2$CHAIN,MP$"CMND.SUB",CV$BL OPENING GRAPHICQPR$(2)"1"1190+ VSF$M $ RW12:C7:CM22:1020:RP$(2)W$I RW13:C10:CM38:1020:RP$(3)W$O t 4RW11:C15:CM30:1020:RP$(2)W$z > RW18:C7:CM22:1020:RP$(2)W$ RW19:C10:CM38:1020:RP$(3)W$ d1020:RP$(3)W$ d05 =Z8(W$)1W$""::PRNT,RW,I1," ":II1:1050m BZ8W$(W$,(W$)1):PRNT,RW,I1," ":II1:1050 LICMĺ(7):1050 VZ96Z123ZZ32:Z$(Z) `PRNT,RW,I,Z$:W$W$Z$ jI t   LOCATE CURSOR AND SAVE RP$() ,24,1,(SP$,40) KPFA7 (PR$(1))2100,2000,2200Y C0:CHAIN,MP$"CMND.SUB",CV$_ i W$""v 49168,0 ICCM IPT,RW,I,Z$:Z(Z$) $(Z32Z126)(Z13Z8)ĺ(7):1050 .(Z8Z13)W$""ĺ(7):1050 8Z13ICM1:1130 H C03$INPUT -- CHARACTER INPUT FOR A SPECIFIED LENGTHw BY TERRY WOODFORD DATE 12/9/83}(KP1012KPFA(16384)1281007KB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:1019 PRNT   ՂՊժŊժՂՊժŊժՂŊՊŪՀՂՊŪՀԪՂՊŪՀՊԪՂՊŪՀՊԪՂŪՀՊԪŊՊԪŊՊՊժŊժՂՊժŊժՂՊժŊժժժԪժժԪժժժժԪժժՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂŊŊժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՀժժժժժՂԪժժՀժժժժժՂԪժժժժժժժՀԪժժժժժժժՀԪժժժժժժժՊժժՂՊժժՊժժՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժՊժժՊԪժժՊժժՊԪժժՊժժՊԪժժՊժժՂԪժժՊժժՂԪժժՊժժՀԪժժՀՊժժՀЪժժՀՊժժՀЪժժՂՊժժՂժժՂՊժժՂժժՂՊժժՊժժՂժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂՊՂՊԪՊՂՊԪՊՂՊԪՊՂՊԪ 3PԪժժժժժժՂժժժժժժժՂժժժժժՀժժՂժժժժժՀժժՂժժժժժՂժժՂժժժժժՂЪժժՂժժժժժՊЪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժPRNT,24,1,NP$ 49168,0- IPT,24,40,Z$F  PRNT,24,1,(BL$,40)R  KPFA:dS  KPFA:d,R";K:TX$- PRNT,RW,7,(TX$,7,27):RWRW14 K@ PSPS1R KENKPFA:b 3000:1140y BGK:ERKII:1390   NEXT SCREEN  PRNT,24,1,CP$ 49168,0 KPFA * INTERMEDIATE PROMPT  RNT,RW,7,(BL$,27) RW& KPFA:, V  PRINT TEXT WHEN PARM$(1)="1"\ (e 2RW2u <ISTSTTT F(4);"READ";F$(1);",R";I:TX$ PPRNT,RW,1,TX$:RWRW1 ZI dBGSTSI:ERBGII nRW11 xKBGER }(4);"READ";F$(1);"6:I,50I,98 I 3B (4);"BLOAD";MP$"RHAN.SCR,A";ADV PUT,238,100,ADe I242265w "6:I,50I,98~ $I .3 8TT(PR$(1)):PS0 9SI(PR$(2)):II(PR$(3)) ;1300 <2000 =CHAIN,MP$"CMND.SUB",CV$ tRW1119 ~PT  MY3SONS.BAS&4KP1029>KPFAV(16384)1281025xKB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:1085PRNT,24,1,(SP$,40) (4);"BLOAD";MP$"LHAN.SCR,A";AD PUT,0,100,AD I528     T;F$(1);",R";ST6:TX$'PRNT,9,1,TX$1RW11=I1B%SPRNT,RW,6,BE$(I)_RWRW1f"I,(4);"READ";F$(1);",R";ST8:TX$JPRNT,RW,1,TX$T(4);"READ";F$(1);",R";ST9:TX$^PRNT,RW1,1,TX$r960|I4:TX$dPRNT,RW1,1,TX$(nCLRKBDKxNN%(2)0ČPRNT,24,1,CP$:1660iNN%(2)0ČPRNT,24,1,NP${IPT,24,40,Z$C824:PRNT,C,1,(BL$,40):CNN%(2)01660(4);"READ";F$(1);",R";ST5:TX$PRNT,8,1,TX$(4);"READ"(4);"READ";F$(1);",R";ST:TX$1PRNT,8,1,TX$W(4);"READ";F$(1);",R";ST1:TX$iPRNT,9,1,TX$sRW11I1A%PRNT,RW,6,AB$(I)RWRW1I((4);"READ";F$(1);",R";ST3:TX$2PRNT,RW,1,TX$Z(4);"READ";F$(1);",R";ST(I)"":BE$""II05E$(4);"READ";F$(1);",R";STI:TX$y.(SE$(I))4AB$(A%)(TX$,27):A%A%1:NN%(1)13(SE$(I))4BE$(B%)(TX$,27):B%B%1:NN%(2)18IBLtPUT,PX,PY,LO%~3:0,43279,43NN%(1)01440BW1(I1)PT,JWC0\IPT,J(IBW5)PT,J7fJJpJBLBLBW1vz(I(BLJ))PT,J(I(BLJ)(BW5))PT,J}JC4CIPRNT,24,1,CP$CLRKBDKPTRA%1:NN%(1)0B%1:NN%(2)0I18 AB$,W ISS CN0) X1PT,IX2PT,I4 IISC@ CNCN1O CNMX730W C1_ K0s AC((BZ$)BN) IR9(R9)(BNBW)(BW1) *E((BZ$,KAC1,AC))(10(AC1)) 4KK1 >BLV(E1)SC HJV5BL1 M2R(IBW)PT,JRXGW SXGD! &TXGWGD, 0UYGL: :VYGLGDJ DWYGL2GDU NX1X4c XX2XGW4r bSSYGLSC lXPT,YXPT,URPT2,URPT2,YXPT,Y vXPT,USPT,VSPT,WXPT,U(WV)XPT,U SPT,VTPT,VRPT,U TPT,VTPT,WSPT0$,(5I)21,1)"."(B$,(5I)22,1)? LB$(97I)"="SE$(I)S PRNT,5I,2,LB$y (4);"READ";F$(1);",R";STI:TX$ T2$(97I)". "(TX$,27) PRNT,18I,10,T2$ I 1030 KPFA  GWBNBW1.25:5:OF3 GLSC(MX)1.25 I PT.875 MX8" BN6, BW257 BZ$B$@ X84H Y0R "GD30[ ,SC5d 6510 @PRNT,12,18,"a b c d e f" TPRNT,3,1," Scores:" hPRNT,2,1," Yours" |PRNT,16,11," WORK GROUP EFFECTIVENESS" I05$ SE$(I)(BTETE9((A$,I,1)); _I2I3I6TETE((A$,I,1))B dIU nTE22CO(1)2h pTE41CO(1)1 vTE22TE41CO(1)3 x A$SA$(1) B$"" I501 TT(10((((A$,I21,1))((A$,I22,1)))2)) B$B$((TT),2)  KP40 KPFA-(16384)12814OKB$((16384)128):49168,0nKB$"Q"KB$"q"QFTR:50#PRNT,24,1,(BL$,40)((PR$(1))70,130,1100,16702CHAIN,MP$"CMND.SUB",CV$FSPT1,VTPT1,VRPT,VPI17 ZI2I3I6     "10"""5LW$(CC$,1):HG$(CC$,1):MN$LW$:MX$HG$^I110:OP$(I)"""":SH$(I)"""":IyF1:RST:4000:PR$TX$RST1:4000:TT$TX$RST2:4000:SC$TX$I140:(TT$,I,1)" "TG$(6)"TA""":I100ITP0IST3EN 23LR24 KZC40% NIPT,LR,ZC,KB$Q OKB$((KB$)32((KB$)96(KB$)123))W Tg r6740:7010m wt | 6740:I110:OP$(I)"":I SA(PR$(1)):SA$(SA)"" I29:TG$(I)PR$(I):I TG$(8)""TG$(8)"10"""TG$(4)""TG$(8)) X0OIX QF0 &  2 OF$CC$< X$""S (4);"CLOSE"F$(1)l "F$(1)MP$OF$".DAT"u 'QF0 ,(13)(4);"OPEN";F$(1);",L42" .(13)(4);"READ";F$(1);",R1":TY$ /(13)(4);"READ";F$(1);",R2":TZ$ 1 @  JLRTX$" or "(RS$,1)" - "# ZC40U 1600:INSTR,1,RS$,KB$,XX%:XX%0ĺ(7):1310i -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)31,3)7010 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 ZC28((RS$)2) TX$"":I1(RS$)1:TX$TX$(RS$,I,1)",":I:PRNT,LR,ZC,"Press "(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) jQFTRUEKPFALSE1QFFALSEİ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           ::(4)"PR#0"4 4000$= NEXT SCREENCVPRNT,24,1,CP$`KPTRfl:;PRNT,24,1,"PRINTER ERROR DETECTED UNABLE TO PRINT.";I12000:I8;PRNT,24,1,CP$B;KPTRL;1040"C1) SC);RG$ :# KO0< 216,0::(4)"PR#0"I  ISTENl (4);"READ";F$(1);",R";I:TX$  T2$(TX$,1,27)  (4)"PR#1"  SC5);(65KO);". ";T2$  216,0::(4)"PR#0" KOKO1 * I , (4)"PR#1" / (12)1 216,0 0 EC(PR$(5)):VL(PR$(6)):NB(PR$(7))G 2 XO(PR$(8)):XE(PR$(9))] CWECSC:XLXEXOj SOCWXLv I1NB SC1);BS$ SC3);(64I);" ";BS$; NU((((SE$(I1))XO)SO).5) (BR$,NU);32);SE$(I1) I SC1);(BB$,ECSARM$(6)--> LENGTH OF EACH VALUE IN RESULT$R  PARM$(7)--> NUMBER OF BARS PARM$(8)--> VALUE OF ORIGIN OF X SCALE PARM$(9)--> VALUE OF END OF X SCALE   (4)"PR#1" ! & SR(PR$(2)):ER(PR$(3)):SC(PR$(4))) PRINT SCREEN TO PRINTER FOR BAR GRAPH3 b PARM$(2)--> STARTING ROW POSITION PARM$(3)--> ENDING ROW POSITION PARM$(4)--> STARTING COLUMN POSITION PARM$(5)--> ENDING COLUMN POSITION* P CHAIN,MP$"CMND.SUB",CV$" ~A  Initialize VariablesG S 15100 BS$(124):BB$"-------------------------------------------------" BR$"#########################################" RG$"0 2 4 6 8"  - > C01$PSCR.SUB -- PRINTS SCORES ON A BAR GRAPHDRKP1028\KPFAt(16384)1281025KB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:1040PRNT,24,1,(SP$,40)CO(10)1İ4000:10401150 3000     s : x  , MOVE LV=1 TO MIDDLE2 8 ?" Z, MOVE MIDDLE,THEN DOWN`6 f l x ERROR~  (7);(7);(7)   GET RECORD(4);"READ";F$(1);",R";RTX$h:2980:2510~ CPRT5 NP1(CP):NCPCPN:2440D CPN:1850J P ` MOVE DOWNf y P2(CP)02580 1850   ENTER KEY( < Z0:I1CPF P2(I)ZZ1P IZ CO(0)Z:KPFAn CHAIN,MP$"CMND.SUB",CV$384)12822202Z(16384):49168,0:Z$(Z128)XZ$"0"(Z$)NNER1:2980:2220pZ$"0"İ2390:2380} DS(Z$)$ 2770. 28508 CPRT1= DS12375B I1DS1:CPP1(CP):IG 2520L V ` MOVE UPj t CP1ER4BN1NN, 1400:XCXCIC:SCP:CPP1(CP)4BNX PRNT,5,4,"LEVEL #"(LO(CP)1)r%PRNT,17,1,LT$(LO(S))&1,138(LT$(LO(S)))7,138*PRNT,24,8,"Press the appropriate number.">CPRTHR\ INPUTfp49168,0 (16NN1:CPP1(SV)NN23P1(SV)P1(P1(SV))1970INNNN1:SVP1(SV)S1940hNN5IC56:SC1}NN4IC70:SC9NN3IC102:SC11NN2IC203:SC135K6064SC17,K(NN1)IC23SC,KKCPCP1:XCSC:YC75 ,"MANAGEMENT":1589M4BN0ČPRNT,15,1,(BN)"-RETURN TO LEVEL #"(LO(CP))u5BN0ČPRNT,LR,1,(BN)"-"IN$(CP){6: D DISPLAY TREENXbPRNT,1,15,"Thoughtree"l98,10168,10vXC113:YC22:RTCPBN0:1400:SVCP1XC38,YC2XC38,YC29XC2,YC29XC2,YC2?  BOTTOM PIECEQ P2(CP)1581X 5k KXC17XC23 "K,YC32K,YC37 ,K -3:BN0CP11585 .PRNT,57(YC60),(XC7)4,(BN) 1LR18BN2BN0CP1ČPRNT,4,25,"PEOPLE ":PRNT,5,25 AT XC,YC # P1(CP)RC14903  TOP PIECE: 5M KXC17XC23a K,YC10K,YC1h Kw  MAIN BOX LC(LO(CP)) XC,YCXC40,YCXC40,YC31XC,YC31XC,YC XC1,YC1XC39,YC1XC39,YC30XC1,YC30XC1,YC1, XC2,YC2)CP:PS(PT)CP:1320E LVLS(PT)P1(PS(PT))PS(PT1):PTPT1:1310a #P1(PS(PT))CP:PS(PT)CPo (LO(CP)PT| 2CP:CP1 < F LEADING SPACES PLV140 Z(IN$(CP),LV,1)" "IN$(CP)(IN$(CP),LV):1390 dLV n x  DISPLAY BOX3)"END"12502 I1RC:INSTR,1,IN$(I),"_",XX%B XX%01258q IN$(I)(IN$(I),XX%1)" "(IN$(I),XX%1)x I PT0:LS(PT)1:PS(PT)1 CP2RC 1350 LVLS(PT)PTPT1:PS(PT)CP:LS(PT)LV:P2(CP1)1:1320 LVLS(PT)P1(PS(PT)C(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$, 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    a" (4);"OPENC03$MSTR.OCM,L"21*N1J(4);"READC03$MSTR.OCM,R"N`(T$:T$:NN1:30N KB$"Q"KB$"q"QFTR:11105 PRNT,24,1,(SP$,40)> KP0K 49168,0Q w $(4);"BLOAD";MP$"4FAC.SCR,A";AD .PUT,52,20,AD 8(4);"BLOAD";MP$"5FAC.SCR,A";AD BPUT,175,20,AD VCHAIN,MP$"CMND.SUB",CV$  O C03$BGFA.SUB -- PUTS A GIRL AND A BOY ON THE SCREEN FACINGw EACH OTHER( by TERRY WOODFORD date 12/7/83KP1030KP0(16384)1281015KB$((16384)128):49168,0  /඀춆ρ́۟͟؁ύǁΏ̟χ぀࿀㿜񀀀瀀怀怀F 1)))) LT10LT10B PRNT,RW,C,(RP$(((TX$,J1,1))),1,LT)O CCLT1[ JJ2: 1RNT,24,1,CP$  0  PRINT TEXT6 ? C16L J1640` (X((TX$,J,1))p 2X38İ1380 <X38ČPRNT,RW,C,(X) F(TX$,J,3)" "ı KCC1 PJ Z d n PRINT RP$() VALUES x LT(RP$(((TX$,J1, KPFA 4 (4);"BLOAD";MP$"PHON.SCR,A";ADD $PUT,0,8,ADM BRW7Z LISTEN} V(4);"READ";F$(1);",R";I:TX$ [1280:RWRW1 `I j1150 tCHAIN,MP$"CMND.SUB",CV$ ~  NEXT SCREEN  KPTR CLRKBD P] = C03$RECE.SUB -- BLOAD RECEIVER ON SCREENl by TERRY WOODFORD date 12/15/83r(KP1020KPFA(16384)1281008KB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:1140PRNT,24,1,(SP$,40)   Space Bar to continue."""a BL$" """w KB$" ":SQ1:SA1 TY$BL$:TZ$BL$ R FILES( eLO%16171: ADDRESS OF LOGOc jST$(17),SS(16),PR$(17),CO(99),OP$(10),TG$(17),SA$(10) t(4)"OPEN "F$(2)" ,L"SO y(4)"OPEN "F$(1)" ,L42" ~(4);"BLOAD"MP$"LOGO.SCR,A"LO% CP$" Space Bar to continue, or Q to Quit."""+ NP$"B$()BE$()A%B%SE$()TP$PT$FR$""": CV$CV$"P1$UL!JD!"""@ ^ $CHAIN,MP$"CMND.SUB",CV$d .| 8 Initialize B GF$(3) LOC3:SO21:OI3 VF$(1)"AAAAAAAA.DAT""":F$(2)MP$"MSTR.OCM":TR1:FATR `AD8192: ADDRESS OF BLOAD SCExecution  QFFA:CBTR3 PX3CB2:PYPX CV$"AD!CB!CO!()CP$EN!F$()FA!KP!MP$NP$OC$OI!PR$()LO%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$()TY$TZ$NN%()ACLOSE"$ :LN(43616)(43617)256B :AD(43634)(43635)256J ADW ":PRNTADi ,:CHAINPRNT3z 6:PUTCHAIN3 @:INSTRPUT3 J:GITINSTR3 T:IPTGIT3 ^:CLRKBDIPT3 c:BLDCLRKBD3 h:MP$"C03$""" r1070   d nCBS--STUDENT SYSTEM&x@INCLUDES UPDATES OF:K PRNTW CHAINa PUTm INSTRw GIT IPT CLRKBD BLDMARCH 9,198424576(4);"CLOSE"(4);"BLOAD QPCPIGIC" (13)(4)"  a" (4);"OPENC03$UNB2.DAT,L"42*N1J(4);"READC03$UNB2.DAT,R"N`(T$:T$:NN1:30N $(2):L90:LFFA8'F$(2)S2$:(4);"OPEN";F$(2);",L";SO>' X' --------------------m' USER EXISTS' --------------------' FD1' ULI:I100' INSTR,1,ME$,"1",II%:L9II%' L90LFTR' ' INIT ANSWER LOC' ( T910Ć-----------n&zL90LR18: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";F %FIELD9% F2:R1:6100:M%(ML$):SL%(SL$):A$AN$G%T9(AN$)P%FD0[% I26m%*F2:RI:6100%4PF$(BL$,20(PF$))F1$PL$(BL$,20(PL$))F2$İ3000%>I%HFDİ4000%R-------------------%\Tell Where Left Off &f--------131400$UZC32ĺ(7):13153$ZZ65Z901315]$dPRNT,LR,ZC,Z$:W$W$Z$:ZCZC1:1315c$xy$----------------$FIND/INSERT NAME$----------------$(4);"CLOSE";F$(2)$F$(2)"USER.DAT"$(4);"OPEN";F$(2);",L";JD2% FIELDX123PL$(PL$,I1)(X32)(PL$,I1).#I4#:#K#  NAME INPUTQ#[#W$""u##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$PZ"oRP$(0)PF$0"tLR12:ZC14:1280:PL$W$" "B"yPL$" "1140_"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))'#X96:PUT,PX,PY,LO%G!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:"u    C03$NAME.SUB! I S1$F$(1):S2$F$(2):SAVE FILENAMESr KPČIPT,24,40,Z$:Z$"Q"QF1:1042| JD42 1050:2000 CLRKBD PRNT,24,1,NP$ KPTR:CHAIN,MP$"CMND.SUB",CV$  $ NAME . 8:7!=0,43279,43!!!!!!!!  P$(8)"HOMOGENEOUS"CO(5)1! 4ERRY""" K K24E (RP$(K),1,4)"BILL"RP$(7)"BILL"""r (RP$(K),1,4)"BILL"RP$(7)"JENNY""" (RP$(K),1,4)"BILL"RP$(8)"HETEROGENEOUS""":K100:1480 RP$(8)"HOMOGENEOUS""" K RP$(8)"HETEROGENEOUS"CO(5)2 RFNG$NG$Z$:PRNT,17,10J,Z$/ PPS1500:PSJ dRP$(J1)NM$((Z$))""Q nJ\ xK24 (RP$(K),1,4)"KATE"RP$(5)"KATE""":K100:1420 RP$(5)"JENNY""" K K24 (RP$(K),1,4)"BILL"RP$(6)"BILL""":K100:1450 RP$(6)"TM$(2)"BILL":NM$(3)"TERRY". NM$(4)"JENNY"D NS$"1234":NG$""Q 49168,0\ J13u PRNT,18,1,(BL$,40) 2IPT,17,10J,Z$ 4INSTR,1,NS$,Z$,X%:X%0ĺ(7):1330 <INSTR,1,NG$,Z$,X%:X%0ĺ(7):PRNT,18,21,"Pick someone else.":1330  KP0 ! PUT,PX,PY,LO%5 3:0,43279,43> .RW8K 8ISTENi B(4);"READ";F$(1);",R";Ir LTX$ QPRNT,RW,1,TX$ SRWRW1 VI `1230 jCHAIN,MP$"CMND.SUB",CV$   INPUT GROUP MEMBERS  NM$(1)"KATE":N# C C03$GRUP.SUB -- RECEIVES NAME INPUT FOR A GROUPn by TERRY WOODFORD date 12/6/83t(KP1018KP0(16384)1281010KB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:1130PRNT,24,1,(BL$,40)!! ! ! ! ! Ԩн¬èԨˬìԨнìèΨн̬ԨˬĬԨˬԨˬìԨˬìԨˬìԨˬҬԨˬĬԨˬĬԨˬĬ̬ԨˬĬԨˬĬԨˬĬԨˬĬԨˬĬԨˬĬ¨н̬ԨˬĬèнԨˬìԨˬìèн̬èн̬ԨˬĬԨˬìԨˬìԨˬìԨˬĬìŨԨˬЍ̬ШԨнԨˬì̬ԨˬĬԨˬĬԨˬĬԨˬĬԨˬ¬ì²Ԩˬ̬ԨˬԨˬìӨнԨˬԨˬ̨Ҩ̨ԨˬΨըԨˬìčìӨؠԠԨͬĬ̬ЬԨͬĬ̬ЬԨͬĬì̬ЬԨˬ̬Ԩн¬ԨͬĬԨͬĬ̬נרΨֳՠΨԨͬ¬̬ŨΨн¬̬Ө"" " " " " """""""""