File OUTLAY.FT (FORTRAN source file)

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

C&N****7OSU7L	A****2MNJ.I^N.3F-.1J-"7*M7CVI7NSI6 WN3MWBR7S"J	C7OSU7PSU2 	F+LCE"5*M3C2I7ISS/S: * B33L;I+ECS3U	N/TN 2MNJ6IST3Y& 7NWP3T> 7UCT+UCT3U	N/TR 2MNJ6ISO7HKE2 ;I7PSU2 ;U+ICT3N7U7BKE/SZ *-B93C;A6 OUE7D2JRI3IWM3N	S+OCN/VF(*22)+IG.1B0")*M2I	D3M;E3S?I7N"
.(B1.0F,*02)3RKU3R/I*(&32,WT+XT.1B0*,&3.MFJ.9B12I?F3RGM+T^(2 	F+LCE3C;O3T	A+NCS7MKO3E^ 7RWO+PCS3TGH3N& 7NWP+T2	*MBJ* B * >1*	CI3W3I3L& 3G?N+RCE7EX7EOS3IWV"	6).JB2"1&07FKO7MSA2(&2.3F,.0GF.0B.")*M.2B020ZI3O7R+AT+F:5.0F,.0GF.0B.")*M.1B920ZI3O7R+AT6	R 3OGT+L^
.,WI*,B	7R
O+S2	*/^,* CI3W3I3LN 3A3L6 OO*/B83M;O3I?T+R&	.M&J"9&57FKO7MSA*(B	3W?R+NCG*!&	.MFJ.9B52I?F3RGM+T^(2 ;E7TKE6 KG7OCU6 KN2 ;A7D" 2 GV3LWU+S2	2	V +NCD7WSI3HJ 3L;A3K2 3IWN"	6).J"1"0&07FKO7MSA*(B	7MKO3E& 7NWP/T> 6 S[/T7Y24>;3TWH+RCS3SGT+TCE3U	N3T: +RC]*	R,")*M.1
720ZI3O7R+AT+I232(V7*1:1*4&).MFJ.6B02I?F3RGM+T^(2 ;I7PSU2 	F+LCE3ESN*	>,.,SI*,B	7R
O7SR 3OGT+L2	+I266	J 7OOW2 ;I6 WB3FWF+R&	.MFJ.5B02I?F3RGM+T^(2 ;E7TKE2 ?C3RWR+CCT3V3A7UOE2 	F7NOI7H^ 3IT2 3B3A/N2 	L+N
E")*M.1B420ZI3O7R+AT2	F +NCY7EKR7OOR. 2?.0F/*>^ *,&$.MFJ.3B22I?F3RGM3T&(24&,.3F,.0GG.2R.")*M.1B320ZI3O7R+AT+I24+I23.9
F*.22./F,+H2 .2GF.0J.")*M.1V320ZI3O7R+AT2	2 7ISS. 2?.0F/*>^ *,&$.MFJ.2B02I?F3RGM+T^(6 WC3RWR+NCT3B[U7FKE6 WF+LCL+[^=.,SI*,B	7R
O+S
]")*M.1B020ZI3O7R+AT.3[A")*M.1B221ZI3O7R+AT+A&3.MFJ.0J02I?F3RGM+T^(2 ;I7PSU2 	F+LCE3U	N3T: /O2 20& 3F: 3OWN.>> * 2	"$6).JF1"0&07FKO7MSA2(&3"36).JB1"0&47FKO7MSA* ^(2 ;U+ICT*	R ")*M.1B021ZI3O7R+AT6	^ 7ASI"	6).J&920ZI3O7R+AT2	: 3OWT* F!*	^/2 WY3S*(+AB)*=B1. 
(*1^)",6/*JB * B *1^,2 ?N2(WN+JB)*=B02 J(3L;A3K2 3IWN*)&	.M&J"0&17FKO7MSA.(B	7FKI+SCT3SGT+TCE+NCO+OCF3G?R7UOP2 ;A3D: 3O> 3FN 7OWL7MON*	>,*MBJ* B * 226	R 3H;E* B13M	A3N" 3ESA3I
N2 ;A3D> +NCE3HGE3D;I3GZ +OCR3EOA3H^ 7RWO3P> N*M* B . N 2 WS7PKE3AWT2 	L7NOE"	6).JB920ZI3O7R+AT2	" 3ESA3I
N+SZ 6 KG7OCU3SZ 3R7O2 WT7LSE3YWP*?^ "$6)"J	C3I	N3TGI7L+I3I
N2 WR3A	D+NCG+NCK3F?R7MR +TCY+OCR3F3IE*M2LRI3AGT2 GM+X?R.1B0"/*M2I;I7D[E"=64"J&33W	R+TE.4&,*9&0"M&J3W	R+TE.4&,*0&0"M&J3RGE/DR(.,^1*0&0K*M2I[I*(;K+E;Q20^)3O?T" 66"J&73W	R+TE.4&,*0&1"M&J/KR="M&J7GSO/OF .MZJ6IKW3IWT*(24.1B0"46)6JJI3ESA*(24.1J320&)3NWDV*M2I[I
(;I7D[E2.WL*.&57GSO/ON .MFJ2IWR+AD3ISN+E3V.1B120:)3G:,T*M2I[I2(
N2.WL2.GM+X;R3ASN6.SN2.WL..B12)?G+TCO"8*M6IKW3IWT*(24.9V9")*M2I?G+TCO"1*M7CJI3ESA3I
N2 WH3A	D7NOG.M"J2IWR+AD3ISN+E3V.1B0*0")3RKU3R/I*(	I.,7I.1N,")*M2I?D. B1. 7I21:,G*M"1&03RGE3D&(3NWD/VF,.0B06)R(7ESX*(3I+J2)/JF=*,&3"M&J7R
E3ISN2 ;I7D[E"M&J7ISS"=612J:I7CKU"=602J:I7TSO"=606J^I7RSI/ER(.,B1*0&1"M&J3W	R+TE.5F,.1B02)
N6,SN"M&J3W	R+TE.5F,.0B06)J(7UKB+IK+I2)/IF=*,&3"M&J+DCO*1B2/I6 21:,G*M.LJ16IKW3IWT*(25.1B0*0")7TE3T&(*,	J.,7J.1N,")*M3C:I+OCW3H;A3DWL2 ;A7YB 7OOS3I3B3E& 7NWP3TZ 3IWL.MFJ65^I7RSI/ER(.,B1*0&2"M&J3RGE/DR(.,F1*0&02 ;I7D[E"M&J+IF3ISN+E;V+L;E25^)3O?T. B1"0*M6IK
3IWT*(24.1B0"16)6JJI3ESA2(;I7D[E.,F1*0&03N[G6,SNF*M2I[I2(
N3F^.3T:.7G^)7RSI/ER(.,&1*1&0"M&J3K:=+G/F"1*M2IWR+AD3ISN+E3V.1B2*1")3V&(2)&,*=21K6).JB42IWR+AD3ISN+E3V.1B720&)6,Z(*(	J.,7J21:,T6)2J&I3F&(2.WL*.&07GSO/O& "0*M2I[I*(;I+G;T+N	G7GSO/OR "0*M6ISN/O7T3N?T/TF+"M&J7NWC3R:=7CKU"+612JRI/OJ 25* *=213N[T.MJJ65"I2(ON+U
R/J6)3V*(")*M6ISN3T:=+T/F"1*M2I?D. ^2. 7J7NST6,SN.MJJ67"I2(ON+U3R/J6)"0*M2I
I2(ON+U	R"=7I2J&I3F:(7CKU6.SL2.GM+X	R7GSO/OR "0*M.2B06IOI/TJ=.MJJ"0&13W	R+TE.4F,.2B02)ONU7R2JNL2IWW2 WG3T" 3EWR2MNJ*IB1+OCN3F3U3LJ 3U[F+ECR3ASN* B2+OCN7ICN+UCT3ESN2 Z<3IWL6 KO2 ;U7FKO7MSA/E;D2MNJ6IOIT6="J	C21>I3NJ 3U[F+ECR3F3U3L& 3NZ 3IWL2MNJ"I&2+OCN7ICN+
CT3F3I3EV +NCD6<WB3T6 3AKY3E6 7IKO7ER 3ON 3OWM">*M/CNI2I;O2 ;U7FKO7MSA+ECD7ICN+UCT3ESN2MNJ2I	F7RSS2 GH3N3D3E2 7ISSS*M3C2I7ISS3S2 3O
N+ECR3TGH/NN 2 	L7NOE2 ?T2 ;U+ICT"3*M3CRI3EGF7USL3SZ +OCR7LOI3TF +RCE3F?R/MF 2 ?T2 ONU7R.JB265^I7RSI/ER(.,N1*5&0"M&J3RGE/DR(.,F1*0&03K2,"M&J+IF3KV./QB.2)?G+TCO.3B0"M&J+IF3LV./QB..)7L7NWCR*M2I[I2(2(*-	K6.SG*.&27GSO/ON2"0*M2I?D. V220& *=3KL*M.2B56IKW3IWT*(2
.1B320&)2,
I*(	I6,"(*(3I+J2)/JF=6,SN")*M2I?G+TCO.3B0.MJJ"3&0+DCO.2V3. 7I3K2,.MJJ"3&53W	R+TE.3F,.3B2*)3I+IG+I2)*(X3I*,2)*,*=21+N	T2MNJ2I?N3W" 3ASN+LCE7A	N6 KE7RKO3S& 3NR 3AGT.MNJ"0&03W	R+TE.4F,.4B0")*M2IWR+AD.4F,.1B0")7I2J&I3F&(6.GE*.&07GSO/OR "0606J^I7RSI/ER(.,V1*0&
.MNJ"1&53RGE/DR(.,B2*1&03I.,6,Z(*(	J.,7J21:,T6)2J&I3F&(2.WL*.&07GSO/OJ "0652J&I3F.(2.WL2.ON+U;R3ASN*.;K+G;T20^)3O?T. J3"5*M6IKW3IWT*(24.9V9")*M2I?G2 ?T. F3"5*M.3V22I
I*(	I"=7K2JRI/ON *3B0/JF=6,SN.MNJ"3&03X&(*,	J*=VJ6)2J^I7OR /ON "165.JB9.I7J3N?TT*M6IKW3IWT*(24.1B620*)2,ONU7R2J&I/S7T"1*M2I?G2 ?T. B2"5*M"L	C+OCN+NCO7EKR7OOR2 GD+TCA+ICS3W	R3TWT7NR 3OZ 3IWL2 ;U+ICT"5*M.4B06IKW3IWT*(24.1B0"16)2JRI/OR *1B0/IF=2,ONU7R.JF460^
7RSI/EV(.,^1*0&0+IG+I2)*(X3I*,2)*,*=21+N	T"M&J7NWC/RB=.M&J29^I3O?T.(V1.,B4.,B1*02)7ISS"M2J7CRI7HOI2 GH3N3D+ECS3TWH2 ;U7FKO7MSA+ECD7ICNU7T"J	C3T	H3S6 3UC2 WB2 ?D+NCE7HKE3EZ +OCR3T?W2 WR3A?SN7S"J	C21: 3O" 3ESA3I
N3SF +RCE7ICN+UCT7HKEE*M/CJI2 T3EZ 3IWL2 ?F3RGM7TJ 7EWQ3IWR/SJ 2 	L7NOE2 W+ECN/N;K67^ 3HOI3H& 3SF 6 WN3SGI3NWS2MNJ6IKF3O. 3EKY7OKAD*M.1B02I[I2(;I7D[E6.SG*.&57GSO/OF "1652J&I3NWD/VR="M&J3W	R+TE.4F,.8B0")*M6IOI/TN="M&J3RGE/DR(.,F1*0&03ISNE7V2J&I3F&(3NWD3V2.
EN.2)?G+TCO.9B1"M&J+IF3ISN+E;V+L;E25^)3O?T. B1"7*M6IKW3IWT*(24.1B0"16)2J^I3O?T. F1"5*M.1^06IKW3IWT*(24.1V9"06).JF165JI3ESA2(;I7D[E.,B2*0&0+Y",3V*(2)*,*=21+N	T"M&J7I&=2MNJ2IT+ICS3C;O7SKT7USC3I;O2 	G7VOE* CA3CGH3NWC2 ?T2 WD3TOET*M3C6I7IOS3I
N6 KG7OCU6 WN3MWBR7S2J&I3F&(2.WN*.&07GSO/OF "560.JJ120&I3F&(3NWD3V^./TV.6)KW3IWT*(24.1B620:)7TSO2,ONU7R2J&I3NWD/VF="M&J7ISS"=632J^I3O?T. B2"5*M.1B52I[I*(;I+L;E+N;G3ASN*.;I+G;T20F.+N;D3IV.7Q&.2)?G+TCO.1V2"M&J3W	R+TE.4&,*9&5"M&J+IF3ISN+E;V+G;T65^)7RSI/ER(.,
1*0&07NWC3R&,*,3Y*(V+I2)/IF=6,SN")*M2I?G2 ?T. F1"5*M.1V22ION/U7R7NWC/RF+"M&J3N?T3T:=7TSO"+612J&I3G:(7CKU2)&="M&J+DCO.1B6. 7I21:,T*M.1B6*IX7NWC3R&,6)Z=*(	I"M&J+IF7NWC3R^./EF.*0&07GSO/OJ "0612J^I3O?T. F1"5*M3CVI+NCD7RSU3IWN.M&J"1&03W	R+TE.4F,.0F0")*M2I[I2(O
+U;R+E;Q20^)3O?T. J9"5*M2I?D. J920& *=217NWCR*M.9B26IKW3IWT*(25.1B720&)3G&(*)",3X&(*,	J.,7J21:,T6).JJ925&I"=60.JN960^I7RSI/EV(.,^1*0&0+I",3V*(2)*,*=21+N	T"M&J3W	R+TE.4F,.9B06)SNO7T2JNI3A3L6 EI7T2JVIN7D&J*L+IG+I2)*(X3I*,2)*,*=21+N	T2MNJ2I?N3W" 3ASN+LCE7A	N
 KE7RKO3S& 3NR 3AGT.MNJ"0&03W	R+TE.4F,.4B0")*M2IWR+AD.4F,.1B0")7I2J&I3F&(6.GE*.&07GSO/OR "0606J^I7RSI/ER(.,V1*0&0.MNJ"1&53RGE/DR(.,B2*1&0

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