File TYPTES.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,SI7ESN2,;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;E3T&,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" *M6IKW3IWT*(21.3N36)CG3U/NT*M.3N32I?F3RGM+T^(7TCY+ECN2 ^ 3P;U/K7T2	&,"66)*JBI2 ?G+TCO.(B1.1F,*022.1N0.,B1.4F,*025.1Z02)^,3
;UK7T.JB121NI7OSN7IWN3EBI3E;I3TGR7GJ,7EWTR7N2J^I3O?T. &9"9*M.1J02I?C3N	T3NWU6IS+YCP3A3L3G7E3E;I"M&J+ICF6(	S3MV./QF.2)BI3IWDN7T*JBI2 ;I/K7I3I/N7IWT3M&(3D;ET6)*JBI2 [I2 &(3N	K6.GE*.&02 GC+LCL7FSA+AL.1R0")*M*IB 3B.=7IWT3M&(3N	K*,&22.WN".63*JBI2 [I2 J(2)N 3A3
2 GF3T3A.(B1"36)*JBI2 GC+LCL3E;I3K3E7LKE3N.(7IWT3M&(3N	K*,&3*,&56ISA7U*JBI2 GC+LCL3E;I3K3E7LKE3N.(7IWT3M&(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 3RW
3TWZ/NZ(*,&1"M&J2 N 3A3L2 	E3NWK3LWL+RN.5F,")*M*IB 3C3A3LV 3I/N3E3L3E;R*(20"66)*JBI2 GC+LCL7GSE3S7Y"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)*JBI. 7B+DD3IWD+N	T"M&J2 & +F" +BB)3C3A3LZ 3AGT/LF(*0&1"M&J2 . 7IWT3M.(3Z	E7G
E*,&12=SI7ESN"M&J2 . 7IWT3M.(3Z	E7GKE*,&2"=64*JBI2 GC+LCL3E;I3K3E7LKE3N.(3Z	E7GKE*,&32IW3P	S3L;O"M&J2 N 3A3L6 WA3FSA3DWI3R;E*(21"6&)6I+3EGT"M&J2 . 3Z	E7GKE6=+K3E
I+E/R"1*M*IB +IF3KWZ3IWG3R^./EJ.*0&02 GC+LCL7FSA+AL.5B22)BI3KGMX*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I6(	S3MV./Q^.")&I+2"""*M*IB 2 N 3A3L2 WG7T	SM*M*IB 2 & +F" 3S7Y2.WN*.&12 GC+LCL7FSA+AL"2&)3SI7ESN"M&J2 V 3LWS"M&J* B 2 [I6(	S3M:./EJ.*4B)3C3A3LZ 3AGT/LV(")&I/*"""*
*IB 3ESNI7F2JVI7N
D3H3IE*M2IGC+LCL7GSE3S7Y2IBI3FWU+RJ ":6"2JNI3A3L6 KE7SSE3Z;E*(22"1&)7	T3PF 3L
L3EWMI7N2J^I3O?T. &1"9*M.1Z02I?C3N	T3NWU2IW+NCD+OCF3ROE3OSR2MNJ6 R 3YWP3NR +ECR3T	E3LWB3R	E3CWH2 	E7NKT3AWGN*M.I7I3P;U+KT"66)2J*I6=WP7NSK*(&5"M&J7KB=3U/N/TR(")*M2IGC+LCL7AOU3K3E7LKE/NZ(")*M2IGC+LCL3A[U3ASD7IKE+EN/IZ,")*M2IGC+LCL7AOU3K3E7LKE/NV(")*M2IGC+LC
7AOU3K3E7LKE/NR(")*M2IW3IWL2 &(*>&0"M&J2 & 3N	K6=CN3U/N3T&(*,&3"M&J2 & *=7I"1*M*IB 7KSI+UM3I/N/IN,2)*="M&J2 . 7IWT3M&(3N	K*,&4"=7K2JVI7N
D3H3IE*M2IGC+LCL3T	KT*M2IGC+LCL7TSS3A/C2MNJ6 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 	E3NWK
LWL+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)2JJI6=+T.(CT2)&+*+:2+G;E.2B0"M&J+ICF*(	B2 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