' +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`: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": 瀀ʵ沀귪تŁ̪ת̪ՒƨݔèԮʪɪժժժժժՂ쪕 <3ĀՠՀЪРԆ؊׊ԐԪՊԀԪՊԀԪՊԀЊЂԀςԀШᔀՁՀ叀 next screen."4CO(1)1 H)1,HRo Locates or Whatever for Inputs ------APRNT,19,13,I1$:A$""G~ ------------ Comes here if Time Out -----------CLR1821:PRNT,CLR,1,(SP$,40):CLR PRNT,22,1,"Your time is up, your results will"*PRNT,23,1,"be presented on the(A$)13I1$""ı>(A$)13I1$""ĺ(7):A$"":7090nINSTR,1,VD$,A$,X%:X%0A$""ĺ(7):7090I1$""I1$A$:7130:7090I2$A$:1190TI%TI%1TI%30(TI%30)ĺ(7):PRNT,3,37,((TI%30))7040' ------ D(String of Valid input i.e "12345")Zl --------------- Initialize --------------------rvTI%0:I1$"":I2$"" ----------------- Start Loop -----------------TI%TTİ7190:7120(16384)127A$((16384)128):CLRKBDA$""7090 "RP$(2)RW13L17EPRNT,RW,1,(L)"."(PU$(L),6,16)oPRNT,RW,20,(L)"."(FRI$(L),6,16){RWRW1 L3000X ----- Routine needs TIME.OUT% (= 30 * #seconds i.e. 300=10 secs)#b ----- Routine needs VALID$ PRINT FRIEND AND USER LIST*L 0VG` CALL PUT,3,0,LO[3:0,43279,43dRW8rRCSTEN(4);"READ";F$(1);",R";RC:TX$PRNT,RW,1,TX$:RWRW1RCTL(40(((RP$(0))1)(RP$(2))5))\2 PRNT,11,TL,RP$(0)" ANDp /z USER RESPONSES FOR PARM$(1)=56 AJ17SPU$(J)SV$(J)ZJqCV$CV$"PU$()"""w~  FRIENDS RESPONSES FOR PARM$(1)=5 J17FR$(J)SV$(J)J CV$CV$"FR$()"""8 #BARCLRKBD'PRNT,24,1,CP$1KP17IARDS"""5BTT0:PT1:FG$"FIRST":NB1:CE1:F1:NB1KLPM$(1)"COCH.SCR"aVPM$(2)"VOLN.SCR"w`PM$(3)"FRED.SCR"jPM$(4)"PLAY.SCR"tPM$(5)"REST.SCR"~PM$(6)"OFFC.SCR"PM$(7)"RETL.SCR"PM$(8)"ORCH.SCR" SPACEB(3)"1FAC":PG$(4)"3FAC":PG$(5)"ALIC"D NM$(1)"COMMUNICATION"""_ NM$(2)"INITIATIVE"""~NM$(3)"MUTUAL SUPPORT"""NM$(4)"TEAMWORK"""NM$(5)"PARTICIPATION"""$NM$(6)"OBJECTIVES""".NM$(7)"FEEDBACK"""8NM$(8)"HIGH STAND)"HANK":KM$(4)"JOE":KM$(5)"FRAN"R X(1)8:X(2)150:X(3)264:X(4)212:X(5)113| Y(1)30:Y(2)30:Y(3)5:Y(4)30:Y(5)4 RW(1)13:RW(2)13:RW(3)10:RW(4)13:RW(5)8 CL(1)3:CL(2)22:CL(3)35:CL(4)29:CL(5)15& PG$(1)"2FAC":PG$(2)"MARY":PG$ĨԨͬìĨĨĨĨcontinue."""C BL$" """Y KB$" ":SQ1:SA1m TY$BL$:TZ$BL$s TN,SS(16),PR$(17),CO(99),OP$(10),TG$(17),SA$(10),SM$(10),SL$(10),WK$(8)b 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$" Space Bar to $ST$(I1):7780. _ST$(I1)RT$" "ST$(I1)4 d)RT$ 2< EZ(ST$(I1),1)" "ST$(I1)RT$ST$(I1):7780c_ST$(I1)RT$" "ST$(I1)id1)ud" "ST$(I1)d E16I21:ST$(E)ST$(E1):E(ST$(I1)RT$2<  Z(ST$(I1),1)" "ST$(I1)RT1)" "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"QFB0Č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ЊϠЀЁЙбÃժުтՂԪԪԪЪԊꁀЪꁀЪꄀЪԂЪЪЪЪЪԂԪժ܂ŀԂǜ CLؿ՟֪՞Ԫպժվժվժ՚ժՊժպժժתꃀ֪ꇀ֪ժܪժتժتժتիتتتު  بн¬̬ǬĨԨˬìèн¬̬ǬԨˬ¬èн¬̬ǬԨˬ¬Ԩˬ¬Ԩˬ¬ˬ¬èн¬̬ǬԨˬ¬Ԩˬ¬Ԩˬ¬Ьèн¬̬ǬĨԨˬìЬĨԨˬìԳЬĨԨˬìЬĨԨˬìЬèн¬ĨԨˬìβĨԨнìЬĨĨԨˬìЬԨˬĨԨˬìñԨˬ̬ԨнĨĨԨнìЬԨˬ¬ìԨн¬ìè֨Ԩˬ¬ΨԨˬҬìЬԨˬԨˬĨԨˬԨˬ¬Ԩн¬ìèԨˬ¬ԨΨԨˬ¬ì±Ԩˬ̬Ԩˬ¬Ԩˬ¬Ԩˬ¬Ԩˬ¬н¬Ԩˬ¬Ԩˬ¬Ԩˬ¬ԨнìЬĨΨԨˬ¬ΨԨˬ¬񂠁ՂՂԂˆ˜܁Њ :1߃燀🀀翀̿矃؁瀀ՠ߱ՠĨ桩쉨 뿠󠠠󮠠󠠍򠭭􍢠ﮠ栠򠍢蠍Π宠ɠ𮠠򮠠򠠍򠠍󠠠򠠠򮠠󮠠󮠠󮠠󮠠䠠䠠󮠠䠍쮠Ԩˬ¬ԨΨԨͬ¬ìԨˬ¬Ԩˬ¬Ԩˬ¬Ԩˬ¬Ԩˬ¬èн¬̬ǬԨˬ¬Ϩ¬̬ǬĨԨͬìèн¬̬ǬԨˬ¬Ԩˬ Ԩˬ¬¨н¬̬ǬԨˬ¬Ԩˬ¬بнԨˬ¬Ԩˬ¬èн¬̬ǬԨˬ¬Ԩˬ¬Ԩˬ¬èн¬̬ǬԨˬ¬䀀ŁլՀլՀӪӪժǽժժժժժժժժժժԪű >1ЪĨĈՈբՊԪԢТʀЂЂЀԂพ󻀀倀 𠠠䍢䠠堠䍢̠Ԡ𠠠濠䠠󮠠𠠠䠠嬠䍢岠䍢堠ſ嬠蠠砠󮠠𠠠Π𿠠󠠠𠠠䍢򠍢󠠠򠍢󮠠𠍢󠠠렠󠠠¢堠󮠠堠렠栠󠠠堠렠ﺠ退هЄʍȨĊԈԀӀт D1ՀՀՂЪԪ쀠ժ́ժ́ժժѪժժժժժժѪժ߁ۇ 뺠砠𠠠뮠砠砠嬠䠠ȠӠ𿠠堠宠𠠠䍢蠠ᬠ砠堠䍢ˠ󿠠砠󮠠𠠠栠Ӡ堠𿠠𠠠䍢堭䠠栠󮠠Π𠠠翠󮠠𠠠䍢堠˿򠠠ఄĪ @1ԊŪЪŊՊЊՈʼnʼnЀ 蠠宠󬠠󍢠箠򠠍򭭭嬠䠠䠠󠠠󮠠堠󠠠宠ᠠ䠠纠ᠠ庠砠䮠󺠠砠㠠󮠠뺠ᠠ󺠠砠󬠠󠠠宠뮠砠󠠠󮠠䠠󮠠庠砠Ѐ؟ՐԀЊЊԂԂŀՀЀԈՀԠԀ𞏀ԐۀĔАĄÀĄ̀ĀՀƁƁƁԀԀ =D9큀غؚ؊ݮ낀ꂀ끀끀遀聀  砠󠍢宠󠠠렠렠󍢭𠠍箠堭ɠ嬠ᠠ䬠堠󠠠쮠堠󠍢󮍢ɠ堠宠묠䠠堠󮠠嬠堠ɠ묠嬠宠󮠠堠󠠠렠렠󍢭堠󮠠𠠍󮠠䠠ɠ宠ɠ堠󠠠堠䬠堠Ϡ䠸Ϡɠ󠠠䠠栠堠栱堠󠠠󮠠ɧ󠠠堠殠䠠 !/「ؙÁ̙ÁǁǁÍ  ܁؃恀ށÉժժՊՂՂՀՀ Π堠𮠠堠򠠠𠠠󮠠笠򠠠뮠􍢠箠􍢠䠠ˠ̠Ԡ䬠젠嬠堍󮠠󮠠堠䬍𠠠󮠠ŠӠ卢栠렠󠠠렠󠠠򮠠堠󠠠󠠠󺠠 ',ܱ㵀뱀㎀΁ʁ叀ʂЪʂԪʂʂʂʂ  庠堠堠宠ﮠ纠򠠠宠󠍢󿠠庠򠠠򠠠𿠠󮠍Ԡà堍󠠍殠𠠠謠򮠠蠠䠠堠ȠӠˠ󠍢렠Ӡ箠󠠠󠠠젠󠠍䮠ŠӠ卢󠠠殠嬠ﬠ宠ՊԀՊՊЀ q'=怀ف瀀ρρ񁀞掀܇灀Ɓీ㶀잀憶ఃƁ怘쀘  堍䠍堍󮠠䠠堠Ȯ嬠堠ɮʮ嬠砠ȭ󠠠®ᠠî󠠠Į謠堠Ů堠Ʈ嬠堠Ǯ󍢠󮠍󠠠䠠򮠠󠠠Ȯ嬠堠ɮʮ嬠砠ȭ󠠠®ᠠî󠠠Į謠堠Ů堠Ʈ嬠堠Ǯ堠󠠠䠠󮠠䠍󮠠栱宠堠𠠠䠠嬠󬠠頍庠򠠠󮠠ᬠ򠠠쮠󺠠󺠠堠堠렠󮠠 5🀀เǁ؁ρ΃É΃ÁԚ瀯˯򩧁©Ԋ  ﬠᬠ䠠뮠젠󠠠ɠ𠠠ﭭᠠ󠠠嬠卢򠠠宠堠ᮠ󠠠䮠宠򠠠栦󠠠堠®렦堠򬠠ᮠî俠宠䠠젠𠠠î®󮠠𮠠𮠠򬠠䬠젠󿠠宠Ԡà򮠠 !,ݻ؁へ읃̓ǂ샀솀𞾇𞻏򎻟؏ρ쏃РРЊĊ󬠠堠堠묠젠®ﮠ卢򠠠îɠ頠򮠠򠠍𠠠썢蠍堠ɠ殠󠠠宠宠䠦宠纠堠󠠠쬠砠堠堠宠򠠠栠󠍢𮠠󠠠砠砠ᬠ젠䠠󍢠獢宍î렦䠠䮠򠠍堠宠®렠렭俠󠠠ᬠ宠렠堠묠栠܁ÿՀՀĪԂ߃ՊѪժԠՊԨԪĪՂՂՊ 96ကÁೆᘴ冀 栠𠠠򠠠堍®亠ɠ嬠堠ɠ렠򠠠宠堍쬠ɠ򠍢ɠ򠠠嬠砠𮠠ɠîخ®嬠宠䠍堠䠠堠宠堠宠䠠𠠠䠠𮠠ﬠ栠砦젠䠠󍢠䠠𮠠砠獢宠묠䠠󍢠䠠 z"# ðñԠc!ðծԠ"ð׮Ԡ  ðϮҠ ðϮ  ӮԠ ðԮԠ ð׮  ðԠSð±Ԡ ðȮҠðԮҠðȮҠð֮ ðĮ  ðҮ͠Ԡ ðͮҠ ðĮҠ ðîҠ ðîҠð̮ҠðٮҠðήҠ ðĮҠ!ðήҠ"ðӮҠ ҮԠðٮҠðٮҠ ðٮҠ ðٮҠðŮҠðîҠðîҠðîҠðŮ ðή  ӠðԠðĮ ðĮ  ðî ðή à 蠠宍򠠍䮠ɠ󬠠䍢󠠠堦堠宠쬠򬠦ɠ嬠堠󠠠279,X70 \X a2010 f% 5  SPACEBAR; N PRNT,24,1,CP$` IPT,24,40,Z$ Z$"Q"Z$"q"QFTR:1300 KP0 RRLR10:ZC4 RRRRR46 T$(R64)". "SM$(R)I PRNT,LR,ZC,T$d T$(R64)". "SL$(R)y PRNT,LR8,ZC,T$ LRLR1 R *2200 /RRRR5 4RR102150 90 :X182191:0,X279,X:X >X65111 H0,X279,X R0,X70PRNT,3,10,"HERE ARE YOUR RESPONSES..."< 2:0,48279,48O PUT,PX,PY,LO%b 0,113279,113 PRNT,16,1,"Preferred methods to influence others." PRNT,8,1,"Preferred methods of being influenced."    EVALUATION  RR1  SWEV.SUB2 3-12-84 TIM HILVERT8FLKP1200cVKP0:(16384)1281110|`KB$((16384)128)jCLRKBDtKB$"Q"KB$"q"QFTR:130015002000CHAIN,MP$"CMND.SUB",CV$ SET TEXT( î䠠®썢亠䬠ɠ䠠ɠ䮠ɠɠ孭䬠󠠠뮠卢嬠堠𠠠󠠠宠宠堠î堠뮠󠍢󮠠󠠠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";RTE 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"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         " (Z$)32(Z$)90ĺ(7):3310/ W$W$Z$B PRNT,LR,ZC,Z$N ZCZC1X* 3310^H wI GET ROUTINE}J R (4);"READ";F$(1);",R";R\ T1$f   INITIALIZE EVERYTHING # KM$(1)"MARTY":KM$(2)"MARY":KM$(3(Z$)8(W$)1W$"":ZCZC1:PRNT,LR,ZC," ":3310y (Z$)8ĭW$""W$(W$,(W$)1):PRNT,LR,ZC1," ":ZCZC1:3310 (Z$)13ı K$"NUMBER"ĭ(Z$)("1")(Z$)("8")ĺ(7):3310 ZC38ĺ(7):3310 (Z$)96(Z$)123Z$((Z$)32)NT,RW(T1),CL(T1),KM$(T1)"LR16IY31524:PRNT,Y3,1,(BL$,40):Y3VRSTEN`3400sPRNT,LR,1,T1$ LRLR1 R PRNT,24,1,NP$$   INPUT  W$"" IPT,LR,ZC,Z$ (Z$)13W$""ĺ(7):33103 2,12,110278,110278,02,1%PP10S15Y(4);"BLOAD";MP$PG$(S)".SCR,A";ADsPUT,X(S)78,Y(S),ADPRNT,RW(1),CL(1),KM$(1)SPR$(2)""T1(PR$(2))PR$(2)""2285PRNT,RW(T11),CL(T11),(BL$,(KM$(T11)))PRE YOUR CHOICE(S)":PRNT,24,11,"THEN PRESS RETURN"A&LR24:ZC31W0K$"NUMBER":3300m:WK$((PR$(2)))W$yDCO(1)1IPRNT,23,1,(BL$,40)JPRNT,24,1,(BL$,40)N BLOAD 5 FACES ONTO SCREENPR$(2)""22702:I1:1740II1JC33C34C35RP$(CT)NM$(I):CTCT1:II1:1750TII1fPP3:B0:PSqC18RP$(C)""BB1B8CO(5)1:1775CO(5)0C  SET CHOICES 1PR$(1)"11"ČPRNT,23,8,"INDICAT":LCT1:P1:I1:3500CS07:D$(SA$(S),1):AN$AN$D$:SOPS13V$(AN$,P,3):C1((V$,1,1)):C2((V$,2,1)):C3((V$,3,1))C13C14C15RP$(CT)NM$(I):CTCT1:II1:1730II1 C23C24C25RP$(CT)NM$(I):CTCT1:ICT)NM$(I):CTCT1:II1:1670(II1ZC31C32RP$(CT)NM$(I):CTCT1:II1:1680dII1vPP3:A0:PAC18RP$(C)""AA1A8CO(5)1:1695CO(5)0C: EVALUATE ANSWERSL18:RP$(L)")RP$(1):CT1:P1:I1:3500:^AN$"":L18:RP$(L)"":LbcS07:D$(SA$(S),1):AN$AN$D$:SnhPA13mV$(AN$,P,3):C1((V$,1,1)):C2((V$,2,1)):C3((V$,3,1))rC11C12RP$(CT)NM$(I):CTCT1:II1:1660wII1|C21C22RP$( ,49168,0:PRNT,24,1,CP$: 1NRR:(T1$,1)">"KP1:R 6(16384)1281590 ;Z$((16384)128):PRNT,24,1,(BL$,40) @Z$"Q"Z$"q"QFTR: E0:L103165:55K,L279K,L:L:3 J1559 T U EVALUATE ANSWERS VYSO$(4,8135K,8135K,169289K,169289K,81196K,81:3B LR15:ZC7V PRNT,LR,ZC,"*" PR$(2)"1"ČPRNT,2,8,"Leadership Effectiveness":PRNT,3,15,"Conditions" NRST LR15 RNRNR4 3400 GET "PRNT,LR,9,(T1$,8,27) 'LRLR1:R1);",A";AD3 T11T13T14ČPUT,132,16,AD:1450F PUT,133,16,ADb T18Ē2:125,18135,36h n   PUT HAND ON SCREEN  K78  (4);"BLOAD";MP$;"HAND.SCR,A";AD PUT,123K,29,AD 3:123K,29189K,293 2:179K$"CMND.SUB",CV$ +  RECIEVE INPUT1 I LR19:ZC7:S2:A90Z 3300 INPUTf (LRLR2w 2RP$(S)W$"" <SS1 AZC7 FLR23ı P1310 x y PUT FACE ON SCREEN z } T1A91 A9A91 (4);"BLOAD";MP$PM$(TR$(2)"5"ī1110$ PKP1:Y8$" "A RKP0:(16384)1281106b SK$((16384)128):49168,0 TK$"Q"KB$"q"QFTR:1200 UPR$(1)"9"PR$(2)"5"ČPRNT,RW(T1),CL(T1),Y8$:PRNT,24,1,BL$ VPR$(1)"8"PR$(1)"3"PR$(1)"9"KP0 CHAIN,MP9 LEAD. 3/7/84 TIM HILVERT4BKP1100_$KP0:(16384)1281060.K$((16384)128):49168,08K$"Q"KB$"q"QFTR:1200L3500M(PR$(1))1300,1400,1500,1620,,,1700,2200,2200,,1800NKP1 OPR$(1)"9"P       $CHAIN,MP$"CMND.SUB",CV$! .9 8 Initialize? BJ GF$(3)^ LOC3:SO21:OI3 VF$(1)"AAAAAAAA.DAT""":F$(2)MP$"MSTR.OCM":TR1:FATR `AD8192: ADDRESS OF BLOAD SCR FILES eLO%16171: ADDRESS OF LOGO E jST$(17)X3CB2: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$""A9!C!()SM$()SL$()WK$()JD!UL!""  (43617)256 :AD38400LN% AD2 ":PRNTADD ,:CHAINPRNT3U 6:PUTCHAIN3f @:INSTRPUT3w J:GITINSTR3 T:IPTGIT3 ^:CLRKBDIPT3 c:BLDCLRKBD3 h:MP$"C03$""" r1070   Execution  QFFA:CBTR Ptd nCBS--STUDENT SYSTEM&x@INCLUDES UPDATES OF:K PRNTW CHAINa PUTm INSTRw GIT IPT CLRKBD BLDMARCH 9,198424576(4)"CLOSE"(4);"BLOAD QPCPIGIC" :LN(43616) PRNT,LR,ZC,Z$. W$W$Z$:ZCZC1:24404P INSTR.FUNCTIONVm(X$)0F0:5070I1(A$)(X$)1B$(A$,I,(X$))B$X$FI:I1000II(A$)(X$)1F0,W$)1ZCZC1:PRNT,LR,ZC," ":2430c Z8ĭW$""W$(W$,(W$)1):ZCZC1:PRNT,LR,ZC," ":2440x (W$)LZ13ı PR$(1)"8"ĭZ("1")Z("5")ĺ(7):2440 Z96Z123ZZ32:Z$(Z) Z32Z90ĺ(7):2440 (W$)LZ13ĺ(7):24402)"RAY"$ PN$(3)"JIM"+. PN$(4)"SALY"=8 PN$(5)"MIKE"hB (4);"BLOAD";MP$;PN$(CT);".SCR,A8192"L PUT,4578,17,8192` KP0j t u INPUT ROUTINEv ~ W$"" IPT,LR,ZC,Z$ Z(Z$) W$""Z13ĺ(7):2440# Z8(15:L62420!RP$(S)W$""+SS17LRLR1ILR24KP0:S2170Y **** BLOAD CORRECT FACE ONTO SCREEN *******CTC(2)2310CTC(3)2310CTC(4)2310CTC(1)  PN$(1)"JUDY" PN$(R21:S3 X(1)11 X(2)9+ X(3)137 X(4)13B X(5)8M Y(1)2X Y(2)8d Y(3)14p Y(4)25| Y(5)31 TX$(2)"Manager A" TX$(3)"Manager B" *TX$(4)"Manager C" 4B24 >TC(B) HPRNT,X(T),Y(T),TX$(B) \zZC192 @PRNT,RW(K),CL(K),NM$(K)' rK- 3 ^  DETERMINE WHICH FACE THE USER PICKED  ASSIGN THE VALUE IN ARRAY(J)   LR20:ZC20:L1:J1 N2420 bC(J)(W$) lLRLR1 vJJ1 {ZC20 LR24KP0: 1870 L3 RW(4)13 RW(5)8& CL(1)43 CL(2)12@ CL(3)19M CL(4)28Z CL(5)37l PN$(1)"JUDY"} PN$(2)"RAY" PN$(3)"JIM" PN$(4)"SALY" PN$(5)"MIKE" K15 (4);"BLOAD";MP$PN$(K)".SCR,A8192" PUT,X(K)78,Y(K),82,105278,105278,12,1& NM$(1)"1"5 NM$(2)"2"D NM$(3)"3"S NM$(4)"4"b NM$(5)"5"n X(1)11z X(2)73 X(3)128 (X(4)196 2X(5)269 <Y(1)30 FY(2)4 PY(3)30 ZY(4)30 dY(5)5 nRW(1)11 xRW(2)9 RW(3)1,1930,1810,2300,27002 CHAIN,MP$"CMND.SUB",CV$8 > |  *** DETERMINE WHICH MANAGER THE USER WISHES TO MEET ***  LR11:ZC7:L20 j2420:RP$(2)W$"" ~KP0    ***BLOAD FACES ONTO SCREEN****   2:2,1 5 C03$USLD.SUB --- USING LEADERSHIP STRAGEGIESO BY TONEY MCINTOSHc DATE 12-16-84iwKP1030KP0:(16384)1281005KB$((16384)128):49168,0KB$"q"KB$"Q"QFTR:1040 (PR$(1))1050,,2240,2260,2280,1170     0vX113İ3000:3S$"1"S$"7"ĺ(7):5735FPRNT,20,13,S$PY$S$IPT,20,25,S$:X1(S$):X196X1123X1X132:S$(X1)S$"1"S$"7"ĺ(7):5785PRNT,20,25,S$H$SV$((Y$)):SV$((Y$))SV$((S$)):SV$((S$))H$5610K8RW8"DPRNT,24,5,(SP$,30)WNPRNT,22,5,"Press the RETURN key when finished."~XPRNT,20,5,"Switch _ with _"bCLRKBDgIPT,20,13,S$:X1(S$):X196X1123X1X132:S$(X1)lX113ĭPARM$(2)"1"İ6000qPR$(2)"1"X113İ610"SVSL$(3)"your race"8SVSL$(4)"your education"]SVSL$(5)"your financial status"zSVSL$(6)"your religion"SVSL$(7)"your regional origin"5700:RW8K17PRNT,RW,4,(K)". "SV$(K)(SP$,15)RWRW1K &S$(S64):PRNT,20,25,S$8Y(Y$)64:S(S$)64jPR$(1)"3"H$SV$(Y):SV$(Y)SV$(S):SV$(S)H$PR$(1)"3"H$SL$(Y):SL$(Y)SL$(S):SL$(S)H$4300|  FOR PARM$(1)=5 SVSL$(1)"your age"SVSL$(2)"your sex CLRKBDGIPT,20,13,S$:X1(S$):X196X1123X1X132:S$(X1)ZX113İ3000:iS(S$)64S1S10ĺ(7):5025PRNT,20,13,S$Y$S$IPT,20,25,S$:X1(S$):X196X1123X1X132:S$(X1)S(S$)64:S1S10ĺ(7):5062 K110=PR$(1)"3"ČPRNT,RW,6,SV$(K)(BL$,9)iPR$(1)"3"ČPRNT,RW,6,SL$(K)(BL$,9)uRWRW1|KK11RW8PRNT,24,5,(SP$,30)PRNT,22,5,"Press the RETURN key when finished."PRNT,20,5,"Switch _ with _"$(7)SV$(7)ASV$(8)"Persistence, resistance""":SL$(8)SV$(8)vSV$(9)"Enthusiasm, excitement""":SL$(9)SV$(9)SV$(10)"Intelligence, reasoning""":SL$(10)SV$(10):RW85000PR$(1)"3"4200"K110,SM$(K)SV$(K)6KhSL$(2)SV$(2)@SV$(3)"Alliances, loyalties""":SL$(3)SV$(3)pSV$(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""":SLH   / Single Char Input6 B CLRKBDU PRNT,24,1,CP$_ KPTRe l  FOR PARM$(1)= 3 AND 4 SV$(10)SV$(1)"Authority, rules, rewards""":SL$(1)SV$(1) SV$(2)"Magnetism, charisma""":INE FOR SWITCH ROUTINE  ) CLRKBDC IPT,19,28,Z$:Z(Z$)Z Z96Z123ZZ32u Z65Z67ĺ(7):2050 PRNT,19,28,Z$ *Z65TP$"30":PT$"60" 4Z66TP$"45":PT$"45" >Z67TP$"60":PT$"30" @CV$CV$"TP$PT$""" CKPFA))) RWRW2 I" CLRKBD( / d M n CALCULATE SCORET x _ I16z SL$(I)SV$(I)RARA1 I RA6CO(1)3 RA6RP$(2)(RA):CO(1)2 RP$(3)PT$ RP$(4)TP$ 3000     INPUT ROUTRNT,21,5,"PRESS THE RETURN KEY WHEN FINISHED."U PRNT,19,5,"SWITCH _ WITH _" H$SV$((Y$)):SV$((Y$))SV$((S$)):SV$((S$))H$ I13 PRNT,RW,1,(I)"."SV$(I)(SP$,17(SV$(I))) PRNT,RW,20,(I3)"."SV$(I3)(SP$,17(SV$(I36)SL$(1)1 5:237,0279,0279,28237,28237,0J 3:PRNT,2,36,"TIME"h 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$"". P B PR$(1)="2" L" VRA0( `d 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$(!% C03$SWTC.SUB +9KP1056CKPFA[(16384)1281050|KB$((16384)128):CLRKBDKB$"Q"KB$"q"QFTR:1070 PRNT,24,1,(SP$,40)$(PR$(1))2000,1100,4000,4000,6200.CHAIN,MP$"CMND.SUB",CV$ 8        ĨԨͬìԨͬìԨͬìԨͬìԨнìЬĨөĨԨĨԨԨˬ¬ˬìčĨˬìčԨˬìčĨˬìčĨĨˬìčĨˬìčĨĨˬìčĨˬìčˬн¬Ĩˬ¬ˬ¬ˬΨԠԨͬĬ̬ЬԨͬĬ̬ЬԨͬĬì̬Ьˬֳ̬ՠΨԨͬĬЬŨנר        NA$(6)"OBJECTIVES"""1 NA$(7)"FEEDBACK"""P NA$(8)"HIGH STANDARDS"""V C60 I1(A$)(X$)1. B$(A$,I,(X$))D B$X$FI:I1000K IQ W ph q INITIALIZEn r zNA$(1)"COMMUNICATION""" NA$(2)"INITIATIVE""" NA$(3)"MUTUAL SUPPORT""" NA$(4)"TEAMWORK""" NA$(5)"PARTICIPATION""" (X)""GG1 j) tG0CO(9)1:11505 yCO(9)0; ~U G1:WR$WK$(1)WK$(2)` X18~ A$WR$:X$((X),1):5000 F0RP$(G)NA$(X):GG1:NA$(X)""  1100    INSTR.FUNCTION  F0 (X$)0F0:50KP0:CHAIN,MP$"CMND.SUB",CV$1 G1:H1:H$""G WR$WK$(1)WK$(2)R X18d C$(WR$,G,1)n $GG1 .G(WR$)X9 3A$H$:X$C$:5000 8(C$)9(C$)0F0RP$(H)NA$((C$)):HH1:H$H$C$:NA$((C$))"" B LG0 VX18 `RP$X" ASSN.SUB 3/7/846 TIM HILVERT<JKP1008gKP0:(16384)1281001KB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:1028 ASSN.SUB 3/2/84X18:RP$(X)"":X:6000(PR$(1))1030,1200     󠠠堠î栠堠堠󠍢䍢®ɠ򍢠荢ɠ󠠠ɠ堠  @he@C`DFCE`8 >? &?>e>>e??8>EFF` g ᤡ` { <=&`((((PPPP\\]]^^__\\]]^^__\\]]^^__><< ȱ=<&''F¥&E>F??B**GL` g ᥡ` Y 8EFF _ @0 1 @0L)H ߅>?>opoha{)ߑooȑ>pȑ> >? `,0`,`؅BA 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`L4<=F=<` ' Ȓ?@@e'&@><' '<=L ߅>?>>` A@ B >e>>e??`e`$0lkLmn?>`$0L`$0jiLǎkl>?` A@ B A `@`B`EȱFȱGii*8@@AA@i+D<&'BJJJ )i<(B) e+D>Jf?> ۏf?Aȑ>>>'LW@A'LW>?` &$>ȱ>  Lލ> eLԍ` $ MK>$0> eL>Bȱ>C> >?BCBBCL`$0>w LLL̎LL[LΑLS Y' Ȓ '< CD''&` # J$0( э  э mnkl i67  67  eօ3آiL Ȓ< u ͩ>?ϩ` Ȓ{'&i<@Aȱ<0[A     亠ɠɧ砍蠠宠ɠ􍢠栦خ嬠ᠠ®î嬠򠠠砠䠠젠󮠠宠䠦䠍宠®堠孭亠𠠠ɠɧᠠɠ栠ɠ􍢠䮠蠦堠宠 /඀춆ρ́۟͟؁ύǁΏ̟χ぀࿀㿜񀀀瀀怀怀F ՀЪՎ֪Ռުռު쀀ߪڀݪ€ت€€€€ՂՀՀՀՀՀՀՀՐՏ %@㏀ఀ 怀ϱ쀀ã́ӂ숎Àࣀ• 宠®ɠ󮠠򠠠ɠ栠󠠠堠󮠠堠̠ϭ󠍢䮠î󬠠򠠠宠嬠堠蠠®젠亠砠󠠍宠砠宠ɠ砍蠠󠠍򮠠ɧ򠠠笠蠦®󮠠î GET TEXT 2 (4);"READ";F$(1);",R";R; TX$A G  X  PRINT TEXT^  z & PRNT,LR,ZC,(TX$,2,38) 0 1RNT,LR,ZC,(TX$,39) 0 A10,1 LR2 RSTEN% 3000. ZC28 3100D *LRLR1K 4RZ 90,10,190l >IPT,22,29,Z$ HZ$"A"Z$"a"CO(1)1:2200 RZ$"B"Z$"b"CO(1)2:2200 \Z$"C"Z$"c"CO(1)3:2200 f(7):2110 PRNT,22,29,Z$   MEMO.SUB+LKP1200HWKP0:(16384)1281111a`KB$((16384)128)meCLRKBDjKB$"Q"KB$"Q"QFTR:13002000CHAIN,MP$"CMND.SUB",CV$ DRAW BOX2 0,10,190278,190278,   0ЀЀԀՀՀŰفЂЂӂׂ׀׀ÀÀ蠠󠠠庠󮠠嬍堦󠠠笠䠠嬠嬠䠠󮠠󠠍󠠠䮠󮠠蠍栠宠堠𮠠砦堠笠󠠠宠宠䠠嬠򠠠ᠠ¬î宠󠠠堠𢠠îɠᠠ宠뿠   ŁՂԪժԪՊ֊Ղ׀Ꝁ쵀潀潀激 *CꇀߪߪߪߪՇՎՎǯ՚𪃸՚ꁀޚꀀغؚ܎܆܁܁ᘌ؝ؼ챆ñ 렲堠砠宠렠Ԡà笠󠠠렠堠󠠠󠠠堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭堠򠠍󮠠Ӡ堠宠󠢭堠ӭ󠠠   瀛ʟ q)=߿ہㆀÏށ  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   쌀ˀ̒Ѫ඀ٙа☊ВЂЊҊ҂҂€€‚ЊЊЊЊЊЊЊЊЊ ,B큀῀ǹ怀̹̇ر̙̹晀πα΀胎Ùҁށׁ惽怎΀؁လ໰ 𿠠                                      ,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+'+ 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$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$(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| JD43 1050:2000 CLRKBD PRNT,24,1,NP$ KPTR:CHAIN,MP$"CMND.SUB",CV$  $ NAME . 8:7!=0,43279,43     堠󠠠뮠堠󬠠򍢠ᠠ宠򠠠堠              22KP13090/2KP0:(16384)12813040Q2KB$((16384)128):49168,0l3KB$"Q"KB$"q"QFTRr"3x,363 PRINT ROUTINE@3J3TX$""TX$(BL$,39)T3PRNT,RW,CW,TX$3d3d 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 1L 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     󠠠堠󠠠򠠠󠍢⮠堦򍢠𠠠堦렠䮠󍢠䠠٠󺠠栦ŠΠ蠍宠¬ìà󠠠堠砠宠Π蠠򮠠栠 堠̠Ĩ󬠦堠栠ή󠠠                           ఀ BE  ǠҠӠŠԠ𠠠嬠㮠孭!!!ߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN!! ! ! ! ! !Šͭ𠠠𿠠󠠠ĠԠԢŠԠ󠠠"""ՂՊժŊժՂՊժŊժՂŊՊŪՀՂՊŪՀԪՂՊŪՀՊԪՂՊŪՀՊԪՂŪՀՊԪŊՊԪŊՊՊժŊժՂՊժŊժՂՊժŊժժժԪժժԪժժժժԪժժՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂŊŊժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՀժժժժժՂԪժժՀժժժժժՂԪժժժժժժժՀԪժժժժժժժՀԪժժժժժժժՊժժՂՊժժՊժժՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժՊժժՊԪժժՊժժՊԪժժՊժժՊԪժժՊժժՂԪժժՊժժՂԪժժՊժժՀԪժժՀՊժժՀЪժժՀՊժժՀЪժժՂՊժժՂժժՂՊժժՂժժՂՊժժՊժժՂժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂՊՂՊԪՊՂՊԪՊՂՊԪՊՂՊԪ 3PԪժժժժժժՂժժժժժժժՂժժժժժՀժժՂժժժժժՀժժՂժժժժժՂժժՂժժժժժՂЪժժՂժժժժժՊЪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժ"" " " " " ""