File ARRAY.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 KA7R	A2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 7O[N7ESR2 GD+TCA7AKR+ACY3F?R7MN 3I
N+LCE+TCO7DWO3BWL2 	D3M;E3S?I3N> 7RZ 3IWC2MNJ* B * B * B 6 Z 7EOR+AB.2 T+ICS3SKU7RWO3T;I3E& 7SV 3SSE2 ?T2 	L+NCK3TWH6 OU+ECR3P?R3GGRM*M+CB * B * B * B 3W	H+CCH7HOA2 ?D3U3B3ER 3IWM3N	S+OCN7AKR7AOY2 ;A7DR +HCE7SCS6 WS3B?R3U	T7NOE2MNJ* B * B * B 6 ^ 3HOI3H> 
PKE3AWT2 ;O6 KA7R	A3S> 3FR 3AGT2 ;I* CA3VOE7TKO2 GF3S	H+O;N2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LF 3RGR+Y" 3MSO3E&,*,3J3N6,*,3SD6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B 2 ?M+DCE2-N 3OWD2 ;I3DOI3A	T+NCG7TCY3E> 3FN 7O[N7EOR3I;O2MNJ* B * B * B * B * B * B . F * B-3F?R7MN 3I
N+LCE+TCO7DWO3BWL2 	D3M;E3S?IN*M+CB * B * B * B * B * B * B *26 6 KF+OCM7DWO3BWL2 ?T2 	S3N3G3ER 3IWM3N	SO7N*JCC* B * B * B * CI* B 2-: 3UKM+ECR+OCF7R
O3S& 3NF 7CWT+ACL7DSA3A6 7AKTI7X*JCC* B * B * B * CJ* B 2-: 3UKM+ECR+OCF3C3O3U;M3S& 3NF 7CWT+ACL7DSA3A6 7AKTI7X*JCC* B * B * B * CN* B 2-: 3UKM+ECR+OCF7R
O7SN 3POE3I	F+ECD7FKO2 T3E6 7AKT+ICX3D& N*M+CB * B * B * B * B * B 2 	D3M;E3S?I7NN 7TSA3EWMN7T*JCC* B * B * B * CM* B 2-: 3UKM+ECR+OCF3C3O3U;M7SN 3POE3I	F+ECD7FKO2 T3E6 7AKT+ICX3D& N*M+CB * B * B * B * B * B 2 	D3M;E3S?I7NN 7TSA3EWMN7T*JCC* B * B * B * CS
 B 2-& 3F6 3OWD*=212 T+ICS3VOE7TKO6 OI2 ;I7PSU2 W3IC2 ?C3NGT7ION2 TE*M+CB * B * B * B * B * B 2 3E3EWM7NOT2 [O* CA7DSA3A6 7AKT+ICX+OCF7S+I3E& 6 	B* ;J2 ?C3L7U3N& "+61*JCC* B * B * B * B * B 2 > 3FR 3AGT2 GM3T	R3XZ 3O3L7OOW2 ?C3L7U3N& 2,V +T;C2 [I2 ?M/D7E"
6,*JCC* B * B * B * B * B 6 R 7HOI2 WV3C?T3R& 3S> 7UCT+UCT7RCE7ROE7ESN3I
N* CA7DSA3A6 7AKT+ICXO7F*JCC* B * B * B * B * B 6 N 3IWZ* CI+BCY3JN 7OSN3A;I3I
N6 SI3SN 7OWL7MON2 ?C3NWS7CSU3IWV+L;Y2MNJ* B * B * B * B * B * B 3TWH2 WL7NSG3H> 7FN 6 OI2 +I6,^ 7HKE3E& 3J&=**;J2MNJ* B * B * B 2 R * B * B-+ICF3MSO/EF=6,R 7HOI2 GM3T	R3X> 7FN 3IWZ* CN+BCY3M& 3S> 7UCT+U3T2MNJ* B * B * B * B * B * B 3C;O3T	A3N;I3GF 2 GD+T
A7MSA7RI2 [O2 	S+ZCE3IJ 3Y* 2 ;I2 T3EZ 7IORT*M+CB * B * B * B * B * B * CI7R
O3SF +NCD3JN 7OWL7MON2.& 3F6 3OWD*=222 T+ICS3NJ 3Y6 2 GM3T	RX*M+CB * B * B * B * B * B 6 OI2 ;I7PSU2 ?C3NGT3I	N+NCG3AR 3AGT2 GM3T	R3X> 7FN 3IWZ* CI+BCY3J& N*M+CB * B * B * B * B * B 2 T3EZ 7IOR3T& 2 ?R+WCS3ASN* CJ3C3O3U;MS6."J7C*JCC* B * B 2 WR7MKAK7S*JCC
 B * B * B 2 WV3C?T7RN 2 GC3NJ 3E& 7NR +HCE3S7A3E2 3OGC3T?I3NF 3S6 7AKT+ICX+DB.2 WV3C?T7RN 2MNJ* B * B * B 2 & 7SJ 3EWF3RWR3DF 3SF 2 GM3T	R3X& 3N> 3TWH7RN +SCP7RWO3T;I+E3S2 	S3NWC6 SI2MNJ* B * B * B 2 N 7OSN3A;I3SF 2 GD+TCA7MSA7RI".*M+CB * B * B * B 3T	H7
N 7UKB7OSU3IWN2 ?C3NWV7ROT2 ;O+LCY3G;E3EGR3LR 3AGT2 GM3T	R7COE6 N(7TKO3AWG2MNJ* B * B * B 2 6 3OWD2 [O* &0".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS3B?R3U	T7NOE2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 WR
FKE2 ?T2 T3ER 3IOS7UOS3I;O2 ;O2 GV3RGI3BWL2 GD+TCA7S+I3E& 7NR +HCE3SOE3T?IN*M+CB * B * B * B 7DOE3C	R3B;I3G> 7VKE3A3L6 WR7LOE2 ?F7RV 3S
A3E& 7NR 7HOI2 GM3NGUL6."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EF 3RGR+Y" 3MSO3E&,*,3J3N6,*,3SD6)*JB * B 2 	D3M;E3S?I7NN *(&1*,D"16)"J7C*JB * B 2 	N*=7NI*MC*M+CB * B 
 B 7TOE7TR 3YWP2 [O2 ?C3NWV3R	SO7N"J7C*JB * B 2 [I2(?M+D7E*1B).1B0.,F *020. J1"0*MC*M+CB * B * B 3C;O7VKE3TZ 3R7O2 	S3N3G7ER 3OR 3OKU+LCE3D7I7EON3I;O2MNJ*MBJ. B120& 3J&=**/J"1*M* B * B /N7M3N**"+61*JB * B 2 ?D. F120. *=21J*M* B * B /N7M+N7MN7I*JB * B 2 ?D
 F1202 *=21I*M* B * B /I7J+I7J"1*M* B * B /N7M+N7M"1*M. F *1B03D:(/M6)3S&(J6)*JB * B 2 ?G2 ?T. R1"0*MC*M+CB * B * B 3C;O7VKE3TZ 3R7O2 ?D3U3B7ER 7ON 3I
N+LCE3D7I7EON3I;O2MNJ*MBJ. J120& /JB=*MBJ* B 2 : /MB=*MBJ* B 2 R /OF *3B0/KF=",7J*JB * B 2 ?D. J1252 *=21I*M* B * B /I7J+I/J"1*M* B * B /N7M+N/M"1*M. F *2B53S&(/J6)3D:(M6)*JB .1B32 7N2=7N2+	N2MNJ*MBJ. R160J 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

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