' +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`Өн¬̬Ǭн¬̬Ǭ˨ԨˬӨӨӨӨӨӨӨӨӨӨӨӨԨˬ¬ԨˬǬǍѨн¬̬ǬӨԨˬĬǬн¬̬ǬԨˬĬǬԨˬĬǬѨèн¬̬ǬѨèн¬̬ǬѨ̬ǬѨèн¬̬ǬѨèн¬̬Ǭèн¬̬ǬѨèн¬̬ǬѨèн¬Ѩèн¬̬ǬѨèн¬̬ǬѨԨˬĬǬԨˬĬǬԨìԨìèн¬̬ǬԨˬǬèн¬̬ǬԨˬĬǬԨˬĬǬèн¬̬ǬΨԠԨͬĬ̬ԨͬĬ̬ԨͬĬì̬н¬̬ǬӨԨͬĬ̬ԨͬĬ̬נרֳՠΨԨͬ¬̬ŨΨн¬̬Ǭ00 TX$/L(RP$(((TX$,J1,1))))P(RP$(((TX$,J1,1))),1,L)ZJJ2`sXT$(BL$,1,40)bI115lPRNT,I,1,T$vI@INSTR,1,TX$,"&",X%EX%0ī8030JY((TX$,X%1,1))TTX$(TX$,X%1)RP$(9) YTX$2);(124);#J10ĺ(124);)?\K15ĺ1);(124)EfYCO(10)1ī5070f216,0:sISTEN(4);"READ";F$(1);",R";ITX$(4)"PR#1":5500(4)"PR#0"ICLRKBDT24ČPRNT,24,1,CP$:KP1|80< 8Z(ST$(I1),1)" "ST$(I1)RT$ST$(I1):7780V_ST$(I1)RT$" "ST$(I1)\d1)id "ST$(I1)dST$(I1)d)(ST$(I),E):E1E1(ST$(I))407670@K4111(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$(I1)RT$2 PRNT,24,1,P1$!$CLRKBD1)LR24:ZC40:.KP1@8GB _`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,1)" "ST$(I"ČPRNT,LR,2,(ST$(I),2):73504PRNT,LR,1,ST$(I)@LRLR1PLR247380WI^ 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"QFFA4,"page "(PA)>%TFTRUEĭPR$(6)"TA"ČPRNT,3,10,(TT$,29)`*T1(PR$(8)):PR$(8)""T1URo4LRT1:ZC1{RI116fINSTR,1,ST$(I),"&",XX%:XX%0YXX%:7490:7270zII1167550ST$(I)""7380TFTRUE(ST$(I),1,1)">)""LW23LW24LW24NPR$(3)"C"āIIURLW:PRNT,II,1,BL$:II:7160Z:4500a (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"CB0ČPRNT,1,31:6760 Xb -I116:ST$(I)"":IUSST:T11:PR$(6)"TL"T1ST:SST2oISEN:F1:RI:4000ST$(IS1)TX$IKPČIPT,24,40,Z$:KP0:PRNT,24,1,BL$:Z$"Q"QFTR:7430UR(PR$(4)):PR$(4)""UR8 LW(PR$(5)):PR$(5OV$(OL$,1,2)""OT$(OL$,3)(,pTINSTR,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:PMPM1|PSPS1IXR2I(OI1):5100*OL$OL$OJ$1I>OIOIIXgOL$(OL$,12):OC$"09"OL$(OL$,6)INSTR,1,OL$,")",NN%:NNNN%:NN0CC$(OL$,4):6680CT$(OL$,NN1) INSTR,1,OL$,"(",NN%:NNNN% NN106680CC$(OL$,NN1)Ĩн¬̬Ǭ˨ԨˬǬǍʨн¬̬ǍԨн¬Ԩըн¬̬Ǭ˨ԨˬǬԨЩԨͬǬԨìըн¬̬Ǭ˨ԨˬǬԨìԨìԨìɨɨԨˬǬɨԨˬǬŨȨԨˬĬìȨɨԨˬԨԨˬĬìɨԨԨˬĬìԨ󠍢󮠠ɠ󮠠ɠ箠ɠ砠ɠ젠򮠠ɠɠɠɠ䮠ɠ堠堠ɠᠠɠ荢宠ɠɧ䠠堠ɠɧ堠󮠠ɠ𠍢󮠠ɧ砠ɠ箠嬠ɠ砠ᬠ󮠠ɠ󠠍򠠠󮠠ɠ򠠠堠ɠ堠蠍󩬠ɠ䠠󠠠󠠠砠󿠠堠򠠠宠ᠠ򠠠򮠠󮠠򠍢󍢠젍󮠠堠砠箠蠠렠󠠠󮠠򠍢젠젠٠䠠䮠Ũ卢栠笠箠纠砠砠ǠǠ忠󺠠笠笠󮠠Ũ砠獢砠Ũ堠纠魭纠󬠠󮠠砠䠠箠Ũ󮠠笠󮠠纠砠砠ǠǺ砠笠󠠠󺠠򠠠󮠠砠獢砠颠堍箠󍢠砠󮠠堠砭砍䠍堠砭砠砭砠砠砭砭砠栠ᠠ宠堠󺠠砭砠ɠ򠍢덢讠̭栠󮠠堠㮠ɠ箠ɠ卢砠뮠ɧ栠䠠纠򠠠笠⠠笠󠠠笠䍢穬󮠠Ũ򭭭򠠠纠嬠纍䠠󮠠Ũ䠠󠍢卢宠䍢ĠǠĠǠ󠠍򿠠Ũ䠠砭䍢砠砠󠠍󬠍笠砠砠Ũ堠纠Ũ纠䠠笠纠堠笠ᠠ򮠠䠠䮠卢箠Ġ砠砠ǠǠ䮠Ũ砠獢砠Ũ堠纠򭭭纠򠠍󮠠򠠠󮠠ᠠ宠򠠠ŨǠ堠􍢠􍢠㠠砭㮠򮠠򮠠àǠҠԠ󮍢򠠠Ũ󠠍忍䠠堠䠠蠠箠ǠǠ젠Ũ砠獢箠箠獢󮠠卢󮠠򠠠˭ǠΠ頍Ũ砠箠򠠍栠󮠍󮠠򠠠˭ΠӭΠ堠箠䍢󮠠宠렠󮠠Ũ堍(124):PRNT,10,20,(124)' Q$(124)i LR13:PRNT,LR,3,Q$:PRNT,LR,4,Q$:PRNT,LR,6,Q$:PRNT,LR,7,Q$ PRNT,LR,10,(124):PRNT,LR,11,(124):PRNT,LR,13,(124):PRNT,LR,14,(124) PRNT,LR,17,(124):PRNT,LR,18,(124):PRNT,LR,20,(124):PRNT,LR,RNT,LR,11,"OPS":PRNT,LR,18,"MKT"' V. [2Z `RS18:H10:W10:CS80:5000:RS37:5000v aRS67:5000:RS88:5000 bRS116:5000:RS135:5000  3 PRNT,10,4,(124):PRNT,10,18,(124):PRNT,10,13,(124) PRNT,10,6,(124):PRNT,10,11,  @he@C`DFCE`8 >? &?>e>>e??8>EFF` g ᤡ` { <=&`((((PPPP\\]]^^__\\]]^^__\\]]^^__󭭭򍢠󠠠󭭠򿠠٠󠠠Πԭ嬠㮠孭󠠠򠠠ӠŠ   󩠠젠堠󠠠󠠠ɠ䬠ɠ讠îɠѭ󠠠ɧɠﮠ®¬à堠宠젍􍢠󍢠򠠠宠󠠠󮠠栠®î򠠠堠堠󮠠堠󮠠0:I: 5SW RS1,CSRS1,CSW1 RS,CSWRSH,CSWH RSH,CSRSH,CSWc RSH1,CSRSH1,CSWi o p z NEXT SCREEN  PRNT,24,1,CP$:KP1  X b PAUSE l vI11500:I: vI11500:I: "I115021,(124)$ PRNT,6,29,"EXECUTIVE"; PRNT,11,29,"LINE"S PRNT,13,29,"STAFF"r PRNT,16,3,"FIN = FINANCE" (PRNT,17,3,"OPS = OPERATIONS" 2PRNT,18,3,"MKT = MARKETING" 6000 CHAIN,MP$"CMND.SUB",CV$ RS,CSRSH,CS RS,CSRS,C򠠠ĠԠŠ̠ͭԠ󠠠  ®ɠ䠠îɠ堠󮠠󠠠ɠ󮠠îɠ堠뮠ѭɠɠ䮠®ɧ⮠箠ѭ󠠠宠®ɠ箍îɠ卢ɠ󠠠ɠ󍢠堠宠î堍󮠠ѭӢɠ󠍢讠®ɠɧ堍ɠ箠ѭ󠠠堍ɠ®ɠ卢宠îɠ󠠠ɠ®ɠ蠠ɠîɠ堠ѭԠΠ                 ϭ㠭󠠠󩮠堠笠堠箠栠ͭ堠󮠠嬠笠箠򠠠堠󮠠堠宠ϭ堠堠젠砠庠Ϡ٠ήРĠǠӮΠנϠŠĠԠΠҮΠנϠΠŠŠĭРӠΠ٠ŠԠŠŠ٠٠ϠԠӮŠǠŠˠԠ䍢嬠ΠנϠŠӠĠӠȠ٠ٮ򠠠򠠠󮠠换宠ᠦ젠ᠦᠦᠦᠠᠦ堠󠠠󬠦򍢠庠󬠦򍢠򠠠󮠠젠®ɠɠɠ殍îɠɠ讠ѭ󠠠ɠ栠îɠ笠ɠ砍宠ѭ蠠堠宠®ɠɠ򮠠ѭ󠠠®ɠɠî젠ѭ󠠠PY,LO%32PRNT,10,6,"PLEASE WAIT WHILE PRINTING."93$; '10020*' ---CHARACTER ENTERED---C'HT38ĺ(7);:10020f'WW$WW$Z$:VT:HT:Z$:HTHT1q'10020w'.(16384)12812000.Z$((16384)128):49168,0.22 PLEASE WAIT MESSAGE22:720,43279,43:PUT,PX,T:HT:(CS);/ 8'(16384)128COCO1:10030P B'Z$((16384)128):49168,0\ L'Z(Z$)m V'Z13ī10190 `'(Z8Z127)10150 j' ---DELETE--- t'WW$""ĺ(7);:10020 ~'(WW$)1WW$"":10130 'WW$(WW$,(WW$)1)'HTHT1:VT:HT:" "216,0: (4)"PR#1"" 130008 I124:X$(I):IH (4)"PR#0"N [ X$(R)""l JS1E1128z IJJ39 X$(R)X$(R)((I)) I RR1 J  ' ---ALLOW EDITTING--- 'WW$"" $'COUNT0 .'CO13CO0:CS159CS:VSS2 \I fTSZJ pT:1:" ___________________________________"] uLRT:ZC4:415f z800z CO(10)2İ1000  X$(24) 2000  R1 S11024:E11920:2500 S11064:E11960:2500 S11104:E12000:2500 : b A$"1234567"D *B$"1-7 TO CORRECT, SPACE BAR TO CONTINUE."T +24:1:B$;o ,24:39:12000:Z(Z$) -J1100:J .T$(BL$,1,39):24:1:T$; 1Z32Z13ī900 4INSTR,1,A$,Z$,X% 9X%0ĺ(7);:811 >Z(Z$):S0 HI1Z1 R1))400,600) FCHAIN,MP$"CMND.SUB",CV$/ PM  FLASHING CURSORk LR(PR$(3)):ZC(PR$(4)) W$"":A16384:P995 VTLR:HTZC:10000 RP$(6)WW$""  XPR$(3)"5":PR$(4)"4":400 ]LR23LRLR3:ZC4:415:605 ^800 < a C01$INP 1.SUB --------> APPLE CONVER SION gs(KP55|)KP0*(16384)12842+KB$((16384)128):49168,02KB$"Q"KB$"q"QFTR:707T$(BL$,1,39):PRNT,24,1,T$ <(PR$(   (T2$,2,2):SR$(T2$,4,3):ER$(T2$,7,3):PG$(T2$,10,3)L OJ$(T2$,2,18)ROYd dOL$""R2OI:5100:ST(SR$):EN(ER$):IX(EX$):PA(PG$):OC$OP$IX0ĺ(4)"CLOSE"::(7):::"*** ERROR -> OI (";OI;") IS NOT CORRECT"::A$I PUT,PX,PY,LO%701,42279,426= QPRNT,LR,ZC,TX$W ^ {S1(S1$):S2(S2$):NN0JJ1S1S21(S1$,JJ,S2)S2$NNJJ:JJ10000JJ (4)"READ "F$(2)",R"R2:T2$8EX$(T2$,1,1):OP$BD:SI$" " IPT,22,38,Z$; Z$LW$Z$HG$ĺ(7):3030Z 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";RTX$,INSTR,1,PR$,"#",NN%:NNNN%:NN0ČPRNT,8,1,PR$:1940kPRNT,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:ZC38  CLRK0,1,SC$?UPR$(3)""PR$(3)"C""":PR$(5)""PR$(5)(18TP)IXTEEN^]A$(BL$,SQ):F1kbSQ1TQ{lIIST1TEqRII:4000rINSTR,1,TX$,"----------",A%sA%0IITEv(TX$,1)">"A%0ENII1:IITE2{SQTQENTEII768IPRNT,9SC,1,SH$(SC)%J1864DLPR$(8)""PR$(8)(10SC)bMPR$(4)""PR$(4)(9SC)iN |OI1920TP1PN140Q(OPT$(TP1(19I1)),N,1)"|"ČPRNT,I1,1," ":1875RPRNT,I,N,(OP$(TP1(19I1)),N,1)SN:ITPRNT,2I29% 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:TFTRUE0PR$(1)"P=0""":I29DPR$(I)""PR$(I)TG$(I)EI:GSC0HSCSC1:SH$(SC)""18S1$TX$:S2$"|":5000:NN0IEN1:1780@OP$(I(ST2))TX$LTPTP1SIhENST3TP1790zIST3TPENRI:4000SH$(I(ST2TP))TX$I KPLR24:ZC40:1610:KB$"Q"QFTRUE:17906740:TQ(PR$(1))W$(CC$,1):HG$(CC$,1):MN$LW$:MX$HG$QI110:OP$(I)"""":SH$(I)"""":IlF1:RST:4000:PR$TX$RST1:4000:TT$TX$RST2:4000:SC$TX$I140:(TT$,I,1)" "TG$(6)"TA""":I100ITP0IST3ENRI:4000*ZC40 NIPT,LR,ZC,KB$D OKB$((KB$)32((KB$)96(KB$)123))J TZ r6740:7010` wg | 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)"10"""(LIX QF0   % OF$CC$/ X$""F (4);"CLOSE"F$(1)_ "F$(1)MP$OF$".DAT"h 'QF0 ,(13)(4);"OPEN";F$(1);",L42" .(13)(4);"READ";F$(1);",R1":TY$ /(13)(4);"READ";F$(1);",R2":TZ$ 1 @ JLR23LR24 KRS$,1)" - " ZC40H 1600:INSTR,1,RS$,KB$,XX%:XX%0ĺ(7):1310\ -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)) X0O7010 LR24$ (RS$)111290- ZC7 TX$"":I17:TX$TX$(RS$,I,1)",":I:PRNT,LR,ZC,"Press "TX$"..., or "(RS$,1)" -" 1307 ZC28((RS$)2) 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      󬠠堠򠍢󮠠򠠠򠠠򠠠󮠠󬠍堠堍䍢󮠠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 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     ®򠠠󠠍纠嬠堠堠砠砠󠠠򠠠̮򠠠ͮ򠠠ή򠠠Ѯ򠠠Ʈ򠠠Ǯ򠠠Ȯ򠠠ɮ򠠠ʮ򠠠ˮ砠򠠠®򠠠î򠠠Į򠠠Ů򠠠䠠堠٠Ơ̠Ӯ젠宠򠠠䬠堠󠠠򠠠򠠠򠠠򠠠򠠠庠򠠠򠠠󡠠򠠠󠠍젠젠堠젍:P I/ C115C1167:C2176:C3161:1806 3B CLRKBD[ PRNT,24,1,CP$:KPTRy CHAIN,MP$"CMND.SUB",CV$ $3,13,"MANAGEMENT POSITIONS"1 d0,43279,43:RW8> nISTEN\ x(4);"READ";F$(1);",R";Ie TX$x PRNT,RW,1,TX$ RWRW1 I C115:C224:C39:5 I1520 C1.875,I82C2.875,I816 C1.875,I82C3.875,I88 P1500E C01$CHLI.SUB ------> APPLE CONVERSIONKW KP60`KP0v(16384)12830(KB$((16384)128):49168,02KB$"Q"KB$"q"QFTR:240<T$(BL$,1,39):PRNT,24,1,T$FPPUT,PX,PY,LO% Z3:PRNT,  z"#`x ðԠ  ðˮҠ ð̮ҠðٮҠ ðήҠà ðԮ  ðγԠ ҮԠ ð׮Ԡ ðծԠ ԠðԮԠ ӮԠðϮҠ !ðϮ ðɮ "ðɮ ðή  ðĮ  ðб  "ðγ®ԠQ ðˮ  ðѮ ðԮ  ðŮ ðӮ ðӮ  ð׮  Ӡðծ ðͮ ð̮ ðŮ "ð³Ԡ ðҮ͠%󺠍젠󠠠󠠠󠠠󠍢򠤵򠠍󮠠Ǯ򠠠ᠠ砠򺠠砠砍砠젠󠠠򠠠󮠠Ʈ򠠠㠠ᠠ䠠堠򮠠󠠠栠󠠍󠠠砠Ů򠠠纠栠젠Ġ宠򠠠󠠠蠠󠠠㠠󠠠򠱰젍򮠠Į砠砠砠ﭠ歭î򠠠溠䠠堍堠ᠠ󠠍󠍢砠砠󠠠󠠠宠󬠠󮠠Ȯ堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭堠򠠍󮠠Ӡ堠宠󠢭堠ӭ󠠠or Q to Quit."""F NP$" Space Bar to continue."""| BL$" """ KB$" ":SQ1:SA1 TY$BL$:TZ$BL$ 8192: ADDRESS OF BLOAD SCR FILESC eLO%16171: 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, B$()BE$()A%B%SE$()TP$PT$FR$"""P CV$CV$"R1!TC!TL!()QT!TT$()JD!UL!TG!T2!"""V t $CHAIN,MP$"CMND.SUB",CV$z . 8 Initialize B GF$(3) LOC3:SO21:OI3:T20 VF$(1)"AAAAAAAA.DAT""":F$(2)MP$"MSTR.OCM":TR1:FATR" `ADExecution  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$()SX!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$"C01$""" 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)"     栍纠蠠砠򮠠ʮ򠠠᠍ﭠ堠宠򠠠򺠠砠砠砠砠󠠠󮠍ɮ򠠠󠍢젠󠠠򠠍堍󮠠򠠠纠󠠠砠砠󠠠ðōҠˍðҠ栠򠠠󠠠ٍ 605 ^PRNT,24,1,CP$! _KPFA' bLL bW$(W$,(W$)1)3 ZCZC1:PRNT,LR,ZC," ":420_ Z13ČPRNT,LR,ZC," ":RP$(6)W$"":530u ZC38ĺ(7):420 (Z65Z90)Z32420 W$W$(Z):PRNT,LR,ZC,(Z):ZCZC1:420  XPR$(3)"5":PR$(4)"4":400 ]LR23LRLR3:ZC4:415:"İ600$ FCHAIN,MP$"CMND.SUB",CV$* PH  FLASHING CURSORf LR(PR$(3)):ZC(PR$(4)) W$"":A16384:P995 IPT,LR,ZC,Z$ Z(Z$) Z96Z123ZZ32 (Z8Z127)W$""420 Z8Z127490 (W$)1W$"":480 ) F C01$INPU.SUB --------> APPLE CONVERSIONLX(KP55a)KP0w*(16384)12842+KB$((16384)128):49168,02KB$"Q"KB$"q"QFTR:707T$(BL$,1,39):PRNT,24,1,T$<(PR$(1))400,600 =PR$(1)"1   堍ͮ򠠠䠠󠠠󠠠砠󠮠̮򠠠堠󬠠纠󠠠󠠠堍򮠠󠠠蠠󠠠栠젠堍ˮ򠠠 )ЀЂԂԂך׺׺ժժݮݯի0 KP0(CHAIN,MP$"CMND.SUB",CV$O2:5:"PERSONAL DEVELOPMENT PLAN"[I324}FL%(I)0ĢI:1:TT$(I);:770I:1:TT$(I);:770II1500:I 0I 0 hFC%(10)10:FL%(12)16:FR%(12)60:FC%(12)12:FR%(13)12:FC%(13)13 mFL%(15)38:FR%(15)38:FC%(15)15:FR%(16)12:FC%(16)16:FL%(18)34 rFR%(18)42:FC%(18)18:FR%(19)12:FC%(19)19:FL%(21)34:FR%(21)42 wFC%(21)21:FR%(22)12:FC%(22)22l::69TT$(23)" ___________________________________"? FL%(3)24M FR%(3)22Z "FC%(3)3h ,FR%(4)12u 1FC%(4)4 6FL%(6)29 ;FR%(6)47 @FC%(6)6 EFR%(7)12 JFR%(8)12 OFC%(7)7 TFL%(9)27 YFR(9)49 ^FC%(9)9 cFR(10)12C _____________"7 TT$(16)"5. MENTOR (EXPERT ADVICE):"l TT$(17)" ___________________________________" TT$(19)"6. OBSERVE EXEMPLARY PRACTICE:" TT$(20)" ___________________________________" TT$(22)"7. JOURNAL (DIARY OF LEARNING):"1 AL, BOOKS):"@ TT$(8)" ___________________________________"m TT$(10)"3. COURSE(S) (PLACE AND TIME):" TT$(11)" ___________________________________" TT$(13)"4. WORKSHOP/SEMINAR(S) (PLACE AND DATE):" TT$(14)" ______________________C4 nFT7 xI125% FL%(I)0, I: J4253G FL%(J)1N JZ K125h TT$(K)""o K TT$(4)"1. COMPUTER BASED LEARNING (LIST TITLES):" TT$(5)" ___________________________________" TT$(7)"2. READING PROGRAM (JOURN9 C01$FORM.SUB --------> APPLE CONVERSION?KKP80T(KP0j2(16384)12850<KB$((16384)128):49168,0FKB$"q"KB$"Q"QFTR:660PT$(BL$,1,39):PRNT,24,1,T$ZFD$(25),FC%(25),FR%(25),FL%(25),TT$(25) dT     ®îﬠ젠󮠠󠠠􍢠젍󮠠堠Ӯ젠󮠠򠠍󮠠砠󠠠򠸰젠󠠠젠󮠠򠠠󍢠򠠠򿠍㢭򠠠򠠠                                        ʀЀժժժ <5ժժժՌՀՀر挳ر  ,QL,1)) I J KP0< CHAIN,MP$"CMND.SUB",CV$B 62021070822092324041618051719031315021214011011"> PA$SA$(1)M ZI1(A$) dI9RS6((A$,I,1)):A$(A$,I1)((RS),1)(A$,I1):K0 nI xSP0 J18 SPSP1 I13 KK1 QL((QL$,(K1)21,2)) TL(SP)TL(SP)((A$CD C01$EVAL.SUB ------> APPLE CONVERSIONJV KP60_KP0u(16384)12830(KB$((16384)128):CLRKBD2KB$"q"KB$"Q"QFTR:220<T$(BL$,1,39):PRNT,24,1,T$AI19BTL(I)0CI0 FQL$"0  (42);3);:4600J!2);."K1115N,TL(QN)Kĺ(79);4);:4700o6TL(QN)Kĺ(42);4);:4700v@KJ4);(124);27);(124);14);(124);28);(124)T5);(N$,28);(N$,15);(N$,28)^7);A$(EM)r(12)| I7I10ĺà5);(N$,28);(N$,15);(N$,28)U4);(124);27);(124);14);(124);28);(124)f4);(124);qI37TL(QN)Iĺ4);(79);:4500TL(QN)Iĺ4);(42);:4500I2);J810TL(QN)Jĺ(79);3);:4600TL(QN)Jĺ______"  $ TL(QN)3TL(QN)36 (10):(10)B J315[ TL(QN)JRWJ:J100b Jr RWRW1:E5 ERW);(95);(95);(95);(95) ERW);(124);(124);(95);(95);(124) ERW);(124);(124) ERW);(124);(124) !$(6)"RISK-TAKING"(BL$,40)(BL$,12)"CAUTION"cA$(7)"FEELING"(BL$,40)(BL$,13)"THINKING" A$(8)"HOLISTIC"(BL$,18)"<- THINKING ->"(BL$,23)"LINEAR"N$"-----------------------------------------------------"M$"__________________STENING";A$(2)"SPEAKING"(BL$,40)(BL$,14)"WRITING"lA$(3)"DOING"(BL$,40)(BL$,16)"WATCHING"A$(4)"STRUCTURED"(BL$,16)"<- LEARNING ->"(BL$,17)"UNSTRUCTURED"A$(5)"TASK"(BL$,22)"<- ORIENTATION ->"(BL$,19)"PROCESS"0A(4)"MANAGER"CO(8)17RP$(4)"MNGR./OWNER"CO(8)2=MCO(10)1ıW2000pRW16:T$(BL$,1,40) FOR I = 1 TO 8: CALL PRNT,RW,1,T$: RW=RW+1:NEXT IVEMQN:(4)"PR#1"`3000:4000tA$(1)"READING"(BL$,40)(BL$,13)"LIENEN14#%(PR$(2))8ENEN120*ISTENN4(4);"READ";F$(1);",R";IW9TX$a:8000t;PRNT,LC,1,TX$>LCLC1I PUT ANSWERS IN RP$V626:RP$(V6)"":V6V626RP$(V6)UA$(V61)V6RP$B + 18) * .875,RT + 10 !KP06PR$(1)"3"KP1gPR$(1)"9"PR$(1)"2"ČPRNT,24,1,CP$:KP1m~P11000:PKP0 LC2 STST4!(PR$(2))4STST1"(PR$(2))5ENEN14#(PR$(2))6ENEN11 $(PR$(2))7TQ(CT1).875,RT(CB1).875,RT(CB1).875,RB(CT1).875,RB(CT1).875,RT(CB1).875,RT(CB16).875,RT(CB16).875,RT10(CB1).875,RT10(CB1).875,RT(CB17).875,RT(CB17).875,RT10HPLOT(CB + 18) * .875,RT TO (CN)3 DC133930 NNMTL(QN)TCC11:C140< XNMNM1D bC1\ {T$(SP$,1,39):RW5 PR$(1)"4"āI111:PRNT,RW,1,T$:RWRW1:I RTR124 CTTC828 RBR1 CBTC868CT.875,RTCB.875,RTCB.875,RBCT.875,RBCT.875,R13 TI rI13) |PRNT,RW,C1,"*"5 C1C13< IG I15[ PRNT,RW,C1,"*"g C1C13n Iw NM3 RW22 (4);"READ";F$(1);",R";ST TX$ PRNT,22,1,TX$ &KP0 0 1P1100:P 3 :NM3:5 ?TL(QN)3TL(Q(9)TX$"":CO(3)2 ! 130* 6:4 RW20= C12O R1(RW1)84] R2RW84 0,147278,148278,1640,1640,147 119.875,R1119.875,R2:192.875,R1192.875,R2 120.875,R1120.875,164 ,I15 6PRNT,RW,C1,"*" JC1C0:1000% nCHAIN,MP$"CMND.SUB",CV$+ x TL(QN)7TL(QN)11ĺ(4);"READ";F$(1);",R";ST3:TX$:RP$(9)TX$"":CO(3)3:160 TL(QN)8ĺ(4);"READ";F$(1);",R";ST1:TX$:RP$(9)TX$"":CO(3)1:160 TL(QN)10ĺ(4);"READ";F$(1);",R";ST2:TX$:RP$CO(9)QN! 4PR$(1)"9"QNCO(9)- 7CLRKBD9 8CO(8)0B 9935d <PR$(1)"1"T2T21:170:780y FPR$(1)"2"İ570 PPR$(1)"3"T2T21:170:780:570:5000:1000 ZPR$(1)"4"İ570 dPR$(1)"8"İ935 iPR$(1)"9"LC2:7000:810:570:500N C01$SCLE.SUB -------> APPLE CONVERSIONT` KP40iKP0(16384)12820KB$((16384)128):49168,0#KB$"q"KB$"Q"QFTR:110(T$(BL$,1,39):PRNT,24,1,T$ 2QN(PR$(2)):PR$(1)"1"     "宠򠠠ᠠ˨˨砠堠庠젠󮠠󠠠󮍢堠堠󠠠堍Ơ䠠󠠠纠젠宠ή򠠠󬠠纠蠠砠󠠠ЈЪЪШժժժՎ c5,ժժժՎ࿀僀倀倀倀ǁ偀ŁŁ񀾀ŁŁŃǃ  LPRNT,3,1,T$:RW3! VISTEN? `(4);"READ";F$(1);",R";IH jTX$[ tPRNT,RW,1,TX$g ~RWRW1n I} PR$(4)"0" KP0 CHAIN,MP$"CMND.SUB",CV$< C01$SCRE.SUB ------> APPLE CONVERSIONe DATE : 3-3-84sKP1080|KP0(16384)1281050$KB$((16384)128):49168,0.KB$"Q"KB$"q"QFTR:11908T$(BL$,1,39):PRNT,24,1,T$BA9$TX$:8SL$(TX$,2).BML$(TX$,3,2)ALAN$(TX$,5,2)RVF9$(TX$,7)d`F1$(TX$,20)yjF2$(TX$,21,20)tME$(TX$,41)~쮠ԠƠ٠ӠԨˬǬͨбΨԨͬ¬ìЬϨөԨ˩ϨɩϨɩϨɩԨˬ¬ԨˬĬǬԨˬìǬԨˬǬϨөϨөŨԨˬǬԨˬìǬԨˬ¬ŨŨŨŨŨŨŨŨŨŨŨŨԨŨŨŨŨŨŨŨŨŨŨŨŨŨṴ̠̃ԨˬǬԨˬìǬԨˬĬŨԨˬ̬ԨˬǬԨˬìǬԨˬìǬԨˬìǬը˨Ԩˬ¬ΨԨˬ¬ìЬγ ࠚՀЪժժժժժ՚ k=(ժժժ՚Ùՠꀀ럀瀀぀぀΁ӪժժՀࠚ𣚋𡚋2)" "RP$(A1)(AS$,I1):I(AS$)1-I4AL(4);"CLOSE";F$(2)eF$(2)MP$"MSTR.OCM" (4);"OPEN";F$(2)",L"SOKP0(KB$"1"CO(8)2)KB$"1"CO(8)124);"CLOSE";F$(2))F$(2)MP$"MSTR.OCM"F(4);"OPEN";F$(2)",L"SOLd(4);"CLOSE";F$(2)|F$(2)"ANSWERS.DAT"(4);"OPEN";F$(2)",L22"AS$(F$(2),20)A1(PR$(2))(4);"READ";F$(2);"R";STA1I1(AS$)&(AS$,I,":11058ZC38ĺ(7):9600BZ65Z90960]LW$W$(Z):PRNT,LR,ZC,(Z):ZCZC1:960cQ{V(4);"CLOSE";F$(2)[F$(2)"ANSWERS.DAT"`(4);"OPEN";F$(2)",L22"jAS$(RP$(CP),20)~(4);"WRITE";F$(2)",R"SXCP2(34)AS$(IW$"":A16384'P995:70FG0BIPT,LR,ZC,Z$NZ(Z$)eZ96Z128ZZ32(Z8Z127)W$""960Z8Z127ī1070(W$)1W$"":1060W$(W$,(W$)1)$ZCZC1:PRNT,LR,ZC," ":960.Z13ČPRNT,LR,ZC," he organizational context you"V>PRNT,23,2,"would choose. Limit your answer to 10"RPRNT,24,2,"characters; press RETURN-"\LR24:ZC29f930pRP$(CP)(W$,1,10)""zI1500IT$(BL$,1,39):RW22:I12:PRNT,RW,1,T$:RWRW1:$(CP)"VOLUNTEERS""";RP$(CP)"COMMUNICATIONS"""A]RP$(CP)"GOVERNMENT"""cRP$(CP)"HIGH TECHNOLOGY"""RP$(CP)"HUMAN SERVICES""" T$(BL$,1,39):RW22:I12:PRNT,RW,1,T$:RWRW1:I*PRNT,22,3,"Type t:I & 0CP6! :RP$(CP)""X D(KB$)64610,630,650,670,690,710,730,750,770,790b N1110h X bRP$(CP)"MANUFACTURING"" " l vRP$(CP)"SCHOOLS"""  RP$(CP)"RETAILING"""  RP$(CP)"RELIGION""" RPe."8 PRNT,21,2,"Limit your answer to 10 characters,"\ PRNT,22,2,"then press RETURN-"} T$(BL$,1,2):PRNT,22,29,T$ LR22:ZC29:930 1080 RP$(CP)(W$,1,10)"" I1500 I T$(BL$,1,39):RW19:I15:PRNT,RW,1,T$:RWRW1)""# 6(KB$)64340,360,380,400- @11103 JO TRP$(CP)"OPERATIONS"""U ^n hRP$(CP)"FINANCE"""t r |RP$(CP)"MARKETING"""  T$(BL$,1,39):RW19:I15:PRNT,RW,1,T$:RWRW1:I PRNT,20,3,"Type the category you would choosCP)"MIDDLE"""3 KB$"E"RP$(CP)"EXECUTIVE"""T KB$"U"RP$(CP)"UNSURE"""^ 1110d m CP3| RP$(CP)"" KB$"L"RP$(CP)"LINE""" KB$"S"RP$(CP)"STAFF""" KB$"U"RP$(CP)"UNSURE""" 1110  "CP5 ,RP$(CP1190,80 <TT$""0 FCHAIN,MP$"CMND.SUB",CV$9 PCP4H ZRP$(CP)""v dKB$"1"RP$(CP)"MNGR./OWNER""":CO(8)2 nKB$"2"RP$(CP)"MANAGER""":CO(8)1 x1110 CP2 RP$(CP)"" KB$"S"RP$(CP)"SUPERVISORY""" KB$"M"RP$( 9 C01$JOBK.SUB ------> APPLE CONVERSION?K KP30TKP0j(16384)12816KB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:70T$(BL$,1,40):PRNT,24,1,T$(DD(PR$(1)) 2(PR$(1))140,220,80,290,560,     䠠堠󮠠堠󮠠䠠栠䠠젠堠렠䠍堠堠ﺠ堠堠򠠠堠ߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN $ pPRNT,RW,1,TX$ rRWRW1' I3 I211_ RR(I1)0ĺ(4);"READ";F$(1);",R";ST1 TX$:PRNT,RW,1,TX$:RWRW1 I CLRKBD PRNT,24,1,CP$ 49168,0 KP1 ,CP$ 49168,0 KP1 0 RF%0RR((PR$(2)))1" P1500) PF RP$(2)((PR$(2))1)""O KP0U m QT9QT17CO(1)1 QT16QT25CO(1)2 QT24QT31CO(1)3  , 66 J3:0,43279,43:RW8 hISTST1 m(4);"READ";F$(1);",R";I nTXP$"CMND.SUB",CV$ < FQT0, ZRR(10)5 d150; nD x150M 250S } X$PR$(2):INSTR,1," 1 3 5 7 9",X$,F% F%0A3:B2:C1 F%0A1:B2:C3 KB$"A"QTQTA:F%0RR((PR$(2)))1 KB$"B"QTQTB KB$"C"QTQTC:B C01$TENQ.SUB ----->APPLE CONVERSIONHT KP36]KP0s(16384)12825KB$((16384)128):49168,0#KB$"Q"KB$"q"QFTR:50$T$(BL$,1,40):PRNT,24,1,T$((PR$(1))70,150,120,280 2CHAIN,M   ><< ȱ=<&''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    2)"":CK$(3)"":CK$(4)""$(#10000B#CHAIN,MP$"CMND.SUB",CV$H'a' Next Screeng$'p/'KP1w3'78'PRNT,24,1,CP$:KPTRt'*AA21:BB33*CK$(4)"4"AA0:BB13+IAABB:(X1).875,YI(X112).875,(Y1)I:I: :)CK$(4)(PR$(1),4,1)0CK$(1)"1"İ1520qCK$(2)"2"İ1520:7:PRNT,20,7,"Supervisory-Level Managers"CK$(3)"3"İ1500:7:PRNT,20,10,"Middle-Level Managers" CK$(4)"4"İ1450:7:PRNT,20,8,"Executive-Level Managers"@CK$(1)"":CK$(X114).875,Y1(X1.875),Y1q O(X1.875)1,Y1(X1.875)1,Y114(X113).875,Y114(X113).875,Y1(X1.875),Y1 PCK$(2)"2"CK$(3)"3"Y1Y20:X1X26X3621:11000:X1 T CK$(1)(PR$(1),1,1) CK$(2)(PR$(1),2,1)CK$(3)(PR$(1),3,1IX20X2020:I.8751,Y10I.8751,Y20:I^ IX20X2020:I.875,Y10I.875,Y20:I "Y1Y20:X1X26X3621:1590:X1 , 6 Draw a box at X1,Y1 with color C2 bordered by C1 E3 J(X1.875),Y1(X1.875),Y114(X114).875,Y114( CK$(3)"3"ıV X57:Y87:1530:X138:Y87:1530:X238:Y87:1530:CK$(2)"2"ıh CK$(1)"1"ır 2000  Draw three boxes with lines at X,Y X.8751,YX.8751,Y10 X.875,YX.875,Y10 (X20).875,Y10(X20).875,Y10. 258100:I.875,25I.875,37:IM I58258100:I.8751,25I.8751,37:Ia  PART 5 Y137:X152282100:1590:X1 CK$(4)"4"X1153:Y0:11000:X152:Y37:11000:X1152:Y37:11000:X1252:Y37:11000: Y52:X58278100:1530:X ORGANIZATIONAL HIERARCHY HART& , K PRNT,1,3,"Organizational"e PRNT,2,3," Chart"~ X1153:Y10:1590:3 158.875,15158.875,25:58.875,25258.875,25 (158.875),14158.875,24 (158.875)1,14158.8751,24 I58KP1005KP00(16384)1281002RKB$((16384)128):49168,0sKB$"Q"KB$"q"QFTR:9100T$(BL$,1,39):PRNT,24,1,T$ C01$CHRT.S UB --------> APPLE CONVERSIO N x        :H33:W20:3 - $RS67:CS17:5000C )PRNT,4,11,"PRES"I 8P =3| BRS65:CS50:W20:H30:5000:RS17:5000 LRS115:5000 N3:35,44126,44 OLR6:PRNT,LR,5,(124):PRNT,LR,12,(124):PRNT,LR,19,(124)! QLR8:PRNT,LR,4,"FIN":P  KP60KP0,(16384)12830N(KB$((16384)128):49168,0g2KB$"Q"QFTR:4000<T$(BL$,1,39):PRNT,24,1,T$ CO1$0CHT.SUB -- ORGANIZATIONAL CHART -- APPLE CONVERSION 3/9/84  ;",R1":(34)X$L90%D UPDATE INDEX RECORDJ\F2:R1:6100jL$(SL%)~TX$L$(TX$,3)(4)"WRITE USER.DAT ,R1" TX$ GET TEXT(4);"READ";F$(F);",R";RTX$F26200 0000000000000",M%)GX$F1$(BL$,20(F1$))F2$(BL$,20(F2$))ME$p(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)TX$ 0 K": (4);"CLOSE";F$(1)JD F$(1)S1$:(4);"OPEN";F$(1);",L42"Pj-------------------- ADD NEW USER --------------------ULSL%SL%SL%1:SL%6SL%2SX(UL2)T91:EASXT9F1$PF$:F2$PL$:ME$("0000000UA$(T9)  (4);"CLOSE";F$(1)R F$(1)"ANSWERS.DAT":(4);"OPEN";F$(1);",L22"] FIELDy 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:LFFA9F$(2)S2$:(4);"OPEN";F$(2);",L";SO? Y --------------------n USER EXISTS -------------------- FD1 ULI:I100 INSTR,1,ME$,"1",II%:L9II% L90LFTR  INIT ANSWER LOC  T910------------ozL90LR18: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";D FIELD: F2:R1:6100:M%(ML$):SL%(SL$):A$AN$H T9(AN$)Q FD0\ I26n *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):13154 ZZ65Z901315^ dPRNT,LR,ZC,Z$:W$W$Z$:ZCZC1:1315d xz ---------------- FIND/INSERT NAME ---------------- (4);"CLOSE";F$(2) F$(2)"USER.DAT" (4);"OPEN";F$(2);",L";JD2  FIELX123PL$(PL$,I1)(X32)(PL$,I1)/ I5 ; L  NAME INPUTR \ W$""v #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$1 tLR12:ZC14:1280:PL$W$" "C 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))( X963:PUT,PX,PY,LO%H 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:  C01$NAME.SUB"JS1$F$(1):S2$F$(2):SAVE FILENAMESsKPČIPT,24,40,Z$:Z$"Q"QF1:1042}JD421050:2000CLRKBDPRNT,24,1,NP$KPTR:CHAIN,MP$"CMND.SUB",CV$$ NAME.8:7 =0,43279,4     笠砠堠󬠠箠ߠ堠砍䮠孠䠠ߠ堠¬ÿ栠󮠠堠¬ÿ򠠠笠䠠箠堠笠堠笠䠠堠䮠젠堠¬ÿߠ쭭堠¬ÿߠ䠠䠠笠堠箠堠堍筠T,24,1,CP$:KP1 49168,0" :/ DP13006 NP< X96Z123ZZ32:Z$(Z)k &Z$"Q"QFTR~ 0Z$"Q"QFFA 5KPFA : DP1300 NP X" 0Z$"Q"QFFA 5KPFA : DP1300 NP X0 TW((TE$,CO,2))" JBGENA (4);"READ ";F$(1);",R";JJ TX$c TX$(BL$,1,40)320x XX$(TX$,11,30) "PRNT,TW,12,XX$ ,TWTW1 6J @CC3 JCOCO2 TBGJ1 ^580 hI r480 CHAIN,MP$"CMND.SUB",CV$ PRNPI$" 28 92144" nTE$" 41319"6 xPL$(1)"BOOK.SCR"L PL$(2)"DIPL.SCR"b PL$(3)"MONY.SCR"o A%(414) (4);"READ";F$(1);",R";ST TX$ PRNT,2,1,TX$ I13 (4);"BLOAD";MP$PL$(I);",A";AD PW((PI$,C,3)) PUT,9,PW,AD>E C01$JDES.SUB ------> APPLE CONVERSIONKW KP40`KP0v(16384)12825KB$((16384)128:49168,0#KB$"q"KB$"Q"QFTR:390$T$(BL$,1,39):PRNT,24,1,T$(<C1FCO1ZBGST2 d   砠󭭭򠠍󺠠堠󠠠ᠠ砠堠󠠠堠󠠠̺堠Ӻ栠պ堠򠠠换󺠠䠠뮠嬠쬠笠堠󮍢堠󮠠󍢠堠쬍堠󠠠򠠠嬠ᠠ栠󺠠󠠠Ӻͺ堠ź堠պ堠򠠠嬠쿠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) . z!" " """""""䠠堠栠箠獢婮砠򠠠宠  ERROR ) (7);(7);(7)/ 6 G GET RECORDMk(4);"READ";F$(1);",R";RtTX$z10 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       庠󠠠®堠î砠Į򠠠,PX,PY,LO%7/PRNT,10,6,"PLEASE WAIT WHILE PRINTING."=/.; '10020*' ---CHARACTER ENTERED---C'HT35ĺ(7);:10020f'WW$WW$Z$:VT:HT:Z$:HTHT1q'10020w'*(16384)12811000+Z$((16384)128) +49168,0+.. PLEASE WAIT MESSAGE..:7 /0,43279,43:PUTT:HT:(CS);/8'(16384)128COCO1:10030PB'Z$((16384)128):49168,0\L'Z(Z$)mV'Z13ī10190`'(Z8Z127)10150j' ---DELETE---t'WW$""ĺ(7);:10020~'(WW$)1WW$"":10130'WW$(WW$,(WW$)1)'HTHT1:VT:HT:" ""PR#1"#12000'#I124:X$(I):I7#(4)"PR#0"H#TG3ĺ(12)N#[%X$(R)""l&%JS1E1128z0%IJJ39:%X$(R)X$(R)((I))D%IN%RR1X%Jb%' ---ALLOW EDITTING--- 'WW$""$'COUNT0 .'CO13CO0:CS159CS:VRW16C14 RW17ī6200/LRRW:ZC4>HT1:VTRWI10000YT10ī6010iT11ī6200q8:@P1500:PJ(#X$(24)#R1#S11024:E11920:9500#S11064:E11960:9500#S11104:E12000:9500#216,0:#(4)500 BRST:C1,NT$" 810141617";IBRBR1PRW((NT$,C,2))n(4);"READ";F$(1);",R";IwTX$RW:1:TX$CC2IIENİ8000::IENİ8000:BRI:5020pC1uNT$" 810141617"zRW((NT$,C,2)):CC2___________________________________"513:1:"2."g14:1:"___________________________________"16:1:"___________________________________"PR$(2)"S"İ5000PR$(2)"I"C117:6000PR$(2)"S"Ģ24:1:P1$;:KP1PR$(2)"S"İ___________________"*(PR$(2)"S"İ5000F2PR$(2)"I"C117:6000h7PR$(2)"S"Ģ24:1:P1$;:KP1~8PR$(2)"S"İ500<A1000P5:3:"MANUAL AND TECHNICAL:"_7:1:"1."d8:1:"___________________________________"$x10:1:", 5:3:"INTERPERSONAL: (VERBAL SKILLS)"< 7:1:"1."m 8:1:"___________________________________" 10:1:"___________________________________" 13:1:"2." 14:1:"___________________________________"16:1:"________________11ı y13:1:"2."H ~14:1:"___________________________________"z 16:1:"___________________________________" T11ı PR$(2)"S"İ5000 PR$(2)"I"C117:6000 PR$(2)"S"Ģ24:1:P1$;:KP1 PR$(2)"S"İ500  10001:8:"PERSONAL DEVELOPMENT PLAN"4  STCOL = 20G 3:3:"WHAT:"M $W )1000 85:3:"INFORMATIONAL: (IDEAS, CONCEPTS)" B7:1:"1." L8:1:"___________________________________" j10:1:"___________________________________" tTZ1T11:1100:HT1:VT8:6065:VT10:HT1:6065:500p Z2T11:1150:HT1:VT14:6065:VT16:HT1:6065:500y &T10 0CO(10)2TGTG1:9000 : KP1:CHAIN,MP$"CMND.SUB",CV$ ::T10 P1$" SPACE BAR TO CONTINUE, OR Q TO QUIT."# ECT, OR ") D$"SPACE BAR TO CONTINUE."D 23:1:B$:24:1:D$;_ 24:24:11000:Z(Z$)w 24:24:Z13ĺZ$; G$"12"(32)(13):INSTR,1,G$,Z$,X% X%0ĺ(7);:24:24:" ";:506 T$(BL$,1,39):I2324:I:1:T$;:I Z(Z$)5 ? C01$INFO.SUB+ KP604KP0J(16384)12830l(KB$((16384)128):49168,02KB$"Q"KB$"q"QFTR:905<T$(BL$,1,39):PRNT,24,1,T$d(PR$(1))1065,1215,1345iCHAIN,MP$"CMND.SUB",CV$ B$"NUMBER TO CORR!! ! ! ! ! !!!!!!!!(TX$,40)^                                㠭򮠠խ˨砠󠠠ʮ򠠠󠠠Πᮠ󠠠Į󠠠Ů󠠠Ʈ󠠠ǮȮɮ򮠠󠠠®󠠠à󠠠󠠠󠠠󠠠󠠠󠠠젍嬠纠(1)1 Z$""  KP0* CLRKBDK "PRNT,24,1,NP$:IPT,24,40,Z$X 649168,0^ @h J(7)r T(7) ^PRNT,24,15,"TRY AGAIN" hI11000:I rT$(BL$,1,39):PRNT,24,1,T$ |T$(BL$,1,2):PRNT,22,34,T$ 85c)3ĺ(7)- }CO(1)1CO(1)3ČPRNT,22,34,Z$K CO(1)1CO(2)2CO(2)2t (PR$(5))1CO(2)2CO(1)2CO(4)2 (PR$(4))1CO(2)2CO(1)3CO(3)3:CO(2)0 PR$(6)"1"Z$"A"330 PR$(6)"2"Z$"C"330 PR$(7)"1"Z$"B"330 CO";F$(1);",R";I <TX$* APRNT,RW,1,TX$6 BRWRW1= FIE H80N K280l MCHAIN,MP$"CMND.SUB",CV$ PT$(BL$,1,1):PRNT,23,34,T$ U49168,0 ZIPT,22,34,Z$ _Z(Z$) dZ96Z123ZZ32 nZ$(Z) sCO(1)(Z$)64 xCO(1)1CO(1: C01$CHOI.SUB ------> APPLE CONVERSION@L KP40UKP0k(16384)12825KB$((16384)128):49168,0#KB$"Q"KB$"q"QFTR:77(T$(BL$,1,40):PRNT,24,1,T$)CLRKBD-RW192ISTEN 7(4);"READ