File FRAT.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 KFA7T"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 6 KF+ACT+ICS3UWS3DZ +OCR3H;A3D	L+NCG+OCF7DSA3AF +NCD3F;U3D7A7ESN+ACL3F;U3C
T7OON2MNJ* B * B * B 6 ^ 3IT2 GR3T?I3N3A6 CA3P?R3X7I3A	T+O;N6 SI6 OI* CA3SKU3SGT3N	T+ACL7PKA3T> F*M+CB * B * B * B 7RSA3I;O+ACL7ACP7RO3IGM3T?I3NF +NCD7HOA2 ?N2 WM3A	N+NCG3ISN3EWP3NWD3N3TY*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3FGR3T&(*,3N7MB,2,GD
T3I7WSG2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CI* B * B-3SKU7SKC7ISP2 [O6 WC3RWR+NCT7DSA7AB 3O;IT*M+CB * B * B * B +NB * B 2-: 3UKM+ECR+OCF3A3L2 GD+TCA3P	O7NOT2MNJ* B * B * B 2 6 * B * 6 6 WN3MWB3R> 3FZ 3USN3AWM3NGT3LZ
3UON3T?I+NCS3UWSD*M+CB * B * B * B +PB * B 2-F 3RGR3Y> 3FR 3IWM3N	S+OCN/MF+6 SA2 WL7ASS6,^ 3HOI3HN 7OSN3A;IS*M+CB * B * B * B * B * B 2 > 7NJ 7EWT+RCN3TWH2 GV3LWU3S> 7FR +HCE3MZ 3USN3AWM3NGTL*M+CB * B * B * B * B * B 2 Z 3UON3T?I+N3S2 ?F3L?L3WSE6 	B6 WC3R
R+NCT3F;U3C	T+OCN3V3AU7E*JCC* B * B * B 2 GD+TCI* B-7AKR+ACY3C;O3T	A3N;I3G^ 3IWV3N: 6 KA3G7U7ESN+SB,3F3O7L
OE7D*JCC* B * B * B * B * B * B +BCY3NZ 3UON3T?I7NZ 7AWL+ECS3ASN2 	F3N3A+LCY+BCY61J 7ECS7ESC3IWVL7Y*JCC* B * B * B * B * B * B 7N^ 3E
I+HCT3V3A7UOE2MNJ* B * B * B 6 ^ +GCT* 6 2 WR3S3U3T;A7T^ 3E
I+HCT3FOA7TKO6 OU+ECD7FKO* 7I+TCH7TKEM*M+CB * B * B * B 7IKE* B 6-J 7EWS3LGT+NCT7EKR+OCR7PKA3AWM7TKE2,N 3OKM3IWN7D^ 3IT2 ;I7PSU2MNJ* B * B * B * B * B * B 2 GV3LWU3SZ +OCR3C;O3T?RL*M+CB * B * B * B * B * B 2 & +ER*2B)3MGE+NCS3D7I7EON3I;O2 [O6 WN7MKE3A?TR*
+CB * B * B * B * B * B 2 & +ER*3B)3MGE+NCS3D7I7EON3I;O2 [O2 WD3N7O3IGN7TKO2MNJ* B * B * B * B * B * B 2 WI/RF(2)& 7SV 3SSE6 OA2 WR3S3U3T;A3TV 3R?R7RB 3AGR7MSE+E3R2MNJ* B * B * B * B * B * B 2 WI/RF(.)6 * B0+ICN7COA3E> 3F: 3OV 3R?RR7S*JCC* B * B * B * B *
B * B 7IKE*(&1* B=21> 3TWH3R	W+SCE2(WZ+RCO3D;E3O	M7NSA+O	R2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 Z 7ESC+OCR7IKE6 OI6 OU+ECD7FKO2 ?C7MWM3NOI3A	T+OCN7BSE3WWE3NF 7RSA2 ;A3DZ 7RSA2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7
KIE7D*JCC* B * B * B 2 ;CP*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 2 N +FB.7MSA3H7E3A	T3C3A2 WD7SKC7ISP3I;O2 [O6 WS3B?R3U	T+NCE3AGRT*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7O
U3IWN6 KF+AT3I:,*,3M3PR,3A	T2,
W3T&,+E	R2MNJ2MNJ2MNJ* B * B 2 R 3IWM3N	S3OWN3DR 3U7M7YZ 3A	R3A3BE7S*JB * B 2 	D3M;E3S?I7NB *(&12,GD+TI*12)7IKE*(&12MNJ2MNJ* B * B 2 & 7NSI3I3A3IGZ3T?IN*M* B * B /I7P7IKE*(&2*MBJ* B 2 & 3Q&=+ER"36)*JB * B 6 GI/M61+I7Q"1*M* B * B 7IGP6=CI6+GI2MNJ2MNJ* B * 
 2 2 3O/O6 CU6 KA3G7U7ESN2,Z 3UON3T?I7NZ 7AWL3EF +NCD3W	E7GSH2MNJ* B * B 2 2 3O/O6 CU6 WN7MKE3A?T3RF +NCD3D;E3O	M7NSAO7R*JB * B . 7T7DSA3I&(")*M* B * B 3J&="+7N*JB * B . 7F7DSA3I*(")*M* B * B 7FWN7MB=*(	J*MBJ* B 2 * *=/JN*M* B * B 7WSG*=:1*MBJ* B 2 & 3FR(
A	T*(*2/NF+.)J)*,22"1*M* B * B17WSG2=GD+TIJ6)*JB . J 2 SF/E7N3P*(")*MC*M+CB * B * B 3C3A3C3U3AWT6 WF7NSC3I;O2 GV3LWU6 OUE7D*JB * B . 7F3FZ*3D;E2-;FU7M"J7C*JCC* B * B 2 C3E/C2 ?F7R* 3E?R2 WD3N7O3IGN7TKO*MBJ* B 2 & 3FZ(3D;E*)24.3R,2MNJ2MNJ* B * B 2 V 3R?R7R
 7EWT+RCN+ICN7COA3E> 7F* 3E?R2 WD3N7O3IGN7TKO*MBJ* B 23& +ER.16)"1*M* B * B 7RSE3U;R2MNJ2MNJ* B * B 2 N 3AOL3UGL+TCE3W	E7GSH2 GF3C?T+RCS3UWSD*M* B * B47WSG2=
W+T"/3FWD3NZ*3D;E")*M* B * B 7FWN+M6=7FWN3MZ/3D;E2MNJ2MNJ* B * B 2 N 3AOL3UGL+TCE3F;U3D7A7ESN+ACL3F;U3C	T7OON*MBJ* B 2 * 6=GIM61*JB * B 2 [I6(CI6-GI*)26.6V,*MBJ* B 25* 6=CI"-61*JB . Z 2 GC+LCL7CCN*(P+I	Q*,3TJ6)"J7C*JCC* B * B 6 SS3OWR2 GV3LWU3S> 3FR 3E?N3
;I3A?T3RZ 3USN3AWM3NGT3LZ 3UON3T?IN7S*JB . ^ 2 [I6(GI+M&1*120*120"8*M* B * B8+DCO29& /IF=6,GIM61*JB * B . 7J+I/II7Q*JB . & * P+I	I*=P+J*)7FWNM*MC*M+CB * B * B 3S?T+RCE3F;U3C	T+OCN3V3AU7E*JB . B1* P7IGP2)Z=2MNJ2MNJ* B * B 2 : 3O7R+ACL7RSE3U;R*MBJ* B 2 & +E
.16)"0*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"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