' +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`렠렲󠠠宠󠠍䮠㠭ﬠ魭􍢠렠宠򠠠栍젠㠠󠠠󠠠堠ɠ忠썢󿠠忠堠忠ɠ󬠍嬠㮩󿠠󬠠砍󿠠砠謠䠠堍젠迠翍⠍堠忠򠠠򠠠묠󿠠ɠ栠뿠󍢠렠䠍欠蠠󿠠󠍢󮠠笠笍󬠠㿠蠠󠠠뿠栠뿠󠠠ᠳ堠堠蠠庠󿠠򠠠󿠠嬠ή󠠠򠠍宠嬠䠠嬠ɠ宠󮠠ɠɠ⻠ɠﮠ뮠􍢠堍ɠ>$> PRINT TEXT TX$ @ LR,ZC8>PRNT,LR,ZC,TX$>>¬ìЬԨԨˬìԨΨԨͬԨčԨԨˬĬǬԨˬΨԨˬ¬ìЬαàԨ̬ԨͬĬǬԨˬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬ󠠠󮠠򠠍宠堠笠笠笠砠󮠠堠򠠠𠍢󮠠栍󮠠堠󮠠卢栍笠笠笠Э򠠠堠󮠠䠠堠򺠠󍢠堠󠠠堠堠򺠠󠠠󠠠魭廍宠魭堠堠宠󠠍ᮠ퍢󮠠̲堭宠䠠堠宠荢󮠠砠󮠠堠묠뮠䠠󮠠ᠠ⮠栠嬠󍢠堠򮠠堍젠堠򠠠䠠󮠠󠠠󬠍栠󮠠󠠠蠠򮠠堠ﺠ󠠠蠠堠ᠠ墠ﺠ󠠠󠠠󬠍宠堠蠠򠠠򠠠堠󮠠󠠠󠠠䠍堠宠堠ﺠ嬠䠠嬠ᠠ򠠠宠ᠠ堠󮠠󮠠堠堠堠󠠠堠󮠠젠笠笠笠䠠1|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: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$РŠԺ宠砠󠠠㠭󠠠젠堠堠ﺠ䠠󠠠㠠󠠠䮠󠍢堠򠍢蠠󠍢堠󮠠䠍젠栠堍堠䮠堠򬠠堠󠠠堠򠠍蠍󠠠堠󺠠󠠠堍򮠠󡠠孭ɠ䮠堠箠堠󠠠孠堠堍ᠠᠠ宠䠍𠠍䠠宠󠍢뮠䮠宠ᠠ嬠󠠠孠堠堍򠍢󬠠ή󠠠렠󮠠󠠠򠠠򮠠ŠԠ󠠠                        )RT$ 2< EZ(ST$(I1),1)" "ST$(I1)RT$ST$(I1):7780c_ST$(I1)RT$" "ST$(I1)id|(ST$(I1),1)" "ST$(I1)RT$ST$(I1):7780_ST$(I1)RT$" "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"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"CT2$,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";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              뮠ɠɠɠ򮠠ɠ讠砠堠嬠󠠠󻍢ɠ򠠍ɠɠ堠嬠򠠠ɠ⬠ɠɠ宍򮠠ɠ䬠ɠɧɠ宠ɠɠ堠䠠󮠠뮠ɠ宠宠ɠ栠򮠠򍢠䠠ɠ栠嬠ɧ렠󠠠堠堍ή󠠠򮠍ᠠ堠።򮠠򠵰􍢠卢󮠠젠󮠠ŠԠ堠󠠠󮠠䠠宠󠠠좭ĭ󠠠                         宠䠠䮠堍䮠᠍宠󠠠󮠠堠堠堍ᬠ⮠󠠠孠ᠠ⮠󠠍⮠ᠠ㭭宠堠򠠠堠孠堠堍栠䠠󠠍宠󠠠宠宠嬠򍢠宠堠󠠠宠嬠젍孠堠堍堠卢䍢堠󮠠󠠠󠠍򠠠󮠠箠 5?"ՀՂՊժЪԊըբբՀըՊՂԊŪѪժժժĿĿĿ  䠠󠠠栠ﺠ󠠠򠠍嬠栠堠󠠠孠堠堍󠠠䠍􍢠䠠堠宠󬠍򠠠堠򠠠䮠ᠠ򠍢䮠ᠠ䠍堍换䠠ᠠ孠堠堍󬠠󠠠堠󠠠᭭󠠠孠堠堍ԠΠΠ  宠换򠠠󮠠頠孠堠堍堠嬠󠍢䠠󠠠󠠠ﺠ󠠠,D11(C109)R,D8VY`(C107)R,D27(C94)R,D27:(C94)R,D29(C110)R,D29j(C94)R,D25(C94)R,D31(C90)R,D28(C94)R,D25t~~D42  L$(C129)R,D12(C143)R,D12:(C129)R,D9(C143)R,D9.(C124)R,D10(C129)R,D15(C129)R,D6(C124)R,D108B(C121)R,D12(C109)R,D12:(C109)R,D10(C122)R,D10L(C109)R,D8(C109)R,D14(C106)REDBACK!CX8:DY24:R.875:2`(C173)R,D41(C85)R,D55(C88)R,D55(C188)R,D45ARROWS(LARGEST TO SMALLEST)(C161)R,D45(C188)R,D45:(C160)R,D41(C173)R,D41(C150)R,D42(C159)R,D51(C159)R,D34(C150)R,A21)R,I(A134)R,I:IT(A16)R,B17(A2)R,B3:(A96)R,B17(A110)R,B3{IB3B:(A2)R,I(A110)R,I:I(A82)R,B34(A30)R,B34(A16)R,B20:(A82)R,B34(A96)R,B20IB20B17:(A16)R,I(A96)R,I:IFEgest to smallest),zAX4:BY24:R.875:6l(A21)R,B31(A46)R,B56:(A134)R,B31(A159)R,B56IB56B65:(A46)R,I(A159)R,I:IAX4:BY24:R.875:6(A3)R,B(A21)R,B24:(A110)R,B(A134)R,B24IB24B31:(,24,1,NP$:5150" PRNT,24,1,CP$1 DY1:5190> 49168,0V ((16384)1285160 2Z(16384)128:49168,0:Z96Z123ZZ32 7Z$(Z) <PRNT,24,1," " AQF0:Z$"Q"QF1 Fp Steps (Lar %  "Print text TX$ at LR,LC+ N TX$"Strategy "TX$(TX$,8)q TX$"Decisions "TX$(TX$,9) TX$"Situation "TX$(TX$,9) TX$"Actions "TX$(TX$,7) PRNT,LR,ZC,TX$    Input  DY1ČPRNT):5000:J:4090W J18:LRJ4:ZC(J26)7:TX$("FEEDBACK",J,1):ZCZC71:5000:J] d  x DISPLAY A TO B~  "LR19:IAB:F1:RI:4500:ZC0:5000:LRLR1:I ,  GET TEXT  (4);"READ";F$(F);",R";R TX$ C$"9"4080> R$"1601120907120907":Z1$"1618181717161718" T1$"IntentionsResults Style Situation Strategy IntentionsDecisions Actions " J1(C$):I((C$,J,1))1 LR((R$,I21,2)):ZC(((Z1$,I21,2))1)7:TX$(T1$,I101,10";MP$"HOUS.SCR";",A";AD" 60004 PUT,108,8,ADZ TX$"Attitudes":LR16:ZC16:5000~ TX$"Actions":LR12:ZC17:5000 TX$"Responses":LR9:ZC16:5000 TX$"Results":LR7:ZC17:5000 C$"9":4020:6110  DISPLAY WORDS  KP1000#KP0.((16384)12840P2KB$((16384)128):49168,0b<KB$"Q"1050h{ C01$LEAD.SUBAD8192 X99:Y1002000DY0:CHAIN,MP$"CMND.SUB",CV$ Code A (4);"BLOAD      堍嬠䮠󮠠󠠠孠堠䠠䮠堍  ERROR ) (7);(7);(7)/ 6 G GET RECORDMk(4);"READ";F$(1);",R";RtTX$z" P2(CP)02580 1850  & 6 ENTER KEY<( L< Z0:I1CP^F P2(I)ZZ1eP IwZ CO(0)Z:KPFAn CHAIN,MP$"CMND.SUB",CV$s :x   MOVE LV=1 TO MIDDLE  " , MOVE MIDDLE,THEN DOWN6  0:2380 DS(Z$)$ 2770(. 285048 CPRT1C= DS12375^B I1DS1:CPP1(CP):IhG 2520nL tV ` MOVE UPj t CP1ER4:2980:2510~ CPRT NP1(CP):NCPCPN:2440 CPN:1850   MOVE DOWN T$(LO(S))(&1,138(LT$(LO(S)))7,138W*PRNT,24,8,"Press the appropriate number."a>CPRTgHmRy\ INPUTfp49168,0(16384)1282220Z(16384):49168,0:Z$(Z128)Z$"0"(Z$)NNER1:2980:2220Z$"0"İ239NN4IC70:SC9+NN3IC102:SC11BNN2IC203:SC13I5VK6064uSC17,K(NN1)IC23SC,K|KCPCP1:XCSC:YC75BN1NN 1400:XCXCIC:SCP:CPP1(CP)BN PRNT,5,4,"LEVEL #"(LO(CP)1) %PRNT,17,1,L"-"IN$(CP)6: ,D DISPLAY TREE2N8XTbPRNT,1,15,"Thoughtree"fl98,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,"PERSONAL":PRNT,5,25,"DEVELOPMENT":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$,{ 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     ᠠ⮠䠠򠠠󠠠󮠠󮠠砍󠭭䍢󮠠䠠󠠠孠堠堍獢堠嬠堠󠠠颠栠堠썢栠22KP13090/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 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     堠堍󮠠⮠󠠠孠砠썢䠠堍򠠠󠭭󮠠獢+'+ 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    C01$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     z#????  ӮԠ ðӮҠ ðαԠ@ ðĮ  ðα®Ԡ9 ðծ͠ à ðԮԠ !ð  "ԠðŮ ðή  ð׮  ðĮ  ҮԠ ðծԠðαîԠ ð׮ԠðҮ͠ð̲ ðЮ  ð  ӠϠðήҠà ðӮҠ ðӮ ðϮҠ󮠠宠㠭ŠԺ򠠠宠砠𠍢󠠍砠젠򮠠󠍢堠卢򮠠ﬠ獢堠堠  @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     堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭堠򠠍󮠠Ӡ堠宠󠢭堠ӭ󠠠ߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN      C`DFCE`8 >? &?>e>>e??8>EFF` g ᤡ` { <=&`((((PPPP\\]]^^__\\]]^^__\\]]^^__><< ȱ=<&''F¥&E>F??B**GL&` g ᥡ` Y 8EFF _ @0 1 @0L)H ߅>?>opohooȑ>pȑ> >? `,0`,`؅BA ADH @he@IH Ƒ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`$0lkLmn?>`$0L`$0jiLюkl>?` ƑA@ ƑB ƑA `@`B`EȱFȱGii*8@@AA@i+D<&'BJJJ )i<(B) e+D>Jf?> f?Aȑ>>>'La@A'La>?` Ž &$>ȱ>  L荩> oLލ` Ž$ MK>$0> oL>Bȱ>C> >?BCBBCL`$0> LLL֎LLeLؑLS Y' Ȓ '< CD''&` - T$0( ۍ  ۍ mnkl i67  67  eօ3آiL Ȓ< u ͩ>?ϩ` Ȓ{'&i<@Aȱ<0[A     ,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ՂՊժŊժՂՊժŊժՂŊՊŪՀՂՊŪՀԪՂՊŪՀՊԪՂՊŪՀՊԪՂŪՀՊԪŊՊԪŊՊՊժŊժՂՊժŊժՂՊժŊժժժԪժժԪժժժժԪժժՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂŊŊժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՀժժժժժՂԪժժՀժժժժժՂԪժժժժժժժՀԪժժժժժժժՀԪժժժժժժժՊժժՂՊժժՊժժՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժՊժժՊԪժժՊժժՊԪժժՊժժՊԪժժՊժժՂԪժժՊժժՂԪժժՊժժՀԪժժՀՊժժՀЪժժՀՊժժՀЪժժՂՊժժՂժժՂՊժժՂժժՂՊժժՊժժՂժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂՊՂՊԪՊՂՊԪՊՂՊԪՊՂՊԪ 3PԪժժժժժժՂժժժժժժժՂժժժժժՀժժՂժժժժժՀժժՂժժժժժՂժժՂժժժժժՂЪժժՂժժժժժՊЪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժ     = C01$QRES.SUB -- YES, NO QUSTION RESPONSERi by TERRY WOODFORD date 12/1/83o.KB$"N"CO(10)1:CO(1)1:10803CO(10)2:CO(1)28KPFA:=CHAIN,MP$"CMND.SUB",CV$BdN )ЀЂԂԂך׺׺ժժݮݯի Space Bar to continue."""^ BL$" """t KB$" ":SQ1:SA1 TY$BL$:TZ$BL$ 4FILES% 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:CBTRd nCBS--STUDENT SYSTEM&x@INCLUDES UPDATES OF:K PRNTW CHAINa PUTm INSTRw GIT IPT CLRKBD BLDMARCH 9,198424576(4);"BLOAD PCPIGIC"(13)(4)"CLOSE" :LN(43     򍢠栍󭭭򿠠٠󠠠ΠԠ󭭭嬠㮠孭򠠠젠󠠠ӠŠ     堲堠뮠謠䠠堍젠迠젠堠忠썢󿠠򠠠骠堠ɠ忠翍⠍𠍢󬠍嬠㮩ɠ栠뿠堠忠欠蠠󿠠묠󿠠ɠ蠍󍢠렠䠍󿠠笠笍󬠠㿠砠忠뿠󬠠砍󿠠󠠠󠍢󿠠󠠠뿠栠򠠠庠󿠠򠠠󿠠㭭堠堠卢򠠠堠ή᢭ŠԠ          Šͭ젠ŠԠ堠ŠԠ󍢠ŠԠĠԠԢ󠠠̠Ԡ󠠠  ԨͬĬǬԨͬĬǬԨͬĬǬԨͬĬǬǬԨͬĬǬԨͬĬ¬ìЬα Ԩ̬ԨͬĬԨˬĬԨˬĬԨˬĬìΨԨˬԨˬĬìԨˬҬШԨˬĬԨˬĬԨˬĬԨˬĬԨˬĬԨˬĬìԨˬĬԨˬҬШԨˬĬԨˬҬШԨˬĬԨˬĬììШԨˬĬԨˬĬԨˬ̲ԨˬԨˬìԨˬìԨˬԨˬìԨˬ̬ԨˬčԨˬΨԠԨͬĬ̬ЬԨͬĬ̬ЬԨͬĬì̬ЬαĨԨͬìӨԨͬĬ̬ԨͬĬ̬נרֳՠΨԨ̬ͬŨΨн¬̬Ǭ          SC(I)((RA$,K,2))1CO(I)1T SC(I)((RA$,K,2))SC(I)((RA$,K4,2))CO(I)2y SC(I)((RA$,K4,2))1CO(I)3 II1 K xC14 <SC(C)0 FC# PI148 ZJ1(QS$(I))2P dQN((QS$(I),J,2)) nI3J6SC(I)SC(I)(6((SA$(1),QN,1))) xI3J7SC(I)SC(I)((SA$(1),QN,1)) I3SC(I)SC(I)((SA$(1),QN,1)) J I I1 K1(RA$)6 B$"Q"KB$"q"QFTR:1250+ MB1$(T$,40)> NPRNT,24,1,B1$H 1300k KP0:CHAIN,MP$"CMND.SUB",CV$ RA$"242532282933171822161721" QS$(1)" 3 711162126272930":QS$(2)" 1 2 4 81012132428" (QS$(3)" 51419 6 918":QS$(4)"151720222325" 28 C01$EVL2.SUB -- EVALUATES QUESTION SCORESo IBM VERSION (ORIGINAL)-- TERRY WOODFORD 12/2/83 APPLE VERSION (MODIFIED) -- JIM DYAR 3/1/84$KP1200.KP08(16384)1281080BKB$((16384)128):49168,0 LK   'SL1);RA$:SL1);SL$$':::H'PR$(11)"2"PR$(11)"4"ĺ(12)N'^((4)"PR#0"d:~; ERROR ROUTINE;;PRNT,1,24,"PRINTER ERROR. CANNOT PRINT SCREEN.";$;I111000:I.;PRNT,1,25,(SP$,39);0;10508;1040~>CH$S'SL12);"Managers";3);CH$;:U1NU(4):"#";:U:TE35SLNU(4):TE);AS(4)c'SL1);CH$'SL13);"Experienced";1);CH$'SL12);"Managers";3);CH$;:U1NU(7):"#";:U:TE35SLNU(7):TE);AS(7)'SL1);CH$;:U121:(95);:U:R3:ZC11:TX$"Sources of Worker Motivation"::10);TX$Kt'::CH$(124)^y'33);"Scores"w'X12:SL1);CH$:'SL9);"Your";4);CH$'SL9);"Score";3);CH$;:U1NU(1):"#";:U:(36):AS(1)'SL1);CH$'SL13);"Entry-Level";1);'(4)"PR#1"/':0' 1'SL'PR$(11)"1"TX$"Supervisory Style":13);TX$V'PR$(11)"2":TX$"Attitudes About Change"::11);TX$`'PR$(11)"3":TX$"Setting and Implementing":10);TX$:TX$"Goals and Standards":13);TX$8j'PR$(11)"4"LSA).5):NU(I)0ī3285X M17:SL75,(SR1)8M4(SL7)(7NU(I)),(SR1)8M4:Mp PRNT,SR3,35,(AS)| SRSR3 I CO(10)2İ10000: PrintScreen 1050'CLOSE.PROMPT'' SCREEN PRINT ROUTINE$')'SL(PR$(4)) .1,4,"Score"( PRNT,13,1,"Entry-Level"B PRNT,14,2,"Managers"_ PRNT,16,1,"Experienced"y PRNT,17,2,"Managers" 6 CWECSL:XLXEXO SACWXL PRNT,8,34,"Scores" I173 AS((RL$,I,VL)) AS(I)AS NU(I)(((ASXO)XE(PR$(9))4 5.: SL7,SR8SL7,ER85MD SL72,SR8SL72,ER85lN SL74,ER83EC7,ER83X SL74,ER85EC7,ER85 PRNT,ER2,SL,RA$:RWSR PRNT,ER3,SL,SL$ 6 Y-Axis Lables PRNT,10,4,"Your"  PRNT,1 IN RESULT$1 PR$(7)--> NUMBER OF BARSc PR$(8)--> VALUE OF ORIGIN OF X SCALE PR$(9)--> VALUE OF END OF X SCALE & SR(PR$(2)):ER(PR$(3)):SL(PR$(4))0 EC(PR$(5)):VL(PR$(6)):NB(PR$(7)) 2 XO(PR$(8)):RINT BAR GRAPH ON SCREEN K PR$(2)--> STARTING ROW POSITIONv PR$(3)--> ENDING ROW POSITION PR$(4)--> STARTING COLUMN POSITION PR$(5)--> ENDING COLUMN POSITION  PR$(6)--> LENGTH OF EACH VALUEK,3)(PM$,K,3)  |6  Calculate scores< G I14j SC(I)10SC$(I)" "(SC(I)) SC(I)10SC$(I)" "(SC(I)) I SN$SC$(1)SC$(2)SC$(3)SC$(4)"" PM$" 34 37 24 22":WN$" 27 31 21 19"   P4 PR$(11)"1"SL$"Passive Active":J0i PR$(11)"2"SL$"Pessimistic Optimistic":J2 PR$(11)"3"SL$"Unimportant Important":J4 PR$(11)"4"SL$"Extrinsic Intrinsic":J6 K(PR$(11))J (RL$(SN$,K,3)(WN$,? PR$(11)"2"LR3:ZC12:TX$"Attitudes About Change":16000 PR$(11)"3"LR2:ZC11:TX$"Setting and Implementing":16000:LR3:ZC14:TX$"Goals and Standards":16000 PR$(11)"4"LR3:ZC11:TX$"Sources of Worker Motivation":16000 TI$TX$ XPRNT,24,1,TX$ t ~>  Initialize VariablesD \  ONERR GOTO 15100e :2 (PR$(11))3RA$" 5 25 45" (PR$(11))3RA$" 5 15 30" PR$(11)"1"LR3:ZC14:TX$"Supervisory Style":1600050:'Initializevariables0 3000:'PrintScreenT KP1:CHAIN,MP$"CMND.SUB",CV$Z f $ INPUTl . 8TX$CP$:LR24:ZC1:16000 :1140 B(16384)1281090 LKB$((16384)128):49168,0 VKB$"Q"KB$"q"QFTR:1040 WTX$(T$,40)@#= C01$BGRP.SUB TRANSLATED BY:@> JIM DYAR 3-13-84FHTRKP1030]\KP0tf(16384)128870pKB$((16384)128):49168,0zKB$"Q"KB$"q"QFTR:1040|TX$(T$,40)PRNT,24,1,TX$1660: CALCULATE SCORES 11     X$:PRNT,LR,ZC,TX$:dPrint textz C I0I1I2TX$(97I)". "(TX$,27):15000a I3TX$(TX$,27):15000g m } Input  LR24:ZC1:TX$CP$:15000 1060::: PRINT TEXT @ LR,ZC PRINT TX$:PRNT,LR,ZC,TX$:dT)' E((BZ$,KAC1,AC))(10(AC1))1 KK1C% BLV(E1)SCT* JV5BL1[/ 2v4 (IBW),JBW1(I1),J}9 C> I,J(IBW5),JC JH JBLBLBW1M (I(BLJ)),J(I(BLJ)(BW5)),JR JW C4C\ Ia f p (X2)XX1& X,YX,UR,UR,YX,YE X,US,VS,WX,U(WV)X,UV S,VT,VR,Ug T,VT,WS,Wt X,YX,V} ISS CN0 X1,IX2,I IISC CNCN1  CNMX3315  C1 K0  AC((BZ$)BN) IR3(R3)(BNBW)(BW1 the graph * GWBNBW1.25:5:OF3> GLSC(MX)1.25K R(XGW)V SXGDd TXGWGDo UYGL} VYGLGD WYGL2GD X1X4 X2XGW4 SSYGLSC R2(R2)SS1 S2(S2)SS1 T2(T2)TT1 X2(3I)21,2). X TX$(97I)"="SC$(I):15000k b (4)"READ";F$(1);",R"STI:LRRWI:ZC10:TX$:I3İ3430| c I3İ15000 l I q (4);"READ";F$(1);",R"ST4:LRRW4:ZC10:TX$:TX$(100)". "(TX$,27) r 15000 v 3480 { Draw5:3200: plot the graphA & LR12:ZC18:TX$"a b c d":15000d ( LR3:ZC1:TX$"Scores:":15000 0 LR2:ZC1:TX$" Your":15000 : LR16:ZC3:TX$"SUMMARY OF YOUR MANAGEMENT ATTITUDES":15000 ? RW18:C0 D I03 N LR5I:ZC2 S SC$(I)(B$,T,24,1,TX$ (PR$(1))3000B $KP1:CHAIN,MP$"CMND.SUB",CV$H .N Evaluate Attitudes and Behavior "E" (1F) B$"" A$SN$ I1113 B$B$(A$,I,2)  I :0  MX8:BN4:BW23:BZ$B$  X70:Y0:GD30:SC6* C01$EVA3.SUB -- PRINTS SCORES ON 3D BAR GRAPH<4o> APPLE VERSION (MODIFIED) -- JIM DYAR 3/5/84uHRKP1050\KP0f(16384)128870pKB$((16384)128):49168,0zKB$"Q"KB$"q"QFTR:1060|TX$(T$,40) PRN    &: PRINT ROUTINE @ LR, ZC, FOR TX$::PRNT,LR,ZC,TX$@: 1: KX5000+bKP1:CHAIN,MP$"CMND.SUB",CV$1D InputJtLR24:ZC1:TX$NP$:15000:PS1ī1890(16384)1285030KB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:1890TX$(SP$,40)PRNT,24,1,TX$:<Y1(SZ$)2:BS((SZ$,Y,2)):(27):T2$(BS):Y@F(12):0FPZx ERROR ROUTINELR24:ZC1:TX$"A PRINTER ERROR HAS BEEN DETECTED":15000I111000:ILR24:ZC1:TX$(T$,39):15000 PROMPT PROCEDUREPR$(1)""PT$CP$1400 CO(10)2İ1320L1480: 'Prompt proceedureh( PRINT TEXT ON PRINTERo)1{*:::,24);T8$.22);T7$/2Y1(SR$)2:BS((SR$,Y,2)):(27):T1$(BS):4::::524);T8$626);T9$:2LRLE:ZCR1:TGTX$T2$(CT):SZ$SZ$CT$:15000WLE23(SC$)N2(SC$)N1LELE1hLE22CT25pCTPS1PS2:5000::LR1:ZC6:TX$T8$:15000:LR2:ZC7:TX$T9$:15000:TV$SA$(3):TG0:N15:N22:R110:LE4:1190PS1 ON ERR GOTO CU124:T1$(CU):CU1 CU124:T2$(CU):CUC SR$"":SZ$""P CT124^ CT$(CT)w CT10CT$"0"(CT) SC$(TV$,CT,1) (SC$)0ī1220 (SC$)N1(SC$)N2LRLE:ZCR1:TGTX$T1$(CT):SR$SR$CT$:150000(SC$)N1(SC$)N2elationship With Your Boss,ExcitementY | Change/Variety,Stability,Growth,High Earnings ~ Independence,Creativity,Health,Job Satisfaction,Community  Flexible Work Schedule,Competition,Job Security LE4:PS1:TV$SA$(2):TG1:R110:N13:N20 Work ScheduleZ r Change/Variety,Stability,Competition,Growth,High Earnings,Job Security t Challenging Problems,Leisure,Moral Fulfillment v Helping Society,Location,Aesthetics,Working With a Team,Status x Working Alone,Power/Authority% z RIndependence,Moral Fulfillment l Helping Society,Creativity,Location,Aesthetics,Health, Working With a Team,Status n Job Satisfaction,Working Alone,Power/Authority,Community p Relationship With Your Boss,Excitement,Flexible ,24,1,TX$ :2S LR1:ZC5:TX$"CAREER DEVELOPMENT ASSESSMENT":T8$TX$:15000 NLR2:ZC3:TX$"OF VALUES NOT PRESENT IN YOUR LIFE":T7$TX$:15000 XT9$"OF VALUES IMPORTANT TO YOU" `T1$(24),T2$(24) aTT1 j Challenging Problems,Leisure,B  5* C01$EVA2.SUB -- EVALUATES TEST RESULTS;4n> APPLE VERSION (MODIFIED) -- JIM DYAR 3/6/84tHRKP1010\KP0f(16384)128870pKB$((16384)128):49168,0zKB$"Q"KB$"q"QFTR:1890|TX$(T$,40) PRNT!! ! ! ! ! !!!!!