' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   LDcpq` [` ~  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õ`  \ 濭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-(q 0ϠϠ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u "(2) MONTHLY"::"(3) SEMI-ANNUALLY"d& :"(4) YEARLY"::"(5) NONE OF THE ABOVE (RETURN TO MENU)"& 17:"ENTER YOUR CHOICE (1-5)";Q$:Q(Q$):Q$""10000& Q1Q53525& Q53005& 3102& 13:868:Q3600,3700,3850,38005'958:"ON WHYOUR CHOICE (1-4) ";T1$:T1(T1$):T11T14Ģ23:3430I%p N3T1T14:%u 3900:(T11D7)(T12D14)T14(M$)D1100(D1100)3000%z M(M$)1:M0M12% T1T1:3900:3000% :5:"DO YOU WISH TO REPEAT THIS MEMO:"$& :"(1) WEEKLY"::T DATE IS NOT AVAILABLE":XQ12000::31401$ ;$H 3102u$R 13:958:"DO YOU WISH TO HAVE THE REMINDER: ":$a "(1) ONE WEEK IN ADVANCE?"::"(2) TWO WEEKS IN ADVANCE?"::"(3) ONE MONTH IN ADVANCE?"::"(4) ON LISTED DATE ONLY?":6%f "ENTER $#x D(D1$):D1DL(M)31905#y 7:24:D;:Q4ı>#z "/"a#{ 15:868:"ENTER YEAR: 19";Y$}#} Y(Y$):Y70Y993195#~ YY1900:7:28:Y# 15:"WANT TO CHANGE IT? (Y OR N)";Q$:Q$"N"Q$""3140+$ DT(Y100)M:DTD1DTD2ė:10:"THA868W"l 15:"ENTER MONTH (1-12)":N13N15Ģ20:" (FOR CURRENT DATE, PRESS RETURN)"m"n 15:19:868:M$"o M$""(N13N15)MCM:DCD:YCY:"p M(M$):M1M123180"q 20:868"r 7:20:M;"/"#v 15:868:"ENTER DAY (1 TO ";L(M);:")";D1T))2)2!Z 768:IN$(IN$,1):ME$IN$:ME$""10000I!\ T8M1$"]":3176s!] 11:A1$(T);":";(DO$,40(A1$(T))1)!` 13:" (PRESS RETURN IF NO 2ND PART TO MEMO)"!b 11:((A1$(T))2)!g 768:IN$(IN$,1):M1$IN$:M1$""M1$"]"!h Q0ı"j 13:958:3122 ? T910000 D :Q1Ģ2:"DATES AVAILABLE: ";D1100(D1100);"/";(D1100);" THRU ";D2100(D2100);"/";(D2100);".":N11N153180 I 20:" YOU MAY USE COMMAS (,) AND COLONS (:)" S 9:A$(T);":";(DO$,40(A$(T))1)!X 9:((A$(....) 0( :"(5) CHECK ON...... (FOR .....) V* :"(6) PAY ..... (FOR .....) , :"(7) DINE WITH ..... (AT .....) . :"(8) OTHER 0 :"(9) NONE - RETURN TO MAIN MENU":2 "ENTER YOUR CHOICE (1 TO 9 ): ";T$ 4 T(T$):T1T9Ģ22: N3100,3400,3500,100006 3102:T10:3900:3000m :::"WHICH TYPE OF MEMO DO YOU WISH TO ADD?  "(1) CALL ..... (ABOUT .....) " :"(2) MEET ..... (AT .....) $ :"(3) GO TO ..... (WITH .....)& :"(4) COLLECT ..... (FROM .5:"DO YOU WISH TO ADD:"5 9:"(1) A DATED MEMO?"Y 11:"(2) A ONE-TIME REMINDER?"} 13:"(3) A PERIODIC REMINDER?" 15:"(4) NONE - RETURN TO MENU" 18:"PLEASE ENTER YOUR CHOICE (1 TO 4): ";N$ N$""10000 N(N$):N4N1308924::T1T1T11:"ESC => MENU, OTHER KEY => NEXT PAGE";:2395lW PR1İ5900::DO$:::D$"PR#0":10000X 5:"PRESS ANY KEY TO RETURN TO MENU";[ :A$:A$(27)10000_ T110000,2020 T10:N0:Q0:C$".":MN0:XQ(0) D$"CLOSE" :2(Q(N)B):23651. N1N4Ģ82(Q(N)B):2365D3 162(Q(N)B)[= N2Ė21:N42380rB T(U)8ĺA$(T(U))D N2Ė21G (ME$(U),19):2386L N6Ė31N A$(T(U));O :21:N6Ė31P (ME$(U),9)R :2390T FL0PR1İ5400@V N:)9((QN6)7))((T1(U))95L(M)QN8))((D(U)N1)(D(U)0N6))ANQl ANQT1(U)0T(U)02386 CC1:C(T13)1M(N)2386 BM(N):T10B0 Q(N)B2Q(N)0:T1:M(N7)1:2390 PR15500$ Q(N)Q(N)1:N3Ė21) N0N3Ģ NQ1L(K)FL323090 FL1FL3:2388J Q1N:KK1:K13K1m 17:39:UM:FL0:FI4:MK:800| FL12388 1:PR1İ5400 U1X1:AD(U):T1(U)102316 T1(U)152315 AQD(U)1:D(U)0AQ6 2316L A0:(((T1(U)ENT PLEASE"::100/KM1:QDDN1:K0K12BQ0KM:2280OQL(K)QqDDNMD1100(D1100)FL1MNKFL12300NM:MK:FI3:800MNDL(M)6MD2100(D2100)FL215:1:868:N06:C0:Q(N)0:M(N7)0T1023902095:9:21:"FRIDAY, ";M$(K);". ";Q`2095:17:21:"SAT. ";Q:2095:17:31:"SUN. ";Q:j*2100/QQ1:QL(K)Q1:KK1:K13K134KM1:QDDN1:K0K12:Q0KM:2110;QL(K)Q>PR12260CT10Ģ15::12:"ONE MOM:Q$:Q$"D"PR1:1000.6Q$"W"PR1:20009610000C659006:::"CALENDAR FOR ";W$(DN);", ";M$(M);". ";D;", ";Y:DO$6D$"PR#0":7126P59006ZME$6dD$"PR#0":715659006:"(";K;") ";A$(T(Z));:T(Z)8ĺ": ";!7ME$(Z):RS"5D$"OPENREMINDERS"25D$"WRITEREMINDERS"85Y5Z0X1:D(Z)0M(Z)043505ME$(Z):M1$(Z):T(Z):T1(Z):D(Z):M(Z)55D$"CLOSEREMINDERS":100006:10:"PRINT MEMOS FOR:"::18:"=> WEEK"::14:"OR"::18:"=> DAY (W OR D)";Z)))10)D46:"ADVANCE NOTICE = ";:A15A9A4A8ĺ"NONE":4280a4;A1A5ĺ"1 WEEK":42804@A2A6ĺ"2 WEEKS":42804EA3A7ĺ"1 MONTH":42804A$:A$(27)43004A$"D"M(Z)0:D(Z)0:XQ144:XQ049995D$"DELETEREMINDEHE ";:M(Z)1ĺ"1ST ";:413973&M(Z)2ĺ"2ND ";:4139R3'M(Z)3ĺ"3RD ";:4139m3(M(Z)4ĺ"4TH ";:4139{3)"LAST ";3+W$(D(Z));" OF THE MONTH":41453,"YEARLY"::"MEMO DATE = ";M$(M(Z));" ";D(Z)41AT1(Z):T1(Z)9T1(Z)15A((T1(Z)(T1()94131Z2"SEMI-ANNUAL":"WITH REMINDERS IN ";M$(M(Z));" AND ";:AM(Z)6:A12AA122M$(A):::"BEGINNING ON THE ";D(Z);" DAY OF THE MONTH":41452#M(Z)0T1(Z)1041402$"MONTHLY":M(Z)0ĺ:"DAY OF THE MONTH = ";D(Z):41453%:"ON T' TO DELETE THIS MEMO":" ANY OTHER KEY TO SEE NEXT MEMO";:11:_1 35,20:Z0X1::8~1A$(T(Z));:T(Z)8ĺ": ";1ME$(Z):M1$(Z)"]"ĺA1$(T(Z));": ";M1$(Z)1:"PERIOD = ";:T1(Z)15ĺ"WEEKLY"::"MEMO DAY = ";W$(D(Z)):4145 2T1(Z$:ME$(X)""4050L0768:IN$(IN$,1):M1$(X)IN$:(M1$(X))221M1$(X)"]"f0T(X),T1(X),D(X),M(X)v0XX1:40500X0Ģ12:"THERE ARE NO PERIODIC REMINDERS IN THE":15:"FILE":A$:10000F1A$:22:"PRESS 'ESC' KEY TO RETURN TO MENU":" 'D(M) /M0:/:5:"THIS ROUTINE WILL DISPLAY ALL OF THE":"PERIODIC REMINDERS IN THE FILE WITH":"DATE, CYCLE, ETC."::"PRESS ANY KEY TO BEGIN."/MN0/XQ0:X0:FI7/D$"OPENREMINDERS"/D$"READREMINDERS"0768:IN$(IN$,1):ME$(X)IN$:A(A$):A1A63860A.5:868:"WHAT IS THE STARTING DAY?".8:"ENTER STARTING DAY (1 TO 30) ";D1$:D(D1$):D1D303866.T19:MA:3900:MA6:3900:MA:3653.<D$"APPEND"M$(M).ZD$"WRITE"M$(M).dME$:M1$:T:T1:D/xD$"CLOSE"M$:D7D03-:5:3410:T1T110:T1T1M9:3756=-3178R-:5:3410:3653- :5:"WHAT IS THE 1ST MONTH FOR THE REMINDER?":12:"(REMINDER WILL AUTOMATICALLY BE ENTERED":"FOR THIS MONTH AND SIX MONTHS LATER.)".8:"ENTER MONTH (1 TO 6) ";A) MONDAY":"(2) TUESDAY":"(3) WEDNESDAY":"(4) THURSDAY OF THE MONTH.":"(5) FRIDAY":"(6) SATURDAY":"(7) SUNDAY":32,0,33,6:32,32:34,3:35,4::M$:M(M$):M1M5ĉ:3781,,33,3:32,2:34,10:35,11::D1$:D(D1$):D1D7ĉ:3784 -:3761+D$"CLOSE"M$(K)::8+35,23:T1(T1):3653+::" (1) FIRST":" (2) SECOND":"THIS MEMO IS FOR THE (3) THIRD"+" (4) FOURTH":" (5) LAST"{,32,5::"(1):D1D313745*3410"*M0*5:14::"PLEASE WAIT"::35,1:K112:XQ0:T1(T1):Q2XT1:T1(T1)X(((T1(T1))10).01)*D$"APPEND"M$(K)*D$"WRITE"M$(K)*ME$:M1$:T:T1:D+XQ0Q2((X5D8)(X6D15)X7)T1T1:XQ1DOES THIS MEMO GO WITH: E):"(1) A SPECIFIC DATE (1-31), OR y):"(2) A VARIABLE DATE (2ND THURSDAY, ETC)?":)"ENTER YOUR CHOICE (1-2) ";X$)X(X$):X1X2Ģ20:3730)X23770*13:958:::"ENTER THE DATE (1-31)";D1$:D(D1$20:3640(?D7D0%(BT115:3756>(ED$"APPENDREMINDERS"V(GD$"WRITEREMINDERS"q(JME$:M1$:T:T1:D:M(LD$"CLOSEREMINDERS"(NQ43000(Q3900:(T15D7)(T16D14)T183000(VT1T1:M(M$)1:M0M12([3900:3000)t958:"ICH DAY OF THE WEEK SHOULD THE":"MEMO BE DISPLAYED?"_'$:"(1) MONDAY (5) FRIDAY"')"(2) TUESDAY (6) SATURDAY'."(3) WEDNESDAY (7) SUNDAY'3"(4) THURSDAY'8:"ENTER YOUR CHOICE (1-7) ";D1$(=D(D1$):D1D7Ģ(IN$,1):ME$(X)IN$:ME$(X)""21420`FS768:IN$(IN$,1):M1$(X)IN$:(M1$(X))221M1$(X)"]"uFST(X),T1(X),D(X)FSXX1:21420FSZ1X1:T1(Z)021480FST1(Z)15D(Z)(DNCD1)((DNCD1)7)7ī21480FST1(Z)1521470GST1(Z)9D(Z)C)L(2)29EzSXCY365&ESXX(CY4)IESCY4(CY4)CY0CM221385SESXX1lESJ0CM1:XXL(J):ESXXCD:Q(X7):DNX7QESFI10:21600ESX1:FI2:FL0:MCM:YCY:D1:1300:DN0DN7ESD$"OPEN"M$(CM)ESD$"READ"M$(CM)%FS768:IN$ A DATE WITHIN THAT RANGE TO":"GET INTO THE CALENDAR PROGRAM, THEN"DkS"PURGE MONTHS TO GET TO THE CURRENT":"MONTH, OR RE-RUN THE 'INIT'":"PROGRAM TO START A FRESH CALENDAR.":DpSXQ(D1100):D1100(D1100)2XQ(D2100) EuSL(2)28:XQ4(XQ4291C\SCD1CDL(CM)CY1979CY100D130021320XCaSCY100CMD1CY100CMD221360CfS:8:"THAT DATE IS BEYOND THE CURRENT RANGE":"OF THE CALENDAR. IF TODAY'S DATE IS NOT":"BETWEEN ";M;"/1/";Y;" AND ";M1;"/";L(M1);"/";Y1;", YOU"DDiS"MUST ENTER((T$,4,2)):BSCY(D1100):CMD1100(D1100)CYCY1EB3S21360zB4S:10:"ENTER TODAY'S DATE IN THE FORM 01/31/80"BHS12:958:CD$:CM((CD$,2)):CD((CD$,4,2)):CY((CD$,2))1900BRSCM0CM12(CD$)8ĺ(7):21320CWSCY4(CY4)L(2):K(16384SL25619):K3K177K236K4421115=AxR21120A{RK(16384SL25621):K248K253K7K104Q(12289):XSLAR:X0Q(12289):SL0:21300ARD$"IN#"XARD$"PR#"XAR23:" ";T$ARD$"PR#0"ASD$"IN#0" B SCM((T$,2)):CDй798,72:799,96)@DRM0:DM:N1M:FIM:I0<@NRD$"OPENDATES"O@SRD$"READDATES"W@XRD1k@]RD$"CLOSEDATES"@_RD1100(D1100)1D2D111:21095@bRD2D199@gRY(D1100):MD1100(D1100):Y1(D2100):M1D2100(D2100)2AlRX0:SL17:Q(12289)..................................."W?&RM$(12),L(12):X112:M$(X)::X112:L(X):r?+RW$(7):X06:W$(X):?-RJ768788:I:J,I:?8R12:10::"ONE MOMENT PLEASE":?:R790,104:791,168:792,104:793,166:794,223:795,154:796,72:797,152@;R0 > N:z>R::D$(4):8:14:"MICRO MEMO":20:" COPYRIGHT (C) 1979 BY BARNEY STONE":" ALL RIGHTS RESERVED">R40000>RQ(6),A$(8),A1$(7),D(200),T1(200),T(200),M(100),ME$(200),M1$(200):X17:A$(X):A1$(X):>RA$(8)""$?RDO$".....4) CHECK REMINDERS?"/=L'16:"(5) PRINT MEMOS"\=V'18:"(6) DELETE MEMOS (PURGE A MONTH)?"}=`'20:"(7) EXIT THE PROGRAM?"=i'22:958:"PLEASE ENTER YOUR CHOICE (1 TO 7): ";N1$=j'N1(N1$):N17N1110089>o'N11000,2000,3000,4000,5000,6000,20001 <#D1<(D$"CLOSEDATES"0<'D$"CLOSE"::S<'Q0::MCM:I0:PR0:DCD:1300<':::9:W$(DN);", ";M$(CM);" ";CD;", ";CY<'6:"DO YOU WISH TO:"<'8:"(1) DISPLAY A DATE?"<$'10:"(2) DISPLAY A WEEK?"<.'12:"(3) ADD MEMOS?"=B'14:"(X1:(T1(Q)9M(Q)MM(Q)0)(T1(Q)9M(Q)MM(Q)6M)6400f;ME$(Q):M1$(Q):T(Q):T1(Q):D(Q)l;;D$"CLOSE"M$(M); D$"OPENDATES";D$"WRITEDATES";M1M1:Y1Y:M113M11:Y1Y1<D1Y1100M1:D2D199:D1100(D1100)1D2D11M113M11:Y1Y1B:M$(M1);" ";Y1;" TO ";:Y1Y11:M11Y1Y11:M$(M);" ";Y1:::"DO YOU WISH TO GO AHEAD (Y OR N)";Q$:(Q$,1)"Y"10000:D$"DELETE"M$(M):8FI9:X1:4030:X16410:D$"OPEN"M$(M):D$"WRITE"M$(M):?;Q1":"USE THIS ROUTINE.":::"PRESS ANY KEY TO RETURN TO MENU.":A$:10000|9z"THE CURRENT STARTING MONTH IS ";M$(M);", ";Y9::"IF YOU PURGE A MONTH NOW, ALL ENTRIES INTHAT MONTH WILL BE LOST. YOUR CALENDAR":"WILL THEN RUN FROM ";:M1M1:Y1Y: 8|5900,8:A$(T(U));:T(U)8ĺ": ";\8ME$(U):M1$(U)"]"ĺA1$(T(U));": ";M1$(U)p8D$"PR#0":23868 :D$"PR#1":8pMD1100(D1100):Y(D1100)I9u:6:CMMĺ"YOU CANNOT PURGE THE CURRENT MONTH.":"PLEASE WAIT UNTIL NEXT MONTH, THENM1$(Z)"]"ĺA1$(T(Z));":";M1$(Z)+71100O75900::DO$:N6ĺW$(0);:5420]7"W$(N1);7,QNL(K)Q1N:KK1:K13K176", ";M$(K);". ";QN7@Z1M:Z2Q:Z3D:MK:DQN:DNN1:DN7DN07E712:NDN1:DZ3:MZ1:QZ2:N0N68JD$"PR#0":);" IS TOO BIG.":"REFER TO INSTRUCTIONS FOR SUGGESTIONS.":"PRESS ANY KEY TO RETURN TO MENU.":A$mO10000100,6300,21800NVER940030NYD$"PR#0"::10:"SORRY, BUT THIS DISK IS NOW FULL.":"YOU WILL NOW HAVE TO PURGE A MONTH IN":"ORDER TO STORE ANY MORE MEMOS.":"PRESS ANY KEY TO RETURN TO THE MENU.":A$:10000bO^ER77ė:10:"THE FILE FOR ";M$(MSDAY,THURSDAY,FRIDAY,SATURDAYlMXu162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,96uM@790MJER(222)MOLI(218)(219)256MQER5LI21080ĺ:D$"RUN INIT"NTER5ĺD$;"CLOSE":FILE1020,21430,2294,2310,1015,110,4100,6NM"L2UD$"WRITEM"L MENU, OTHER KEY => NEXT PAGE";::Q$:(Q$)27Ģ2:1:958:10000Z(Y1900)365:ZZ((Y1900)4):Y4(Y4)ZZ1#Y NUMBER. ENTER A '0' ORPRESS RETURN WITH NO NUMBER TO RETURN TOMENU.)"OgMN0uj10:36:N$:N(N$):N0NK1125lN01150oT1(M(N))15T(M(N))0t1125~D$"DELETE"M$(M)D$"OPEN"M$(M)D$"WRITE"M$(M) K1X1:WILL NEED TO KNOW THE NUMBERS OF THE":"MEMOS YOU WISH TO DELETE. DO YOU NEED TO":"SEE THEM AGAIN? (Y OR N)";:Q$:Q$"N"Q$""K0:1020Fe2:958:10:"WHICH NUMBER DO YOU WISH TO DELETE"::"(ENTER NUMBERS ONE AT A TIME. PRESS":"RETURN AFTER EACH)Z:PR1530083"(";K;") ";A$(T(Z));:T(Z)8ĺ": ";k8ME$(Z):M1$(Z)"]"Ė5:A1$(T(Z));": ";M1$(Z)B:(37)19DNB:1190ILDNB::PR11400V23::"(D=DELETE) (R=RETURN TO MENU) WHICH?";Q$::Q$"D"10000`2:958:10:"YOU Z:1300:DT1:ZA-TD(Z):D(Z)0DN0T7RT1((T1(Z))10)7:DNTT1T17xAT1TDN1:AL(M)T1T17:1047AD(ADCDD)1100CDDĞ1070$D(Z)D1100)D(Z)DCDDCMMĞ+D(Z)D(CDDCMM)1100.KK1:M(KR0Ģ8::6:"PLEASE WAIT - LOADING FILE":9FI1:800VPR1Ģ8:958:(2Q)3dX11110Z1X1:BDN:(T1(Z)0D(Z)D)T1(Z)01100T1(Z)01070T1(Z)15D(Z)DN1100T1(Z)151070 T1(Z)(T1(Z))1060T1D:D1:AN"M$(M)4D$"READ"M$(M)(9FI4MUX>768:IN$(IN$,1):ME$(X)IN$:ME$(X)""830@768:IN$(IN$,1):M1$(X)IN$:(M1$(X))221M1$(X)"]"BT(X),T1(X),D(X)HXX1:X2001200R830XQ(0)::3140:1300:700K0:MNM1020+PME$:ME$"END"ı% T1(0),T(0),D(0)[ T(0)M(T1(0)0D(0)D)(T1(0)0D(0)DN)715s T1(0)0D(0)D780 (T1(0)5(D(T1(0)1)7DT1(0)7))(T1(0)5(L(M)D7))715 PR15200 QQ1::ME$:715 X1:MNM:Z0:D(0)0*D$"OPE2:A3Ė21% A1A4Ģ10:A4Ė21H A2A4Ģ18:A4Ė21:A6Ė31Y A5A6145g ME$:160 (ME$,8);"-":21:A6Ė31 (ME$,(ME$)8) : PR15100 ::3:"CALENDAR FOR ";W$(DN);", ";M$(M);". ";D;", ";Y: :Q0 3K1 nME$:ME$"END"160? wT1(0),T(0),D(0):T(0)K110Z x(T1(0)0D(0)Q)110v yT1(0)0D(0)0A6130 {(T1(0)0D(0)A1)110 }T1(0)0D(0)Q135 (T1(0)5(Q(T1(0)1)7QT1(0)7))(T1(0)5(L(M)Q7))110 M(A)M(A)1:ATHER'S DAY,3,6,0,HALLOWEEN,0,10,31,NEW YEAR'S EVE,0,12,31 1ST DAY OF SPRING,0,3,20,1ST DAY OF AUTUMN,0,9,23,1ST DAY OF WINTER,0,12,22,END IN$"X" X$:X$"END"30 21000 dQQ1:A06:M(A)0: jQQ1:QL(K)110 kQ1:KK1:K1R,0,6,21,MEMORIAL DAY,5,5,1,INDEPENDENCE DAY,0,7,4,LABOR DAY,1,9,1,COLUMBUS DAY,2,10,1,VETERAN'S DAY,4,10,1: ELECTION DAY,1,11,2,THANKSGIVING,4,11,4,CHRISTMAS,0,12,25,VALENTINES'S DAY,0,2,14,ST. PATRICK'S DAY,0,3,17,ARBOR DAY,5,4,5,MOTHER'S DAY,2,5,0,FnG*** COPYRIGHT (C) 19796*** BY BARNEY STONES*** ALL RIGHTS RESERVEDp*** STONEWARE, BOX 7218*** BERKELEY, CA. 94707 REV3.3 11/07/80k NEW YEAR'S DAY,0,1,1,LINCOLN'S BIRTHDAY,0,2,12,WASHINGTON'S B'DAY,3,2,1,1ST DAY OF SUMME                          JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,REMINDERS 34,0:936:10:" NOW ENTERING MAIN PROGRAM"::" PLEASE STAND BY" "" D$;"RUN MICRO MEMO"TEDATES" (D1Y100M 2D14 <D$;"CLOSEDATES"C FD$"OPENM"S PD$"WRITEM"Z UMj ZD$"CLOSEM"z dX113:M$ iD$"OPEN"M$ nD$"DELETE"M$ xD$"OPEN"M$ }D$"WRITE"M$  D$"CLOSE" D$"APPEND JAN" D$"CLOSE"; STARTING MONTH (1-12) ";M$:M(M$):M1M128} 16:868:"ENTER STARTING YEAR (E.G. 1980) ";Y$:Y(Y$):Y1900Y21009 :10:" INITIALIZING DISKETTE CALENDAR FILES"::" PLEASE STAND BY" 34,20 D$;"OPENDATES" #D$;"WRI D$(4)p:7:"YOUR CALENDAR WILL HOLD A FULL YEAR,":"BEGINNING WITH WHICHEVER MONTH YOU WISH.":"AS YOU CLEAR OUT (PURGE) OLD MONTHS,":"NEW MONTHS WILL BE SET UP SO THAT":"YOU ALWAYS HAVE 12 MONTHS AVAILABLE."/ 16:"ENTER YOUR    HHH LMȑ ȑ   L-8L Đ驍   mnnnn  hhhL FREE SECTORS REMAIN WHICH IS ABOUT K OR SO ٍȧӍ * * PRESS ANY KEY TO CONTINUE * * *";:Q$3 n:8 x"MICRO MEMO HAS ALSO BEEN IMPROVED SO":"THAT COMMAS AND COLONS MAY NOW BE USED" "IN YOUR REMINDERS." :"ENJOY YOUR NEW PROGRAM!"::" - BARNEY STONE, STONEWARE" 23:Q:"ALWAYS BOOT FROM THIS DISK BEFORE":"MAKING BACK-UP COPIES OF MICRO MEMO." P:"THEN BOOT FROM THIS DISK OR A COPY MADE":"FROM THIS DISK WHEN RUNNING MICRO MEMO. Z:"HOPEFULLY, APPLE'S NEXT RELEASE OF DOS":"WILL SOLVE THIS PROBLEM."* d::"* ::39 "THE DOS ON THIS DISK HAS BEEN MODIFIEDg"TO AVOID A BUG IN DOS 3.2 & 3.2.1 WHICH"AFFECTS THE 'APPEND' COMMAND.(:"THE 'RENAME' AND 'NOMON' COMMANDS HAVE2"BEEN REMOVED TO MAKE ROOM FOR THE NEW<"MODIFICATION.M F    !