File INUE.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 ;IU7E"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?C7MWP+TCE3TWH2 ?M3D[I3ISE2 WB3SWS3LZ 3UON3T?I+NCS3IZ +OCR3OSR7EOR* B1+T
ON*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7IWN7E"(*,3N+Z3I+R	I2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 " * B * 6 7G[I+ECN3A
R3UWM+NCT+OCF3TWH2 WB3SWS3LZ 3UON3T?I+NCSI*M+CB * B * B * B +NB * B 2-	G3V;E2 GM3X7I+UCM3OSR+ECR+OCF7BOE3S3E6 WF7NSC3I;O3S& 2MNJ* B * B * B 6 * +IB * 6 7G[I+ECN3V3A+UCE+OCF7BOE3S3E6 WF7NSC3I;O* CI+OCF3OSR+ECR7ZKEO*M+CB * B * B * B * B * B 2 ?F3RF 7RWG3M;E
T" 2MNJ* B * B * B 6 J +IB * 6 7ROE7USL7ASN2 WV3C?T3R> 3FR 3IWM3N	S+OCN+NB,3C;O3T	A3N;I7GR H7E*JCC* B * B * B * B * B 6 Z 7AWL+ECS+OCF3TWH6 WF7NSC3I;O3S& 2 ?F3R> 3RWD+RCS61R 3O: 2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 R +HCE3V3A+UCE+OCF+ZCI7M	A2 WB2
GC7LWC7LSA+ECD3U	S+NCG3SKU7RWO3T;I3E& "06.*JCC* B * B * B 6 OU3I
N* CA3D[I7FKE7ESN2 GV3LWU2 GH7SR +HCE3E[F7ESC2 T+ACT3A3L2 GV3LWU3S> F*M+CB * B * B * B 7BOE3S3E6 WF7NSC3I;O3S& 6 KA3E6 7USL3I3P3ISE6 	B2 T+EB 3FOA7TKO2 	Z*/I60",")*M+CB * B * B * B 3WWH+RCE/IB(*,	X6 OI2 T7EZ 7AWL3E> 3F& 2 ?F3R> 3RWD/RB 2 ;A3DF 7RWG3M;E7T"
".*M+CB * B * B * B 3T	H3S6 +ACY+BCE3UWS3DR 3IGS3DGV3NGT3G?E3U3S3Y& 3F> 7N	L2 T7EJ 3A	T+OCS+OCFI*M+CB * B * B * B 7FKO2 	D3FWF3R;E3T> 3RWD+RCS3AWR2 WR3Q	U3RSE".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 
 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 T7EZ 7AWL+ECS3AWR2 KO3T	A3NSE6 OU3I
N2 GB7C
K3ASR2 WR7CKU3R;E+CCE3R3E3A	TO7N*JCC* B * B * B 2 WT3C;H7IWQ+EB.3TWH2 GR3T?I* I/NF+*,	X*/I7N",2)& 3S> 3BGT3IWN3DZ 3R7O" 7A*JCC* B * B * B 2 ?C3N	T3NWU3DZ 3ROA3T?IN6.*JCC* B * B * B 2 ?F7RJ 3EWF3R;E+CCE3SWE2MNJ* B * B * B 2 ^ 2.J 3L;A+C3H6	WN7MKE3IGC3LV 3V
A7USA3I;O2 [O2 ?C3N	T3NWU3DZ 3ROA3T?I+N
S",*M+CB * B * B * B 3SGI7MJ 3E	V+E3W2 ?V/LZ.2,?N*.24.1Z964B,/PN.*863.4F2".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 ;I+UE3X:,2,	Z2,	R")*M* B * B 3D7I7EON3I;O2 	R*(&1
MBJ* B 2 & 3F:(.)B1.,B1",61*JB . F 2 ;F*=/NN*M* B * B /Q613XZ/N*M* B * B +IF7AOB*(	X*-:5/ER-*)26.6J,*MBJ* B 22F .0F=".*M* B * B /A61"06.*JB * B . CB*=:0*MBJ* B 2 J .1F=".*M* B * B /F7IF7N*JB . N 2 	F2=	F*+:2*MBJ* B 2 F 3NZ=3IF/+BSX6)*JB * B . 7A+A+N+A.1A6
*JB * B . 7B+A+N+B.1B60*JB * B . CA.=GA*MBJ* B 2 J 20J="1*M* B * B /A61A*M* B * B /B61B*M* B * B /Q60Q61*JB * B . GQ*=?AB*M* B * B +IF7AOB6(F(61F-*0>)+Q&1*-:1/EZ-*)24.4N,*MBJ* B 24& 7F"(*)25.6Z,*MBJ* B 65F *16=Q61*JB . Z . 7KN*M* B * B7/Q61+X"/+F/N7XF*"16
*JB * B 2 	R*(	K.=GQ*MBJ* B 2 Z 3NZ=/NJ-".*M* B * B 3K.="-61*JB * B 2 [I*(	K.8",",67*JB . " 2 	F2=	Z*MBJ* B 2 R /O& . 7I21:,*MBJ* B 2 Z 3IZ=7IJ*3I&(")*M* B * B9+RI/I6)F7I*JB . B12 WR7TKUN*M* B * B 3ESN&M*J"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