' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] Ġmٵ޴ʈL7 鷎귭෍ᷩ췩緈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- ( Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ ϶L (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`(Xb(AV:FN:10008:100219c(:"SECOND DATE: ";F$;W;A$;UNd(:" ";X;" DAYS"Yi(Q(X)n(Q(Q1)365.25:B(Q):Q(QB)365.2530.4:C(Q):Q(QC)30.47s(D(Q.4)t(D4CC1:D0x(:" ";B;" YEARS, ";C;" MONTHS; ";D;" WEEKS"}(0:10224h: ";V'"Year: ";U*'U100UU1900] (HR:GS:IT:10004:H1900KK1:H1800KK1p(JK:10002:MF<(HU:GV:IW:10004:XKJ:10002:NF^(:"PRINTER? (Y/N) ";P$_(P$"Y"Ċ1`(AS:FM:10008:10021a(:"FIRST DATE: ";F$;T;A$;RF:103342':::"DAYS, WEEKS, MONTHS, & YEARS"N':"TIME BETWEEN DATES"T'o'"START DATE, Day: ";T'"Month: ";S'"Year: ";R'R100RR1900''"NUMBER of DAYS ";X'X010060''"SECOND DATE, Day: ";W'"MontT. NOV. DEC."%('A$(MM$,A51,5):5L'HR:GS:IT\V'10004:H1900KK1:H1800KK1u`'EK:EXE:10002:MFj'HR:G1:I0t'HH1:10004~'EK10100'HH1'GG1:10004'EK10130'GG1:10004:UH:VG'WEK:KE:10002:N(Z)):Z((Z))Q:.'3GKH1:LG13:10006<'LG1:KHV'Z365.25K:10003:YZ{'Z30.6L:10003:KYZI621049:'DD$"SUN, MON, TUE, WED, THUR FRI, SAT, "'F$(DD$,F51,5): %'MM$"????? JAN. FEB. MAR. APR. MAY JUN. JUL. AUG. SEP. OC-RAM12310,2320,2330,2340,2350,2360,2370C ::1);J;:2040U 7);J;:2040h 13);J;:2040{$ 19);J;:2040. 25);J;:20408 31);J;:2040B 37);J:2040' RED/08APR82/PRO-7'10210'F(((K7)(K7).01)7):'Q(;W$ 9>W$"Y"ė:230$H50QRAM12210,2220,2230,2240,2250,2260,2270c5);J;:2040v10);J;:204015);J;:204020);J;:204025);J;:204030);J;:204035);J:40);"___________________________________":20401810,1850,1890,1930,1970,2010/2);J;:2040A6);J;:2040T:10);J;:2040gb14);J;:2040z18);J;:204022);J;:204026);JJ I%X122100)(30)*(12):04::" ANOTHER, SAME FORMAT? (Y/N): "JI91720TI41720(^I617207hI111720IrBASE101680X|J282040b1730qJ292040{1730J3120401730J302040RAM1RAM11RAM181760RAM11X11765,1765,1765,2200,2300RAM11770,------------------------"L1);"Sun Mon Tues Wend Thur Fri Sat"1);"---------------------------------------"J131J281730I11700I31700I51700"I71700,I817006I101700@I121700 50 1(27);(84).I5I9ĺ(12)4T5);(31);MO$;" ";Y1;(30)5);"---------------------------------"5);"Sun Mon Tue Wnd Thu Fri Sat"X1515201(31)I1ĺ(12)1);"---------------380!`I10MO$"OCTOBER":1380@jI11MO$"NOVEMBER":1380YtI12MO$"DECEMBER"ndX14X15ī1420{eX13Ċ1gX13I7ĺ(12)i2);MO$;" - ";Y1n2);"--------------------------"x2);"SU MO TU WN TH FR SA"X1414MO$" "'I1MO$"JANUARY":1380EI2MO$"FEBRUARY":1380`I3MO$"MARCH":1380{$I4MO$"APRIL":1380.I5MO$"MAY":13808I6MO$"JUNE":1380BI7MO$"JULY":1380LI8MO$"AUGUST":1380VI9MO$"SEPTEMBER":11810 DAY1DAY12840) DAY159*DAY1DAY11I4LZF90840S>LZF1cHDAY18860sRDAY1DAY17\RAM1DAY1fpIY1900zIRAM1RAM11RAM10950RAM17I112  lBASE10 v900 DAY17( LZF01 670B IBEGYINDYP LZFLZF1` LZF90810o LZF4770y LZF0  LZF=0 means LY  LZF=1 means LY+1  LZF=2 means LY+2  LZF=3 means LY+3  LZF=99 means Common CenturyLZF BASE11 900 DAY14* LZF99O  LZF=99 means Common Century YRX 670f BEGY1901t INDY1999 Y11900550 RAM12 BASE11 900 &DAY12 0LZF99 :670 DBEGY2001 NINDY2099 XY12000640 bRAM17 BASE1Y1LY1& , BASE1=0 (LeapYear); 6 BASE1=1 (LY+1)P @ BASE1=2 (LY+2)e J BASE1=3 (LY+3) T 1800 & 1900 NOT LY's ^Y11900390 hY12000490 rY12100580 | ************ BEGY1801 INDY1899 Y11800450 RAM14e for LY+2/6 (FRI)6 1983 is Base for LY+3/7 (SAT)c 01/01/80 Fell on TUE, 3rd day oof week "DESIRED CALENDAR YEAR (4 digits): ";Y1 Y1100Y1Y11900 Y102110 Y11800230 Y12099230 YRDIV4(Y14) LY1YRDIV44 "eets)"! ?2);"9. DISK CATALOG"I A:5);"MAKE SELECTION BY NUMBER &"g C5:"Press : ";X1x EX11ī10000 FX19ĺ(4);"CATALOG": d:: CALENDAR 1980 is Base for LY/3 (TUE) 1981 is Base for LY+1/5 (THUr) 1982 is Bas%2::2:8::"CALENDAR MENU":I44:2);"1. TIME BETWEEN DATES"m62);"2. CALENDAR, Screen only"72);"3. PRINT CALENDAR in 2 pages"82);"4. PRINT CALENDAR in 3 pages"92);"5. PRINT CALENDAR in 12 pages" :6);"(For Graphic sh            (Xb(AV:FN:10008:100219c(:"SECOND DATE: ";F$;W;A$;UNd(:" ";X;" DAYS"Yi(Q(X)n(Q(Q1)365.25:B(Q):Q(QB)365.2530.4:C(Q):Q(QC)30.47s(D(Q.4)t(D4CC1:D0x(:" ";B;" YEARS, ";C;" MONTHS; ";D;" WEEKS"}(0:10224h: ";V'"Year: ";U*'U100UU1900] (HR:GS:IT:10004:H1900KK1:H1800KK1p(JK:10002:MF<(HU:GV:IW:10004:XKJ:10002:NF^(:"PRINTER? (Y/N) ";P$_(P$"Y"Ċ1`(AS:FM:10008:10021a(:"FIRST DATE: ";F$;T;A$;RF:103342':::"DAYS, WEEKS, MONTHS, & YEARS"N':"TIME BETWEEN DATES"T'o'"START DATE, Day: ";T'"Month: ";S'"Year: ";R'R100RR1900''"NUMBER of DAYS ";X'X010060''"SECOND DATE, Day: ";W'"MontT. NOV. DEC."%('A$(MM$,A51,5):5L'HR:GS:IT\V'10004:H1900KK1:H1800KK1u`'EK:EXE:10002:MFj'HR:G1:I0t'HH1:10004~'EK10100'HH1'GG1:10004'EK10130'GG1:10004:UH:VG'WEK:KE:10002:N(Z)):Z((Z))Q:.'3GKH1:LG13:10006<'LG1:KHV'Z365.25K:10003:YZ{'Z30.6L:10003:KYZI621049:'DD$"SUN, MON, TUE, WED, THUR FRI, SAT, "'F$(DD$,F51,5): %'MM$"????? JAN. FEB. MAR. APR. MAY JUN. JUL. AUG. SEP. OC-RAM12310,2320,2330,2340,2350,2360,2370C ::1);J;:2040U 7);J;:2040h 13);J;:2040{$ 19);J;:2040. 25);J;:20408 31);J;:2040B 37);J:2040' RED/08APR82/PRO-7'10210'F(((K7)(K7).01)7):'Q(;W$ 9>W$"Y"ė:230$H50QRAM12210,2220,2230,2240,2250,2260,2270c5);J;:2040v10);J;:204015);J;:204020);J;:204025);J;:204030);J;:204035);J:40);"___________________________________":20401810,1850,1890,1930,1970,2010/2);J;:2040A6);J;:2040T:10);J;:2040gb14);J;:2040z18);J;:204022);J;:204026);JJ I%X122100)(30)*(12):04::" ANOTHER, SAME FORMAT? (Y/N): "JI91720TI41720(^I617207hI111720IrBASE101680X|J282040b1730qJ292040{1730J3120401730J302040RAM1RAM11RAM181760RAM11X11765,1765,1765,2200,2300RAM11770,------------------------"L1);"Sun Mon Tues Wend Thur Fri Sat"1);"---------------------------------------"J131J281730I11700I31700I51700"I71700,I817006I101700@I121700 50 1(27);(84).I5I9ĺ(12)4T5);(31);MO$;" ";Y1;(30)5);"---------------------------------"5);"Sun Mon Tue Wnd Thu Fri Sat"X1515201(31)I1ĺ(12)1);"---------------380!`I10MO$"OCTOBER":1380@jI11MO$"NOVEMBER":1380YtI12MO$"DECEMBER"ndX14X15ī1420{eX13Ċ1gX13I7ĺ(12)i2);MO$;" - ";Y1n2);"--------------------------"x2);"SU MO TU WN TH FR SA"X1414MO$" "'I1MO$"JANUARY":1380EI2MO$"FEBRUARY":1380`I3MO$"MARCH":1380{$I4MO$"APRIL":1380.I5MO$"MAY":13808I6MO$"JUNE":1380BI7MO$"JULY":1380LI8MO$"AUGUST":1380VI9MO$"SEPTEMBER":11810 DAY1DAY12840) DAY159*DAY1DAY11I4LZF90840S>LZF1cHDAY18860sRDAY1DAY17\RAM1DAY1fpIY1900zIRAM1RAM11RAM10950RAM17I112  lBASE10 v900 DAY17( LZF01 670B IBEGYINDYP LZFLZF1` LZF90810o LZF4770y LZF0  LZF=0 means LY  LZF=1 means LY+1  LZF=2 means LY+2  LZF=3 means LY+3  LZF=99 means Common CenturyLZF BASE11 900 DAY14* LZF99O  LZF=99 means Common Century YRX 670f BEGY1901t INDY1999 Y11900550 RAM12 BASE11 900 &DAY12 0LZF99 :670 DBEGY2001 NINDY2099 XY12000640 bRAM17 BASE1Y1LY1& , BASE1=0 (LeapYear); 6 BASE1=1 (LY+1)P @ BASE1=2 (LY+2)e J BASE1=3 (LY+3) T 1800 & 1900 NOT LY's ^Y11900390 hY12000490 rY12100580 | ************ BEGY1801 INDY1899 Y11800450 RAM14e for LY+2/6 (FRI)6 1983 is Base for LY+3/7 (SAT)c 01/01/80 Fell on TUE, 3rd day oof week "DESIRED CALENDAR YEAR (4 digits): ";Y1 Y1100Y1Y11900 Y102110 Y11800230 Y12099230 YRDIV4(Y14) LY1YRDIV44 "eets)"! ?2);"9. DISK CATALOG"I A:5);"MAKE SELECTION BY NUMBER &"g C5:"Press : ";X1x EX11ī10000 FX19ĺ(4);"CATALOG": d:: CALENDAR 1980 is Base for LY/3 (TUE) 1981 is Base for LY+1/5 (THUr) 1982 is Bas%2::2:8::"CALENDAR MENU":I44:2);"1. TIME BETWEEN DATES"m62);"2. CALENDAR, Screen only"72);"3. PRINT CALENDAR in 2 pages"82);"4. PRINT CALENDAR in 3 pages"92);"5. PRINT CALENDAR in 12 pages" :6);"(For Graphic sh         ((b(AV:FN:10008:100219c(:"SECOND DATE: ";F$;W;A$;UNd(:" ";X;" DAYS"Yi(Q(X)n(Q(Q1)365.25:B(Q):Q(QB)365.2530.4:C(Q):Q(QC)30.47s(D(Q.4)t(D4CC1:D0x(:" ";B;" YEARS, ";C;" MONTHS; ";D;" WEEKS"}(0:10224h: ";V'"Year: ";U*'U100UU1900] (HR:GS:IT:10004:H1900KK1:H1800KK1p(JK:10002:MF<(HU:GV:IW:10004:XKJ:10002:NF^(:"PRINTER? (Y/N) ";P$_(P$"Y"Ċ1`(AS:FM:10008:10021a(:"FIRST DATE: ";F$;T;A$;RF:103342':::"DAYS, WEEKS, MONTHS, & YEARS"N':"TIME BETWEEN DATES"T'o'"START DATE, Day: ";T'"Month: ";S'"Year: ";R'R100RR1900''"NUMBER of DAYS ";X'X010060''"SECOND DATE, Day: ";W'"MontT. NOV. DEC."%('A$(MM$,A51,5):5L'HR:GS:IT\V'10004:H1900KK1:H1800KK1u`'EK:EXE:10002:MFj'HR:G1:I0t'HH1:10004~'EK10100'HH1'GG1:10004'EK10130'GG1:10004:UH:VG'WEK:KE:10002:N(Z)):Z((Z))Q:.'3GKH1:LG13:10006<'LG1:KHV'Z365.25K:10003:YZ{'Z30.6L:10003:KYZI621049:'DD$"SUN, MON, TUE, WED, THUR FRI, SAT, "'F$(DD$,F51,5): %'MM$"????? JAN. FEB. MAR. APR. MAY JUN. JUL. AUG. SEP. OCz #?     !ϠҠҲ ҠҠ"ɠҠ ɠҠ$d"THIS UTILITIES DISK STARTED">n:" on 21 OCT. 85"`x:" by: 'RED' DeGROAT"qI13000:I(4);"RUN CALENDAR"d:414501(27)"E"7I5I9ĺ(27);(12)=f5);(27)"W1";MO$;" ";Y1;(27)"W0"5);"---------------------------------"5);"Sun Mon Tue Wnd Thu Fri Sat"X1515201(27)"E";(27)"W1"I1ĺ(27);380!`I10MO$"OCTOBER":1380@jI11MO$"NOVEMBER":1380YtI12MO$"DECEMBER"ndX14X15ī1420{eX13Ċ1gX13I7ĺ(27);(12)i2);MO$;" - ";Y1n2);"--------------------------"x2);"SU MO TU WN TH FR SA"X1MO$" "'I1MO$"JANUARY":1380EI2MO$"FEBRUARY":1380`I3MO$"MARCH":1380{$I4MO$"APRIL":1380.I5MO$"MAY":13808I6MO$"JUNE":1380BI7MO$"JULY":1380LI8MO$"AUGUST":1380VI9MO$"SEPTEMBER":11810 DAY1DAY12840) DAY159*DAY1DAY11I4LZF90840S>LZF1cHDAY18860sRDAY1DAY17\RAM1DAY1fpIY1900zIRAM1RAM11RAM10950RAM17I112  lBASE10 v900 DAY17( LZF01 670B IBEGYINDYP LZFLZF1` LZF90810o LZF4770y LZF0  LZF=0 means LY  LZF=1 means LY+1  LZF=2 means LY+2  LZF=3 means LY+3  LZF=99 means Common CenturyLZF BASE11 900 DAY14* LZF99O  LZF=99 means Common Century YRX 670f BEGY1901t INDY1999 Y11900550 RAM12 BASE11 900 &DAY12 0LZF99 :670 DBEGY2001 NINDY2099 XY12000640 bRAM17 BASE1Y1LY1& , BASE1=0 (LeapYear); 6 BASE1=1 (LY+1)P @ BASE1=2 (LY+2)e J BASE1=3 (LY+3) T 1800 & 1900 NOT LY's ^Y11900390 hY12000490 rY12100580 | ************ BEGY1801 INDY1899 Y11800450 RAM14e for LY+2/6 (FRI)6 1983 is Base for LY+3/7 (SAT)c 01/01/80 Fell on TUE, 3rd day oof week "DESIRED CALENDAR YEAR (4 digits): ";Y1 Y1100Y1Y11900 Y102110 Y11800230 Y12099230 YRDIV4(Y14) LY1YRDIV44 "eets)"! ?2);"9. DISK CATALOG"I A:5);"MAKE SELECTION BY NUMBER &"g C5:"Press : ";X1x EX11ī10000 FX19ĺ(4);"CATALOG": d:: CALENDAR 1980 is Base for LY/3 (TUE) 1981 is Base for LY+1/5 (THUr) 1982 is Bas2%2::2:8::"CALENDAR MENU":I44:2);"1. TIME BETWEEN DATES"m62);"2. CALENDAR, Screen only"72);"3. PRINT CALENDAR in 2 pages"82);"4. PRINT CALENDAR in 3 pages"92);"5. PRINT CALENDAR in 12 pages" :6);"(For Graphic sh      (12) >1);"---------------------------------------"q1);"Sun Mon Tues Wend Thur Fri Sat"1);"---------------------------------------"J131J281730I11700I31700I51700"I71700,I817006I101700#@I1217001JI91720?TI41720M^I61720\hI111720nrBASE101680}|J2820401730J2920401730J3120401730J302040RAM1RAM11RAM181760RAM11X11760);"___________________________________":2040[RAM12310,2320,2330,2340,2350,2360,2370q ::1);J;:2040 7);J;:2040 13);J;:2040$ 19);J;:2040. 25);J;:20408 31);J;:2040B 37);J:2040' RED/08APR82/PRO-7'1:014::" ANOTHER, SAME FORMAT? (Y/N): ";W$79J>W$"Y"ė:230RH50RAM12210,2220,2230,2240,2250,2260,22705);J;:204010);J;:204015);J;:204020);J;:204025);J;:204030);J;:2040.35);J:45,1765,1765,2200,2300BRAM11770,1810,1850,1890,1930,1970,2010T2);J;:2040f6);J;:2040y:10);J;:2040b14);J;:204018);J;:204022);J;:204026);JJ I%X122100)(27)"F"*(27);(12)0210$'F(((K7)(K7).01)7):?'Q((Z)):Z((Z))Q:\'3GKH1:LG13:10006j'LG1:KH'Z365.25K:10003:YZ'Z30.6L:10003:KYZI621049:'DD$"SUN, MON, TUE, WED, THUR FRI, SAT, "'F$(DD$,F51,5):;%'MM$"????? JAN. FEB. MAR. APR. MAY JUN. JUL. AUG. SEP. OCT. NOV. DEC."S('A$(MM$,A51,5):cL'HR:GS:ITV'10004:H1900KK1:H1800KK1`'EK:EXE:10002:MFj'HR:G1:I0t'HH1:10004~'EK10100'HH1'GG1:10004'EK10130'GG1:10004:UH:VG6'WEK:KE:10002:NF:10334`':::"DAYS, WEEKS, MONTHS, & YEARS"|':"TIME BETWEEN DATES"''"START DATE, Day: ";T'"Month: ";S'"Year: ";R'R100RR1900''"NUMBER of DAYS ";X'X010060'#'"SECOND DATE, Day: ";W4'"Month: ";VD'"Year: ";UX'U100UU1900 (HR:GS:IT:10004:H1900KK1:H1800KK1(JK:10002:MF<(HU:GV:IW:10004:XKJ:10002:NF^(:"PRINTER? (Y/N) ";P$_(P$"Y"Ċ1 `(AS:FM:1S, ";C;" MONTHS; ";D;" WEEKS"+}(0:102241(X0008:10021,a(:"FIRST DATE: ";F$;T;A$;RFb(AV:FN:10008:10021gc(:"SECOND DATE: ";F$;W;A$;U|d(:" ";X;" DAYS"i(Q(X)n(Q(Q1)365.25:B(Q):Q(QB)365.2530.4:C(Q):Q(QC)30.47s(D(Q.4)t(D4CC1:D0x(:" ";B;" YEAR;:20409);J;:2040,:13);J;:2040?b17);J;:2040R21);J;:2040e25);J;:2040q29);JxJ~ I%X$"Y"2100*04230> 1720TI41720!^I617200hI111720BrBASE101680Q|J282040[1730jJ292040t1730J3120401730J302040RAM1RAM11RAM181760RAM11RAM11770,1810,1850,1890,1930,1970,20105);J KZ5,Z);MO$;" ";Y1RZ);"--------------------------"xZ);"SU MO TU WN TH FR SA"J131J281730I11700I31700I51700"I71700,I817006I101700@I121700JI98I6MO$"JUNE":13802BI7MO$"JULY":1380NLI8MO$"AUGUST":1380mVI9MO$"SEPTEMBER":1380`I10MO$"OCTOBER":1380jI11MO$"NOVEMBER":1380tI12MO$"DECEMBER"dX$"Y"14701I71470K16 RAM1RAM11 RAM10950) RAM17/ I "PRINTER (Y/N): ";X$O U a I112g t MO$" " I1MO$"JANUARY":1380 I2MO$"FEBRUARY":1380 I3MO$"MARCH":1380 $I4MO$"APRIL":1380 .I5MO$"MAY":1380 LZF=2 means LY+2)  LZF=3 means LY+3K  LZF=99 means Common Century[ LZF1810k DAY1DAY12t 840 DAY15 *DAY1DAY11 4LZF90840 >LZF1 HDAY18860 RDAY1DAY17 \RAM1DAY1 f pIY1900 zI  DAY12 0LZF99 :670) DBEGY20017 NINDY2099I XY12000640T bRAM17` lBASE10i v900t DAY17~ LZF0 670 IBEGYINDY LZFLZF1 LZF90810 LZF4770 LZF0  LZF=0 means LY  LZF=1 means LY+1 2100580 | ************* BEGY18018 INDY1899J Y11800450U RAM14a BASE11j 900u DAY14 LZF99  LZF=99 means Common Century YR 670 BEGY1901 INDY1999 Y11900550 RAM12 BASE11 900 &Y102110 Y11800230. Y12099230A YRDIV4(Y14)R LY1YRDIV44c "BASE1Y1LY1| , BASE1=0 (LeapYear) 6 BASE1=1 (LY+1) @ BASE1=2 (LY+2) J BASE1=3 (LY+3) T 1800 & 1900 NOT LY's ^Y11900390 hY12000490 rY1 d:: CALENDAR6 1980 is Base for LY/3 (TUE)[ 1981 is Base for LY+1/5 (THUr) 1982 is Base for LY+2/6 (FRI) 1983 is Base for LY+3/7 (SAT) 01/01/80 Fell on TUE, 3rd day oof week"DESIRED CALENDAR YEAR (4 digits): ";Y1      _________________":2040ERAM12310,2320,2330,2340,2350,2360,2370[ ::1);J;:2040m 7);J;:2040 13);J;:2040$ 19);J;:2040. 25);J;:20408 31);J;:2040B 37);J:2040' RED/08APR82/PRO-7'10210'F(((K7)(R, SAME FORMAT? (Y/N): ";W$!94>W$"Y"ė:230<H50iRAM12210,2220,2230,2240,2250,2260,2270{5);J;:204010);J;:204015);J;:204020);J;:204025);J;:204030);J;:204035);J:40);"__________________00/RAM11770,1810,1850,1890,1930,1970,2010A2);J;:2040S6);J;:2040f:10);J;:2040yb14);J;:204018);J;:204022);J;:204026);JJ I%X122100)(30)*(27);(12):04::" ANOTHE0@I121700JI91720,TI41720:^I61720IhI111720[rBASE101680j|J282040t1730J2920401730J3120401730J302040RAM1RAM11RAM181760RAM11X11765,1765,1765,2200,23);"---------------------------------------"^1);"Sun Mon Tues Wend Thur Fri Sat"1);"---------------------------------------"J131J281730I11700I31700I51700"I71700,I817006I10170414501 (27);(84):I5I9ĺ(27);(12)@`5);(31);MO$;" ";Y1;(30)5);"---------------------------------"5);"Sun Mon Tue Wnd Thu Fri Sat"X1515201(31)I1ĺ(27);(12)+1380!`I10MO$"OCTOBER":1380@jI11MO$"NOVEMBER":1380YtI12MO$"DECEMBER"ndX14X15ī1420{eX13Ċ1gX13I7ĺ(27);(12)i2);MO$;" - ";Y1n2);"--------------------------"x2);"SU MO TU WN TH FR SA"X1MO$" "'I1MO$"JANUARY":1380EI2MO$"FEBRUARY":1380`I3MO$"MARCH":1380{$I4MO$"APRIL":1380.I5MO$"MAY":13808I6MO$"JUNE":1380BI7MO$"JULY":1380LI8MO$"AUGUST":1380VI9MO$"SEPTEMBER":11810 DAY1DAY12840) DAY159*DAY1DAY11I4LZF90840S>LZF1cHDAY18860sRDAY1DAY17\RAM1DAY1fpIY1900zIRAM1RAM11RAM10950RAM17I112  lBASE10 v900 DAY17( LZF01 670B IBEGYINDYP LZFLZF1` LZF90810o LZF4770y LZF0  LZF=0 means LY  LZF=1 means LY+1  LZF=2 means LY+2  LZF=3 means LY+3  LZF=99 means Common CenturyLZF BASE11 900 DAY14* LZF99O  LZF=99 means Common Century YRX 670f BEGY1901t INDY1999 Y11900550 RAM12 BASE11 900 &DAY12 0LZF99 :670 DBEGY2001 NINDY2099 XY12000640 bRAM17 BASE1Y1LY1& , BASE1=0 (LeapYear); 6 BASE1=1 (LY+1)P @ BASE1=2 (LY+2)e J BASE1=3 (LY+3) T 1800 & 1900 NOT LY's ^Y11900390 hY12000490 rY12100580 | ************ BEGY1801 INDY1899 Y11800450 RAM14e for LY+2/6 (FRI)6 1983 is Base for LY+3/7 (SAT)c 01/01/80 Fell on TUE, 3rd day oof week "DESIRED CALENDAR YEAR (4 digits): ";Y1 Y1100Y1Y11900 Y102110 Y11800230 Y12099230 YRDIV4(Y14) LY1YRDIV44 "eets)"! ?2);"9. DISK CATALOG"I A:5);"MAKE SELECTION BY NUMBER &"g C5:"Press : ";X1x EX11ī10000 FX19ĺ(4);"CATALOG": d:: CALENDAR 1980 is Base for LY/3 (TUE) 1981 is Base for LY+1/5 (THUr) 1982 is Bas%2::2:8::"CALENDAR MENU":I44:2);"1. TIME BETWEEN DATES"m62);"2. CALENDAR, Screen only"72);"3. PRINT CALENDAR in 2 pages"82);"4. PRINT CALENDAR in 3 pages"92);"5. PRINT CALENDAR in 12 pages" :6);"(For Graphic sh         WEEKS"}(0:10224(RST DATE: ";F$;T;A$;R0b(AV:FN:10008:10021Qc(:"SECOND DATE: ";F$;W;A$;Ufd(:" ";X;" DAYS"qi(Q(X)n(Q(Q1)365.25:B(Q):Q(QB)365.2530.4:C(Q):Q(QC)30.47s(D(Q.4)t(D4CC1:D0x(:" ";B;" YEARS, ";C;" MONTHS; ";D;"ATE, Day: ";W'"Month: ";V.'"Year: ";UB'U100UU1900u (HR:GS:IT:10004:H1900KK1:H1800KK1(JK:10002:MF<(HU:GV:IW:10004:XKJ:10002:NF^(:"PRINTER? (Y/N) ";P$_(P$"Y"Ċ1`(AS:FM:10008:10021a(:"FI 'WEK:KE:10002:NF:10334J':::"DAYS, WEEKS, MONTHS, & YEARS"f':"TIME BETWEEN DATES"l''"START DATE, Day: ";T'"Month: ";S'"Year: ";R'R100RR1900''"NUMBER of DAYS ";X'X010060' '"SECOND D JUN. JUL. AUG. SEP. OCT. NOV. DEC."=('A$(MM$,A51,5):ML'HR:GS:ITtV'10004:H1900KK1:H1800KK1`'EK:EXE:10002:MFj'HR:G1:I0t'HH1:10004~'EK10100'HH1'GG1:10004'EK10130'GG1:10004:UH:VGK7).01)7):)'Q((Z)):Z((Z))Q:F'3GKH1:LG13:10006T'LG1:KHn'Z365.25K:10003:YZ'Z30.6L:10003:KYZI621049:'DD$"SUN, MON, TUE, WED, THUR FRI, SAT, "'F$(DD$,F51,5):%%'MM$"????? JAN. FEB. MAR. APR. MAYER DO YOU HAVE?" 4 10);"1) EPSON MX,FX,LX": W 10);"2) OKIDATA 92/93"^ Pq P1έP2ī140 P1ĺ(4);"RUN CALENDAR" P2ĺ(4);"RUN CALENDAR FOR OKIDATA"dr3d:"****************************************"ln:"CALENDAR PROGRAM BY RED DEGROAT":" 21 OCT 1985"rsx"MODIFIED TO USE OKIDATA PRINTER":"BY LYNN NICHOLSON, 4 DEC 1985":"****************************************" :"WHICH PRINT ER DO YOU HAVE?" 4 10);"1) EPSON MX,FX,LX": W 10);"2) OKIDATA 92/93"^ Pt P1140:P2140 P1ĺ(4);"RUN CALENDAR" P2ĺ(4);"RUN CALENDAR FOR OKIDATA"d@3d:"****************************************"ln:"CALENDAR PROGRAM BY RED DEGROAT":" 21 OCT 1985"rsx"MODIFIED TO USE OKIDATA PRINTER":"BY LYNN NICHOLSON, 4 DEC 1985":"****************************************" :"WHICH PRINT  ER DO YOU HAVE?" 4 10);"1) EPSON MX,FX,LX": W 10);"2) OKIDATA 92/93"^ Pk P1140x P2140 P1ĺ(4);"RUN CALENDAR" P2ĺ(4);"RUN CALENDAR FOR OKIDATA"d3d:"****************************************"ln:"CALENDAR PROGRAM BY RED DEGROAT":" 21 OCT 1985"rsx"MODIFIED TO USE OKIDATA PRINTER":"BY LYNN NICHOLSON, 4 DEC 1985":"****************************************" :"WHICH PRINT!! -RAM12310,2320,2330,2340,2350,2360,2370C ::1);J;:2040U 7);J;:2040h 13);J;:2040{$ 19);J;:2040. 25);J;:20408 31);J;:2040B 37);J:2040' RED/08APR82/PRO-7'10210'F(((K7)(K7).01)7):'Q(;W$ 9>W$"Y"ė:230$H50QRAM12210,2220,2230,2240,2250,2260,2270c5);J;:2040v10);J;:204015);J;:204020);J;:204025);J;:204030);J;:204035);J:40);"___________________________________":20401810,1850,1890,1930,1970,2010/2);J;:2040A6);J;:2040T:10);J;:2040gb14);J;:2040z18);J;:204022);J;:204026);JJ I%X122100)(30)*(12):04::" ANOTHER, SAME FORMAT? (Y/N): "JI91720TI41720(^I617207hI111720IrBASE101680X|J282040b1730qJ292040{1730J3120401730J302040RAM1RAM11RAM181760RAM11X11765,1765,1765,2200,2300RAM11770,------------------------"L1);"Sun Mon Tues Wend Thur Fri Sat"1);"---------------------------------------"J131J281730I11700I31700I51700"I71700,I817006I101700@I121700 50 1(27);(84).I5I9ĺ(12)4T5);(31);MO$;" ";Y1;(30)5);"---------------------------------"5);"Sun Mon Tue Wnd Thu Fri Sat"X1515201(31)I1ĺ(12)1);"---------------380!`I10MO$"OCTOBER":1380@jI11MO$"NOVEMBER":1380YtI12MO$"DECEMBER"ndX14X15ī1420{eX13Ċ1gX13I7ĺ(12)i2);MO$;" - ";Y1n2);"--------------------------"x2);"SU MO TU WN TH FR SA"X1414MO$" "'I1MO$"JANUARY":1380EI2MO$"FEBRUARY":1380`I3MO$"MARCH":1380{$I4MO$"APRIL":1380.I5MO$"MAY":13808I6MO$"JUNE":1380BI7MO$"JULY":1380LI8MO$"AUGUST":1380VI9MO$"SEPTEMBER":11810 DAY1DAY12840) DAY159*DAY1DAY11I4LZF90840S>LZF1cHDAY18860sRDAY1DAY17\RAM1DAY1fpIY1900zIRAM1RAM11RAM10950RAM17I112  lBASE10 v900 DAY17( LZF01 670B IBEGYINDYP LZFLZF1` LZF90810o LZF4770y LZF0  LZF=0 means LY  LZF=1 means LY+1  LZF=2 means LY+2  LZF=3 means LY+3  LZF=99 means Common CenturyLZF BASE11 900 DAY14* LZF99O  LZF=99 means Common Century YRX 670f BEGY1901t INDY1999 Y11900550 RAM12 BASE11 900 &DAY12 0LZF99 :670 DBEGY2001 NINDY2099 XY12000640 bRAM17 BASE1Y1LY1& , BASE1=0 (LeapYear); 6 BASE1=1 (LY+1)P @ BASE1=2 (LY+2)e J BASE1=3 (LY+3) T 1800 & 1900 NOT LY's ^Y11900390 hY12000490 rY12100580 | ************ BEGY1801 INDY1899 Y11800450 RAM14e for LY+2/6 (FRI)6 1983 is Base for LY+3/7 (SAT)c 01/01/80 Fell on TUE, 3rd day oof week "DESIRED CALENDAR YEAR (4 digits): ";Y1 Y1100Y1Y11900 Y102110 Y11800230 Y12099230 YRDIV4(Y14) LY1YRDIV44 "eets)"! ?2);"9. DISK CATALOG"I A:5);"MAKE SELECTION BY NUMBER &"g C5:"Press : ";X1x EX11ī10000 FX19ĺ(4);"CATALOG": d:: CALENDAR 1980 is Base for LY/3 (TUE) 1981 is Base for LY+1/5 (THUr) 1982 is Bas%2::2:8::"CALENDAR MENU":I44:2);"1. TIME BETWEEN DATES"m62);"2. CALENDAR, Screen only"72);"3. PRINT CALENDAR in 2 pages"82);"4. PRINT CALENDAR in 3 pages"92);"5. PRINT CALENDAR in 12 pages" :6);"(For Graphic sh"" " " " " """""""""