File GFIC.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

2I?C3M?M3N: 3TKA6,CIT*M2I	D3M;E3S?I3N: 3TKA.(B5.0N,")*M2I?G+TCO.1J4"0*M.1B428&I/P7T"0*M.1J420:I.3F="M&J/N65"1*M.ISQ*=:1"M&J/J62"7602J^I3O?T. R1"160.JR1"0&53C3A3LV 7ROAE*M.1F420NI3A3L2 SF+IS.0B,.,Z7"76)2JNI3A3L2 3A3PGH"M&J3C3A7LJ 3ESA3D.(")*M3C^I6-KG3AP*,7
3I	N3TJ,2-	B7L[E+E3L7SN-3IWZ*,7R7RSO3AWT*,7X3E	X7T^,6-KW3IWT",*M3CVI6-KE3AWS6,R,2-GT+P3E3DR-7R
A*,7C3CGH3ROA7TKE*,7F3MSO7I	F"M&J+ICF*(7K.4B8.)F .4V2.,V1*020.1J4"5*M.1J425&I+F" /KZ-*0&8. R1*320.1B4.8F,.4B3.MFJ.4B32I[I2 .(.-Z1*0B).1N4.5F,.6B0.,R1"365.JR1"3&5+ICF*(7K.1R2*8B).1R4.0F,.7B0.,R1"460.JR1"4&0+ICF*(7K.1"1*4B).1R4.5F,.8B0.,R1"465.JR1"4&5+ICF*(
K.2"8.)F .4B5.,J1*520.1V4"0*M.1V420&I+F" /KF-.5"6.)F .4B6.,B2*220.1Z4"0*M.1Z420&I+F" /KF-.5R0.)F .4B7.,B2*020.1^4"0*M.1^420&I+F" /KN-*5&2. R1*820.1B4.5F,.4B8.MFJ.4B82I[I2 .(.-N1*1&2. B1*020.1B2.0F,.0B0.MFJ.0B02I[I2 .(.-J2*4B).1&4.0F,.0F0.,R1"960.JR1"9&0+I
F*(7K.4Z1.)F .4B1.,R1*921.1F4"0*M.1&421NI3A3L2 C3A;I2(6	3O	D+F
Y")*M.1B220NI3A3L2 C3A;I6(R	3AWP"	6).JJ1"5&03C3A3LN 3H	A+N^(3DGR+W&	.MFJ.0F02IGC+LCL3CGH+ICN2(N	7HKA"	6)"J	C3W	R3T;I7GJ 7OSU3IWN.MJJ.0B0.IWN"=622J^I3O?T. J(.0V0.,^1*220.1F8*92)N63.JB2"0&53C3A3LZ 7DOI*(203NGT/BF(*,&26,SN+AB.1N,")6)2JRI/OJ .0B1. 7N21&,P7T.J
2*1B02IGC+LCL3F	D+S" 3NGT3B:(*,&16,SN+AB/NJ,2):,3TKA*(3N*3&)"M&J/N63"1*M.IWN"=612J^I3O?T. R1"160.JB2"2&03C3A3LV 7XSI2MNJ6IKG3AP3I
N2 ?R3U	TN7E.JV1"0&03C3A3LF 3LPA*M2IWR+ACD*(21.1V520F)21F,22F,23F,24F,25F,26F,"7*M.1V520ZI3O7R+AT2	;E7TKE2 ?C+EKF3S& 3N> 3RWD+R"-*1+X**.2*3+Z**.4*5*)***6*72	*7^(* ^ .,SF*.&2")*M2IWR+ACD*(21.1B5*1B)7DJ,6,O6,+O.MFJ.5F02I?F3RGM+T^(7ESN+ECR7DJ,6,O6,+O. SF*.B2
	R,*(B	2 Z	.4J.")6).JZ1"0&5+Z6=O7Z2JRI/OF .5J3. KI*=21.7^6.,KJ"M&J7ISP"=602JRI/OF .5F3. 7I.0F,.0N2.,B3"M&J+X6=+O/X3F?L+AT+I*)/DF/.0N2".*M.I7Y.(GA**+X.*KA.+OA**+Z.*SA.+WA*)**+A*6A672J&I7F&(.)V1*022.1B5.2F,.5N0.MFJ.5J0.I7Y"16..JV1"0&3+IF/Y^-*6:7.)F .5V0.,V1
025.1B5"4*M.1B564&I.=Z7"76..JV1"0&57ISP6=CI/TF+"M&J+ICF6(CI/TV-*0&0. V1*026.1B5.6F,.5^0.MFJ.5Z06ISN+AB7ISP*,&1"=612J:I3TKA6(CI/TJ,2)&="M&J3NGT3B&(+P3T.36)3I	F7X&(")*M2I?G+TCO.1N5"1*M.1B567^I7RSI+E" .1F,.5J9")*M.1&522ZI3O7R+ACT2(6	7AKT+ICX3F3I3LSE"	6)2J^I3
?T. V1"367.JV1"3&13C;O3T;IU7E.JV1"3&73C3A3LV 7ROAE*M2I?G+TCO.(V1*123.1J7.0F,.8&12):,"3*M.1F523NI3A3L2 SF+IS20:,3TKA*(21*22)3NGT/BF(*,&3")*M2I?D. V1"1&2/NF=6,CIT*M.1F522NI3A3L2 SF+ICS6(SN+AB/NF,2):,3TKA*(3N*22)3NGT3B:(*,&3")*M.I7Z6-+O2+3F7OSA2 &(*2*)/R^/*6
7.MFJ.5J32I?C3N	T3NWU"M&J/N63"1*M2I?G+TCO.1F4"0*M3CJI3IWL3V3E6 WF7NSC3I;O.MFJ.6B02IGC+LCL7ACLH7A2J*I.2^="6676JFI*46="16.6J^I7RSI/EF(.,Z1*1&0.MFJ.6B12I?F3RGM+T^(7ESN+ECR3Z2-3EWV3LZ +OCR+O
Z")*M2I?G+TCO.1B5"0*M7CNI3C3A3I
N2 ?R3U	TN7E.J^1"0&03C3A3LF 3LPA*M2IWR+ACD*(21.1B7*1B)S*M.1B721ZI3O7R+ACT2(V	3XGP3N	S+OCN3FOA7TKO* 2	+F:4"26)2J:I.3J="M&J7GSO/OF .4B1.MFJ.7B22I?D. ^1"3&0/NF=6,CIT*M.I7T2(3F7OSA6(SN+AB/NJ,*)6).5J1*.*)/SV+*1:2"M&J+R"=3F?L+AT3NGT3B:(*,&3.)N-*8:46)N*.+"3"46.2
:I3TKA*(3N.26)3I	F7XR(")*M6ISN+AB/NN,2)&=7FI*(	R.MFJ.7B32I?C3N	T3NWU"M&J7GSO+O" .1F5.3J,.0V02):,"5*M7CJI3OGT+TCE3F;U3C	TO7N.J"1"0&03C3A3LF 3LPA*M2IWR+ACD*(21.1B8*1B)/NKT.MFJ.8F02I?F3RGM+T" 2		D3ROE3T?I+N^ .,GA")*M7C^I2=3C3O/C7WOI3EN,*=7C3C?L7C
K3IWS"M&J+ICF6(SN.2F-.5R0.)F .8J0.,"1*120.1B8"2*M.1B8"2& +ICF6(SN.2J-*2&4. R1*120.1B8.9F,.4B12MNJ2I3C3O/C7WOI7EJ 3OGT3T?IN*M.1F860FI*36="16.2J^I3O?T. "1"161.J"1"0&9/Q63"16..J"1"1&13RGE+D" .1F,.8J16)R .MFJ.8J12I?F3RGM+T" 2	WD3GWR+ECS+F:3*0^ .,OF*.&0"M&J/Q6
/TN*..R1.1&5*2>5.1B86.F*"3*M.IOQ2=?C7SF("26)6JFI62N=+IN+Q&2"M&J/N63"3*M2I?G+TCO.1F4"0*M.1F829RI/OF .8B2. 7N21&,P7T6JFI.=OQ2*3F7OSA6(SN+AB/NJ,.)V-*1&2.+KQ2*3F7OSA6(SN+AB/NN,.)N-*8&3"M&J/Q64.-KQ2*3F7OSA6(SN+AB/NJ,.)V-*1&2.+OQ2*3F7OSA6(SN+AB/NN,.)N-*8&3"M&J3
GT3B:(*,&22=[I+IX+Q.).5J1.MFJ.8B26ISN+AB/NN,2)&=7FI.(SQ.)N+"8632J^I3O?T. F(.5N1.,B2*0&5.,WN"M&J3ESN"M2JBZ

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