CALENDR

Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape06a_acorn_eu_1989_december.wav » CALENDR

CALENDR

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape06a_acorn_eu_1989_december.wav
Filename:	CALENDR
Read OK:	✔
File size:	186E bytes
Load address:	2000
Exec address:	1900

Duplicates

There are 2 duplicate copies of this file in the archive:

AEW website » database » database_5_25_discs_Electron-User-7-03_D-E703.ssd » CALENDR
AEW website » database » database_tapes_Electron-User-7-03_EU7-3_E.uef » CALENDR
Personal collection » Acorn tapes » Electron_User » Electron_User_tape06a_acorn_eu_1989_december.wav » CALENDR

File contents

   10REM Multi Calendar
   20REM By Roger Starkie
   30REM (c) Electron User
   40REM
   50ON ERROR VDU23,1,1,0;0;0;:REPORT:PRINT" at line ";ERL:END
   60MODE6
   70VDU23,1,0;0;0;0;
   80DIM SU%(6,12),MO%(6,12),TU%(6,12),WE%(6,12),TH%(6,12),FR%(6,12),SA%(6,12),P(12),C(8),D$(8)
   90CLS
  100PRINT''''"             Multi Calendar"''"            By Roger Starkie"
  110PRINT''"Enter the year."  
  120INPUTY
  130A=5
  140IF Y<1987 THEN 120
  150CLS::VDU23,1,0;0;0;0;  
  160PRINT''''"             Multi Calendar"''"            By Roger Starkie"
  170PRINT'''"             WAIT A MINUTE"  
  180IF Y>1987 PROCm
  190DIM Da$(7)   
  200IF Y MOD 4=0 AND FNexeption=0 LY=1 ELSE LY=0  
  210DATA S,M,T,W,T,F,S
  220FOR I=1 TO 7:READ Da$(I):NEXT
  230D%=1:M%=1:W%=1:D2%=1:D3%=A
  240DIM MONTH%(12)   
  250DATA 31,28,31,30,31,30,31,31,30,31,30,31   
  260FOR I=1 TO 12:READ MONTH%(I):NEXT:IF LY MONTH%(2)=29  
  270REPEAT
  280ON D3% GOTO290,300,310,320,330,340,350
  290SU%(W%,M%)=D2%:GOTO 360
  300MO%(W%,M%)=D2%:GOTO 360
  310TU%(W%,M%)=D2%:GOTO 360
  320WE%(W%,M%)=D2%:GOTO 360
  330TH%(W%,M%)=D2%:GOTO 360
  340FR%(W%,M%)=D2%:GOTO 360
  350SA%(W%,M%)=D2%:GOTO 360
  360D2%=D2%+1:D3%=D3%+1
  370IF D2%>MONTH%(M%) D2%=1:M%=M%+1:W%=1
  380IF D3%>7 W%=W%+1:D3%=1
  390UNTIL M%=13:VDU19,1,1;0; 
  400PRINTTAB(0,11);SPC(40):PRINTTAB(0,23)"        Press SPACE for the menu"
  410REPEATUNTILGET=32:MODE6:PROCmenu
  420VDU23,1,0;0;0;0;
  430IF B=2 THEN RUN
  440IF B=3 PROCday:GOTO400 
  450IF B=4 PROCprint:GOTO400
  460IF B=1 INPUT'"Enter month "M 
  470IF M<1 OR M>12 THEN 460
  480DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
  490RESTORE480:FOR I=1 TO M:READ M$:NEXT
  500M$=M$+" "+STR$(Y)
  510MODE6:PRINTTAB(20-LEN M$/2,5);M$
  520PRINTTAB(10,8)"S  M  T  W  T  F  S"
  530FOR I=1 TO 7:FORJ=1 TO 6
  540ON I GOTO 550,570,590,610,630,650,670
  550IF SU%(J,M)>0 PRINTTAB(10,10+2*J);SU%(J,M):GOTO690 
  560PRINTTAB(10,10+2*J);"-":GOTO690
  570IF MO%(J,M)>0PRINTTAB(13,10+2*J);MO%(J,M):GOTO690
  580PRINTTAB(13,10+2*J);"-":GOTO690
  590IF TU%(J,M)>0 PRINTTAB(16,10+2*J);TU%(J,M):GOTO690
  600PRINTTAB(16,10+2*J);"-":GOTO690
  610IF WE%(J,M)>0 PRINTTAB(19,10+2*J);WE%(J,M):GOTO690     
  620PRINTTAB(19,10+2*J);"-":GOTO690
  630IF TH%(J,M)>0 PRINTTAB(22,10+2*J);TH%(J,M):GOTO690   
  640PRINTTAB(22,10+2*J);"-":GOTO690 
  650IF FR%(J,M)>0 PRINTTAB(25,10+2*J);FR%(J,M):GOTO690 
  660PRINTTAB(25,10+2*J);"-":GOTO690 
  670IF SA%(J,M)>0 PRINTTAB(28,10+2*J);SA%(J,M):GOTO690 
  680PRINTTAB(28,10+2*J);"-":GOTO690 
  690NEXT,
  700PRINT'':GOTO400 
  710DEF PROCm
  720FOR I=1988 TO Y   
  730IF ((I-1) MOD 4>0 OR (I-1) MOD 4=0 AND FNexeption=1) AND A<7 A=A+1:GOTO780
  740 IF ((I-1) MOD 4>0 OR (I-1) MOD 4=0 AND FNexeption=1) AND A=7 A=1:GOTO780    
  750IF (I-1) MOD 4=0 AND A<6 A=A+2:GOTO780
  760IF (I-1) MOD 4=0 AND A=7 A=2:GOTO780 
  770IF (I-1) MOD 4=0 AND A=6 A=1
  780NEXT:ENDPROC  
  790DEF PROCmenu
  800PRINT''"          Multi Calendar Menu."''
  810PRINT'"1)  Enter a month in ";Y;" to see"
  820PRINT'"2)  Start a new year."
  830PRINT'"3)  Dates on one day."
  840PRINT'"4)  Print out the ";Y;" calendar"
  850B=GET-48
  860IF B<1 OR B>4 THEN 850 
  870ENDPROC
  880DEF PROCday
  890INPUT''"Day? 1=Sun .... 7=Sat.  "D 
  900CLS
  910DATA SUNDAYS,MONDAYS,TUESDAYS,WEDNESDAYS,THURSDAYS,FRIDAYS,SATURDAYS
  920RESTORE 910
  930FOR Z=1 TO D:READ F$:NEXT:P$="THE "+F$+" IN "+STR$(Y)+".":PRINTTAB(20-LEN(P$)/2,4);P$     
  940PRINTTAB(0,7);"   J  F  M  A  M  J  J  A  S  O  N  D"       
  950FOR P=1 TO 12:P(P)=10:NEXT  
  960FOR W=1 TO 6:FOR M=1 TO 12   
  970PRINTTAB(M*3,P(M));:P(M)=P(M)+2
  980ON D GOTO 990,1010,1030,1050,1070,1090,1110
  990Q$=STR$ SU%(W,M):IF Q$="0" Q$="" 
 1000PRINT Q$:GOTO1130
 1010Q$=STR$ MO%(W,M):IF Q$="0" Q$=" "
 1020PRINT Q$:GOTO1130
 1030Q$=STR$ TU%(W,M):IF Q$="0" Q$=" "
 1040PRINT Q$:GOTO1130
 1050Q$=STR$ WE%(W,M):IF Q$="0" Q$=" "
 1060PRINT Q$:GOTO1130
 1070Q$=STR$ TH%(W,M):IF Q$="0" Q$=" "
 1080PRINT Q$:GOTO1130
 1090Q$=STR$ FR%(W,M):IF Q$="0" Q$=" "
 1100PRINT Q$:GOTO1130
 1110Q$=STR$ SA%(W,M):IF Q$="0" Q$=" "
 1120PRINT Q$:GOTO1130
 1130IF Q$=" " P(M)=P(M)-2
 1140NEXT,
 1150ENDPROC
 1170DEF PROCprint
 1180FORi=1 TO 8:D$(i)="":NEXT  
 1190PRINT''"Automatic?":A$=GET$:IF A$="Y" PROCauto ELSE auto%=0
 1200A%=10:X%=&70:Y$=STR$(Y):FOR ZZZ=1 TO 4:ZZZ$=MID$(Y$,ZZZ,1):B=ASC ZZZ$
 1210A$=CHR$(B)
 1220IF A$="0" A$="O"
 1230IF B=48 B=ASC"O"
 1240?X%=B 
 1250Y%=0
 1260CALL &FFF1
 1270FOR I=1 TO 8   
 1280C(I)=X%?I 
 1290NEXT
 1300FOR I=1 TO 8
 1310D=C(I)
 1320IF D<128 THEN D$(I)=D$(I)+" ":GOTO1350
 1330C=D-128:D=C
 1340D$(I)=D$(I)+A$
 1350IF D<64 THEN D$(I)=D$(I)+" ":GOTO1380
 1360C=D-64:D=C
 1370D$(I)=D$(I)+A$
 1380IF D<32 THEN D$(I)=D$(I)+" ":GOTO1410
 1390C=D-32:D=C
 1400D$(I)=D$(I)+A$
 1410IF D<16 THEN D$(I)=D$(I)+" ":GOTO1440 
 1420C=D-16:D=C 
 1430D$(I)=D$(I)+A$
 1440IF D<8 THEN D$(I)=D$(I)+" ":GOTO1470  
 1450C=D-8:D=C 
 1460D$(I)=D$(I)+A$
 1470IF D<4 THEN D$(I)=D$(I)+" ":GOTO1500
 1480C=D-4:D=C  
 1490D$(I)=D$(I)+A$
 1500IF D<2 THEN D$(I)=D$(I)+" ":GOTO1530  
 1510C=D-2:D=C 
 1520D$(I)=D$(I)+A$
 1530IF D<1 THEN D$(I)=D$(I)+" ":GOTO1560  
 1540C=D-1:D=C
 1550D$(I)=D$(I)+A$
 1560D$=D$+"  ":NEXT,  
 1570IF auto%=1 PROCauto_print ELSE PROCman_print
 1580ENDPROC
 1590DEF PROCheading:VDU2,1,27,1,33,1,24:FORI=1 TO 8 
 1600PRINTSPC(20);D$(I) 
 1610NEXT
 1620ENDPROC
 1630DEF PROCcalendar
 1640VDU2,1,27,1,33,1,0
 1650PRINT'''SPC(1);STRING$(76,"*") 
 1660PRINTSPC(1);"*         JANUARY        *       FEBRUARY         *          MARCH         *"  
 1670PRINTSPC(1);STRING$(76,"*") 
 1680PRINT" *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *"  
 1690PROCp(1,3):GOTO1890
 1700DEF PROCp(QQQ,PPP)
 1710PRINT" *";  
 1720FORW=1 TO 6:PRINT"  ";:FOR M=QQQ TO PPP     
 1730IF SU%(W,M)=0 PRINT"- ";
 1740IF SU%(W,M)>0 T$=STR$(SU%(W,M)):PRINT;T$;:IF LEN T$=1 PRINT"  "; ELSE PRINT" ";
 1750IF MO%(W,M)=0 PRINT"- ";
 1760IF MO%(W,M)>0 T$=STR$(MO%(W,M)):PRINTT$;:IF LEN T$=1 PRINT"  "; ELSE PRINT" ";
 1770IF TU%(W,M)=0 PRINT"- ";
 1780IF TU%(W,M)>0 T$=STR$(TU%(W,M)):PRINTT$;:IF LEN T$=1 PRINT"  "; ELSE PRINT" ";
 1790IF WE%(W,M)=0 PRINT"- ";
 1800IF WE%(W,M)>0 T$=STR$(WE%(W,M)):PRINTT$;:IF LEN T$=1 PRINT"  "; ELSE PRINT" ";
 1810IF TH%(W,M)=0 PRINT"- ";
 1820IF TH%(W,M)>0 T$=STR$(TH%(W,M)):PRINTT$;:IF LEN T$=1 PRINT"  "; ELSE PRINT" ";
 1830IF FR%(W,M)=0 PRINT"- ";
 1840IF FR%(W,M)>0 T$=STR$(FR%(W,M)):PRINTT$;:IF LEN T$=1 PRINT"  "; ELSE PRINT" ";
 1850IF SA%(W,M)=0 PRINT"-   *  ";:GOTO1870 
 1860IF SA%(W,M)>0 T$=STR$(SA%(W,M)):PRINTT$;:IF LEN T$=1 PRINT"   *  "; ELSE PRINT"  *  ";  
 1870NEXT:PRINT'SPC(1)"*";:NEXT 
 1880ENDPROC
 1890PRINTSTRING$(75,"*") 
 1900PRINTSPC(1)"*           APRIL        *        MAY             *         JUNE           *"  
 1910PRINTSPC(1);STRING$(76,"*")  
 1920PRINTSPC(1);"*  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *"   
 1930PROCp(4,6)
 1940PRINTSTRING$(75,"*")
 1950PRINTSPC(1)"*           JULY         *       AUGUST           *        SEPTEMBER       *"  
 1960PRINTSPC(1)STRING$(76,"*") 
 1970PRINTSPC(1);"*  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *"
 1980PROCp(7,9)
 1990PRINTSTRING$(75,"*")   
 2000PRINTSPC(1)"*         OCTOBER        *      NOVEMBER          *        DECEMBER        *"   
 2010PRINTSPC(1)STRING$(76,"*") 
 2020PRINTSPC(1);"*  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *"     
 2030PROCp(10,12) 
 2040PRINTSTRING$(75,"*")  
 2050VDU3:ENDPROC
 2060DEF FNexeption
 2070IF Y MOD 100>0 THEN =0
 2080IF Y MOD 400=0 THEN =0
 2090=1
 2100DEF PROCauto
 2110auto%=1
 2120INPUT"How many copies",copies%
 2130ENDPROC
 2140DEF PROCauto_print
 2150FOR cc%=1 TO copies%
 2160PROCheading:PROCcalendar
 2170VDU2
 2180VDU1,12:NEXT
 2190VDU3
 2200ENDPROC
 2210DEF PROCman_print
 2220REPEAT
 2230PRINT"Position printer correctly, then SPACE":REPEATUNTILGET
 2240PROCheading:PROCcalendar
 2250VDU2,1,12,3
 2260PRINT''"Another?":A$=GET$
 2270ENDPROC


