File CALEND.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

+C6-2 N 3AWL+NCD* B-6 KP7ISN2 GC3L;E7DKA2 WY+ACR+OCF7YWO3RN 3H	O+C;E2MNJ2MNJ* B . F .9J72 	M3CGH+ECL3HOUK*MC*M3C6I3O	D3FWI3DJ 3Y^ 7EKO+GCE3G;O3Z3A+E3Z6 WJ+LCY.1^9"8*M+C6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*
6-"-6-"J*M2I;I3T
E+ECR7D	A.(J4.,F "46)2J&I3NWT7GKE2 GD3Y7S7OSN/HF(*42)6 WN3MWS/GV(.,F *02)2 GD3Y	L/TN("26)2J&I3NWT7GKE2 WY+A3R2 WW3KGD+YB,3U	NT*M2IWR+ACL3L;I3S
E.(Z1*)B,3M;O+TH*2B,*1&2"M&J7DSA3AR 7AOY3M;O+T?H*321*321*228*321*320*321*320*321*321*320*321*320*321*3>1"M6J2JRI3AGT6 WN3MWS/G&/*,26.6Z,*,29*123.9F,.3F,.3",*,29.6F,.3F,.1F,"66,*JB * B .1& .,R1*,28*124.9Z,*,26*126*124*124*126.7F,.,R1*,21.9^,*,21.6&,",*M* B
. J . Z1.,R1.,N1.,F1*,27.9Z,*,29.6&,*,29.6",.,R1*,>9"M6J2JRI3AGT2 	L3NWSG6/*JB * B .1R +HR$*$2 2 "4*$B$*$B,*4SH*$B .,R +HB$*$2$2 "4*$R * B,*MBJ* B * B2*4SH* R .,R +HB$* 2 2 "4* R$*$B,*4CH*$B$.,R +HR * 2$" *M* B . N 2 "4* B$* B,*4CH* R$.,R +HB *$2 2 "4* B 
$B,*4CH* B * B,*4SH*$R$" 6/"J*M2IGD+TCA7D	A7LSI*/B	*12	.	J *	^,* ^3*,B	*42	.	V *	^,* ^6*,B	*72	.	" "	6,*JB * B *1^ * ^9.,F	*02	.	F1*	^,*1^2.,F	*32	.	R1*	^,*1^5.,F	*62	*MBJ* B * B2.	^1*	^,*1^8.,F	*92	.	B2*	^,*2^1.,J	*22	.	N2*	^,*2^4",*M* B . N . J	*52	.	Z2
	^,*2^7.,J	*82	.	&2*	^,*3^0.,N	*12	.	J3*	> "M6J2JRI3AGT2 ?M3NT* B/*	B 3J;A*	^,7UKA+Y^ *,B	2 WF+B2	6	WR7A	R*	^,2 GM+R
