File FORIT.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 ?F7RSI2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 Z 7OKU7IKE2 ;A7A	L7SOI2 [O* CA7PKE3ISO3IGC7L	L2 GT3B3U3AWT3DZ 3UON3T?I
6.*JCC* B * B * B 2 ?C7MWP7TOE2 T3EN 3O[E3FOI3I;E+TCS+OCF3TWH2 WD7SKI+ECD3N7U7BKE2 [O2 WT7ROM2MNJ* B * B * B 2 & 7NR +HCE7FWO3RWI7RN 3E	R+ECS7F"(2)F=*(&06+WS3MF(*(	K7COO6 K*+B7KN)+ICN+K	X2MNJ* B * B * B 6 ^ 7HKE3E. *=21*2:,*.2.7MR 3OF 7PKP3O	X7MSA3EF 2 	G
V;E2 WS3T> F*M+CB * B * B * B 7PKE3ISO3IGC7L	L2 GT3B3U3AWT7DZ 7AWL+ECS+OCF3AZ 3UON3T?IN6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 ?F7RSI2(;F3T:,*,3M3AJ,2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B 2 ;F7TZ-7ESC+OCR+OCF
TKA3UGL3TSE6 WF7NSC3I;O2 GV3LWU3S> 3F2 3E
N+TCH*2/N"1*M+CB * B * B * B +NB 2-WD3F;I+ECS3TWH2 ;I7TKE3V3A6 WS+CCH3TGH/TJ /NF+2 ?P7ISN3SF +RCE3T/AE7N*JCC* B * B * B * B 2 > 7VKE2 T3E& 3NWT3RGV+L" .0J,+P	I6.R +HCE3SGP3C;I3G& 7SR 7HOU6 B2/IJ//NF+2MNJ* B * B * B 2 6 * 6 7MA7IWM3M> 3RWD3R> 3F" 3A7R3O	N+
CS+TCO+BCE7FSI3TSE2MNJ* B * B * B 2 F * 6 7ROE7USL7ASN2 WV3C?T3R> 3FZ 7OKU7IKE2 ?C3S;I3EN 3O[E3FOI3I;E+TCSO7F*JCC* B * B * B * B 2 2 3E
N+TCH/MF+2MNJ* B * B * B * B * B 7AN +UCB*0B,7AN +UCB*1:,*.2.* CA3SKU" 7M*JCC* B * B * B * CB6 J-7EWS3LGT+NCT3VOE7TKO2 [O2 ?F3U	R+ECR3S;I3EN 3O[E3FOI3I;E+TCSO7F*JCC* B * B * B * B 2 2 3E
N+TCH/MF+2MNJ* B * B * B * B * B 7BN +UCB*0B,7BN +UCB*1:,*.2.* CB3SKU" 7M*JCC* B * B * B 2 WI7RJ-7EWS3LGT+NCT7EKR+OCR3CSO7E^ 7HKEE*M+CB * B * B * B * B 2 WI/RB=2 : 3OV 3R?RR*M+CB * B * B * B * B 2 WI/RF=2 : 2 ?N3T^ 3RGE7TKE6 KO6 GE3U3A2 ?T" 7M*JCC* B * B 
 B * B 2 & /E7R*2B 3M2 7EOS2 T+ACN"0*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3M6 7USS2 WB6 KG7ESA+ECR3TGH3N> 3RV 3QGU7LR 7O* 3E?R2MNJ* B * B * B 2 : 6 WM+SCT+BCE3GWR3AWT7RR 3H;A6 KO6 GE3U3A2 ?T" 7M*JCC* B * B * B 2 T3EZ 7IOR3TV 3L7E7ESN2 [O2 WV3C?T3RJ 
 OI2 WZ+RCO+ICN3A3L2 GC7SOE2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3UWS7SJ 7EWC3R	S+VCE3TOE3H	N3QWU2 WD7SKC3IWB3D& 3NF 6.J 7AOL3T;O2," 6.^ 3I[L",*M+CB
* B * B * B 2	GM3TWH7MSA3IGC3L6 3ET7OOD2 ?F3RR 3I	G3T3A2 ?C7MWP7TKE+S2	2 ?J+HCN3W3IE7Y*JCC* B * B * B 2 ;A7DN 7OON2,: +ECW7YKO+KB,.1Z9*0B,3CGH3PWT/RJ *4B.3TWH2 WM3T?H3D> 3F& 3NWD3X;IG*M+CB * B * B * B 7TKH3O
U7HR +HCE3P?R3CSE3UWR2 GH3SJ 3E;E2 ?M3D[I3ISE2 ?T2 	S3M3P7I	F2 TE*M+CB * B * B * B 3C7O7PSU3A	T+O;N2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7FKO+IT7FSN*,3N3MF,*,3B7
KE")*M* B * B 3D7I7EON3I;O* A*12)/BF(2)Z,+NT"16)"J7C*JCC* B * B 2 C3E/C2 ?F7RB 3AGR7MSE+ECR7EKR7OOR2MNJ*MBJ* B 2 & /E7R"0*M* B *2B0+IF+MB)*320*420"460*JB . B32 WI/RJ=*MBJ* B 6 J 7EWTR7N*JB . B42 [I*(7M+NB)*620*620"560*JB . B52 WI/RF=*MBJ* B 6 J 7EWTR7N"J7
*JCC* B * B 2 ?C7MWP+TCE3ASN6 KP3EWS3TN 7OON3T;AT7S"J7C*JB . B62 ;A"=7N*JB * B 2 ?C/E7F.2B../J(*.*0+A/N.1B.")*M* B * B 3C;O/S7T.3F..4V1*9*33CWOF*M* B * B /S613S;I2(?C7NSS")*M* B * B /C617COO2(?C7NSS")*M* B * B /CF=".60*JB * B . 7S.0B.*MBJ* B 2 * "=61*JB *
B 2 ;F/T7Z7FSN*(&1*MBJ. ^ 60V .2B=".60*JB * B . GU*=:0"0*M* B * B /IJ=**/N"1*MC*M+CB * B * B 7FKO3MZ 7OKU7IKE2 ?C3E[F3I	C7ESN7SJ 7EWC3R	S3V3EY*MC*M* B *7B5/U607FSN*(	I*+:220N*.*GU.-KU*MBJ* B 6 V 62V="1*M* B * B /U61U60*JB * B . 7I/IF-*MBJ* B 2 & 3F&(*-&1.
B8.,B8.,V7*MBJ. " 20F *(	J2=?C+E+F2(;F+T/Z7CV*61V-"26)*JB * B * B/J6)3CWO7FN*.*GU*MBJ* B 2 & 3F*(2-6(*+&1.)& .0F,*020.1B0*MBJ. & 60F .=GC**7C+S*1S*M* B * B 3SN=61N*.+GS"*7C*JB * B . 7CQ*M* B * B 3J*="+61*JB * B 2 ?G2 ?T. B7*MBJ. B120F *(&1*=A*1*).0V.*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"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