File FORTRN.TM

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

7FKO+TCR*M>J* B * B 3C7O3M;O2 GLN7F*JB/* B 2 R 3IWM3N	S+OCN3N7A/EF(*02)3IWF+LD*1&62,I3I[L*(&5*M>J* B * B /IB=2MRJ+CCA\7I*JB/* B 2 N 3A3L2 ?I3P;E2(R	/TCA*	^,3W3O+F
G")*M3C3A/LJ 2,?I3P;E2MFJ+RCG]636JKA7G6 "6*M*/B * B 2 GC+LCL7OCO+EN2	/R+B^12,F	7BSI+U
R")*M3C3A/LJ 2,?O3P;E2MFJ+RCG/]F12MFJ+RCG/]R1*M>J* B * B 3IGZ"=602JOD7A2 3IGZ*M>J*5B * B 3RGE/DR(.,B12):(3AWM*(	K.,7K.1F,"06).JW\2,N 3A3L* 223RGED*M3A
R. R(2MFJ+RCG/\B12MRJ+CCA\7K2JG^2,& +SCZ\7K2JGT7D2 K*M3CGI" *M3TSA. F("2*M3SOP" *M7JCM2 K^2MNJ3A3L* 223SKUS7C6JKA7G2 K*M3A
R2 ;\3AWM6M:JC*M3C3A/LF 2,?IH*M+^3C6 KA/GB 2M*J+MCP^7A2JK^",6 2JGC+LCL21&,O7H6JKA/GB *M>J*1B0* B 7FKO7MSA.(B1+A&22M*J+MCP^7D6JCC3AWG" 64.JG\*0B,.5Z0"1*M.6B0"1*M.6V2"1*M"0*M+^3D" *M*/B * B 2 WR+AD.4J,*0")3IWF+LD+K2)/KF=.,Z1")*M3C3A/LJ 2,WRA7D6JKA+G" "4*M3A
R. K\"0*M3DGC2 /\6M:J+EB,7I+S2 /\6MRJ+ACD\7K2J	CA6 2JGT+D" "2606JCSC6 2J7J7P: F*M3C3A/LJ 6,WS3BOS2MFJ+RCG\7K6JKA7G2 3IWFL7D2J
^2MNJ3A3L* 213IO6M:J+GB,3A
R" 602J7J7P: E*M+^3F" *M3C3A/LF 2,?IH*M3A
R" 60.JJ/*0B 2 Z 3O7R+AT24F(*2&/*,"225&(.4F,*0	X*/2)+I2461"0.,SI")*M7JCM2 ^2MNJ3P
A/EJ "1*M/\B2.,V .0R6.MVJ.0F0.MZJ.2^5.MVJ.1R5.MZJ.2B5.MZJ.5B5.MFJ.1R6.MVJ.4F6.MZJ.0B3.MVJ.1^5.MVJ.1R5.MFJ.1R6.MVJ.4F6.MZJ.0B3.MVJ.4F1.MZJ.4F5.MBJ6M:J+HB,*M>J* B * B +IF3N7A/EF(.)N-*3&4. B3.,B4.,B32MNJ3A3L* 223SKUS7C6JKA+G" "1*M3A
R2 ;\3AWM6M.J"0*M3TSA* CI[602J	CA6 2JGT+D" .5Z12MNJ+ICA6MNJ+NCA3CGL" *M7JCM. S\"0*M7JCM. O\"0*M./B4* B 2 [I2(GN+ME*26).2F6.)N .0V,.0N,"0*M/\B42,N 3A3L* 223SKUS7C6JKA+G" "2*M3A
R2 ;\3AWM6M.J"0*M3TSA* CI[602J	CA6 2JGT+D" .4V02MNJ+ICA6MNJ+NCA3CGL" *M7JCM. W\"0*M7JCM. O\"0*M./B5* B 2 GC+LCL3O3C3OWS6M2J*5202 GC+LCL20>,3C?LS*M*/B * B 2 GL/N7F.1&46-+IA*M3TSA2 	\Z7A2J	CA6 2JGT+D" .2V22MRJ+CCA3\GLN7F*JB/* B 2 N 3A3L2 C3A;I2(F	+B^8")*M3C
A/LF 2,C3A;I2MFJ+RCG/]^1*M>J* B * B 3S?TP*M3C3A/LB 6,EI7T.JN/*0B 2 & /Z7A3IGZ"+61.JO\*0B,3IOA" *M3TSA2 	\Z7A2JOD7A2 3IGZ*M>J* B * B 3I	H+LF.16)3IWF+LD"66)2JGC+LCL62N,7UOBC*M3A
R. F(2MFJ+RCG3\I3I[L6M.J"0*M3C3A/LJ 6,WS3BOS2MFJ+RCG"(666JKA7G2 3IWFL7D.JG[6MRJ+ACD7I. "1*M3DGC* CI[60*JB/* B 2 & 3H3I/FJ(2)&=3F3E/D^(")*M3C3A/LJ 6,WS3BOS2MFJ+RCG"(626JKA7G2 3I	HL7F.JC[2MNJ3A3L* 223SKUS7C6JKA+G" "7*M3A
R2 	\3F3ED*M[612JGT3D& . G[2MRJ+CCA7I. "0*M*/B * B 2 I3I[L*(&32=[I3ESL*(&92MNJ3A3L* 223SKUS7C6JKA+G" "3*M3A
R2 	\3H3IF*M[602JGC+LCL62N,7UOBC*M3A
R. F("1*M3A
R2 	\3F3ED*M[612JGT3D& . G[2MRJ+CCA7I. "0*M*/B * B 2 I3I[L*(&42=[I3ESL.(B1")*M3C3A/LJ 6,WS3BOS2MFJ+RCG"(646JKA7G2 3I	HL7F.JC[2MNJ3A3L* 223SKUS7C6JKA+G" "1626JKA7G2 3IWFL7D.JG[6MRJ+ACD7I. "1*M3DGC* CI[60*JB/* B 2 & 3H3I/FV(2)&=3F3E/DF("36)2JGC+LCL62N,7UOBC
M3A
R. V(2MFJ+RCG3\I3I[L6M.J"0*M3C3A/LJ 6,WS3BOS2MFJ+RCG.(V12MFJ+RCG3\[I3ESL6M.J"1*M3TSA* CI[612JOD3A& . C[*M>J* B * B 3IWF+LD.56)3IWF+LD*5>)"3*M3C3A/LJ 6,WS3BOS2MFJ+RCG"(656JKA7G2 3IWFL7D.JC[2MNJ3A3L* 223SKUS7C6JKA+G" "5*M3A
R2 	\3F3ED*M[612JGT3D& . G[2MNJ3A3L* 217D[I2MFJ+RCG"(632JOD3A& . C[*M>J* B * B 3IWF+LD.66)3IWF+LD*8>)"3*M3C3A/LJ 6,WS3BOS2MFJ+RCG"(666JKA7G2 3IWFL7D.JC[2MNJ3A3L* 223SKUS7C6JKA+G" "1606JKA7G2 3IWFL7D.JG[6MRJ+ACD7I. "1*M3C3A/LF 2,	DV*M3A
R. N(2MRJ+CCA7I. "0*M*/B * B 2 [I3ESL*(&72=[I3ESL.(F1")*M3C3A/LJ 6,WS3BOS2MFJ+RCG"(676JKA7G2 3IWFL7D.JC[2MNJ3A3L* 223SKUS7C6JKA+G" "1636JKA7G2 3IWFL7D.JG[6MRJ+ACD7I. "1*M3DGC* CI[60*JB/* B 2 & 3F3E/D"(2)&=3F3E/DF("46)2JGC+LCL62N,7UOBC*M3A
R. F("0*M3A
R2 	\3F3ED*M[602JGC+LCL62N,7UOBC*M3A
R. F("6*M3A
R2 	\3F3ED*M[612JGT3D& . G[2MRJ+CCA7I. "0*M*/B * B 2 [I3ESL*(&92=I3I[L*(&12MNJ3A3L* 223SKUS7C6JKA+G" "1616JKA7G2 3IWFL7D.JC[2MNJ3A3L* 223SKUS7C6JKA+G" "1*M3A
R2 	\3H3IF*M[612JGT3D& . G[2MRJ+CCA7I. "0*M*/B * B 2 [I3ESL.(B12)&=3H3I/FN(")*M3C3A/LJ 6,WS3BOS2MFJ+RCG.(J12MFJ+RCG3\[I3ESL6M.J"0*M3C3A/LJ 6,WS3BOS2MFJ+RCG"(636JKA7G2 3I	HL7F.JG[6MRJ+ACD7I. "1*M3DGC* CI[60*JB/* B 2 & 3F3E/DF(.16)3IWF+LD*1&22MNJ3A3L* 223SK
S7C6JKA+G" "1636JKA7G2 3IWFL7D.JC[2MNJ3A3L* 223SKUS7C6JKA+G" "1646JKA7G2 3IWFL7D.JG[6MRJ+ACD7I. "1*M3DGC* CI[60*JB/* B 2 & 3F3E/DF(.26)3IWF+LD*1&52MNJ3A3L* 223SKUS7C6JKA+G" "1646JKA7G2 3IWFL7D.JC[2MNJ3A3L* 223SKUS7C6JKA+G" "1676JKA7G2 3IWFL7D.JG[6MRJ+ACD7
. "1*M3DGC* CI[60*JB/* B 2 & 3F3E/DF(.36)3I	H+LF"26)2JGC+LCL62N,7UOBC*M3A
R. F("5*M3A
R2 	\3F3ED*M[602JGC+LCL62N,7UOBC*M3A
R. J(2MFJ+RCG3\I3I[L6M.J"1*M3TSA* CI[612JOD3A& . C[*M>J* B * B 3IWF+LD*1&42=I3I[L*(&42MNJ3A3L* 223SKUS7C6JKA+G" "1666JKA7G2 3IWFL7D.JC[2MNJ3A3L* 223SKUS7C6JKA+G" "4*M3A
R2 	\3H3IF*M[612JGT3D& . G[2MRJ+CCA7I. "0*M*/B * B 2 [I3ESL.(V12)&=3H3I/FV(")*M3C3A/LJ 6,WS3BOS2MFJ+RCG.(^12MFJ+RCG3\[I3ESL6M.J"0*M3C3A/LJ 6,WS3BOS2MFJ+RCG"(656JKA7G2 3I	HL7F.JG[6MRJ+ACD7I. "1*M3DGC* CI[60*JB/* B 6 ^ 7RSI/ER(.,V120&)+Z3A2([I3ESL*(	K.,7K.1
,")*M3C3A/LJ 6,KW3IWT2MFJ+RCG"(646JKA7G2 .1B52MNJ3A3L* 213IO2MFJ+RCG7\+IA*M3DGC2 /\6M:J+IB,7I+S2 /\6MRJ+ACD\7K2J	CA6 2JGT+D" "4*M3SOP" *M7JCM2 +^2MNJ3A3L* 223SKUS7C6JKA7G2 K*M3A
R2 	\3F3ED*M^7K2JGC+LCL21&,O7H2J/^2,F +RCG"0*M7JCM2 	^6M:J+JB,2MNJ3A3L* 213IO2MFJ+RCG"0*M*/B * B 6 KW3IWT*(24.1B62)&(3F3E3D.(2).,*=25*1&6*,3II*M3C3A/LJ 6,KW3IWT2MFJ+RCG"(646JKA7G2 .1B62M&J+ACC2MNJ+ICA6MRJ+ACD"(652JOD7A2 K*M+^3L6 OI7Z2 K*M3TSA2 /\2MNJ+ICA6
RJ+ACD.(B26MNJ+PCC2M*J+MCP^7M2JGC+LCL62N,7UOBC*M3A
R2 /\2MFJ+RCG3\[I3ESL6M:JN*M3C3A/LF 2,?IH*M+^3N6 KA/GB 2M*J+MCP^7L2J7^",6 2JGC+LCL21&,O7H6JKA7G2 I*M3C3A/LF 2,?IH*M3A
R2 	\2MNJ3A3L* 213IO2MFJ+RCG"0*M./V1*0B 2 ?F3RGM3T&(.3R,+A&22M*J+MCP^7O6JCC3AWG" 65.JG\*520. B5"161.JN6"564.JR6"061.JJ6"561"J602J?^",6 .JF/*6B02 Z 3O7R+AT21&4"46)2J7J7P: P*M3CGP+GCE"4*M/\Z1*0B,.5Z0"1*M.6F4"1*M.6V4"1*M"0*M+^3P" *M*/B * B 2 ?G+TCO"5*M7JCM. 
\*M>J* B * B 3ESN2MNJ3A3L* 203E	XT*M+[202 3B3O/C" 62.JG[2,J 3LOO/KJ BMBJ0T+NCD2M2J+ACP6M2J3L;A+FB,3C7O+MCN"1*M3\GN+M3E2 3B3O/C. J16M2J3IWF+L3D2 3B3O/C. B26M2J3I	H+L3F2 3B3O/C" 652J	\2,J 3LOO/KF 6M2J3IGZ2,J 3LOO/KF 6M2J+KB,3B?L+CCK"1*M3D7U+MCY[606JWD7M	M. 
[6M6J*127. B1"2*M.7B0"0*M"0*M/]R1.,F "062.JF1"264.JV2"262.JG]*1B,.2F2"3*M.2F6.MBJ6M6J*6B,.2F7"7*M.1B4"6*M.7B06M6J*3B,.4R2.MFJ"660"J606JCC3AWG" 662JGEP6 2J;E7T	R2 GMI7N2JGM+I3N2 ?NP6 2JGC+LCL20>,3P;E6MBJ7AOUE6 BJ$*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&
*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z

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