File GELS.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 WGL7S"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?T2 ?S3LWV* CA7SOY3T7E2 [O2 	S3M3U3T;A7EWO3S2 3IWN+ACR7EWQ3A	T7OON2 	WT7
*JCC* B * B * B 6 	S3MWM3T	R3CN 3O[E3FOI3I;E3T6 7AKT+ICX7UCP+ECR3T	R3A
N3UGL7RB 7ASR2 [O2 W3IC2MNJ* B * B * B 2 & 3SF 7SWS3MSE2 ?T2 WB6 SS3OWR3DN 7OWL7M
N3IWS".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3G3E7SJ(*,3A3M:,6,CE3S&,+E3R7AU")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +RB * B * B-3MJ 3Y: 2 	R7GSH2 GH+NCD3SSI3E6 7AKT+I;X* " 7DOE3T?R3YSE")*M+CB * B * B * B * B * B * B
+OCN7RSE3U;R* CR3C;O3T	A+NCS3TWH2 ?S7LSU3I;O2 [O2 T3EV 3QGU3T?I+N;S2MNJ* B * B * B 2 F * B * B 6-V 3PWP7RR 3RGI7NWG7LKA2 GP+RCT+OCF3TWH6 	S3MWM3T	RC*M+CB * B * B * B * B * B * B 3MJ 3Y6 2 ?C3E[F3I	C7ESN2 GM3T	R+XB.2 R(7ESS7R	O+E	D2MNJ* B * B * B 2 6 * B *
B 6-R +HCE3N7U7BKE2 [O6 GE7USA3I;O3S& 7NR +HCE7SOY3T7E".*M+CB * B * B * B +NB * B * B-3TWH6 WN3MWB3R> 7FJ 3IG3T" 3ASN2 	S+DCE3VOE7TKOS6.*JCC* B * B * B 6 CE+SB * 6 2 ;A2 ;I7PSU2 ?C7NSS7ASN2 W3IC6 OI6 OU+ECD+ACS3R3E3A	TV7E*JCC* B * B * B * B * B * B 2 ?T7L
E3AON3EZ +OCR7TOE3T> 3N2 7OOS2 [O2 	S3G	N3FOI3AONE6.*JCC* B * B * B 2 WI+RB * 6 2 WR3S3U3T;I3GV 3R?R7RB 3AGR7MSE+ECR3CSO+ECD+ACS3F3O7L
OS*M+CB * B * B * B * B * B * B 7IKE*=B0* B-+NCO7EKR+O3R2MNJ* B * B * B * B * B * B 2 & /E7R*-B12-: 7OJ 7EWS+LCT3BOE7AOU3E> 3F6 2 WL+SCS3TGH/NF 6 KO2MNJ* B * B * B * B * B * B * B * B * B 6 B 3I?V3TV 3L7E7ESN6 SA2 ;A3YV 3L7I3IGN3T?I7NN 7TCE2MNJ* B * B * B
* B * B * B * B * B * B 2 V 3QGU7LR /OB ",*M+CB * B * B * B * B * B * B 7IKE*=CK* B-7WKA3N;I3GR +UCE+TCO7POO3SKI+LCE7LOO3S> 7FN 3I;G3I	F"-*M+CB * B * B * B * B * B * B * B * B * B 3C;A+CCE3ISN3IGC3TSE6 SA2 3E3I	M7NSA3I;O6 SS+ECP/KF+",*M+CB * B * B * B * B
* B * B * B * B * B 3WWH+RCE7P[I+OCT3EWL3M;E7T^ +ACS7LOE7SR 3H;A6 KO2MNJ* B * B * B * B * B * B * B * B * B 2 V 3QGU7LR 7OR +HCE7ISN3E;R+ACL3T3O3EGR3NWC6 CE7SR 3IWMS*M+CB * B * B * B * B * B * B * B * B * B 7AOB7OWL3T3E3Y^ 3RGE7TOE3T6 3A;I2 	D3A?G3N3A2MNJ
 B * B * B * B * B * B * B * B * B 2 V 3L7E7ESN2 [O2 GM3T	R3XF ".*M+CB * B * B * B 7AU* B * B-+ACN7AU3I	L7A	R6 SS3OGR+GCE7AKR+ACY7WSI3HR 3IWM3N	S+OCN/MF-".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 7UCP+ECR3T	R3A
N3UGL7RB 7ASR2 [O2 GM3T	R3XF 6 OI6 OA3S7U+ECD+TCO+BCE3S?T3RSE2MNJ* B * B * B 2 N 7OWL7M
N3IWS2 ;I* +M*(/M*1>)62N 3UOC7EOS3IWV6 SS3OGR+GCE3LOO3A	T7OON6,J 3IGT*M+CB * B * B * B 3H;A7DN 3IWD2 GM3T	R7XJ 2 ?C3L7U3N	W+SCE+ICN3N6*6 WS3CWC3S	S+VCE3S?T3R
AE*M+CB * B * B * B 3LOO3A	T7OON2.> 7NJ 7EWT+RCN3S3O3U	T+OCN7MSA7RI* CR+ICS3S?T3RSE2 ?C3L7U3N	WS7E*JCC* B * B * B 2 ?TO6.*JCC* B * B * B 2 T7EB 3ROO7EWD+RCE7G[I+ECS7ROE7USL3S& 7FR +HCE3N7U7BKE2 [O6 GE7USA3I;O3S6 6 OI2MNJ* B * B * B 2 ^ 3RGE7TKE2 T+ACN20F 
NCD7P[I+OCT3EWL3M;E+TCS+ACT3A3L2 3E3I	M7NSA3I;O6 SS7EOP2MNJ* B * B * B 2 F +RCE3D[I7FKE7ESN6 KF+OCM*0B.7H
O3EWV7R^ 3A;R3I
N2 WI3R.=* B-+ICF7G[I+ECN"-*M+CB * B * B * B 3ISN3IGC7TOE2 ?P3S	S3BWL2 ?L+SCS+OCF3S
I3N[I3IGC3NWC2.& 3NN 3AWS2 [O* CA3W3EL*M+CB * B * B * B 3SGC3LSE2 GM3T	R3XF 2 ;A3DF 7PKP7OKP7ISA7ER 3OWL3R;A+CCE7EOP2,& /E7R3K6 +ACYB7E*JCC* B * B * B 2 ;I7TKE3PWR3TSE2 T+ACT7MSA7RI* CA7HOA2 T7EJ 3A/N* ;K2 ?N2 GW3R	N+NCGI7S*JCC* B * B * B 2 	G3V;E2 ;I2 GC
SCE/MF=".*M+CB * B * B * B 7EKR+OCR7PKA3AWM7TKE2 WI+R6=21R 7OOE2 ?N3T: 3EWC3SGS3R3I3Y6 3E;A2 TA7T*JCC* B * B * B 2 GM3T	R3XF 6 OI2 	S7NWG7LKA2,F 3S> 7N	L2 GM+ICN3DGI3G;O+ACL3EWL3M;ET7S*JCC* B * B * B 6 KA7EV 3SSE6 OA2 	P7VSO2 3E3EWM7NOT6.B 7OOS3I3B7YN 7UK
7OSU3IWN2 WG+LCG2(W3IC2MNJ* B * B * B 6 ^ 3O/R7S^ 3IT2 ?T3T3A2 	P7VSO3I
N6)^ 3O3U3DJ 3EF 3BWL2 ?T2 	F+NCD7AN 7OWL3T?IN6."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 6 N 7OWL3T?I3N& 3SR 3OWN6 	B2 WM7AON2 [O2 GG7UOS2-3E3I	M7NSA3I;O2 	WT7H*JCC* B * B * B 2 	P7VSO3I
N2 ;I2 GM+ICN3DGI3G;O+A3L2 ;I6 KO7DKE2 ?T6 KP3EWS3RWV2MNJ* B * B * B 6 N 3Y7M7EKT3Y& 7NJ 3EGM3I	N+NCG3CWO3F	F3CWI+NCT7MSA3ROI+E;S2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U
T+NCE3G3E7SJ(*,3A3M:,6,CE3S&,+E3R7AU")*MC*MC*M* B * B 3D7I7EON3I;O* A*12)/RF(2)F,+UX"16)*JB * B 2 [I*(	M*224*224"1*MC*M+CB * B 3SGE3RC2 ?F3R^ 3RGE7TOE3T6 3A;I2 	D3A?G3N3A2 3E3EWMN7T*JB . F 2 WI/RB=*MBJ* B 6 B /I7V"06.*JB * B . 7L"0*M* B * B +DCO23. *=21M*
* B * B 3L2="+7K*JB * B 2 KT2=KA3SF(*(	L")*M* B * B +IF+T7B7P[I*)23.3J,*MBJ* B 62B /I7VT7B*JB * B . 7IL*M* B * B 3J.=*MBJ* B 23N 7OSN7IWNE*M* B * B 3T3O6=CE7SB*I7V*JCC* B 2 GM+ICN3DGI3G;O+ACL3EWL3M;E3TF *(	I*=A3J*,2)& 3SZ 7IOR7TB 3I?V3TV 3L7E7ESN".*M+CB *
B 7P[I2 ?C3NGT7ION2 T3EF 3B?S7LSU7EZ 7AWL3E> 3FF *(	I".*MC*MC*M+CB * B 3SGT+RCT3E	L3M;I3A	T+OCN3L?OP*M* B * B 7LSS"=60*JB * B 2 7N*=+NM*M* B * B 3L;E3D6="-61*JB * B 2 ?D. "1. 7K216,2MNJ2MNJ* B 6 R 7ESS2 ;O6 OU7EWF3LWN+SCS+OCF3S7Y7MSE3ROI2 3A7GKO3ITM*M* B 
 B +IF7P[I.)R2.,R2",64*JB . R 2 [I2(WI/R^)*,25"7*M* B * B5+IF7P[I2-?T/LZ)*,26"7*M* B * B67IKE*=7K"1*M* B * B7/L7T3J.-*MBJ* B 2 2 /S7T7LSS"+7K"J7C*JCC* B 2 	P7VSO2 ?R7WJ 7EWD3C	T+OCN3ASN2 ?R3W& 3NWT3RC3A
N3E& 7NJ 3IG3T" 3ASN2 	S+DCER*M* B * B 7P[I/IF=2.F/*(	I*MBJ* B 2 R /O" . 7L3K:,3M6,*MBJ* B 2 2 3L2=6+SL*MBJ* B 6 R 7BB=3I	V**R+L	L*MBJ* B 6 J 2(3L6)J=*(	L*MBJ* B 68J *(	L2=KT2MNJ2MNJ* B 2 & 3SV 3L7I3IGN3T?I7NR 3E7R3IGN3TSE*MBJ* B 2 & 3F.(*-	M.9F,.9F,"9*MC
M+CB * B 7R
O2 ;A3DN 7OWL+MCN7ISN3EOR3H;A+GCE3ASN2 	P7VSO2 ?R7WJ 7EWD3C	T+OCN+ICN7MSA7RI* ;A2MNJ* B 2 V 3L7E7ESN3S> 7FB 3I?V3TN 7OWL+MCN3AWR2 GS3VSE2 ;I6 WA3X3I7IKA7YZ 7ESC+OCR7AU".*M* B * B9/L7R7LSS2+2(+T"*3K*+*-&1.)J/*MBJ* B 2 2 3L2=R*M* B * B 3L2=S7T*JB * B 2 ?D. 
12 	I*=3K3L;ED*M* B * B 3L2=2+	I*MBJ* B 2 2 3L2=/LF+*MBJ* B 2 & 3F2(6-KL.)J1.,B1.,F1*MBJ. F 20F 2(3L2)F=6(OLT6)*JB * B 2 KT*=AL6)*JB * B 2 ?G2 ?T. N1*MBJ. F 212 3L2=6+SL*MBJ. F 62R 3BF=2(3L")*M* B * B 3A2(/L6)3A2(")*M* B *1B37AU2(	I6)R=B*M* B *1B43A2(6)B=
I	V2*KT2MNJ2MNJ* B 6 N 3AWV2 ?C3L7U3N& 3NWT3RC3A
N3E& 3N?F3RGM3T?IN*M* B * B 3A2(+S	T6=SL2MNJ2MNJ* B 2 V 3L7E7ESN2 WR3DOU3T?I3NF +NCD3SGE3RC2 ?F3R: 7ESX2 	P7VSO*MBJ* B 6 B /I7V"06.*JB * B 2 3L/S7T7LSS*MBJ* B 2 2 /TB=*MBJ* B 2 R /OF 28& 3I.=2,WLN7D*JB * B 2 	P/V7I6-WA3X&(I6)*JB * B 2 3L2=3LS7T*JB * B 6 S
6=SL"+61*JB * B 2 ?D. V12 3L3D&=3I2,3ESN*MBJ* B 2 2 3L2=3L2+L7D*JB * B . 7L+L/LL7T*JB . V1* A/L6)3A2(6)B+3I	V**A+L	L*MBJ* B 2 2 7LSS2=3L+S/TI7I*JB * B 6 KL2=3L+S/TL7T*JB * B 2 KT2=KA3SF(6(KL")6)*JB * B 2 [I2(KT2-	P/VF).7F,.7F,"6*M* B *1B67P[I2=KT*MBJ* B 2
& 6=KL*MBJ* B 2 * 2=	I"+61*JB . ^12 ?D. "16 KL*=3K+N3MM*M* B * B /L7L+L/RL7T*JB . "1* R+L	L*=R+L	L2+	P+V+I3R2(R6)*JCC* B 2 ;E3D> 3FV 3L7I3IGN3T?I3N2 7OCO2MNJ2MNJ2MNJ* B 2 J 3A/C6 WS7BSS7IWT3T?I3NF +NCD3BOA3K& 3NWT3RC3A
NE*M* B *1B9+IF3L;E/DJ).4J,.3J,"0*M* B *2B0/I7IM*M* B * B +DCO*2B2/IJ=",7M*JB * B 6 OL3T2=+S7TI7I*JB * B 2 	I2=	I"-61*JB * B . 7L3A2(+S	T.+V.*MBJ* B 2 R /OJ 22* 2=	I2,7N",7M*JB * B 2 KT*=RJ6)*JB * B 2 3L"=7J*JB * B . 7K7LSS*MBJ* B 2 R /OJ 212 3T&=3I2,3ESN
MBJ* B 2 2 3L2=/LF+*MBJ* B 2 . *=/KL7T*JB . F22 KT2=KT*-A+K*)3R2(L6)*JB * B . 7K3J2+*MBJ* B 6 J *(	J*=RK6)*JB . J2* R/K6)T7B*JB . N22 WR7TKUN*MC*MC*M+CB * B 7EKR+OCR7RSE3U;R*MBJ. J 24& /E7R"-61*JB * B 2 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"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