� Multi Calendar
� By Roger Starkie
� (c) Electron User
(�
2)� � �23,1,1,0;0;0;:�:�" at line ";�:�
<�6
F�23,1,0;0;0;0;
P\� SU%(6,12),MO%(6,12),TU%(6,12),WE%(6,12),TH%(6,12),FR%(6,12),SA%(6,12),P(12),C(8),D$(8)
Z�
dF�''''"             Multi Calendar"''"            By Roger Starkie"
n�''"Enter the year."  
x�Y
�A=5
�� Y<1987 � �Dx@
��::�23,1,0;0;0;0;  
�F�''''"             Multi Calendar"''"            By Roger Starkie"
�&�'''"             WAIT A MINUTE"  
�� Y>1987 �m
�� Da$(7)   
�)� Y � 4=0 � �exeption=0 LY=1 � LY=0  
�� S,M,T,W,T,F,S
�� I=1 � 7:� Da$(I):�
�D%=1:M%=1:W%=1:D2%=1:D3%=A
�� MONTH%(12)   
�,� 31,28,31,30,31,30,31,31,30,31,30,31   
0� I=1 � 12:� MONTH%(I):�:� LY MONTH%(2)=29  
�
-� D3% �TbA,�TlA,�TvA,�D@A,�DJA,�DTA,�D^A
"SU%(W%,M%)=D2%:� �DhA
,MO%(W%,M%)=D2%:� �DhA
6TU%(W%,M%)=D2%:� �DhA
@WE%(W%,M%)=D2%:� �DhA
JTH%(W%,M%)=D2%:� �DhA
TFR%(W%,M%)=D2%:� �DhA
^SA%(W%,M%)=D2%:� �DhA
hD2%=D2%+1:D3%=D3%+1
r'� D2%>MONTH%(M%) D2%=1:M%=M%+1:W%=1
|� D3%>7 W%=W%+1:D3%=1
�� M%=13:�19,1,1;0; 
�;�0,11);�(40):�0,23)"        Press SPACE for the menu"
����=32:�6:�menu
��23,1,0;0;0;0;
�
� B=2 � �
�� B=3 �day:�tPA 
�� B=4 �print:�tPA
�� B=1 �'"Enter month "M 
�� M<1 � M>12 � �dLA
�[� JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
���d`A:� I=1 � M:� M$:�
�M$=M$+" "+�(Y)
��6:�20-� M$/2,5);M$
 �10,8)"S  M  T  W  T  F  S"
� I=1 � 7:�J=1 � 6
,� I � �TfB,�TzB,�DNB,�DbB,�DvB,�tJB,�t^B
&-� SU%(J,M)>0 �10,10+2*J);SU%(J,M):�trB 
0�10,10+2*J);"-":�trB
:+� MO%(J,M)>0�13,10+2*J);MO%(J,M):�trB
D�13,10+2*J);"-":�trB
N,� TU%(J,M)>0 �16,10+2*J);TU%(J,M):�trB
X�16,10+2*J);"-":�trB
b1� WE%(J,M)>0 �19,10+2*J);WE%(J,M):�trB     
l�19,10+2*J);"-":�trB
v/� TH%(J,M)>0 �22,10+2*J);TH%(J,M):�trB   
��22,10+2*J);"-":�trB 
�-� FR%(J,M)>0 �25,10+2*J);FR%(J,M):�trB 
��25,10+2*J);"-":�trB 
�-� SA%(J,M)>0 �28,10+2*J);SA%(J,M):�trB 
��28,10+2*J);"-":�trB 
��,
��'':�tPA 
�� �m
�� I=1988 � Y   
�A� ((I-1) � 4>0 � (I-1) � 4=0 � �exeption=1) � A<7 A=A+1:�TLC
�D � ((I-1) � 4>0 � (I-1) � 4=0 � �exeption=1) � A=7 A=1:�TLC    
�#� (I-1) � 4=0 � A<6 A=A+2:�TLC
�"� (I-1) � 4=0 � A=7 A=2:�TLC 
� (I-1) � 4=0 � A=6 A=1
	�:�  
� �menu
 )�''"          Multi Calendar Menu."''
*)�'"1)  Enter a month in ";Y;" to see"
4�'"2)  Start a new year."
>�'"3)  Dates on one day."
H(�'"4)  Print out the ";Y;" calendar"
R
B=�-48
\� B<1 � B>4 � �DRC 
f�
p
� �day
z#�''"Day? 1=Sun .... 7=Sat.  "D 
��
�E� SUNDAYS,MONDAYS,TUESDAYS,WEDNESDAYS,THURSDAYS,FRIDAYS,SATURDAYS
�
� �tNC
�I� Z=1 � D:� F$:�:P$="THE "+F$+" IN "+�(Y)+".":�20-�(P$)/2,4);P$     
�9�0,7);"   J  F  M  A  M  J  J  A  S  O  N  D"       
�� P=1 � 12:P(P)=10:�  
�� W=1 � 6:� M=1 � 12   
��M*3,P(M));:P(M)=P(M)+2
�,� D � �d^C,�drC,�TFD,�TZD,�TnD,�DBD,�DVD
�!Q$=� SU%(W,M):� Q$="0" Q$="" 
�� Q$:�DjD
�!Q$=� MO%(W,M):� Q$="0" Q$=" "
�� Q$:�DjD
!Q$=� TU%(W,M):� Q$="0" Q$=" "
� Q$:�DjD
!Q$=� WE%(W,M):� Q$="0" Q$=" "
$� Q$:�DjD
.!Q$=� TH%(W,M):� Q$="0" Q$=" "
8� Q$:�DjD
B!Q$=� FR%(W,M):� Q$="0" Q$=" "
L� Q$:�DjD
V!Q$=� SA%(W,M):� Q$="0" Q$=" "
`� Q$:�DjD
j� Q$=" " P(M)=P(M)-2
t�,
~�
�� �print
��i=1 � 8:D$(i)="":�  
�1�''"Automatic?":A$=�:� A$="Y" �auto � auto%=0
�=A%=10:X%=&70:Y$=�(Y):� ZZZ=1 � 4:ZZZ$=�Y$,ZZZ,1):B=� ZZZ$
�A$=�(B)
�� A$="0" A$="O"
�� B=48 B=�"O"
�
?X%=B 
�Y%=0
�� &FFF1
�� I=1 � 8   
C(I)=X%?I 

�

� I=1 � 8

D=C(I)
(#� D<128 � D$(I)=D$(I)+" ":�DFE
2C=D-128:D=C
<D$(I)=D$(I)+A$
F"� D<64 � D$(I)=D$(I)+" ":�DdE
PC=D-64:D=C
ZD$(I)=D$(I)+A$
d"� D<32 � D$(I)=D$(I)+" ":�tBE
nC=D-32:D=C
xD$(I)=D$(I)+A$
�#� D<16 � D$(I)=D$(I)+" ":�t`E 
�C=D-16:D=C 
�D$(I)=D$(I)+A$
�#� D<8 � D$(I)=D$(I)+" ":�t~E  
�C=D-8:D=C 
�D$(I)=D$(I)+A$
�!� D<4 � D$(I)=D$(I)+" ":�d\E
�C=D-4:D=C  
�D$(I)=D$(I)+A$
�#� D<2 � D$(I)=D$(I)+" ":�dzE  
�C=D-2:D=C 
�D$(I)=D$(I)+A$
�#� D<1 � D$(I)=D$(I)+" ":�TXF  

C=D-1:D=C
D$(I)=D$(I)+A$
D$=D$+"  ":�,  
"&� auto%=1 �auto_print � �man_print
,�
6*� �heading:�2,1,27,1,33,1,24:�I=1 � 8 
@�(20);D$(I) 
J�
T�
^� �calendar
h�2,1,27,1,33,1,0
r�'''�(1);�76,"*") 
|Z�(1);"*         JANUARY        *       FEBRUARY         *          MARCH         *"  
��(1);�76,"*") 
�V�" *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *"  
��p(1,3):�DbG
�� �p(QQQ,PPP)
��" *";  
�&�W=1 � 6:�"  ";:� M=QQQ � PPP     
�� SU%(W,M)=0 �"- ";
�=� SU%(W,M)>0 T$=�(SU%(W,M)):�;T$;:� � T$=1 �"  "; � �" ";
�� MO%(W,M)=0 �"- ";
�<� MO%(W,M)>0 T$=�(MO%(W,M)):�T$;:� � T$=1 �"  "; � �" ";
�� TU%(W,M)=0 �"- ";
�<� TU%(W,M)>0 T$=�(TU%(W,M)):�T$;:� � T$=1 �"  "; � �" ";
�� WE%(W,M)=0 �"- ";
<� WE%(W,M)>0 T$=�(WE%(W,M)):�T$;:� � T$=1 �"  "; � �" ";
� TH%(W,M)=0 �"- ";
<� TH%(W,M)>0 T$=�(TH%(W,M)):�T$;:� � T$=1 �"  "; � �" ";
&� FR%(W,M)=0 �"- ";
0<� FR%(W,M)>0 T$=�(FR%(W,M)):�T$;:� � T$=1 �"  "; � �" ";
:#� SA%(W,M)=0 �"-   *  ";:�DNG 
DF� SA%(W,M)>0 T$=�(SA%(W,M)):�T$;:� � T$=1 �"   *  "; � �"  *  ";  
N�:�'�(1)"*";:� 
X�
b��75,"*") 
lY�(1)"*           APRIL        *        MAY             *         JUNE           *"  
v�(1);�76,"*")  
�[�(1);"*  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *"   
��p(4,6)
�
��75,"*")
�Y�(1)"*           JULY         *       AUGUST           *        SEPTEMBER       *"  
��(1)�76,"*") 
�X�(1);"*  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *"
��p(7,9)
���75,"*")   
�Z�(1)"*         OCTOBER        *      NOVEMBER          *        DECEMBER        *"   
��(1)�76,"*") 
�]�(1);"*  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *  S  M  T  W  T  F  S   *"     
��p(10,12) 
���75,"*")  
�3:�
� �exeption
� Y � 100>0 � =0
 � Y � 400=0 � =0
