' +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- ( O  Ӡ@跻~!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`PS:2495"9 MID,CT$(Z,4),2,0,A$,9( 1960292 89 >9 D9 ]9 MK17MK34MKMK1q9 CO(10)229409 2950:LOC,23,1:PRNT,"PLEASE WAIT WHILE YOUR "(34)"TO DO"(34):LOC,24,1:PRNT,"LIST IS PRINTED.":X12300:X:2950: :(4);"PR#PRNT,"CHANGE PRIORITY."+8 LOC,4ZPL,2468 CLKBDO8 TIPT,A$:A$""2540w8 A(A$):A96A123AA32:A$(A):8 LOC,4ZPL,25:PRNT,A$8 GG$(Z)A$ 9 A$"H"A$"M"A$"L"İ2950:BEEP:LOC,24,1:PRNT,"MAKE PRIORITY H,M, OR L.":PS1700:TIPT,C$:C$""2440C7 C$(127)C$(21)C$(10)C$(11)2440W7 (C$)13ĺC$;p7 C$"Y"C$"y"ī24957 C$"N"C$"n"ī1960:24207 C$"Y"C$"y"C$"N"C$"n"ČBEEP:24207 C$""7 LOC,4ZPL,25:PRNT," "7 29508 LOC,24,1:OR LESS.":P11000:P:2950:2250O68 PRNT,A$:BE$BE$A$:LOC,4ZPL,7(BE$)Y6B 2280_6L e6` 6e MID,CT$(Z,2),2,0,BE$6i SV$(Z)BE$6j 29506o LOC,23,1:PRNT,"DO YOU WISH TO CHANGE THE":LOC,24,1:PRNT,"PRIORITY (Y/N)?"6t 6~ CLKBD7 E$,(BE$)1):LOC,4ZPL,7(BE$):2300r5$ A$(8)(BE$)1ČLOC,4ZPL,7:PRNT," ":BE$"":LOC,(CS)1,7:23005. (BE$)16ČBEEP:2950"6/ (BE$)16ČLOC,23,1:PRNT,"ENTRY TOO LONG. START OVER. LIMIT ":LOC,24,1:PRNT,"YOUR ANSWER TO 17 CHARACTERS 24,1:PRNT,"WHEN DONE.">4A$"":BE$"":CLRKBD:LOC,Z4PL,7D4]4TIPT,A$:A$""23004 A$(127)A$(21)A$(10)A$(11)23004 A$(13)(BE$)0ČBEEP:23004 A$(13)ī2380'5 A$(8)(BE$)1ČLOC,4ZPL,6(BE$):PRNT," ":BE$(B$"y"C$"N"C$"n"2170/324:36,17:C$;G3C$"Y"C$"y"2240_3C$"N"C$"n"2410i3C$""s329503LOC,4ZPL,7:PRNT,(BL$,17):CT$(Z,2)(BL$,19)3LOC,(CS)1,1329504LOC,23,1:PRNT,"CHANGE ACTIVITY. PRESS RETURN":LOC,PL))2aPS11000:PS)2fCLRKBD:2950/2k52o?2p2950E2uK2z2{LOC,23,1:PRNT,"DO YOU WISH TO CHANGE THE ":LOC,24,1:PRNT,"ACTIVITY (Y/N)?"2CLKBD2TIPT,C$:C$""21902C$(127)C$(21)C$(10)C$(11)21903C$"Y"C)-1.X$X$Z$:PRNT,Z$:LOC,(CS)1,53(X$)@1/(X$)3ī2070F141>(X$)BG(X$)(MR(PL))ČBEEP:24:36,23:" ";:2130:20601CZ(X$)1H21601M1R1\29502^BEEP:LOC,23,1:PRNT,"ITEM NUMBER MUST BE = "(BG)" TO "(MR(0X$""!0TIPT,Z$:Z$""2070A0 Z$"0"(X$)0ČBEEP:2070]0%Z$(13)(X$)12100w0'Z$(13)ČBEEP:20700(Z$(8)(X$)1X$"":LOC,(CS)1,22:PRNT," ":LOC,(CS)1,22:20700)0*(Z$)48(Z$)57ČBEEP:20701,LOC,24,26(X$3$(10)C3$(11)20006/C3$(13)(C3$)1ĺC3$;Q/C3$"N"C3$"n"ī2610k/C3$"Y"C3$"y"2050/C3$"Y"C3$"y"C3$"N"C3$"n"ČBEEP:1970/2950/ LOC,23,1:PRNT,"CHANGE WHICH ITEM NUMBER?":LOC,24,1:PRNT,"RETURN WHEN DONE."QARCLRKBD'PRNT,24,1,CP$1KP17RARDS"""5BTT0:PT1:FG$"FIRST":NB1:CE1:F1:NB1KLPM$(1)"COCH.SCR"aVPM$(2)"VOLN.SCR"w`PM$(3)"FRED.SCR"jPM$(4)"PLAY.SCR"tPM$(5)"REST.SCR"~PM$(6)"OFFC.SCR"PM$(7)"RETL.SCR"PM$(8)"ORCH.SCR" SPACEB(3)"1FAC":PG$(4)"3FAC":PG$(5)"ALIC"D NM$(1)"COMMUNICATION"""_ NM$(2)"INITIATIVE"""~NM$(3)"MUTUAL SUPPORT"""NM$(4)"TEAMWORK"""NM$(5)"PARTICIPATION"""$NM$(6)"OBJECTIVES""".NM$(7)"FEEDBACK"""8NM$(8)"HIGH STAND)"HANK":KM$(4)"JOE":KM$(5)"FRAN"R X(1)8:X(2)150:X(3)264:X(4)212:X(5)113| Y(1)30:Y(2)30:Y(3)5:Y(4)30:Y(5)4 RW(1)13:RW(2)13:RW(3)10:RW(4)13:RW(5)8 CL(1)3:CL(2)22:CL(3)35:CL(4)29:CL(5)15& PG$(1)"2FAC":PG$(2)"MARY":PG$堠堠𠠠嬠䠠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)9d076708E(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 !91PE: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$/I0O % P2TR% %03030!< A$"Y"A$"y"ī3070F< A$"N"A$"n"P2FA:2740:3080V< BEEP:3000t< BG18:ED34:PL17:MR0:~< P2TR< 20)A$(11)3030$ A$"Y"A$"y"ī3070$ A$"N"A$"n"P2FA:3080$ BEEP:3000% BG18:ED34:PL17:MR0:;GG$(I):I; :(4);"PR#0"#;| ); /; X; Q2324:LOC,Q,1:PRNT,(BL$,38):Q^; d; j; p; v; |; ; 2950; LOC,24,1:PRNT,"DO YOU HAVE ANY MORE ENTRIES (Y/N)?"; TIPT,A$:A$""3030< MM$"YyNn":INSTR,1,MM$,A$,LL%:LL1":(9)(56)(48)(78)S: " YOUR ";(34);"TO DO";(34);" LIST"[: :: "NUMBER","ACTIVITY ","PRIORITY": "------","-------- ","--------": I1MK1:SV$(I)SV$(I)(BL$,18(SV$(I))) ; " ";I,SV$(I)," "堍䠠堠䮠堠栠̠Πᠠ묠宠Ӡ堠򠠠󮠠栠笠堠砠宠Π堠堠宠ᠠ箠䠠箠䠠宠堠󮠠Ӡ堠堠𠠠䠠堠栠䠠󠠠堠䠠ﮠ宠宠ϠΠ堠堠堠󠠠宠󠠠򠠠󮠠󮠠Ӡ堠堠宠򠠠⠠󮠠堠宠堠󮠠󠠠󮠠0ČBEEP:2070*%Z$(13)(X$)12100D'Z$(13)ČBEEP:2070(Z$(8)(X$)1X$"":LOC,(CS)1,22:PRNT," ":LOC,(CS)1,22:2070)*(Z$)48(Z$)57ČBEEP:2070,LOC,24,26(X$).X$X$Z$:PRNT,Z$:LOC,(CS)1,53(X$) /3$;C3$"N"C3$"n"ī26108C3$"Y"C3$"y"2050mC3$"Y"C3$"y"C3$"N"C3$"n"ČBEEP:1970w2950 LOC,23,1:PRNT,"CHANGE WHICH ITEM NUMBER?":LOC,24,1:PRNT,"RETURN WHEN DONE."X$""TIPT,Z$:Z$""2070 Z$"0"(X$)宠宠򠠍䮠򠠠颠󺠠󬠠󮠠󬠠젠嬠砠󮠠堠󬠠󬠠󬠠󮠠宠뮠庠򠠠庠󬠠󮠠宠䠠󠠠䠠쬠󬠠󠠠𮠠̠Ԡ堠󠠠䬠󠠠砠XXRW(PL).MID,CT$(XX,4),2,0,CR$:CR$""9CLKBDARWGMW2950LOC,24,1:PRNT,"ANY CHANGES (Y/N)?"C3$""CLKBDTIPT,C3$:C3$""2000C3$(127)C3$(21)C3$(10)C3$(11)2000C3$(13)(C3$)1ĺC"18709SCR$(127)CR$(21)CR$(10)CR$(11)1870vCR$"H"CR$"M"CR$"L"ČBEEP:2950:LOC,23,1:PRNT,"MAKE PRIORITY H,M, OR L":P1700:P:2950:LOC,23,1:PRNT,"NOW TYPE IN PRIORITIES.":1870xLOC,RW4,CC:PRNT,CR$yGG$(JJ)CR$ {1620 /J1C1:CM$(I)CM$(I)CX$(J):JWMID,CT$(RW,I),2,0,CM$(I):CM$(I)""_RWnMRRWPL1tz2950LOC,23,1:PRNT,"NOW TYPE IN PRIORITIES."&CCCI(3,4)0RW1MR:JJJJ1DLOC,RW4,CCNTIPT,CR$:CR$"PRNT,"EACH ONE AND A SECOND TIME WHEN DONE.":1570AC1ī1760a(C1)(RWBG)ČBEEP:1620C1ČLOC,4RWPL,7:PRNT,(BL$,17):LOC,4RWPL,3:PRNT,(BL$,2):I21790C1ČLOC,4RWPL,2:PRNT,(BL$,2):LOC,4RWPL,7:PRNT,(BL$,17):I2C32#SV$(MK)SV$(MK)CX$(C):Cl2950:BEEP:LOC,23,1:PRNT,"ENTRY TOO LONG. START OVER. LIMIT YOUR"LOC,24,1:PRNT,"ANSWER TO 17 CHARACTERS OR LESS."P11000:P22950:LOC,23,1:PRNT,"TYPE ACTIVITIES. PRESS RETURN AFTER":LOC,24,1:OC,(CS)1,7C1:PRNT," ":SV$(MK)(SV$(MK),(SV$(MK))1):1600CX$(C)(8)C1C1:LOC,(CS)1,7C:PRNT," ":SV$(MK)" ":1600C181720: TOO MANY LETTERS CX$(C)(13)ČLOC,RW4PL,7C1:PRNT,CX$(C)CX$(C)(13)LOC,4RWPL,7:PRNT,B2$#,CLKBD/6C118F@LOC,4RWPL,7C1_TTIPT,Z$:Z$""1620q^(Z$)11620hCX$(C)Z$mCX$(C)(127)CX$(C)(21)CX$(C)(10)CX$(C)(11)1620rCX$(C)(13)1730: NEXT ITEM@CX$(C)(8)ĭC1CC1:LL = LOW"2950:LOC,23,1:PRNT,"TYPE ACTIVITIES. PRESS RETURN AFTER":LOC,24,1:PRNT,"EACH ONE AND A SECOND TIME WHEN DONE."RWBGEDMKMK1I2:T4 RW10T5LOC,4RWPL,T((RW)):PRNT,((RW),2)"193)iI117:LOC,I4,2:PRNT,CD$:LOC,I4,6:PRNT,CD$:LOC,I4,24:PRNT,CD$:LOC,I4,26:PRNT,CD$:ILOC,10,32:PRNT,"PTY:":LOC,11,27:PRNT,"PRIORITY CODES"LOC,12,29:PRNT,"H = HIGH"LOC,13,29:PRNT,"M = MEDIUM"LOC,14,29:PRNT,"LOC,4,2:PRNT,C1$, CD$(179): VERTD LOC,22,2:PRNT,C2$w LOC,4,24:PRNT,(194):LOC,22,24:PRNT,(193)LOC,4,2:PRNT,(218):LOC,4,26:PRNT,(191):LOC,22,2:PRNT,(192):LOC,22,26:PRNT,(217):LOC,4,6:PRNT,(194):LOC,22,6:PRNT,(I ( 2F <LOC,1,10:PRNT,"YOUR "(34)"TO DO"(34)" LIST"e FLOC,2,2:I1I9:TCI(I,4) PLOC,3,T1:PRNT,CI$(I) ZI:PRNT," " dPAD,24,(196),C1$: TOP OF TODO BOX nPAD,24,(196),C2$: BOTTOM OF TODO BOX  x!  "ACTIVITY",3,1,32,10?  "PTY",11,1,1,25K I1I9w CI$(I),CI(I,1),CI(I,2),CI(I,3),CI(I,4) CI(I,0)CI(I,3) I B1$(1)B1$(1)" " B3$(BL$,32) B2$(BL$,17)   "H","M","L" I13 P$(I) y and type& 81810: Adds priorityD B1950: Edits the screenU `MR171130_ a2970m bP21145 d1330:1490:1810:1950 j t2740 prints the to do list yKP0 ~CHAIN,MP$"CMND.SUB",CV$ I93: ITEMS  " #",1,1,2,4 13):I( I134:CT$(I,2)(BL$,34):I= SV$(40),GG$(40)^ I134:CT$(I,3)(BL$,7):I I134:CT$(I,4)(BL$,3):I 1160: 1280 1330: Formats the To Do List document $BG1:ED17:PL0 .1490: Gets input from user: activitKP844KP0:CLRKBD.LOC,24,40; IPT,KB$TKB$"Q"QFTR:1150rLLOC,24,1:PRNT,(BL$,39)NX124:LOC,X,1:PRNT,(BL$,39):R:Z1 C04$TODO.SUBCI$(18),CI(18,4),CX$(34),CT$(35,4) I134:CT$(I,1)(BL$,       C3$(127)C3$(21)C3$(10)C3$(11)2000MC3$(13)(C3$)1ĺC3$;hC3$"N"C3$"n"ī2610C3$"Y"C3$"y"2050C3$"Y"C3$"y"C3$"N"C3$"n"ČBEEP:19702950 LOC,23,1:PRNT,"CHANGE WHICH ITEM NUMBER?":LOC,24,1:PRN,23,1:PRNT,"NOW TYPE IN PRIORITIES.":1870FxLOC,RW4,CC:PRNT,CR$V{XXRW(PL)xMID,CT$(XX,4),2,0,CR$:CR$""CLKBDRW2950LOC,24,1:PRNT,"ANY CHANGES (Y/N)?"C3$""CLKBDTIPT,C3$:C3$""2000.NOW TYPE IN PRIORITIES."'&CCCI(3,4)40RW1MREDLOC,RW4,CC`NTIPT,CR$:CR$""1870SCR$(127)CR$(21)CR$(10)CR$(11)1870+vCR$"H"CR$"M"CR$"L"ČBEEP:2950:LOC,23,1:PRNT,"MAKE PRIORITY H,M, OR L":P1700:P:2950:LOCPL,2:PRNT,(BL$,2):I21790pC1ČLOC,4RWPL,1:PRNT,(BL$,2):LOC,4RWPL,5:PRNT,(BL$,17):I21620J1C1:CM$(I)CM$(I)CX$(J):JMID,CT$(RW,I),2,0,CM$(I):CM$(I)""RWMRRWPL12950LOC,23,1:PRNT,"CTERS OR LESS." P11000:P2950:LOC,23,1:PRNT,"TYPE ACTIVITIES. PRESS RETURN AFTER":LOC,24,1:PRNT,"EACH ONE AND A SECOND TIME WHEN DONE.":1570C1ī1760(C1)(RWBG)ČBEEP:1620C1ČLOC,4RWPL,5:PRNT,(BL$,17):LOC,4RW600>CX$(C)(8)C1C1:LOC,(CS)1,5C:PRNT," ":1600qCX$(C)(13)ČLOC,RW4PL,5C1:PRNT,CX$(C)CX$(C)(13)C32C2950:BEEP:LOC,23,1:PRNT,"ENTRY TOO LONG. START OVER. LIMIT YOUR"LOC,24,1:PRNT,"ANSWER TO 17 CHARA5C1TTIPT,Z$:Z$""16200^(Z$)11620>hCX$(C)Z$}mCX$(C)(127)CX$(C)(21)CX$(C)(10)CX$(C)(11)1620rCX$(C)(13)1730: NEXT ITEM|C181720: TOO MANY LETTERSCX$(C)(8)ĭC1CC1:LOC,(CS)1,5C1:PRNT," ":1ACTIVITIES. PRESS RETURN AFTER":LOC,24,1:PRNT,"EACH ONE AND A SECOND TIME WHEN DONE."eRWBGEDqI2:T3w RW10T4LOC,4RWPL,T((RW)):PRNT,((RW),2)"LOC,4RWPL,5:PRNT,B2$,CLKBD6C118@LOC,4RWPL,T,CD$:LOC,I4,23:PRNT,CD$:LOC,I4,25:PRNT,CD$:IrLOC,10,31:PRNT,"PTY:":LOC,11,26:PRNT,"PRIORITY CODES"LOC,12,28:PRNT,"H = HIGH"LOC,13,28:PRNT,"M = MEDIUM"LOC,14,28:PRNT,"L = LOW"W2950:LOC,23,1:PRNT,"TYPE ,22,1:PRNT,C2$B LOC,4,23:PRNT,(194):LOC,22,23:PRNT,(193) LOC,4,1:PRNT,(218):LOC,4,25:PRNT,(191):LOC,22,1:PRNT,(192):LOC,22,25:PRNT,(217):LOC,4,4:PRNT,(194):LOC,22,4:PRNT,(193)4I117:LOC,I4,1:PRNT,CD$:LOC,I4,4:PRN DO"(34)" LIST"1 FLOC,2,2:I1I9:TCI(I,4)M PLOC,3,T1:PRNT,CI$(I)^ ZI:PRNT," " dPAD,25,(196),C1$: TOP OF TODO BOX nPAD,25,(196),C2$: BOTTOM OF TODO BOX xLOC,4,1:PRNT,C1$ CD$(179): VERT LOC,11,1,1,24  I1I9C CI$(I),CI(I,1),CI(I,2),CI(I,3),CI(I,4)W CI(I,0)CI(I,3)^ Iu B1$(1)B1$(1)" " B3$(BL$,32) B2$(BL$,17)   "H","M","L" I13 P$(I) I ( 2 <LOC,1,10:PRNT,"YOUR "(34)"TOscreen `MR171130! a2970/ bP21130W d1330:1490:1810:1950:3630:3090] j~ t2740 prints the to do list yKP0 ~CHAIN,MP$"CMND.SUB",CV$ I93: ITEMS  " #",1,1,2,2  "ACTIVITY",3,1,32,10  "PTY" I134:CT$(I,3)(BL$,7):IA I134:CT$(I,4)(BL$,3):IL 1160:V 1280 1330: Formats the To Do List document $BG1:ED17:PL0 .1490: Gets input from user: activity and type 81810: Adds priority B1950: Edits the KP844KP0:CLRKBD.LOC,24,40; IPT,KB$TKB$"Q"QFTR:1150rLLOC,24,1:PRNT,(BL$,39)xRZ1 C04$TODO.SUBCI$(18),CI(18,4),CX$(34),CT$(35,4)I134:CT$(I,1)(BL$,13):II134:CT$(I,2)(BL$,34):I               宠ԠŠͭ堠렱󠠠砠堠堠堠Ġ堦󠠠άߦӠ󠠠  󭭭򮠠ԭ󭭭򍢠䠠ﮠ򿠠٠󠠠Π嬠㮠孭󠠠堦󠠠ӠŠ   堠󠍢宠堠堠렠።謠堠뮠򠠠󮠠򠍢砠󮠠堠堍Ƞ詬̠͠䮠򠍢堠嬠ﬠ笠㮠箠䠠宠䠠򠠠򮠠󠠍砠堠좭򠠠堠       堠䠠砍󮠠̠젠蠠Π̠ΠӠ̠Ԡ堠خ̠΍ӠӠ堍󮠠󠠠ɠ묠嬠㮠ɠ󮠠ɠ欠ɠ묠䠠ɠ堠󮠠ɠ宠󮠠쮠宠宠宠䮠ɠ栠ɠﮠ堠뮠ɠ堠䮠ɠ砠ɠ箠򠠠󠠠쮠堠孠򠠠宠󠠠򠠠宠򠠠ᠠ⮠󮍢򠠠堠                     ¬ìЬԨˬ¬ЬΨԨͬ¬ìԨˬ¬ЬԨˬ¬Ԩˬ¬ЬϨԨˬ¬ЬԨ˰РԨЬĠԨЬΨԨˬ¬ìαàԨˬ¬̬ЬԨčЬԨЬРԨčЬԨčЬРԨЬРШԨЬРԨčЬРԨн¬ЬǠԨˬ¬ԨЬРШα Ԩč̬ЬԨčЬč֠αرԨͬ¬̬ΨԠԨͬĬ̬ԨͬĬ̬ԨͬĬì̬ӨԨͬĬ̬ԨͬĬ̬נרֳՠΨԨͬ¬̬ŨΨн¬̬Ǭ     ఀ BE  z#??   ðαîԠ ðծԠ ð׮ԠðϮՠ ӮԠ ðԮԠ!ðήҠ"ðϮҠðĮҠðҮ͠ ҮԠ ðα®Ԡ/ ðԮ ðϮ ðή  ðĮ ðӮ ð׮ ðŮ Ӡ ðĮ ð֮ ðǮ ԭԠֱðα ðЮ 0)C$(11)2440$ (C$)13ĺC$;= C$"Y"C$"y"ī2495\ C$"N"C$"n"ī1960:2420 C$"Y"C$"y"C$"N"C$"n"ČBEEP:2420 C$"" LOC,4ZPL,25:PRNT," " 2950 LOC,24,1:PRNT,"CHANGE PRIORITY." LOC,4ZPL,24 CLBE$A$:LOC,4ZPL,7(BE$)&B 2280,L 2` Le MID,CT$(Z,2),2,0,BE$Vj 2950ek SV$(Z)BE$o LOC,23,1:PRNT,"DO YOU WISH TO CHANGE THE":LOC,24,1:PRNT,"PRIORITY (Y/N)?"t ~ CLKBD TIPT,C$:C$""2440 C$(127)C$(21)C$(1)(BE$)1ČLOC,4ZPL,7:PRNT," ":BE$"":LOC,(CS)1,7:2300Z. (BE$)16ČBEEP:2950/ (BE$)16ČLOC,23,1:PRNT,"ENTRY TOO LONG. START OVER. LIMIT ":LOC,24,1:PRNT,"YOUR ANSWER TO 17 CHARACTERS OR LESS.":P11000:P:2950:22508 PRNT,A$:BE$OC,Z4PL,7*TIPT,A$:A$""2300Y A$(127)A$(21)A$(10)A$(11)2300| A$(13)(BE$)0ČBEEP:2300 A$(13)ī2380 A$(8)(BE$)1ČLOC,4ZPL,6(BE$):PRNT," ":BE$(BE$,(BE$)1):LOC,4ZPL,7(BE$):2300?$ A$(8C$"Y"C$"y"2240,C$"N"C$"n"24106C$""@2950uLOC,4ZPL,7:PRNT,(BL$,17):CT$(Z,2)(BL$,19)LOC,(CS)1,12950LOC,23,1:PRNT,"CHANGE ACTIVITY. PRESS RETURN":LOC,24,1:PRNT,"WHEN DONE." A$"":BE$"":CLRKBD:L p2950uzk{LOC,23,1:PRNT,"DO YOU WISH TO CHANGE THE ":LOC,24,1:PRNT,"ACTIVITY (Y/N)?"vCLKBDTIPT,C$:C$""2190C$(127)C$(21)C$(10)C$(11)2190C$"Y"C$"y"C$"N"C$"n"217024:36,17:C$;(X$)3ī20704Y>(X$)BG(X$)(MR(PL))ČBEEP:24:36,23:" ";:2130:2060eCZ(X$)oH2160uM{R\2950^BEEP:LOC,23,1:PRNT,"ITEM NUMBER MUST BE = "(BG)" TO "(MR(PL))aPS11000:PSfCLRKBD:2950ko$-     `H jjH9mmL[mmhh`  # L# # 3,0ޭS T   ` /H h/ ` % fɽR ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̆ $U+  # o? : L  hh` %)`ʽR08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈR`  UɽR 莣Ȍ`8`  UR!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$"FW%MR!TS%DX$()DT!()AV!()FD%SH$"""# "  "  `iiiRLk SLk H m hLk T%SRsAAAAA"""g"eBL$" """"jCP$" Space Bar to continue, or Q to Quit.""""tNP$" Space Bar to continue."""g#CV$"ST$()PR$()CO!()F$()TR$()OC$MP$OI!QF!TST$(17),PR$(17),CO(10),F$(3),TR$(3,7)D!/RP$(10),LO%(250),SA$(5)h!3OC$MP$"MSTR.OCM""":OI3:QF0!8TR1:FA0:KP0:SO21:CBSTR!;PX3CBS2:PYPX!=BLD,MP$"LOGO.SCR",LO%(0)!BAD8192!VF$(2)OC$:(4);"OPEN";F$(2);",L";SO "`F$(1)"AAA d n ThoughtWare' x ? CONVERTED TO THEU Apple ][ Plusj Dec 6,1983p (4);"BRUN SOFT-EXT V1.04" MP$"C04$""" "1060   Execution  CHAIN,MP$"CMND.SUB",CV$ $ Initialize'!.     " (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:161BLD,MP$"HAND.SCR",A%(0)2 PUT,123K,29,A%(0)L 3:123K,29189K,29 2:179K,8135K,8135K,169289K,169289K,81196K,81:3 LOC,2,9:PRNT,"Eight Major Time Wasters" LR15:ZC6 LOC,LR,ZC N18 PR$(2)"1"ČLOC,2,8:PRNT $ C04$LEAD.SUB*8KP1100AKP0M$CLRKBDZ.IPT,KB$s8KB$"Q"QFTR:1200LLOC,24,1:PRNT,(BL$,39)M1500CHAIN,MP$"CMND.SUB",CV$ PUT HAND ON SCREENK78A%(2000)        ! ! ! %! CO(10)22940! 2950:LOC,23,1:PRNT,"PLEASE WAIT WHILE YOUR "(34)"TO DO"(34):LOC,24,1:PRNT,"LIST IS PRINTED.":X12300:X:2950! :(4);"PR#1"! " YOUR TODO LIST"! :" "NUMBER","ACTIVITY","PRIKBD TIPT,A$:A$""2540D A(A$):A96A123AA32:A$(A):` LOC,4ZPL,25:PRNT,A$n  GG$(Z)A$  A$"H"A$"M"A$"L"İ2950:BEEP:LOC,24,1:PRNT,"MAKE PRIORITY H,M, OR L.":PS1700:PS:2495  MID,CT$(Z,4),2,0,A$ ( 1960 2 B%(0)!GIT,0,105,20,155,C%(0)5PUT,0,55,A%(0)FI2112520MIaPUT,I,55,A%(0)|I21ČPUT,0,100,C%(0)PUT,I21,100,C%(0)IPUT,I10,56,B%(0)PUT,I11,100,C%(0) IO I - 5 STEP - 1: HPLOT INT (K * .875), J TO INT (K * .875) + 1,J + 1: NEXT K: NEXT J ojF = 1 - F t NEXT I ~A%(1386),B%(1386),C%(1000)I1324:PRNT,I,1,(BL$,40):IBLD,MP$"UPRM.SCR",A%(0)BLD,MP$"DNRM.SCR",: F OR J = 100 TO 150: FOR K = I - 1 TO I - 5 STEP - 1: HPLOT INT (K * .875), J TO INT (K * .875) + 1,J + 1: NEXT K: NEXT J [` IF F < > 0 THEN CALL PUT, INT (I * .875),55,B%(0): HCOLOR= 0: FOR J = 100 TO 150: FOR K = I TINTER "A%(1386),B%(1386)F$I1224:PRNT,I,1,(BL$,40):Id.BLD,MP$"UPRM.SCR",A%(0)8BLD,MP$"DNRM.SCR",B%(0)BF0CPUT,0,55,A%(0)LFOR I = 5 TO 170 STEP 5 V IF F = 0 THEN CALL PUT, INT (I * .875),55,A%(0): HCOLOR= 0"B"ĭZ$"1"Z$"2"PT(((NU$,C9,1)))PT(((NU$,C9,1)))1A CHECK SCORE TO SEE IF USER GOES TO HELP SCREENS OR NEXT SET OF QUESTIONSI18AV(I)PT(I)2:I5AV(I)PT(I)3I ROUTINE TO PUT UP PA=z ROUTINE TO ADD POINTS ACCORDING TO CHOICE ON SCALEk POINTS ARE ADDED IF CHOICE IS RIGHTAN$"AAAAAABABAABABAAB"NU$"21458362145836757"(AN$,C9,1)"A"ĭZ$"3"Z$"4"PT(((NU$,C9,1)))PT(((NU$,C9,1)))1;(AN$,C9,1)PUT LOGO%PUT,3,3,LO%(0)95:0,43279,43?E] 3 FACES WITH TESTc zSF$MP$"3FAC.SCR"(4);"BLOAD ";SF$;",A8192" *PUT,62.875,0,81924PRINT TEXT TX$ @ LR,ZCPRNT,LR,ZC,TX$250 [6080:6300 i n* xINPUT0 = 49168,0U (16384)1281420{ Z(16384)128:Z32ĺ(7):1415 49168,0:Z96Z123ZZ32 Z$(Z)   GET ROUTINE  (4);"READ";F$(F);",R";R TX$   1,115277,115277,1791,1791,115:3:1290W 5:1,115277,115277,1791,1791,115:3 LR22:ZC4:TX$"Press the key of your response - ":5000 1390:LR22:ZC37:TX$Z$:5000:Z$LO$Z$HI$ĺ(7):1290 A$A$Z$ 6010 ZC9C91:C9TQ1I918TP1:TX$" ":PRNT,I,1,TX$:Iz LR8:ZC1:TX$"Statement "(C9)".":5000 LR10:ZC1:F1:RRE:4000:5000 RERE1:F1:RRE:4000:(TX$,2)" "(TX$,2)"--"LRLR1:ZC1:5000:1280* TP1Ē5: P(I)2 I TQ)" Statements":5000:F1:RST:LR3:ZC12:4000:5000p ~LR19TPL:ZC1:F91 IST3ST2TPL F1:RI:4000:ZC1:5000:LRLR1 I F1:RST2:4000:LR20:ZC1:5000 C91:REST3TP:F90 A$""K B$"AAAAAABABAABABAAB"2 mN$"21458362145836757"v r(B$,C,1)"A"ĭZ$"3"Z$"4"P(((N$,C,1)))P(((N$,C,1)))1 |(B$,C,1)"B"ĭZ$"1"Z$"2"P(((N$,C,1)))P(((N$,C,1)))1  I18 I5AV(I)P(I)3 I5AV(I)P(I)2 I KP80(KP0"2CLRKBD/<IPT,KB$IAKB$"Q"ČCLRKBD:40aFKB$"Q"QFTR:350gPmZ_ C04$TSEV.SUBdA$SA$(3)C1I1(A$)Z$(A$,I,1)360CC1I,470^KP0:CHAIN,MP$"CMND.SUB",CV$ h     ?"# TIPT,A$:A$""3030J# MM$"YyNn":INSTR,1,MM$,A$,LL%:LL%03030c# A$"Y"A$"y"ī3070# A$"N"A$"n"P2FA:2740:3080# BEEP:3000# BG18:ED34:PL17:MR0:# P2TR# OTITY"6" I1MK1:SV$(I)SV$(I)(BL$,18(SV$(I)))L" SV$(I),GG$(I):I_" :(4);"PR#0"e"| k" q" " Q2324:LOC,Q,1:PRNT,(BL$,38):Q" " " " " " " 2950# LOC,24,1:PRNT,"DO YOU HAVE ANY MORE ENTRIES (Y/N)7,22:PRNT,"X"0 >CO(8)1ČLOC,20,22:PRNT,"X"6 d :PRNT,"X"K dITO PUT UP X'S BY WRONG ANSWERS$ E CO(1)1ČLOC,13,3:PRNT,"X"f CO(2)1ČLOC,15,3:PRNT,"X" CO(3)1ČLOC,17,3:PRNT,"X" CO(4)1ČLOC,20,3:PRNT,"X" CO(5)1ČLOC,13,22:PRNT,"X" *CO(6)1ČLOC,15,22:PRNT,"X" 4CO(7)1ČLOC,18 KEYPRESS LOGIC$KP10000CLRKBD=(IPT,KB$V2KB$"Q"QFTR:1040o<PRNT,24,1,(BL$,40)u C04$RONG.SUB2000LOC,24,1 PRNT,CP$CLRKBD:KPTR:CHAIN,MP$"CMND.SUB",CV$  ROUTINE   춛쀀춛đđđđժժժ 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~        /AV(6).5CO(6)2- 4AV(7).5CO(7)1C 9AV(7).5CO(7)2Z >AV(8).5CO(8)1p CAV(8).5CO(8)2{ HI18 RCO(I)1FD1 \I fFD1CO(9)2 kFD1CO(9)1 e1CO(9)1 etRS  AV(1).5CO(1)15 AV(1).5CO(1)2L AV(2).5CO(2)1b AV(2).5CO(2)2y AV(3).5CO(3)1 AV(3).5CO(3)2 AV(4).5CO(4)1 AV(4).5CO(4)2 AV(5).5CO(5)1 %AV(5).5CO(5)2 *AV(6).5CO(6)1 KEYPRESS LOGIC$KP10000CLRKBD?#LOC,24,40L(IPT,KB$e2KB$"Q"QFTR:1040~<PRNT,24,1,(BL$,40) C04$RON1.SUB2000:CLRKBD:KPFACHAIN,MP$"CMND.SUB",CV$  ROUTINE TO SORT WRONG ANSWE  P$ CLRKBD KPTR  S "24,1,NP$A CLKBDK KPTRQ  X PRINT INDIVIDUAL TEXT LINES0 ]CO(10)1ī7100A b(4);"PR#1"M lI120Y vTT$(I)` Iq (4);"PR#0"w  1t##LOC,24,1#PRNT,CP$#CLRKBD#KPTR# )  UB",CV$   Input  PRNT,24,1,NWRW1:JJ1 ^I; 0 Prompt or Pause in secondsE :7000O X5000m bCHAIN,MP$"CMND.SUB",CV$s   Input  LOC,24,1 PRNT,NP$ CLRKBD KPTR  p PRINT SCREEN ROUTINE zCO(10)1ī6100  XT,"HELPFUL SUGGESTIONS"V 2:0,30278,30:278,30278,159:0,300,159:0,159278,159\ d  Begin parameter substitution RW6:J1 "ISTEN #(4);"READ";F$(1);",R";I &TX$ 'LOC,RW,2 (TT$(J)TX$ )PRNT,(TX$,1,38) JRy KEYPRESS LOGI"KP55.CLRKBD;(IPT,KB$T2KB$"Q"QFTR:1890Z7h8LOC,24,1|<PRNT,(BL$,39) C04$HELP.SUBTT$(20)LPR$(8)"1"Ē0:I518:LOC,I,3:PRNT,(BL$,37):I:1380Q6000LOC,2,11 PRN    D.SUB",CV$ CO(5)1 ( CO(5)2.  :0 KEYPRESS LOGIC$KP1000;(16384)128ī30T(KB$((16384)128)u2KB$"Q"KB$"q"QFTR:1030<PRNT,24,1,(BL$,40) M05$RSET.SUB SET CONDITION CODE FOR PRINTER(PR$(1))1200,1300 CLKBD:KPFA:CHAIN,MP$"CMN 1870.xLOC,RW4,CC:PRNT,CR$/.yGG$(JJ)CR$?.{XXRW(PL)a.MID,CT$(XX,4),2,0,CR$:CR$""l.CLKBDt.RWz...2950.LOC,24,1:PRNT,"ANY CHANGES (Y/N)?".C3$"".CLKBD.TIPT,C3$:C3$""2000/C3$(127)C3$(21)CR -:JJJJ1-DLOC,RW4,CC9-NTIPT,CR$:CR$""1870l-SCR$(127)CR$(21)CR$(10)CR$(11)1870.vCR$"H"CR$"M"CR$"L"ČBEEP:2950:LOC,23,1:PRNT,"MAKE PRIORITY H,M, OR L":P1700:P:2950:LOC,23,1:PRNT,"NOW TYPE IN PRIORITIES.":PRNT,(BL$,2):LOC,4RWPL,7:PRNT,(BL$,17):I21620=,b,J1C1:CM$(I)CM$(I)CX$(J):J,MID,CT$(RW,I),2,0,CM$(I):CM$(I)"",RW,MRRWPL1,,,2950,LOC,23,1:PRNT,"NOW TYPE IN PRIORITIES.",&CCCI(3,4)-0RW1MT,"TYPE ACTIVITIES. PRESS RETURN AFTER":LOC,24,1:PRNT,"EACH ONE AND A SECOND TIME WHEN DONE.":1570t+C1ī1760+(C1)(RWBG)ČBEEP:1620+C1ČLOC,4RWPL,7:PRNT,(BL$,17):LOC,4RWPL,3:PRNT,(BL$,2):I217907,C1ČLOC,4RWPL,2:PL,7C1:PRNT,CX$(C)-*CX$(C)(13)C32K*SV$(MK)SV$(MK)CX$(C):C*2950:BEEP:LOC,23,1:PRNT,"ENTRY TOO LONG. START OVER. LIMIT YOUR"*LOC,24,1:PRNT,"ANSWER TO 17 CHARACTERS OR LESS."*P11000:P:SV$(MK)""e+2950:LOC,23,1:PRN$(C)(8)ĭC1CC1:LOC,(CS)1,7C1:PRNT," ":C11675P)SV$(MK)"":1600z)SV$(MK)(SV$(MK),(SV$(MK))1):1600)CX$(C)(8)C1C1:LOC,(CS)1,7C:PRNT," ":SV$(MK)" ":1600)C181720: TOO MANY LETTERS*CX$(C)(13)ČLOC,RW4LOC,4RWPL,7:PRNT,B2$#(,CLKBD/(6C118F(@LOC,4RWPL,7C1_(TTIPT,Z$:Z$""1620q(^(Z$)11620(hCX$(C)Z$(mCX$(C)(127)CX$(C)(21)CX$(C)(10)CX$(C)(11)1620(rCX$(C)(13)1730: NEXT ITEM(|CX$(C)(8)1685;)CXL = LOW"'''2950:LOC,23,1:PRNT,"TYPE ACTIVITIES. PRESS RETURN AFTER":LOC,24,1:PRNT,"EACH ONE AND A SECOND TIME WHEN DONE."'RWBGED'MKMK1'I2:T4'' RW10T5'LOC,4RWPL,T((RW)):PRNT,((RW),2)'("193)i&I117:LOC,I4,2:PRNT,CD$:LOC,I4,6:PRNT,CD$:LOC,I4,24:PRNT,CD$:LOC,I4,26:PRNT,CD$:I&LOC,10,32:PRNT,"PTY:":LOC,11,27:PRNT,"PRIORITY CODES"&LOC,12,29:PRNT,"H = HIGH"&LOC,13,29:PRNT,"M = MEDIUM"'LOC,14,29:PRNT,"LOC,4,2:PRNT,C1$,%CD$(179): VERTD%LOC,22,2:PRNT,C2$w%LOC,4,24:PRNT,(194):LOC,22,24:PRNT,(193)&LOC,4,2:PRNT,(218):LOC,4,26:PRNT,(191):LOC,22,2:PRNT,(192):LOC,22,26:PRNT,(217):LOC,4,6:PRNT,(194):LOC,22,6:PRNT,(I$($2F$<LOC,1,10:PRNT,"YOUR "(34)"TO DO"(34)" LIST"e$FLOC,2,2:I1I9:TCI(I,4)$PLOC,3,T1:PRNT,CI$(I)$ZI:PRNT," "$dPAD,24,(196),C1$: TOP OF TODO BOX $nPAD,24,(196),C2$: BOTTOM OF TODO BOX %x!# "ACTIVITY",3,1,32,10?# "PTY",11,1,1,25K#I1I9w#CI$(I),CI(I,1),CI(I,2),CI(I,3),CI(I,4)#CI(I,0)CI(I,3)#I#B1$(1)B1$(1)" "#B3$(BL$,32)#B2$(BL$,17)## "H","M","L"# I13#P$(I)$y and type&"81810: Adds priorityD"B1950: Edits the screenU"`MR171130_"a2970m"bP21145"d1330:1490:1810:1950"j"t2740 prints the to do list"yKP0"~CHAIN,MP$"CMND.SUB",CV$"I93: ITEMS# " #",1,1,2,4 13):I(!I134:CT$(I,2)(BL$,34):I=!SV$(40),GG$(40)^!I134:CT$(I,3)(BL$,7):I!I134:CT$(I,4)(BL$,3):I!1160:!1280!1330: Formats the To Do List document!$BG1:ED17:PL0 ".1490: Gets input from user: activit KP844 KP0:CLRKBD. LOC,24,40; IPT,KB$T KB$"Q"QFTR:1150r LLOC,24,1:PRNT,(BL$,39) NX124:LOC,X,1:PRNT,(BL$,39): R: Z1  C04$TODO.SUB CI$(18),CI(18,4),CX$(34),CT$(35,4)!I134:CT$(I,1)(BL$,         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     LOC,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,38I1)),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!        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 > . TX$6TX$$$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$` 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     ~R";R TX$F26200)A9$TX$::8SL$(TX$,2)MBML$(TX$,3,2)`LAN$(TX$,5,2)qVF9$(TX$,7)`F1$(TX$,20)jF2$(TX$,21,20)tME$(TX$,41)~jF2$(TX$,21,20)tME$(TX$,41)~S,21,20)tME$(TX$,41)A$F9$/(4);"WRITE";F$(2);",R1":(34)X$8L90>Dc UPDATE INDEX RECORDi{F2:R1:6100L$(SL%)TX$L$(TX$,3)(4)"WRITE USER.DAT ,R1" TX$ GET TEXT(4);"READ";F$(F);",SL%SL%SL%1:SL%6SL%2SF1$FI$:F2$IL$:ME$("00000000000000000000",M%)fX$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$g0 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! INSTRZCZC3:L932171;|LFČLOC,19,1:PRNT,"in this unit."^(4);"CLOSE";F$(2):L90:LFFAF$(2)S2$:(4);"OPEN";F$(2);",L";SO  -------------------- USER EXISTS -------------------- FD1 ULI:I100 INSTR,1,ME$R-------------------2\Tell Where Left OffKf-------------------zL90LR18:ZC2:X$" You have completed Subunit(s) "((L9),1,2):LOC,LR,ZC:PRNT,X$:ZCZC(X$){INSTR,L91,ME$,"1",II%:L9II%:L90ČLOC,LR,ZC:PRNT,","((L9),1,2):------- (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 >IHFDİ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 HS1$F$(1):S2$F$(2):SAVE FILENAMESvKPČLOC,24,40:IPT,Z$:Z$"Q"QF1:1042JD431050:2000CLRKBDLOC,24,1:PRNT,NP$KPTR:CHAIN,MP$"CMND.SUB",CV$$ NAME.8:7 =0,     堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭堠򠠍󮠠堠宠󠢭堠ӭ󠠠  ߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN!! ! ! ! ! ! &ĪŀժՀբՂժՂժՊъԊժժժժըŪљ֪ܨƨہǃ_"