File KUR3B.FT (FORTRAN source file)

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

2MNJ* B * B 6 WA7SKD3U/C2 WD3RZ 3AC3B3E7EWG7NOG7LOI3T;E6 R(3E3I* &1*MBJ* B * B 2 ?C3M?M3N& 7FKO3M&,3H3A3BZ,3IWL3BZ,3IWL3DZ,3IWL3EZ,3IWL3FZ,3IWL3LZ,3IWL3MZ,3IWLN*M* B * B 2 N 3O7M+OCN3L;A3F&,3A[N*,3I3I[Z3A&,3ZWF",7N*JB * B * B 3D7I7EON3I;O* I*122.2Z92)Z,3A
*(22*4&2*,N*6&72MNJ* B * B 2 WS3TWZ3NR +ECR3FOA3HGN3M;E*MBJ* B * B 2 GF+CH.1F,*)^=7DWE3TOS"	*M* B * B 2 Z 3AC*(22.16)*	CH* B " 6	*JB * B * B 3FOA/HF(*,&22=V	3N3G+I
S*MBJ* B * B 2 GF+CH.2J,*)^=+CCH* B "	*M* B * B 2 Z 3AC*(21.36)6	KF7A+N".6	*JB * B * B 3FOA/HJ(*,&3*=6	7FKO+T^.*MBJ* B * B 2 GF+CH.1R,*)^=7LSA3E;I"	*M* B * B 2 Z 3AC*(22.46)2	Z-7OSR".6	*JB * B * B 3FOA/HF(*,&56=J	7UOS+I
S*MBJ* B * B 2 GF+CH.2V,*)^=+CCH* B "	*M* B * B 2 Z 3AC*(21.66)6	KF7A+N".6	*JB * B * B 3FOA/HJ(*,&6*=6	7NWE* ^ *MBJ* B * B 2 GF+CH.1^,*)^=7LSA3E;I"	*M* B * B 2 Z 3AC*(22.76)2	:-+ECU" 6	*JB * B * B 3FOA/HF(*,&82=^	3RWI+C
H*MBJ* B * B 2 GF+CH.2",*)^=3IOS+HB "	*M* B * B 2 Z 3AC*(21.96)6	WM3S/I" 6	*JB * B * B 3FOA/HJ(*,&9*=B	* B * ^ *MBJ* B * B 2 GF+CH.1F,.06)6	WK7NSS" 6	*JB * B * B 3FOA/HJ(.,B1*)^=* B * B "	*M* B * B 2 Z 3AC*(21*1&12=2	3IWT+R
A*MBJ* B * B 2 GF+CH.2F,.16)6	WT+RB " 6	*JB * B * B 3FOA/HF(.,J1*)^=3MSE3I;E"	*M* B * B 2 Z 3AC*(22*1&22=.	3USN+E^ "M&J3FOA/HF(.,N1*)^=3SGP7NOI"	*M2IGF+CH.2F,.36)2	C* B " 6	*JB * B * B 3FOA/HF(.,V1*)^=7GOE3C	H"	*M* B * B 2 Z 3AC*(22*1&52=N	3HWT* ^ *MBJ* B
* B 2 GF+CH.1F,.66)6	KE7DWKN6	*JB * B * B 3FOA/HJ(.,Z1*)^=+DCE* B "	*M* B * B 2 Z 3AC*(21*1&76=^	7ISR+S
C*MBJ* B * B 2 GF+CH.2F,.76)*	;H7WOI".6	*JB * B * B 3FOA/HF(.,"1*)^=7S+O3I3O"	*M* B * B 2 Z 3AC*(22*1&82=>	3GWI* ^ *MBJ* B * B 2 GF+CH.1F,.96)2	GP3EGDG6	*JB * B * B 3FOA/HJ(.,&1*)^=3O	G+KB "	*M* B * B 2 Z 3AC*(21*2&06=B	3H3I+O
S*MBJ* B * B 2 GF+CH.2J,.06)6	CO3HWI" 6	*JB * B * B 3FOA/HF(.,J2*)^=7MSA3H7E"	*M* B * B 2 Z 3AC*(22*2&22=F	3T/I* ^ *MBJ* B * B 2 GF+CH.1J,.36)2	P3Y	SK6	*JB * B * B 3FOA/HJ(.,N2*)^=* B * B "	*M* B * B 2 Z 3AC*(21*2&42=N	3H7E+I
E*MBJ* B * B 2 GF+CH.2J,.46)*	B * B " 6	*JB * B * B 3FOA/HF(.,V2*)^=3B?I3L
O"	*M* B * B 2 Z 3AC*(22*2&52=&	+EB * ^ *MBJ* B * B 2 GF+CH.1J,.66)2	;I7FKOM6	*JB * B * B 3FOA/HJ(.,Z2*)^=3A	T+KB "	*M* B * B 2 Z 3AC*(21*2&92=V	7VJ.+E
L*MBJ* B * B 2 GF+CH.2J,.96)2	
I3I;O" 6	*JB * B * B 3FOA/HF(.,B3*)^=7KSA2.WR"	*M* B * B 2 Z 3AC*(22*3&02=2	3I	G+O
N*MBJ* B * B 2 GF+CH.1N,.16)6	OP3YCO6	*JB * B * B 3FOA/HJ(.,F3*)^=3L
O+ICE"	*M* B * B 2 Z 3AC*(21*3&26=N	7PKO+T^ *MBJ* B * B 2 GF+CH.2N,.26)*	B * B " 6	*JCC* B * B 3UKE7ESR3R
A3U
N2 WD3RZ 3AC3N7A+ECN3V;O2 GF+CCH3NOA3H& .(J1.,GK")*M* B * B 2 & 3T7E"=60*JCS* B * B 7JCM2 ?GO7N2J/S7OON+TB,3\GFC7H6J+S3AE+LB,"0*M3S?G+O3N6 R +ACD3K;OS7T*JCS* B * B 3DGC2 GZ3E3H*MBJ* B * B 2 ?D. B1. GK*=21.2J56MNJ* B * B 2 GT3D& 2 GZ3E3H6MNJ* B * B 2 OD7A2
3IWTM*M+SB * B 2 & +NCC3ZWAH7L.JB1* B * B /IF(22.,.16)3IWTM*M* B * B 2 N 3A3L2 C3A;I* ^(7KKU*3
C")*M* B * B 2 V N7D"J*MBLBZ

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