' +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@ [_ /QSIR4b_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#z#     Ϡ ˠҠɠ;4,21::MD0K0I03:MFLAG(I)ĹVIQ,(L(I)Z):V1IQ,L(I)(L(I)Z)Zk1:I03:REĹ33,18:32,222MFLAG(I)Ģ20:"NOW SAVING ";M$(M(I)):D$SP$M(I)",A"VIQ",L1999":MFLAG(I)03:D$C$:REı41251046FA0:FD0:FM071198M(0):MM(3)K3'71)(MM(3)K37)65:RKıL*69:RWĺD$OD$M+MFLAG(K)1:D$WR$M",B"L(K):R$:BL$:RWĺD$C$,67:70:L(K)L(K)(R$)1:RWı-RE48."ENTER ANOTHER NOTE? ";:T$:T$"Y"Ĺ34,20:MD1::R$"":170:78:12 /3N"75:387170:78:TYPE$"M":RE$"Y"RE$"N"C 75:38T!R01:79:38a"138:61#170:MM(0):DD(0):TD1:105:55$LOOK7:MM(0):DD(0)1:163:DLIMD1:MM1:M12M1%:LM)S$" REMINDERS "S$::141::63:::61&KM(O22)3)17:Z81,0:Z82,0)C20TFF1:F40F0:50,129:21:264:25:\20:1:HF$"A":H(TH$):H11HF$"P":HH12H0H12TH$(H):23)TH$":"TY$" "HF$"M"23)::1:170:RE$""İ7885:TYPE$"A":RE$"Y"RE$"6 MDT(T$):T1T315 T(T$):60,0:61,4:62,255:63,7:66,0:67,112:U:T28,33,31,35,53,34,174,102,188:T$(27)257 14 F0 O(49152):O22078:O155Ĺ49168,0:257O176O186T$(O128):20:15)"":49168,0:((O2)20)((M(2)11)12::167 171w EāI03:20:"LOADING "M$(M(I)):D$RP$M(I)",A"VQI:L(I)(VIQ)Z(V1IQ)::E0 MD0Ģ20:"WHICH (1-9)? ";::" "::19 MD1Ģ5::"ENTRY OPTIONS:"::20:"WHICH (1-3)? ";:(8);:T$:T$:T$(13)İ170:44940850944Z:(I)8(I1)120C(I49408)Z1:CC(I2):263::TF1o :TFM(0)(TM$):D(TD$):D(0)D:11 ::52)NA$52):::"UNABLE TO FIND CLOCK CARD..."::144:M(0)M:D(0)D M(1)M(0)1(M(0)11)12:M(2)M(1)1(M(1)11)12:M(3)M(2)1D$(4):DM$"DATA-MONTH ":OD$"OPEN"DM$:WR$"WRITE"DM$:RD$"READ"DM$:RP$"BLOAD POINTERS-MONTH ":SP$"BSAVE POINTERS-MONTH ":P$(44),AP$(44),M$(12),LOC(32),PR$(44):E1:MG1:YYR:Z256:Q2000E IU38031:A:I,A::I112:M$(I)::I17:WD$(I)::I90504 (213) 329-7544 VOICE (213) 329-3715 MODEM R 27999:G$""^ YR1984 NA$"DESK CALENDAR II"::12:13:NA$:N$",A36000,L1999":P36000:R37999:V30000:C$"CLOSE":S$"***********" I120:BL$BL$" "::U38000:LM1:86 (9# SERIAL #27-051681-1249P y DESK CALENDAR II (C) 1981 BY LEIGHTON PAUL -ALL RIGHTS RESERVED- A  DISTRIBUTED BY: TELEPHONE SOFTWARE CONNECTION P.O. BOX 6548 TORRANCE, CA                 QuS`    :    9 X 9`((((PP 1L   #$(!  $L-Š #% b` ,0`PQuS 0L ,ɛ ɍ X` ;  ”, ɍL<ɛLfӰɌӔ )ɪAS h% ”hh 0LѤ Lƥ 0 L L ] s r $ a ` L 1PhL7*U H he` n 9 X$ ED0b Bb'"# &! b ƴLl0Zȴ  $ ȴ)  $紅D贅E B$ƴ  L7ɛLLРԠĠӠ àҠɠɯנ̨Ĥɯ„L7GLO X b( %0 ( HhH#J    )M$(M);" ";D;"...";(P$(J),(P$(J))3)K!163:DLIMD0:MM1:M12M1g!P$(1)"":J:DD1:KK:r!145:!"WHAT MONTH/DATE? MM/DD";:19:101:G$""ġ::62!M((G$,2)):DA$(G$,2):163:M1M12145"D((DA$,1))10((DA$,1)):D""::X(0):FM0:s 32,0:34,0:33,40::DD(0):MM(0):"SHALL I START WITH TODAY? (Y/N) ";:A$:A$:A$"Y"140~ :145 "HOW MANY DAYS AHEAD SHALL I LOOK? ";:101:LOOKG:FP1:106:FP0:PRİ260&!KK1LOOK:108:J1L1:(P$(J),2)"AY"ĺLMP$(I))8ĺLM)(H$)":"MIN$(P$(I),4,1)"M "(P$(I),(P$(I))8):DC1:LNLN1((P$(I))40)`:MC0::LM)S$" MISC. MEMOS "S$::LNLN3:I1L:186:(P$(I),3,1)"M"ĺLM)(P$(I),(P$(I))3):MC1:LNLN1((P$(I))40) :I031:P$(I)"":AP$(I)AP$(I),4,1)"M "(AP$(I),(AP$(I))8):LNLN1((AP$(I))40)C::LM)S$" CLOCKED MEMOS "S$:LNLN3::DC0:I1L:TI$(P$(I),5,4):H$(TI$,2):MIN$(TI$,2):(P$(I),4,1)"P"H$((H$)12)H$"0"H$"00"H$"12"X186:(P$(I),3,1)"D"(MCM:LMMG5:M$(CM)" "DM" "Y:157:MG1:34,7:LN0:(FA)ıLM)S$" APPOINTMENTS "S$:LNLN2::I2NN1:TI$(AP$(I),5,4):H$(TI$,2):MIN$(TI$,2):(AP$(I),4,1)"P"H$((H$)12)H$"0"H$"00"H$"12";186:(AP$(I))ĺLM)(H$)":"MIN$(FA1xT$"D"FD1&yT$"M"FM1.z:f{J0NN:I0NN:(AP$(I),5,4)(AP$(I1),5,4)125|T$AP$(I):AP$(I)AP$(I1):AP$(I1)T$}::~:PRİ260:(12)::::<DYD:I2844:PR$(I)""::Y(31995KQ)Z(31996KQ):MG11:DDM:OD$M:115:D$C$:JqL1āI1L1:ADRBI64:LOC(I)(ADR)Z(ADR1):IPrsL1āI1L1:D$RD$M",B"LOC(I):101:(G$,1)"A"P$(I)G$tDFĭ(G$,1)"X"P$(I)G$uL2ıvI:wNN0:J0I:T$(P$(J),3,1):T$"A"AP$(NN)P$(J):NNNN1::RK0:MG10:D$OD$M:D$RD$M:Y:D$C$:5:16:M$(M)" "Y::157:MZ0:MG1:61[h170::145iiCMM:DMDj"SEND TO PRINTER? (Y/N) ";:A$:A$:PR0:A$"Y"PR1k34,0::FPılKMM(0):MM(3)K3mK0KK12n71oI0:65p113:D$WD$(I)"="I" ";:::"WHICH? (1-7) ";:A$:A$:WD(A$):WD1WD7ė:98{c:WD$(WD)", CORRECT? ";:A$:A$:A$"Y"ė:98de38006:G$G$"":G(G$):fMZ1:32,0:33,40:34,0::"CHECK WHICH MONTH? (1-12) ";:101:MG:M1M12102KgRK1:38 MAKE":"THE 1ST CHARACTER '*'. ";c[R04):R00::"ENTER THE NOTE"::101:R$G$:G$""ġ::62t\(G$)7090]R00:^60,0:61,112:62,255:63,115:66,0:67,4:U:_90:`CFMMPıaD$OD$M:D$RD$M:101:YG:D$C$:Gb:I17:WET9Ĺ34,0::"DISK FULL!!!"::"IF YOU DESIRE TO KEEP OLD RECORDS, COPY THIS DISK."::"BEFORE MAKING ANY MORE ENTRIES ON THIS DISK, YOU MUST CLEAR SOME OLD MONTHS.";:A$:A$:188XET255ĦY257"ZR0ė:"FOR WEEK-AHEAD REMINDER SERVICE,F$"M <====CURSOR TO HERE";:7:150FT90:RE$"N":TYPE$"D":77:78:XU170::149:VET(222):EL(218)(219)Z:ET6EL13Ĺ32,0:33,40::"SET-UP ROUTINE..."::"INSERT A BLANK DISK IN THE DRIVE USED LAST AND PRESS RETURN...";:A$:A$:252MIN$R$:RE$"N":MNHF$"":H$"":MIN$"":TYPE$"":RE$"":H0:MIN0:TI$"":uO170:C1C7MM(0):DD(0):85:84P263::HF$"A":H(TH$):H11HF$"P":HH12QH0H12RTH$(H):(TH$)1TH$"0"TH$"SM(TM$):D(TD$):"TIME? "TH$":"TY$HL(K)(L(K)Z)Z:<GMM(0)MM(1)MM(2)MM(3)SF1aHSFMFLAG(3)ĺD$SP$M(3)N$:M(3)MISFM(3)M:D$RP$M",A"P:K3:L(3)(P)Z(P1)JSF0:KRE$""RE$"N"L145::32,0:33,40:90:(R$,1)"*"RE$"Y"MR$"A"RE$TYPE$HF$H$ES:":J16:::LM):I140:(95);:I,J::LM20)NA$>@hABVKQD2:L(B)10(B1):L0L1nBC65:LL1:L31ĺ"SORRY-DATE IS FULL!";:A$:A$:47DB,((L100)):B1,(L(L100)100):E65:ADRBL64:FADR,(L(K)Z):ADR1,123 9126:FDİ132';FMİ136_<I032:PR$(I)"":P$(I)"":AP$(I)""::TDTD0:36=D$"PR#0":LM1::"PRESS ";::"RETURN";::" FOR MENU...";:T$:T$>:I144:PR$(I)"":P$(I)"":AP$(I)""::94:33,18:32,22:T0:148?PRĺLM)"NOTCTCT1:(CTA)213"1RE0:1881"STARTING MONTH? (1-12) ";:101:TG:"FOR HOW MANY MONTHS? (1-12) ";:101:AG:T12A12T1A12161 2:I151:A$::A:I1A:P$(I)::RE1A:M((P$(RE),2)):D((P$(RE),3,2)):R$(P$(RE),(P$(RE))4):M1:166:WCWC(WDWK):WCWEWDWKDWD@0WE$"L"WDWKDWD`0D:DDW:38:MM1:M12M1x0CTCT1:(CTA)2060RE0:1880:"WHICH DAY? (1-28) ";:101:DG:D1D282110:268:R$"AYM"G$:RE1:216:MT:CT0038:MM1:M12M11OCCUR ON THE SAME DATE EACH MONTH, OR ON A VARIABLE DATE, SUCH AS THE THIRD MONDAY? (S OR V) ";:A$:A$:A$"S"211/:"WHICH WEEK? (1, 2, 3, 4, OR AST) ";:101:WE$G$:WEG:98:268:R$"AYM"G$:A1:WC0:RE1:216:MT:CT0(0WC0:96:163:D1LI8:268:R$"AYM"G$:216:MT:CT0d.163:MCM:D$OD$M:D$RD$M:Y:D1LIM:166:WDWKRE1:RW1:38{.D:MM1:M12M1.MMCİ48:D$C$.96:CTCT1:(CTA)199.RE0:RW0:188u/:"MONTHLY RECURRING REMINDER ENTRY..."::"DOES THE EVENT ON AND LEFT MARGIN ARE IN LINE 260."::"PLEASE CALL FOR YOUR FREE TUTORIAL, IF YOU HAVE NOT DONE SO ALREADY.";:A$:A$:188-:" EEKLY":" ONTHLY"::"WHICH? ";:A$:A$:A$"W"198-A$"M"204-195 .:"WEEKLY REMINDER ENTRY...":91+,T193,195,228,234,236,238,245,252,62,:"CURRENT YEAR.."::"IF "YR" IS INCORRECT, EDIT LINE #4 AND RESAVE THE PROGRAM."::"CLOCK CARD?"::"SET IT FOR MOUNTAIN COMPUTER OUTPUT."}-:"PRINTER..."::"PRINTER OUTPUT IS SET FOR SLOT #1. TURN DAR (40 COL)"+4:"5..CALENDAR FOR ANY MONTH":4:"6..CHANGE A RECORD":4:"7..CLEAR OLD MONTH, SET UP NEW":4:"8..INITIALIZE & SET UP NEW DISK":4:"9..RETURN TO MAIN MENU":T0:I032:P$(I)"":,17:"WHICH? (1-9) ";:T$:T$:T(T$):T1T919;:A$:A$:LN0*{*T0:34,0:32,0:33,40:::54)"UTILITY MENU"54):::"THE FOLLOWING FEATURES ARE AVAILABLE: " +4:"1..MISC. INFORMATION":4:"2..ENTER RECURRING REMINDERS":4:"3..1-YR PRINTER CALENDAR (80 COL)":4:"4..1-YR PRINTER CALEN3)D$OD$M:D1LIM1:I0:65:113:115:J1L1:KY(SH$):SH1(P$(J))KY1:(P$(J),SH,KY)SH$ĭ(P$(J))4ĺM$(M)" "D"..."(P$(J),((P$(J))3)))SH:P$(1)"":J,D:D$C$:MM1:M12MM12)NUMNUM1:NUM181)61*LN12PRĺ:"MORE..."""62(M1M12175O("FOR HOW MANY MONTHS? ";:101:NUMG:G1G12177](G$""62(163:"SEARCH FOR WHAT KEYWORD? ";:101:SH$G$:(G$)62(34,0::FP1:106:FP0:PRİ260)"SEARCHING "M$(M)" FOR ";::SH$::71:KMM(0):MM(3)K OPTIONS:"::" READ TODAY.....4":" READ A DATE....5":" REMINDERS......6":" KEYWORD SEARCH.7":" CHECK A MONTH..8 "::"UTILITY MENU";::"....9":"........ESC":'32,0:33,40:34,21::23("SEARCH, STARTING MONTH#? (1-12) ";:101:MG:G$"Y:157:MM1:M12M1:YY1'&KL:E&32,0:33,40:34,21:22:K&&33,18:32,22:34,0:::" "NA$3)"COPYRIGHT 1981"3)"BY LEIGHTON PAUL ":::"ENTRY OPTIONS:"::" APPOINTMENTS...1":" CLOCKED MEMOS..2":" MISC. NOTES....3":':"OUTPUT9:%W(M3)(365YD31(M1)((Y1)4)(34(((Y1)100)1)))(M2)(365YD31(M1)(.4M2.3)(Y4)(34((Y100)1))):WKW((W7)7)7:%M((T$,2)):D((T$,4,2)):DYD:CMM:CMM(0):DD(0):DYD:CMM&:KL13:" "M$(M)" 0Ğ:PR$(N);::" ";:162I$(PR$(N))DYMCMĞ:PR$(N);::" ";:162Z$PR$(N);" ";$I::J:N0:I2844:PR$(I)"":I:$LIM32:M4M6M9M11LIM31$M2LIM30:(Y4(Y4)).1LIM29%LIM30Y100(Y100)ĭY400(Y400)LIM2HF$"P"H$((H$)12)F#MIN$((MIN$)):(MIN$)1MIN$"0"MIN$L##D1:166:163:I1WK1:PR$(I)" -"::IWK42:NN1:NLIMI42:159#PR$(I)(N):N10PR$(I)" "PR$(I)$:N0:J16:LMMG1:I17:NN1:MZD(PR$(N)):65:L1DLIM145 "C"22:"WHAT TIME? ":"EXAMPLE: 07:05PM":22:12]"101:(G$)4ġ::62"H$(G):MIN$(G$,(G$)3,2):HF$(G$,(G$)1,1):(H$)1(H$)12(MIN$)0(MIN$)59(HF$"P"HF$"A")149"(H$)1H$"0"H$"H$"12"H$"00"#H$(T$,7,2):TY$(T$,10,2):'A 91: DESK CALENDAR II (C) 1981 BY LEIGHTON PAUL -ALL RIGHTS RESERVED- A  DISTRIBUTED BY: TELEPHONE SOFTWARE CONNECTION P.O. BOX 6548 TORRANCE, CA 105MOTHER'S DAY,L205MEMORIAL DAY,3106FATHER'S DAY,1209LABOR DAY,L511THANKSGIVING|@D$"PR#1":LM12::PRINTER, LEFT MARGIN@READ CLOCK @CC152ĺD$"PR#"C@ D$"IN#";C@ " ";T$:(T$)0266A D$"PR#0":D$"IN#0":TM$(T$,2):TD$(T$,4,2):T,SUN,MON,TUE,WED,THU,FRI,SAT ?10,0101NEW YEAR'S DAY,0212LINCOLN'S BIRTHDAY,0214VALENTINE'S DAY,0317ST. PATRICK'S DAY,0614FLAG DAY,0704INDEPENDENCE DAY,1012COLUMBUS DAY,1031HALLOWEEN,1111VETERAN'S DAY,1225CHRISTMASP@ 6,3202WASHINGTON'S BIRTHDAY,2IM(0)):D$OD$I:D$WR$I:Y1:BL$:D$C$::218:D$"NOMONC,I,O":?34,0:32,0:33,40::"BYE!"::216,160,0,76,44,254,32,111,253,138,160,2,145,105,160,3,169,0,145,105,160,4,169,2,145,105,169,0,76,59,213,213,JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECY/N) ";:T$:T$:T$"Y"188L=:"ARE YOU SURE? ";:T$:T$:T$"Y"188=D$"MONC,I,O":D$"INIT DESK CALENDAR II":IPR:I,0::I112:Y1Y(IM(0)):37995,(Y1Z):37996,Y1(Y1Z)Z:P1,5:Y1:D$SP$I;N$:(37995)Z(37996):?>I112:Y1Y(94:E1:33,18:32,22:13<:"THIS ROUTINE WILL INIT A BLANK DISK, SET UP MONTHLY FILES AND ENTER HOLIDAYS.":"THIS ONE-TIME PROCEDURE TAKES 8 MINUTES."::14:"!!! WARNING !!!":"CONTENTS OF THE DISKETTE WILL BE LOST!!"=:"SHALL I CONTINUE? (" WILL BE "Y1". OK? (Y/N) ";:A$:A$:YY1:A$"N"Ą"YEAR? ";Y;:"NOW CLEARING ";M$(MP):IPR:I,0::R4,(YZ):R3,Y(YZ)Z:P1,5:D$SP$MP;N$:D$"DELETE DATA-MONTH ";MP:D$OD$MP:D$WR$MP:Y:BL$:D$C$:I03:MPM(I)L(I)5;:218:CF0<)"!!! WARNING !!!"::"ALL RECORDS FOR THE CLEARED MONTH WILL BE ERASED."::"WHAT MONTH# SHALL I CLEAR (1-12)";:101:MPG:MP1MP12188:D$OD$MP:D$RD$MP:Y:D$C$::"CLEAR ";M$(MP)" "Y", ARE YOU SURE? ";:A$:A$:A$"Y"188?;:"NEW "M$(MP)OT PRINTED":"2ND (Y)7-DAY REMINDER (N)OT":"3RD (A)PPOINTMENT (M)EMO":"4TH IF APP, (A)M (P)M THEN 24H TIME":2:1:101:(G$)(P$(A))2429P$(A)G$:D$OD$M:D$WR$M",B"LOC(A):P$(A):D$C$:DF0:1889:CF1:10)"CLEAR ENTIRE MONTH"::10J:LN0>8"CHANGE WHICH MESSAGE NO.? ";:101:AG:G$""188Q8A1AL12408::1:P$(A):6:"MSG. IS CHANGED BY RETYPING, DELETED BY PRESSING RETURN."::"CHANGE TO LEADING CODE WILL RECLASSIFY:"::"CHAR# MEANING"9:"1ST (A)CTIVE (X)N:"MONTH? (1-12) ";:101:MG:CMM(0):DYD(0):M1M12236l7::LM12:LMMG5:M$(M)" "Y:157::LM1:617:"CHANGE/DELETE"::144:DF1:71:KMM(0):MM(3)K38D$OD$M:D$RD$M:Y:I0:65:113:115:D$C$:J1L1:J"..."P$(J):PR0:186:LNLN2::PZ17:PT$(S3COL,RW7PZ)" ";:PZ:" ";:COL::RW:::S:::40:NA$:D$"PR#0":6:"WHAT YEAR? ";:101:(G$)1886Y(G$):260:M112:LMMG:" ";M$(M)" "Y:157:G2844:PR$(G)"":G,M:D$"PR#0":188:7:"WHAT YEAR? ";:101:YGM,D)" ":D,M:M0i5MM1:D1:166:163:N0:I1WK1:PT$(M,I)" -":I:IWK42:NN1:NLIMI42:2325PT$(M,I)(N):N10PT$(M,I)" "PT$(M,I)5I:M12230[6S03:3:IS31S33:" "M$(I)" "Y" ";:I::RW05:3:COL13R SUNDAY!":RE1:MFLAG(3)1:K3:SF1:CFEMMPİ227:39H4CFİ227:38S4RE0:p4:17:M$(M)" "D" ";R$:4:"WHAT YEAR? ";:101:YG:(G$)1885"ALLOW 30 SECONDS...":260:(12)::::34)"*** "Y" ***":::PT$(12,44):M112:D142:PT$(D:DDW:CFMMPĢ18:30::"WORKING!"::224s3R$(P$(RE),(P$(RE))4):227:R$"AYM"R$:MFLAG(3)1:K3:SF1:3964RE:RE0:E$"419411403422407330419403326415331419411403416":EM((E$,(Y1980)32,1)):ED((E$,(Y1980)31,2)):DED:MEM:R$"AYMEASTECFMMP22092227:R$"AYM"R$:SF1:MFLAG(3)1:K3:392RE:RE0:A:I1A:P$(I):::RE1A:WC0:M((P$(RE),3,2)):96:163:WE((P$(RE),1)):WD((P$(RE),2,1)):D1LIM1:166:WCWC(WDWK):WCWEWDWKDWD2(P$(RE),1)"L"WDWKDWD-3