*=1
4� �auto
>auto%=1
H�"How many copies",copies%
R�
\� �auto_print
f� cc%=1 � copies%
p�heading:�calendar
z�2
��1,12:�
��3
��
�� �man_print
��
�1�"Position printer correctly, then SPACE":���
��heading:�calendar
�
�2,1,12,3
��''"Another?":A$=�
��
�

00000000  0d 00 0a 14 f4 20 4d 75  6c 74 69 20 43 61 6c 65  |..... Multi Cale|
00000010  6e 64 61 72 0d 00 14 16  f4 20 42 79 20 52 6f 67  |ndar..... By Rog|
00000020  65 72 20 53 74 61 72 6b  69 65 0d 00 1e 17 f4 20  |er Starkie..... |
00000030  28 63 29 20 45 6c 65 63  74 72 6f 6e 20 55 73 65  |(c) Electron Use|
00000040  72 0d 00 28 05 f4 0d 00  32 29 ee 20 85 20 ef 32  |r..(....2). . .2|
00000050  33 2c 31 2c 31 2c 30 3b  30 3b 30 3b 3a f6 3a f1  |3,1,1,0;0;0;:.:.|
00000060  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 3a e0 0d  |" at line ";.:..|
00000070  00 3c 06 eb 36 0d 00 46  12 ef 32 33 2c 31 2c 30  |.<..6..F..23,1,0|
00000080  3b 30 3b 30 3b 30 3b 0d  00 50 5c de 20 53 55 25  |;0;0;0;..P\. SU%|
00000090  28 36 2c 31 32 29 2c 4d  4f 25 28 36 2c 31 32 29  |(6,12),MO%(6,12)|
000000a0  2c 54 55 25 28 36 2c 31  32 29 2c 57 45 25 28 36  |,TU%(6,12),WE%(6|
000000b0  2c 31 32 29 2c 54 48 25  28 36 2c 31 32 29 2c 46  |,12),TH%(6,12),F|
000000c0  52 25 28 36 2c 31 32 29  2c 53 41 25 28 36 2c 31  |R%(6,12),SA%(6,1|
000000d0  32 29 2c 50 28 31 32 29  2c 43 28 38 29 2c 44 24  |2),P(12),C(8),D$|
000000e0  28 38 29 0d 00 5a 05 db  0d 00 64 46 f1 27 27 27  |(8)..Z....dF.'''|
000000f0  27 22 20 20 20 20 20 20  20 20 20 20 20 20 20 4d  |'"             M|
00000100  75 6c 74 69 20 43 61 6c  65 6e 64 61 72 22 27 27  |ulti Calendar"''|
00000110  22 20 20 20 20 20 20 20  20 20 20 20 20 42 79 20  |"            By |
00000120  52 6f 67 65 72 20 53 74  61 72 6b 69 65 22 0d 00  |Roger Starkie"..|
00000130  6e 1a f1 27 27 22 45 6e  74 65 72 20 74 68 65 20  |n..''"Enter the |
00000140  79 65 61 72 2e 22 20 20  0d 00 78 06 e8 59 0d 00  |year."  ..x..Y..|
00000150  82 07 41 3d 35 0d 00 8c  13 e7 20 59 3c 31 39 38  |..A=5..... Y<198|
00000160  37 20 8c 20 8d 44 78 40  0d 00 96 17 db 3a 3a ef  |7 . .Dx@.....::.|
00000170  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 20 20 0d  |23,1,0;0;0;0;  .|
00000180  00 a0 46 f1 27 27 27 27  22 20 20 20 20 20 20 20  |..F.''''"       |
00000190  20 20 20 20 20 20 4d 75  6c 74 69 20 43 61 6c 65  |      Multi Cale|
000001a0  6e 64 61 72 22 27 27 22  20 20 20 20 20 20 20 20  |ndar"''"        |
000001b0  20 20 20 20 42 79 20 52  6f 67 65 72 20 53 74 61  |    By Roger Sta|
000001c0  72 6b 69 65 22 0d 00 aa  26 f1 27 27 27 22 20 20  |rkie"...&.'''"  |
000001d0  20 20 20 20 20 20 20 20  20 20 20 57 41 49 54 20  |           WAIT |
000001e0  41 20 4d 49 4e 55 54 45  22 20 20 0d 00 b4 0f e7  |A MINUTE"  .....|
000001f0  20 59 3e 31 39 38 37 20  f2 6d 0d 00 be 0f de 20  | Y>1987 .m..... |
00000200  44 61 24 28 37 29 20 20  20 0d 00 c8 29 e7 20 59  |Da$(7)   ...). Y|
00000210  20 83 20 34 3d 30 20 80  20 a4 65 78 65 70 74 69  | . 4=0 . .exepti|
00000220  6f 6e 3d 30 20 4c 59 3d  31 20 8b 20 4c 59 3d 30  |on=0 LY=1 . LY=0|
00000230  20 20 0d 00 d2 13 dc 20  53 2c 4d 2c 54 2c 57 2c  |  ..... S,M,T,W,|
00000240  54 2c 46 2c 53 0d 00 dc  18 e3 20 49 3d 31 20 b8  |T,F,S..... I=1 .|
00000250  20 37 3a f3 20 44 61 24  28 49 29 3a ed 0d 00 e6  | 7:. Da$(I):....|
00000260  1e 44 25 3d 31 3a 4d 25  3d 31 3a 57 25 3d 31 3a  |.D%=1:M%=1:W%=1:|
00000270  44 32 25 3d 31 3a 44 33  25 3d 41 0d 00 f0 13 de  |D2%=1:D3%=A.....|
00000280  20 4d 4f 4e 54 48 25 28  31 32 29 20 20 20 0d 00  | MONTH%(12)   ..|
00000290  fa 2c dc 20 33 31 2c 32  38 2c 33 31 2c 33 30 2c  |.,. 31,28,31,30,|
000002a0  33 31 2c 33 30 2c 33 31  2c 33 31 2c 33 30 2c 33  |31,30,31,31,30,3|
000002b0  31 2c 33 30 2c 33 31 20  20 20 0d 01 04 30 e3 20  |1,30,31   ...0. |
000002c0  49 3d 31 20 b8 20 31 32  3a f3 20 4d 4f 4e 54 48  |I=1 . 12:. MONTH|
000002d0  25 28 49 29 3a ed 3a e7  20 4c 59 20 4d 4f 4e 54  |%(I):.:. LY MONT|
000002e0  48 25 28 32 29 3d 32 39  20 20 0d 01 0e 05 f5 0d  |H%(2)=29  ......|
000002f0  01 18 2d ee 20 44 33 25  20 e5 8d 54 62 41 2c 8d  |..-. D3% ..TbA,.|
00000300  54 6c 41 2c 8d 54 76 41  2c 8d 44 40 41 2c 8d 44  |TlA,.TvA,.D@A,.D|
00000310  4a 41 2c 8d 44 54 41 2c  8d 44 5e 41 0d 01 22 19  |JA,.DTA,.D^A..".|
00000320  53 55 25 28 57 25 2c 4d  25 29 3d 44 32 25 3a e5  |SU%(W%,M%)=D2%:.|
00000330  20 8d 44 68 41 0d 01 2c  19 4d 4f 25 28 57 25 2c  | .DhA..,.MO%(W%,|
00000340  4d 25 29 3d 44 32 25 3a  e5 20 8d 44 68 41 0d 01  |M%)=D2%:. .DhA..|
00000350  36 19 54 55 25 28 57 25  2c 4d 25 29 3d 44 32 25  |6.TU%(W%,M%)=D2%|
00000360  3a e5 20 8d 44 68 41 0d  01 40 19 57 45 25 28 57  |:. .DhA..@.WE%(W|
00000370  25 2c 4d 25 29 3d 44 32  25 3a e5 20 8d 44 68 41  |%,M%)=D2%:. .DhA|
00000380  0d 01 4a 19 54 48 25 28  57 25 2c 4d 25 29 3d 44  |..J.TH%(W%,M%)=D|
00000390  32 25 3a e5 20 8d 44 68  41 0d 01 54 19 46 52 25  |2%:. .DhA..T.FR%|
000003a0  28 57 25 2c 4d 25 29 3d  44 32 25 3a e5 20 8d 44  |(W%,M%)=D2%:. .D|
000003b0  68 41 0d 01 5e 19 53 41  25 28 57 25 2c 4d 25 29  |hA..^.SA%(W%,M%)|
000003c0  3d 44 32 25 3a e5 20 8d  44 68 41 0d 01 68 17 44  |=D2%:. .DhA..h.D|
000003d0  32 25 3d 44 32 25 2b 31  3a 44 33 25 3d 44 33 25  |2%=D2%+1:D3%=D3%|
000003e0  2b 31 0d 01 72 27 e7 20  44 32 25 3e 4d 4f 4e 54  |+1..r'. D2%>MONT|
000003f0  48 25 28 4d 25 29 20 44  32 25 3d 31 3a 4d 25 3d  |H%(M%) D2%=1:M%=|
00000400  4d 25 2b 31 3a 57 25 3d  31 0d 01 7c 19 e7 20 44  |M%+1:W%=1..|.. D|
00000410  33 25 3e 37 20 57 25 3d  57 25 2b 31 3a 44 33 25  |3%>7 W%=W%+1:D3%|
00000420  3d 31 0d 01 86 17 fd 20  4d 25 3d 31 33 3a ef 31  |=1..... M%=13:.1|
00000430  39 2c 31 2c 31 3b 30 3b  20 0d 01 90 3b f1 8a 30  |9,1,1;0; ...;..0|
00000440  2c 31 31 29 3b 89 28 34  30 29 3a f1 8a 30 2c 32  |,11);.(40):..0,2|
00000450  33 29 22 20 20 20 20 20  20 20 20 50 72 65 73 73  |3)"        Press|
00000460  20 53 50 41 43 45 20 66  6f 72 20 74 68 65 20 6d  | SPACE for the m|
00000470  65 6e 75 22 0d 01 9a 13  f5 fd a5 3d 33 32 3a eb  |enu".......=32:.|
00000480  36 3a f2 6d 65 6e 75 0d  01 a4 12 ef 32 33 2c 31  |6:.menu.....23,1|
00000490  2c 30 3b 30 3b 30 3b 30  3b 0d 01 ae 0d e7 20 42  |,0;0;0;0;..... B|
000004a0  3d 32 20 8c 20 f9 0d 01  b8 15 e7 20 42 3d 33 20  |=2 . ...... B=3 |
000004b0  f2 64 61 79 3a e5 8d 74  50 41 20 0d 01 c2 16 e7  |.day:..tPA .....|
000004c0  20 42 3d 34 20 f2 70 72  69 6e 74 3a e5 8d 74 50  | B=4 .print:..tP|
000004d0  41 0d 01 cc 1c e7 20 42  3d 31 20 e8 27 22 45 6e  |A..... B=1 .'"En|
000004e0  74 65 72 20 6d 6f 6e 74  68 20 22 4d 20 0d 01 d6  |ter month "M ...|
000004f0  17 e7 20 4d 3c 31 20 84  20 4d 3e 31 32 20 8c 20  |.. M<1 . M>12 . |
00000500  8d 64 4c 41 0d 01 e0 5b  dc 20 4a 41 4e 55 41 52  |.dLA...[. JANUAR|
00000510  59 2c 46 45 42 52 55 41  52 59 2c 4d 41 52 43 48  |Y,FEBRUARY,MARCH|
00000520  2c 41 50 52 49 4c 2c 4d  41 59 2c 4a 55 4e 45 2c  |,APRIL,MAY,JUNE,|
00000530  4a 55 4c 59 2c 41 55 47  55 53 54 2c 53 45 50 54  |JULY,AUGUST,SEPT|
00000540  45 4d 42 45 52 2c 4f 43  54 4f 42 45 52 2c 4e 4f  |EMBER,OCTOBER,NO|
00000550  56 45 4d 42 45 52 2c 44  45 43 45 4d 42 45 52 0d  |VEMBER,DECEMBER.|
00000560  01 ea 1a f7 8d 64 60 41  3a e3 20 49 3d 31 20 b8  |.....d`A:. I=1 .|
00000570  20 4d 3a f3 20 4d 24 3a  ed 0d 01 f4 12 4d 24 3d  | M:. M$:.....M$=|
00000580  4d 24 2b 22 20 22 2b c3  28 59 29 0d 01 fe 18 eb  |M$+" "+.(Y).....|
00000590  36 3a f1 8a 32 30 2d a9  20 4d 24 2f 32 2c 35 29  |6:..20-. M$/2,5)|
000005a0  3b 4d 24 0d 02 08 20 f1  8a 31 30 2c 38 29 22 53  |;M$... ..10,8)"S|
000005b0  20 20 4d 20 20 54 20 20  57 20 20 54 20 20 46 20  |  M  T  W  T  F |
000005c0  20 53 22 0d 02 12 16 e3  20 49 3d 31 20 b8 20 37  | S"..... I=1 . 7|
000005d0  3a e3 4a 3d 31 20 b8 20  36 0d 02 1c 2c ee 20 49  |:.J=1 . 6...,. I|
000005e0  20 e5 20 8d 54 66 42 2c  8d 54 7a 42 2c 8d 44 4e  | . .TfB,.TzB,.DN|
000005f0  42 2c 8d 44 62 42 2c 8d  44 76 42 2c 8d 74 4a 42  |B,.DbB,.DvB,.tJB|
00000600  2c 8d 74 5e 42 0d 02 26  2d e7 20 53 55 25 28 4a  |,.t^B..&-. SU%(J|
00000610  2c 4d 29 3e 30 20 f1 8a  31 30 2c 31 30 2b 32 2a  |,M)>0 ..10,10+2*|
00000620  4a 29 3b 53 55 25 28 4a  2c 4d 29 3a e5 8d 74 72  |J);SU%(J,M):..tr|
00000630  42 20 0d 02 30 1a f1 8a  31 30 2c 31 30 2b 32 2a  |B ..0...10,10+2*|
00000640  4a 29 3b 22 2d 22 3a e5  8d 74 72 42 0d 02 3a 2b  |J);"-":..trB..:+|
00000650  e7 20 4d 4f 25 28 4a 2c  4d 29 3e 30 f1 8a 31 33  |. MO%(J,M)>0..13|
00000660  2c 31 30 2b 32 2a 4a 29  3b 4d 4f 25 28 4a 2c 4d  |,10+2*J);MO%(J,M|
00000670  29 3a e5 8d 74 72 42 0d  02 44 1a f1 8a 31 33 2c  |):..trB..D...13,|
00000680  31 30 2b 32 2a 4a 29 3b  22 2d 22 3a e5 8d 74 72  |10+2*J);"-":..tr|
00000690  42 0d 02 4e 2c e7 20 54  55 25 28 4a 2c 4d 29 3e  |B..N,. TU%(J,M)>|
000006a0  30 20 f1 8a 31 36 2c 31  30 2b 32 2a 4a 29 3b 54  |0 ..16,10+2*J);T|
000006b0  55 25 28 4a 2c 4d 29 3a  e5 8d 74 72 42 0d 02 58  |U%(J,M):..trB..X|
000006c0  1a f1 8a 31 36 2c 31 30  2b 32 2a 4a 29 3b 22 2d  |...16,10+2*J);"-|
000006d0  22 3a e5 8d 74 72 42 0d  02 62 31 e7 20 57 45 25  |":..trB..b1. WE%|
000006e0  28 4a 2c 4d 29 3e 30 20  f1 8a 31 39 2c 31 30 2b  |(J,M)>0 ..19,10+|
000006f0  32 2a 4a 29 3b 57 45 25  28 4a 2c 4d 29 3a e5 8d  |2*J);WE%(J,M):..|
00000700  74 72 42 20 20 20 20 20  0d 02 6c 1a f1 8a 31 39  |trB     ..l...19|
00000710  2c 31 30 2b 32 2a 4a 29  3b 22 2d 22 3a e5 8d 74  |,10+2*J);"-":..t|
00000720  72 42 0d 02 76 2f e7 20  54 48 25 28 4a 2c 4d 29  |rB..v/. TH%(J,M)|
00000730  3e 30 20 f1 8a 32 32 2c  31 30 2b 32 2a 4a 29 3b  |>0 ..22,10+2*J);|
00000740  54 48 25 28 4a 2c 4d 29  3a e5 8d 74 72 42 20 20  |TH%(J,M):..trB  |
00000750  20 0d 02 80 1b f1 8a 32  32 2c 31 30 2b 32 2a 4a  | ......22,10+2*J|
00000760  29 3b 22 2d 22 3a e5 8d  74 72 42 20 0d 02 8a 2d  |);"-":..trB ...-|
00000770  e7 20 46 52 25 28 4a 2c  4d 29 3e 30 20 f1 8a 32  |. FR%(J,M)>0 ..2|
00000780  35 2c 31 30 2b 32 2a 4a  29 3b 46 52 25 28 4a 2c  |5,10+2*J);FR%(J,|
00000790  4d 29 3a e5 8d 74 72 42  20 0d 02 94 1b f1 8a 32  |M):..trB ......2|
000007a0  35 2c 31 30 2b 32 2a 4a  29 3b 22 2d 22 3a e5 8d  |5,10+2*J);"-":..|
000007b0  74 72 42 20 0d 02 9e 2d  e7 20 53 41 25 28 4a 2c  |trB ...-. SA%(J,|
000007c0  4d 29 3e 30 20 f1 8a 32  38 2c 31 30 2b 32 2a 4a  |M)>0 ..28,10+2*J|
000007d0  29 3b 53 41 25 28 4a 2c  4d 29 3a e5 8d 74 72 42  |);SA%(J,M):..trB|
000007e0  20 0d 02 a8 1b f1 8a 32  38 2c 31 30 2b 32 2a 4a  | ......28,10+2*J|
000007f0  29 3b 22 2d 22 3a e5 8d  74 72 42 20 0d 02 b2 06  |);"-":..trB ....|
00000800  ed 2c 0d 02 bc 0e f1 27  27 3a e5 8d 74 50 41 20  |.,.....'':..tPA |
00000810  0d 02 c6 08 dd 20 f2 6d  0d 02 d0 13 e3 20 49 3d  |..... .m..... I=|
00000820  31 39 38 38 20 b8 20 59  20 20 20 0d 02 da 41 e7  |1988 . Y   ...A.|
00000830  20 28 28 49 2d 31 29 20  83 20 34 3e 30 20 84 20  | ((I-1) . 4>0 . |
00000840  28 49 2d 31 29 20 83 20  34 3d 30 20 80 20 a4 65  |(I-1) . 4=0 . .e|
00000850  78 65 70 74 69 6f 6e 3d  31 29 20 80 20 41 3c 37  |xeption=1) . A<7|
00000860  20 41 3d 41 2b 31 3a e5  8d 54 4c 43 0d 02 e4 44  | A=A+1:..TLC...D|
00000870  20 e7 20 28 28 49 2d 31  29 20 83 20 34 3e 30 20  | . ((I-1) . 4>0 |
00000880  84 20 28 49 2d 31 29 20  83 20 34 3d 30 20 80 20  |. (I-1) . 4=0 . |
00000890  a4 65 78 65 70 74 69 6f  6e 3d 31 29 20 80 20 41  |.exeption=1) . A|
000008a0  3d 37 20 41 3d 31 3a e5  8d 54 4c 43 20 20 20 20  |=7 A=1:..TLC    |
000008b0  0d 02 ee 23 e7 20 28 49  2d 31 29 20 83 20 34 3d  |...#. (I-1) . 4=|
000008c0  30 20 80 20 41 3c 36 20  41 3d 41 2b 32 3a e5 8d  |0 . A<6 A=A+2:..|
000008d0  54 4c 43 0d 02 f8 22 e7  20 28 49 2d 31 29 20 83  |TLC...". (I-1) .|
000008e0  20 34 3d 30 20 80 20 41  3d 37 20 41 3d 32 3a e5  | 4=0 . A=7 A=2:.|
000008f0  8d 54 4c 43 20 0d 03 02  1b e7 20 28 49 2d 31 29  |.TLC ..... (I-1)|
00000900  20 83 20 34 3d 30 20 80  20 41 3d 36 20 41 3d 31  | . 4=0 . A=6 A=1|
00000910  0d 03 0c 09 ed 3a e1 20  20 0d 03 16 0b dd 20 f2  |.....:.  ..... .|
00000920  6d 65 6e 75 0d 03 20 29  f1 27 27 22 20 20 20 20  |menu.. ).''"    |
00000930  20 20 20 20 20 20 4d 75  6c 74 69 20 43 61 6c 65  |      Multi Cale|
00000940  6e 64 61 72 20 4d 65 6e  75 2e 22 27 27 0d 03 2a  |ndar Menu."''..*|
00000950  29 f1 27 22 31 29 20 20  45 6e 74 65 72 20 61 20  |).'"1)  Enter a |
00000960  6d 6f 6e 74 68 20 69 6e  20 22 3b 59 3b 22 20 74  |month in ";Y;" t|
00000970  6f 20 73 65 65 22 0d 03  34 1d f1 27 22 32 29 20  |o see"..4..'"2) |
00000980  20 53 74 61 72 74 20 61  20 6e 65 77 20 79 65 61  | Start a new yea|
00000990  72 2e 22 0d 03 3e 1d f1  27 22 33 29 20 20 44 61  |r."..>..'"3)  Da|
000009a0  74 65 73 20 6f 6e 20 6f  6e 65 20 64 61 79 2e 22  |tes on one day."|
000009b0  0d 03 48 28 f1 27 22 34  29 20 20 50 72 69 6e 74  |..H(.'"4)  Print|
000009c0  20 6f 75 74 20 74 68 65  20 22 3b 59 3b 22 20 63  | out the ";Y;" c|
000009d0  61 6c 65 6e 64 61 72 22  0d 03 52 0a 42 3d a5 2d  |alendar"..R.B=.-|
000009e0  34 38 0d 03 5c 17 e7 20  42 3c 31 20 84 20 42 3e  |48..\.. B<1 . B>|
000009f0  34 20 8c 20 8d 44 52 43  20 0d 03 66 05 e1 0d 03  |4 . .DRC ..f....|
00000a00  70 0a dd 20 f2 64 61 79  0d 03 7a 23 e8 27 27 22  |p.. .day..z#.''"|
00000a10  44 61 79 3f 20 31 3d 53  75 6e 20 2e 2e 2e 2e 20  |Day? 1=Sun .... |
00000a20  37 3d 53 61 74 2e 20 20  22 44 20 0d 03 84 05 db  |7=Sat.  "D .....|
00000a30  0d 03 8e 45 dc 20 53 55  4e 44 41 59 53 2c 4d 4f  |...E. SUNDAYS,MO|
00000a40  4e 44 41 59 53 2c 54 55  45 53 44 41 59 53 2c 57  |NDAYS,TUESDAYS,W|
00000a50  45 44 4e 45 53 44 41 59  53 2c 54 48 55 52 53 44  |EDNESDAYS,THURSD|
00000a60  41 59 53 2c 46 52 49 44  41 59 53 2c 53 41 54 55  |AYS,FRIDAYS,SATU|
00000a70  52 44 41 59 53 0d 03 98  0a f7 20 8d 74 4e 43 0d  |RDAYS..... .tNC.|
00000a80  03 a2 49 e3 20 5a 3d 31  20 b8 20 44 3a f3 20 46  |..I. Z=1 . D:. F|
00000a90  24 3a ed 3a 50 24 3d 22  54 48 45 20 22 2b 46 24  |$:.:P$="THE "+F$|
00000aa0  2b 22 20 49 4e 20 22 2b  c3 28 59 29 2b 22 2e 22  |+" IN "+.(Y)+"."|
00000ab0  3a f1 8a 32 30 2d a9 28  50 24 29 2f 32 2c 34 29  |:..20-.(P$)/2,4)|
00000ac0  3b 50 24 20 20 20 20 20  0d 03 ac 39 f1 8a 30 2c  |;P$     ...9..0,|
00000ad0  37 29 3b 22 20 20 20 4a  20 20 46 20 20 4d 20 20  |7);"   J  F  M  |
00000ae0  41 20 20 4d 20 20 4a 20  20 4a 20 20 41 20 20 53  |A  M  J  J  A  S|
00000af0  20 20 4f 20 20 4e 20 20  44 22 20 20 20 20 20 20  |  O  N  D"      |
00000b00  20 0d 03 b6 1a e3 20 50  3d 31 20 b8 20 31 32 3a  | ..... P=1 . 12:|
00000b10  50 28 50 29 3d 31 30 3a  ed 20 20 0d 03 c0 1b e3  |P(P)=10:.  .....|
00000b20  20 57 3d 31 20 b8 20 36  3a e3 20 4d 3d 31 20 b8  | W=1 . 6:. M=1 .|
00000b30  20 31 32 20 20 20 0d 03  ca 1c f1 8a 4d 2a 33 2c  | 12   ......M*3,|
00000b40  50 28 4d 29 29 3b 3a 50  28 4d 29 3d 50 28 4d 29  |P(M));:P(M)=P(M)|
00000b50  2b 32 0d 03 d4 2c ee 20  44 20 e5 20 8d 64 5e 43  |+2...,. D . .d^C|
00000b60  2c 8d 64 72 43 2c 8d 54  46 44 2c 8d 54 5a 44 2c  |,.drC,.TFD,.TZD,|
00000b70  8d 54 6e 44 2c 8d 44 42  44 2c 8d 44 56 44 0d 03  |.TnD,.DBD,.DVD..|
00000b80  de 21 51 24 3d c3 20 53  55 25 28 57 2c 4d 29 3a  |.!Q$=. SU%(W,M):|
00000b90  e7 20 51 24 3d 22 30 22  20 51 24 3d 22 22 20 0d  |. Q$="0" Q$="" .|
00000ba0  03 e8 0e f1 20 51 24 3a  e5 8d 44 6a 44 0d 03 f2  |.... Q$:..DjD...|
00000bb0  21 51 24 3d c3 20 4d 4f  25 28 57 2c 4d 29 3a e7  |!Q$=. MO%(W,M):.|
00000bc0  20 51 24 3d 22 30 22 20  51 24 3d 22 20 22 0d 03  | Q$="0" Q$=" "..|
00000bd0  fc 0e f1 20 51 24 3a e5  8d 44 6a 44 0d 04 06 21  |... Q$:..DjD...!|
00000be0  51 24 3d c3 20 54 55 25  28 57 2c 4d 29 3a e7 20  |Q$=. TU%(W,M):. |
00000bf0  51 24 3d 22 30 22 20 51  24 3d 22 20 22 0d 04 10  |Q$="0" Q$=" "...|
00000c00  0e f1 20 51 24 3a e5 8d  44 6a 44 0d 04 1a 21 51  |.. Q$:..DjD...!Q|
00000c10  24 3d c3 20 57 45 25 28  57 2c 4d 29 3a e7 20 51  |$=. WE%(W,M):. Q|
00000c20  24 3d 22 30 22 20 51 24  3d 22 20 22 0d 04 24 0e  |$="0" Q$=" "..$.|
00000c30  f1 20 51 24 3a e5 8d 44  6a 44 0d 04 2e 21 51 24  |. Q$:..DjD...!Q$|
00000c40  3d c3 20 54 48 25 28 57  2c 4d 29 3a e7 20 51 24  |=. TH%(W,M):. Q$|
00000c50  3d 22 30 22 20 51 24 3d  22 20 22 0d 04 38 0e f1  |="0" Q$=" "..8..|
00000c60  20 51 24 3a e5 8d 44 6a  44 0d 04 42 21 51 24 3d  | Q$:..DjD..B!Q$=|
00000c70  c3 20 46 52 25 28 57 2c  4d 29 3a e7 20 51 24 3d  |. FR%(W,M):. Q$=|
00000c80  22 30 22 20 51 24 3d 22  20 22 0d 04 4c 0e f1 20  |"0" Q$=" "..L.. |
00000c90  51 24 3a e5 8d 44 6a 44  0d 04 56 21 51 24 3d c3  |Q$:..DjD..V!Q$=.|
00000ca0  20 53 41 25 28 57 2c 4d  29 3a e7 20 51 24 3d 22  | SA%(W,M):. Q$="|
00000cb0  30 22 20 51 24 3d 22 20  22 0d 04 60 0e f1 20 51  |0" Q$=" "..`.. Q|
00000cc0  24 3a e5 8d 44 6a 44 0d  04 6a 18 e7 20 51 24 3d  |$:..DjD..j.. Q$=|
00000cd0  22 20 22 20 50 28 4d 29  3d 50 28 4d 29 2d 32 0d  |" " P(M)=P(M)-2.|
00000ce0  04 74 06 ed 2c 0d 04 7e  05 e1 0d 04 92 0c dd 20  |.t..,..~....... |
00000cf0  f2 70 72 69 6e 74 0d 04  9c 19 e3 69 3d 31 20 b8  |.print.....i=1 .|
00000d00  20 38 3a 44 24 28 69 29  3d 22 22 3a ed 20 20 0d  | 8:D$(i)="":.  .|
00000d10  04 a6 31 f1 27 27 22 41  75 74 6f 6d 61 74 69 63  |..1.''"Automatic|
00000d20  3f 22 3a 41 24 3d be 3a  e7 20 41 24 3d 22 59 22  |?":A$=.:. A$="Y"|
00000d30  20 f2 61 75 74 6f 20 8b  20 61 75 74 6f 25 3d 30  | .auto . auto%=0|
00000d40  0d 04 b0 3d 41 25 3d 31  30 3a 58 25 3d 26 37 30  |...=A%=10:X%=&70|
00000d50  3a 59 24 3d c3 28 59 29  3a e3 20 5a 5a 5a 3d 31  |:Y$=.(Y):. ZZZ=1|
00000d60  20 b8 20 34 3a 5a 5a 5a  24 3d c1 59 24 2c 5a 5a  | . 4:ZZZ$=.Y$,ZZ|
00000d70  5a 2c 31 29 3a 42 3d 97  20 5a 5a 5a 24 0d 04 ba  |Z,1):B=. ZZZ$...|
00000d80  0b 41 24 3d bd 28 42 29  0d 04 c4 13 e7 20 41 24  |.A$=.(B)..... A$|
00000d90  3d 22 30 22 20 41 24 3d  22 4f 22 0d 04 ce 11 e7  |="0" A$="O".....|
00000da0  20 42 3d 34 38 20 42 3d  97 22 4f 22 0d 04 d8 0a  | B=48 B=."O"....|
00000db0  3f 58 25 3d 42 20 0d 04  e2 08 59 25 3d 30 0d 04  |?X%=B ....Y%=0..|
00000dc0  ec 0b d6 20 26 46 46 46  31 0d 04 f6 10 e3 20 49  |... &FFF1..... I|
00000dd0  3d 31 20 b8 20 38 20 20  20 0d 05 00 0e 43 28 49  |=1 . 8   ....C(I|
00000de0  29 3d 58 25 3f 49 20 0d  05 0a 05 ed 0d 05 14 0d  |)=X%?I .........|
00000df0  e3 20 49 3d 31 20 b8 20  38 0d 05 1e 0a 44 3d 43  |. I=1 . 8....D=C|
00000e00  28 49 29 0d 05 28 23 e7  20 44 3c 31 32 38 20 8c  |(I)..(#. D<128 .|
00000e10  20 44 24 28 49 29 3d 44  24 28 49 29 2b 22 20 22  | D$(I)=D$(I)+" "|
00000e20  3a e5 8d 44 46 45 0d 05  32 0f 43 3d 44 2d 31 32  |:..DFE..2.C=D-12|
00000e30  38 3a 44 3d 43 0d 05 3c  12 44 24 28 49 29 3d 44  |8:D=C..<.D$(I)=D|
00000e40  24 28 49 29 2b 41 24 0d  05 46 22 e7 20 44 3c 36  |$(I)+A$..F". D<6|
00000e50  34 20 8c 20 44 24 28 49  29 3d 44 24 28 49 29 2b  |4 . D$(I)=D$(I)+|
00000e60  22 20 22 3a e5 8d 44 64  45 0d 05 50 0e 43 3d 44  |" ":..DdE..P.C=D|
00000e70  2d 36 34 3a 44 3d 43 0d  05 5a 12 44 24 28 49 29  |-64:D=C..Z.D$(I)|
00000e80  3d 44 24 28 49 29 2b 41  24 0d 05 64 22 e7 20 44  |=D$(I)+A$..d". D|
00000e90  3c 33 32 20 8c 20 44 24  28 49 29 3d 44 24 28 49  |<32 . D$(I)=D$(I|
00000ea0  29 2b 22 20 22 3a e5 8d  74 42 45 0d 05 6e 0e 43  |)+" ":..tBE..n.C|
00000eb0  3d 44 2d 33 32 3a 44 3d  43 0d 05 78 12 44 24 28  |=D-32:D=C..x.D$(|
00000ec0  49 29 3d 44 24 28 49 29  2b 41 24 0d 05 82 23 e7  |I)=D$(I)+A$...#.|
00000ed0  20 44 3c 31 36 20 8c 20  44 24 28 49 29 3d 44 24  | D<16 . D$(I)=D$|
00000ee0  28 49 29 2b 22 20 22 3a  e5 8d 74 60 45 20 0d 05  |(I)+" ":..t`E ..|
00000ef0  8c 0f 43 3d 44 2d 31 36  3a 44 3d 43 20 0d 05 96  |..C=D-16:D=C ...|
00000f00  12 44 24 28 49 29 3d 44  24 28 49 29 2b 41 24 0d  |.D$(I)=D$(I)+A$.|
00000f10  05 a0 23 e7 20 44 3c 38  20 8c 20 44 24 28 49 29  |..#. D<8 . D$(I)|
00000f20  3d 44 24 28 49 29 2b 22  20 22 3a e5 8d 74 7e 45  |=D$(I)+" ":..t~E|
00000f30  20 20 0d 05 aa 0e 43 3d  44 2d 38 3a 44 3d 43 20  |  ....C=D-8:D=C |
00000f40  0d 05 b4 12 44 24 28 49  29 3d 44 24 28 49 29 2b  |....D$(I)=D$(I)+|
00000f50  41 24 0d 05 be 21 e7 20  44 3c 34 20 8c 20 44 24  |A$...!. D<4 . D$|
00000f60  28 49 29 3d 44 24 28 49  29 2b 22 20 22 3a e5 8d  |(I)=D$(I)+" ":..|
00000f70  64 5c 45 0d 05 c8 0f 43  3d 44 2d 34 3a 44 3d 43  |d\E....C=D-4:D=C|
00000f80  20 20 0d 05 d2 12 44 24  28 49 29 3d 44 24 28 49  |  ....D$(I)=D$(I|
00000f90  29 2b 41 24 0d 05 dc 23  e7 20 44 3c 32 20 8c 20  |)+A$...#. D<2 . |
00000fa0  44 24 28 49 29 3d 44 24  28 49 29 2b 22 20 22 3a  |D$(I)=D$(I)+" ":|
00000fb0  e5 8d 64 7a 45 20 20 0d  05 e6 0e 43 3d 44 2d 32  |..dzE  ....C=D-2|
00000fc0  3a 44 3d 43 20 0d 05 f0  12 44 24 28 49 29 3d 44  |:D=C ....D$(I)=D|
00000fd0  24 28 49 29 2b 41 24 0d  05 fa 23 e7 20 44 3c 31  |$(I)+A$...#. D<1|
00000fe0  20 8c 20 44 24 28 49 29  3d 44 24 28 49 29 2b 22  | . D$(I)=D$(I)+"|
00000ff0  20 22 3a e5 8d 54 58 46  20 20 0d 06 04 0d 43 3d  | ":..TXF  ....C=|
00001000  44 2d 31 3a 44 3d 43 0d  06 0e 12 44 24 28 49 29  |D-1:D=C....D$(I)|
00001010  3d 44 24 28 49 29 2b 41  24 0d 06 18 13 44 24 3d  |=D$(I)+A$....D$=|
00001020  44 24 2b 22 20 20 22 3a  ed 2c 20 20 0d 06 22 26  |D$+"  ":.,  .."&|
00001030  e7 20 61 75 74 6f 25 3d  31 20 f2 61 75 74 6f 5f  |. auto%=1 .auto_|
00001040  70 72 69 6e 74 20 8b 20  f2 6d 61 6e 5f 70 72 69  |print . .man_pri|
00001050  6e 74 0d 06 2c 05 e1 0d  06 36 2a dd 20 f2 68 65  |nt..,....6*. .he|
00001060  61 64 69 6e 67 3a ef 32  2c 31 2c 32 37 2c 31 2c  |ading:.2,1,27,1,|
00001070  33 33 2c 31 2c 32 34 3a  e3 49 3d 31 20 b8 20 38  |33,1,24:.I=1 . 8|
00001080  20 0d 06 40 11 f1 89 28  32 30 29 3b 44 24 28 49  | ..@...(20);D$(I|
00001090  29 20 0d 06 4a 05 ed 0d  06 54 05 e1 0d 06 5e 0f  |) ..J....T....^.|
000010a0  dd 20 f2 63 61 6c 65 6e  64 61 72 0d 06 68 14 ef  |. .calendar..h..|
000010b0  32 2c 31 2c 32 37 2c 31  2c 33 33 2c 31 2c 30 0d  |2,1,27,1,33,1,0.|
000010c0  06 72 16 f1 27 27 27 89  28 31 29 3b c4 37 36 2c  |.r..'''.(1);.76,|
000010d0  22 2a 22 29 20 0d 06 7c  5a f1 89 28 31 29 3b 22  |"*") ..|Z..(1);"|
000010e0  2a 20 20 20 20 20 20 20  20 20 4a 41 4e 55 41 52  |*         JANUAR|
000010f0  59 20 20 20 20 20 20 20  20 2a 20 20 20 20 20 20  |Y        *      |
00001100  20 46 45 42 52 55 41 52  59 20 20 20 20 20 20 20  | FEBRUARY       |
00001110  20 20 2a 20 20 20 20 20  20 20 20 20 20 4d 41 52  |  *          MAR|
00001120  43 48 20 20 20 20 20 20  20 20 20 2a 22 20 20 0d  |CH         *"  .|
00001130  06 86 13 f1 89 28 31 29  3b c4 37 36 2c 22 2a 22  |.....(1);.76,"*"|
00001140  29 20 0d 06 90 56 f1 22  20 2a 20 20 53 20 20 4d  |) ...V." *  S  M|
00001150  20 20 54 20 20 57 20 20  54 20 20 46 20 20 53 20  |  T  W  T  F  S |
00001160  20 20 2a 20 20 53 20 20  4d 20 20 54 20 20 57 20  |  *  S  M  T  W |
00001170  20 54 20 20 46 20 20 53  20 20 20 2a 20 20 53 20  | T  F  S   *  S |
00001180  20 4d 20 20 54 20 20 57  20 20 54 20 20 46 20 20  | M  T  W  T  F  |
00001190  53 20 20 20 2a 22 20 20  0d 06 9a 11 f2 70 28 31  |S   *"  .....p(1|
000011a0  2c 33 29 3a e5 8d 44 62  47 0d 06 a4 11 dd 20 f2  |,3):..DbG..... .|
000011b0  70 28 51 51 51 2c 50 50  50 29 0d 06 ae 0c f1 22  |p(QQQ,PPP)....."|
000011c0  20 2a 22 3b 20 20 0d 06  b8 26 e3 57 3d 31 20 b8  | *";  ...&.W=1 .|
000011d0  20 36 3a f1 22 20 20 22  3b 3a e3 20 4d 3d 51 51  | 6:."  ";:. M=QQ|
000011e0  51 20 b8 20 50 50 50 20  20 20 20 20 0d 06 c2 17  |Q . PPP     ....|
000011f0  e7 20 53 55 25 28 57 2c  4d 29 3d 30 20 f1 22 2d  |. SU%(W,M)=0 ."-|
00001200  20 22 3b 0d 06 cc 3d e7  20 53 55 25 28 57 2c 4d  | ";...=. SU%(W,M|
00001210  29 3e 30 20 54 24 3d c3  28 53 55 25 28 57 2c 4d  |)>0 T$=.(SU%(W,M|
00001220  29 29 3a f1 3b 54 24 3b  3a e7 20 a9 20 54 24 3d  |)):.;T$;:. . T$=|
00001230  31 20 f1 22 20 20 22 3b  20 8b 20 f1 22 20 22 3b  |1 ."  "; . ." ";|
00001240  0d 06 d6 17 e7 20 4d 4f  25 28 57 2c 4d 29 3d 30  |..... MO%(W,M)=0|
00001250  20 f1 22 2d 20 22 3b 0d  06 e0 3c e7 20 4d 4f 25  | ."- ";...<. MO%|
00001260  28 57 2c 4d 29 3e 30 20  54 24 3d c3 28 4d 4f 25  |(W,M)>0 T$=.(MO%|
00001270  28 57 2c 4d 29 29 3a f1  54 24 3b 3a e7 20 a9 20  |(W,M)):.T$;:. . |
00001280  54 24 3d 31 20 f1 22 20  20 22 3b 20 8b 20 f1 22  |T$=1 ."  "; . ."|
00001290  20 22 3b 0d 06 ea 17 e7  20 54 55 25 28 57 2c 4d  | ";..... TU%(W,M|
000012a0  29 3d 30 20 f1 22 2d 20  22 3b 0d 06 f4 3c e7 20  |)=0 ."- ";...<. |
000012b0  54 55 25 28 57 2c 4d 29  3e 30 20 54 24 3d c3 28  |TU%(W,M)>0 T$=.(|
000012c0  54 55 25 28 57 2c 4d 29  29 3a f1 54 24 3b 3a e7  |TU%(W,M)):.T$;:.|
000012d0  20 a9 20 54 24 3d 31 20  f1 22 20 20 22 3b 20 8b  | . T$=1 ."  "; .|
000012e0  20 f1 22 20 22 3b 0d 06  fe 17 e7 20 57 45 25 28  | ." ";..... WE%(|
000012f0  57 2c 4d 29 3d 30 20 f1  22 2d 20 22 3b 0d 07 08  |W,M)=0 ."- ";...|
00001300  3c e7 20 57 45 25 28 57  2c 4d 29 3e 30 20 54 24  |<. WE%(W,M)>0 T$|
00001310  3d c3 28 57 45 25 28 57  2c 4d 29 29 3a f1 54 24  |=.(WE%(W,M)):.T$|
00001320  3b 3a e7 20 a9 20 54 24  3d 31 20 f1 22 20 20 22  |;:. . T$=1 ."  "|
00001330  3b 20 8b 20 f1 22 20 22  3b 0d 07 12 17 e7 20 54  |; . ." ";..... T|
00001340  48 25 28 57 2c 4d 29 3d  30 20 f1 22 2d 20 22 3b  |H%(W,M)=0 ."- ";|
00001350  0d 07 1c 3c e7 20 54 48  25 28 57 2c 4d 29 3e 30  |...<. TH%(W,M)>0|
00001360  20 54 24 3d c3 28 54 48  25 28 57 2c 4d 29 29 3a  | T$=.(TH%(W,M)):|
00001370  f1 54 24 3b 3a e7 20 a9  20 54 24 3d 31 20 f1 22  |.T$;:. . T$=1 ."|
00001380  20 20 22 3b 20 8b 20 f1  22 20 22 3b 0d 07 26 17  |  "; . ." ";..&.|
00001390  e7 20 46 52 25 28 57 2c  4d 29 3d 30 20 f1 22 2d  |. FR%(W,M)=0 ."-|
000013a0  20 22 3b 0d 07 30 3c e7  20 46 52 25 28 57 2c 4d  | ";..0<. FR%(W,M|
000013b0  29 3e 30 20 54 24 3d c3  28 46 52 25 28 57 2c 4d  |)>0 T$=.(FR%(W,M|
000013c0  29 29 3a f1 54 24 3b 3a  e7 20 a9 20 54 24 3d 31  |)):.T$;:. . T$=1|
000013d0  20 f1 22 20 20 22 3b 20  8b 20 f1 22 20 22 3b 0d  | ."  "; . ." ";.|
000013e0  07 3a 23 e7 20 53 41 25  28 57 2c 4d 29 3d 30 20  |.:#. SA%(W,M)=0 |
000013f0  f1 22 2d 20 20 20 2a 20  20 22 3b 3a e5 8d 44 4e  |."-   *  ";:..DN|
00001400  47 20 0d 07 44 46 e7 20  53 41 25 28 57 2c 4d 29  |G ..DF. SA%(W,M)|
00001410  3e 30 20 54 24 3d c3 28  53 41 25 28 57 2c 4d 29  |>0 T$=.(SA%(W,M)|
00001420  29 3a f1 54 24 3b 3a e7  20 a9 20 54 24 3d 31 20  |):.T$;:. . T$=1 |
00001430  f1 22 20 20 20 2a 20 20  22 3b 20 8b 20 f1 22 20  |."   *  "; . ." |
00001440  20 2a 20 20 22 3b 20 20  0d 07 4e 13 ed 3a f1 27  | *  ";  ..N..:.'|
00001450  89 28 31 29 22 2a 22 3b  3a ed 20 0d 07 58 05 e1  |.(1)"*";:. ..X..|
00001460  0d 07 62 0e f1 c4 37 35  2c 22 2a 22 29 20 0d 07  |..b...75,"*") ..|
00001470  6c 59 f1 89 28 31 29 22  2a 20 20 20 20 20 20 20  |lY..(1)"*       |
00001480  20 20 20 20 41 50 52 49  4c 20 20 20 20 20 20 20  |    APRIL       |
00001490  20 2a 20 20 20 20 20 20  20 20 4d 41 59 20 20 20  | *        MAY   |
000014a0  20 20 20 20 20 20 20 20  20 20 2a 20 20 20 20 20  |          *     |
000014b0  20 20 20 20 4a 55 4e 45  20 20 20 20 20 20 20 20  |    JUNE        |
000014c0  20 20 20 2a 22 20 20 0d  07 76 14 f1 89 28 31 29  |   *"  ..v...(1)|
000014d0  3b c4 37 36 2c 22 2a 22  29 20 20 0d 07 80 5b f1  |;.76,"*")  ...[.|
000014e0  89 28 31 29 3b 22 2a 20  20 53 20 20 4d 20 20 54  |.(1);"*  S  M  T|
000014f0  20 20 57 20 20 54 20 20  46 20 20 53 20 20 20 2a  |  W  T  F  S   *|
00001500  20 20 53 20 20 4d 20 20  54 20 20 57 20 20 54 20  |  S  M  T  W  T |
00001510  20 46 20 20 53 20 20 20  2a 20 20 53 20 20 4d 20  | F  S   *  S  M |
00001520  20 54 20 20 57 20 20 54  20 20 46 20 20 53 20 20  | T  W  T  F  S  |
00001530  20 2a 22 20 20 20 0d 07  8a 0b f2 70 28 34 2c 36  | *"   .....p(4,6|
00001540  29 0d 07 94 0d f1 c4 37  35 2c 22 2a 22 29 0d 07  |)......75,"*")..|
00001550  9e 59 f1 89 28 31 29 22  2a 20 20 20 20 20 20 20  |.Y..(1)"*       |
00001560  20 20 20 20 4a 55 4c 59  20 20 20 20 20 20 20 20  |    JULY        |
00001570  20 2a 20 20 20 20 20 20  20 41 55 47 55 53 54 20  | *       AUGUST |
00001580  20 20 20 20 20 20 20 20  20 20 2a 20 20 20 20 20  |          *     |
00001590  20 20 20 53 45 50 54 45  4d 42 45 52 20 20 20 20  |   SEPTEMBER    |
000015a0  20 20 20 2a 22 20 20 0d  07 a8 12 f1 89 28 31 29  |   *"  ......(1)|
000015b0  c4 37 36 2c 22 2a 22 29  20 0d 07 b2 58 f1 89 28  |.76,"*") ...X..(|
000015c0  31 29 3b 22 2a 20 20 53  20 20 4d 20 20 54 20 20  |1);"*  S  M  T  |
000015d0  57 20 20 54 20 20 46 20  20 53 20 20 20 2a 20 20  |W  T  F  S   *  |
000015e0  53 20 20 4d 20 20 54 20  20 57 20 20 54 20 20 46  |S  M  T  W  T  F|
000015f0  20 20 53 20 20 20 2a 20  20 53 20 20 4d 20 20 54  |  S   *  S  M  T|
00001600  20 20 57 20 20 54 20 20  46 20 20 53 20 20 20 2a  |  W  T  F  S   *|
00001610  22 0d 07 bc 0b f2 70 28  37 2c 39 29 0d 07 c6 10  |".....p(7,9)....|
00001620  f1 c4 37 35 2c 22 2a 22  29 20 20 20 0d 07 d0 5a  |..75,"*")   ...Z|
00001630  f1 89 28 31 29 22 2a 20  20 20 20 20 20 20 20 20  |..(1)"*         |
00001640  4f 43 54 4f 42 45 52 20  20 20 20 20 20 20 20 2a  |OCTOBER        *|
00001650  20 20 20 20 20 20 4e 4f  56 45 4d 42 45 52 20 20  |      NOVEMBER  |
00001660  20 20 20 20 20 20 20 20  2a 20 20 20 20 20 20 20  |        *       |
00001670  20 44 45 43 45 4d 42 45  52 20 20 20 20 20 20 20  | DECEMBER       |
00001680  20 2a 22 20 20 20 0d 07  da 12 f1 89 28 31 29 c4  | *"   ......(1).|
00001690  37 36 2c 22 2a 22 29 20  0d 07 e4 5d f1 89 28 31  |76,"*") ...]..(1|
000016a0  29 3b 22 2a 20 20 53 20  20 4d 20 20 54 20 20 57  |);"*  S  M  T  W|
000016b0  20 20 54 20 20 46 20 20  53 20 20 20 2a 20 20 53  |  T  F  S   *  S|
000016c0  20 20 4d 20 20 54 20 20  57 20 20 54 20 20 46 20  |  M  T  W  T  F |
000016d0  20 53 20 20 20 2a 20 20  53 20 20 4d 20 20 54 20  | S   *  S  M  T |
000016e0  20 57 20 20 54 20 20 46  20 20 53 20 20 20 2a 22  | W  T  F  S   *"|
000016f0  20 20 20 20 20 0d 07 ee  0e f2 70 28 31 30 2c 31  |     .....p(10,1|
00001700  32 29 20 0d 07 f8 0f f1  c4 37 35 2c 22 2a 22 29  |2) ......75,"*")|
00001710  20 20 0d 08 02 08 ef 33  3a e1 0d 08 0c 0f dd 20  |  .....3:...... |
00001720  a4 65 78 65 70 74 69 6f  6e 0d 08 16 14 e7 20 59  |.exeption..... Y|
00001730  20 83 20 31 30 30 3e 30  20 8c 20 3d 30 0d 08 20  | . 100>0 . =0.. |
00001740  14 e7 20 59 20 83 20 34  30 30 3d 30 20 8c 20 3d  |.. Y . 400=0 . =|
00001750  30 0d 08 2a 06 3d 31 0d  08 34 0b dd 20 f2 61 75  |0..*.=1..4.. .au|
00001760  74 6f 0d 08 3e 0b 61 75  74 6f 25 3d 31 0d 08 48  |to..>.auto%=1..H|
00001770  1e e8 22 48 6f 77 20 6d  61 6e 79 20 63 6f 70 69  |.."How many copi|
00001780  65 73 22 2c 63 6f 70 69  65 73 25 0d 08 52 05 e1  |es",copies%..R..|
00001790  0d 08 5c 11 dd 20 f2 61  75 74 6f 5f 70 72 69 6e  |..\.. .auto_prin|
000017a0  74 0d 08 66 15 e3 20 63  63 25 3d 31 20 b8 20 63  |t..f.. cc%=1 . c|
000017b0  6f 70 69 65 73 25 0d 08  70 16 f2 68 65 61 64 69  |opies%..p..headi|
000017c0  6e 67 3a f2 63 61 6c 65  6e 64 61 72 0d 08 7a 06  |ng:.calendar..z.|
000017d0  ef 32 0d 08 84 0b ef 31  2c 31 32 3a ed 0d 08 8e  |.2.....1,12:....|
000017e0  06 ef 33 0d 08 98 05 e1  0d 08 a2 10 dd 20 f2 6d  |..3.......... .m|
000017f0  61 6e 5f 70 72 69 6e 74  0d 08 ac 05 f5 0d 08 b6  |an_print........|
00001800  31 f1 22 50 6f 73 69 74  69 6f 6e 20 70 72 69 6e  |1."Position prin|
00001810  74 65 72 20 63 6f 72 72  65 63 74 6c 79 2c 20 74  |ter correctly, t|
00001820  68 65 6e 20 53 50 41 43  45 22 3a f5 fd a5 0d 08  |hen SPACE":.....|
00001830  c0 16 f2 68 65 61 64 69  6e 67 3a f2 63 61 6c 65  |...heading:.cale|
00001840  6e 64 61 72 0d 08 ca 0d  ef 32 2c 31 2c 31 32 2c  |ndar.....2,1,12,|
00001850  33 0d 08 d4 16 f1 27 27  22 41 6e 6f 74 68 65 72  |3.....''"Another|
00001860  3f 22 3a 41 24 3d be 0d  08 de 05 e1 0d ff        |?":A$=........|
0000186e

CALENDR.m0

CALENDR.m1

CALENDR.m2

CALENDR.m4

CALENDR.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .