File GFIC.FT (FORTRAN source file)

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

7CB 3R
O3R7A2 [GI7C*JCC2"[G+IKC6 KD7AOW6 KG3AP3S& 7NR +WCO3ASN2 T3RWE2 	D3M;E3S?I+N3S7RSO3AWT2 T3E& 3M
AE6,*JCC3ASN6 E3P;A+DCS3ASN2 ?C7NKT7ASC3S& 3T&.3NF 3D	D3T?I3N&,3T" +ACS3A3L2 T3E" 7OOU3EWK3E	PN7G*JCC3F;U3C	T7OON".*M3CJI*I623D7I7EON3I;O+ACL3GGR3P	H+NCG2(?C3E[F3I	C7ESN3SR,3OGM7ION6,KO3I	G+N	S2MNJ"I	D3CGH7ION2 ?T6 KD+A;WS7V"J	C3EVI7ROA+ECS7SKC3E;E2MNJ"I	
23R-3IWM3N	S3OGN3L^ 7RCA3H;I+G" 3CWO3F	F3ZWI7NOT2,?D3M	A+N3S3O	R3G;IS6)"J	C3I&I7NSI3I3A3IWZ7SR 3A3BE*M7CJI2I?R7TSA3I;O2 R(3IWR3C	T+O3N3D
E3RWES6)"J	C7SNI3C3A3I
N2 V(3XGP3N	S+OCN3FOA7TKO")*M7CRI2 NI3H	A+NCS+TCO7TCA7EN.V*M7C^I6IKW3IWT3SF +LCL3VOE7TKO3S& 7NR 3A3BE*M7C"I6IE7IOT6 KF+OCM3P?R3GGRM*M3CZI2IC3A;I7SR 3O6 3O	D+F;YS7V*JCC7FKO3TGR3N& I*M7CN /R* 6 KE3AWS6.SF* B/3F	D3SZ.+T> 2 3A3PGH6.SF* B/3RKK6.SF2MNJ2 C* B:7T
A7EN.+V> 2 ?M3D[I7YN.+V> 6 KD+A;WS7V*JCC3BGE3RWB7IWT+NCG3V;O2 WD7COU. ".-^7"3*M2I?C3M?M3N: 3TKA6,CIT*M2I	D3M;E3S?I3N: 3TKA.(B5.0N,")*M2I?G+TCO"2*M21&I/P7T"0*M22:I.3F="M&J/N65"1*M.ISQ*=:1"M&J/J62"7602J^I3O?T" 64"J&33C3A3LV 7ROAE*M24NI3A3L2 SF+IS.0B,.,Z7"76
2JNI3A3L2 3A3PGH"M&J3C3A7LJ +KBK6)*JCC3G^-7RCA3H&,2-;I+I3T3BJ-3IWL3V3E*,7S7S+I7EJ,2-?R7TSA7E",6-E+I3T7W^-7RSIE6,*JCC3EV-7ROA7ER,2-GT+P3E3DR-7R
A*,7F3MSO7I	F"M&J+ICF*(7K.4B8.)V .,J2",65"J&5+ICF*(7K.6"0.)Z *,21"6*M26&I+F" /KF-*6&0* 27*326"7*M27&I+F" /KF-.2"4.)" .,^3",68"J&8+ICF*(7K.1"1*4B).9R,.0&,.M&J2I[I2 .(.-"2*8B)*120*127"160.JB12I[I2 .(.-V1*6&8. F1.,F2.,F1.MFJ21&I+F" /KF-.5R0.)F .2F,.8F,"2*M"1
2+ICF*(7K.3J5.)F .3N,.,N1.MFJ23&I+F" /KF-.3J1.)R1.,Z1.,R1.MFJ24&I+F" /KR-*1&6* 24*125"4*M"1&53C3A3LN 3H	A+N^(3MSO7I	F"	6).JZ12IGC+LCL3CGH+IN2	GT+P
E")*M"1&73C3A3LN 3H	A+N^(3DGR+W&	2MNJ6 KW3I	T+NCG7RWO3T;IE*M"1&8/N65"2*M2I?G+TCO.(&1.,"3.,V42):,"3*M"1&93C3A3LZ 7DOI*(203NGT/BF(*,&26,SN+AB.1N,")6)2JRI/OJ 20: *=217ISP.MJJ"0& 3C3A3LZ 7DOI2 :(3TKA*(3N*12)3NGT3B:(*,&26,SN+AB/NN,")6)2J:I.3F="M2J.IWN"=612J^I3
?T" 64.JF22IGC+LCL3E	XT*M3C^ 7RCA3H;I7GJ 7OSU3IWN.MJJ22NI3A3L2 3A3PGH"M&J3RGE+D" .1F,*0&0+A21+A22+A23+A24+A25+A26A67.JB120ZI3O7R+AT2	;E7TKE2 ?C3E[F*"CS+ICN3OSR+ECR6("1.*J*6+*3.*R**+&5.*Z***^7",*M.I^1*(B	* 2	+F:4*2&)"M&J3RGE+D" .1F,*0&1* 3D3R>,3X>,Z*M.1F02
?F3RGM+T^(7ESN+ECR7DJ,6,O6,+O. SF*.B2.	R,*(B	2 Z	.4J.")6)6J*I2=>-Z*M2I?D. V3. KI*=21.7^6.,KJ"M&J7ISP"=602JRI/ON 21& *=20.1J0.3N,"0*M.I7X6-O2+3F7OSA*(	I**?D.1J0"36.6J&I2=F(61"*2*F*22F+63**2*F*24F+*5*).*[A.*
A"M&J+IF/YJ).5J,.5J,"6*M"2&5/YF=".*M"2&6+IF/Y^-*6:7.)J .8J,.8J,"7*M"2&7/Y^=*6:7.MJJ28&I/P7T7ISP"+612J&I+F" 7ISP.-B5*0B)*229*229"360.J&26ISN+AB7ISP*,&1"=612J:I3TKA6(CI/TJ,2)&="M&J3NGT3B&(+P3T.36)3I	F7X&(")*M2I?G+TCO"361.JB36IKW3IWT. F(.,B1"36).JB123ZI3O7R+
CT2(6	7AKT+ICX3F3I3LSE"	6)2J^I3O?T. J3.MNJ21NI7OSN7IWNE*M"3&23C3A3LV 7ROAE*M2I?G+TCO.(N3.,"3.,V42):,"3*M"3&33C3A3LZ 7DOI*(203NGT/BF(*,&26,SN+AB.1N,")6)2JRI/ON 24: *=217ISP.MNJ24NI3A3L2 SF+ICS6(SN+AB/NF,2):,3TKA*(3N*22)3NGT3B:(*,&3")*M.I7Z6-+O2+3F7OSA.(KI6
J*./Z7"76..JV32I?C3N	T3NWU"M&J/N63"1*M2I?G+TCO"4*M3CJ 3IWL3V3E6 WF7NSC3I;O.MNJ26NI3A3L2 3A3PGH"M&J/J62.7^6"M&J/Q64*-:1"M&J3W	R+TE.1F,*0&4.MFJ"0&47FKO7MSA2(V	3NWT7R* 2-WL3V3E2 ?F3R> +Z&	"M&J7GSO/OJ "2*M7CN 3C3A3I
N2 ?R3U	TN7E.J^32IGC+LCL7ACLH7A6JJI3ESA. F(.,B1*5B)S*M.1V02I?F3RGM+T" 6	E3P;A3S?I3NZ 7ASC+OCR.(SF*.&22	Z,.4J.")*M.ION"=622J^I3O?T" 64.J"32I?D. &3. 7N21&,P7T6JRI2=Z(3LGO3T:(3TKA*(3N*2&).-F5*2&.**/S.5J1".*M.I7R2(3F7OSA6(SN+AB/NN,*)6).3R8*.*)/SN+*8:4"M2J6ISN
AB/NJ,2)&=7FI*(	T"M&J3NGT3B:(*,&32=[I+IXR6).J&32I?C3N	T3NWU"M&J7GSO+O" *323*1&9.,WN2MNJ2 ?R7TSA3EZ 3UON3T?IN*M"4&03C3A3LF 3LPA*M2IWR+ACD*(21.1Z02): T62.JB126ZI3O7R+ACT2(R	3IWR3C	T+OCN.(7W3C?L7C
K3IWS.,7C3CN-3LOO3K	W+S	E* 2	+A&1"M&J+ICF6(SN.2F-.5R0.)R .1R,.2R,"1*M*4B12I[I2 :(+T62.2R2.)R .,N4",64*JCC3C?L7C
K3IWS2 ?R7TSA3I;O.MRJ62FI*36="16.2J^I3O?T. R4.MRJ63FI.3F=".*M"4&43RGE+D" .1F,*0&7" 7T.JB127ZI3O7R+ACT2(R	7EKG7EOE. OF*.B02	Z,.3B.")*M.IKQ*=+T.3F..4V1.9V2./"1*0*.Q636JFI23N=+OS+Q&2"M&J/Q623S;I.(KQ")*M.ION"=632J^I3O?T" 64.JV42I?D. Z4. 7N21&,P7T6JFI.=OQ2*3F7
SA6(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&J3NGT3B:(*,&22=[I+IX+Q.).5J1.MRJ26:I3TKA*(3N.36)3I	F7XF(*4.).3N8"M&J7GSO+O" *323*1&9.,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