File KRANK.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN6 KK3A/N2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 7ESS2 ?C3RWR7LSA3I;O2 WB3TWW+ECN3T?W2 GV3RGI3BWL3SJ 3Y6 3E;A3S> 3F. 
ESN3A3L2MNJ* B * B * B 6 J 3A/N2 ?C3RWR7LSA3I;O2 ?C3E[F3I	C7ESN2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3L. 3R;A3KF(*,3B3R:,2,GT7UN,7D*,6,KN")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +AB * B-7ICN+UCT3VOE7TKO2 [O* CN7OOB7E[R3A	T7OON2 ?F3RZ 7IOR7TZ 3A	R3A3BE*M+CB * B * B * B +BB * B-7ICN+UCT3VOE7TKO2 [O* CN7O
B7E[R3A	T7OON2 ?F7RN 3E?C+NCD7VKA3IKAL7E*JCC* B * B * B * CR* 6 6 WO7TWP7TZ 7ESC+OCR+OCF3R;A3KSE2 GD+TCA+OCF3L;E3GT* *2+NB.3SGM3LWLS7T*JCC* B * B * B * B * B 2 KO7SKE7VSA3I;O6 OI2 GR3NWK/DF 2,2 3A
R7ESS6 OI2 GR3NWK3D: 6.R 7IOE2MNJ* B * B * B * B * B 2 F +RCE7AOS3I;G+ECD3AWV3R
A3E> 7FR 3ISE2 GR7NOK".*M+CB * B * B * B +NB * B-3N7U7BKE2 [O2 KO7SKE7VSA3I;OS*M+CB * B * B * B 7TWA* B-3K;E3D3A7LJ 3A/N2 ?C3RWR7LSA3I;O2 ?C3E[F3I	C7ESN2 >(7UCT+U	T2MNJ* B * B * B 6 N +DB 6-N 3T;A7DKA3DR 3E	V3A	T+OCN6(WO7TWPT6)*JCC* B * B * B * CZ* 6 2 WT
SCT+OCF3S
I3N[I3IGC3NWC2 [O2 GT3U& 7NR 3E7R3S> 3F: 3O7RA7L*JCC* B * B * B * B * B 2 	D7SKT7IWB3T?I+N" 7OSU7PSU")*M+CB * B * B * B +NCR* B-3CSO+EB,20Z +OCR7UKN3A/N+ECD7DSA3A& 3NF 2 ;A3DJ .,F 2 ?F7RJ 3A/NE7D*JCC* B * B * B * B * B 2 GD+TCA+ICN3AF +NCD+B" 7ICN+U	T2MNJ
MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 N 3DF +NCD3ZF +RCE7SSE2 ?T2 WZ+RCO+ICF3N& 3S2 7EOS2 T+ACN3T;E2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 GRN7K*JCC* B * B * B 2 	TE*MC*M+CB * B * B 7MSE3HSO2MNJ*
B * B * B 2 R 3EOS3RKI+ECD+ICN+SB.3SWI3G3E*,^ 3N;O7PKA3AWM3T	R7CN 7TSA7ISS7IOC2 ?F7RR H7E*JCC* B * B * B 2 WB7H[A7IKO+ACL3S	C3EON+E
S2,6 7CKG+A7W3H3I+LB,7N
E2 ?Y+R3K. &1*5262MNJ* B * B * B 2 N 7HCA7TKE" 69"J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3E. 3R;A3KF(*,3B3R:,2,GT7UN,7D*,6,KN")*M* B * B 3D7I7EON3I;O* A*12)/BF(6)J,*(&1
MNJ*MBJ* B 6 N /DB=".60*JB * B . 7Z.0B.*MBJ* B 2 Z 3N:=*MBJ* B 2 Z /N61+N"*/NF-")*MC*M+CB * B * B 7DSE3E7R3IWN2 W3ET+ECR7DSA3A& 7SJ 3A/NE7D"J7C*JB * B 2 [I6(KN*-&1* 25. B1.,V 2MNJ2MNJ* B * B 6 J 3A/N2 GD+TCA+ICN3AF +NCD7BZ 7ESC7OOR2 ;A3DF 3S	S+GCN3TWI3D> 
BWS3RGV3T?IN7S*JCC* B * B 6 [A3EGR+GCE+OCF3TWI7DJ 3A/NS*MC*M* B * B53C3A7LJ 3A/N2 F(*,3RN6)*JB * B 2 GC+LCL3R;A+K" 7BJ,*(/N*12)N6)*JB * B 2 ?G2 ?T. B42MNJ2MNJ* B * B 2 6 3OWV2 GR3NWK3DR 3AGT2 ?T* CR3VOE7TKO2MNJ*MBJ. F 20R /OJ 20& *=21N*M* B *2B03R&(2)F=*(
I*MBJ* B 2 R /ON 20& *=21N*M* B * B 3J&="+7N*JB . B3* R/J6)3B&(")*MC*M+CB * B * B 7SKO7TJ 3A/N2 WV3C?T7RJ 2 ;I2 WS3QWU3NWC2 [O2 GV3RGI3BWL" 7A"J7C*JB . B46 OI7OSR"=60*JB * B 2 ?D. B5. 7I22:,*MBJ* B 2 & 7FJ(*(	I*-R/IF-*)B)*425*520"560*JB . V46 OI7OSR6=OI7O
R"+61*JB * B 6 OR3AWV*=RI6)*JB * B * R/I6)3R&(*-&1*MBJ* B 6 J *(7I.16)3RGSV7E*JB * B . KI*=/IN*M* B * B 7S[A/E7R3R&("26)*JB * B * R+I&2*=R+I62"16)*JB * B * R+I62.16)7S[AE7R*JB . B52 ?C3N	T3NWU*MBJ* B 2 & 3F&(7SKO+TB)*420*525"460"J7C*JCC* B * B 2 ?C7MWP+TC
3S> 7NZ 3A	R3A3B3EJ 6.N 7TKA3T;I7G^ 3IT2 T3EZ 7IOR7TJ 3A/N2,F +DCD"1*M+CB * B * B +TCO3SZ +OCR3EOA3H2 3A
R+ECR3R;A7KR 3O& +TCS3R
I+HCT3ASN6 WS7BKT7ASC* B17FKO2 GEC7H*JCC* B * B 2 7S3A3L+ECR3R;A+KB.2 WR3PGE3TZ +OCR3A3L2 GR7NOK".*MC*M* B *5B5/SB=".60*JB * B 2 7N*=7N"1*M* B * B +DCO*6B0/IF=2,7N*MBJ* B 2 * *=/NI*M* B * B +DCO*6B03L&=",7N*JB * B . 7K3N2+*MBJ* B 2 & 7FJ(*(	K*-R+J&). Z5.,
6.,^5*MBJ. V 66N *=7S.1B.*MBJ* B 2 ^ 7OR /OZ "0*M* B *5B77SN=*+:1"0*M* B *6B03C;O3T;IU7E"J7C*JCC* B * B 2 ?C7MWP+TCE3TWI7DN 7CKO3E& 3NWD3XZ +OCR7BSO7HZ 3A	R3A3BE7S"J7C*JB * B 6 SK"=62*JB * B 2 GC+LCL3TWI*(3R3N.,7TR,A6)*JB * B 2 GC+LCL3TWI*(R/NF+2):,6,SK2,
T")*MC*M+CB * B * B 3C7O7PSU7ER A7U"J7C*JB * B 2 [I2(GT.)^ .0Z,.5^,"0*M* B *6B5+IF+T	B. B7.,^6.,B7*MBJ. Z 67R /A7U+S"/.0V.2*;F"16)*JB * B 2 ?G2 ?T. B8*MBJ. ^ 60R /A7U+S"/6(GS+RT.0V.2*;F61R-+A&)6*N(7QSR*(:025Z*+N61+T	B")6)"J7C*JCC* B 2 ?C7MWP+TCE3SGT3NGD+R
D7D[E7ISA3I;O2 ;A7D* 2 [I* CN+ICS*1B0+OCR7LKA7GKE2MNJ*MBJ. " 20& 3F:(.-B1.)& .0",.5","5*M* B *8B5/S7D6(GS+RT*(:2*0"*+F/N+F/N.5B.*)>)*(:920Z*+N&1")6)*JB * B . 7Z7TWA2/SS*MBJ. & 60J 7EWTR7N*JB * B 2 ;ED*M"ZB"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B
B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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