File KUR2.FT (FORTRAN source file)

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

2MNJ* B * B 6 WK7R
S3A3H* B-3D[E2.R 3AWT3I;E* B-3E;I7LOE+ECN7KKA3T;E*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",7I*JB * B * B 3D7I7EON3I;O* I*122.2Z92)&,.1Z(.,&2"66)*JB * B * B 7ICS/A7C.-B2
166*JCC* B * B 3E;I7LOE/E+N2 3K7AOS7EON3T[U3E",3AKL3JAR*M* B * B 6 ^ 7RSI/EF(.,B220&)3SGPC6,.JB2*0B * B 7FKO7MSA*(^/3KGL3SWS7NSS3UWF*:2	+A&2*MBJ* B * B 2 WR+AD.1J,*1&03I?FR7M.JF2*0B * B 7FKO7MSA.(KA")*M* B * B 6 ^ 7RSI/EF(.,J220&)3SGPC6,.JJ2*0B * B 7FKO7M
A*(^/3H3A3BGJ/H+R* B * 2	+A&1*MBJ* B * B 2 WR+AD.1J,*3&03IGHL7B.JN2*0B * B 7FKO7MSA.(GA")*M+CB * B 2 J 3EWR3C;H+ECN7DKE2 GD3T	E3N7AE7N*JB * B * B 3F3I/E7B"0*M* B * B 2 Z 3IWL/DB=*MBJ* B * B 2 	F3LWE"=60*JB * B * B 3F3I/E7F"0*M* B * B 2 Z 3IWL/LB=*MBJ* B *
B 2 	F3L7E"=60*JB * B * B 3F3I/E7N"0*M+SB * B 6 R +ACD3\I3AKL6MNJ* B * B 2 ;A+D" .7B7"0*M+SB * B . ^ .1J06MNJ* B * B 2 GT+D" .2B06MNJ* B * B 2 OD7A2 3F3IE7B*JCS* B * B 3TSA2 [\3IWLB*M+SB * B 6 R +ACD.(B2"0*M+SB * B 2 R +CCA3\	F3LSE6MNJ* B * B 2 GT7D2 3F3I
7D*JCS* B * B 3TSA. F("060*JCS* B * B 3DGC2 [\3IWLE*M+SB * B 6 R +ACD3\	F3LWE6MNJ* B * B 2 GT+D" .1B06MNJ* B * B 2 OD7A2 3F3IE7F*JCS* B * B 3TSA2 [\3IWLD*M+SB * B 6 R +ACD.(B1"060*JCS* B * B 3DGC2 [\3IWLL*M+SB * B 6 R +ACD3\	F3L3E6MNJ* B * B 2 GT+D" .1B06
NJ* B * B 2 OD7A2 3F3IE7M*JCS* B * B 3TSA2 [\3IWLM*M+SB * B 6 R +ACD.(B1"0*M+SB * B 2 R +CCA3\	F3L;E6MNJ* B * B 2 GT7D2 3I?FR7M*JCS* B * B 3DGC2 [\3IWLB6*JCS* B * B 3TSA2 	\7FKOM*M+SB * B 2 R +CCA3\	F3LSE"*M+SB * B 6 R +ACD3\[I3O7R6MNJ* B * B 2 OD7A2 3F3I
EOE6MNJ* B * B 2 GT7D2 3I?FR7M*JCS* B * B 3DGC2 [\3IWLF6*JCS* B * B 3TSA2 	\7FKOM*M+SB * B 2 R +CCA3\	F3L3E"*M+SB * B 6 R +ACD3\[I3O7R6MNJ* B * B 2 OD7A2 3F3I+EOM6MNJ* B * B 2 GT7D2 3I?FR7M*JCS* B * B 3DGC2 [\3IWLN6*JCC* B * B 3F3E7DKE2 ?L3EOS3H;E*MBJ* B 
 B 2 ?D* B1/K61.1J,"966*JB * B * B /IF(.,GK.)B=.MFJ* B * B . GI*(21+K&1"=60*JCC* B * B 7KKA3T;E3E;I7LOEE7N*JB * B * B /NF=.MVJ* B * B 2 WR+ACD*(23*1&0/IF(*,	N.,GI*(22+N2)+I"123:,2)&,.1R(*,	N.,GI*(25+N2)+I"126:,")*M* B * B . F *,I22:,2)&,*(23+N2)/IR(*,	N*,
25:,2)&,*(26+N2)/I^(*,	N*,I28:,2)&,*(29N6)*JB * B * B 22&,.(B1*,	N*MBJ* B * B 2 [I2 &(*(21+N&)*220*320"260.JB2* B * B +I"121:,2)&=*(21N6)*JB * B * B 3N:="+61*JB * B * B 7GSO/OV .MNJ*0B * B 6 WN3M:="-61*JB * B * B 3W	R+TCE*(21*4&03N7U.MFJ*0B * B 2 ?F3RGM+T
 +I23.2GI.,KI2,&2.1F,.0KI")*M*4B0* B 2 Z 3O7R+ACT2(&/*3^,2 GK3RWT3NV 3I
N3EWL3S;E*	&/*MBJ* B * B 2 GC+LCL7OCO+ECN* ^(3DGT*12	3F3I+E	F*MBJ* B * B 2 ?D. B120. .1F=.,&2"6*M* B * B 2 R /OF *0B0/K62.1Z,.MFJ*0B0* B 6 KW3IWT. R(.,F220&)21.(22.,"16)*JB * B * B 3C3A3L> 3C?LS7E*JB * B * B 3C3A3LN 3H	A+N" 6	WK3RF2"	6)*JB * B * B 3ESN"M6
&J*

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