' +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- (   *vӠ@跻~!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`®䠠䠠笠宠堠堠宠䮠Ũ䠠堠栠򮠠堠󿍢®堠笠箠ԲŨ笠䬠򭭭󍢠󠠠󮠠堠堠ᠠ笠堠󮠠蠠箠䠠󮠠䠠堠箠򠍢箠󮠠򮠠宠ᠠ⭭򮠠箠󮠠䮠塠쮠򠍢堠箠îɠ󠠠宠䬠堠젍宠堠󮠠󠠠쬠孭嬠󮠠堠󿠠®󠠠砍𿠠堠颠嬠嬠堠箠堠堠򮠠Ũ砠򠠠卢󮠠堠忠®쮠򠠠蠠󮠠Ũ堠翠堠堠堠俠®宠󠠍󠠠󠠠䠠箠堠堠箠Ũ堠󮠠󍢠宠ᠠ󮠍󠠠堠󮠠㨱򠠠󬠠嬠䠠ﬠ򮠠ú򠍢󮠠󠠠Į󠠠Ů堠㨱ﺠ®堠îР󮠠󠠠宠Q󮠠堠򠠠嬠栠砍䠠砠뺠󠠠󺠠󠠠䠠󠠠󺠠󠠠㠍堠庠󠠠젍󮠠砠󮠠󠠠庠嬠宠笠箠堠Į󠠠Ů堠㨱®堠î󠠠󮠠ﺠ󮠠㨱堠宠젠⮠堠蠠󭭭ź宠󮠠堠Ů堠㨱ﬠ򮠠®堠î󠠠Į󠠠ﺠ堲젠󮠠젠򠠠箠󠠠㨱䠠󮠠󠍢栠箠򠠠箠堠堠Ů堠㨱ﬠ򮠠®堠î󠠠Į󠠠ﺠ砠󬠠󮠠砠묠򬠠堍󮠠󭠠ᬠ砠㮠栍砠庠󭠠䠠󮠠堠󺠠堍堠箠󠠠䮠ӳᬠ򠠠宠Ψ䬠翠سᠠ򮠠ᬠ宠ᠠ堠堠󠠠󮠠󠠠󠠠砍堠箠󺠠󠠠󠠠䠠𠠠箠䠠͠宠ӭ笠󠠠ᮠ󠠠󮠠󬠠󮠠砠宠ﬠ򮠠ĺ堠󮠠箠堠笠䠠󠠠󮠠έ堠堠笠堠碠砠栠󠠠򠠠󠠠堠䠠堠箠䮠򠠠㭠򭠠ᠠ栠젠箠堠堠䠠宠宠堠򭠠򠠠魠󮠠󠠠栠󺠠ᠠ堠箠堠箠󠠠󮠠έ嬠Ҡ笍堠򠠠宠砠堠翠ؠ蠠򭭭򠠠򮠠󬠍㮠󠍢忠Z32Z126ČBEEP:1875)W$W$Z$=I5AD3:1973FAD0c(W$)ADLL(I,J)ī1976Z13Z8ČBEEP:W$(W$,(W$)1):1900PRNT,Z$CIT$(I,J)W$LOC,RW(I,J),CM(I,J)CT$(BL$,(LL(I,J)C2)):PRNT,T$W$""I,J),CM(I,J)C1:PRNT," ":LOC,RW(I,J),CM(I,J)C:1924LOC,RW(I,J),CM(I,J)C1:PRNT," ":W$(W$,(W$)1):LOC,RW(I,J),CM(I,J)CLOC,RW(I,J),CM(I,J)C:PRNT,(95):CC1(W$)1ADLL(I,J)ČLOC,RW(I,J),CM(I,J)C1:PRNT,(32):18751875)". ":D:FLTR:F2TR2&I5āC0LL(I,J):1840C+C3LL(I,J)O0CLRKBDtSLOC,RW(I,J),CM(I,J)C:PRNT," "XLOC,RW(I,J),CM(I,J)CbCLRKBDlIPT,Z$:Z(Z$)vZ131990Z81930W$""ČBEEP:18757(W$)1W$"":LOC,RW(1:PRNT,"Enter a new item.":1805LOC,21,1:T$(BL$,39):PRNT,T$:LOC,21,1:PRNT,PM$(I,1):LOC,22,1:PRNT,PM$(I,2):LOC,23,1:PRNT,PM$(I,3) EDTRS25ī1830J1LI(I)CLRKBDI5F2TR1830!D16:LOC,RW(I,D),CM(I,D):PRNT,(D1,11:PRNT,"MEETING AGENDA"(rIS2E2J|LOC,FR(I),FC(I):PRNT,FD$(I)YJ1LI(I)LOC,RW(I,J),CM(I,J):PRNT,(LU$,LL(I,J))JIIS2E2I5AD3:1770AD0W$""CLRKBD!S25EDTRİ4000:LOC,21,ending items of"@PM$(9,2)"all meetings. Press RETURN at "sPM$(9,3)"the end of each line. ""PM$(10,1)"Record any information you need in "'PM$(10,2)"your Program Guide, then press RETURN. ",6T^LOC,URN at "? PM$(7,3)"the end of each line. "rPM$(8,1)"Type all new business that you will"PM$(8,2)"have at the meeting. Press RETURN at "PM$(8,3)"the end of each line. "PM$(9,1)"Enter the standard PM$(6,1)"Type the beginning standard items of "mPM$(6,2)"all meetings. Press RETURN at the end "PM$(6,3)"of each line. "PM$(7,1)"Enter all old business that needs to"  PM$(7,2)"be taken care of. Press RETll be "=PM$(4,2)"attending the meeting. Press RETURN "ePM$(4,3)"at the end of each line."PM$(5,1)"Type in the purpose of having this"PM$(5,2)"meeting. Press RETURN at the end of"PM$(5,3)"each line. "4PM$(1,2)"then press RETURN."OPM$(2,1)"Type in the time of the meeting,"qPM$(2,2)"then press RETURN."PM$(3,1)"Type in the place where the meeting"PM$(3,2)"is to be held, then press RETURN."PM$(4,1)"Enter all the persons who wiJ,I ZI69:NC0:J1LI(I)0 dCM(I,J)FC(I)O nRW(I,J)FR(I)1NC:NCNC1X J,Ic I15 CM(I,1)FC(I)(FD$(I))1:RW(I,1)FR(I) J2LI(I) CM(I,J)FC(I):RW(I,J)RW(I,J1)1 J,I PM$(1,1)"Type in the date of the meeting,"3 LU$"________________________________________"I I13:LI(I)1:I_ I45:LI(I)2:Iu I69:LI(I)6:I I69:J1LI(I):LL(I,J)37:J,I LL(1,1)18:LL(2,1)29:LL(3,1)28 2I45:LL(I,1)37(FD$(I)):J2LI(I) <LL(I,J)38 FŠͭ󠠠砠砠렠ĠԠԢ嬠󠠠άŬߦӠ󠠠  ET UP NEXT SCREEN"#,CLRKBD;@LOC,24,1:PRNT,CP$GJKPTRUEMT)ESO\b SET UP NEXT SCREEN",CLRKBD@LOC,24,1:PRNT,CP$JKP1TT) FLTRī32000 J1LI(I5)X: LOC,RW(I5,J),CM(I5,J):PAD,LL(I5,J),(95),X$:PRNT,X$_N JnX II5:1765xb 3400 IS2:JI5 LOC,RW(S2,I5),CM(S2,I5)3:PAD,LL(S2,I5)3,(95),X$:PRNT,X$ 1765H EDFA  CLEAR OUT BOTTOM LINES):I5$(A$,X,1)ī3100 XN BEEP:LOC,23,1:PRNT,"Item number must be " LOC,23,21:X1(A$):X(A$)ČPRNT," or "(A$,X,1):3070 PRNT,(A$,X,1)", ":LOC,23,21(2X)  X11000::LOC,23,1:PRNT,(BL$,40):3000 I5(I5$) &2:KP0   EDIT ROUTINE* EDTRf LOC,21,1:PRNT,"Enter the number of the item that you" LOC,22,1:PRNT,"want to change." IPT,I5$:I5$(13)ČLOC,22,16:PRNT,I5$ F5FL (F5FA)A$"12345":3040 A$"123456" X1(A$aFD$(3);IT$(3,1):AbFD$(4);IT$(4,1):IT$(4,2)""ĺIT$(4,2)bcIT$(4,1)""IT$(4,2)""ĺdFD$(5);IT$(5,1):IT$(5,2)""ĺIT$(5,2)eI69gjFD$(I):J16:IT$(I,J)""ĺ" ";J;". ";IT$(I,J)kJpIz(4);"PR#0"CO(1)$"Y"YN$"N"ČBEEP:2062@YN$"Y"İ3000: EDIT ROUTINE SYN$"N"ī2069]2060ciRLOC,24,1:T$(BL$,39):PRNT,T$S(4);"PR#1"W(12)\(BL$,15);"Meeting Agenda"^_FD$(1);IT$(1,1):`FD$(2);IT$(2,1):EDTR(F5FA)ī2045@I54I55JLI(I):C0:F5TR:1830MEDTRı\J,I:F2FAf4000 LOC,21,1:PRNT,"Any changes? (Y/N) " 2062 4000:LOC,21,1:PRNT,"Any changes? (Y/N) "IPT,YN$:YN$(13)ČLOC,21,20:PRNT,YN$YN򮠠󭭭򍢠䠠ﮠ󭭠򿠠٠󠠠Πԭ嬠㮠孭󠠠堦󠠠󠠠ӠŠ   䍢砍ᠠ翠魭󮠠󮠠󠠠䮠젠箠򠠠󡠠堠箠栠򠠠󠠠宠砠䮠堠堦宠堦箠堦堦򠠠箠堦뮠堠堦箠堠笠宠堠䮠堠䬠堠堠堦宠堦砠堠箠婠婮󮠠խ堠堠᭭䮠砠ή堍砠卢䠍󠠠宠ᠠ           㨱䠠堠砠蠠󮍢󠠠򮠠º򠠠宠Į󠠠Ů堠㨱ﬠ®堠î󠠠ﺠ젠򠠠󮠠蠠˭򠠠󮠠󠠠󠠠堠箠ﺠ堠笠󠠍󮠠堠󮠠頠󠠠ӭ󺠠򠠠砠ᠠ󠠠砠󢭭㨱                        1PE:I:7430*77440:PR$(1)"M"QFFA0777 O7LOC,24,1:PRNT,P1$[7$CLRKBDk7)LR24:ZC40t7.KP1z787B 7`NI$(ST$(I),Y1,1)7j(NI$"0")(NI$"9")ST$(I)(ST$(I),Y1)RP$((NI$))(ST$(I),Y2)7t7~ 8(ST$(I))T$(I)""7380N6TFTRUE(ST$(I),1,1)">"ČLOC,LR,2:PRNT,(ST$(I),2):7350i6LOC,LR,1:PRNT,ST$(I)u6LRLR16LR2473806I6 6PR$(1)""PR$(1)"K"P1$CP$6PR$(1)"M"P1$NP$7(PR$(1),1)"P"KP0:PE((PR$(1),3))757:I(TQ)" "X$/5*T1(PR$(8)):PR$(8)""T1UR>54LRT1:ZC1J5RI116S5\QW15fINSTR,QW,ST$(I),"&",XX%:XX%0YXX%:QWXX%1:7490:72705zI5IURLW:LOC,I,1:PRNT," ":I5I11657550 6SR$(6)"TA"7210$4"PR$""PR$" "B4#LOC,3,13:PRNT,(TT$,27)^4$PR$(BL$,(PR$))72104%P$PR$:I140:(P$,I,1)" "ĂI4&INSTR,I,PR$," ",QQ%4'TQ1X$(P$,QQ%1)"s"" ":72094(X$(P$,QQ%)" " 5)LOC,4,14:PRNT," "3LW24LW24M3PR$(3)"C"āIIURLW:LOC,II,1:PRNT,(BL$,40):II:7160Y3:4500`3 3(PR$(3)"C"PR$(6)"TL")TFTRUE72003 F1:RT1:4000:LOC,3,13:PRNT,(TX$,27)3F1:RT11:4000:LOC,4,13:PRNT,(TX$,27)3  page4!(TF)P116:ST$(I)"":I92SST:T11:PR$(6)"TL"T1ST:SST2S2ISEN:F1:RI:4000f2ST$(IS1)TX$m2I2KPČLOC,24,40:IPT,Z$:KP0:LOC,24,1:PRNT,(BL$,40):Z$"Q"QFTR:74302UR(PR$(4)):PR$(4)""UR82LW(PR$(5)):PR$(5)""LW24L$,"(",NN%:NNNN%:SRNN1:PSSR:PM1:I117:PR$(I)"":IN1^NN0PM0:70001h(OL$,PS,1)")"PR$(PM)(OL$,SR,PSSR):70001r(OL$,PS,1)","PR$(PM)(OL$,SR,PSSR):SRPS1:PMPM11|PSPS1:67601X1b 1lPR$(7)""PR$(7)"NP"2IIOIIX00OL$(OL$,12):O5$"09"OL$(OL$,6)Q0INSTR,1,OL$,")",NN%:NNNN%:n0NN0CC$(OL$,4):66800CT$(OL$,NN1)0 INSTR,1,OL$,"(",NN%:NNNN%0 NN1066800CC$(OL$,NN1)0OV$(OL$,1,2)0"OT$(OL$,3)0,91TINSTR,1,O OJ$(T2$,2,18)/O/d )/OL$""a/R2OI:5100:ST(SR$):EN(ER$):IX(EX$):PA(PG$)m/O5$OP$/IX0ĺ(4)"CLOSE"::(7):::"*** ERROR -> OI (";OI;") IS NOT CORRECT"::A$/I1IX/R2I(OI1):5100/OL$OL$OJ$/I0OLOC,LR,ZC:PRNT,TX$. #. @.S1(S1$):S2(S2$):NN0R.JJ1S1S21w.(S1$,JJ,S2)S2$NNJJ:JJ10000.JJ.. .(4)"READ "F$(2)",R"R2:T2$.EX$(T2$,1,1):OP$(T2$,2,2):SR$(T2$,4,3):ER$(T2$,7,3):PG$(T2$,10,3)/ - Z$Z1$*- Z$LW$Z$HG$ČBEEP:3030:- C0(1)(Z$)Q-l SA$(SA)SA$(SA)Z$k- LOC,22,38:PRNT," "s- SQ- KP0:TFFALSE:- -(4);"READ";F$(F);",R";R-TX$-,- -PUT,PX,PY,LO%(0)-7-1,42279,42-- .:PRNT," "t, LOC,22,6:PRNT,"Press the key of your response - ":LOC,23,14:PRNT,"then press RETURN":LR22:ZC38, CLRKBD:SI$" ", LOC,22,39:IPT,Z$, (Z$)32ČBEEP:3030, PRNT,Z$:Z1$Z$, LOC,22,40:IPT,Z$- Z$(13)Z1$Z$:3041,"----------",A%!+sA%0IITEI+v(TX$,1)">"A%0ENII1:IITE2Z+{SQTQENTEb+II+INSTR,1,PR$,"#",NN%:NNNN%:NN0ČLOC,8,1:PRNT,PR$:1940+LOC,8,1:PRNT,(PR$,NN1)" "((SQ),((SQ)))"."+KP0:7010:STEN1 , LOC,22,38ԀЀЀЀЀЀ A'5̝̟́ϙ칀̙漰̙̙濰挃̃󁀀󀀿Łդ  ӨԨˬ¬Ԩˬ¬ìԨˬ¬ìԨˬ¬ìŨЍ¬̬¬ìӨΨԨˬ¬ìγ èӠн¬̬ԨˬĬԨЬȠРԨԨˬԨ̬ЬԨнըԨЬ©ΨԠԨͬĬ̬ԨͬĬ̬ԨͬĬì̬γǨҩӨԨͬĬ̬ԨͬĬ̬נרֳՠΨԨͬ¬̬ŨΨн¬̬Ǭ R";R ,TX$,F26200),A9$TX$::,8SL$(TX$,2)M,BML$(TX$,3,2)`,LAN$(TX$,5,2)q,VF9$(TX$,7),`F1$(TX$,20),jF2$(TX$,21,20),tME$(TX$,41),~:TX$(X$$$FA!n CHAIN,MP$"CMND.SUB",CV$)s :/x 5 O MOVE LV=1 TO MIDDLEU [ b" }, MOVE MIDDLE,THEN DOWN6    ERROR  (7);(7);(7)   GET RECORD(4);"READ";F$(1);",R";RTX$E16I21:ST$(E)ST$(E1):E29(ST$(I1)RT$892?9< r9Z(ST$(I1),1)" "ST$(I1)RT$ST$(I1):77809_ST$(I1)RT$" "ST$(I1)9d"076708E(ST$(I))11L8(ST$(I),E,1)" "ST$(I)(ST$(I),E):E1S8Ek8(ST$(I))407670z8K41118(ST$(I),K,1)" "RT$(ST$(I),K):ST$(I)(ST$(I),K1):K18K8(ST$(I1),2)" "İ7680:76708774088 !9ԂժԩՂժăՀժѫՀժѧԪՂЪՂՂՂՂծՂԮЮ a/2ЀՀՀՀŀ𹀀ՀسՀŀఀЁЃІꁀըŀժՀբтժՂՊ A$F9$/+(4);"WRITE";F$(2);",R1":(34)X$8+L90>+D+c+ UPDATE INDEX RECORDi+{+F2:R1:6100+L$(SL%)+TX$L$(TX$,3)+(4)"WRITE USER.DAT ,R1"+ TX$+++ GET TEXT+,(4);"READ";F$(F);",SL%*SL%SL%1:SL%6SL%2S*F1$FI$:F2$IL$:ME$("00000000000000000000",M%)f*X$F1$F2$ME$*(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$,1,TX$," ",XX%)" XX%031157)# XX%1TX$"":3115L)& TX$(TX$,XX%1)`)+ UA$(KSX1)TX$g)0 K): (4);"CLOSE";F$(1))D F$(1)S1$:(4);"OPEN";F$(1);",L42"))--------------------) ADD NEW USER )--------------------*UL,"1",II%:L9II% ( L90LFTR&( <( INIT ANSWER LOCB( Q( T903990e( T910ĆUA$(T9)}( (4);"CLOSE";F$(1)( F$(1)"ANSWERS.DAT":(4);"OPEN";F$(1);",L22"( FIELD( SX(UL2)T91:EASXT9( KSXEA( F1:RK:6100)! INSTRZCZC2:L932171;'|LFČLOC,19,1:PRNT,"in this unit."^'(4);"CLOSE";F$(2):L90:LFFA'F$(2)S2$:(4);"OPEN";F$(2);",L";SO' ' --------------------' USER EXISTS' --------------------' FD1' ULI:I100( INSTR,1,ME$&R-------------------2&\Tell Where Left OffK&f-------------------&zL90LR18:ZC2:X$" You have completed Subunit(s) "((L9),1,1):LOC,LR,ZC:PRNT,X$:ZCZC(X$)'{INSTR,L91,ME$,"1",II%:L9II%:L90ČLOC,LR,ZC:PRNT,","((L9),1,1):-------%(4);"CLOSE";F$(2)4%F$(2)"USER.DAT"U%(4);"OPEN";F$(2);",L";JD2b% FIELDm%FIELD% F2:R1:6100:M%(ML$):SL%(SL$):A$AN$%T9(AN$)%FD0% I26%*F2:RI:6100%4FI$F1$IL$F2$İ3000%>I&HFDİ4000(W$)1W$"":1355*$FW$(W$,(W$)1)R$KZCZC1:LOC,LR,ZC:PRNT," ":1315a$PZ131400x$UZC32ĺ(7):1315$ZZ65Z901315$_LOC,LR,ZC$dPRNT,Z$:W$W$Z$:ZCZC1:1315$x$----------------$FIND/INSERT NAME%---------(PF$,I1)(X32)(PF$,I1)$#ID#I2(PL$):X((PL$,I,1))v#X96X123PL$(PL$,I1)(X32)(PL$,I1)}#I###  NAME INPUT##W$""##LOC,LR,ZC:IPT,Z$:Z(Z$)#7(Z8Z127)W$""1360#<(Z8Z127)1360$A""gPF$" "1126!"iLOC,12,39"jPRNT," Last Name:"H"oRP$(0)PF$i"tLR12:ZC14:1280:PL$W$" "{"yPL$" "1140"FI$PF$(BL$,20)"FI$(FI$,20)"IL$PL$(BL$,20)"IL$(IL$,20)"I2(PF$):X((PF$,I,1))#X96X123PF$43279,43:PUT,PX,PY,LO%(0)(!BLOC,7,1\!LPRNT,"Type your first name, and press RETURN;"i!OLOC,8,1!QPRNT,"then type your last name, and press"!TLOC,9,1!VPRNT,"RETURN."![LOC,11,3!`PRNT,"First Name:""fLR11:ZC14:1280:PF$W$"    C04$NAME.SUB H S1$F$(1):S2$F$(2):SAVE FILENAMESv KPČLOC,24,40:IPT,Z$:Z$"Q"QF1:1042 JD43 1050:2000 CLRKBD LOC,24,1:PRNT,NP$ KPTR:CHAIN,MP$"CMND.SUB",CV$  $ NAME . 8:7!=0,   쌀ˀ̒Ѫ඀ٙа☊ВЂЊҊ҂҂€€‚ЊЊЊЊЊЊЊЊЊ ,B큀῀ǹ怀̹̇ر̙̹晀πα΀胎Ùҁށׁ惽怎΀؁လ໰ ` MOVE UPj /t CP1ER4:2980:25109~ CPRTX NP1(CP):NCPCPN:2440g CPN:1850m s  MOVE DOWN  P2(CP)02580 1850   ENTER KEY( < Z0:I1CPF P2(I)ZZ1P IZ CO(0)Z:KPR\ INPUTf&pCLRKBD:IPT,Z$:Z(Z$)UZ48Z57ČBEEP:2160{Z$"0"(Z$)NNER1:2980:2220Z$"0"İ2390:2380 DS(Z$)$ 2770. 28508 CPRT1= DS12375B I1DS1:CPP1(CP):IG 2520L V KK CPCP1:XCSC:YC75-BN1NNO 1400:XCXCIC:SCP:CPP1(CP)WBN 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,"Press the appropriate number.">CPRTH22:RTCP BN0:1400:SVCP19NN1:CPP1(SV)NN2VP1(SV)P1(P1(SV))1970lNNNN1:SVP1(SV)v1940NN5IC56:SC1NN4IC70:SC9NN3IC102:SC11NN2IC203:SC135K6064SC17,K(NN1)IC23SC,, TIME":LOC,5,28:PRNT,"& TASKS":1589f4BN0ČLOC,15,1:PRNT,(BN)"-RETURN TO LEVEL #"(LO(CP))5BN0ČLOC,LR,1:PRNT,(BN)"-"IN$(CP)6: D DISPLAY TREENXbLOC,1,15:PRNT,"Thoughtree"l98,10168,10 vXC113:YCXC38,YC2XC38,YC29XC2,YC29XC2,YC2?  BOTTOM PIECEQ P2(CP)1581X 5k KXC17XC23 "K,YC32K,YC37 ,K -3:BN0CP11585 /LOC,57(YC60),(XC7)4:PRNT,(BN) 1LR18BN'2BN0CP1ČLOC,4,25:PRNT,"DELEGATION AT XC,YC # P1(CP)RC14903  TOP PIECE: 5M KXC17XC23a K,YC10K,YC1h Kw  MAIN BOX LC(LO(CP)) XC,YCXC40,YCXC40,YC31XC,YC31XC,YC XC1,YC1XC39,YC1XC39,YC30XC1,YC30XC1,YC1, XC2,YC2)CP:PS(PT)CP:1320E LVLS(PT)P1(PS(PT))PS(PT1):PTPT1:1310a #P1(PS(PT))CP:PS(PT)CPo (LO(CP)PT| 2CP:CP1 < F LEADING SPACES PLV140 Z(IN$(CP),LV,1)" "IN$(CP)(IN$(CP),LV):1390 dLV n x  DISPLAY BOX3)"END"12502 I1RC:INSTR,1,IN$(I),"_",XX%B XX%01258q IN$(I)(IN$(I),XX%1)" "(IN$(I),XX%1)x I PT0:LS(PT)1:PS(PT)1 CP2RC 1350 LVLS(PT)PTPT1:PS(PT)CP:LS(PT)LV:P2(CP1)1:1320 LVLS(PT)P1(PS(PT)C(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    $ЪժժժժժժժՂ Ѐ  z#ðҮ͠ðծ ӮԠ  ðӮ   ðԲ  ðή  ! ðĮ " ðӮ  ð׮  ðŮ  ðǮ ðî ðή  ðԮ  ðӮ  ðŮ ðԱ  ðγ®Ԡ= ðγԠ ðծԠ ð׮Ԡ ðԮԠ ҮԠ ðȮ   ðijҠ!ðĴҠ"ðĵҠðIJҠðԮҠðîҠ ðͮҠ ð̮ҠðӮҠ ðγîԠ8ðήҠԭԠֱðϮҠðıҠӠðĮ ðЮ ðή ðɮ  ðƮҠ ðҠԨˬĬԨˬ¬Ԩˬ¬èԨˬĬŨèԨˬ¬ìŨЍ¬̬èŶèԨˬĬԨˬ¬Ԩˬ¬堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭堠򠠍󮠠堠宠󠢭堠ӭ󠠠 $(14)  2tinue, or Q to Quit."""M tNP$" Space Bar to continue.""" CV$"ST$()PR$()CO!()F$()TR$()OC$MP$OI!QF!TR!FA!KP!PX!PY!ST!EN!PF$PL$CP$NP$PG!CV$AD!LO%()RP$()BL$SA$()OP$()TP!SQ!PR$LW$HG$SC$SO!JD!KB$UL!HE$()""" CV$CV$"PR$""" HE ;PX3CBS2:PYPX4 =BLD,MP$"LOGO.SCR",LO%(0)@ BAD8192i VF$(2)OC$:(4);"OPEN";F$(2);",L";SO `F$(1)"AAAAAAAA """ eBL$" """ jCP$" Space Bar to con !(4);"BRUN SOFT-EXT V1.04"3MP$"C04$"""="1060CaCHAIN,MP$"CMND.SUB",CV$t$ Initialize.ST$(17),PR$(17),CO(10),F$(3),TR$(3,7)/RP$(10),LO%(250),SA$(5)3OC$MP$"MSTR.OCM""":OI3:QF0 8TR1:FA0:KP0:SO21:CBSTR   Ԩˬ¬Ԩˬ¬ìèн¬̬ǬԨˬ¬Ԩˬ¬ԨнĬɠԨˬ¬ΨԨˬ¬ìγàԨˬ¬̱ӨԨˬ¬ԨˬìΨн¬̬ԨˬĬˬìԨˬìΨн¬̬ԨˬĬΨԨˬ¬Ԩˬ¬Ԩˬ¬ӨԨˬ¬ԨˬìԨŨЍ¬̬èԨˬ¬ԨˬĬԨˬ¬ԨˬĬԨˬ¬èԨˬĬԨˬ¬èԨˬĬŨЍ¬̬èЍ¬̬èԨˬ¬Ԩˬ¬͠ϠӠΠϠ͠ΠʠϠϠ   ROUTINE TO ADD TO NUM.RIGHT% 1 NRNR1G RP$(3)((NR),1)M  84)1281070. 3KB$((16384)128):49168,0O 4KB$"Q"KB$"q"QFTR:1100u 5T$(BL$,1,39):LOC,24,1:PRNT,T$ 8(PR$(1))1110,1160 BKPFA LCHAIN,MP$"CMND.SUB",CV$ V ` ROUTINE TO INITIALIZE NUM.RIGHT j tNR0 ~  O2 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8N M06$ADDD.SUB ROUTINE TO ADD POINTS FOR CORRECT REVIEW QUESTIONS DATE WRITTEN:1/17/84 BY:PAIGE CRAIGPJPL1:1060PL0$KP1080)KP0 .(163   ROUTINE TO ASSIGN VALUE TO HELP$(I)4K2K21GHE$(K2)AK$(I)Mle to participate."C|AK$(10)" Notice how the meeting is run."pAK$(11)" Be sure there is a summary."AK$(12)" Be sure tasks are assigned."AK$(13)" Be sure objectives are met."AK$(14)" Keep time at optimum length."( Be sure participants are prepared."PJAK$(5)" Keep discussions pertinent."TAK$(6)" Leader should keep meeting on track."^AK$(7)" Keep interruptions to a minimum."hAK$(8)" Keep communication free and open."rAK$(9)" Get peop((SA$(1),I,1)).((SA$(1),I,1))3İ17205I;j ROUTINE TO CHOOSE ARRAY OF HELP MESSAGES"AK$(1)" Start meetings on time.",AK$(2)" State goals at start of the meeting."6AK$(3)" Include the right people."$@AK$(4)" )" "" OUT OF 56 POINTS "(13)(F1:IST8ST10(4);"READ";F$(F);",R";I:TX$:LOC,17I(ST8),1:PRNT,TX$(13)ICLRKBDLOC,24,1:PRNT,CP$:KPTR ROUTINE TO CALCULATE POINTS1560I114PTPT(4);"READ";F$(F);",R";I:TX$C 2LOC,17I(ST4),1:PRNT,TX$(13)J <IP F` P LOW SCORE Z6:HC1011.1:88,HC81(983.1PT3).875,HC81:HC d6:HC67.1:88,HC81(1153563).875,HC81:HC xLOC,15,2:PRNT,"YOU RECEIVED "(PT) I !  MEDIUM SCORE^ 6:HC1011.1:88,HC81(983.1PT3).875,HC81:HC 6:HC67.1:88,HC81(1153563).875,HC81:HC LOC,15,2:PRNT,"YOU RECEIVED "(PT)" ""OUT OF 56 POINTS."(13) (F1 /IST4ST7 08,HC81(983.2PT3).875,HC81:HC` 6:HC67.1:88,HC81(1153563).875,HC81:HC LOC,15,2:PRNT,"YOU RECEIVED "(PT)" ""OUT OF 56 POINTS."(13) F1 ISTST3 (4);"READ";F$(F);",R";I:TX$:LOC,17IST,1:PRNT,TX$(13 20 30 40 50 56"(13): jPT41İ1180:CO(3)1:1150Q tPT27İ1270:1150c y1360:CO(3)2m ~1450 CHAIN,MP$"CMND.SUB",CV$  HIGH SCORE PT561195 6:HC1011.1:88,HC81(1153PT3).875,HC81:HC& 6:HC1011.1:81170* T$(BL$,1,39):LOC,24,1:PRNT,T$B $K20:AK$(14):1490H .w 8LOC,3,10:PRNT,"ASSESSMENT RESULTS"(13) B5:85,4485,93:5:85,93254,93 LLOC,7,2:PRNT,"POSSIBLE"(13) VLOC,10,2:PRNT," ACTUAL"(13) `LOC,13,13:PRNT," 10O 2 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8v M05$GRPH.SUB DATE MODIFIED:1/18/84 BY:PAIGE CRAIGPJPL1:1030PL0KP1060KP0 (16384)1281034 KB$((16384)128):49168,0 KB$"Q"KB$"q"QFTR:  C,I9,1:PRNT,HE$(I) tI% 1180C CHAIN,MP$"CMND.SUB",CV$I j  ROUTINE FOR KEYPRESSp | CLRKBD LOC,24,1:PRNT,CP$:KPTR H:PRNT,CP$:KPTR T  CLRKBD LOC,24,1:PRNT,CP$:KPTR I(BL$,1,39):LOC,24,1:PRNT,T$% 8I BPUT,3,3,LO%(0):7:0,37279,37 LLOC,6,2:PRNT,"Based on the previous assessment, your" VLOC,7,1:PRNT,"score indicated that you need to improve":LOC,8,1:PRNT,"on the following items." `I114 jLO2 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8Q c04$HELP.SUB DATE WRITTEN:1/18/84 BY:PAIGE CRAIG$KP1080&KP0)(16384)1281065+KB$((16384)128):49168,0.KB$"Q"KB$"q"QFTR:1170 0T$  ˬ¬èн¬̬ǬԨˬĬԨˬĬԨˬ¬èн¬̬ǬԨˬ¬ԨˬĬԨˬĬ F$ PBLD,MP$"LOGO.SCR",LG%(0)* Z:6 Z "  Dimension logo%( < LG%((PR$(1)))B H d  Load new arrayj   ** MUST ** arrays must be named modprefix$+"parm$(3)"+.scr  BLD,MP$PR$(3)".scr",LG%(0): ( 2 < Reload logo.dat:1100 GPL0 LKP1120& QKP0> V(16384)1281110a XKB$((16384)128):49168!,0 [KB$"Q"KB$"q"QFTR:1130 ]T$(BL$,1,39):LOC,24,1:PRNT,T$ `PR$(2)"R"İ1200:1260:1130 e1200:1330 jCHAIN,MP$"CMND.SUB",CV$ td = "R" then LOGO.DAT is loaded . Parm$(3) = four character file name of array (must be modprefix + 4 + .scr) 8 BPJPL1logo% to parm$(1) Bloads .scr file named Parm$(2) into logo%s S $ Parameters :Parm$(1) = dimension size of array Parm$(2) = "C" then new array loade,2 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8e M03$NWLG.SUB 1-18-84 Deborah Dollriesm  Description:Erases the contents of Logo% Redimensions T,Z$:W$W$Z$:1230 H:1230- Z(Z$):Z96Z123ZZ32:Z$(Z)A Z8W$""1230 Z8W$(W$,(W$)1):LOC,0,(0)1:PRNT," ":LOC,0,(0)2:1230 Z13ČPRNT," ":1310 C(PO)1:C27BEEP:1230 Z32ČPRNT,Z$:W$W$Z$:1230 Z65Z901230 PRN(MT$)):I2(MT$):X((MT$,I,1))F X64X91ČMID,MT$,I,1,(X32)M Il ME$(BL$,15)ČBEEP:1160{ RP$(2)MT$   ROUTINR FOR INPUT WITH FLASHING CURSOR W$"":PM95 PRNT,(PM):LOC,0,(0)1:PM127PM:I150:IKY,Z$:Z$""ĂIhave 15 characters"(13)[ jLOC,9,1:PRNT,"to type in the name or type of meeting"(13) tLOC,10,1:PRNT,"you conducted. Press enter when done."(13) ~LOC,15,1:PRNT,"Meeting Name:"(13):(MO)::" LOC,15,14:1220:MT$W$:ME$MT$(BL$,15 OF THE MEETING5 B:3:0,40279,40:PUT,3,3,LO%(0)f LLOC,3,15:PRNT," Meeting Information"(13) QLOC,3,15:PRNT," Meeting Information"(13) VLOC,7,1:PRNT," Recall the most recent meeting you"(13) `LOC,8,1:PRNT,"conducted. You will KP1030KP00(16384)1281015SKB$((16384)128):49168!,0tKB$"Q"KB$"q"QFTR:1070T$(BL$,1,39):LOC,24,1:PRNT,T$ C04$MTMN.SUB.KEYOFF:1080:KPFA:CHAIN,MP$"CMND.SUB",CV$ 8 ROUTINE TO ACCEPT THE NAME     6384)128):49168,04 *KB$"Q"KB$"q"QFTR:1090Z +T$(BL$,1,39):LOC,24,1:PRNT,T$v .CO((PR$(1)))(PR$(2)) 8KP0 BCHAIN,MP$"CMND.SUB",CV$$2 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8Z M06$SETC.SUB set condition codes a.bertke 1-19-84PJPL1:1050PL0KP1070KP0$(16384)1281060 )KB$((10"L(BL$,40V):T$;:AL$(I);:!*I+4::7>I1TDwHT$(BL$,25):I1ĺT$;"ITEMS TO DO DAY OF THE MEETING";::RT$(BL$,40((DL$(I))2)):T$;:DL$(I);:\If:pT$(BL$,10):T$;:PAD,60,(61),ZZ$:ZZ$;:z(12)(4);"PR#P$(BL$,40(RP$(0)"'S")):SP$;5RP$(0);"'S";:aT$(BL$,30):T$;"LIST OF THINGS TO DO"T$(BL$,10):T$;:PAD,60,(61),ZZ$:ZZ$;:::: I1TTT$(BL$,29):I1RW9:T$;:"ITEMS TO DO IN ADVANCE";::V((AL$(I))2) T$1 0I:D8N quit,continue>XJbCLRKBD_lTX0KP0:1930}LOC,24,1:PRNT,CP$:KPTR print out listsTX02180CO(10)1ı(4);"PR#1"(12);::!S1ČLOC,RW,8:PRNT,"ITEMS TO DO IN ADVANCE":RWRW2gLOC,RW,20(((AL$(I))2)):PRNT,AL$(I):RWRW1nIzI1TD TD01850I1ČLOC,RW1,4:PRNT,"ITEMS TO DO DAY OF THE MEETING":RWRW3&LOC,RW,20(((DL$(I))2)):PRNT,DL$(I):RWRW68ČBEEP:16100^Z65TTTT1:AL$(TT)XL$(I)QhZ68TDTD1:DL$(TD)XL$(I)xrLOC,RW,1:PRNT," "Z$" ":RWRW1|I put up A-list and D-listTX01850RW4I1TTTT018002I LOC,11,1:PRNT," done the":PRNT," day of the meeting.":F RW13R I1TXv LOC,RW,CM:PRNT,XL$(I):RWRW1} I "RW13:TT0:TD0 ,I1TX 6LOC,RW,1:PRNT,"-->" @CLRKBD JIPT,Z$:Z(Z$):Z96Z123ZZ32:Z$(Z)TZ65Z RWRW1 I" TX01670I 0:0,56279,56279,1910,1910,56 :LOC,8,1:PRNT," Type an ` A ' by each item that needs" LOC,9,1:PRNT," to be done in ":PRNT,"advance." LOC,10,1:PRNT," Type a ` D ' by each item that must be":"O nCLRKBDc xIPT,Z$:Z(Z$) Z96Z123ZZ32:Z$(Z) Z13Z88ČBEEP:1400 LOC,RW,1:PRNT," " Z88TXTX1:XL$(TX)LG$(I):LOC,RW,2:PRNT,Z$:1450 PRNT,Z$s "4 LG$(7)"Arrange for refreshments "] LG$(8)"Make sure room is set up " LG$(9)"See that handouts are ready" TL9    put up first list  (RW14:CM5 2I1TL <LOC,RW,CM:PRNT,LG$(I): initialize > LG$(1)"Arrange for meeting room "g LG$(2)"Arrange for any equipment " LG$(3)"Organize handouts " LG$(4)"Notify secretary " LG$(5)"Notify people to attend " LG$(6)"Distribute agenda $KP1080&KP00((16384)1281064R*KB$((16384)128):49168,0s,KB$"Q"KB$"q"QFTR:1130.T$(BL$,1,39):LOC,24,1:PRNT,T$81140B1280L1680V1940`1860jCHAIN,MP$"CMND.SUB",CV$t ~      D$(5)"5. PURPOSE OF THE MEETING:":FR(5)12:FC(5)1j FD$(6)"BEGINNING STANDARD ITEMS:":FR(6)3:FC(6)2 FD$(7)"OLD BUSINESS ITEMS:":FR(7)3:FC(7)2 FD$(8)"NEW BUSINESS ITEMS:":FR(8)3:FC(8)2 FD$(9)"ENDING STANDARD ITEMS:":FR(9)3:FC(9)229:1590:1720 B20707 LCHAIN,MP$"CMND.SUB",CV$= Vn tFD$(1)"1. DATE OF MEETING:":FR(1)3:FC(1)1 ~FD$(2)"2. TIME:":FR(2)5:FC(2)1 FD$(3)"3. PLACE:":FR(3)7:FC(3)1 FD$(4)"4. PERSONS TO ATTEND THE MEETING:":FR(4)9:FC(4)13 F4,1:PRNT,NP$:CLRKBD:IPT,Z$g 8FLFA:S26:E26:1590:1720:LOC,24,1:PRNT,NP$:CLRKBD:IPT,Z$:1110 9FLFA:S27:E27:1590:1720:LOC,24,1:PRNT,NP$:CLRKBD:IPT,Z$ :FLFA:S28:E28:1590:1720:LOC,24,1:PRNT,NP$:CLRKBD:IPT,Z$ ;FLFA:S29:EPJPL1:1040 PL0+KP10604KP0L(16384)1281045nKB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:1100T$(BL$,1,39):LOC,24,1:PRNT,T$$1110)CO(10)1İ5000:1100 .FLFA:S21:E25:1590:1720:LOC,2              ʊʪՠꁁԂ΁ÁԊՊՊժؿϙ𿀀縀࿀🀀激ǿՂÿƿ̿펈񀀀톈߿Ù́怈ೀ߁㶈ကﶈကကကက񀀀 u >၀     Ԩͬ¬ìǬԨˬĬǬԨˬĬǬϠԨˬĬǬΨԨˬìΨԨͬ¬ìĬǬԨˬĬǬԨˬĬԨˬĬԨˬ¬ԨˬìԨˬ¬ìԨˬìԨˬĬԨˬĬŨ¨н¬̬ǬԨˬĬԨˬ¬ԨˬĬŨ¨н¬̬ǬԨˬ¬عԨˬĬԨˬĬŨ¨н¬̬ǬԨˬ¬̬ǬԨˬ¬ԨˬĬŨ¨н¬̬ǬԨˬĬԨˬìԨˬ¬ԨˬìԲŨ¨н¬ ROUTINE TO SET SECOND TIME THROUGH/ ~CO(1)25 e1281070, 0KB$((16384)128):49168!,0M 2KB$"Q"KB$"q"QFTR:1100s 3T$(BL$,1,39):LOC,24,1:PRNT,T$ 8(PR$(1))1110,1140 BKPFA LCHAIN,MP$"CMND.SUB",CV$ V ROUTINE TO SET TO FIRST TIME THROUGH QUESTION `CO(1)1 j# t72 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8N M06$SETT.SUB DATE WRITTEN:1/17/84 BY:PAIGE CRAIG ROUTINE TO SET CONDITION(1) TO EITHER 1 OR 2PJPL1:1060PL0$KP1080)KP0 .(16384)   !,ݻ؁へ읃̓ǂ샀솀𞾇𞻏򎻟؏ρ쏃РРЊĊ " LOC,RW,COC' IPT,Z$:Z(Z$)^ . PR$(1)"2"ČINSTR,1,VI$,Z$,QQ%:QQ%0ČBEEP:2000 ` Z13(C0AS1)ČBEEP:2300 Z133700 Z8:2600 3100 ( W$""ČBEEP:2100 LOC,RW,COC1:PRNT,"__" C1W$(W$,(W$)1):2900 ON7 LOC,14,2:PRNT,"The":LOC,14,25:PRNT,"Meeting"S  COMMON INPUT ROUTINE RW(PR$(2)):CO(PR$(3)):MC(PR$(4))1 LLMCCO W$"" @CLRKBD LOC,RW,CO C7 PAD,LL,"__",VV$:PRNT,VV$ lC0LL1 4LOC,RW,COC:PRNT,":L ' INPUT RoutineW by:Mary E. Lung July 1984^x  PARM$(1) --> ROW PARM$(2) --> STARTING COLUMN PARM$(3) --> ENDING COLUMN  PARM$(4) --> RP$ POSITII$(13)(0JJ1(:I#(D1/:I5DNA:IGDSE";F$(2)n@F$(2)MP$"MSTR.OCM"A(4);"OPEN";F$(2)",L"SODM CLOC,2,1:PRNT,"SUCCESSFUL MEETINGS ARE COMPOSED OF"KF1LOC,3,1:PRNT,"FIVE INTERRELATED CHARACTERISTICS:"D1:PRNT,"SUCCESSFUL MEETINGS ARE COMPOSED OF"F1LOC,3,1:PRNT,"FIVE INTERRELATED CHARACTERISTICS:"D1SP$(BL$,18):K720:LOC,K,22:PRNT,SP$:K;TSSTNITSOSTSO2pF1:(4);"READ";F$(F);",R";IyTX$LOC,J,22:PRNT,(TX$,18)(13)JJ1ICLRKBDLOC,24,1:PRNT,NP$:IPT,Z$LOC,24,1:T$(BL$,39):PRNT,T$ "E%(480)+ ,BLD,MP$"CRD5.SCR",E%(0)S 6PR$(1)"2"ČPUT,0,141,E%(0):1600i ;PUT,58,143,E%(0) @PR$(1)"1"ČLOC,20,4:1610 ELOC,20,6:PRNT,"FOLLOW-UP"(13) TOS40:O251:J9:PR$(1)"2"İ1670 ^CLRKBD hWT110:WT | D%(482)- BLD,MP$"CRD4.SCR",D%(0)U PR$(1)"2"ČPUT,0,114,D%(0):1490k PUT,57,118,D%(0) PR$(1)"1"ČLOC,18,6:1500 LOC,17,8:PRNT,"SUMMARY"(13) OS31:O239:J9:PR$(1)"2"İ1670 CLRKBD WT110:WT   FC%(443)* PBLD,MP$"CRD3.SCR",C%(0)R ZPR$(1)"2"ČPUT,10,87,C%(0):1380g _PUT,67,97,C%(0) dPR$(1)"1"ČLOC,14,4:1390 iLOC,13,5:PRNT,"PARTICIPATION"(13) xOS18:O230:J7:PR$(1)"2"İ1670 CLRKBD WT110:WT   B%(369)/ BLD,MP$"CRD2.SCR",B%(0)V PR$(1)"2"ČPUT,6,63,B%(0):1270k PUT,65,73,B%(0) PR$(1)"1"ČLOC,11,7:1280 LOC,10,9:PRNT,"TIMING"(13) OS11:O217:J9:PR$(1)"2"İ1670 CLRKBD WT110:WT 2 < V ` jA%(435)6 tBLD,MP$"CRD1.SCR",A%(0)^ ~PR$(1)"2"ČPUT,26,36,A%(0):1160s PUT,72,46,A%(0) PR$(1)"1"ČLOC,8,8:1170 LOC,7,9:PRNT,"REASON"(13) OS2:O210:J9:PR$(1)"2"İ1670 CLRKBD WT110:WT PJPL1:1060PL0+$KP10804&KP0L)(16384)1281065n.KB$((16384)128):49168,00KB$"Q"KB$"q"11003T$(BL$,1,39):LOC,24,1:PRNT,T$8B1790:1120:1230:1340:1450:1560LKP0:CHAIN,MP$"CMND.SUB",CV$    5🀀เǁ؁ρ΃É΃ÁԚ瀯˯򩧁©Ԋ CHAIN,MP$"CMND.SUB",CV$ $ U  READ IN TEXT FROM DATA FILE[ c F1m BGSTz IBGEN (4);"READ";F$(F);",R";I TX$ LOC,RW,2 T$(TX$,1,38):PRNT,T$ RWRW1 I   S  A%(500), (BLD,MP$SF$(EL),A%(0)H 2PUT,(XX).875,YY,A%(0) < HCOLOR= 5: HPLOT 1,0 TO 279,0 TO 279,181 TO 1,181 TO 1,0 P1430: READ IN TEXT Z1550: PREPARE FOR NEXT SCREEN d n END OF PROGRAM x " SF$(2)"WALT.SCR"""0 SF$(3)"CRLA.SCR"W SF$(4)"JIM.SCR":SF$(5)"CHRL.SCR" BR(PR$(2)):PT(PR$(3)):FC(PR$(4)) TC(PR$(5)):EL(PR$(1)) XX(PR$(6)):YY(PR$(7)):RW(PR$(8))    EXECUTION  PARM$(6) ----> X COORDINATE OF PUT STMTs ~ PARM$(7) ----> Y COORDINATE OF PUT STMT  PARM$(8) ----> STARTING ROW OF TEXT   INITIALIZATION OF VARIABLES  SF$(1)"LANC.SCR""KB$"Q"KB$"q"ī1410; .T$(BL$,1,39):LOC,24,1:PRNT,T$A 8 B PARM$(1) ----> FACE PARMAMETER TO BE BLOADED L PARM$(2) ----> BURST SETTING ( 1 or 0 ) V PARM$(3) ----> PALETTE NUMBER ( 1 OR 0 )7 tO2 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8w C04$FACE.SUB BLOAD FACES WITH VARIABLE TONEY MCINTOSH$KP1080&KP0((16384)1281064*KB$((16384)128):49168,0 , ՂՊժŊժՂՊժŊժՂŊՊŪՀՂՊŪՀԪՂՊŪՀՊԪՂՊŪՀՊԪՂŪՀՊԪŊՊԪŊՊՊժŊժՂՊժŊժՂՊժŊժժժԪժժԪժժժժԪժժՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂՊժŪըՊՊԪՂŊŊժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՀժժժժժՂԪժժՀժժժժժՂԪժժժժժժժՀԪժժժժժժժՀԪժժժժժժժՊժժՂՊժժՊժժՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂՊՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժՊժժՊԪժժՊժժՊԪժժՊժժՊԪժժՊժժՂԪժժՊժժՂԪժժՊժժՀԪժժՀՊժժՀЪժժՀՊժժՀЪժժՂՊժժՂժժՂՊժժՂժժՂՊժժՊժժՂժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂՊՂՊԪՊՂՊԪՊՂՊԪՊՂՊԪ 3PԪժժժժժժՂժժժժժժժՂժժժժժՀժժՂժժժժժՀժժՂժժժժժՂժժՂժժժժժՂЪժժՂժժժժժՊЪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժժՂժժժժժՊԪժ     宠®󮠠䠠퍢笠￠堠򠠠󮠠堠򠠠𭭭堠栠򮠠򠠠頍򠠠塡堠㠠󮠠®󮠠î堠￠󠠠􍢠𮠠󠠠䬠󮠠ᮠ塠堠堠蠠ᮠ®堠ᮠî譭￠堠㮠ɧ堠砠嬠㮠砠箠卢򠠍ɠ򮠠獢󠠍𮠠颭󠠠렠                    A <RP$((PR$(5)))W$""8 CHAIN,MP$"CMND.SUB",CV$ V$ " W$"":C0:2100 T CC1% 2100G  END IF FOR IF BACKSPACE c Z32Z126ČBEEP:2100 Check end of input locations H ((PO)1)MC1ČBEEP:2300 W$W$Z$:PRNT,Z$ C tWL(W$) ~W2$(BL$,LLWL) PRNT,W2$ KPF128):4916,0- >KB$"Q"KB$"q"QFTR:1100S ?T$(BL$,1,39):LOC,24,1:PRNT,T$n BCDITI(1)(PARM$(1)) LCHAIN,MODPREFIX$"CMND.SUB",CV$1) M06$SET1.SUB/f set condition code 1 to 1 if first time through set to 2 so it can go back to role.menu$PC.JRPAL1:1070)PAL0.KP10903KP08(16384)1281080 =KB$((16384)ߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN     춛쀀춛đđđđժժժ　a{)ߠooȑpȑ`(CD`jzjBA`ADH@he@C`DFCE` g ᤡ` { <=&`((((PPPP\\]]^^__\\]]^^__\\]]^^__'&Lh`HH ]j ]j( oi ehh`H @j Tjhɀ8.8 >? &?>e>>je??8>EFF` /j @j Tj8EFF򩪢jCD  TjEEF8BoCiCDũ`')Lnة R ߅') ߅>?'>o>ȥp>' @oo` Yh oi ( ۩Hoh h `Є,0 ߅>?> , i` i`hhߚHH` ]j ]j` jj>?@H ]j'h8'' ]j@8Ȅ jj@'&@<>@ ȱ=<&''F¥&E>F??B**GLf` g ᥡ` oi Hi_8 -i wg ih -i`,0`,` jjg ȱ< &g  ߪ A `„ ]jȄ' {$0 ᤡ@Lg <=<@' R ߅A4@.B(I HNIAH@NBʆ`8H@EIAFEF8NBGGEȥFȥGii*8@@AA@i+D&'>BJJJ )i<(B) e+=D<F=F=f?>>8f???><<F>8f??(Ȣ>($>JC8>FCf?8f??BB **G`Ld<=F=<` ]j' jj?@@e'&@><' '<=Le ߅>?>>` =gA@ =gB =gIH =gN mn?>`$0Ld`$0ij>?e>> ?L>dkl>?` =gA@ =gB ߅A `@`B`EȱFȱGii*8@@AA@i+D<&'BJJJ )i<(B) e+D>Jf?> Uef?&&'E'<(@>Aȑ>>>'Lb@A'Lb>?` d d c&$>ȱ>  cLCc> cL9c` d$ cLJ>$0> c cLwc>Bȱ>C> c>?BCBBC`$0>>e>>e??`e`$0lkLcaLb@aLba u 66b7  67 a@aaaLbaa aa uaaHaH` jj< u dͩ>?ϩ` jj{'&i<@Aȱ<0[AȱIK@DBE@JTI@PER@VLO@\MI@bSC@hCS}PO~      KBD:IPT,Z$ S1590:1720:LOC,21,1:PRNT,PM$(10,1):LOC,22,1:PRNT,PM$(10,2):CLRKBD:IPT,Z$S28:E28:1590:1720:LOC,21,1:PRNT,PM$(10,1):LOC,22,1:PRNT,PM$(10,2):CLRKBD:IPT,Z$ S29:E29:1590:1720:LOC,21,1:PRNT,PM$(10,1):LOC,22,1:PRNT,PM$(10,2):CLR)BB2024:LOC,BB,1:PRNT,(BL$,40):/5S21:E25:1590:1720:LOC,21,1:PRNT,PM$(10,1):LOC,22,1:PRNT,PM$(10,2):CLRKBD:IPT,Z$S26:E26:1590:1720:LOC,21,1:PRNT,PM$(10,1):LOC,22,1:PRNT,PM$(10,2):CLRKBD:IPT,Z$OS27:E27:PRNT,CP$KP1:70K|PR$(1)"3"A4:RW17:GCC7:1580:1670QWv quit or space bar|CLRKBD:1720:1710LOC,24,1:PRNT,CP$KP1N1 W9:GCC7:1580:1670OrPR$(1)"2"A3:RW13:GCC7:1580:1670{|PR$(1)"3"A4:RW17:GCC7:1580:1670 quit or space barCLRKBD:1720:1710LOC,24,1:PRNT,CP$KP1:LOC,24,1:40243,12065,120:1580:1670#%)%H% quit or space barN%Z%CLRKBDr%LOC,24,1:PRNT,CP$|%KPTR%C7:1580:1670%%% quit or space bar%%CLRKBD%LOC,24,1:PRNT,CP$%KP1%2))2):PRNT,XT$(2):A2$$OFL1ĂA-$PFL03$T9$^$hPR$(1)"1"A1:RW9:5:65,6065,80243,80243,6065,60:1580:1670$rPR$(1)"2"A3:RW13:5:65,9065,110243,110243,9065,90:1580:1670%|PR$(1)"3"A4:RW17:5:65,12065,140243,1PRNT,"meeting involves three steps:"/#15405#;#A#G#M#r# flash and put up titlesx##'A14:FL1#,A1RW9#-A3RW13#.A4RW17#6LOC,RW,23((XT$(A))2)#@PRNT,XT$(A)$JA1ČLOC,RW1,20((XT$(48,HC:49,HC:HC"i261,180$"j*"tP"~XT$(1)"IDENTIFYING A REASON FOR"n"XT$(2)" A MEETING""XT$(3)"WRITING AN AGENDA""XT$(4)"ARRANGING LOGISTICS"%#PR$(1)""ČLOC,1,2:PRNT," Planning and carrying out a successful":LOC,2,2:128):49168,0.!)KB$"Q"KB$"q"QFTR:1110T!*T$(BL$,1,39):LOC,24,1:PRNT,T$^!.1120h!81630r!B1680!VCHAIN,MP$"CMND.SUB",CV$!`!a:7!eA%(2106)!fBLD,MP$"SCAF.SCR",A%(0)!gPUT,0,20,A%(0)"hHC81180:260,HC:261,HC:2 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8 Z  C04$FLAS.SUB  man on scaffold with brush  a.bertke PJPL1:1050 PL0 KP1070 KP0 (16384)1281055 !$KB$((16384)     &ĪŀժՀբՂժՂժՊъԊժժժժըŪљ֪ܨƨہǃ_ C04$SET2.SUB$KP1060-KP0E(16384)1281042gKB$((16384)128):49168,0KB$"Q"KB$"q"QFTR:1080T$(BL$,1,39):LOC,24,1:PRNT,T$$CO(2)(PR$(1)).KP08CHAIN,MP$"CMND.SUB",CV$I 2ԪժժժժժժժՀ xԪժժժժժժժՀ  R"3 ,3'63 PRINT ROUTINE-@3GJ3TX$""TX$(BL$,39)`T3LOC,RW,CW:PRNT,TX$f3dN13040(2KB$((16384)128):49168,0C3KB$"Q"KB$"q"QFTRI"3O,3i63 PRINT ROUTINEo@3J3TX$""TX$(BL$,39)T3LOC,RW,CW:PRNT,TX$3dX$""TX$(BL$,39)T3LOC,RW,CW:PRNT,TX$3dD,03KB$"Q"KB$"q"QFTCCESS SERIES"<%0RW21TX$" PERSONAL DEVELOPMENT"W*0(4)"READ "F$(F)",R"R`40TX$ff0lp0z0 WRITE A RECORD00(4)"WRITE "F$(F)",R"R0TX$022 KP LOGIC22KP130902KP0:(16384)128l/,v/ CLOSE FILES FOR THE APPLE2/I/(4)"CLOSE "F$(F)a/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 0 "0RW17TX$" MANAGING FOR SU*&+ BLOAD AND PUT SCR FILE, +@+BLD,SF$,A8%(0)M+HGTRĐa +PUT,X,Y,A8%(0)gR+m.. OPEN FILES FOR THE APPLE:/D/F2(F2)ĺ(4)"CLOSE "F$(2):12120N/(4)"CLOSE "F$(1)X/(4)"OPEN "F$(F)" ,L"LG2b/(TX$,41,JD40)) (TM$,SS,1)"1"ī5110S SS1TM$"1"(TM$,2,(TM$)1):5090w TM$(TM$,SS1)"1"(TM$,SS1) TX$(TX$,40)TM$ F1:RUL:12400 F1:12140 f ' ' NEXT SCREEN $' .'PRNT,24,1,CP$ 8'KPTR B':13100= RW24:CW16:TX$"Please remove your disk.":13100G 4087M l  -----------------------  UPDATE USER MENU  ----------------------- F1 F$(1)"USER.DAT":LGJD:12000 SS(PR$(2)) F1:RUL:12300 TM$75,138I I  V  CLOSING GRAPHIC -- TREE WITH LEAVES AND FRUIT\ s 13000:QFTR4090 SF$MP$"SUN.SCR":X68.875:Y31:HGTR:11000 RW19:CW14:TX$"CBS SOFTWARE":13100 RW21:CW7:TX$"MANAGING FOR SUCCESS SERIES" CBS SOFTWARE LINES % 50 I03l 10.875,18I299.875,18I:10.875,38I299.875,38Is I RW5911920 I03 10.875,RWI63.875,RWI:245.875,RWI299.875,RWI I RW I03 10.875,138I299.842:HGTR:11000 o3500B ~RW20:CW20:TX$"PRESENTS...":13100H N END OF UNIT GRAPHIC -- RISING SUN WITH LEAVES 5000 13000:QFTR3090 SF$MP$"SUN.SCR":X68.875:Y21:HGTR:11000 KPFA   C03$OPEN.SUB7S1$F$(1):S2$F$(2)EA8%(940)c(PR$(1))1100,3000,4000mKPFAF$(1)S1$:F$(2)S2$CHAIN,MP$"CMND.SUB",CV$BL OPENING GRAPHICQPR$(2)"1"1190 VSF$MP$"CBS.SCR":X(66.875):Y         ժժժժժժժ =Ѐ  I1)),N,1)"|"ČLOC,I1,1:PRNT," ":1875W*RLOC,I,N:PRNT,(OP$(TP1(19I1)),N,1)a*SN:Iy*TLOC,20,1:PRNT,SC$*UPR$(3)""PR$(3)"C""":PR$(5)""PR$(5)(18TP)*XTEEN*]F1*bSQ1TQ*lIIST1TE*qRII:4000+rINSTR,1,TX$)"P=0"""):I292)DPR$(I)""PR$(I)TG$(I):)EI:C)GSC0`)HSCSC1:SH$(SC)""1868~)ILOC,9SC,1:PRNT,SH$(SC))J1864)LPR$(8)""PR$(8)(10SC))MPR$(4)""PR$(4)(9SC))N )OI1920TP1)PN140**Q(OPT$(TP1(19I(( ?(KPLR24:ZC40:1610:KB$"Q"QFTRUE:1790V(6740:TQ(PR$(1))a(I29~( PR$(I)""PR$(I)TG$(I)(!I($PR$(1)"P=0""":PR$(3)"""":PR$(6)"TA"""::4500:PR$(6)"TA"ČLOC,3,13:PRNT,(TT$,29)(&TEEN:TFTRUE )0PR$(140:(TT$,I,1)" "TG$(6)"TA""":I1000'I9'TP0H'IST3ENV'RI:4000'S1$TX$:S2$"|":5000:NN0IEN1:1780'OP$(I(ST2))TX$'TPTP1'I'ENST3TP1790'IST3TPEN'RI:4000'SH$(I(ST2TP))TX$(I29:TG$(I)PR$(I):I5&TG$(8)""TG$(8)"10"""S&TG$(4)""TG$(8)"10"""&LW$(CC$,1):HG$(CC$,1):MN$LW$:MX$HG$&I110:OP$(I)"""":SH$(I)"""":I&F1:RST:4000:PR$TX$&RST1:4000:TT$TX$&RST2:4000:SC$TX$)'I1R1":TY$0%/(13)(4);"READ";F$(1);",R2":TZ$6%1=%@ O%JLR23LR24Y%KZC40q%NLOC,LR,ZC:IPT,KB$%OKB$((KB$)32((KB$)96(KB$)123))%T%r6740:7010%w%| %6740:I110:OP$(I)"":I%SA(PR$(1)):SA$(SA)""& $RS(OV$)&$CO(RS)0ī1505G$X((OT$,(CO(RS)1)31,3))V$X0OIX_$QF0e$l$ x$OF$CC$$X$""$(4);"CLOSE";F$(1)$"F$(1)MP$OF$".DAT"$'QF0$,(13)(4);"OPEN";F$(1);",L42"%.(13)(4);"READ";F$(1);",I#MID,TX$,(TX$),1," "R#LOC,LR,ZC:PRNT,"Press "TX$"or "(RS$,1)" - "d#CLRKBD:ZC40#1600:INSTR,1,RS$,KB$,XX%:XX%0ĺ(7):1310#-LOC,LR,ZC:PRNT,KB$#2OI((CT$,(XX%1)31,3))#7QF0#<# #OI(SR$):QF0#$7010"LR24#"(RS$)111290z"TX$"":I17:TX$TX$(RS$,I,1)",":I:LOC,LR,ZC:PRNT,"Press "TX$:ZCZC(TX$)"LOC,LR,ZC:PRNT," OR "(RS$,1)" - ""1307" ZC29((RS$)2):TX$"""I1(RS$)1"::TX$TX$(RS$,I,1)","#(4);"CLOSE"F$(1):QFTRUE !'! 9!6740:SF$CC$Q!SF$"TEXT"İ7010:g!F$MP$SF$".SUB"y!CHAIN,F$,CV$! !KPTRUELR24:1611:KP0:KB$"Q"QFTRUE:1620!6740!CC$CC$" ":INSTR,1,CC$," ",I%:II%!RS$(CC$,I1)" QFTRUEKPFALSE1 QFFALSEİ1080:1040R F2:R1:4000:ET$(TX$,7,3)z $(ET$)0OI(ET$):QFFALSE:1040 .:(7):" *** ESECT Not Defined *** ": 8 j6500 t(O5$)11160,1180,1230,1450,1660,1800,1650,1480,1550:1170!! ! !!!!!!!!!           Ԫժժժժժժժժ)ЀЀ y!! ! 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 > ." " Ԫժժժժժժժժ P"" "