' +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`箠砠𮠠Ǡ®ǠîǠĮǠ캠򠍢󺠠蠠󮠠󠠠堠󮠠笍笠笠箠堠᢭󠠠                        )RT$ 2< EZ(ST$(I1),1)" "ST$(I1)RT$ST$(I1):7780c_ST$(I1)RT$" "ST$(I1)id|" "ST$(I1)d1):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"C1|PSPS1:6760X!b :I116:ST$(I)"":IbSST:T11:PR$(6)"TL"T1ST:SST2|ISEN:F1:RI:4000ST$(IS1)TX$IKPČIPT,24,40,Z$:KP0:PRNT,24,1,BL$:Z$"Q"QFTR:7430UR(PR$(4)):PR$(4)""UR8LW(P(OL$,NN1)OV$(OL$,1,2)/"OT$(OL$,3)5,}TINSTR,1,OL$,"(",NN%:NNNN%:SRNN1:PSSR:PM1:I117:PR$(I)"":I^NN0PM0:7000h(OL$,PS,1)")"PR$(PM)(OL$,SR,PSSR):7000r(OL$,PS,1)","PR$(PM)(OL$,SR,PSSR):SRPS1:PMPM: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$ǠîǠĮǠ󮠠ɧ堠󺠠Ǡ®̠庠堠堠䬠󬠠堠换󮠠卢䠠䠠󠠠䠠󮠠󮠠栠纠󮬠󠠍㮩㮩󠠠庠䠠砠堠󮠠堠堠󮠠렠宠ߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN     䠠뺠ɠ󺠠堠蠠謠䠠ᮠɠ堠䠠򠠠躠묠砠󠠠庠堍󬭭堠򮠠򍢠쭭箠뮠򠍢򮠠®ǠîǠĮǠɧ󺠠Ǡɠ젠Ạ󮠠卢젍𮠠Ạɠ蠠⮠䠍頠ﺠᠠ卢䍢󠠍󮠠箠宠󮠠 )ЀЂԂԂך׺׺ժժݮݯի宠堠嬠󮠠썢堠􍢠堠堍򠠍î堠笠Ԯ®堠笠堠󠠠蠠򠠠󮠠󮠠ᠠ󮠠󮠠孭ᠠ󮠠堠󮠠򺠠砠뮠󠠍򮠠亠䠠덢󮠠󺠠렍󮠠󠠠젠箠栠󮠠Ǡ®ǠîǠĮǠ ',ܱ㵀뱀㎀΁ʁ叀ʂЪʂԪʂʂʂʂ 򠍢쮠î󠠠宍砠󠍢堍󮠠®䠠򠠠󮠠젠¢󠠍笠ᠠ󮠠堠堠󮠠堠󠠠宠蠠宠塠ᠠ򠠠򬠍뮠堠®堠î䮠堠堠¢󠠠堠묠󬠠󠠠ᢠ堠󍢠堠ŁՂԪժԪՊ֊Ղ׀Ꝁ쵀潀潀激 *CꇀߪߪߪߪՇՎՎǯ՚𪃸՚ꁀޚꀀغؚ܎܆܁܁ᘌ؝ؼ챆ñ 宠ᬠ栠箠堠򠠠䮠堍堠⮠󠠠堭塠󬠠󠍢󠠠󍢠忠ɠɠ䠠ɧɍ𮠠󠠍𮠠î󠠠𮠠堠笠塠󠠠®翠堍𮠠󠠠󮠠謠䠠󠍢卢栠宍ﬠ쬠򮠠ᡠ􍢠栠󠠍󮠠򠠍䭭젍󮠠젠򠠠箠堠宠ՊԀՊՊЀ q'=怀ف瀀ρρ񁀞掀܇灀Ɓీ㶀잀憶ఃƁ怘쀘 䠠򮠠ɠ򠠠¢㭭󿠠𠍢󮠠堠󮠠󠍢묠箠󮠠ᠠ򠠠卢宠묠ﬠ󠠍뮠䠠堠䮠讠堠堠󠠠䠍堍îᠠ堍宠砠ᠠ®󠠍ఀ BE  󮠠䠠򠍢򮠠堠讠ɠ򠍢îɧ䮠򠠍ɠ䠍堠堠®ɧ󠠠򮠠򭭭󿠠堠򮠍讠堠򠍢䮠堠䠠򮠠䠠򠠠򮠠砠󮠠򠠠堠䮠򍢠󮠠䍢򢠠嬠堠堠󠠍堠䠍䮠®¢ᠠ򠠠宠뮠堠栠ﮠ󍢠󠠍䮠®宠䍢 !/「ؙÁ̙ÁǁǁÍ  ܁؃恀ށÉժժՊՂՂՀՀ 堠󠠠堠䍢򠠠򮠠砠󮠠󠠍䮠򍢠󮠠®嬠堠堠ᠠ䠍䮠堠䮠¢䠠򠠠宠뮠堠栠ﮠ󍢠򮠠®宠󠠠¢䠠塠堠ɠ򠠠򮠍򠮮嬠󬠍ɠ®򠠠쭍򮠠î򠠠¢宠ՀЪՎ֪Ռުռު쀀ߪڀݪ€ت€€€€ՂՀՀՀՀՀՀՀՐՏ %@㏀ఀ 怀ϱ쀀ã́ӂ숎Àࣀ•  堠堠󠠍䮠䮠®嬠¢ᠠ䠍ﮠ󍢠堠䮠宠䍢򠠠宠뮠堠栠®򠠠¢嬠󬠍ɠ塠堠ɠɧɠ堠󮠠砍ɠﮠɠ堠®ɧ󠠠򠠠宠®堠󮠠î򠠠¢܁ÿՀՀĪԂ߃ՊѪժԠՊԨԪĪՂՂՊ 96ကÁೆᘴ冀  î򠠍򠠍¢󮠠®宠堍󠠠堍򠠠箠栠򮠠򠠠䠠卢쮠蠢ɠ堍󮠠ɧɧ뮠ɠ栠®ɠ󬠠®砠ɧ򮠍ɧɧ宠ɧ堍宠ɧ򍢠󮠠䍢򠠠󮠠ժժժժՊ඀඀඀ᎀЄԄՄҪՐʪՐҪՔʪՔʪ GC:ߛǿ߁놀ժѯͪՊƚ΁з̷􆀀䷀瀀඀ᶀ움඀඀  嬠󺠠󠠠󠠠򍢠󮠠䍢򠠠򮠠砠󮠠堠堠󠠍䮠䮠®嬠¢ᠠ䠍ﮠ󍢠󠠍䮠宠䠠򠠠宠뮠堠栠頠󍢠蠠򮠠®¢堍宠󮠠嬠砠ɠ젠塠ɠ젠îɧ󠠠򮠠卢獢®ɧ䮠򠠍 5🀀เǁ؁ρ΃É΃ÁԚ瀯˯򩧁©Ԋ 򍢠󺠠󿠠󠠠󿠠󿠠堠٠Πﮠ栠󿠠忠栠󿠠󮠠堠٠Πﮠ䠠󿠠󭭭忠󿠠堠٠Πﮠ󿠠堠䮠󠠠堠󠠠󠠍堠뮠纠䠠ȀȂʂʊʊҊԊԀ ;)4眀 挃̙̹Ι怀͙̹̿熰쀇였́혜瀀挀朞㌆윛぀ہ쌶憌̃ 殠砍ᠠ򠠠®򠠠î򠠠Į򠠠换젠殠翠箠栠堠󮠠堠卢孭宠󬠠宠뮠묠󮠠򠠠󠠠򿠠Ԡí󠍢ᠠ¢堠箠孭堠쮠笠笠笠箠瀛ʟ q)=߿ہㆀÏށ z"# ҮԠԠà ðҮ͠+"ðծԠ"ӮԠ ðήҠðβ®ԠNðβԠeðβîԠð׮ԠðԮԠðծԠ ðîҠ ðîҠ ðĮҠðͮҠðîҠðĮҠðϮҠ !ðîҠ"ðͱҠðîҠðȮҠðٮҠ ðîҠ ðٮҠ ðЮ ð׮  ðή  ðӲ ðŮ ðӮ  ðĮ Ӡ ðή ðϮ ðǮ  ðɮ ðЮ ðή  䠠嬠󬠍ɠ塠堠宠®堍砠򮠠î󮠠򮠠¢ɠɠ󬠠򠠠䠠宠ɧɠ堠󮠠ɠ렠򠠍ɠ䠍堠堠®ɧ󠠠򮠠îɧ䮠󠠠忠堠󮠠î򠠠¢®󠠠묠󮠠󮠠宠堠󮠠嬠묠󮠠嬠宠ᠠ堠򿠠                                                   䠠嬠蠠󮠠󠠠󠠠󠠠󠠠砠󬠠砠堠󮠠亠󠠠墭󿠠KP13090(2KP0:(16384)12813040J2KB$((16384)128):49168,0e3KB$"Q"KB$"q"QFTRk"3q,363 PRINT ROUTINE@3J3TX$""TX$(BL$,39)T3PRNT,RW,CW,TX$3d0RW17TX$" MANAGING FOR SUCCESS SERIES"^%0RW21TX$" PERSONAL DEVELOPMENT"y*0(4)"READ "F$(F)",R"R40TX$f0p0z0 WRITE A RECORD00(4)"WRITE "F$(F)",R"R0TX$022 KP LOGIC2 2/(4)"OPEN "F$(F)" ,L"LG2!b/'l/Nv/ CLOSE FILES FOR THE APPLET/k/(4)"CLOSE "F$(F)/F$(1)S1$:F$(2)S2$/F2(F2)ĺ(4)"OPEN "F$(2)" ,L"SO:12200/(4)"OPEN "F$(1)" ,L"40/ 00 READ A RECORD 0/"RNT,24,1,CP$8'KPTRB'"*E+ BLOAD AND PUT SCR FILEK +f+(4)"BLOAD "SF$",A"ADs+HGTRĐ +PUT,X,Y,ADR+.. OPEN FILES FOR THE APPLE:/D/F2(F2)ĺ(4)"CLOSE "F$(2):12120N/(4)"CLOSE "F$(1)X """( KB$" ":SQ1:SA1< TY$BL$:TZ$BL$B T"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 $' .'P(10),TG$(17),SA$(10)1 t(4)"OPEN "F$(2)" ,L"SON y(4)"OPEN "F$(1)" ,L42"r ~(4);"BLOAD"MP$"LOGO.SCR,A"LO% CP$" Space Bar to continue, or Q to Quit.""" NP$" Space Bar to continue.""" BL$" $"CMND.SUB",CV$ .. 8 Initialize4 B? GF$(3)S LOC3:SO21:OI3 VF$(1)"AAAAAAAA.DAT""":F$(2)MP$"MSTR.OCM":TR1:FATR `AD8192: ADDRESS OF BLOAD SCR FILES eLO%16231: ADDRESS OF LOGO jST$(17),SS(16),PR$(17),CO(99),OP$X4CB2:PYPX CV$"AD!CB!CO!()CP$EN!F$()FA!KP!MP$NP$OC$OI!PR$()LO%PX!PY!QF!RP$()SO!BL$SS!()ST!ST$()TR!TR$()CV$PR!CH!PU!IN!GI!IP!CL!BL!UR!TT$SC$PR$OP$()SA!SA$TG$()MN$MX$LW$HG$SH$TP!KB$SA$()KB$SQ!SA%UA$()TY$TZ$""AN$()AR$()UL!JD!"""  $CHAIN,MP(43617)256 :AD38400LN% AD2 ":PRNTADD ,:CHAINPRNT3U 6:PUTCHAIN3f @:INSTRPUT3w J:GITINSTR3 T:IPTGIT3 ^:CLRKBDIPT3 c:BLDCLRKBD3 h:MP$"C01$""" r1070   Execution  QFFA:CBTR PCd nCBS--STUDENT SYSTEM&x@INCLUDES UPDATES OF:K PRNTW CHAINa PUTm INSTRw GIT IPT CLRKBD BLDMARCH 9,198424576(4)"CLOSE"(4);"BLOAD QPCPIGIC" :LN(43616)     젍󠠠宠ϧ䠠堠®򠠠î򠠠Į򠠠ϧ堠䮠ϧ卢򠠠󠠍ϧ󠠠譠蠠󭭭嬠䍢䮠䬠䠠򠠠栠䮠򠠠®򠠠î򠠠ĮӠ렠堍堠堠䬠宍宠򠠠䭠ᠠ䮠,TX$:LRLR1 I dNT,LR,ZC,TX$:LRLR18 I> d IM dC,TX$:LRLR1f Il dZLR1| I d I dd (260,5) < (4)"BLOAD";MP$F1$;",A";AD:PUT,X,5,ADk (4)"BLOAD";MP$F2$;",A";AD:PUT,237,5,ADq w p z Print text routine   LR2:ZC1 ISTEN RI:(4)"READ";F$(1);",R";R TX$ PRNT,LR,ZC ' F0$"ALIC.SCR":XX226:4000-  3 T Y ^ F1$"FRED.SCR":F2$"GRM1.SCR":X4c h 5000i r o   One face at (XX,5) (4)"BLOAD";MP$F0$;",A"AD:PUT,XX,5,AD    Two faces: at (5,5) an0$"7FAC.SCR":XX4:4000 $ P  F1$"MARY.SCR":F2$"ZACH.SCR":X5:5000V  \ ` | j F0$"1FAC.SCR":XX227:4000 t F0$"2FAC.SCR":XX226:4000 ( 2 F0$"JIM.SCR":XX4:4000 < F0$"8FAC.SCR":XX4:4000 Wright  16 NOV 83( 2000K $KP0:CHAIN,MP$"CMND.SUB",CV$Q .v  Set up screen|  6000 (PR$(1))642100,2200,2300,2400,2500,2600,2700,2800,2900  4 >F0$"RAY.SCR":XX4:4000 H  F KEY.PRESS LOGIC&KP1000/KP0BIPT,24,40,KB$k2KB$"Q"KB$"q"QFTR:1060: CHAIN C01$SMLN.SUB - Subroutine puts one or two faces on screen. Also prints text.  By Charlotte      砠宠򠠠堠렳󠍢堠뮠Ԡíᠠ򮠠𮠠堠򮠠堠𮠠򠠠®򠠠î򠠠Į򠠠젠堍䠍䮠翠堠嬠䠠獢堠53:43,4947,53 1490:+ P1350:P1 7 V  PRINT TX$ IN 40 COL MODE\ p PRNT,LR,ZC,TX$v *  PRNT,LR,ZC,TX$ * ;12:ZC29:TX$"Directing":2000% _57 d181,8886,88U n86,8890,84:86,8890,92a x1490:g ~  DRAW BOX 4  X,Y55X84,Y55X84,Y87X,Y87X,Y55 LR12:ZC2:TX$"Controlling":2000 5 43,7143,49 43,4939,182,YX274,YX274,Y30X182,Y30X181,YQ LR5:ZC29:TX$"Organizing":2000X 5k 231,49231,71 231,71227,67:231,71235,67 (1490: 2 < DRAW BOX 3 F PX182,Y55X274,Y55X274,Y87X182,Y87X182,Y55 ZLR KP0:CHAIN,MP$"CMND.SUB",CV$' ?  DRAW BOX 1E j X,YX84,YX84,Y30X,Y30X,Yq 5 86,32181,32 181,32176,28:181,32176,36 LR5:ZC3:TX$"Planning":2000 1490:   DRAW BOX 2 + XOODFORD date 11/14/83! }3 :5:X1:Y17O 1200:1280:1360:1440n LR7:ZC18:TX$"THE":2000 LR8:ZC15:TX$"MANAGEMENT":2000 LR9:ZC16:TX$"PROCESS":2000 1490 $BC(PR$(1))64 33:XX1 LBC1260,1180,1340,1420!x KEY.PRESS LOGIC&KP1000/KP0BIPT,24,40,KB$k2KB$"Q"KB$"q"QFTR:1165: CHAINqdi C01$QFLO.SUB -- Creates a directional chart for a series ofn questionss x by TERRY H. W     堠򠠍󮠠Ӡ堠宠󠢭堠ӭ󠠠Šͭ򿠠󿠠󿠠ĠԠԢ̠Ԡ󠠠PUT,X,Y,AD< PRINT TEXT IN 40 COL FORMATBVPRNT,LR,ZC,TX$\b& GET TEXT FROM DATA FILE0:(4)"READ";F$(1);",R";R?TX$D 7:(4)"READ";F$(1);",R";R?TX$D LR,ZC,TX$3& GET TEXT FROM DATA FILE90V:(4)"READ";F$(1);",R";R_?TX$eD  BLOAD PICTURE AT ADDR 8192(4);"BLOAD ";MP$F$;",A";AD PUT PICTURE ONTO SCREEN FROM ADDRESS 8192 AT X,YX4217201200@ BLOAD PICTURE AT ADDR 8192Fh(4);"BLOAD ";MP$F$;",A";ADnt PUT PICTURE ONTO SCREEN FROM ADDRESS 8192 AT X,YPUT,X,Y,AD PRINT TEXT IN 40 COL FORMAT PRNT,ED:1200 {0 |Y103165/ ~55,Y250,Y6 YB KNR20L 1320R X   BLOAD GIRLS FACES ONTO SCREEN   LR3:ZC1 ISTEN RI 1820 1770 LRLR1 I X43:Y16PR$(1)"5"PR$(1)"6"ers":1770:NRST (RW14) 2KNRNR5i <RWRW1:RK:1820:LRRW:ZC10:TE$TX$:TX$(TE$,8,26):1770p FKw K0 PY182190:0,Y279,Y:Y ZNRK:LR24:ZC1:TX$NP$:1770 _IPT,24,40,Z$ dLR24:ZC1:TX$(BL$,39):1770 n(TE$,1)">"ST70:W1400:W P140 Z$QU$(P)CO(1)P7 PZ KP0:CHAIN,MP$"CMND.SUB",CV$t :F$"HAND.SCR":1670 X123:Y29:1720 LR15:ZC7:TX$"*":1770 5 149,8131,8131,169253,169253,81189,81 LR2:ZC14:TX$"Effective Manag)"D"4 jLR23:ZC1:TX$" Choose A,B,C or D.":1770L o(16384)1281135m qZ$((16384)128):49168,0 tZ(Z$):Z96Z123ZZ32:Z$(Z) yY$"ABCD" {Y1(Y$) ~Z$(Y$,Y,1)CC1 Y C0ĺ(7):1130 LR23:ZC21:TX$Z$:17 PR$(1)"5"ī14208 $PR$(1)"3"F$"3FAC.SCR":1670U .PR$(1)"3"X1160:1420y 8PR$(1)"6"F$"ALIC.SCR":1670 BPR$(1)"6"X160:1420 LPR$(1)"2"F$"1FAC.SCR":1670 VPR$(1)"2"X170:1420 `QU$(1)"A":QU$(2)"B":QU$(3)"C":QU$(4g KEY.PRESS LOGIC&KP1000/KP0BIPT,24,40,KB$k2KB$"Q"KB$"q"QFTR:1200: CHAIN C01$PROG.SUB BY TONEY MCINTOSHPR$(1)"1"ī1120PR$(1)"4"ī1210PR$(1)"5"F$"2FAC.SCR":1670     󠠠ӠŠ 堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭." % (4)"READ";F$(1);",R";R+  (4)"READ";F$(1);",R";RP  0:Y176199:56,Y279,Y:YG LR22:ZC34:TX$" ":2000:LR23:ZC9Q 1250W ~  PRINT TEXT IN 40 COL MODE  PRNT,LR,ZC,TX$ * GET TEXT FROM DATA FILE  TX$"THIS IS TEXT OF WHICH THERE ARE 40 COLSPR$(7)"1"Z$"B"ī1500$ 1CO(I)1. 2Z$""4 <: F] P SPACE BAR TO CONTINUEc Zm eKPTR nLR24:ZC1:TX$NP$:2000    INVALID RESPONSE  (7):(7) LR24:ZC15:TX$"TRY AGAIN":2000:I1500:I (1)(Z$)64:CO(1)1CO(1)3ĺ(7):1250F LR22:ZC34:TX$Z$:2000d CO(1)1CO(2)2CO(2)2 (PR$(5))1CO(2)2CO(1)2CO(4)2 ((PR$(4))1CO(2)2CO(1)3CO(3)2:CO(2)0 -PR$(6)"1"Z$"A"ī1500 .PR$(6)"2"Z$"C"ī1500 0TEN $RI:3000$ .2000:LRLR1+ 8I5 B1210? L1350] VCHAIN,MP$"CMND.SUB",CV$c   INPUT RESPONSE  LR22:ZC34 (16384)1281250 Z$((16384)128):49168,0 Z(Z$):Z96Z123ZZ32 Z$(Z)) CO- KEY.PRESS LOGIC&KP1000/KP0BIPT,24,40,KB$k2KB$"Q"KB$"q"QFTR:1110: CHAINq C01$CHOI.SUB -- RESPONSE TO VARIOUS QUESTIONS by TERRY WOODFORD date 11/16/83 LR19:ZC1 IS     >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ȠԠΠ󭭭򍢠󠠠󭭠򿠠٠󠠠Πԭ嬠㮠孭R,ZC,TX$  T T- ^PRNT,LR,ZC,TX$3   0,TX$H  (Z) I1(Y$)+ Z$(Y$,I,1)CC12 IG C0ĺ(7):7030p LR24:ZC22:TX$Z$:8000:P1400:P| K1NR Z$QU$(K)CO(1)K K LR24:ZC1:8000:TX$(BL$,39):8000  @ J PRINT TX$ IN 40 COL TEXT T ^PRNT,Lponses.  Y$"ABC":NR3N LR24:ZC2:TX$" Choose A,B, or C.":8000X 7000^ d X b Gets response from keyboard. Sets CO (1). l v(16384)1287030 Z$((16384)128):49168,0 Z(Z$):Z96Z123ZZ32:Z$3 $ K14:QU$(K)(64K):K@ $(PR$(1))645000,6000c .KP0:CHAIN,MP$"CMND.SUB",CV$i   For 4 responses.  Y$"ABCD":NR4 LR24:ZC2:TX$"Choose A,B,C, or D.":8000 7000  p z For 3 res KEY.PRESS LOGIC&KP1000/KP0BIPT,24,40,KB$k2KB$"Q"KB$"q"QFTR:1070: CHAINq C01$RESP.SUB - Asks for a response to any number of choices. By Charlotte Wright  22 NOV 8    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`L4<=F=<` ' Ȓ?@@e'&@><' '<=L ߅>?>>` A@ B WD$(3)"DIRECTING"+^WD$(4)"CONTROLLING"1hd1:PRNT,LR,ZC," ":22708 Z13ČPRNT,LR,ZC," ":2350O ZC32ĺ(7):2270c$ Z65Z902270) PRNT,LR,ZC,(Z):W$W$(Z):ZCZC1:2270. @E initialize variablesJOWD$(1)"PLANNING"TWD$(2)"ORGANIZING"YPR$(3)):ZC37&W$"":A16384:P995FPRNT,LR,ZC,(P9):P9127P9eI150:(A)128ĂI:2270~Z(A)128:16368,0Z96Z123ZZ32(Z8Z127)W$""2270 Z8Z1272320 (W$)1W$"":2310 W$(W$,(W$)1) ZCZCī1780#TX$AN$(E):QRQR2:2000*EGLR24:ZC1:TX$NP$:2000_(16384)1281792wZ$((16384)128)1320 PRNT TEXT IN 40 COL MODEPRNT,LR,ZC,TX$* FLASHING CURSOR LR(K4LR24:ZC1:TX$NP$:20008(16384)128ī1672cZ$((16384)128):49168,0:CHK$"NO"m1320s CHECK FOR KEY WORDS ASSOCIATED WITH THE CLIENTS RESPONSE.QR13E14LRQR:ZC17:AN$(E)"""READ";F$(1);",R";RTX$" READ";F$(1);",R";RATX$G TX$W 1320e,6 DETERMINE IF CLIENT ANSWERED THE@ QUESTION YES OR NO.JhrA$"YyNn":K(PR$(5))Z$"Y"AN$(K)WD$(K)$:TX$(TE$,21,18):6000$ )NRNR1. ,15304 6: S  NEXT SCREENY v LR24:ZC1:TX$CP$:6000 KPTR  p z PRINT TX$ IN 40 COL MODE  PRNT,LR,ZC,TX$  X b GET TEXT FROM DATA FILE lv(4); (TE$,1,1)">"ī1490* RWRW1:LRRWW RNR:7000:TE$TX$:TX$(TE$,2,18):6000c NRNR1m 1430s y   INSERT RIGHT TEXT ROUTINE  NRST2:RW8:TE$"" (TE$,1,1)">"ī1590 RWRW1:LRRW RNR:7000:TE$TX1400 P11500:P' RST2:70001 ZC22; 1500Q 5000:QFTR1320b NRLR1320i 0 Y62148:7,Y130,Y:Y Y62148:147,Y272,Y:Y (CHAIN,MP$"CMND.SUB",CV$ x  INSERT TEXT ROUTINE  RW8:TE$""42,36276,36276,151142,151142,366 v142,60276,60D ~LR6:ZC3e TX$"LONG RANGE PLANS":6000t LR6:ZC22 TX$"SHORT RANGE PLANS":6000 LR7:ZC3 TX$" 1 - 5 YEARS":6000 LR7:ZC22 TX$"1 WEEK TO 1 YEAR":6000 ZC2  DATE: 14-NOV-834 L  Print textR ` LR2:ZC1o ISTST1 RI:7000:6000:LRLR1 $I 8NRST2 B DRAW CHART `5 j1,36139,36139,1511,1511,36 l1,60139,60 o6# t1$ KEY.PRESS LOGIC&KP1000/KP0BIPT,24,40,KB$k2KB$"Q"KB$"q"QFTR:1320: CHAINq.  C01$PLAN.SUB -- LONG/SHORT RANGE PLANNING  AUTHOR: KATE RIES      :HC0*:X39:Y158:XC87:YC19:12000L:X81:Y126:XC80:YC19:12000n:X116:Y94:XC80:YC19:12000:X153:Y62:XC63:YC19:12000:S12000:12000:X153:Y62:XC63:YC19:12000:"3 66 HPLOT A RECTANGLE WITH SLANTED LEFT SIDE GIVEN X,Y CORNER, LENGTH, WIDTH, STEP AND COLOR66HC6XFXXC6IYYYC6X,IXF,I6XXTP7I 7:: CLEAR SPACE FOR TEXT, INNER:C, AND HC..HC%/IYYYC5/X,IXXC,I;/A&/G22 HPLOT A RIGHT TRIANGLE GIVE X,Y CORNER, LENGTH, WIDTH, COLOR, AND STEP22HC2XFXXC2IYYXC3X,IXF,I3XFXFTP3I#PRNT,24,1,(BL$,39)##'B' GET TEXT FROM FILEH$'N)'l.'(4);"READ";F$(1);",R";Iu8'TX${j'*+ PRINT TEXT IN 40 COL ++PRNT,LR,ZC,TX$R+. .D HPLOT A SOLID RECTANGLE GIVEN X,Y,XC,Y1(#*2# Text routine8<#LR2:ZC1EF#ISTENWP#10000:11000^Z#Idd#j## Input to continue and finish graphic#LR24:ZC1:TX$NP$:11000#(16384)1289150#Z$((16384)128):49168,0#KP0179,157273,157273,181179,181179,157TLR21:ZC27:TX$"Change plans,":11000LR22:ZC27:TX$"behavior,etc.":11000178,169160,169:165,164160,169165,174@J Input to continueThLR24:ZC1:TX$CP$:11000|KP,10067,100:72,9567,10072,105E25,9365,9365,10525,10525,93s41,9341,66130,66:125,61130,66125,71P11000:PXb Draws change plans box and arrows.lv{1247,87247,156:242,151247,156252,151),106239,106:234,101239,106234,111[ 257,114257,169158,169:163,164158,169163,174CRĒ0:2300:TX$(BL$,4):CRTR:3060 Draws poor box and arrows and clears these.1:TX$"Poor"PRNT,13,5,TX$ 97,24,"Taking"% >PRNT,10,24,"Action"/ C91005 H; K  P1200:PQ  W Draws good box and arrows and clears these. 1:TX$"Good":CRFA 243,101273,101273,113243,113243,101 PRNT,14,36,TX$% 227 Outlining and printing text.;  CLEAR SPACE FOR TEXTF 15000d PRNT,21,7,"Establishing" PRNT,22,7,"Standards" PRNT,17,13,"Measuring" PRNT,18,13,"Performance" PRNT,13,18,"Evaluating" PRNT,14,18,"Performance" 4PRNT,9YC12:14000 %  SIDES. HC3C XC10:YC21:TP1m X147:Y151:12000:X147:Y172:13000 X182:Y119:12000:X182:Y140:13000 X217:Y87:12000:X218:Y107:13000 X252:Y44:YC32:12000:X252:Y76:13000   :YC31! jX28:Y151:HC1:12000< tX63:Y119:HC2:12000V ~X98:Y87:HC1:12000q X133:Y55:HC2:12000w   TOPS HC3 XC23:YC10:TP1 X39:Y140:14000 X74:Y108:14000 X110:Y76:14000 X145:Y44:XC106:"  By Charlotte Wright;  21 NOV 83A G Q 1070o CHAIN,MP$"CMND.SUB",CV$ .(PR$(1))641080,3000,5000 3 8 = ? GLR2:ZC1:TX$"Controlling means:":11000 L V BOXES ` eXC119  KEY.PRESS LOGIC%KP1000.KP0AIPT,24,40,KB$j2KB$"Q"KB$"q"QFTR:1055: CHAINp C01$STEP.SUB - Graphic subroutine - steps with text on them. Also arrows and boxes and more text.      @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 ADH  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 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     ԨˬԨˬĬèн¬̬Ǭèн¬̬ǬԨˬΨԠԨͬĬ̬ЬԨͬĬ̬ЬԨͬĬì̬ЬβԨˬ̬TROLLING"hdlYWD$(3)"DIRECTING"/^WD$(4)"CONTROLLING"5hddN$(4)"CONTROLLING"Shd] Io AO4CO(5)1u {@E initialize variablesJOWD$(1)"PLANNING"TWD$(2)"ORGANIZING"YWD$(3)"DIRECTING" ^WD$(4)"CONZ$((Z$)32).  8 CHECK FOR ALL N ANSWERS> N Z13ī3090Z CO(5)0e I14| AN$(I)""AOAO1 I AO4CO(5)1 @E initialize variablesJOWD$(1)"PLANNING"TWD$(2)"ORGANIZING"IN 40 COL MODE(PRNT,LR,ZC,TX$.*4Q FLASHING CURSORWd49168,0CK$"YES"LR(PR$(2)):ZC37IPT,LR,ZC,Z$W$Y$INSTR,1,W$,Z$,X%INSTR,1,W$,Z$,X%X%0ī2260PRNT,LR,ZC,Z$(Z$)96 THE CLIENTS RESPONSE.(2QR13=E14^LRQR:ZC17:AN$(E)""ī1780{TX$AN$(E):QRQR2:2000ELR24:ZC1:TX$NP$:2000(16384)1281792Z$((16384)128):49168,01320 PRNT TEXT "YyNn":K(PR$(5))&|CK$"YES":2230@Z$"Y"AN$(K)WD$(K)OK4İ3000wK4LR24:ZC1:TX$NP$:2000:16721700(16384)128ī1672Z$((16384)128):49168,01320 CHECK FOR KEY WORDS ASSOCIATED WITH" CHOSE. "CO(1)0:F$"BAD"-I13]AR$(I)"X"F$"2":AR$(I)" ":CO(1)I:1320dI{I3CO(1)0:1320"CO(1)0ī1320,6 DETERMINE IF CLIENT ANSWERED THE@ QUESTION YES OR NO.JhrY$30:AR$(3)Z$:PRNT,LR,ZC,Z$8 LR24:ZC1:TX$NP$:2000P (16384)1281310w #Z$((16384)128):49168,0:1530 %AR$(1),AR$(2),AR$(3) (CHAIN,MP$"CMND.SUB",CV$   CHECK TO DETERMINE WHAT QUESTION THE CLIENT":2000:LR14:ZC11:K1:2230:AR$(1)Z$:PRNT,LR,ZC,Z$ LR16:ZC7:TX$" 2. a small business":2000:LR16:ZC11:2230:AR$(2)Z$:PRNT,LR,ZC,Z$ LR18:ZC7:TX$" 3. an organization or":2000:LR19:ZC20:TX$"club":2000:LR18:ZC11:22":2000? LR10:ZC4:TX$"Type an X next to each item ":2000 LR11:ZC4:TX$"that you manage. Press the space bar":2000 LR12:ZC4:TX$"for those items you do not manage.":2000 A$"Xx ":CK$"NO"6 LR14:ZC7:TX$" 1. a household1170 VPR$(1)"2"ī15800 `PR$(1)"3"ī1530F jPR$(1)"4"ī1710\ tPR$(1)"5"ī1640b ~  PRINT OUT MENU OF QUESTIONS K4İ3000  LR824 PRNT,LR,1,(BL$,39) LR Y$"Xx " LR8:ZC5:TX$"What do you manage ?RAMMER: TONEY MCINTOSHK  DATE : 11-14-83  Modified for 3 responses $ 12-28-83 DADollries . INITIALIZE ARRAYS 8 =8000 BPR$(1)"0"ī7  KEY.PRESS LOGIC&KP1000/KP0BIPT,24,40,KB$k2KB$"Q"KB$"q"QFTR:1320: CHAINq C01RES2.SUB ASKS A SERIES OF QUESTIONS TO THE CLIENT.  PROG     ԨˬĬԨˬĬèн¬̬ǬԨˬԨˬ¨н¬̬ǬԨˬĬԨˬĬԨˬèн¬̬ǬԨˬĬ¨н¬̬Ǭ+'+ 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     "н¬ìӲԨн¬ìӲԨн¬ìԨн¬ìӲӲԨн¬ӲԬӲԨн¬ìӲԨн¬ìӲìӲԨн¬ìӲӲԨн¬Ԩн¬ӲԨн¬ìӲԨн ԨˬԨˬӲԨˬԨˬ¨н¬̬ǬԨˬĬԨˬĬǬԨˬĬèн¬̬ǬԨˬĬ¨н¬̬Ǭ¨н¬̬ǬԨˬԨˬĬèн¬ĬԨˬĬԨˬ¨н¬̬ǬԨˬĬ¨н¬̬ǬԨˬ¨н¬̬ǬԨˬèн¬̬ǬԨˬĬ¨н¬̬ǬԨˬԨ˰Ԩˬ¨н¬̬ǬԨˬĬԨˬĬ²èн¬̬ǬԨˬĬԨˬĬ¨н¬̬Ǭ= 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$BdT2$,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               ԨˬĬìԨˬĬìΨǩԨнĬìШ©ԨˬĬìΨƬԨнĬìШ©ԨˬĬìԨнĬìШ©ԨˬĬìԨˬĬìШ©ԨˬĬìԨˬĬìԨˬĬìΨűԨн¬ìЬШ©Ԩн¬ìЬШéԨˬΨĩԨнĬìŴԨͬĬìԨͬĬìϨĩԨˬ¬ìШԨͬ¬ìЬìϨéԨˬ¬ìԨˬ¬ìΨéԨнĬìШΨɬԨн¬ìШԨͬĬìԨͬĠԨͬĬìԨͬĬìϨԨˬ¬ìԨˬ¬ìԨˬ¬ìϨ©Ԩˬ¬ìΠԨˬΨ©ԨнĬìШΨԨнĬìШԨͬĬìԨͬĬìԨˬΨԨˬ¬ìЬβ Ԩˬ̬ԨˬӲӲԨн¬ӲԨˬԨˬ쌀ˀ̒Ѫ඀ٙа☊ВЂЊҊ҂҂€€‚ЊЊЊЊЊЊЊЊЊ ,B큀῀ǹ怀̹̇ر̙̹晀πα΀胎Ùҁށׁ惽怎΀؁လ໰!! ,BML$(TX$,3,2)$,LAN$(TX$,5,2)5,VF9$(TX$,7)G,`F1$(TX$,20)\,jF2$(TX$,21,20)n,tME$(TX$,41)t,~Z"ԨˬìԨˬΨԨͬ¬ìԨˬìǨԨнìǨԨˬìԨˬìǨԨнìǨԨˬìԨˬìǨԨнìǨԨˬìǨԨˬԨˬǨԨнìǨԨˬìԨˬԨˬΨԨˬ¬ìβàԨˬ̬Ш©ԨˬĬìԨˬĬìԨˬĬìԨˬĬìԨˬĬìԨˬĬìΨȩԨнĬìԪժժЪԔՔ %@က񁳀̱ǃтꌌȏӂက""