' +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-( Ӡ@跻~!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`Ĺ36,DT(I,3)C12:CX$(C);:C1ĢRW:36,DT(I,3):(BL$,DT(I,1)21);:RW1:36,DT(I,3)1:(BL$,DT(I,1)2);r>3C>3C113320>4 IF I = 1 THEN GOTO 11316>413220>4J1C1:X$X$CX$(J):J> 4NO SPECIAL CHECKS ON ACT, PART, TASKS 3,4,5)?X4DXNSWER TO 26 CHARACTERS OR LESS.";:P1500:P:13113=3CX$(C)(8)ĭC1CC1:R1((C1)H):C1CHR1:RWR1:36,DT(I,3)C12:" ";:TDTR:13220=3(CX$(C))32ČBEEP:13220=3BFFA:CX$(C)(13)(CX$(C))31(CX$(C))127(CX$(C))2BFTRk>3BF9<3CX$(C)(13)TDTR:13310: next item Y<3CX$(1)(61)ĭEDTD13430x<3CX$(1)(61)ČBEEP:13220<3CDT(I,1)1ČBEEP:Q2224:Q:36,0:(BL$,39);:Q:22:36,0:"INVALID ENTRY; REENTER. LIMIT YOUR";4=3CDT(I,1)1Ģ23:36,0:"ARWRW108;93RW:36,DT(I,3)1:F70ĺ(BL$,DT(I,1)2);i;;3RW1:36,DT(I,3)1:F70ĺ(BL$,DT(I,1)2);y;@3HDT(I,1)2;3C1DT(I,1)1:R1((C1)H):C1CHR1;3RWR1:36,DT(I,3)C12:TIPT,CX$(C);3(CX$(C))113220<3EDĭCX$(1)(13)13220(BL$,39);:22:36,0:"TYPE IN THE PARTICIPANTS IN";:23:36,0:(BL$,39);:23:36,0:"THIS ACTIVITY AND PRESS RETURN.";:43EDI5Ģ22:36,0:(BL$,39);:22:36,0:"TYPE IN THE SUBJECT AND";:23:36,0:(BL$,39);:23:36,0:"PRESS RETURN."; ;53TD0:I5TO CONTINUE.";9.692ENTER ACT, PART, TASKS 3,4,5B92CLRKBDL93X$""W9,3I35`9.3600903EDĢ1:36,0::22:I3ĺ(BL$,40);:22:36,0:"TYPE IN THE ACTIVITY AND";:23:36,0:(BL$,40);:23:36,0:"PRESS RETURN."w:23EDI4Ģ1:36,0::22:,DX$(R2,9)(M):SK%FA:BP%FA$8,/8,1300058,g8,RWI1:36,DT(I,3)IC1:(BL$,DT(I,1)):IC0m8-s8.|8.6008.22:36,0:"TYPE IN THE TIME OF THE ACTIVITY.";9.1:36,0::23:"IF YOU HAVE ENTERED ALL YOUR ACTIVITIES PRESS ONLY RETURN 30 7,INSTR,1,DX$(R2,I),":",J%X7,H(I)((DX$(R2,I),J%1)):M(I)((DX$(R2,I),J%1))_7,I7,M1H(1)60M(1):M2H(2)60M(2):M2M1M2M27207,X$""7,X$(R):RW1:7,MM2M1:RW:3(X$):X$;:RW10:36,40((M))1:M;7,EDB(X$)82ČBEEP:K2224:K:36,0:(BL$,39);:K:22:36,0:"MINUTES MUST HAVE 2 DIGITS;";6,B1āK2224:K:36,0:(BL$,39);:K:22:36,0:"EXAMPLE 9:03";:11500:X$"":111106,DX$(R,I)X$:SK%FA:BP%FA6,Q2324:Q:36,0:(BL$,39);:Q7,X$"":114"":111045j,H(I)((X$,J%1)):H(I)1H(I)12İ600:BEEP:1:36,0::24:"HOURS MUST BE 1 THROUGH 12 ";:X$"":11500:111105t,M(I)((X$,J%1)):M(I)0M(I)59ČBEEP:600:1:36,0::24:"MINUTES MUST BE 00 to 59";:X$"":11500:11110S6~,(X$)J%C1(X$)/4N,Q2224:Q:36,0:(BL$,39);:QU4V,A((X$,C,1)):A48A58113604[,22:36,0:(BL$,39);:23:36,0:(BL$,39);:22:36,0:"TIME MUST BE NUMERIC";:X$"":11500:111104`,C4e,INSTR,1,X$,T$,J% 5f,(X$)4(X$)5ČBEEP:11500:X$ 31,S$"DONE"-32,S$"DONE"R1CO(2)2:874T34,Q2224:Q:36,0:(BL$,39);:Q:q38,J1C1:X$X$CX$(J):J39, SPECIAL CHECKS ON TIMES 1,2 3;,B03<,K1(X$)3=,T$":":A$(X$,K,1)3>,A$T$BB13?,K3@,B1ČBEEP:B0:X$"":11391 4L,2224:Q:36,0:(BL$,39);:Q:11500:11110v2+CX$(C)(13)(CX$(C))31(CX$(C))127(CX$(C))2Ĺ36,DT(I,3)C22+CDT(I,1)1ĺCX$(C);2,C1IC1:11500:RWI1:36,DT(I,3)C22,CX$(C)(13)CDT(I,1)2,C2.,C11132020,I1112201)ĭED1142201+CX$(1)(61)ĭEDČBEEP:11220i1+CX$(C)(8)ĭC1CC1:36,DT(I,3)C2:" ";:112101+(CX$(C))32ČBEEP:112201+CDT(I,1)1āQ2224:Q:36,0:(BL$,39);:Q:22:36,0:"INVALID ENTRY; REENTER.";:P1500:P,2+CDT(I,1)1āQE";:23:36,0:"ACTIVITY AND THEN RETURN."[0f+RWI1:36,DT(I,3)1:F70ĺ(BL$,DT(I,1));n0+C1DT(I,1)10+36,DT(I,3)C20+RWI1:36,DT(I,3)C20+TIPT,CX$(C)0+EDĭCX$(1)(13)ī112200+CX$(C)(13)11310: Next item 1+CX$(1)(6 /*X$"":I0/+S$"DONE"ı,/+S$"CONT"@/+RW(1)5:RW(2)8`/ +R2(R2)RWRW(2):11040m/+RWRW(1)/ +Q2324:Q:36,0:(BL$,39);:Q/4+CLRKBD/\+I12/^+600/`+EDI1İ12000*0b+EDI2Ģ22:36,0:"TYPE IN THE TIME YOU FINISHED THRMRMR1:35000Nu!Nu11000,Nu310005NuED0>NyTD0DN"yON]y11000aN ADD RECORDSgNÈN̈(R1)6((R1)6)āLI521:LI:36,0:BL$;:LI:PE((R1)6)1:1:36,71:"PAGE ";PE;NֈED0:F70N10030Nꈫ30010OEPTR:T2R:T3R2:MR:36,0::23:36,PO1:R$;:POPO1:30030IMuMR2(MR2)L2MR:L1MR1hMuMR2(MR2)L2MR:L1MRMuEDTR:R(W$):R2RMuRL1RL2ČBEEP:Q2224:Q:36,0:(BL$,39);:Q:22:36,0:"ITEM NUMBER MUST BE ";L1;" - ";L2;:P1500:P:30010NuRMFA$LNuCLRKBD:23:36,PO1:TIPT,R$ALbuR$(13)ĭ(W$)031000_LduR$(13)ĭ(W$)030095|LluR$(8)İ6000:I230030LnuR$(8)ČBEEP:30030LquR$(48)(W$)0ČBEEP:30030LvuR$(48)R$(57)ČBEEP:30030LuW$W$R$:(W$)230095)Mu1YLOC,12,1:PRNT,"TIME LOG."#K]6K0u EDIT RECORDSHK4uPDBP%31000[K5uED0:S$"CONT"K:uQ2224:Q:36,0:(BL$,39);:Q:F71KDu;:22:36,0:"TO ALTER, PRESS ITEM NUMBER":23:36,0:"THEN RETURN; OR RETURN TO CONTINUE.";LIuPO37:W$"":C0:BP%0":sJODT(3,1)26:DT(3,3)13:DT(4,1)26:DT(4,3)28:DT(5,1)26:DT(5,3)2:DT(6,2)1:DT(6,3)18:DT(7,2)1:DT(7,3)29yJPJRMID,L$,TB,(L2$),L2$JRJUI16:DX$(I,8)"0":IJUJY PRINT MESSAGEJY:LOC,11,1:PRNT,"PRINTING "PF$PL$"'S"K for next line.BI$OTBDT(1,3)DT(2,1)(TM$(2)):L2$TM$(2):21000MI.OI35I8OTBDT(I,3):L2$(DX$(R2,I),DT(I,1)21):21000:IIBO(L$,79):: Print line.IGOIF R2 = 2 AND R < MR THEN GOSUB 1000ILORIQOI179:(61);:IJO(17):(4);"PR#:L2$(DX$(R2,I),DT(I,1)2):21000:ISH ODT(6,2)0:DT(6,3)69:DT(7,2)0:DT(7,3)73HOI67:TDT(I,3)1:TBT:L2$DX$(R2,I):21000:IHOX(DX$(R2,9))HOTDT(9,3):TBT:L2$(" "(X),3):21000HOL$I!OPAD,79," ",L$: Clear line buffer string GNI12^GNTM$(I)DX$(R2,I):(DX$(R2,I),DT(I,3),1)" "TM$(I)" "(DX$(R2,I),DT(I,3)1)eGNIGNTDT(1,3)DT(1,1)(TM$(1)):TBT:L2$TM$(1):21000GNDT(3,1)36:DT(3,3)12:DT(4,1)36:DT(4,3)31GNDT(5,1)36:DT(5,3)50GNI35%HOTBDT(I,3) SUBJECT PTY INT MIN"qFN" # END HML Y/N"FNI179:(61);:I::FS%TR:PT%TRFNR1MR:PAD,79," ",L$:R2R:PAD,79," ",L2$GNX(DX$(R2,8)):TBDT(8,3):L2$(" "(R),3):21000EhB6ErBRWDT(I,2):36,DT(I,3)C2:(BL$,DT(I,1))N:(17):23000:(4);"PR#1"EN(BL$,26);"TIME LOG FOR ";PF$;PL$ENFN"ACT START ACTIVITY PARTICIPANTS BE H,M, OR L.";:X$"":17000:16115D?I7ĭX$"Y"X$"N"ČBEEP:Q2224:Q:36,0:(BL$,39);:Q:22:36,0:"INTERRUPTIONS MUST BE Y OR N.";:X$"":17000:16115D@DX$(R2,I)X$:SK%FA:BP%FAD@Q2324:Q:36,0:(BL$,39);:QD$@X$""D.@IEt@)AR$(R)CX$(C)C?C,C?BP%FA:C116320KC? IF I = 1 THEN GOTO 11316VC?16220sC?J1C1:X$X$CX$(J):JC?SPECIAL CHECKS ON PRIORITES, INTERRUPTIONS$D?I6ĭX$"H"X$"M"X$"L"āQ2224:Q:36,0:(BL$,39);:Q:22:36,0:"PRIORITY MUST:16220kBp?CDT(I,1)1ČBEEP:Q2224:Q:36,0:(BL$,39);:Q:22:36,0:"INVALID ENTRY; REENTER.";:TDTRB?CX$(C)(13)(CX$(C))31(CX$(C))127(CX$(C))2Ĺ36,DT(I,3)C1:CX$(C);B?CX$(C)(13)I6AR$(R)CX$(C)C?CX$(C)(13)I7AR$(R?RW:36,DT(I,3)C1:TIPT,CX$(C)PA_?Z(CX$(C)):Z123Z96ZZ32:CX$(C)(Z)tAf?CX$(C)(13)16310: next itemAh?CX$(1)(61)ĭED16430Aj?CX$(1)(61)ČBEEP:16220Al?CX$(C)(8)ĭC1CC1:36,DT(I,3)C2:" ";:16210Bn?(CX$(C))32ČBEEPGH M-MEDIUM L-LOW AND PRESS RETURN.";@>EDI7İ600:22:36,0:"WERE YOU INTERRUPTED DURING THE";:23:36,0:"ACTIVITY? Y-YES N-NO AND PRESS RETURN.";@>RWDT(I,2):36,DT(I,3):F70ĺ(BL$,DT(I,1));@H?C1DT(I,1)1@R?36,DT(I,3)@W?CLRKBD!A\$(R,I)X$:SK%FA:BP%FA:ZZ$(R2)DX$(R2,3)N?b4Q2324:Q:36,0:(BL$,39);:QX?l4X$""_?v4I?>ENTER PRIORITES, INTERRUPTIONS?>CLRKBD?>R2R?>I67?>600%@>EDI6İ600:22:36,0:"TYPE THE PRIORITY OF THIS ACTIVITY";:23:36,0:"H-HInzΨԨͬ¬ìԨˬĬЬԨˬ¬ЬҠԨˬ¬Ԩˬ¬ЬS3T[ÌCLRKBD:IPT,KB$%TbMR20:TA20CTdð30000:40000:20000:8701TSRCSD$Sȯ GET BOTTOM SLOT1SүGIT,2,1?SܯRC(BS$)NS毭RC0RC2hSLSET,BS$," "(RC1)uSPUT,2,1SI1TSRCSSPð600TZâ22:36,0:"NO MORE ACIVITIES CAN BE ENTERED,YOU";:23:36,0:"NOW HAVE 20. PRESS RETURN TO CONTINUE."; R̜TS%TSRќKLOSE,2RZ9R૲ GET NEXT DELETED SLOTFR꫌GIT,2,1`RDS%(DS$):BS%(BS$)yRDS%0İ45000:44100RRCDS%RGIT,2,RCRDS%(OX$(8))RLSET,DS$," "(DS%):LSET,BS$," "(BS%):LSET,JK$,BL$(BL$,1,31)RPUT,2,1S&IQ|J;QLR0ČGIT,2,LR:LSET,OX$(8)," "(RC):PUT,2,LREQLRRCXQRC(DX$(I,8))_QIxQMR0CO(2)2:40095QCO(2)1QTS041050QKLOSE,2QOPEN,"ANSWERS.DAT"220QFIELD,2,3TS$,17FL$QLSET,TS$," "(TS)QœPUT,2,SALYZED."/PTKLOSE,2:OPEN,"TIMELOG.DAT"2127PYFIELD,2,3OX$(8),5OX$(1),5OX$(2),36OX$(3),36OX$(4),36OX$(5),1OX$(6),1OX$(7),4OX$(9)P^FIELD,2,3DS$,3BS$,121JK$PcRCTS%PhI1MRPmRC0İ44000PrJ19PwLSET,OX$(J),DX$(I,J)R1:30000:40000:R2R:22000OPD0:RT2:ED0:F70:LI521:LI:36,0:BL$;:LI:NP0:PE(R1)61:1:36,71:"page ";(PE);OO@ WRITE RECORDS TO FILEOJOOLOC,5,6:PRNT,"NOW PLEASE WAIT AS YOUR TIME "PPLOC,6,10:PRNT,"LOG DATA IS ANA򠠠󮠠嬠嬠䠠Πᠠ堠󮠠렠󮠠嬠򠍢嬠箠Ӡ򍢠箠󠠠宠堠䠍ﭭ堠宠򍢠卢󮠠䠠ﭭ堠讠󠠠宠(A$(QS)(BL$,TA),TA)<(4);"WRITE";F$(2);",R";QS:TX$DQSf (4);"CLOSE";F$(2):F$(2)TF$ (4);"OPEN";F$(2);",L";82# L (4);"CLOSE";F$(2):F$(2)TF$ (4);"OPEN";F$(2);",L";82# ;"CLOSE";F$(2):F$(2)TF$7 (4);"OPEN";F$(2);",L";82=# E WAIT FOR YOUR RESPONSES TO BE TRANSFERRED"(4);"CLOSE";F$(2):F$(2)"ANALYSIS.DAT"(4);"OPEN";F$(2);",L";TA2 **** FIELD #2, TOTAL.ACTS AS ANSWER$QS310TX$Q$",R";QS:TX$TX$""QS%# QQS8# QS:TX$OTX$""WQS]# 0 h#  **** FIELD #2, TOTAL.ACTS AS ANSWER$QS310TX$Q$(A$(QS)(BL$,TA),TA)(4);"WRITE";F$(2);",R";QS:TX$QS (4)E ANALYZED"m(4);"MONICO"K(4);"CLOSE";F$(2):F$(2)"ANALYSIS.DAT"l(4);"OPEN";F$(2);",L";TA2 **** FIELD #2, TOTAL.ACTS AS ANSWER$TX$""QS310AC1TATX$Q$(A$(QS)(BL$,TA),TA)AC (4);"WRITE";F$(2);$(QS)PUT,2,QSAS$""&QS3KLOSE,29# LSJAS$""RQS_KLOSE,2e# OSxKLOSE,2~# OeBc1:36,0::1:(BL$,39);ehLOC,3,10:PRNT,"PLEASE WAIT FOR YOUR" iLOC,4,7:PRNT,"RESPONSES TO B put answers into file B>c1:36,0::1:(BL$,39);DeohLOC,3,10:PRNT,"PLEASE WAIT FOR YOUR"iLOC,4,8:PRNT,"RESPONSES TO BE ANALYZED"mAS$""rKLOSE,2|OPEN,"ANALYSIS.DAT"210FIELD,2,10AS$QS1TAAS$AR b栠䬠ᠠ󮠠򠠍宠砍󮠠堍砠卢宠䠠堠堠򠍢䠠󮠠䍢堠宠Ǡ栠󮠠堠򠠠󮠠󠠠󠠠묠򠠠卢蠠󮠠堍󮠠젠󍢠䮠堠󮠠򠠠䮠󠠠堠󠠠Š󍢠򠠠堠庠󠠠󠠠堠󠠠堍庠󠠠堠󠠠堍򠠠쮠砠󺠠󠠠󠠠̠蠠󮍢栠堍󮍢宠堠ﮠ宠仠󠠍宠堠󠍢ᮠ󮠍򠍢뮠𠠠󮠠宠󠍢󮠠堠宠卢纠ᮠﮠ箠Ӡ󮠠󮠠堠宠󍢠쮠堠宠堠򠠠䮠٠󠍢䠠宠󠠠颠堠堠򠠍󬍢덢堠𠠍뮠쭠䠠쮠䠠쮠宠䠠׭Р󮠠󠠠堠򠍢󮠠⠠堠栠箠栠䮠嬠򠍢󮠠󠠍⠠堠堍堠䮠嬠뮠󠠍㡠堠砠󮠠򠠠堠宠Π젠⮠堠󮠠쮠쮠宠栠󮠠宠堠⮠󮠠堍栠󮠠Ӡᮠ宠󮠠堠⮠󠠠庠렠ᮠﮍ宠宠򠠠宠󮍢󮠠󠍢ᮠﮠ(T98)3 #T910T910& #TL39T95 #(TA)9000? ##9090E (#:c 2#LOC,3,T9:PRNT,(ST$,TL) <#LOC,4,T9:PRNT,(BL$,29); A#SH$""SH$" " F#SH$(BL$,(SH$))9130 P#PR$SH$:I140:(PR$,I,1)" "ĂI Z#INSTR,I,PR$," ",QQ%!!d#TQ1X$ "IURLR+$"LOC,I,1:PRNT,(BL$,40);2."I8`":>j"D"K"::p"PR$(6)"TL"TTST:S9ST2:8950"TT1:S9ST" IF PR$(7)= "PG" THEN X$ = LEFT$ (" " + STR$ (PG) + " ",4): CALL LOC,1,33:CALL PRNT,"page";X$; #T9(LO%(0)256):T9$(4) PR$(9)""PR$(9)"2": UR(PR$(4)):UR1UR1X LR(PR$(5)):LR24LR24t TW(PR$(8)):TW1TW1z 4!R!PR$(3)"CLS"8540W!8700\!:!:::!SL0SL43!SNĒG3:0,SL279,SL!PUT,PX,PY,LO%(0)!8800!:920093009750"( F& S70:I116:ST$(I)"":I`0 PR$(1)""PR$(1)"K"|D PR$(3)""PR$(3)"CLS"N PR$(4)""PR$(4)"8"X PR$(5)""PR$(5)"23"b PR$(6)""PR$(6)"TG"l PR$(7)""PR$(7)"NP"v PR$(8)""PR$(8)PR 7630:,PR$(PM)(OB$,S9,P6S9)67730<:V(OB$,P6,1)","7660`7690f:PR$(PM)(OB$,S9,P6S9)S9P61:PMPM1 :P6P61(75902@^3500hQF8120r12160|820085008900(OB$,4)7140:2CC$(OB$,12,X8%12)GCT$(OB$,X9%1)M:aOV$(OB$,12,2)sOT$(OB$,14)yLjINSTR,1,OB$,"(",QQ%:S9QQ%1tS91PM0:7730~P6S9:PM1I117PR$(I)""I(OB$,P6,1)")"7600T(SR$)EN(ER$)$PG(PN$)AC90ĉ:"OI=0 in ";OI:LNOB$""^XIOIOIC91wbGIT,2,I:OB$OB$OL$~lIvOIOIC9OC9OC10OC117170INSTR,1,OB$,"(",X8%INSTR,1,OB$,")",X9%X9%070807110: CC$@PR$(6)"B"ĒL9:X1.875,Y1X2.875,Y1X2.875,Y2X1.875,Y2X1.875,Y1JPR$(6)"BF"ĒL9:IY1Y2:X1.875,IX2.875,I:ITFIELD,2,1C9$,2OP$,3SR$,3ER$,3PN$FIELD,2,1FB$,18OL$GIT,2,OIC9(C9$)OC(OP$)SX,Y,S1%(0):6570*xPUT,X,Y,S2%(0):6570DPUT,X,Y,S3%(0):6570JPZ3500gQF6740q7500X1(PR$(1)):Y1(PR$(2))X2(PR$(3)):Y2(PR$(4))"L9(PR$(5)),PR$(5)""L9G36PR$(6)""ĒL9:X1.875,Y1X2.875,Y2I570 `7500jOV6260$o6300*t:F~X(PR$(2)):Y(PR$(3))cB(PR$(1)):B0B3B0m6330s:X(PR$(1)):Y(PR$(2))B(PR$(3)):B0B3B0:XX.875B16440,6480,6520,6560(PUT,X,Y,LO%(0):6570PPUT,堠宠έ宠卢䠳䠠嬠堠렲󠠠笠宠箠宠堠宠堠䮠嬠砠󮠠堠렠󮠠 o>?@H o'h8'' o@8Ȅ o@'&@<>@'&L)j` '>o>ȥp>@'oLi` Fi n ( 㩰HZi h `Є,0 ߅>?> , bo` bo` pLihhߚHH` ߠ p󩀅kl dmn ` o o (5L a`HH i n kfhh`g` g ᥡ` a R ߅ p oȄ,,' soLkh nHi_8 n lh' soh n`,0`,` oh ȱ< &h  ߪ A `„ oȄ' {$0 ᤡ@Lh <=<@' R ߅>?Bʆ`8H@EIAFEF8NBGGEȥFȥGii*8@@AA@i+D&'>BJJJ )i<(B) e+=D<F=F=f?>>8f???><< ȱ=<&''F¥&E>F??B**GL^G`L\e<=F=<` o' o?@@e'&@><' '<=LCf ߅>?>>` gA@d gBdd pL:m hIH gN ߅A4@.B(I HNIAH@NpLl ߅A `@`B`EȱFȱGii*8@@AA@i+D<&'BJJJ )i<(B) e+D>Jf?> ff?&&'E'F>8f??(Ȣ>($>JC8>FCf?8f??BB **䢠 '0 '0'0ES5I110'0ST$(E1)ST$(E)7'0EH'0ST$(I1)RT$T'1S5S51Z'1`'1s'$1E(RT$)11'.1(RT$,E,1)" "12610'81E'B1ST$(I1)(RT$,E)ST$(I1)'L10IS512490%&p0(ST$(I))4012480.&z0XO1Q&0INSTR,XO1,ST$(I)" "," ",XN%l&0XN%40XOXN%:12420&0RT$(ST$(I),XO)&0ST$(I)(ST$(I),XO1)&0RT$(BL$,(RT$))12480&0(ST$(I1),2)" "IS5İ12500:12480&012570&0II1:12390,1:PRNT,(BL$,39);%/%/+%0I1S53% 0S1Z%0INSTR,S,ST$(I),"&",Y%:Y%012360z% 0SY%1:X9$(ST$(I),Y%1,1)%*0INSTR,1,"0123456789",X9$,X9%%/0X9%012310%40ST$(I)(ST$(I),Y%1)RP$((X9$))(ST$(I),Y%2)%>012310%H0I%\0I1 &f$f&:"$p&PR$(1)"K"P9$CP$:9850.$u&P9$NP$G$z&LOC,24,1:PRNT,P9$;S$&CLRKBDo$&PR$(1)"K"KPTR:9950$&KPFA:QFFA$&LOC,24,40:IPT,KB$,1$&LOC,24,1:PRNT,(BL$,39);$&:$&:$&$.3500$/QF12150$&/$v/$/%/LOC,24I)) #$(ST$(I),E,1)" "9410'#$E>#$E1(ST$(I))11\#$(ST$(I),E1,1)" "9440d#$E1#$LOC,0,E:PRNT,(ST$(I),E,E1E1);#$I#%#&#4&(PR$(1),1)"P"9790#9&9830#>&:#H&P((PR$(1),3))757#R&I1P:I:KP0#\&99609EN9270"$IS9ENB"$GIT,1,I:(TX$,1)">"ČMID,TX$,1,1," "Y""$ST$(IS91)TX$""`",$Io"6$S5ENS91z"@$12200"J$"T$"r$LOC,TW,1"|$1S59710"$I1S5"$((PO)1)1ČPRNT"$ST$(I)(BL$,(ST$(I)))ČPRNT:9450#$E1(ST$((PR$,QQ%1)"s"" ":9070>!i#X$(PR$,QQ%)" "c!n#LOC,4,14:PRNT," "(TQ);" ";X$m!x#9130s!#:!#PR$(3)"C"PR$(6)"TL"9130!#GIT,1,TT:LOC,3,T9:PRNT,(TX$,TL)!#GIT,1,TT1:LOC,4,T9:PRNT,(TX$,TL)!#:!#!# " $Sm 0m  m m m ʠ  m`ׄҬ |m vm  m m m ɢ )Ȅ m`҄d(Kj &i~je`*LԢ5LԦ Nj `dd A `7m ` ` n o& <5LԢxLԢLԢL o p oӄ p p oKjгKj l  ?>ȑ>ȑ>eiLl`LԢEL |,PLM,PLPLdC#X)Y/Z;CLRKBDlLOC,21,15:PRNT,"This information means..."LOC,24,1:PRNT,NP$CLRKBDKPTR636(C1))).875:M(CO(WDC)).8752HT80HT80JPL113(113HT)1cPL0Ē1:L,PLM,PLkPLrdCx~XYZCLRKBDLOC,21,15:PRNT,"This information means..."LOC,24,1:PRNT,NP$CLRKBDKPTR6 d15BI05(LLOC,RO,CO:PRNT,(I)4`RORO2;tIKC1NC(QN)`C1CO65:6320mCOCOWDHT(TL(QN,C)N)16CM9(WD(C1)4)LOC,16,CM:PRNT,(YY$(QN,C),2,(YY$(QN,C))1);C3QN8ČLOC,17,CM:PRNT,"UP" L(CO(WD,115232,115$WD199(NC(QN)21)UZC20((TT$(QN))2):LOC,2,ZC:PRNT,TT$(QN)\3K(TT$(QN))2:L(8(19.5K)12).875:M(8(19.5K).875)L,6M,6M,16L,16L,6 (L1),6(L1),16:(M1),16(M1),6$X58N(TAX)1=CO7:ROLOC,RW,CW:PRNT,(175C)" "((A(C)),1,4)"% ":LOC,RW,10:PRNT,(YY$(QS,C),2,(YY$(QS,C))1)nRWRW2uC{LOC,2,ZC:PRNT,TX$Jpq BAR GRAPHSr6:52,3152,114:54,3154,114 54,114232,114:540ČPRNT,(179);;K1PV(2):PV(2)0ČPRNT,(177);:KWPV(2)0ČPRNT,(179);L1PV(3):PV(3)0ČPRNT,(178);:LPV(3)0ČPRNT,(179);PRNT," "(13);ISC(1)192:SC(2)193:SC(3)217:5245RW14:CW2C1Nb 0PV(1)0ī5315@PV(2)0ĭPV(3)0PV(1)0ČPRNT,(SC(2));OI1PV(3)kPV(3)0ČPRNT,(196);rIPRNT,(SC(3))(13);SC(1)1925380I14LL$" "(179):PRNT,LL$;J1PV(1):PV(1)0ČPRNT,(176);:JPV(1)PRNT," ";:PRNT,(SC(1));, I1PV(1)H PV(1)0ČPRNT,(196);O It PV(1)0ĭPV(2)0PV(3)0ī5315 PV(1)0ĭPV(2)0PV(3)0ČPRNT,(SC(2)); I1PV(2) PV(2)0ČPRNT,(196); I PV(3)0ī5315PV(2)0ĭPV(3) VI14:A(I)0:I" ZC1N5 [P$(R(C)100)L \INSTR,1,P$,".",X%^ ]X%0P(P$)} ^X%0P((R(C)1000)10) _A(C)P:PV(C)R(C) `C dLOC,7,1 iI1N nPV(I)((PV(I)30).5) sI:RO10 xSC(1)218:SC(2)194:SC(3)191 }S:I A203 ZC20((T$)2):LR2:TX$T$:5400d L(19.5((T$)2))812:K(19.5((T$)2))8 (3:L.875,6L.875,16K.875,16K.875,6L.875,6 -(L1).875,6(L1).875,16:(K1).875,16(K1).875,6 F P PIE CHART ROUTINE U  , LOC,24,1:PRNT,(BL$,40)7 PSCRN= ~C U  PIE CHARTS[ a q LR40:SR40 T$TT$(QS) I110:R(I)0:PV(I)0:I NNC(QS) S0 I1N R(I)TL(QS,I) SSR(I) I I1N:S0R(I)R(I) PR$(1)"1"CO(10)1İ4000D LQS5QS6QS1QS2İ5000:1106N Q6000X RTAMR{ VHT(QS)(TA.65)CO(4)MT(QS) WHT(QS)(TA.65)CO(4)NC(QS)1 `7000 jKLOSE,2 tOPEN,OC$2SO ~FIELD,1,40TX$ CHAIN,MP$"CMND.SUB",CV$  KEY.PRESS LOGIC%KPī60.KP0=#LOC,24,40J(IPT,KB$c2KB$"Q"QFTR:1990<LOC,24,1:PRNT,(BL$,39) C04$GRAF.SUB pie charts and bar graphs for time log analysisQS(PR$(1)):QNQS        춛쀀춛đđđđժժժ  { <=&`,Ѹ 8`H h`((((PPPP\\]]^^__\\]]^^__\\]]^^__ o o o8EFFTpCD  oEEF8tCiCDũ `H R ߅h'')Lna{)ߠooȑpȑ`(CD a`p$pBLm` o>? >` n o$&&@8@e>>?i?@<>` p n / NjKj05 oDKj$Kj nNj Nj p m`n `Ä5L`H o ohɀ8.8 >? &?>Te>>pe??8>EFF`ՂՊժŊժՂՊժŊժՂŊՊŪՀՂՊŪՀԪՂՊŪՀՊԪՂՊŪՀՊԪՂŪՀՊԪŊՊԪŊՊՊժŊժՂՊժŊժՂՊժŊժժժԪժժԪժժժժԪժժՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂŊŊժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՀժժժժժՂԪժժՀժժժժժՂԪժժժժժժժՀԪժժժժժժժՀԪժժժժժժժՊժժՂՊժժՊժժՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժՊժժՊԪժժՊժժՊԪժժՊժժՊԪժժՊժժՂԪժժՊժժՂԪժժՊժժՀԪժժՀՊժժՀЪժժՀՊժժՀЪժժՂՊժժՂժժՂՊժժՂժժՂՊժժՊժժՂժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂՊՂՊԪՊՂՊԪՊՂՊԪՊՂՊԪ 3PԪժժժժժժՂժժժժժժժՂժժժժժՀժժՂժժժժժՀժժՂժժժժժՂժժՂժժժժժՂЪժժՂժժժժժՊЪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժ   堠٠ᠠᠠᠠΠ󠠠󠠠䠠٠䠠䠠䠠Π堠堠㠠ΠᠠᠠᠠΠ䠠䠠٠⠠⠠⠠٠㠠㠠٠ᠠᠠᠠ٠ᠠᠠᠠ٠堠堠堠Π䠠䠠䠠٠堠堠堠٠栠栠栠٠栠栠栠Π䠠䠠䠠٠䠠䠠䠠٠堠堠堠Π堠堠堠Π砠砠砠٠栠栠栠٠䠠䠠䠠Π䠠䠠䠠٠堠堠堠٠堠䠠䠠٠蠠蠠蠠te &ĪŀժՀբՂժՂժՊъԊժժժժըŪљ֪ܨƨہǃ_堠٠ؠ҇ΠγƠƠӠ젠٠堠堠堠٠堠堠  GET RECORD$8FIELD,1,40TX$EGIT,1,RKENTER KEY( < Z0:I1CP1F P2(I)ZZ18P IJZ CO(0)Z:KPFAhn CHAIN,MP$"CMND.SUB",CV$ps :vx |  MOVE LV=1 TO MIDDLE  " , MOVE MIDDLE,THEN DOWN6    ERROR  BEEP:BEEP:BEEPRT1= DS12375.B I1DS1:CPP1(CP):I8G 2520>L DV S` MOVE UPYj tt CP1ER4:2980:2510~~ CPRT NP1(CP):NCPCPN:2440 CPN:1850   MOVE DOWN  P2(CP)02580 1850   ress the appropriate number."'>CPRT-H3R@\ INPUTFfRpCLRKBDj(16384)1282220~IPT,Z$:Z(Z$)Z48Z57ČBEEP:2160Z$"0"(Z$)NNER1:2980:2220Z$"0"İ2390:2380 DS(Z$)$ 2770. 28508 CP K6064,SC17,K(NN1)IC23SC,K3KKCPCP1:XCSC:YC75XBN1NNz 1400:XCXCIC:SCP:CPP1(CP)BN LOC,5,4:PRNT,"LEVEL #"(LO(CP)1)%LOC,17,1:PRNT,LT$(LO(S))&1,138(LT$(LO(S)))7,138*LOC,24,8:PRNT,"PThoughtree"l98,10168,104vXC113:YC22:RTCPKBN0:1400:SVCP1dNN1:CPP1(SV)NN2P1(SV)P1(P1(SV))1970NNNN1:SVP1(SV)1940NN5IC56:SC1NN4IC70:SC9NN3IC102:SC11NN2IC203:SC135R2BN0CP1ČLOC,4,25:PRNT,"DELEGATION, TIME":LOC,5,25:PRNT,"& TASKS":15894BN0ČLOC,15,1:PRNT,(BN)"-RETURN TO LEVEL #"(LO(CP))5BN0ČLOC,LR,1:PRNT,(BN)"-"II$(CP)6:D DISPLAY TREENX bLOC,1,15:PRNT,",YC30XC1,YC30XC1,YC1V XC2,YC2XC38,YC2XC38,YC29XC2,YC29XC2,YC2j  BOTTOM PIECE| P2(CP)1581 5 KXC17XC23 "K,YC32K,YC37 ,K -3:BN0CP11585 /LOC,57(YC60),(XC7)4:PRNT,(BN)1LR18BN0 dLV n x1  DISPLAY BOX AT XC,YC7 K P1(CP)RC1490\  TOP PIECEc 5v KXC17XC23 K,YC10K,YC1 K  MAIN BOX LC(LO(CP)) XC,YCXC40,YCXC40,YC31XC,YC31XC,YC XC1,YC1XC39,YC1XC39P1)1:1320: LVLS(PT)P1(PS(PT))CP:PS(PT)CP:1320k LVLS(PT)P1(PS(PT))PS(PT1):PTPT1:1310 #P1(PS(PT))CP:PS(PT)CP (LO(CP)PT 2CP:CP1 < F LEADING SPACES PLV140 Z(II$(CP),LV,1)" "II$(CP)(II$(CP),LV):139RSTRC1:4000:II$(RC)TX$"":(TX$,3)"END"1250X I1RC:INSTR,1,II$(I),"_",XX%h XX%01258 II$(I)(II$(I),XX%1)" "(II$(I),XX%1) I PT0:LS(PT)1:PS(PT)1 CP2RC 1350 LVLS(PT)PTPT1:PS(PT)CP:LS(PT)LV:P2(CUnits":LT$(2)"Subunits":LT$(3)"Sub-subunits"H LT$(4)"Sub-subunits"N T k  Key press logicq  KPQFFA:1200 KP0 LOC,24,40 IPT,KB$ KB$"Q"QFTR    CONSTRUCT TREE  RC04 RCRC1:F1:M  FLOWCHRT.BAS!41180:QF2670>1080H1210R1850b$2130:1060h.n8zB INITLVT35`II$(T),P1(T),P2(T),LO(T)tLC(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      䠠٠堠堠堠Π砠⠠٠㠠㠠㠠٠䠠䠠䠠ΠᠠᠠᠠΠ⠠⠠⠠Π㠠㠠㠠Π䠠䠠䠠Πᠠᠠᠠ٠⠠⠠⠠Π㠠㠠㠠Π䠠䠠䠠ΠᠠᠠᠠΠ⠠⠠㠠Π䠠䠠䠠٠䠠䠠ᠠ٠⠠⠠⠠Π㠠㠠堠Π栠栠栠Πᠠᠠ堠٠砠砠砠Π堠堠٠栠栠栠٠堠堠ٲ栠栠栠٠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 F= C01$QRES.SUB -- YES, NO QUSTION RESPONSERi by TERRY WOODFORD date 12/1/83o.KB$"N"KB$"n"CO(10)1:CO(1)10KB$"Y"KB$"y"CO(10)2:CO(1)23KPFA:CHAIN,MP$"CMND.SUB",CV$8 SUB",CV$8 > . z#?   ӮԠ ϴή  ԭԠֲ ðԮԠ ǮԠ4ӮԠ !ҮԠ"ðή  ðӮ ð׮ ðϮҠ ðӮҠ ðƮ  ðҮ ðǮ ðԱ ðαԠMðŮ ðծԠ ðĮ !ӠðǮ :ðî  ð׮ԠðҮ͠ðٮ ðήҠX$""TX$(BL$,39),TLOC,RW,CW:PRNT,TX$2^0 WRITE A RECORDx/LSET,ZZ$(F),TX$<PUT,F,RBH^ KP LOGICdrKP6670KP0:(16384)1286640KB$((16384)128):49168,0KB$"Q"KB$"q"QFTR,6 PRINT ROUTINE@JTSE,F*F2(F2)ČOPEN,OC$2SO:6370>OPEN,DT$140DJe  READ A RECORDkRW17TX$" MANAGING FOR SUCCESS SERIES"(RW21TX$" PERSONAL DEVELOPMENT"2GIT,F,R<TX$ZZ$(F)""Fdn ND PUT SCR FILE)BLD,SF$,A8%(0)6HGTRĐJPUT,X,Y,A8%(0)PV8}B OPEN FILES FOR THE APPLELVKLOSE,FjOPEN,F$(F)FLGoFIELD,F,LGZZ$(F)t CLOSE FILES FOR THE APPLEKLOTM$,SS,1)"1"5130< SS1TM$"1"(TM$,2,(TM$)1):5110` TM$(TM$,SS1)"1"(TM$,SS1)v TX$(TX$,40)TM$ F1:RUL:6500 F1:6300  p z NEXT SCREEN  PRNT,24,1,CP$ KPTR   BLOAD A6:TX$"Please remove your disk.":67000 40806 V  -----------------------s  UPDATE USER MENU  ----------------------- F1 F$(1)"USER.DAT":LGJD:6200 SS(PR$(2)) F1:RUL:6400 TM$(TX$,41,JD40) ( D  CLOSING GRAPHIC -- TREE WITH LEAVES AND FRUITJ ` 6600:QFTR4090 SF$MP$"SUN.SCR":X68.875:Y31:HGTR:6100 RW19:CW14:TX$"CBS SOFTWARE":6700 RW21:CW7:TX$"MANAGING FOR SUCCESS SERIES":6700& RW24:CW1LINES  5 I03Y 10.875,18I299.875,18I:10.875,38I299.875,38I` Ir RW5911920} I03 10.875,RWI63.875,RWI:245.875,RWI299.875,RWI I RW $I03 .10.875,138I299.875,138I 8I B3500/ RW20:CW20:TX$"PRESENTS...":67005 ; w END OF UNIT GRAPHIC -- RISING SUN WITH LEAVES} 5000 6600:QFTR3070 SF$MP$"SUN.SCR":X68.875:Y21:HGTR:6100 KPFA  CBS SOFTWARE 4   C03$OPEN.SUB" 0A8%(940)N(PR$(1))2000,3000,4000X$KPFAl.FIELD,1,40TX$8CHAIN,MP$"CMND.SUB",CV$B  OPENING GRAPHICPR$(2)"1"2070SF$MP$"CBS.SCR":X(66.875):Y42:HGTR:6100  P$NP$PG!CV$AD!LO%()RP$()BL$SA$()OP$()TP!SQ!PR$LW$HG$SC$SO!JD!KB$UL!HE$()CC!IN$()MN$()RN$()SB!SP$()CG$()PT$()MA$()RA$()""" CV$CV$"TX$LO$HI$AV!()TL!()TA!ZZ$()TT$()NC!()AR$()G3!MR!TS%DT$HT!()MT!()YY$()""" HE$(14) IGO.SCR",LO%(0) BAD81928 VF$(2)OC$:OPEN,OC$2SOL ePAD,80," ",BL$ jCP$" Space Bar to continue, or Q to Quit.""" tNP$" Space Bar to continue."""z CV$"ST$()PR$()CO!()F$()TR$()OC$MP$OI!QF!TR!FA!KP!PX!PY!ST!EN!PF$PL$C* .ST$(17),PR$(17),CO(30),F$(3),TR$(3,7)G /RP$(10),LO%(250),SA$(5) 0CG$(17),TT$(12),YY$(12,4),TL(10,4),ZZ$(50),AR$(50) 3OC$MP$"MSTR.OCM":OI3:QF0 8TR1:FA0:KP0:SO19:CBSTR ;PX3(CBS2):PYPX <G04:G15:G26:G37 =BLD,MP$"LOdn ThoughtWare#x< CONVERTED TO THES Apple ][ Plusi Dec 6,1983o(4);"BRUN SOFT-EXT V2.51"MP$"C04$""""1060  Execution CHAIN,MP$"CMND.SUB",CV$$ Initialize   000:NP0:ED0:RTP).0'S$"DONE"İ110004.1'MRR1J.2'S$"DONE"10020g.3'EPFA:MOD6(MR)6EPTR.4'S$"DONE"R1MR1.5'S$"DONE"MR0ČBEEP:10032.6'S$"DONE"(R1)2((R1)2)TMTR:30000:5000:TM0.8'.* enter data .*R2R(W$)1W$"":6040'-W$(W$,(W$)1)e-POPO1:1:36,0::24:36,PO1:" ";:1::24:36,PO1:u-'ENTER DATA-'S$"CONT":RI9-$'R0ĭ(R1)2((R1)2)NPTR-''RR1:R2R:R2150000..'NPR1ED(R1)2((R1)2)TPR:MRR1:30000:5TION YOU NEED; THEN ";:23:36,0:"PRESS RETURN TO CONTINUE.";\,CO(10)1ČCLRKBD:IPT,Z$i,RW511t,RW:1,(BL$,39);,RW,RW1524,RW:1,(BL$,39);,RW,,p CALLED FROM 30060 ,zI2FA:(W$)0ı-I2TR:2 )+Q2224:Q:36,0:(BL$,39);:Qg+EDĢ22:36,0:"ANY MORE CHANGES? (Y/N)":CLRKBD:TIPT,Z$+Z$"Y"Z$"N"EDČBEEP:5001+Z$"Y"EDİ30000:5000:RTP:5100>,CO(10)1āQ2223:Q:36,0:(BL$,39);:Q:22:36,0:"RECORD ANY INFORMA10003025,* 1000: Read next page in.Q* Q2324:Q:36,0:(BL$,39);:Q* 23:36,17:"PRESS RETURN FOR NEXT PAGE.";* (16384)1283015* S$((16384)128):500* RTP:ED0:F70* RI9PEPE1* + CLEAR SCREEN FOR PAGE X$(R2,9),3);:/)zRW1:36,DT(2,3)1:TM$(2);:)I35l)36,DT(I,3)1:(DX$(R2,I),DT(I,1)21);:I:x)CLRKBD):RI91R2(R2)İ3000)R)T ) EPTR:TPR:30000:Q2324:Q:36,0:(BL$,39);:Q) 40000: Write page out. * CRTM$(I)" "(DX$(R2,I),DT(I,3)1)C(HI:RW:36,DT(1,3)1:TM$(1);N(RI35|(\36,DT(I,3)1:(DX$(R2,I),DT(I,1)2);:I(aI67:TDT(I,3)((DT(I,1)))(DX$(R2,I)):36,T:DX$(R2,I);:I(fDX$(R2,9)((DX$(R2,9))):TDT(9,3))p36,T1:(" "Dle'*PD0:R1'4I902900,'>R1I915'?R2RS'@RW5(R((R1)2)21)3'CEPāL521:L:36,0:BL$;:L:EP0:RI91PDTR'DRI912201'EBP%FA:RW:36,DT(8,3)1:(" "(R),2);!(FI12:TM$(I)DX$(R2,I):(DX$(R2,I),DT(I,3),1)" ""&2:36,0:"ACT":3:36,1:"#"7&3:36,6:"END":U&4:36,0:I140:"=";:Iz&12:36,18:"PTY";:36,28:"INT"&13:36,28:"Y/N";:36,35:"MIN"&13:36,2:" SUBJECT";:36,18:"HML"& 14:36,0:I140:"=";:I& 'Put up old fi19%DX$(I,J)IX$(J)%J2%RC(DX$(I,8))V%RC0MRI:I9I:KLOSE,2:K1000]%Kc%6p%HEADERSw%5%::1:36,11:" TIME LOG FOR ";(PF$,1,1)" "(PL$,1,1)%2:36,5:"START";&3:36,14:"ACTIVITY":3:36,26:"PARTICIPANTS" read old timelog if there is one 9$TS%0I90:1590F$KLOSE,2e$LOPEN,"TIMELOG.DAT"2127$VFIELD,2,3IX$(8),5IX$(1),5IX$(2),36IX$(3),36IX$(4),36IX$(5),1IX$(6),1IX$(7),4IX$(9)$RCTS%:I0$K121$GIT,2,RC$II1%J23:36,0:"PRESS "Q$;"= ";Q$;"TO SKIP TO THE NEXT ENTRY.";d#gEDāQ2124:Q:36,0:(BL$,39);:Qj#l}#  PROGRAM FLOW#!1000:2000:2075#>10000:20000:40000#f#jKLOSE,2#kOPEN,OC$2SO#lKPFA#pCHAIN,MP$"CMND.SUB",CV$#$S"PE1:EP0:S2%TS%:CR1:I91000:FS%TR:FW%TR:WR1:DN%FA:PT%FA:SK%TR:MR20"MOD6(N)N1((N2))2((N2(N2))N)"22000:800"X"]EDāK2224:K:36,0:(BL$,39);:K:#bEDĢ22:36,0:"IF YOU DO NOT WISH TO ALTER THIS ENTRY-";:,DX$(21,9),AR$(21)!8! 5,0,5,"START",5,1,5,"END"! 26,0,13,"ACTIVITY",26,0,27,"PARTICIPANTS",26,0,2,"SUBJECT"! 1,1,18,"PRI",1,1,29,"INT" ! 18,0,1,"SEQ",720,0,77,"MIN"!!I19:DT(I,1),DT(I,2),DT(I,3),DT$(I):I"5 KEYPRESS LOGIC# KP60, KP0; #LOC,24,40H (IPT,KB$` 2KB$"Q"QFTR:880~ <LOC,24,1:PRNT,(BL$,39) e C04$TLOG.SUB s: vDT$(0)"":R(0)0:CX$(1)"":AR$(1)"":ERASE,DT$(0),R(0),CX$(1),AR$(1)!xDT$(9),R(30),CX$(37)                     ddLc` d$ dLJ>$0> d ddLd>Bȱ>C> d>?BCBBC`$0>>e>>e??`e`$0lkLdmn?>`$0Ld`$0ij>?e>> ?Ldkl>?` gA@d gBdd Fb Db,b u,b$bH#bH` o< u dͩ>?ϩ` o{'&i<@Aȱ<0[AȱAȑ>>>'LWc@A'LWc>?` d d d&$>ȱ>  dLc>kl i Ib eօ3آiLbÄӤخӤĮ u8bLbgh u,b7EbFbL"c gh,Db GbHbL"c@DbLb%b u х6b7  67 Db@GbHbDbLcEbFI@nLS@tRS@zKL@SC@CS}PO~ : aLa {$0& 4<=ȱ<& n o a n oL|a &<= a ;Ъ :в` u` o''&<  n o'La` u` #c Jc$0( c d c dmn`  F``L-aLaLdLfLfLhLhLhLhLiL_iLLiLiLiLiLlLlLmLnLEnLi uimkjnl u`emmknlstop``i`i`PR@CH@PU@IN@GI@ IP@&CL@,BL@2PA@8PS@>IK@DBE@JTI@PER@VLO@\MI@bOP@h               AC,CE)HT(AC)MT(AC)CE:HT(AC)TL(AC,CE)1"CE9,AEW6RP$(9)(YY$(3,MT(AC)),2)]@Lg@TT(QS)CE:HT(QS)TL(QS,CE)"CE,AC6RP$(9)(YY$(3,MT(QS)),2)@0"HHIGH""":YY$(10,2)"MMEDIUM""":YY$(10,3)"LLOW"""<********************************************************************** Determine which choice was answered mostAE1TAHT(AC)0CE1NC(AC))TL(":YY$(6,3)"CNO ONE"""XYY$(7,1)"HHIGH""":YY$(7,2)"MMEDIUM""":YY$(7,3)"LLOW"""YY$(8,1)"AAHEAD""":YY$(8,2)"BBEHIND""":YY$(8,3)"CCAUGHT""":YY$(8,4)"DNONE"""YY$(9,1)"HHIGH""":YY$(9,2)"MMEDIUM""":YY$(9,3)"LLOW"""6YY$(10,1)"LLOW"""3 xYY$(2,1)"YYES""":YY$(2,2)"NNO"""t YY$(3,1)"HHIGH""":YY$(3,2)"MMEDIUM""":YY$(3,3)"LLOW""" YY$(4,1)"YYOURSELF""":YY$(4,2)"OOTHERS""" YY$(5,1)"YYES""":YY$(5,2)"NNO"""YY$(6,1)"AYOURSELF""":YY$(6,2)"BOTHERS""7)"PRODUCTIVITY LEVEL""":TT$(8)"PROGRESS"""l FTT$(9)"STRESS LEVEL""":TT$(10)"SATISFACTION LEVEL""" PNC(1)3:NC(2)2:NC(3)3:NC(4)2 ZNC(5)2:NC(6)3:NC(7)3:NC(8)4 dNC(9)3:NC(10)3 nYY$(1,1)"HHIGH""":YY$(1,2)"MMEDIUM""":YY$(1,3)****************************************************T  initializeZ  TT$(1)"PRIORITIES""":TT$(2)"INTERRUPTIONS""" (TT$(3)"AMOUNT OF CONTROL""":TT$(4)"INITIATIVE""" 2TT$(5)"PLANNING""":TT$(6)"FOLLOW-UP"""/ <TT$(******************************************************d  figure total of each choicej w AC110 A$(B$,AC,1) CE1NC(AC) A$(YY$(AC,CE),1)TL(AC,CE)TL(AC,CE)1 CE 1500 AC 4 ****************** .KLOSE,2* 8OPEN,"ANALYSIS.DAT"2TA> BFIELD,2,TAAS$a GI110:J14:TL(I,J)0:J:In LQS1TA} QB$AR$(QS) V1160 `QS jKLOSE,2 tOPEN,OC$2SO yERASE,AR$(0):TA0 ~KP0:CHAIN,MP$"CMND.SUB",CV$6 ****************^,KPČIPT,Z$:Z$"Q"Z$"q"QF1:1150WC0:0,184279,184279,1910,1910,184********************************************************************** C04$CALC.SUB calculations for graf.sub$1260)1095      ⠠⠠Π㠠㠠㠠Π䠠砠砠Πᠠ젠젠٠⠠堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭堠򠠍󮠠堠宠󠢭堠ӭ󠠠砠宠䠠堠렲󠠠堠堠堠Ġ堦󠠠խάߦӠ󠠠    Ԩˬ¬ЬƨԨˬĬЬԨˬĬЬԨˬĬЬԨˬ¬ЬƨԨˬ¬ЬԨˬ¬ЬƨԨˬ¬ЬԨˬ¬ЬԨˬĬЬ¬ЬƨԨˬ¬ЬԨˬ¬ЬԨˬ¬ЬԨˬ¬ЬԨˬ¬ЬԨˬ¬ЬԨˬƨԨˬĬЬԨˬ¬ЬԨˬĬЬƨԨˬĬЬƨԨˬ¬ЬԨˬĬЬԨˬ¬ЬԨˬ¬ЬƨԨˬĬЬԨˬ¬ЬЬԨˬ¬ЬƨԨˬ¬ЬԨˬ¬ЬԨˬ¬ԨнìàƨԨˬĬЬԨˬĠԱǠǠԨˬ¬٠Ԩˬ¬αԨнĬ̬Ԩˬ¬ԨˬìԨˬĬԨˬĬԨͬ¬̬ΨԠԨͬĬ̬ԨͬĬ̬ԨͬĬì̬ӨԨͬĬ̬ԨͬĬ̬נרֳՠΨԨͬ¬̬ŨΨн¬̬Ǭ     5:AL$(SE(7))818:"8. ";F="WHAT LEVEL OF SATISFACTION DO YOU"u>19:36,3:"ASSOCIATE WITH THIS ACTIVITY?"B20:36,5:AL$(SE(8));NXb option to quit analysis after every five activitiesl6@A 6,3:"MAKE ON THIS ACTIVITY?"B10:36,5:"A:AHEAD OF SCHEDULE"q11:36,5:"B:I GOT BEHIND C:I CAUGHT UP"12:36,5:"OR D:NO CHANGE"$14:"7. ";)"WHAT LEVEL OF STRESS DO YOU"*15:36,3:"ASSOCIATE WITH THIS ACTIVITY?" .16:36,ID "/21:36,6:"OR C: NO FOLLOW-UP NEEDED">P1ī6990O3::"5. ";u"WAS THE PRODUCTIVITY LEVEL FOR"5:36,3:"THIS ACTIVITY HIGH, MEDIUM, OR LOW?"6:36,5:AL$(SE(5))8:"6. ";"WHAT TYPE OF PROGRESS DID YOU"9:3:"3. ";/"DID YOU PERSONALLY PLAN THIS ";J15:36,3:"ACTIVITY?"d16:36,6:AL$(SE(3))t18:"4. ";18:36,3:"IF ANY FOLLOW-UP WAS NEEDED FOR"19:36,3:"THIS ACTIVITY, WHO HANDLED IT?"20:36,6:"A: I DID B: SOMEONE ELSE DGH AMOUNT OF CONTROL OVER THIS"96:36,3:"ACTIVITY?"R7:36,6:AL$(SE(1))c8::"2. ";p9:36,3"DID THE INITIATIVE FOR THE "10:36,3:"ACTIVITY COME FROM YOURSELF"11:36,3:"OR OTHERS?"12:36,6:AL$(SE(2)); 13:Z89Z79ČBEEP:5050!5090'L set 5---a,b,c,dgZ65Z68ČBEEP:5050q!5090wf}pz eight questionsP2ī61403::"1. ";"DID YOU HAVE A LOW, MEDIUM, OR"5:36,3:"HI 1---a,b,c%Z65Z67ČBEEP:5050/50905V set 2---y/nsZ89Z78ČBEEP:5050}5090 set 3---l,m,hZ76Z72Z77ČBEEP:50505090 set 4---y/o(QS)1LRRW(QS) CLRKBD8LR:36,ZC:TIPT,Z$_Z(Z$):Z123Z96ZZ32:Z$(Z)SE(QS)5530,5560,5590,5620,5650:Z$;AR$(AC)AR$(AC)Z$QSF| Input Tests  set Y12.Q424:Q:36,0:(BL$,39);:Q86000ARN7RP1S1:E4cP2S5:E8q5000:P2ACTAAC5(AC5)İ7000QTTAAC:4990Y"AC~ responsesQSSELRRN:ZCPO"  set screen( 0 :6 > P1D c LA%TA:I310:A$(I)"":Ip AC1TAx P1 1:36,0::1:(BL$,39) 1:36,4:"ACTIVITY # ";(AC);": " AC$(AC)ZZ$(AC) 2:36,6:AC$(AC)(BL$,1,34(AC$(AC)));(4),36IN$(5),1IN$(6),1IN$(7),4IN$(9)K RCTS%:IO:AS$(1)"":AS$(2)""[ TS%01990g K150u GIT,2,RC  II1  AR$(I,1)IN$(6):AR$(I,2)IN$(7):AC$(I)IN$(3)  RC(IN$(8)) & RC0I9I:K1000 0 K : KLOSE,2 D TAMR N  PO(2)15:PO(3)14:PO(4)35A SRW(1)6:RW(2)11:RW(3)15:RW(4)19i \PO(5)39:PO(6)27:PO(7)34:PO(8)34 ]RW(5)5:RW(6)9:RW(7)15:RW(8)19 KLOSE,2 OPEN,"TIMELOG.DAT"2127( FIELD,2,3IN$(8),5IN$(1),5IN$(2),36IN$(3),36IN$(1)"A:I DID B:SOMEONE ELSE DID OR C:NO FOLLOW-UP NEEDED"V AL$(2)"Y:YES OR N:NO"~ *AL$(3)"L:LOW M:MEDIUM OR H:HIGH" 4AL$(4)"Y:YOURSELF OR O:OTHERS" >AL$(5)"A:AHEAD OF SCHEDULE B:I GOT BEHIND C:I CAUGHT UP or D:NO CHANGE" RPO(1)14: .CLRKBD:KPFA::(17)( KLOSE,2< OPEN,OC$2SOZ CHAIN,MP$"CMND.SUB",CV$`   initialize  AC$(1)"":ERASE,AC$(0):AC$(51):QT0 SE(1)3:SE(2)4:SE(3)2:SE(4)1:SE(5)3:SE(6)5 SE(7)3:SE(8)3; AL$; KEYPRESS LOGIC"KP60+KP0:#LOC,24,40G(IPT,KB$`2KB$"Q"QFTR:1990n<LOC,24,1FPRNT,(BL$,39) C04$ANLY.SUB timelog analysis questionsQ$(34)2000TAMR4000 $8000         栠栠Π䠠䠠䠠Π䠠䠠䠠Π堠堠堠٠栠堠堠٠砠砠砠٠䠠栠栠Π䠠䠠䠠٠堠堠堠٠堠堠堠٠栠蠠蠠Π䠠䠠䠠Π堠栠栠٠砠砠砠٠蠠䠠䠠Π堠堠堠٠栠ߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN     ٠㠠㠠㠠Π䠠䠠䠠Πᠠᠠᠠ٠⠠⠠⠠٠栠栠栠Π砠砠砠䠠䠠䠠٠堠堠堠ٳʠʠʠαδΠΠΠγɠɠɠεĠĠĠĠƠƠٳǠǠǠĠĠĠٱŠŠŠ͠àààγàààγ            KP0, 216,0:CHAIN,MP$"CMND.SUB",CV$\ ******************************************r  CO(10)1ČPSCRNx  1ČPSCRN   PSCRNCHAIN24:PSCRN  z KEYPRESS LOGIC"KP601#LOC,24,40>(IPT,KB$W2KB$"Q"QFTR:1990u<LOC,24,1:PRNT,(BL$,39){ C04$PSCR.SUB print analysis results text a. bertke$L3000~(4);"DELETE ANALYSIS.DAT" 䠠䠠٠0ČLSET,PS$," "(OS%):PUT,2,PS%:I10000|I6wTIMELOG.DAT"2127. "FIELD,2,3DS$,124JK$I ,FIELD,2,3PS$,124JK$V 6GIT,2,1 @(DS$)0ČLSET,DS$," "(OS%):PUT,2,1:1670 J: ---Add old user:REM s slots to current deleted slots----` TI1999 ^PS%(PS$) hGIT,2,PS%)r(PS$)220 FIELD,2,3TS$,17FL$4 LSET,TS$,"000"B PUT,2,SAQ TS%(TS$)^ KLOSE,2r OPEN,OC$2SOx   -------------------------  UPDATE DEL.SLOT IF NEEDED  ------------------------- OS%TS% KLOSE,2 OPEN,"4,37:PRNT,Z$;2 <TT$(1)"":YY$(1,1)"":TL(1,1)0Q FERASE,TT$(0),YY$(0),TL(0)i PZ$"N"İ1380:1370s U1370y Z d ------------------------ n ADD NEW USER x ----------------------- 1510 KLOSE,2 OPEN,"ANSWERS.DAT"(BL$,40)ČPRNT:1270" J1406 X((TX$,J,1))I X127XX128Y PRNT,(X);` Jg I LOC,24,14:PRNT,"Press N OR A "; CLRKBD:1300:1290 IPT,Z$:Z(Z$) Z96Z123Z$(Z32) (Z$"N"Z$"A"ČBEEP:1300 2LOC,2) 8TS%01100 B1110> LKP0:CHAIN,MP$"CMND.SUB",CV$] V ------------------------{ ` BEGIN NEW TIMELOG? j ------------------------ t:WIDTH,40:: LOC,8,1 PUT,3,3,LO%(0) 3:0,43279,43 ISTEN GIT,1,I:TX$7KP1010KP0'LOC,24,404IPT,KB$MKB$"Q"QFTR:1100kLOC,24,1:PRNT,(BL$,39)q C04$NTLG.SUB old user can start new time log a. bertke 2-23-84$ .TS%((UA$(1),1,3)      CMND.SUB",CV$ KPī550KP0%IPT,KB$>KB$"Q"QFTR:1040L&LOC,24,1`0PRNT,(BL$,39)fy C04$SET1.SUBSP$"NO PRINTER"""CO(1)2KPFABCHAIN,MP$"CMND.SUB",CV$ SUB",CV$ BCHAIN,MP$"CMND.SUB",CV$ '" " (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$)("0")(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:R5 6CLRKBD3 ;IPT,Z$:LOC,24,1:PRNT,(BL$,40)R @Z$"Q"Z$"q"QFTR:1615z E0:L103165:55K,L279K,L:L:3 FNN1 J1559 O H I GET ROUTINE J R (4);"READ";F$(1);",R";R \ T1$ f  89K,293 2:179K,"Leadership Effectiveness":LOC,3,15:PRNT,"Conditions"B NRSTL LR15[ RNRNR4x LOC,15,6:PRNT,(N)"." 3400 GET LOC,LR,9 "PRNT,(T1$,8,27) 'LRLR1:R ,CLRKBD -LOC,24,1:PRNT,CP$ 1NRR:(T1$,1)">"KP1:161䮠堲宍àӠ򠠠宠󺠠󬠠쬠嬠笠󬠠᠍򍢠򍢠󠠠砠젠笠󮠠堠򮠠Π箠栠䠠箠卢堠򠠠󮠠󠠠䍢箠堠堠󮠠堠䠠笠宠򠠍堠렠嬠堠宠笠䠠󮠠堠Ԡ箠砍箠謠ɠ栠颭򠠠堠                            )F1$(TX$,20)(F2$(TX$,21,20):ME$(TX$,41)@B$,2ML$,2AN$,JD6F9$;pFIELD,2,20F1$,20F2$,JD40ME$OqFIELD,2,JDTX$^vGIT,F,R: The following code was replaced by the above FIELDsF27070A9$TX$:7140SL$(TX$,2)ML$(TX$,3,2)AN$(TX$,5,2)F9$(TX$,7A$F9$ LSET,X9$,X$:PUT,2,1)L90/5pOz UPDATE INDEX RECORDUgF2:R1:7000uL$(SL%)TX$L$(TX$,3)FIELD,2,JDX9$LSET,X9$,TX$:PUT,2,1Xb GET TEXTlnFIELD,1,20A9$oFIELD,2,2SL-------ULSL%-SL%SL%1:SL%6SL%2QF1$FI$:F2$IL$:PAD,M%,"0",ME$dX$F1$F2$ME$(X$)JDĉ:"Parity error in JD":FIELD,2,JDX9$:LSET,X9$,X$:PUT,2,ULSL$(" "(SL%),2):ML$(" "(M%),2):F9$(BL$,34M%):X$SL$ML$ȌPUT,2,UL)LSET,SL$,(" "(SLOT%),2)FLSET,ML$,(" "(M%),2)WLSET,AN$,A$r LSET,Z9$,(BL$,34M%)PUT,2,1L90(LOPEN,F$(1)140:FIELD,1,40TX$ -------------------- ADD NEW USER -------------KLOSE,1+OPEN,DT$140:FIELD,1,40TX$1L --------------------c ADD NEW USER~ --------------------ULSL%SL%SL%1:SL%6SL%2SL%6SL%2LSET,F1$,PF$LSET,F2$,PL$PAD,M%,"0",XX$:LSET,ME$,XX$ FTR 9>'H INIT ANSWER LOC-R<\T904860IfUA$(T9)ppKLOSE,1:OPEN,"ANSWERS.DAT"120FIELD,1,20AA$SX(UL2)T91:EASXT91KSXEAGIT,1,KSKSX1FDUA$(S)AA$"":4830UA$(S)""K),1,2);:L934540<LFČLOC,19,1:PRNT,"in this unit.";TKLOSE,2:L90:LFFAhOPEN,OC$2SOn -------------------- USER EXISTS  --------------------FD1 ULI:I100*INSTR,1,ME$,"1",II%:L9II%4L90L FD0 I26 GIT,2,I: "FI$F1$IL$F2$İ4600A ,IP 6FDİ5000Z 4670t  Tell Where Left Off L90ČLOC,18,2:X$" You have completed Subunit(s) "((L9),1,2):PRNT,X$;INSTR,L91,ME$,"1",II%:L9II%:L90ČPRNT,",";((L91:3040 N %  ----------------<  FIND/INSERT NAMES  ----------------w KLOSE,2:OPEN,"USER.DAT"2JD FIELD,2,2SL$,2ML$,2AN$,JD6Z9$ FIELD,2,20F1$,20F2$,JD40ME$ GIT,2,1:M%(ML$):SL%(SL$):A$AN$"" T9(AN$):IPT,Z$,1:Z(Z$). (Z8Z127)W$""3100E (Z8Z127)3100^ (W$)1W$"":3090s  W$(W$,(W$)1)  ZCZC1:LOC,LR,ZC:PRNT," ":3040  Z133150 & ZC32ČBEEP:3040 0 Z65Z903040 : LOC,LR,ZC D PRNT,Z$:W$W$Z$:ZCZCF$" "2130 fLOC,12,31 pPRNT," Last Name:"@ zRP$(0)PF$a LR12:ZC14:3000:PL$W$" "s PL$" "2180 FI$PF$(BL$,20) FI$(FI$,20) IL$PL$(BL$,20) IL$(IL$,20)  NAME INPUT W$"" LOC,LR,ZC3:PUT,PX,PY,LO%(0) LOC,7,1T PRNT,"Type your first name, and press RETURN;"a LOC,8,1 PRNT,"then type your last name, and press" *LOC,9,1 4PRNT,"RETURN." >LOC,11,3 HPRNT,"First Name:" RLR11:ZC14:3000:PF$W$" " \P  C04$NAME.SUB!OKPČLOC,24,40:IPT,Z$:Z$"Q"QF1:1090mLOC,24,1:PRNT,(BL$,40)wJD43$2000:4000.CLRKBD8LOC,24,1:PRNT,NP$BKPTR:CHAIN,MP$"CMND.SUB",CV$ NAME:7 0,43279,4     򮠠䠠ﮠ󭭭Πԭ󭭭򍢠򿠠٠󠠠嬠㮠孭󠠠堦󠠠ӠŠ     SCR",LO%(0):6190VS1%(1)0:ERASE,S1%(0)::S1%(D):BLD,MP$GF$".SCR",S1%(0):6190S2%(1)0:ERASE,S2%(0)::S2%(D):BLD,MP$GF$".SCR",S2%(0):6190$S3%(1)0:ERASE,S3%(0)::S3%(D):BLD,MP$GF$".SCR",S3%(0):6190.8L3500VQF6OC,R,C:IPT,Z$:Z(Z$)R"p,7500@GF$(OB$,12,4)]B(PR$(1)):B0B3B0mD(PR$(2))(PR$(3),1)"N"B0SNTR:6130SNFA:SL(PR$(4)):B16150,6160,6170,6180LO%(1)0:ERASE,LO%(0)::LO%(D):BLD,MP$GF$".32ČBEEP:5650$+PRNT,Z$;:Z1$Z$S0LOC,22,39:IPT,Z$:Z$(13)Z1$Z$:5670^:Z$Z1$D(Z$)(LO$)(Z$)(HI$)ČBEEP:5650IMID,A$,QN,1,Z$lLOC,10,1:CO(1)(Z$)vSA$(SU)SA$(SU)Z$QNTAFA:KP0CLRKBD:L(TX$,1)">"X9%0ENE1:ETE1*EDLOC,22,39:PRNT," ";fLOC,8,1:INSTR,1,SH$,"#",QQ%QQ%0ČPRNT,SH$:5630PRNT,(SH$,QQ%1);(" "(QN),2);"."KP0:8000STEN1LOC,22,39:PRNT," ";LOC,22,39:5880&(Z$)C$|PR$(3)"C"4PR$(5)""PR$(5)" "(18SP)>TEENOA$(BL$,TQ)LOC,22,6:PRNT,"Press the key of your response - ";LOC,23,15:PRNT,"then press ENTER"QN1TQEST1TE1GIT,1,EINSTR,1,TX$,"---------",X9%#SP1LOC,I1,1:ESP19I:X$SO$(E):FS$(E)"000"XINSTR,1,X$,"|",QQ%:XQQ%g"X05420q'5460w,:6MID,X$,X,1," "@FS$(E)FS$(E)("000"" "(X),3)J5400T:^FS$(E)FS$(E)"041":PRNT,X$;hIrLOC,20,1:PRNT,SxS50SH$(S51)""5290+S5S51?ST$(S5)SH$(S5)I5250T12200bLOC,10,1qIS55350}I1S5((PO)1)1ČPRNTPRNT,ST$(I);IPR$(8)""PR$(8)" "(10S5)PR$(4)""PR$(4)" "(9S5)I1920 QF58707500'TQ(PR$(1))2I29OPR$(I)""PR$(I)SG$(I)VIgPR$(1)"P=0"xPR$(3)"CLS" TATRTEEN:EN1:KP08000(ENTE27500<TAFAFI29PPR$(I)""PR$(I)SG$(I)ZInPR$(1)"P=0"T$TX$""$,GIT,1,ST2:SC$TX$""-@SP0<JIST3EN]TGIT,1,I:INSTR,1,TX$,"|",X%tcX%0IEN1:4210hSPSP1:SO$(SP)TX$""rIwST3SPEN4260|IST3SPENGIT,1,I:SH$(I(ST2SP))TX$""I3500740 $LOC,24,40:IPT,KB$,16 8QFFA:KB$"Q"QFTR< :F KPFAL R \ 7500x SU(PR$(1)):SA$(SU)"" I29:SG$(I)PR$(I):I LO$(CC$,1):HI$(CC$,1) I110:SO$(I)"":SH$(I)"":I GIT,1,ST:SH$TX$"" "GIT,1,ST1:ST,"Press "; g (R9$)23190B l I1E:PRNT,(R9$,I,1);",";:If v PRNT,T$;" or ";(R9$,1);" - ";{ CLRKBD:IPT,KB$ INSTR,1,R9$,KB$,Q%  Q%0ČBEEP:3300 PRNT,KB$;  OI((CT$,(Q%1)31,3)):QFFA:KPFA *  KPQFFA:3R$(1)"P=0"& PR$(6)""PR$(6)"TG"A  PR$(7)""PR$(7)"NP"[  PR$(8)""PR$(8)"8" 0 INSTR,1,CC$" "," ",X%:R9$(CC$,X%1) : 8000 D (R9$)13C9:T$"...":E6:3160 I C27(R9$)2:T$(R9$,(R9$)1,1):E(R9$)2 X LOC,24,C b PRN2370& $ X((OT$,(CO(R9)1)31,3))5 . X0OIX; B A ` T j D$(OB$,12,4)j t DT$MP$D$".DAT" ~ KLOSE,1:OPEN,DT$140 FIELD,1,40TX$ 7500:8000 3500 QF3370 12160 7500 PR$(1)""P):KPFA:QFFA : 1000# > KLOSE,1,3:QFTR:KPFAD J 4T >7500h HSF$(OB$,12,4) RSF$"TEXT"İ8000:2195 CHAIN,MP$SF$".SUB",CV$   OI(SR$):QFFA  7500:9750    R9(OV$)  CO(R9)06QF1600;1640%@:/J6800TOC12000,2100,3000,2200,4000,5000,2500,2300,2400,6000,6200,6600,,12000,2240^1750h:rFIELD,2,6D9$,3ES$|GIT,2,1(ES$)016801720::"-ES/ND-":: OI(ES$                    ! ! ! ϢԠΠΠ!! """JTX$""TX$(BL$,39)5TLOC,RW,CW:PRNT,TX$;^Tn WRITE A RECORD#x8LSET,ZZ$(F),TX$EPUT,F,RKQg KP LOGICm{KP6670KP0:(16384)1286640KB$((16384)128):49168,0KB$"Q"KB$"q"QFTR,6 PRINT ROUTINE@ KLOSE,F3F2(F2)ČOPEN,OC$2SO:6370GOPEN,DT$140MSn  READ A RECORDtRW17TX$" MANAGING FOR SUCCESS SERIES"(RW21TX$" PERSONAL DEVELOPMENT"2GIT,F,R<TX$ZZ$(F)""Fd BLOAD AND PUT SCR FILE2BLD,SF$,A8%(0)?HGTRĐSPUT,X,Y,A8%(0)Y_8B OPEN FILES FOR THE APPLELVKLOSE,FjOPEN,F$(F)FLGoFIELD,F,LGZZ$(F)t CLOSE FILES FOR THE APPLE) (TM$,SS,1)"1"5130E SS1TM$"1"(TM$,2,(TM$)1):5110i TM$(TM$,SS1)"1"(TM$,SS1) TX$(TX$,40)TM$ F1:RUL:6500 F1:6300  p z NEXT SCREEN  PRNT,24,1,CP$ KPTR   W24:CW16:TX$"Please remove your disk.":67009 4080? _  -----------------------|  UPDATE USER MENU  ----------------------- F1 F$(1)"USER.DAT":LGJD:6200 SS(PR$(2)) F1:RUL:6400 TM$(TX$,41,JD40 8I B M  CLOSING GRAPHIC -- TREE WITH LEAVES AND FRUITS i 6600:QFTR4090 SF$MP$"SUN.SCR":X68.875:Y31:HGTR:6100 RW19:CW14:TX$"CBS SOFTWARE":6700 RW21:CW7:TX$"MANAGING FOR SUCCESS SERIES":6700/ RSOFTWARE LINES  5& I03b 10.875,18I299.875,18I:10.875,38I299.875,38Ii I{ RW5911920 I03 10.875,RWI63.875,RWI:245.875,RWI299.875,RWI I RW $I03 .10.875,138I299.875,138I:6100 35008 RW20:CW20:TX$"PRESENTS...":6700> D END OF UNIT GRAPHIC -- RISING SUN WITH LEAVES 5000 6600:QFTR3070 SF$MP$"SUN.SCR":X68.875:Y21:HGTR:6100 KPFA  CBS =   C03$OPEN.SUB" 0A8%(940)9TA0W(PR$(1))2000,3000,4000a$KPFAu.FIELD,1,40TX$8CHAIN,MP$"CMND.SUB",CV$B  OPENING GRAPHICPR$(2)"1"2070 SF$MP$"CBS.SCR":X(66.875):Y42:HGTR"" " " " " """"