File GTCHR.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE3GOT+HR3IC+A3R3F3I3N7A6,KI7S
T2,WI+O3F3I+R7USS")*M3C^ 7EOT2 WS3QWU3N	T+ACL3CGH3ROA7TKE3S& /NZ 2-	B3TF 3S	C7IJ 3IG3T* 7USS3I	F+ECD3F?RM*M7CR +HCE3SWP3C[I3ISE* :"+DKA2 	F+L;E6 
S3IOT3H& 7RSS3W& 7SV 3SSE2 ?T2 WR3OWP3NF 2 	FL7E*JCC+ACT3TWH6 SS7ASR2 [O2 T3EZ 3IWL6 KO2 ?T2 WG7TR +HCE7NE3TN 7HKA7ASC+ECR+ICN3TWH2 	FL7E*JCC3TWH2 	F+LCE3E[O6 OI2 WD3TOE3TSE6 	B2 T3EV +OF3I3F+A	G2 ?R3U	T+NCE3W	H+CCH7DSE7ESCS*M3CN 7OSN3R3O*/CZ3CGH3ROA7TKE+
B.3A2 3IWN2 GM3YJ 7EV 7PR /OF *2B73CGH3ROA7TKE3S2 3O
N2MNJ2 ;A3Y2 3EGG/LZ 2-	B3TN 7HKA7ASC+ECR+ICS3A3L3OWWD*M3CF 7RWG3M;E+TCS":*M+CB 3IC+ACR* B=7NE3TN 7HKA2 ;I2 T3EZ 3IWL. 6(*-B1+ACT3ESN2 [O2 	L+N	E2MNJ2 Z 3I;L+ACM6=R +HCE2*R.3AF 3S	C7IN 7OKU+CCE3F3I3E: 3AWM2MNJ2 & 7RSS+SCW.=B 2 ?T2 WG7TR +HCE7NE3TN 7HKA7AS
E7R*JCC* B * B . 6 * B1+TCO3R?E3P;E* CA3F3IE*M+CBI* B=62B 3R;I3T> +UCT3TWH6 WC3RWR+NCT3L;I3E> 7NR +HCE7OSU7PSU2 WD3VOIE*M+CBI* B=63R 7OV 3NWD3R	L+NCE3TWH6 WC3RWR+NCT3CGH3ROA7TKE2 ;I2 T3E2 3IWN2MNJ2 & 3E[O* B .=B 2 ?N2 ?E3FZ 3O;U3D> 7NR 7HOI2 C3AGR3CWTR*M+
BI* B=21V +OCF7FWO+NCD+OCN3T	H3SN 7HKA7ASCE7R*JCC6 KI7JOU/T6 * B0+TCO3L[E3T* 7USS7I	F2MNJ*IB .=F 2 ?T2 	R7GSH6 WJ3S	TF7Y*JCC7FKO3TGR3N& +I> 6 CO3T?I+N" I6)*JCC+SCR6:V 3T3I+E;OS7B2JRI3IWM3N	S+OCN+IA.1"2")*M2IWI3R7R/S7G"1*M7CN 7WSI+CCH3O[F2 T3EV +OCF3S	W3TC
M&J3I?E/FB=2MNJ2 WT+SCT+ICF3TWH2 	F+LCE+ICS+TCO+BCE3OWP3NSE"M&J+IF7IOR+T7W.1J)*,21"260*JCC+DCO7AN +YCS3L?O7KCU2 [O2 T3EZ 3IWL3N7AE*M21NI3A3L2 ?I3P;E6(N	+Y
S2,	F3LGNM6)*JCC7ROE+ECT3TWH2 ?E3FZ 3L
A"M&J3C3A3LV +OF3ICY6)2J&I3ESN"=60*JCC7ICS3AWC6 OI2 T7EZ 7AWL3E> +FJ 3SGP+CKE2 WL+FCT7JOU3T[I3ISE"M&J7ICS3AWC.=J3.*R6.+J3"M&J3I?C7USN"=60*JCC7GSE2 T3E: 7ESX2 C3AGR3CWTR*M7CR 7ESS2 [I2 WN+ECD3A: +ECW3B[U7FKE.MJJ2I[I2(OI3O;U3T&-3ESN.)B1*,23"160*JCC3NWE3DF 2
WN3WJ 3U[F+ECR6-* 3E?R6 SI6 WO3TZ 7IORT*M23RI/OR . 7I.1F,"268"J&4+IA/I6)"0*M2IWR+AD.4F,*0&12(GI*(	J.,7J.1F,*2&8.MFJ"0&17FKO7MSA.(J1.8GA")*M3C: +OCW7POU3HF 2 GC3R	R3AWG2 WR7TKUN*M7CR 7ESS2 [I2 T3EWR6 KA3EV 7XKT7AN 3POA+ECS+ACT3TWH2 ;E3D> 7FR +HCE3L;IE*M2I?
* B6/KF=.,J1"7*M.I7L.1"2"-7K*JCC7CWO+NCT3BOA3KGW7ROD* B-3SWE2 [I2 WZR7O2J&I7SOS2=GI*(	L6-OI3POAE*M2I[I6(OI+S	S.7Z,",67"J&63C;O3T;IU7E"J&73I;E3D2=2MNJ2 W3EWR2 WI+NCD+ICS3TWH2 ;I7DE2 [O2 T3E2 7ASS2 ?N7NN 3POA3EN 7HKA7ASCE7R2J&I3CGH+R6="1*M2IOI3O;U/TB="M&J7R
E3U;R"M2J3C: +OCW7GSE2 T3ER 3AGT2 C3AGR3CWT7RJ 7EWQ7ESSE7D.JB12IOI3O;U3T&=7CWO+N/T"1*M7CN 3T	R3P> +FCF3TWH6 CS3AWC2 ;I2 T7EN 3E?C+NCD3CGH3ROA7TKE2 ?P7SSI3I;O"M&J3IC/A7R+IA3I?C7USN.)N-"2*M7CJ 3IG3T* 7USS7I	F6MNJ2I3C3AN L7L"J	S3TSA* CI3\OI7HKA6MNJ6ISR7RJ;/T
R7RKT6MNJ2I;A+D" .0^0"7*M3SRI+CCA3\OI+H>I2 GS+VCEI7T*JCC7TOE3T& 7FJ 3IG3T* 7USS7I	F"M&J+IF3I+R7USS*-&1*127*126"167.JZ12IOI7HKA2=OIH*M7CR 7ESS2 [I2 ?EF*M"1&73C3A3LV +OF3ICY6)2J&I3F&(7C	H*+&1*129*128"169.J"12IWI/O7F"1*M"1&97RSE3U;R2MNJ2 WS3E& 7FB 3R;I3T> 7R
 3NWD3R	L+NCEI7T.JB22I[I6(KI7S
T*-&2*222*222"263.JJ26IKW3IWT2(WI3R7R+S3G.1F02)&(3A.(2).,*=213I;ED6)6JJI7EWTR7N*JCC3USN3E3R3IWN6 SI.MJJ23&I3SOP.=J3.*R6"M&J/K613I?C7USN"-612J&I3UGP/RN=.0Z*"4*M6IKW3IWT2(WI3R7R+S3G.1F02)&(3SOP.,7K21.,*12)7ICUA7R6JJI7EWTR7N2JVIN7D&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