File TYPEN.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE7TCY3ESN3E3K3AGR3T?IN*M2I?C3M?M3N: 7EKR2,WI7ROR2,OL2,OC2,	D3NZ,I7N2JNI3O7M+OCN3S7Y2,SI2,;I+U3M7RWN7MN,3L;E3GN,7HN,3T	RN7G2JNI3O7M+OCN3SGT+C3K7BSO3T7O2,?T3P.,7IWT3M.,3Z	E7GKE2,	N3D/E6,+N3E
IE7R2JNI3O7M+OCN/ICC2,OR60N,+C20+P20+I20+T207GWP7NSK"M&J3C7O3M;O2 OI3Z	E7GKE2,OR3Z	E7GKE6,+P3E
I+E3R3IWZ3IWG7RR,3Z	E7GKE2,OS3Z	E7GKE"M&J3C7O3M;O2 OI3TKA2,OR3TKA2,OS3TKA2,OS7ZB,3TKA6,+P6,SI+A3B+I3Z3TGT7BR,Z*M2I;I3T
E+ECR3P;U+K3T7GWP7NSK6,CN3U/N3T&,3N	K3T7U2,;I+K3I3I/N+I203I/NI612J&I3NWT7GKE2 WN+R3R7IKE+RS*621*32)+L3CC7C2J&I3NWT7GKE6 	S3M&,3D&,3N7U2,3S3E
N2,C6,SS3R;I/G"("06)2J&I3NWT7GKE6 SS3A/C.(B2*02)7BSO3T7O.(B16)R,+OP*1&02,	K3T7U.(B2.0R,")*M2I;I3T
E+ECR3NSI+EK.1B0*,&26,+N3E
I+E3R/ICC2,OR60N,+C20+P20+I20T602J&I3NWT7GKE2 OI3Z	E7GKE2,OR3Z	E7GKE6,+P3E
I+E3R3IWZ3IWG7RR,3Z	E7GKE2,OS3Z	E7GKE"M&J7ISN3EWG3R& 3CGT/BJ(*0&02,OS3TKA.(B2*02)7S+C.(B56)B,3TKA.(B1*02)+PZ*5&0"M&J7ISN3EWG3R& 3TKA.(B1*02)+IZ*5&06,ST+AB.4B06)R,/ZV("06)6JJI3E3A2 ;R+U3M7RSC+AB*5&0"M&J3L
O3IGC3L2 7EKE2,SD",7B2J&I3N	K20.=3Z	E7GKE"-612JNI3A3L2 	E3NWK3LWL+RN.1F,")*M2IGC+LCL3E;I3K3E7LKE/NJ(*,&1"M&J3W	H+LE7GWP7NSK2.WN*.&0" *M*IB 7GSO+O" .1F0.,B1.2F,*023.1R0.,B1.5F,*0&66,CG3U/NT*M.1F02I?C3N	T3NWU2IW3E;I3TGR7GJ,7EWTR7N2J^I3O?T.9&9.MFJ"0&23C;O3T;
U	E7	T3PF 3L
L3EWMI7N2J&I+F" 3S7Y6.GE*.&12I	3D;ET*M*IB 3I/N3I&=3N	K3T7U2(SI7ESN")*M*IB +ICF2(;I+K;I+E;Q*0B)3C3A3LZ 3AGT/LF(*0&4"M&J2 & +F" 7KSI+UM3I/N/IJ,2):./EN.2)N 3A3L2 GF3T3A.(B1"36)*JBI2 GC+LCL3E;I3K3E7LKE3N.(7IWT3M&(3N	K*,&3*,&56ISA7U*JBI2 GC+LCL3E;I3K3E7LKE3N.(
IWT3M&(3N	K*,&4*,&46IS7HSEA*M*IB 3C3A3LF 3U/S3E3L3E;R*(&1"M&J2 N 3A3L2 WG7T	SM*M*IB 7GSO/OF "9692JVI3N	DF*M2I[I6 N(+YCM6.GE..^ "2&)3WR7CKOD*M*IB 3C3A3LV 3RWS3TWZ/NZ(*,&1"M&J2 N 3A3L2 	E3NWK3LWL+RN.5F,")*M*IB 3C3A3LV 3I/N3E3L3E;R*(20"66)*JBI2 GC+LCL7GSE3S7
"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J+ICF6(	S3M:./EV.*2B)3C3A3LZ 3AGT/LZ(2)BI3I3L3EGG7LN 3YKM+OCL7KA7R	A6 EP6.2JNI3A3L6 KE7SSE3Z;E*(23"16).JB123NI3A3L2 WF+HL.1V0"26).JB124NI3A3L2 GF3T3A.(B1*5&2.MFJ"0&53C;O3T;IU	E+B 3B
E+ICN+OCF3ROE3OSR2MNJ2 J 7EKA7BZ +OCN* B * B * " * CV*;: *.B.6:R "M&J3C3A3LV 3I/N3E3L3E;R*(20"6&)3WZT7A2J&I+F" 3S7Y2.WN*.&13C3A3LZ 3AGT/LJ(2)BI3IWDN7T6J^I3H3I+E" 3S7Y2 V.+QB."16)*JBI2 [I2(SD2(SI7ESN2)N)3A3L2 GF3T3A.(B1"16)*JBI2 	K3T7U6(+K3E
I+E3R.16)3IWDN7T*JBI2 	K3T7U6(+K3E
I+E3R.26)"4*M*IB 3C3A3LV 3I/N3E3L3E;R6(+K3E
I+E3R"3&)7CE3S3IO7N*JBI2 GC+LCL3A[U3ASD7IKE+EN.1Z,")&I3WZT7A*JBI6 +K3E
I/E7R3KWZ3IWG/RF+"M&J2 & 3F.(3Z	E7GKE2.WG..B2*0B)3C3A3LZ 3AGT/LV(*2&02I/7MA"M&J2 N 3A3L2 WG7T	SM*M*IB +IF3S7Y6.GE*.&72IBI*"J,"M&J* B 2 GC+LCL7GSE3S7Y"M&J* B 2 [I6 N(+Y;M+N;E*1B)3C3A3LZ 3AGT/LJ(2)BI3IWDN7T*JBI2 3ES7E*JBI* B +IF3S7Y2.WN..R22)N 3A3L2 GF3T3A*
&52IBI*"J:"M&J2 V 3N	DF*M2I;E3DW3IWL"M&J3C3A3L^ 7EOTY	M2I[7UKE. *"""*M2IGC+LCL7EOR7E+T+EN.2F,2)BI7TCY2 3A3LWG3M	EN*M2I?G+TCO.1&9.MFJ"0&63C;O3T;IU	E3;E3D> 7FJ 3E?CR7D*JCC6 	T3P;E2 WD7RR 3E3I7BKE3EOI+HCE3E;I3TGR3G;E"M&J7IB=3U/N/TZ(")*M.I7J3P;U+KT"56)2J.I6=W
7NSK*(&4"M&J3C3A3LF 3U/S3E3L3E;R*(&6"M&J3C3A3LF 3UGF3D	D3EWR3N&(*,&6"M&J3C3A3LF 3U/S3E3L3E;R*(&5"M&J3C3A3LF 3U/S3E3L3E;R*(&4"M&J3W	H+LCE.(;I"06)*JBI2 ;I/K7I7NWP7NSK*(3I"36)*JBI. 7I/IF-"M&J2 . 7IWT3M&(3N	K*,&3"=7J*JBI2 	K3T7U2(;I+K3I.46)K*M2I;E3DW3IWL2MNJ6
R 7ESS6 WA3FN 7OSN7IWN3A	TO7N2J&I+F" 3S7Y6.GE..N22)BI*"J;"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3I/N3E3L3E;R*(25"16)*JBI2 ?G+TCO.1&9"M&J3ESNI7F2J&I+F" 3S7Y2.WN..B62)BI3ESN"M&J2 N 3A3L2 WF+HL*1&4"M&J2 N 3A3L2 	E3NWK3LWL+RN.5F,")*M*IB 7GSO/OF "9692JVI3N	DF*M+CB
7EOL+EJ:3ESN2"V;7ISN3R
A"M&J3C3A3L^ 7EOTY7M2JNI3A3L2 	E3NWK3LWL+RN.0R,2)BI3TWHT7A2JNI3A3L2 	E3NWK3LWL+RN+T20"5&)3GTU*M.I7I3P;U+KT"6&)3WZT7A2JNI3A3L6 WA3SWK3LWL+RN"66)2J&I+F" +TZ+T&0*+/I22^./EJ.*0&02 GC+LCL7FSA+AL.5Z22)BI3TGMX*M6I+T3E
I/E7R+TZ+T&0"M&J/T60+T.0"1*M2I[I6 R(20^./EV.*0B)3C3A3LZ 3AGT/LV(*2&02I/3ZGMX*M6I+T.(CT6)R=3Z	E7GKE*+/I"2*M6IST+AB3TWZ3IWG/R6)26BI3ROE3OSR"M&J3TGT7BR(3Z	E7GKE*+&1"=	I3;A3ZA3LR +ECR3K7O3P;O7ESNE7N6JRI3Z	E7GKE6=+T3E
I+E/R"2*M2IW3IWL2 &(*>&0"M&J6 R 3TKA6(+T3E
I+E	R6=WP7NSK*(&3"M&J2 N 3A3L6 WA3SWK3LWL+RN"3&)7CE3S3IO7N*JBI. 7I/IF-"M&J3ESN3W	HL7E.J&129NI7OSN7IWNE*M2I;E3DW3IWL.M&J"9&93C;O3T;IU	E3;E3D> 7FJ 7OSU3IWN2 	E7NKT+ACG+ICN3QWU3LWL"M&J7KSI+UM3I/N+I20.36)3P;U+KT"5&)3GTU*M2I	K3T7U2(;I/KCI*,&46=WP7NSK*(&46IS7HS
A*M2IWR7TKUN*M2I;ED*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