File CCUT.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN2 OCU7T"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 GP3R	T3T?I3NF 2 GM3T	R3XJ 7E
T3E;E6 CS3E	C3FWI3DN 7OWL7MON2 ?T2 ?F+RCM3T?W2MNJ* B * B * B 6 J 7EWS3LGT+NCT7MSA3ROIE7S"J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 OC+UCT*(3A7LJ,*,3S3N6,6,OM")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +A6 2 GN+MCE+OCF7ICN+
CT7MSA7RI2MNJ* B * B * B 2 2 * B-3C3O3U;M2 [O* CA+TCO3TWH2 WL+FCT+OCF3W	H+CCH7PKA7TSI3I;O3I
N2 GT7KOE2MNJ* B * B * B * B * B 3PGLC7E*JCC* B * B * B * CR2-: 3AWM2 [O2 GM3T	R7XR 3OJ 3EZ 3O7R+ECD3F?R3M2 7ESF2 ?P3R	T+OCN+OCFA*M+CB * B * B * B +S6 2 GN+MCE+OCF7MSA7RI2 ?T2 WB2 ?F3RWM3DZ 3R7O2 	R7GSH2 ?P3R	T+OCN+OCFA*M+CB * B * B * B +N6 6 WN3MWB3R> 7F
 7OOW2 ;I" 7A*JCC* B * B * B * CM2-: 3UKM+ECR+OCF3C3O3U;M3S& 3NF 2MNJ* B * B * B 2 6 +SB 2-> +NCE3D
I+ICT3N7U7BKE2 ?F7RN 7TKO3AWG2 ?M+DCE+OCF7MSA7RI" 7A*JCC* B * B * B * B * B . B * B-3G;E3EGRL*M+CB * B * B * B * B * B * B16-N 3Y7M7EKTI7C*JCC* B * B * B * B * B . J * B-3DGI3G;OA7L"J7C*JCC* B * B 2 WR7MKAK7S*JCC* B * B * B 2 GM3T	R7XJ 2 GC3N?N3TJ 3E& 7NN
3AWM2 ?L7CSA3I;O6 OA2 GM3T	R3XF 2MNJ* B * B * B 2 6 7AKT+ICX3SN 3A;N+OCT+BCE+ICN3S7A3E2 3OGC3T?I3NF 3S6 7AKT+ICXA*M+CB * B * B * B 7MSA7RI* CR3C;A7NSO2 WB2 ;I2 GS+MCE3LOO3A	T+OCN+ACS7MSA7RI" 7S*JCC* B * B * B 2 GM3T	R7XJ 2 ;A3D6 7AKT+ICX3SF +RCE7A
L7AOY2 WG7NKE+ACL7MSA3ROIE7S"J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3LOO2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 3E3EWM7NOT2 [O2 GM3T	R3XF 2 ?T2 T3E2 7ESF2 [O2 ?C3L7U3N2 6 KA3E6 3OWV7DR O*M+CB * B * B * B 7FKO3M6 7AKT+ICX3R> 3F: 2 ?R+WCS3ASN* 7L21N 7OWL7MON2.V 3L7E7ESN3S> F*M+CB * B 
 B * B 7MSA7RI* CA+ICN3C3O3U;M* CL3ASN2 ?T2 T7EJ 3IG3T> 3F2 6 KA3E6 3OWV7DR 3OZ 3O7R2MNJ* B * B * B 2 6 7AKT+ICX3S> 3F: 2 ?R+WCS3ASN* 7M/LF+2 ?C3L7U+N;S2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6
"J7C*JB * B 6 WS3B?R3U	T+NCE7CWC3TF(*,3L7RN,*,3N3M6,S6)*JB * B 2 	D3M;E3S?I3NF *(&1*,R*12)/SF(")*MC*M* B * B /I7R"0*M* B * B /I7S"0*M* B * B +DCO*7B0/JF=",7M*JB * B 2 ?D. B7. 7I21:,2MNJ2MNJ* B * B 2 Z 3ISN2 ?L7CSA3I;O2 ;I6 WO7TWP3T6 7AKT+ICX3ASN2 WS7TR 7O
 3E?R2MNJ*MBJ* B 2 & 3F*(*-	L. B2.,B1.,B1*MBJ. F 20& 3S&=/SF+*MBJ* B 6 N 6(OI.)B=".60*JB * B 2 ?G2 ?T. B3*MBJ. J 20& 3R&=/RF+*MBJ* B 6 J 6(KI.)B=".60"J7C*JCC* B * B 2 ?L7CSA3EV 3L7E7ESN2 ?F3RF +NCY7MSA7RI6 SS3OGR+GCE3MSOE*MC*M* B *3B03C3A3L2 +OC3I*,2,+I*,
N3M6,S6)"J7C*JCC* B * B 2 WT+SCT7FKO2 WZ+RCO3EWL3M;E3T& 3NR 3I
A3OGN3L6 7AKTI7X"J7C*JB * B 2 [I2(+I.)R .0^,.0R,"0*MC*M+CB * B * B 7DSE3E7R3IWN2 W3ET+ECR3R
I+HCT+OCR3L[E3T> 3F2 2MNJ*MBJ. R 20& 3F*(*-	L. B6.,B5.,B5*MBJ. V 60N 6(OI2)F=2(+I")*M* B * B +GCO+TCO"760*JB . B6* R+I	R*=A+I	J*MBJ. ^ 20N 7OSN7IWNE*M* B * B 7RSE3U;R*MBJ* B 2 V N7D"JBZ"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B
B"B"B"B

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