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,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&I3NWT7GKE6 CT3U/NT*M2I;I/KCI6=+K3E
I+E7R"1*M2IGC+LCL3E;I3K3E7LKE/NF(*,&1"M&J3C3A3LV 3I/N3E3L3E;R*(22"16)6J^I3H3I3E^(3P;U+K;T+N;E*0B)"M&J2 ^ 3O?T. F(*021.1J0.,B1.3F,*024.1V0.,B1*62)7GWP7NSK.MFJ"0&13C;O3T;IU	E3	E7NKT+A3G7RSE3U;R"M&J3C3A3LF 3U/S3E3L3E;R*(&1"M&J7GSO/O& "969.JB122NI7OSN7IWN3EBI
TCY2 3A3LWG3M	EN*M2I[I6 N(+Y;M+E;Q"1&)3SI7ESN"M&J2 & 3N	K2=;I7KSI+UM3IWD+N	T"M&J2 & +F" 3I/N3IV./QB.2)N 3A3L2 GF3T3A.(B1"46)*JBI. 7B7KSI+UM3I/N/IJ,2):./EN."M&J2 & +F" +BB)3C3A3LZ 3AGT/LF(*0&3"M&J2 N 3A3L2 	E3NWK3LWL+RN7KSI+UM3I/N/IN,.)V,2)BI7TWA"M&J2 N 3A
L6 WA3SWK3LWL+RN"16)*JBI2 GC+LCL7GSE3S7Y"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J+ICF6(	S+M: +E;Q. J72)BI3ROE3OSR"M&J2 N 3A3L6 KE7SSE3Z;E*(26"16)*JBI2 GC+LCL3E;I3K3E7LKE/NV(*,&1"M&J2 N 3A3L2 	E3NWK3LWL+RN.0Z,")*M*IB 3C3A3L^ 7EOTY7M*JBI2 ?G+TCO.1&9"M&J3ESNI7F2J&I+F
 3S7Y2.WN..J52)N 3A3L2 GF3T3A*(&62I	3LWL3G3A6 	S3M?B3LB 7AKR+ACY7ECX".*M2IGC+LCL7EOR7E+T+EN.3F,")*M.1N02I?C3N	T3NWU2IK3E	G3N> 3FF 3RGRY*M2IGC+LCL7GSE3S7Y"M&J+IF3S7Y2.WN.."12)GC+LCL7FSA+AL*1&1*IK[6""J&13C3A3L^ 7EOTY7M2JJI6=+T.(CT.)V+.>B220BI3TGMX*M2I[I*(	B
C3A3LZ 3AGT/LV(*2&2"M&J7BR=.0F+.>B56IS3ZGMX*M2I[I*(	B3C3A3LZ 3AGT/LV(*2&3"M&J3C3A3LN 7OON3T;AT*M6ICT3U/N7TB=3U/N/TV(")&I3GTU*M2I[I6(CT3U/N3T:./EJ.2.;A7DR.3P;U+K;T+N;E24N)3A3L2 GF3T3A.(F1"36)2J&I7FR(3P;U+K;T+E;Q24N)3A3L2 GF3T3A.(&3"86)6JRI3Z	E7GKE6=+T.(CT"
*M6IST+AB3TWZ3IWG/R6)"5&I7KA7R	A"M&J3TGT7BR(3Z	E7GKE*+&3"=626JRI3TKA6(+T3E
I+E/R.46)7ISC+AB3P;U+KT*4&)2IBI3TWHT7A2JNI3A3L6 WA3SWK3LWL+RN"46)2J&I7FN(+Y;M+E;Q*2&52IBI*":.""*M*IB 3C3A3L^ 7EOTY7M2JVI3LWS"M&J2 N 3A3L2 GF3T3A.(B6")*M2I;E3D[I"M&J3C3A3LN 7OON3T;AT*M.I7B3P;U+KT*5:)+N;E7TWP7NSK6ISA7U2J&I3FJ(2)GC+LCL7FSA+AL.1^0")*M6IST+AB3
WZ3IWG/RF+2)&=3CGT7BB(3U/N/TR(*).)61R-3TKA6(+T3E
I+E/R"4&)3T3EGT"M&J3C3A3LF 3U/S3E3L3E;R*(&46IS7HSEA*M2IGC+LCL7AOU3K3E7LKE/NV(2)BI7TWA"M&J3C3A3LV 3RWS3TWZ7NR(.0V,2)BI7TWA"M&J3C3A3LV 3I/N3E3L3E;R6(+T3E
I+E/R.2N,2)BI7EOP3I?LN*M2IGC+LCL7EOR7E+T+EN.4F,")*M2IGC+LCL3E;I3K3E7LKE/NJ(*,&1"M&J/T60+T.0"1*M6I+T.(CT6)R=3Z	E7GKE"+652J&I+F" 3S7Y6.GE*.&72 ?G+TCO21BI*"J,"M&J+ICF6(	S3M:./EF.29N)3A3L2 GF3T3A.(J1")*M2IGC+LCL7GSE3S7Y"M&J+IF3S7Y2.WN..^62)GC+LCL7FSA+AL"8&)3>
F6"2JNI3A3L2 WG7T	SM*M2I?G+TCO.1&9.MFJ"0&43C;O3T;IU	E3;E3D> 3FF 3RGRY*M6IST+AB3P;U+KT*3&)6=WP7NSK*(&5"M&J3C3A3LF 3U/S3E3L3E;R*(&32IW3P	S3L;O"M&J3C3A3LF 3U/S3E3L3E;R*(&56ISA7U2JNI3A3L6 WA3SWK3LWL+RN"16)2J^I3O?T. &1"9*M.1V02I?C3N	T3NWU*IC2 WB3G;I2 [O2 WR7CK
D*M+CB 3BGE+RCB3V;O* B * B * B 6(Z * B;*.:.* B:T*M2IGC+LCL3E;I3K3E7LKE/NB(*,&66I+3EGT"M&J+ICF6(	S3M:./EF.2)GC+LCL7FSA+AL"2&)3SI7ESN"M&J3W	H+LCE6(	S+M: +E;Q* &1"M&J2 J 2=SD2(SI7ESN")*M*IB +ICF*(	B2 GC+LCL7FSA+AL.1F0")*M*IB 7KSI+UM3KWZ3IWG/RF,2)&=3D;ET*M*IB
7KSI+UM3KWZ3IWG/RJ,.)R=2MNJ"$&17FKO7MSA6(J	3E?C+R7D+T7B7ESN/R+Y6 +K3E
I/E7R2	&,"66)*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&J3C3A3LF 3U/S3E3L3E;R*(&6"M&J3C3A3LF 3UGF3D	D3EWR3N&(*,&6"M&J3C3A3LF 3U/S3E3L3E;R*(&5"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)"0*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" 3S
Y2.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+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&J6 R 3Z	E7GKE6=+T3E
I+E/R"1*M2I;E3DW3IWL"M&J3C3A3LF 3U/S3E3L3E;R*(&1.MFJ"9&93C;O3T;IU7E2JVI7N
D3H3IE*M.9&92I?C3N	T3NWU2IW+NCD+OCF7RWO3T;I3EV 7ISN3R
A2 ;I6 WQ3E3LE*M2I	K3T7U2(;I/KCI*,&36=WP7NSK*(&56ISA7U2JNI3A3L6 WA3SWK3LWL+RN"56)6JJI7EWTR7N2JVIN7D&J*L

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