' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` 鷎귭෍ᷩ췩緈JJJJx i 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/  !"#$%&'()*+,-./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`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( Ӡ@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ Ť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볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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#Ԩͬ¬ìǬԨˬĬǬԨˬĬǬϠԨˬĬǬΨԨˬĬǬĨн¬̬ǬԨˬĬǬԨˬĬǬԨˬĬ¬̬ǬԨˬĬǬԨˬĬǬĨн¬̬ǬԨˬĬǬԨˬĬǬĨн¬̬ǬԨˬĬǬԨˬĬǬĨнĨн¬̬ǬԨˬĬǬԨˬĬǬĨн¬̬ǬԨˬĬǬβĠԨˬĬ̬Ĩн¬̬ǬԨˬĬǬԨˬĬǬԨˬìԨˬĬԨˬ¬Ԩˬ¬ìΨԨˬ¬ìԨˬĬìŨ¬ΩԨˬìн¬̬ǬŨ©Ԩˬìн¬̬ǬԨˬ¬Ԩˬ¬ìԨˬĬн¬̬ǬԨˬĬԨˬĬìŨŨ¬ΩԨˬ¬ŨΩԨˬìԨˬìн¬̬ǬԨˬĬìн¬̬ǬŨԨˬìԨˬ¬ŨΩԨˬìԨˬìԨˬìԨˬĬˬĬн¬̬ǬԨˬ¬Ԩˬ¬ìԨˬ¬ìԨˬ¬ìή嬠䠠󠠠堠宠堠堠仠󠠠󬠠򠠠򮠠ɧ젠宠󬠠栠䠠󠠠嬠堍󮠠堠쬠ﭭ嬠򠠠󮠠宠宠堠堠仠󠠠ή򠠠򮠠梠ɧ젠宠󬠠󬠠堠󠠠䬠䠠󮠠堠䠠򠠠󬠠䠠宠栠堠宠殠󍢠蠍宠䠠䠠宠宠堠堠仠󠠠ή󮍢󬠠󠠠栠󮠠孭󮠠䭍󠠠䮠堠宠堠堠仠󠠠ή򠠠򮠠梠ɧ젠宠󬠠󠠠󻠠堠宠󠠠砠䠠砠栠砠殠砠殠󠠠ή󮠠砠殠宠堠堠仠󬠠򠠠򮠠ɧ젠宠󬠠젠䠠堠쬠栠󮠠堠栠堠栠ﬠ嬠䠠󠠠󠠠⠠堠䠠⍢ᠠᠠ󮠍䠠䠠򮠠堠󠠠򠠍󮠠ᠠᠠ宠󠠍獢򍢠䬠䠠̠Ƞ򠠠٠Ƞ󠠠堠󠠠堠ԠΠ堠栠堠栠堠䠠٠Ȩƭ٠󠠠堠Ȩ堠堠宠砠宠󬍢򠠠砠󮠠宠󠠠栠䮠󠠠󠠠󠠠󠠠᭭렦堠堠󺠠󠍢蠦堠󮠠宠󮠠䠠ᬠ堦󠠠䠠嬠砦ᠠ頠ɧ堠󠠠俠蠠箠堠䮠堦宠栠堠堍蠦󠠠䮍󺠠䮠砠䮠᭭蠦堠󮠠堦换堠𠠠箠󺠠ŭ堠砠ɧ䠠宠堠蠦ɠ렦䠍宠􍢠𠠠έ󮠠ɠ쬠󠠠㠠ע󠠠󮠠렦堦堠堠嬠󠠠堠󠠠ᠠ堠󮠠ŭ堠䠠砦󠍢ﬠ렦䠠䠠堍󮠠砠堠頠砦栠宠砦󮠠嬠󺠠쮠砦䠦䠠堠򠦳堠ɠɠ箠宠ɠ俠砠堠蠦䠠󮠠砍󠠍纠䠠ɧ󠠍󠠠ŭ䠠󠠠󠠠堠󠠠堠󠠠䬠栦󠠠堠󺠠栠󠦳󠠠堠󬠠󠠠䠦蠠䠠󠠠򠠠嬠ɠ栠娴䬠堠堠ɠ俠󮠠堠堠򠠠ŭ렦䠠堠堦嬠堠󠠠堠ɠɠ󮠠젠򮠠᠍堦䠍嬠嬠堠⠠ɠ卢宠ɠ堠󠠠宠嬠堠嬠ɠ󿠠ɠ䠠⬠ɠɠ宠󠠠嬠䠠렠젠ɠɠ堠箠嬠Ġ䮠栠蠍堠󮠠仠栠蠍󮠍宠ɠ堠䮠嬠Ġ宠􍢠뮠ɠ砠栠砠򠠠䠍퍢㠠򠍢뮠䮠堍砠堠󮠠렠󮠠堠썢ɠ嬠Ġ宠젠䮠䠠뮠렠򠠠䮠렠뮠嬠Ġ宠䠠嬠墠砍𠠠堍䍢 E[  έ򮠠宠젍砠殠ɧ宠䠠젠󠍢󮠠򠠠󺠠嬠뮠ٮ٠в堠Ǡ٠堍򍢠󮠠󺠠宠堠렴蠍ﭭ嬠砠堍堠򠠠宠덢堠򍢠󮠠젠䍢(BL$,35)::LOC,R5,(W$)C5! 'H IF NOT ALPHA THEN REENTERN(Z96Z123)(Z64Z91)W$W$Z$:PRNT,Z$:4050BEEP IF NOT NUMERIC THEN REENTERZ47Z58W$W$Z$:PRNT,Z$:5050BEEP  IRW251 LOC,I,C9:PRNT,SPACE$(25)8 I>$ es for monochromeZg IRW25 LOC,I,C9:PRNT,SPACE$(25) I$ ;R TX$F26200(A9$TX$:98SL$(TX$,2)LBML$(TX$,3,2)_LAN$(TX$,5,2)pVF9$(TX$,7)`F1$(TX$,20)jF2$(TX$,21,20)tME$(TX$,41)~3R"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ЀఀఀÁ𿀀οܟ߁敌ꀀ 쟃́熃񃀀𰀀񁀀怀ہ΁ƁƁ́怀憀挀挀挀؁挀؁挀؁挀挀惀怀ܿƁໆ󁀘ကÁƁ́ Ms懀̙̙́̇̍̍ρ̙̙̙솀̙怀瀀ف瀀홃怀怀癏怀瘛怀ƙ怀  ` 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,I /` SRSR4/j I#/t -t $V SL$"0 10 20 30 40 50 60"G` LOC,EW2,SC1:PRNT,SL$:RWSRSj I1NBst LOC,RW1,SC3:PRNT,HL$(I)~ RWRW2 I I1NB NU(RT$(I)) LOC,SR1,SC1:PRNT,STRING$((NURA),219) LOC,SR1,5:PRNT,NM$(I) SRSR4 h for monochrome1SR5:EW12:SC10FEC36:RA.4:NB2 NM$(1)"MGRS":NM$(2)"YOU":RT$(1)"40":RT$(2)((TT),2) ISREW LOC,I,SC:PRNT,(186)$ I. LOC,I,SC:PRNT,(200)8 ISC1ECB LOC,EW1,I:PRNT,(205)L I:1790A(1)221:B(1)30%15704RW15:C91KPR$(5)"N"İ1630Q(5)"N"İ1630iRP$(((TX$,B1,1)))(TX$,B2,40B)JPRNT,(T2$,1,39):T2$"":RWRW1QKoLOC,24,1:PRNT,CP$:KP1uEMFC(2):(EM3)(EM4)(EM6)A(1)60:B(1)35:1770A(1)59:B(1)351540EMFC(3):(EM3)(EM4)(EM6)A(1)220:B(1)30ہÁကကჀᆀḀဆလ 恀΁فꘀʁ؁̙ʙူ́쀌޹쀌ñ怘ఀ怘ఀ昃昆̙͙͙̍ူ憀ٙ憀ۙ𰶃ہ̃怀ܱက Vm🀀  H$W$(jCH$"A"6400: EDIT ACTION LtCH$"P"6500: EDIT PRIORITY k~CH$"N"6600: EDIT NAMECH$"D"6700: EDIT DAYE CH$"A"CH$"P"CH$"N"CH$"D"ī6350BEEP:LOC,23,37:PRNT," ":62406035 EDIT ACTIVITY20 .X8PRNT,"."^BX12000::LOC,24,1:PRNT,(BL$,40):LOC,R5,C5:PRNT," ":6080hG6800LLOC,22,1:PRNT,"Edit Activity, Priority, Name, or Date?"VLOC,23,1:PRNT,"Type A,P,N, or D and press RETURN."`R523:C537:L51:8000bC. ":X11000::LOC,24,1:PRNT,(BL$,40):60807IDNE(W$)`NEA1E61NEA1ī6140j6220LOC,24,1:PRNT,"Item # must be "P616X1E6LOC,24,P6(X1)3::PRNT,(A1E6X)XE6ČPRNT,","$E6X1ČPRNT," or ":P6BEEP:60406800JLOC,22,5:PRNT,"Enter the item # that you want "LOC,23,5:PRNT,"to edit and press RETURN. "L52:R523:C532:8000I1(W$)0((W$,I))48((W$,I))57ČLOC,24,1:PRNT,"Item # must be a numeric valueE,NGī5400|S"p5z EDIT ROUTINE;E6800QCLRKBDLOC,22,1:PRNT,"Do you want to change anything? (Y/N)":60406800LOC,22,5:PRNT,"Any more changes? (Y/N)"IPT,YN$YN$"N"ıYN$"Y"ī6070 18:L512:8000:NM$(A1)W$: GET NAMEZLOC,22,5:PRNT,"When would you delegate the "LOC,23,5:PRNT,"activity (month/day)? "R514S:C533:L55:LOC,R5,C5:PRNT," "8000:DT$(A1)W$: GET DATE"9500: CHECK VALIDITY OF DATLOC,23,30:IPT,Z$PRNT,Z$?Z$"Y"Z$"N"ČBEEP:5290RZ$"Y"ī5500LOC,22,5:PRNT,"To whom would you delegate the"LOC,23,5:PRNT,"activity (first name) ? "LOC,24,10:PRNT,"Press RETURN when done."%R514S:C5PT$(A1)PSnS1E6(xA1CC5S2}6800vLOC,22,1:PRNT," Can you delegate activity "LOC,23,1:PRNT," # "(A1)" to someone (Y/N) ? "A19ČLOC,14S,15:5275LOC,14S,16PRNT,(A1)TX$2TX$$$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$ဌ̍Ʊ ƃ㰎ƿ؁灀ف挀̱̇ဌ㸀܃̱Ƈؙ؝؁ܱÃع̳́كր ߁ر E}쇀ؙ㜀ٱ͙熌氰쀀ǙۃDZÁ쁆ف۱̱́󘷳فۍ̱̙́ƹǁޙǙ́فͳ́瀀  ," ":LOC,RR,27:PRNT," ":RRyRR1519:LOC,RR,15:PRNT," ":LOC,RR,18:PRNT,(BL$,13):LOC,RR,33:PRNT,(BL$,7): S1E6A1CC5SA19ČLOC,S4,2:5170(LOC,S4,32PRNT,(A1)<LOC,S4,5:PRNT,W$(A1)FLOC,S4,27:PRNT,&114,109114,153:116,109116,153L212,109212,153:214,109214,153eLOC,13,15:PRNT,"#"LOC,13,18:PRNT,"Name"LOC,13,32:PRNT,"Date"QAN(CC5)Q5E6Q:5125E65RR59:LOC,RR,5:PRNT,(BL$,19):LOC,RR,2:PRNTX 0 FORMAT NAME AND DATE BOX6FCC0ī5100SANA1ıRR1519:LOC,RR,15:PRNT,(BL$,25):RRN1517:LOC,N,5:PRNT,(BL$,35):N2:96,108276,108276,15496,15496,10894,107278,107278,15594,15594,107PT,Z$(Z$"H"Z$"M"Z$"L"ī4080B4200: IF STMT FALSEU IF STMT TRUEBEEP:LOC,12,3:PRNT,"Make priority H,M, or L; No RETURN.":TT1750:TTLOC,12,1:PRNT,(BL$,40)4060h EXIT IFrPRNT,Z$|PT$((P11)5X)Z$W$(AN)"" 3120 H END IF6M PRINT CHARACTERTR PRNT,Z$:W$(AN)W$(AN)Z$^\ 3140dy INPUT PRIORITYX1517:LOC,X,5:PRNT,(BL$,35):XLOC,15,5:PRNT,"Now type in priorities."X1AN((P11)5)LOC,X4,27:IOC,12,1:PRNT,"Limit activity name to 19 characters."b LOC,13,1:PRNT,"Retype from beginning."t TT1800:TT LOC,RW,5:PRNT,(BL$,19): BLANK OUT AC TIVITY  LL1213:LOC,LL,1:PRNT,(BL$,40):LL: BLANK OUT ERR MESSAAGE   LOC,4X,(W$(AN))15:PRNT," "E FF(W$(AN))15:LOC,4X,FFf (W$(AN))1W$(AN)"":3140 W$(AN)(W$(AN),(W$(AN))1):3140 END IF CHECK LENGTH (W$(AN))19ī3260 3400: IF STMT FALSE IF STMT TRUE5 BEEP:L)""ī31301q FL1: SET FOR 1ST CARRIAGE RETURN8v Xm{ : BOX ON SCREEN IS FULL IF THIS STMT EXECUTEDz END IF FL0: RESET CARRIAGE RETURN FLAG CHECK BACKSPACE Z8ī3220 Z32ī3140 3235: END IF W$(AN)""ī3140$OC,RW,CMD IPT,Z$:Z(Z$)8N CHECK CARRIAGE RETURNHX Z13ī3170[] 3200: END IFqb IF STMT IS TRUEd (X1)(W$(AN)"")(FL)ANAN1:BB1:LOC,RW,2:PRNT," ":g FLANAN1:LOC,RW,2:PRNT," ":CR2:: 2ND CARRIAGE RETURN l W$(ANtivities. Press RETURN once"S LOC,16,5:PRNT,"after each one and a second time"~ LOC,17,5:PRNT,"when done with list." X15  RW4X  AN(P11)5X: ACTIVITY NUMBER  AN9ČLOC,RW,2:3110 ! LOC,RW,3 & PRNT,(AN) 0 CM5: LPRNT,"PTY"0 \1:3,28199,28199,753,753,28R f1,27201,27201,761,761,27p p23,2923,74:25,2925,74 z171,29171,74:173,29173,74  INPUT ACTIVITY P10P11: INIT PASS # CLRKBD LOC,15,5:PRNT,"Type AcT,"PTY:"' LOC,5,33:PRNT,"Priority"C LOC,6,35:PRNT,"Codes"c LOC,7,32:PRNT,"---------" LOC,8,33:PRNT,"H=High" *LOC,9,33:PRNT,"M=Medium" 4LOC,10,33:PRNT,"L=Low" >LOC,3,2:PRNT,"#" HLOC,3,5:PRNT,"Activity" RLOC,3,26:10)1İ7600: NO PRINTER MESS.8 CCCC1:CCP1ī1200R 7000: PRINT ROUTINEj LOC,24,1:PRNT,NP$ KP1:CHAIN,MP$"CMND.SUB",CV$   FORMAT ACTIVITY AND PRIORITY BOX  LOC,1,8:PRNT,"Planning For Delegation" LOC,4,32:PRNP1P11:1200) `4000: INPUT PRIORITY9 eCR2ī1200 RR59:LOC,RR,5:PRNT,(BL$,19):LOC,RR,2:PRNT," ":LOC,RR,27:PRNT," ":RR P1P11 P120P119:1200 1110 5000: GET NAME AND DATE, 5 AT A TIME 6000: EDIT CO( !/「ؙÁ̙ÁǁǁÍ  ܁؃恀ށÉժժՊՂՂՀՀR1":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) QFTRUEKPFALSE1QFFALSEİ1080:1040RF2:R1:4000:ET$(TX$,7,3)z$(ET$)0OI(ET$):QFFALSE:1040.:(7):" *** ESECT Not Defined *** ":8j6500t(O5$)11160,1180,1230,1450,1660,1800,1650,1480,1550:1170 춛쀀춛đđđđժժժ &3 C04$TODO.SUB;40 COL DELEGATION LIST[ WRITTEN BY SCOTT STEGMAN 7/1/84aKPČIPT,Z$:Z$"Q"QF1:1250W$(99),PT$(99),NM$(99),DT$(99)L2000: FORMAT ACTIVITY AND PRIORITY LISTV3000: INPUT ACTIVITY [BB              ! ! !!!!!!!!!" " " " " 5🀀เǁ؁ρ΃É΃ÁԚ瀯˯򩧁©Ԋ ADH@he@C`DFCE` g ᤡ` { <=&`((((PPPP\\]]^^__\\]]^^__\\]]^^__8.8 >? &?>ce>>je??8>EFF` i i j8EFFcjCD  jEEF8nCiCDũ `)H ߅>?>opoha{)ߑooȑ>pȑ>`(CD`j3jBKA`po>ȥp>'@oo` Bh 2i ( ᩰHXh h `Є,0 ߅>?> , i` i`hhߚHH` j j` #j>?@H j'h8'' j@8Ȅ #j@'&@<>@'&Lh`H i jhɀ''F¥&E>F??B**GLf` g ᥡ` 2iHi_8 h bg ih h`,0`,` #jg ȱ< &g  ߪ A `„ jȄ' {$0 ᤡ@Lg <=<@ ߅>?'>8o'o@.B(I HNIAH@NBʆ`8H@EIAFEF8NBGGEȥFȥGii*8@@AA@i+D&'>BJJJ )i<(B) e+=D<F=F=f?>>8f???><< ȱ=<&(Ȣ>($>JC8>FCf?8f??BB **G`Ld<=F=<` j' #j?@@e'&@><' '<=Le ߅>?>>` .gA@ .gB .gIH .gN ߅A4Ld`$0ij>?~e>> ?L/dkl>?` .gA@ .gB ߅A `@`B`EȱFȱGii*8@@AA@i+D<&'BJJJ )i<(B) e+D>Jf?> Fef?&&'E'F>8f??>>>'Lb@A'Lb>?` d c c&$>ȱ>  cL4c> cL*c` d$ cLJ>$0> c cLhc>Bȱ>C> c>?BCBBC`$0>>e>>e??`e`$0lkLcmn?>`$0La{a u '6b7  67 a@aaaLpbaa aa uazaHyaH` #j< u cͩ>?ϩ` #j{'&i<@Aȱ<0[AȱA'<  h i''&` c` yb b$0( 'c Yc 'c Ycmnkl i a eօ3آiLdaÄӤخӤĮ uَaLagh uقa7aaLxb gh,a aaLxb@a`/ 4``L`LaL0dLbeLeL@gLugL{gLgLhL]hLL}hLhLhLh/oimkjnl c`~emmknlstop`}n`i`PR@CH@PU@IN@GI@ IP@&CL@,BL@2PA@8PS@>IK@DBE@JTI@PER@VLO@\MI@bCS}PO~ c` i' #j     ՊԀՊՊЀ q'=怀ف瀀ρρ񁀞掀܇灀Ɓీ㶀잀憶ఃƁ怘쀘 z"#  ðϮ ( ԭԠֱðĮ   ðȮ ðծ  ðŮ   ð̮ ðв  ð׮ ! ðӮ  ðήҠ ðήҠ ðĮҠ ðͮҠ ðɮҠðή   ðŮ  ðήҠ!ðŮҠ"ðٮҠðͮҠðٮҠðήҠ ðήҠ ðԮԠҮԠӮԠðծԠ ðԮҠðϮҠðȮҠӠðҮ͠ðβ®ԠBðβîԠAðβĮԠ#ðβԠð׮Ԡ,"----------",A%!sA%0IITEIv(TX$,1)">"A%0ENII1:IITE2Z{SQTQENTEbIIINSTR,1,PR$,"#",NN%:NNNN%:NN0ČLOC,8,1:PRNT,PR$:1940LOC,8,1:PRNT,(PR$,NN1)" "((SQ),((SQ)))"."KP0:7010:STEN1  LOC,22,38I1)),N,1)"|"ČLOC,I1,1:PRNT," ":1875WRLOC,I,N:PRNT,(OP$(TP1(19I1)),N,1)aSN:IyTLOC,20,1:PRNT,SC$UPR$(3)""PR$(3)"C""":PR$(5)""PR$(5)(18TP)XTEEN]F1bSQ1TQlIIST1TEqRII:4000rINSTR,1,TX$)"P=0""":I292DPR$(I)""PR$(I)TG$(I):EI:CGSC0`HSCSC1:SH$(SC)""1868~ILOC,9SC,1:PRNT,SH$(SC)J1864LPR$(8)""PR$(8)(10SC)MPR$(4)""PR$(4)(9SC)N OI1920TP1PN140*Q(OPT$(TP1(19I ?KPLR24:ZC40:1610:KB$"Q"QFTRUE:1790V6740:TQ(PR$(1))aI29~ 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""":I1000I9TP0HIST3ENVRI:4000S1$TX$:S2$"|":5000:NN0IEN1:1780OP$(I(ST2))TX$TPTP1IENST3TP1790IST3TPENRI:4000SH$(I(ST2TP))TX$I29:TG$(I)PR$(I):I5TG$(8)""TG$(8)"10"""STG$(4)""TG$(8)"10"""LW$(CC$,1):HG$(CC$,1):MN$LW$:MX$HG$I110:OP$(I)"""":SH$(I)"""":IF1:RST:4000:PR$TX$RST1:4000:TT$TX$RST2:4000:SC$TX$)I1ÁЇОꃀխկլЊ񧀃ĉ֊ͨրƢ֚Âጃጃᆇہہ؁܃ށƁ́ _DV🀀࿀ R!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!FC!()PN$()HE$()PR$TT$SC$"""  AAAAA"""g eBL$" """ jCP$" Space Bar to continue, or Q to Quit.""" tNP$" Space Bar to continue."""z CV$"ST$()PR$()CO!()F$()TR$()OC$MP$OI!QF!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)"AAAdn ThoughtWare'x ? CONVERTED TO THEU Apple ][ Plusj Dec 6,1983p(4);"BRUN SOFT-EXT V1.01"MP$"C04$""""1060 ExecutionCHAIN,MP$"CMND.SUB",CV$$ Initialize' .   ը֬Ԩн¬ը֬ŨŨԨˬìԨԨˬĬԨˬĬΨԨˬ¬ìβàԨн¬̬ɬԨˬĬԨˬĬԨˬĬԨˬ¬Ԩˬ¬ìԨˬ¬ìȨԨˬ¬ԨˬĬԨˬĬȨԨˬ¬Ԩˬ¬ԨˬĬԨˬĬȨԨˬ¬ԨˬĬԨˬ¬ȨԨˬ¬ŠԨˬĬȨԨˬ¬ԨˬĬԨˬĬ̬н¬̬ǬȨԨˬ¬Ԩˬ¬ìԨˬĬԨˬĬìΨԨˬ¬ìЬβ ԨˬĬԨˬĬԨˬ¬вԨˬ¬ìԨˬ¬ìčԨˬ¬̨ԨˬĬԨͬĬ̬ԨͬĬ̬ԨͬĬì̬βԨˬ¬̬Ԩˬ¬ԨͬĬ̬ԨͬĬ̬נרΨԠֳՠԨͬ¬̬ŨΨн¬̬ǬӨ          󬠠򠠠򮠠ɧ젠宠󬠠䠠󠠠䬠󠠠쮠묠堍堠򠠠묠堍堠ﮠ󠠠堠仠󠠠ή䠍򮠠宠堠󬠠򠠠砠ɧ젠宠󬠠䠠䮠䠠䠠栠䠠򠠠򠠠ծӮ󮠠ծӮ젠忍堠宠󠠠栠󠠠                    蠦宠䬠箠堠堠蠦𮠠䠦󠠠蠦躠ɠ蠠頍俠堦堠ɧ箠蠦嬠堠򠦴堠宠栍宠堠󠠍讠󠠠䬠殠砠栠󮠠䭠孠堍廠ή孭κ󺠠򭠠򺠠󠠠κ仠󩺠󠠠宠Π򠠠                       󮠍ɧ󍢠堠謠䠠堠뮠򍢠뮠젠󮠠䮠堠󮠠堠󍢠䠍ɠ堠󮠠嬠Ġ宠堠󮠠󮠠䮠堍䠠魭󠠍䮠蠠堠򠠠ɠɠɠ󠠠쮠嬠Ġ宠󮠠堠堠䮠堍箠砠嬠Ġ宠젠堠ᠠ魭ɠ宠렠宠嬠獢宠󠠍堠                ᠠ换堍栠蠍堠뮠堠󠍢栠뮠堠㦲栠󠠠䭍栠󠍢嬠堶󠍢ɠ謠ɠ堠򮠠堠ᠠ뮠ᠠ栠嬠򠠠ɠ堠箠ɧ묠ɠ宠ɠ󠍢ɠ殠ɠ󬠍ɠ堍ﮠ묠堠宠򠍢뮠ɠ䠍󮠠ɠɠ􍢠ᠠ堠卢ɠɧ换ɠ젠򍢠󮠠젠䠠堍孠󮠠宠砠󠠠            ved!TFFALSE72105":LOC,3,13:PRNT,(TT$,27)D#:LOC,4,13l$:PR$(BL$,(PR$))ČPRNT,PR$:7210%:I140:(PR$,I,1)" "ĂI&:INSTR,I,PR$," ",QQ%:':TQ1X$(PR$,QQ%1)"s"" ":7209(:X$(PR$,QQ%)" "):PRNTLW24LW24MPR$(3)"C"āIIURLW:LOC,II,1:PRNT,(BL$,40):II:7160Y:4500` (PR$(3)"C"PR$(6)"TL")TFTRUE7200 F1:RT1:4000:LOC,3,13:PRNT,(TX$,27)F1:RT11:4000:LOC,4,13:PRNT,(TX$,27)  Page command remo116:ST$(I)"":I9SST:T11:PR$(6)"TL"T1ST:SST2SISEN:F1:RI:4000fST$(IS1)TX$mIKPČLOC,24,40:IPT,Z$:KP0:LOC,24,1:PRNT,(BL$,40):Z$"Q"QFTR:7430UR(PR$(4)):PR$(4)""UR8LW(PR$(5)):PR$(5)""LW24L$,"(",NN%:NNNN%:SRNN1:PSSR:PM1:I117:PR$(I)"":IN^NN0PM0:7000h(OL$,PS,1)")"PR$(PM)(OL$,SR,PSSR):7000r(OL$,PS,1)","PR$(PM)(OL$,SR,PSSR):SRPS1:PMPM1|PSPS1:6760Xb lPR$(7)""PR$(7)"NP"IIOIIX0OL$(OL$,12):O5$"09"OL$(OL$,6)QINSTR,1,OL$,")",NN%:NNNN%:nNN0CC$(OL$,4):6680CT$(OL$,NN1) INSTR,1,OL$,"(",NN%:NNNN% NN106680CC$(OL$,NN1)OV$(OL$,1,2)"OT$(OL$,3),9TINSTR,1,O OJ$(T2$,2,18)Od )OL$""aR2OI:5100:ST(SR$):EN(ER$):IX(EX$):PA(PG$)mO5$OP$IX0ĺ(4)"CLOSE"::(7):::"*** ERROR -> OI (";OI;") IS NOT CORRECT"::A$I1IXR2I(OI1):5100OL$OL$OJ$IOLOC,LR,ZC:PRNT,TX$ # @S1(S1$):S2(S2$):NN0RJJ1S1S21w(S1$,JJ,S2)S2$NNJJ:JJ10000JJ (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$)Ql SA$(SA)SA$(SA)Z$k LOC,22,38:PRNT," "s SQ KP0:TFFALSE: (4);"READ";F$(F);",R";RTX$, PUT,PX,PY,LO%(0)71,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Ƈ Y&9ٿٿχǃ̃̓𯀀𯀄ெ  ԠŠͭ󠠠Ġ嬠󠠠άŬߦӠ󠠠  *&+ 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    堠䠠孭堠󠠠󠠍򮠠堠堠堠Π砠宠ŠҠϠŮ孭堠򠠍󮠠堠宠󠢭堠ӭ󠠠     DAT ,R1"+ TX$++-+ GET TEXT3+Q+(4);"READ";F$(F);",R";RZ+TX$h+F26200v+A9$TX$:+8SL$(TX$,2)+BML$(TX$,3,2)+LAN$(TX$,5,2)+VF9$(TX$,7)+`F1$(TX$,20)+jF2$(TX$,21,20)+tME$(TX$,41)+~34)X$T*SL$(" "(SL%),2):ML$(" "(M%),2):F9$(BL$,34M%):X$SL$ML$A$F9$|*(4);"WRITE";F$(2);",R1":(34)X$*L90*** UPDATE INDEX RECORD**F2:R1:6100*L$(SL%)*TX$L$(TX$,3)+(4)"WRITE USER.--------------------+) ADD NEW USER E)--------------------P)ULSL%k)SL%SL%1:SL%6SL%2)F1$FI$:F2$IL$:ME$("00000000000000000000",M%))X$F1$F2$ME$)(X$)JDĉ:"Parity error in JD":*(4);"WRITE";F$(2);",R";UL:( FIELD#( SX(UL2)T91:EASXT90( KSXEAB( F1:RK:6100\(! INSTR,1,TX$," ",XX%l(" XX%03115(# XX%1TX$"":3115(& TX$(TX$,XX%1)(+ UA$(KSX1)TX$(0 K(: (4);"CLOSE";F$(1)(D F$(1)S1$:(4);"OPEN";F$(1);",L42"()ER EXISTS#' ---------------------' FD1<' ULI:I100\' INSTR,1,ME$,"1",II%:L9II%m' L90LFTRs' ' INIT ANSWER LOC' ' T903990' T910ĆUA$(T9)' (4);"CLOSE";F$(1)' F$(1)"ANSWERS.DAT":(4);"OPEN";F$(1);",L22"(`&{INSTR,L91,ME$,"1",II%:L9II%:L90ČLOC,LR,ZC:PRNT,","((L9),1,1):ZCZC2:L94ī2171&|LFČLOC,19,1:PRNT,"in this unit."&(4);"CLOSE";F$(2):L90:LFFA&F$(2)S2$:(4);"OPEN";F$(2);",L";SO& & -------------------- ' US% I26%*F2:RI:61006%4FI$F1$IL$F2$İ3000=%>IL%HFDİ4000e%R-------------------~%\Tell Where Left Off%f-------------------%zL90LR18:ZC2:X$" You have completed Subunit(s) "((L9),1,2):LOC,LR,ZC:PRNT,X$:ZCZC(X$)ZC1:1315$x'$----------------=$FIND/INSERT NAMES$----------------k$(4);"CLOSE";F$(2)$F$(2)"USER.DAT"$(4);"OPEN";F$(2);",L";JD2$ FIELD$FIELD$ F2:R1:6100:M%(ML$):SL%(SL$):A$AN$$T9(AN$)$FD0 LR,ZC:IPT,Z$:Z(Z$)1#7(Z8Z127)W$""1360H#<(Z8Z127)1360a#A(W$)1W$"":1355v#FW$(W$,(W$)1)#KZCZC1:LOC,LR,ZC:PRNT," ":1315#PZ131400#UZC32ĺ(7):1315#ZZ65Z901315#_LOC,LR,ZC $dPRNT,Z$:W$W$Z$:ZC"gPF$" "1126 "iLOC,12,38"jPRNT," Last Name:"G"oRP$(0)PF$g"tLR12:ZC14:1280:PL$W$""y"yPL$" "1140"FI$PF$(BL$,20)"FI$(FI$,20)"IL$PL$(BL$,20)"IL$(IL$,20)"""  NAME INPUT""W$""##LOC,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 JD44 1050:2000 CLRKBD LOC,24,1:PRNT,NP$ KPTR:CHAIN,MP$"CMND.SUB",CV$  $ NAME . 8:7!=0,     (25) , I,$ I$ nes for monochrome:G IRW25f LOC,I,C9:PRNT,SPACE$(25)m Is$ IRW25 LOC,I,C9:PRNT,SPACE$(25) I$ $ I$ $rome IRW25 LOC,I,C9:PRNT,SPACE$(25) I$(13)++LOC,11,8:PRNT,SPACE$(18)(13)2+J8+H+S4(TX$)S+T2$""e+X$(TX$,S,3)+X$" "T2$(TX$,S):S100:2260+T2$TX$+S+++ clear lines for monochrome++ IRW25, LOC,I,C9:PRNT,SPACE$HPRNT,(T2$,1,31)+*RCLRKBD:2140:2130}*\LOC,24,1:PRNT,NP$:IPT,Z$:MNĒC0:0,184279,184279,1910,1910,184:2150*aRW24:2280*fS1S13*pLOC,8,8:PRNT,SPACE$(27)(13)*zLOC,9,8:PRNT,SPACE$(27)(13)+LOC,10,8:PRNT,SPACE$(27)AR%(0))PR$(2)"1"İ2000"),)S1ST7)J16J)F1:RS1:9900W)R19:C8e)LOC,R1,Co)2220) PRNT,(T2$,1,31):R1R11)F1:RS11:9900) 2220:LOC,R1,C)*PRNT,(T2$,1,31):R1R11)4F1:RS12:9900)>2220:LOC,R1,C*100 (S(&LOC,R1,C/(:PRNT,T2$:R1R11:(DT2$""A(NIM(XCLRKBD(bPR$(1)"2"ČLOC,24,1:PRNT,NP$:IPT,Z$:C0:0,184279,184279,1910,1910,184(l(PR$(2)"1"ī1980((AR%(4200)(BLD,MP$"key.scr",AR%(0):)PUT,9,20,3"ĒC0:96,30279,30279,19196,19196,30M'0,30173,30173,1800,1800,30n'(PR$(2))3R15:C14:CR1'(PR$(2))3R15:C1:CR2'ISTEN'(4);"READ";F$(1);",R";I'TX$'S4(TX$)'X$(TX$,S,3)(X$" "T2$(TX$,S):S1:R15    STI1:R15+ 5T2$(TX$,S):S100:2260TT2$TX$[SaT TCT1&rCT3ī1470&|&SF$(1)"TRUM":SF$(2)"EISN"&SF$(3)"KEND":SF$(4)"NIXN"&SF$(5)"CART":SF$(6)"REGN"&&)'PR$(2)"CREEN %%CLRKBD7%LOC,24,1:PRNT,NP$:IPT,Z$_%X523:LOC,X,C:PRNT,(BL$,27):X%LOC,24,1:PRNT," "%B1I1:R15% 1:R15% 7PRNT," "B1I $IB1EN*$(4);"READ";F$(1);",R";I3$TX$Q$(TX$,1)">"İ2000:1760a$S4(TX$)s$X$(TX$,S,3)$X$" "T2$(TX$,S):S100$S$&LOC,R1,C$:PRNT,T2$:R1R11$DT2$""$NI$XCLRKBD$l$% PROMPT + CLEAR SZ$#CO(1)(Z$)+#Z13P1P11:13601#C#SF$(1)"TRUM"U#SF$(2)"EISN"g#SF$(3)"KEND"y#SF$(4)"NIXN"#SF$(5)"CART"#SF$(6)"REGN"###(PR$(2))3R15:C14:CR1#(PR$(2))3(PR$(2))6R15:C1:CR2#B1ST "R122$"PR$(2)"3"C27:1320-"#C14H"(A$"123456"(13):P11\"2LOC,R1,C:PT95h"<CLRKBDx"FPRNT,(PT)"PIPT,Z$:Z(Z$)"ZZ13P11ī1440"dZ13P11ČBEEP:1330"nINSTR,1,A$,Z$,QQ%:YQQ%:Y0ČBEEP:1320#xLOC,R1,C:PRNT,V$!BAR%(2500):1670!VH!jBLD,MP$SF$((PR$(2)))".SCR",AR%(0):V!oX10:Y50!t((PR$(2))1)((PR$(2))6)((PR$(2))3)X220:Y10!y((PR$(2))2)X219:Y10!~((PR$(2))5)X9:Y50!PUT,(X).875,Y,AR%(0)!S1ST:BREN! 17102  THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON> CLRKBDi KPČIPT,Z$:Z$"Q"Z$"q"QF1:1080o   BLOADS PRES FACES $ AND CORRESPONDING TEXT . C04$GRPH.SUB 0 3(PR$(1))1090 5CLRKBD!8KP0:CHAIN,MP$"CMND.SUB",C     IF LOWER CASE, FOLD TO UPPER" = Z45PR$(4)"V"ī3045` (Z96)(Z123)ZZ32:Z$(Z)m PRNT,Z$ W$W$Z$:3050 LOC,21,5:BEEP:PRNT,"A Hyphen may not be used":LOC,22,5:PRNT,"as part of a name.":X1700:X:X2122:LOC,X,5:PRNT,/ \(W$)L5ČPAD,L51(W$)," ",KE$:PRNT,KE$5 `B a END IFH fh k CHECK LENGTH OF LINE AND p CHECK CHARACTER AGAINST MASK z (W$)L5ČBEEP:2000 INSTR,1,"Aa9",(MK$,(W$)1,1),QQ%:QQ%3000,4000,5000 2000  (W$)1C5" %(W$)1W$"":2000= *W$(W$,(W$)1):2000C 4k > IF CARRIAGE RETURN THEN END INPUT C BLANK OUT REMAINING UNDERSCORES H MZ13ī2130 O2145: ELSE CLAUSE R THEN CLAUSE WW$""ČLOC,R5,C5:2000 YRP$(CT)W$NE ` jCLRKBD( tPAD,L5,"_",KE$A ~LOC,R5,C5:PRNT,KE$P LOC,R5,C5V l  GET CHARACTERr  IPT,Z$:Z(Z$)   IF BACKSPACE THEN BACKUP  Z8ī2100 W$""ī2000 LOC,R5,(W$)1C5:PRNT,"__":LOC,R5, $C5(PR$(2)): COLUMNB .L5(PR$(3)): LENGTH OF INPUT LINE 3PR$(4)"V"ČPAD,L5,"A",MK$:1095: ALLOWS ALL INPUT BUT HYPHEN 8PR$(4)""ČPAD,L5,"A",MK$:1095 BMK$PR$(4): MASK GCT(PR$(5)): SUBSCRIPT FOR RP$ L V PRINT LI 1000;PR$(3)"8"R517:C531:CTCT1:W$"":1100YCHAIN,MP$"CMND.SUB",CV$_ INPUT ROUTINE WITH UNDERSCORE WRITTEN BY PAUL BATES MODIFIED BY SCOTT STEGMAN SET PARAMETERSR5(PR$(1)): ROW 򮠠򍢠䠠ﮠ󭭭򿠠٠󠠠Πԭ󭭭嬠㮠孭󠠠堦󠠠ӠŠ     "READ";F$(F);",R";KzTX$+|LOC,RW,C9JINSTR,1,TX$,"&",QQ%:YQQ%aY0T2$TX$:1720INSTR,Y2,TX$,"&",QQ%:BQQ%B0T2$(TX$,Y1)RP$(((TX$,Y1,1)))(TX$,Y2,40Y):1720%T2$(TX$,Y1)RP$(((TX$,Y1,1)))(TX$,Y2,B(Y2))1)6:1540A(1)5:B(1)5"0AR%(600)T"BLD,MP$PN$(EM)".SCR",AR%(0):p,PUT,(A(1)),B(1),AR%(0)@PR$(4)"B"PR$(8)"N"İ1620JTRW10:C91^PR$(3)"A"ĒC0:0,72279,72279,1910,1910,72hKSTENrF1:RKw(4);ACE ALREADY ENTERED6P12ĭ(Z$)FC(1)ČBEEP:1420eP13ĭ(Z$)FC(1)(Z$)FC(2)ČBEEP:1420IPT,Y$:(Y$)13ī1420FC(P1)(Z$):P1P111400: END OF THEN BLOCKEMFC((PR$(2))) (EM3)(EM4)(EM6)A(1)6:B( IF WHEN PREVIOUS CONDITION IS FALSE5  THEN BLOCK` NN28P1: POSITION OF HYPHEN IN TEXT LOC,SR(NN),EW(NN)2:IPT,Z$  CHECK FOR VALID INPUT INSTR,1,A$,Z$,BB%:BB%0ČBEEP:1420 LOC,SR(NN),EW(NN)2:PRNT,Z$ CHECK WHETHER F(TX$,Y1)RP$(((TX$,Y1,1)))(TX$,Y2,40Y)H 7INSTR,1,T2$,"-",SS%j 9SS%0EW(I)C9SS%:SR(I)RW <LOC,RW,C9:PRNT,(T2$,1,39) =T2$"":RWRW1 FI PPE1500:PE ZA$"123456":P11 xP14ī1410: EXECUTE IF BLOCK$ }1510: EXIT$(K)".SCR",AR%(0):4 PUT,(X(K)).875,Y(K),AR%(0)X LOC,RW(K),C9(K):PRNT,(K)" "_ Kn RW16:C92 SR(40),EW(40) ISTEN F1:RI (4);"READ";F$(F);",R";I TX$ INSTR,1,TX$,"&",QQ%:YQQ% Y0T2$TX$:1335/ (T2$1))6ī1760D RW(1)12:RW(4)13:RW(6)9:RW(5)11:RW(3)10:RW(2)12} C9(1)3:C9(4)24:C9(6)38:C9(5)31:C9(3)17:C9(2)10 PN$(1)"RAY":PN$(5)"MIKE":PN$(3)"JIM":PN$(2)"JUDY" PN$(6)"ANGI":PN$(4)"KARN" AR%(600) K16 BLD,MP$PNR$(1))1120,1200,1270,1520,1620,1140B BCHAIN,MP$"CMND.SUB",CV$H `m jC2:0,0279,0279,1120,1120,0 o278,0278,112:1,01,112 tX(1)8:X(4)167:X(6)268:X(5)221:X(3)113:X(2)59 ~Y(1)30:Y(4)48:Y(6)5:Y(5)30:Y(3)9:Y(2)35 (PR$(S 2 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8X BLOADS FACES TO SCREENr IN BOX WITH TEXT TONEY MCINTOSH 3-28-84 MODIFIED BY SCOTT STEGMAN 6/20/84$KPČIPT,Z$:Z$"Q"Z$"q"QF1:1090)C03:C23$ 8(P  ĈĔĈĈĈĈĈĈԐĈĈŐĈĈѐĈĈՐՀՠժդդňĠĈĈĈĄĈĈĈĈĄĈĈĄĈύۍ𶛇́ۃۏ۟۟߇߇ۇダہށ܁ف󀀘ف󀀘  ̙퀀퀀퀀퀀퀀۽۽۽۽ Hj෷ۿ큀퇀ǁﶃ ကကက    ."(13):::.zMNČPRNT,((NS),2)"."(13)RLOC,24,1:PRNT,NP$(13):1780VIEW(0,(RW1)8)(319,199),0:VIEW(0,0)(319,199)S112S136CO(3)1S137S148CO(3)2S149S160CO(3)3 bar grapMN::*PRNT,((YS),2)+4MNDGSEG::c>PRNT," out of a possible"(13):PRNT," score of "nHMN::RPRNT,((MS),2)"."(13)\MN::fPRNT," The average score of managers"(13):PRNT," nationwide is ": pMN::PRNT,((NS),2)"I:YCYYI%XIPD(MA):YIPD(MA);P1CXXI:P2CYYIVCIRCLE(X,Y),RD,3,SN,EAsCIRCLE(X,Y),RD,3,SN,SNCIRCLE(X,Y),RD,3,EA,EAT$(TL$,(IMOD6)1,1):I:: MN::LOC,RW,1:PRNT," You scored " RRRDCD2:BP00I1NP<:PP((PN$,(I1)41,4))10KDPP02020bNRV(PP3.6)PI180uXSNBP:EABPRVbEA2PIEA2PIlBPEAvMA(EASN)2SNXICD(MA):YICD(MA)XPRR(MA):YPRR(MA) PSET(CXXP,CYYP),0:XCXX).875,J(IBW5).875,JJ2JBHBHBW1eC:(I(BHJ)).875,J(I(BHJ)(BW5)).875,JlJvC4CI: InputLOC,24,1:PRNT,CP$ Draw the chartNP(PN$)4:PI3.1415927#&S.8751,WET2:(X1).875,I(X2).875,I:IISE:CTCT1:CTMX1620a^C1:K0:AC((BH$)BN)hIR3(R3)(BNBW)(BW1)rE((BH$,KAC1,AC))(10(AC1))|KK1:BHV(E1)SEJV5BH12:(IBW).875,JBW1(I1).875,J:C:(I(X).875,(U(WV))(X).875,U:(S).875,V(T).875,V:(T).875,V(R).875,U:(T).875,V(T).875,WBX.8751,(U(WV))X.8751,U:S.8751,VT.8751,V:T.8751,VR.8751,U:T.8751,VT.8751,WJ(T).875,W(S).875,W:ISS:CT0 LT.8751,W75,U(X).875,Y:7:(X).875,U(S).875,V .3:X.8751,YR.8751,YR.8751,UX.8751,UX.8751,Y:7:X.8751,US.8751,V 67:(S).875,V(S).875,W:(S).875,W(X).875,U(WV) 87:(S).8751,VS.8751,W:S.8751,WX.8751,U(WV)b@I! LOC,24,1:PRNT,NP$:IPT,Z$, KP0:2 K  Draw the graphQ s GWBNBW1.25:GLSE(MX)1.25 RXGW:SXGD:TXGWGD UYGL:VYGLGD:WYGL2GD "X1X4:X2XGW4:SSYGLSE) ,3:(X).875,Y(R).875,Y(R).875,U(X).81((BH$,3,2)) P19% 2ISTENC <(4);"READ";F$(1);",R";IL FTX$R Pv Z REPLACE "&" IN TX$ BY RP$(2)| d nINSTR,1,TX$,"&",QQ%:YQQ% xY01420 TX$(TX$,Y1)RP$(2)(TX$,39Y) LOC,P,2 PRNT,TX$(13) PP1 T0:I112:TTTT((A$,I,1)):II MX6:BN2:BW35:BH$"40"((TT),2)a X94:Y0:GD41:SE6k 1510 LOC,13,19:PRNT,"you"(13):LOC,14,20:PRNT,(BH$,3,2)(13) LOC,13,23:PRNT,"mgrs"(13):LOC,14,24:PRNT,"40"(13):RP$(2)(BH$,3,2):STR:1150& jLOC,24,1:PRNT,(BL$,40)6 t1160:2210@ y(0)^ ~CHAIN,MP$"CMND.SUB",CV$q PJPL1:1180z PL0  A$SA$(1):RS$"02030912" I0((RS$)2)1 X((RS$,I21,2)) MID,A$,X,1,((6((A$,X,1))),1) I! T2 THIS PROGRAM HAS BEEN CONVERTED BY VAR-CON8W c04$eval.sub]c Evaluate Delegation "I" (2C)$.8KP1140BKP0L(16384)1281100VKB$((16384)128):49168,0 `KB$"q"KB$"Q"QF        &ĪŀժՀբՂժՂժՊъԊժժժժըŪљ֪ܨƨہǃ_ &!E16I21:ST$(E)ST$(E1):E7!(ST$(I1)RT$=!2D!< w!Z(ST$(I1),1)" "ST$(I1)RT$ST$(I1):7780!_ST$(I1)RT$" "ST$(I1)!d(I))07670! E(ST$(I))11Q (ST$(I),E,1)" "ST$(I)(ST$(I),E):E1X Ep (ST$(I))407670 K4111 (ST$(I),K,1)" "RT$(ST$(I),K):ST$(I)(ST$(I),K1):K1 K (ST$(I1),2)" "İ7680:7670 7740 !57:I1PE:I:7430/7440:PR$(1)"M"QFFA5< TLOC,24,1:PRNT,P1$`$CLRKBDp)LR24:ZC40y.KP18B `NI$(ST$(I),Y1,1)j(NI$"0")(NI$"9")ST$(I)(ST$(I),Y1)RP$((NI$))(ST$(I),Y2)t~ (ST$ST$(I)""7380STFTRUE(ST$(I),1,1)">"ČLOC,LR,2:PRNT,(ST$(I),2):7350nLOC,LR,1:PRNT,ST$(I)zLRLR1LR247380I PR$(1)""PR$(1)"K"P1$CP$PR$(1)"M"P1$NP$(PR$(1),1)"P"KP0:PE((PR$(1),3))7," "(TQ)" "X$4*T1(PR$(8)):PR$(8)""T1URC4LRT1:ZC1ORI116X\QW1fINSTR,QW,ST$(I),"&",XX%:XX%0YXX%:QWXX%1:7490:7270zIIURLW:LOC,I,1:PRNT," ":II1167550A:CHAIN,MP$"CMND.SUB",CV$!"6BILITY" FB$"FEEDBACK"e X18:Q$(FB$,X,1):R7X7:LOC,R7,12:PRNT,Q$:LOC,R7,27:PRNT,Q$:X LOC,10,16:PRNT,"RESPON-" LOC,11,17:PRNT,"SIBILITY" LOC,18,10:PRNT,"AUTHORITY/DELEGATION" ,KPFA:CHAIN,MP$"CMND.SUB",CV$ 6F+dKPČIPT,Z$:Z$"Q"Z$"q"QF1:3001[ C04$GRP2.SUB -- Unit 2 GraphicsagvAR%(2500)BLD,MP$"GRPH.SCR",AR%(0):PUT,88,16,AR%(0)LOC,2,16:PRNT,"RESULTS"LOC,6,16:PRNT,"ACCOUNT-" LOC,7,17:PRNT,"AကǿÃÏÿÿժժժЪՂժՀ [rՂԂĀՂ     , 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          ߪߪߪߪתתߪߪߪߪߪߪߪߪߪߪߪժЪժߪժժߪժժݪߪժݪߪժݪתժժתժժժժժժժկժժժժկժվժժժվժվժժժվժծժժպժկժժժիժժժժ𿀀ժתժժתժժߪժժߪժԪժߪժԪժߊժߪժߪժߪժӪߪժՂժߪժՂժߪժՂժϪժժՂժǪժժՂժժժՂЪժժժՎЪժժժվԪժЪԪתժտժժժժߞժ iN  C5:PRNT," ":LOC,R5,(W$)1C5:)(W$)1W$"":8070U)W$(W$,(W$)1):8070q) CHECK CARRIAGE RETURN)Z13ī8150)Z32ī8070)8200)W$""ČLOC,R5,C5:8070)) CHECK LENGTH) (W$)L5ČBEEP:8070* PRINT CHARACTER,(LOC,23,5:PRNT,"in your Program Guide."=(A1ANī7700U(LOC,24,1:PRNT,NP$b(IPT,W3$h(n(@(J INPUT ROUTINE(T(YW$""(|LOC,R5,C5(IPT,Z$:Z(Z$)( CHECK BACKSPACE(Z8ī8130(W$""ī8070!)LOC,R5,(W$)1 PTY: Priority codes"K'" H = High"t'" M = Medium"'" L = Low"'(4);"PR#0"'L' NO PRINTER'6800'LOC,22,5:PRNT,"Record the above information"20(W$(RR)));"| ";PT$(RR);" | ";NM$(RR);13(NM$(RR)));"| ";DT$(RR);6(DT$(RR)));"|":RR&4RR10AN:" | ";RR;" | ";W$(RR);20(W$(RR)));"| ";PT$(RR);" | ";NM$(RR);13(NM$(RR)));"| ";DT$(RR);6(DT$(RR)));"|":RR&7);C1$&$'" );"Name";11);"Date"1%PAD,55,"_",C1$:7);C1$C%AN10ī7200%RR1AN:" | ";RR;" | ";W$(RR);20(W$(RR)));"| ";PT$(RR);" | ";NM$(RR);13(NM$(RR)));"| ";DT$(RR);6(DT$(RR)));"|":RR%7300\& RR19:" | ";RR;" | ";W$(RR);30$h2$ CLEAR OUT LINES AT BOTTOM OF SCREEN\$R12124:LOC,R1,1:PRNT,(BL$,40):b$h$X|$b PRINT ROUTINE$lCO(10)1ı$q6800$(4);"PR#1"$:$24);"Your Delegation List"$%9);"#";3);"Activity";13);"PTY";2IPT,KL$:)#1R5NE(CC5)14:C533:L553#66800Q#;LOC,R5,C5:PRNT,(BL$,5)#@LOC,22,5:PRNT,"Enter when you would delegate"#ELOC,23,5:PRNT,"the activity (month/day)."#J8000#KDT$(NE)W$#OHHA1:A1NE#T9500#VA1HH$YNG1ī67 done.""8000 "NM$(NE)W$&"6", EDIT DATEO".(NM$(NE))0ī6705"/LOC,22,1:PRNT,"No date can be entered because activity":LOC,23,1:PRNT,"# "(NE)" has not been delegated to anyone." #0LOC,24,1:PRNT,"Press SPACE BAR to continue":!! EDIT PERSON !6800@!R5NE(CC5)14:C518:L512_!LOC,R5,C5:PRNT,(BL$,12)!LOC,22,1:PRNT,"Enter the first name of the person to"!LOC,23,1:PRNT,"whom you wish to delegate the activity.""LOC,24,5:PRNT,"Press RETURN whenC5:PRNT," "8 LOC,22,5:PRNT,"Enter a new priority."O LOC,R5,C5:IPT,Z$r Z$"H"Z$"M"Z$"L"ī6550| 6570 BEEP:LOC,22,5:PRNT,"Make priority H, M, or L.":X1800:X:LOC,22,5:PRNT,(BL$,40) 6535 PRNT,Z$ PT$(NE)Z$C55:R5NE(CC5)4:L5198 LOC,R5,C5:PRNT,(BL$,L5)B6800pLOC,22,5:PRNT,"Type in a new activity."LOC,23,5:PRNT,"Press RETURN when done."(80002W$(NE)W$<d EDIT PRIORITYn6800xR5NE(CC5)4:C527 }LOC,R5,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 > .! ! 0ЀЀԀՀՀŰفЂЂӂׂ׀׀ÀÀ!TT!LOC,12,7:PRNT,(BL$,33)+40609h EXIT IFFrPRNT,Z$]|PT$((P11)5X)Z$dXjp FORMAT NAME AND DATE BOXANA1ıRR1519:LOC,RR,15:PRNT,(BL$,25):RRN1517:LOC,N,5:PRNT,(BL$,35):N&2:PRNT,(BL$,35):XALOC,15,5:PRNT,"Now type in priorities."XX1AN((P11)5)pLOC,X4,27:IPT,Z$Z$"H"Z$"M"Z$"L"ī40804200: IF STMT FALSE IF STMT TRUEBEEP:LOC,12,7:PRNT,"Make priority H,M, or L ":TT1500: BLANK OUT AC TIVITY f LL1213:LOC,LL,1:PRNT,(BL$,40):LL: BLANK OUT ERR MESSAAGEt W$(AN)""~ 3120H END IFM PRINT CHARACTERR PRNT,Z$:W$(AN)W$(AN)Z$\ 3140 INPUT PRIORITYX1517:LOC,X,5ND IF CHECK LENGTH1 (W$(AN))19ī3260K 3400: IF STMT FALSE^ IF STMT TRUE BEEP:LOC,12,1:PRNT,"Limit activity name to 19 characters." LOC,13,1:PRNT,"Retype from beginning." TT1800:TT! LOC,RW,5:PRNT,(BL$,19): RESET CARRIAGE RETURN FLAG2 CHECK BACKSPACEA Z8ī3220T 3235: END IFi W$(AN)""ī3140 LOC,4X,(W$(AN))15:PRNT," " FF(W$(AN))15:LOC,4X,FF (W$(AN))1W$(AN)"":3140 W$(AN)(W$(AN),(W$(AN))1):3140 E"")(FL)ANAN1:BB1:LOC,RW,2:PRNT," ":pg FLANAN1:LOC,RW,2:PRNT," ":CR2:: 2ND CARRIAGE RETURNl W$(AN)""ī3130q FL1: SET FOR 1ST CARRIAGE RETURNv X{ : BOX ON SCREEN IS FULL IF THIS STMT EXECUTED END IF FL0:! LOC,RW,3& PRNT,(AN)'0 CM5H5 LOC,11,20:PRNT,"AN="(AN)h6 LOC,12,5:PRNT,"P1="(P1)w: LOC,RW,CM? CLRKBDD IPT,Z$:Z(Z$)N CHECK CARRIAGE RETURNX Z13ī3170] 3200: END IFb IF STMT IS TRUE,d (X1)(W$(AN)11: INIT PASS #J LOC,15,5:PRNT,"Type Activities. Press RETURN once" LOC,16,5:PRNT,"after each one and a second time" LOC,17,5:PRNT,"when done with list." X15  RW4X  AN(P11)5X: ACTIVITY NUMBER AN9ČLOC,RW,2:3110again"D-&LOC,23,1:PRNT,"using the format month/day. "a-&LOC,R5,C5:PRNT," "-&LOC,21,1:PRNT,(BL$,40)-&BEEP- &NG1:-H&NG0:EEP. &NG1:.H&NG0: "D.&LOC,R5,C5:PRNT," "b.&LOC,21,1:PRNT,(BL$,40)l.&BEEPw. &NG1:.H&NG0:(MM4MM6MM9MM11)(DD30)ī9740:-&DD31DD1ī9740D-&9800- &LOC,22,1:PRNT," Date entered is invalid. Try again"-&LOC,23,1:PRNT,"using the format month/day. "-&LOC,R5,C5:PRNT," "-&LOC,21,1:PRNT,(BL$,40).&Bor example, December 15 should be"`,%LOC,23,1:PRNT,"entered as 12/15. Try again. "},%LOC,R5,C5:PRNT," ",%NG1:,%RD((DT$(A1),1)),%RD48RD57ī9740,%D$(DT$(A1),(DT$(A1))(M$)1):DD(D$),%MM2DD29ī9740$-%LOC,23,1:PRNT,"should be entered as 12/15. Try again."U+l%LOC,R5,C5:PRNT," "`+v%NG1:+%M$(DT$(A1),NN1):MM(M$)+%MM1MM12ī9680+%BEEP+%6800+%LOC,21,1:PRNT," Month must be in the range 1-12. "",%LOC,22,1:PRNT,"F*& PRNT,Z$:W$W$Z$:8070"*%?*&% CHECK VALIDITY OF DATEE*0%v*:%INSTR,1,DT$(A1),"/",NN%:NNNN%:NN0ī9600*D%BEEP*N%LOC,21,1:PRNT," Month and day should be separated"*X%LOC,22,1:PRNT,"by a /. For example, December 15 "8+b% !,ݻ؁へ읃̓ǂ샀솀𞾇𞻏򎻟؏ρ쏃РРЊĊ"