C2,"	* B * 2	*MBJ* B * B1*	B 6 CA*	^,3R3I* ^ *,B	* B +M2	6		A* B *	^,2 * +U
N2,V	* B * 2	*MBJ* B * B2*	B 2 * *	^,7U	L* ^ *,B	2 F +U2	6	WG+SCT*	^,2 WS+P
T2,V	3MWB+R2	*MBJ* B * B3*	B 7OSC*	^,3OWB+R^ *,B	2 ?N+V2	2	7E7BKE*	^,2 R +E
C2,V	3MWB+RB	"/*M"M&J3U	N/T6 " &1*IC7OSU7PSU2 ?T6 STY*M"M&J3W	H+LCE*(: 7TWR+EB.")*M6IKW3IWT*(21. B1")&I3F +SCK7FKO2 WYA7R6JJI3ESA*(21. B22)WYA7R2J&I7F&(7EKA2 2.+EB.*0B)3S?TP*MC*M+C6-2 R 3EWT3R	M+NCE3LGE7P& 7EKA".*MC*M+CB 2 2 7ECA2 WY7AOR6 KA7E& 7EKA3SR 3I
V3SKI+LCE+BCY24V 3XWC+PCT3YGE+RCS3ESN3I
N2MNJ* B 2 ;I. B02 T+ACT3C;A7NSO2 WB2 	D7VOI3I3B3EJ /YR *0:02MNJ"M&J+IF3MSO2(WY+A3R* &42 V.+QB.*0: 3ASN".*M* B * R 2 :.+O;T* B(3MSO2(WY+A3R. B1*0B)6.GE..B 2 F.+N;D2 ?M7D&(7EKA.,R *0&02 :.+EB.*0&)2 TE7N*JBI2 R 7AOY3M;O+TH*3B).=J "9*M2I3ES7E*JBI2 R 7AOY3M;O
TH*3B).=J "8*M2I;E3D[I2MNJ2MNJ*-B-2 WZ3LWL7RN	2 ?C7NKG3U;E+CCE* C[+ICT*=6 3MSO* :.6.6 2MNJ2MNJ* B * CF*=" 7ISN*(:2*67M.0J.*). * CK2+R * B+/DR/* B+/CR/2-N22)6 +OCD"7*MC*M+CB 2 . * B=7D	A2 [O2 ?M3NT2MNJ* B * CC2=: 3UKM+ECR+OCF3H;U3DWR+DCS+ICN3TWH2 WYA7R*JCC
 B /D6 2 WY+ACR+ICN3TWH2 WC7NWTR7Y*JCC* B /M6 2 ?M3NT6 WN3MWB+R" *1B,7MKA+C	H. J(2,F 3P	R+LB)*.:.. F(*0B,3DOE3EKM+E	R2MNJ*IB .(F12,* 7AWN7A	R*)" *1222 WF7BWR7A	R")*M+CB 2 Z * B=*(206 WS+NB)*(212 ?M+NB)*(226 WT+EB)*(232 WW+DB)*(242 T+UB)*(256 KF+IB)*(262 G
T6)"J7C*JCC* B 3EGX3M3P+EB:2 OO/TF *2B,.1V9"66."J7C*JCC* B /K6 . J12,N * B=*129* CD.=V *6B,/M6 * B82 T+ECN* CF.=V 2 Z(3RSI+A	Y".*MC*M2IGL7S	T7EKA* B=3YGE+R6 " 612J&I.26 2 GL7S	T7EKA* B/.1B0"M&J+IB32=6 +OD7LOA3TWY+A3R. B1"06)6J^I3ESK+ACY*=6 3MSO.(Z2* B++I>
*4. . KI*/B42+& .3J-* B*+I22* &7"M&J+IF3W/E7D	A2 V.+QB.*0B)3W/E7D	A* B=3W/E7D	A* B-"7*MC*M+C6-6 N +ECT3C3A3ESN+ACR7DSA+ECS+ICN7AKR+ACY3F?R3MR 3EWC3MWB3R> 7FR +HCE3YGER*M+CB 2 J 3E?F+RCE+TCO3J;A7UKA3Y> 7FR +HCE3YGE3RF 3FWT+R" 7TSO+ACL+OCF*1B43M;O7TOH")6."J
C2JRI/O> * CJ.=F .,F 24BI2 ?F3RF +LCL3M;O7TOH"M&J* B 3I	T* B=2-WW3KGDY*M*IB 2 +J* B=7D	A3S?M3NT*(	J"M6J*JBI2 R /O> . KJ* B=*1B,"4&23Z +OCR3A3L2 GDY7S"J&I3W/E7D	A* B=3W/E7D	A* B+"1*M2I&I7F^(3ESK+ACY6.SG..B 2 F.+N;D2 WW3KGD+Y: +L;E2 +J")*M*IB * B * B * B 2 
D3Y*(*2B,+JB)2=R 3A3Y+IT3W/E7D	A")*M*IB * B * B 7EOLE*M*IB * B * B * B 2 GD3Y*(*2B,+JB)*=^ * ^ "M&J* B * B 2 V 3N	DF*M*IB 2 ;E3D?D2 BI2 ?F3RF +LCL7D	AS*M"M&J* B 3W/E7D	A* B=2-?M3D*(+J. 6 SI+IB,"76)2JVI3NSD3OBI2 ?F3RF +LCL3M;O7TOH2MNJ2MNJ*-B-6 KP7ISN6 WO3T
 3LOO3K: 3UKM7EOR2 ?F7R& 7EKA2 WH3AWDR6."J7C2J.I.16 2 WY+ACR./F "0*M.ISK* B=3MSO2(WY+A3R. B1*). " 612J.I.36 2 ?M3D.(*1B,*1&0* B+"1*M.IGK* B=+KB1./F "0*M.IKK* B=3MSO.(GK.,F *0B).+F "M&J+KB12=. *1> . B1* B+"1*M6IKW3IWT2(;U+I3T. B3")*M"M&J+DCO2?: * B=*1B,"5*
