File CROSS.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 7UKB7OSU3IWN6 KC7OOS2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3OZ 3ISN2 T3EN 7ROO3S?C7VKA3I;A7COE2 [O2 WS3RWI3SF 2 	W+TCH7SKE7IOE"
7B*JCC* B * B * B 6 ^(3HOI3H2 3ESA3SF +NCD3L
A3SF ")6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 KC7OOS2 F(*,3B3N2,*,3RS6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CA* B 2-& 7NWP7TZ 7ESC+OCR+OCF3L;E3GT* CN3C;O3T	A3N;I3GZ 7IOR7TR 3IWM2MNJ* B * B * B * B * B * B 7SKE7
OE".*M+CB * B * B * B +BB * 6 2 ;I7PSU2 WV3C?T3R> 3F2 3E
N+TCH3NN 7OSN3A;I3I
N2 WS3C;O7DR 3IWM2MNJ* B * B * B * B * B * B 7SKE7IOE".*M+CB * B * B * B +NB * 6 2 WL7NSG3H> 7FN 3E	R+ECS3AF +NCDB6.*JCC* B * B * B * CL* B 2-N 7ROO3S?C7VKA3I;A+CCE+ICS3C3A3C3U3AWT3DZ +OCR3L
A3SF +NCD3LGE+DCSO7F*JCC* B * B * B * B * B . B .,F .,J *,:.*.B,/LF-".*M+CB * B * B * B +RB * 6 6 WO7TWP7TZ 7ESC+OCR+OCF3L;E3GT* CL3C;O3T	A3N;I3GN 7ROO3S?C7VKAI6-*JCC* B * B * B * B * B 2 F 3NWC3S> 3FF 2 	W+TCH+BB,3WWH+RCE3B2 7AOG* ;A2MNJ* B * B * B 6 N *
B * B-7OSU7PSU2 WV3C?T3R> 3F2 3E
N+TCH3LN 7OSN3A;I3I
N6 KC7OOS7C[O3A	R"-*M+CB * B * B * B * B * B 2 ;A7COE2 [O* CA7WSI3HJ 6,^ 7HKE3EJ 2 WL7AOD* ;A2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 : 6 WM+SCT+BCE3GWR3AWT7RR 3H;A* ;L2 & 3F: +O3T* R*1B)3ASN* S*1B)3AWR2 WS7TR O*M+CB * B * B * B 7ZKE3OF +NCD7RSE3U;R6
OI2 GM+DCE+TCO3TWH2 GC3L	L+NCG3P?R3GGRM6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 2 R 3EOS3RKI+ECD+ICN3RJ.2.J 3LOA3KGM3NF +NCD7J^.6.R 3UWK+YB,2	T3E6 7EOA3U7R7ESN2MNJ* B * B 2 > 7FB 3OWW7RN 3POE3TGR*	B,7D[O+ECR3PKU3LOI3A	T7OON2 ;I+C2.2 WN7W& 3O/R.,F .9&5".
MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 KC7OOS2 F(*,3B3N2,*,3RS6)*JB * B 2 	D3M;E3S?I3NF *(&1*,B*12)/RF(6)N,*(&12MNJ2MNJ* B 2 N 3AOL3UGL+TCE3AWV3R
A+ECS+OCF7SKE7IOE* CA3ASN" 7B"J7C*JB * B 2 ;F"=7N*JB * B 6 [A3EGR*=:0"0*M* B * B 3AWV/R7B.0B.*MBJ* B 2 & 3F:(*-	L*520*520.1B0*MBJ. V 60J *(&1*=:0"0*M* B * B /SF(.)B=".60*JB * B 2 WR7TKUN*M. F *0B0+DCO.1B1. 7I21:,*MBJ* B 2 F 7VKE3AF=7VKE3AF+*(	I*MBJ. F120F
7VKE3BF=7VKE3BJ+*(	I*MBJ* B 2 F 7VKE3AF=7VKE3AZ/N*M* B * B 3AWV/R7B3AWV+R?BF7N"J7C*JCC* B 2 GC7LWC7LSA3EN 7ROO3S?C7VKA3I;A7COE2 [O2 WS3RWI3SF 2 ;A3DJ 2MNJ*MBJ* B 2 R /OF *3B0/JF=",7L*JB * B 2 +N*=7N/JF+*MBJ* B 6 N 7UKM*=:0"0*M* B * B 3S7U/SB=".60*JB * B 2
?D. J120& *=21N7J*JB * B 2 +I*=/I/JF-*MBJ* B 6 N 7UKM6=WS+M/R*(A+I6)3AWV+R	A2*J(2(+I2)F-7VKEB6)*JB .1B26 WS/M7S3S7U+S"+3A&(+J6)3AWV+R	A2*J(*(	I6-[A3EKR")*M* B * B 3F+N2=+N*MBJ* B 6 J *(	J6=WS+M?R3F+N*MBJ. N160N *(	J6=WS+M?S3F+N*MBJ* B 6 J 7EWTR7N*JB * B 2
;ED*M"ZB"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"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