File DRAW.FT (FORTRAN source file)

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

7CB 3R
O3R7A6 KDA7W*JCC3DGR3W& 7SB 3R7I3A	R+LCY3C;O7CKE3NSE2 	W+TCH3L;I7EKA2 7I3AWG7SR.7HSA6 OI2 ?T2 GS3Y&,T*M7CV 7SOE2 T3EN 7ROO3SGH7IOR2 ?T6 KD+ACW7SKT3A
I+HCT3L;I+E3S3ASN2 GC3NF 3L?S6 KC7ESAE*M3CN 7LOO+ECD3P3O3Y?G+NCS+OCF7NN-3IWD3SF +NCD7WSI3HF 6 CS3E	C3FOI2 GR7DWI7SR.7HOI2 7I3P	LE7S*JCC3TWH2 KA3I	L+TCY+TCO7ION3C	R+BCE3ASN2 	C7RWC3MOS3RKI7EZ 7E	R2 	S3M3P3YJ,7YN 3POE7I	F3I
N2MNJ2 T3EN 7OKR7ESC2 GR7DWI3SF +NCD3TWH2 GS+MCE3C;E7TKE6 OA2 ?F7RR +HCE3O	R3G;I+ACL3P3O3Y?GN6.*JCC3DGR3WF 3L?S2 GH3SF +LCL3TWH2 ?H3UWS3KWE3P;I3GZ 3UON3T?I+N;S2MNJ"I	D3DGR+WCS7DKA7KZ 7ESCO7R"J	C3EVI7ROA+ECS7SKC3E;E2MNJ"I	F3CGH7ION2 ?T2 ?M3D[I7YN.V*M3C^I2I
3A;I7SR 3O^ 3FOI6.[S2MNJ"I	I3I	N3TGI7L+I+ECS3TKAL7E"J	C3LRI7R
A3S2 3IG7TZ 7ESCO7R"J	C7N^I7RSI+ECS3N7U3MWB3R> 7FB 3O;I+TCS3UWS3D& 7NR 3A3BE*M3C>I2I7O7IOT2 ?P7ISN3SZ 3R7O2 GT3BWL* N(")*M7CBI6IKD7AOW2 ?P7ISN2MNJ"I	T3CGH7ION2 ?T2 GT+P;ES7V"J	C7W^I7RSI+ECS3A3L2 ?P7ISNS*M7C"I6IE7IOT6 KF+OCM3P?R3GGRM*M7C&I6IKD7AOW2 ?P3L
Y+OCN2(GR7DWI3S:,3UKM+ECR+OCF3SSI+E	S2MNJ2 ?F7RKT+ACNI7I*JCC+SCR2:V 7ROA3EZ.+T> 2 ?J3YZ.+T> 2 SF+I;S+FCT2/F 3LP3AZ.T*M3CN /H* 2 GT+P;E+SCV2/6 3O	D+F;Y+SCV2/^ 3FOI6.[S2MNJ2 WB3AKR7ESI3U
N2 ?V3NR 7EWC+SN .8^-"7632JNI3O7M+OCN3NGT3B&,P7T2JRI3IWM3N	S+OCN3NGT+B" .5B0*,&3"M&J7GSO/ON 2MNJ2 ;I+ICT3TKAL7E"J&17ISP"=602JNI3A3L2 SF+ICS*(20.0B,")*M2I?G+TCO"3*M3CV 7ROA7EN 3CWRE7N"J&23C3A3LV 7ROAE*M3C^ +ECT3C?O3R	D7NSA+ECS3ASN2 C3AGR3CWTR7S"J&33C3A3L* 
OY+I3X+I3YK6)*JCC/DJ(*8&82 GD+RCK3VOE7TKO2,> .(&9*2B)3O	M+TB,/IZ(*0&82 ;I3I	T3A	LZ7E*JCC/L"(*0&02 	L7GSH2 WV3C?T+RB,/PF(.0Z56)B 3O;I+TB,/EN(*5&26 KE3AWS",*M7C^ .(V1*0&46 KW3IWT2 GT3BWL6,R .(N1*1&22 GT+P3E* G.4B82)N 3H	A7NR 3O^ 3FOI2MNJ* Y.1N6*2B)3P3O3Y?G+
B,/XF(.5"62)V 7XSI2MNJ* F.4Z12)N 3H	A7NR 3O6 3O	DF7Y2J&I+F" /KJ-*8&8* 24*127"4*M24&I+F" /K&-*9&2* 25*223"5*M25&I+F" /KZ-*0&8* 26.1Z,.MZJ2I[I2 .(.-B8*0B).7F,.8^,.M^J2I[I2 .(.-V1*6&8.8J,.8",.M"J2I[I2 .(.-B1*5&6* 29*129"9*M29&I+F" /KN-*5&2. B1*,22"160.JB12I[
2 .(.-V1*0&4. F1.,F2.,F1.MFJ21&I+F" /KF-.3J1.)F .2J,.6F,"2*M"1&2+ICF*(7K.4B8.)F .3J,.7F,"3*M"1&3+ICF*(7K.1N6*2B)*124*321"164.JR12I[I2 .(.-J9*8B)*125*320"165.JV12I[I2 .(.-Z8*4B)*126*328"166.JZ12I[I2 .(.-F4*6B).3J,.9N,2MNJ2 WS3T& 2 ?F3RR 3A/R2 WV3C?TR*M.L^1
I7I"0*M2I?G+TCO"260*JCC3I2=3IG7TZ 7ESC+O3R3C3A3LZ 7DOI2 ?F3R2 7ASS2 ?P7ISN.MFJ28&I"=612JNI3A3L2 SF+IS20:,3TKA6(CI/TJ,2):,3TKA6(CI/TN,")6)2J^I3O?T. B22MNJ. 7I3P	ON7T.J&1.I7I"-61*JCC3DGR7WZ 7ESC+O3R6 WP7TB 3O;I3T& 7NR 3A3BE*M"2&03C3A3LZ 7DOI*(3I+I3X+I	Y"M&J
ISP6=CI/TF+"M&J3NGT3B&(+P3T.16)I*M6ISN+AB7ISP*,&26=I"M&J3NGT3B&(+P3T.36)I7Y2J^I3O?T" 63*JCC3W	R+TCE7RWO3T;I3E^-3O" 3OWM2,N 3A3L2 SF+ICS7WSI3HV 3AC2 ?P7ISN.MJJ21NI3A3L2 SF+IS.0B,*,&0"M&J+DCO*2B2/NF=6,CIT*M"2&23C3A3LZ 7DOI6(SN+AB/NF,2):,3TKA*(3N*22)3NGT3B:(
,&3")*M2I?G+TCO"3*M3C> 7MSI2 ?R3U	T+N7E7GSE2 ?N2 [O2 ?P7ISN7SR 3O> 7MSI.MJJ23NI3A3L2 3A3PGH"M&J3RGE+D" .1F,*0&0" 7M.JB120ZI3O7R+ACT*(N	.	F,+I&3"M&J+ICF6(CI3T6-.)J .5J,.5J,"4*M"2&47ISP6=CI3T6-"M&J3C3A3LV 7ROAE*M2I?G+TCO"261.JV22IGC+LCL3EGRS7E2J^I3O?T" 61.J
22IGC+LCL3CGH+ICN6(R	3AWP"	6).J^22IGC+LCL3CGH+ICN2(^	3FOI"	6).J&22IGC+LCL3CGH+ICN2(6	3O	D+F
Y")*M"2&83C3A3LV 7XSI2MNJ6 KW3IWT6 CIT*M"3&03C3A3LF 3LPA*M6IKW3IWT. F(.,B1*1B)7ISP.MFJ"0&17FKO7MSA2 &("36)2J^I3O?T" 63.JF32IGC+LCL7ACLH7A*JCC3P3O3Y?G7NJ 7OSU3IWN"M&J3RGE+D" .1F,*0&3* 3RX*M.1N02I?F3RGM+T" 2	GR7DWI+S^ +F:3*0B	2> 7FN 3IWD+S^ +F:3"06)2JNI3A3L
 ?J3Y&(3X&,3Y.,")*M.ISX*=:6.2N8.1V8"3*M.IOX*=:0"M&J/X62+X>4X*M6ICI3T&=+P/T"1*M6ISN+AB7ISP*,&1.=F-"M&J3NGT3B&(+P3T.26)3I	F7XJ(2)&+X*M6ISN+AB7ISP*,&36=	I"M&J3C3A3LZ 7DOI.(F-6,SN+AB7ISP*,&26,SN+AB7ISP*,&3")*M"3&47ISP6=CI/TF+"M&J+ICF6(CI/TV-*0&0. V3.,V3.,^3.M
J25:I3TKA6(CI/TF,.)F="M2J6ISN+AB7ISP*,&22=[I+IX3RN*+OS+X&32)&+X*M6ISN+AB7ISP*,&32=[I+IX7RN*+IN+X&32)&+Y*M.IOX.=OX.+KX"M&J+ICF.(OX.-SX.)N .6N,.6N,.MNJ26NI3A3L2 SF+ICS*(213NGT3B&(+P3T*22)3NGT3B&(+P3T*3&)"M&J7GSO/ON "4*M"3&73C3A3LF 3LPA*M6IKW3IWT. F(.,B1"46)
JB124ZI3O7R+ACT2(6	7AKT+ICX3F3I3LSE"	6)2J^I3O?T" 63*JCC7M[O3I
N6 WS3B?R3U	TN7E.J"32IGC+LCL7ACLH7A6JJI3ESA. F(.,B1*5B)K*M.1V02I?F3RGM+T" 2	WD7SKT+OCY3OSL6?& *=21. 7N*2^ +I&1"M&J7GSO+O" *420*3&9",7K.J&36ICN3T&=P7T2J:I3TKA6(CI/TF+*,&1.=F-"M&J7GSO/OR "1*M"4&07NSP"=60.JF42IGC+LCL7J	O6(I6,	I*,	K"M&J/N7XI7X2J:I3Z&=Y*M2IGC+
CL7J	O6(I6,	I*,	K"M&J/N7X+I7XN7X2J:I3Z&=3Y:-Z*M2I?D. J4. 7N21&,P7T2J:I3TKA6(CN3T:+*,&16=SN+AB/NF,")*M6ISN+AB7NSP*+3N.26)3NGT3B:(*,&26+N.MRJ22:I3TKA6(CN3T:+*,&36=SN+AB/NN,2):+Z*M6ICI3T&=+P/T7NSP"M&J3C3A3LF 3LPA*M6IKW3IWT. F(.,B1*6B)7ISP.MFJ"0&67FKO7MSA2 &(
36)2J^I3O?T" 632JVIN7D&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