*IB . GN* B=3N7U3S
E*(3N. GK")*M*IB . KN* B=3N7U3S
E*(3N. KK")*M*IB . ON* B=3N7U3S
E*(3N. OK")*M*IB . SN* B=3N7U3S
E*(3N. SK")*M*IB 6 KW3IWT2(;U+I3T. B42)	L3NWS3G:(*12)2 	L3NWS3G:(*22)2 	L3NWS3G:(*32)2 	L3NWS3G:("46)2JVI3NSDO*M2MNJ2MNJ*-B-6 KP7ISN. J12 ?M3NT3S> 7FJ 7EWQ7ESS+ECD3YGER6."J7C6J^I7RSI7EV(7NSI.,V "06)"J*M2I?D* B?/J6 * 22. N1.,N "M&J* B 3W	R+TE3U	N+TB,*6&0"M
J* B +NB12=* * B-"1*M*IB . KN* B=+J. " 61*JBI6 ^ 7RSI7EV(7NSI.,^ 206)7OSN/HF(2,: *12)2 ?M3NT*(22. GN*)B,3M;O+TH*1B,+J2)" *M* B * R * B 2 6 7OSN/HJ(2,* *)B,3M;O+TH*1B,+N&22,6 7OSN/HJ(2,: "26)*JBI2 R /O> * CL.=F .,R *2B,"7*M*IB * B . GN* B=+L. " 66*JBI* B 6
^ 7RSI7EV(7NSI.,B8*)" 7D	A*(3M+J2)/M6 * 3L+N&12,R(+AY3M*,* B+*12)/M6 * 3L+N&1",*M* B * R * B * B 2 R(+AY+MB,+J. * &22,6 * B=+LB,+N&1"M&J* B 3ESND7O2JVI3NSDO*MC*M+C6-6 B 3R;I3T6 7OSN3HJ 3E?F+RCE3ASN2 [A7TKE2 WY+A;R2MNJ"M&J3W	R+TE3U	N+TB,*6&0"M&J/N6 2 WY+AC
.+F "M&J3W	R+TE3U	N+TB,*9&03M;O+TH*1B,*1&22,6 7OSN/HJ(.,F *22)2 GL7S	T7EKA",6 *JB * B *$B 3M;O+TH*1B,*12)2 ?M3NT*(22* &12,: "M&J+DCO2?2 * B=*1B,*422" 67*JBI2 : .16 * CL.+Z "M&J* B 3W	R+TE3U	N+TB,.1B02)R(+AY+MB,*12)* CM2=2 2,: *12)2 R(+AY+MB,*1&42,6 * B=+L
,+N&1"M&J3ESND7O6J^I7RSI7EV(7NSI.,Z "06)6J^I7RSI7EV(7NSI.,V "06)2JVI7N
D3H3IE*M.MFJ20ZI3O7R+AT2	;I7PSU2 WY+A
R")*M"2&07FKO7MSA.(SI")*M"3&07FKO7MSA.(F	*	>,*/>/")*M"4&07FKO7MSA.(B2/XR,6("3.,SA")6).JB92I?F3RGM+T^(* ^6,"62,F225&,.5",+X^,*2	*83X*	^6,"62,F225&,.5",+X^,*2	"/6,*JB * B *1^ * ^6,"2.,Z2*(6	*	2)*	N .	",+X^,*2	*23X*2"6*	^-*)^,* ^*,2/*MBJ* B * B2*	N * B +SB *
CM6 R * B +WB * CT2 Z * B +SN .	",+X^,*2	*33X*MBJ* B * B3*	CS2 6 * B +TB * CW6 R * B +FB * CS*&	.MFJ"0&07FKO7MSA*(B	*2	.7J(3XF,*22)*	N .	",+X^,*2	.7J(3XF,*22)*	N "	6).JB62I?F3RGM/TF(/X^,*0^(*&	")*M"7&07FKO7MSA6("1*,"3*	^6,"62,F2.5Z,+X2)*	^*,2/*13X*3^(*^ .
B2*(6	*	2)*1	X*,N	"	6,*JB * B *1> 6,"1*,"3*	B* CS* CM* CT* CW* CT* CF* CS*	2)*	^")*M"8&07FKO7MSA*("3*	N .	^,6("1.,KA*)2)*	N "	6).JB52I?F3RGM+T>("/6)2JVIN7D&J*L

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search