File OUTPUT.FT (FORTRAN source file)

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

C*M3C>I7UCT+U;TF7T6JNI7UKB7OSU3IWN6 WO7TWP7TN(3CSO3E&,3FGL7GB,3CSO+E3A3I
A3E&,7DWRG6)*JCC6 WS3B?R3U	T+NCE+TCO+BCE3UWS3DZ +OCR7OSU7PSU2 [O6 E2 ;A3DV 3IR 3AGT2MNJ2MNJ+AB 6 CU7DSA3E* +A?N*8B03T7A2MNJ"M&J7ISN3EWG3RF /RKR.(V5.0J,2)F,/RKR.2V(.0F,*22)3S?C+D3E*MBJ* B " &*3P?C3DGE.(B12)J,+L3K7TSI+LE*8&06,SD+OT*92)7IKA+EA*1&0"M&J3D7I7EO
3I;O2 ;L/EF(*52)3I
A/EZ(*,&72,SI3R
U*(29*32)3IGD+TA.9R,")*M2I?C3M?M3NF /RKR2,	T3TWL6,KA/RJ22,GI3RGE2,?K7USN2,OT3O;U3T&,7CWO+N3T3T?K7USN"M&J7DSA3A2 7ZKE2,3B3K2,7ZKE212,7ZKE*2^/.0B0*02	*	^ .,B	*0^0.,B	"	6/6JJI3E	W+NCD"9*M2I?D* B7/JF=.,B1"M&J+IF3P?C3DGE*(	J*-&0.5R,",65"J&43P?C/DGE*(	J"=60"J&5
IF7IKA+EA+J6).0^)*,26"7*M26&I3AWR3A*(.)B=.M^J2I?C3N	T3NWU"M&J+IF3I3F+A7G.3F).0J,.0F,"0*MC*M"1&03W	R+TE.3F,*0&02(	T3TWL*(	I.,7I.1",*02)3S?C+D3E2(OP3OWD3A&(2)&,*=21*1&0",*M* B * * 2I&(3AWR3A&(2)&,*=21*1&02,/T3O;U3T.,3O;UT*M7C^I7RSI/ER(.,B1*1B)3S?CD7E.JB121Z
3O7R+AT*23X+I&4.MFJ"0&07FKO7MSA.(F	*	>,*/2/62"0.,B8+A21*/^/6 SS3UWD+NCT3CSO3E: 3UKM+ECR* 2	+I24*MBJ* B " &**/^,6 KP3EWC3P?T3RN 3OWD6 WN3MWB+RCS"	6,*JB * B .*FI.0F(3X&,*32)*53X6	KA7EOA*-^ .,B16("1.,GI*)>,./N,+X^,7TSO+ACL7PSA3I;E+TCS"	6,*JB * B **^I3SWE+N6 
 2	+I26./N,*03X2	?T3T3A2 	D3A;G3OWS+S6 * 2	+I&6"M&J7GSO/OJ "1*M"2&03W	R+TE.3J,*0&02(	T3TWL*(	I.,7I.1",*02)3T?K7USN2,?K7USN.MJJ"0&07FKO7MSA.(F	*	>,*/2/62"0.,B8+A21*/2/*	^ .,OT*0^,3S7U7MKA3Y> 3FR 3AGT"	6,*JB * B **>I*,B	.	J,*53X6	KG3ASN2 ?T3T3A2 [O2 GP3TWI7
OT* ^ .,[I",*M* B * * *I2/62"52,^	3R;A7DR 3OGT3L> 3FR 3I
A7NOO+ECS* 2	+I&6.MJJ61^I7RSI/EN(.,B3"06).JB320ZI3O7R+AT6	N 7EWQ3EON3EN 3OWD.	F,*03X2		D3A;G3O	S3SN 3OWD.	V,*03X*MBJ* B " &*6	KP3IGM+R
Y.,B1+X^,7OOB7E[R+E
R.,B1+X^,7TSO+A
L")*MC*M6ISK7OCT"=602J.I7TSO/OB="M&J+DCO*4B0/JF=.,B5"0*M6ISI/O7T7AKR22*(*,&16+KA+R"2/JJ,")*M2IWR+AD.9R,*0&03N7U2,2(+NE+I2)/IF=.,V1")*M.4B02I?F3RGM/TV(3X&,.5F,.5SA")*M6ISK7OCT6=SK7OCT6+KA+R"2/JF,")*M6ISK3O?T6=SK3O?T6+KA+R"2/JJ,")*M2I[I6(SI+O;T+E;Q20^)3O?T.
B4"M&J7PWN3MZ=3LGO3T:(+U	M./B1"06.6J^I7RSI/EN(.,V420*)2,;P+U3M2(;L3E&(2)&,*=21*1&56,KA+R"2/JF,2)F,/RKR*(3J*22)3I?TT*M.4B52I?F3RGM+T^(* 2	*53X+I2361"0.,[F*.2221F5.4R,3X&,.5F,*03X+I2561"5.,WI")*M"4&03C;O3T;IU7E2J.I7TSO3T.=7TSO3P.+7TSOO*M6IKW3IWT*(23.1V4"06)
JR1"5&07FKO7MSA*(B	.	",*63X*	6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-^-")*M6IKW3IWT*(23.4J56)SK7OCT6,SK3O?T6,SK7OST.MRJ"5&27FKO7MSA*(B	*	>,*	^ .,F7+X^,3S7U7MKA+Y2	61"0.,WI.,J13X&,.5F,*33X+I&5"M&J7GSO/O^ "0*MC*M2I?G+TCO"760.J^L60^I7RSI/EN(.
B5"06).JB520ZI3O7R+AT*	^1.,B3+X^,3BWR3ASK3O;W6 	B2 
A+E2	*/2/*63X2	
A+E2	*53X*MBJ* B " &*2	GM+LCE2 WF3M3A+E2	*33X2	?T3T3A* 2	*53X2	?T3N7O7EKT+Y2	*53X2		F3ESL+S2	*53X*MBJ* B " &*2		B3O	M3C?R3S?C+P
Y6,"52,R	3IGL3T?I3NN/3Y3C3O3P3E	G+A&	"M&J3W	R+TE.3V,*5&02(&(3AWG*(3K+J2)/JF=*,&7.,7K.1Z,")*M.5B52I?F3RGM/TF(+X^,* 60* ^66,"3.,[I6,"5.,[I6,"2.,[I*,"4*73X+I&6",*M* B * * *I2/*13X.	^ .-^1*	B,* B 6 "3.,[I6,"5.,[I6,"2.,[I*,"4*73X+I&6",*M* B * * *I2/*13X.	"1.-B
*	B,* B 6 "3.,[I6,"5.,[I6,"2.,[I*,"4*73X+I&6",*M* B * * *I2/*13X.	F3.-B4*	B,* B 6 "3.,[I6,"5.,[I6,"2.,[I*,"4*73X+I&6",*M* B * * *I2/*13X.	F4.-B6*	B,* B 6 "3.,[I6,"5.,[I6,"2.,[I*,"4*73X+I&6",*M* B * * *I2/*13X.	Z *1B+*	B,* B 6 "3.,[I6,"5.,[I6,"2.,[I*,"4*73
+I&6")*M2I?D. B8. 7J.1^,.M"J20RI7TSO*(	J"=602JRI/O" 25* *=21"7*M2I?D. V8. 7K.1Z,.M"J25RI7TSO*(	J6=SD+OT+J.)3I
A3E.(*,	J"M&J3W	R+TE.3V,*6&06(SD+OT+I2)/IF=*,&7.MVJ"6&07FKO7MSA*(B	*	>,*/B	7TSO+A
L6,"3.,[I6,"5.,[I6,"2.,[I*,"4*73X+I&6")*M6IKW3IWT*(23.6B0")*M.6B02I?F3RGM+T^(* 2	*/>/.,B2+X^,3PGH3RGM7CWE3TOI+ACL3AWG7NOT*	>,6,"6",*M* B * * 2IR	3R
U6	R,*2202	?T3T3A2 	T7MOE6 OU+E
D6,"52,:	7OJ 3EOA3T?I+N2	*53X*MBJ* B " &*2	SA7VKE+SCE3RGE3C	T+O
N6,"52,V	7MKE3G;E+CCY+TCX3NWE3DSE"	6)2JRI/O" 29* *=21"9*M"8&93D?T3T*(2)&=7DWR3G*(*,&12+SI3R
U*(3J*2.)7IKD+UG/JN,")*M2I?D. ^8. 7J.1&,"M&J+DCO*8B7/KF=",632J.I3K.="+61.J^82ISI3AGT*(3J+K	K2=SI3R
U*(3JK6)2JRI/O" 28* *=21"9*M"8&83IGD+TA/JF,2)R=7TSO*(	J"M&J3W	R+TE.3Z,*5&0* "(3IGD+TA3J.,2).,*=21*42)/JF=*,&8.MZJ"5&07FKO7MSA*(B	*1B.3MSY3RGI3TOI6	R,*225+I26.3F(*03X+I&6",*M* B * * *I2/.	J 2.6 7ISO+I
C.,KT25&,.6N,.(B13X&,*62)*/^,* :36 	C3C?L3PWL3GOI6	R,*225+I26*MBJ* B " &*.3F(*03X+I&6*,2/.	R 2.F 7NOE3TWH3TOI6	R,*225+I26.3F(*03X+I&6*,2/.	V 6.R 7HKE3AWP3U	T+C2	*MBJ* B " &*/TV2.,[I*,"361"0.,[I*)>,*,B	*6B.3DGI3GR +Y
E.,KT25&,.6N,.(B13X&,*62)"/6,*JB * B **^I* :72 ?C3M	B7NSA3I;O6	R,*225+I26.3F(*03X+I&6*,2/.	" 2.> 3TWH+R2	/TV2",*M* B * * .I[I*,"361"0.,[I")6)2JRI/O& 20* *=21"4*M"9&03D?T3T*(.)B="M&J+DCO*9B3/JF=",682JRI7TSO*(&16=SD+OT*1.)3IGD+TA/JF,")*M6ISD+OT.26)3D?T/TJ(2
&+7DWR3G*(*,&1"M&J3D?T/TN(2)R=7TSO*(&32+SI3R
U*(3J"26)2JRI7TSO*(&46=SD+OT*4.)7IKD+UG/JN,")*M"9&33C;O3T;IU7E6J^I7RSI/EN(.,^6*0")3D?T3T&(2)&,*=21"46).J^620ZI3O7R+AT*	^ *,2/6	R 3OGT+L
S.,KT25&,.6N,.(B13X&,*6&)2MNJ"M&J3W	R+TE.3^,*0&0.M^J"0&07FKO7MSA*(B	*	>,./J,*03X*	;C7OB.*.;T2 ;A7A	L7SOI*	>,./Z,X6,*JB * B **^I7DOE3C	R3P	T+O
N.,WT*0^,3N7U7BKE.	J,X6,*JB * B **^I3T;O2 J +ICO2 3F+DB 3MSY2 6 +ICO6 	C+CB 7AON6 R +HCP* 2	*MBJ* B " &*6		D+EB 3C7O2 > +T
H")*M2I?D. &9. 7J.5F0.,V5"0*M2IWR+AD.9R,*0&03N7U2,2(+NE+I2)/IF=.,V1")*M6ICJ*=7J.5B0"M&J3I?C/P7T7AKR22*(*,&16+KA+R"2/JJ,")*M2I[I2(OI7OSP2.WL*.&07GSO/O& "9*M6IKW3IWT*(23.7B66)CJ6,WN+M",3LWN*(	I.,7I.1F,*52)3I?C+P3T*MBJ* B " &*6(KA/RJ26(CJ*,	K.,7K*120*1&22,F(
RKR22*(3P.,+K2)/K7K.1",")*M.7B62I?F3RGM+T^(* 2	+I22*23X+I2421F564R,*520+I26*1"1*13X+I&4")*M"9&93C;O3T;IU7E6JJI7EWTR7N2JVIN7D&J*L

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