File DRAW.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. V(*020"36)2J^I3O?T. B12MNJ2I;I+ICT3TKAL7E.J" 6ICI/TB="M&J3C3A3LZ 7DOI. B(*,20"06)2J^I3O?T. B12MNJ6IKE3AWS2 OS3RWEN*M" &53C3A3LV 7ROAE*M3C^I+ECT3C?O7ROD2 ;A3DN 7HKA*MBJ"1&03C3A3L* +OY+I3X+I3YK6)"J	C/DJ(*8&82 GD+
CK3VOE7TKO2,> .(&9*2B)3O	M+TB,/IZ(*0&82 ;I3I	T3A	LZ7E"J	C/L"(*0&02 	L7GSH2 WV3C?T+RB,/PF(.0Z56)B 3O;I+TB,/EN(*5&26 KE3AWS",*MC& /WF(.5R06)^ 7RSI7ER 3A3B+EB,/TF(.3J16)R 3AWP2,^ .("4*0B)3CGH+ICN+TCO3G	FC*M7C&I.(Z1*3&22 ?P3L
Y+O3N* X.1Z5*8B)3E	X+TB,/CJ(*2&42 C3A;I2 ?T2 C3AGR3CWTR*M3CZI.(F4*6B)3CGH+ICN+TCO3MSO7I	F"M&J+ICF*(7K.2"8.)F .4R,.0F,"4*M. R12I[I2 .(.-&9*2B)*125.5B0.,V1*MBJ"1&5+ICF*(7K.6"0.)J .0",.,B2.MJJ20&I3F.(.-B8*0B)*225*520"265.JV22I[I*(7K.1Z5.8N).0F,.2F0.,B3*MBJ"3
0+ICF*(7K.1V0*6B)*325*620"365.JN 25&I+F" /KN-*5&2. ^3*,25"367.JN 27&I+F" /KF-.5R0.)N .8F,*520"368.JN 28&I+F" /KF-.3J1.)N .9F,.0B0.,&3.MNJ29&I+F" /KR-*8&0. J2.,B2*020"262.JJ22I[I2 .(.-Z1*3&2. J1*024.1B7.0F,.2R0.MFJ.2R02I[I2 .(.-J9*8B).1B2.0F,.2V0.,J1"060.J
1"0&0+ICF*(7K.8R6.)F .2J0.,&1*020.1B2"2*M.1B222&I+F" /KJ-*2&4. F2.0F,.1"3.,F2"0*M.2B12I[I2 .(.-F4*6B)*120.2B2.,B12MNJ2IWS3T& 2 ?F3RR 3A/R2 WV3C?TR*M. B4.I7I"0*M2I?G+TCO.1B02MNJ.I7I3L
I+HCT3VOE7TKO2,GC+LCL3F	D3SZ +OCR7LOA7TB 3O;IT*M. B5.I7I"1*M2IGC+LCL3F	D/SB(6,SN+AB7ISP*,&26,SN+AB7ISP*,&3")*M2I?G+TCO.1B02MNJ.I7I3P	ON7T.JZ 20&I.=F-2MNJ6IKD+ACW3VOE7TKO6,B +UCT3P	O+NCT+ICN3TKAL7E.JF "0&03C3A3LZ 7DOI*(3I+I3X+I	Y"M&J7ISP6=CI/TF+"M&J3NGT3B&
+P3T.16)I*M6ISN+AB7ISP*,&26=I"M&J3NGT3B&(+P3T.36)I7Y2J^I3O?T. B12MNJ6IKW3IWT2 ?R3U	T+N7E+GCO3H7O+EB,3C3A3LZ 7DOI2 	W+TCH3EOA7HB 3O;IT*M. V120NI3A3L2 SF+IS.0B,*,&0"M&J+DCO.2B0. 7N21&,P7T.JJ "0&03C3A3LZ 7DOI6(SN+AB/NF,2):,3TKA*(3N*22)3NGT3B:(*,&3")*M2I?G+TC
"160"J	C3O	M7TJ 7OSU3IWN2-WG3T: 3O> 7FB 3O;I+TCS+TCO3O	MT*M. B520NI3A3L2 3A3PGH"M&J3RGE+D" .1V,*0&1" 7M.JV "0&17FKO7MSA* ^(*2	.1OI")*M2I[I2 &(+P7T+MB).5B2.,J5.0V,"160.JV "1&07ISP6=CI3T6-"M&J3C3A3LV 7ROAE*M2I?G+TCO.1B5*MBJ.5B22IGC+LCL3EGRS7E2J^I3O?T" 68.JB
"0&03C3A3LN 3H	A+N" 2	GT+P
E")*M.2B020NI3A3L2 C3A;I* ^(3G	F+C&	.MFJ.2F02IGC+LCL3E	XT*M.1N128NI3A3L2 C3A;I* ^(3CGH+R&	.MJJ"2&03C3A3LN 3H	A+N" 2	?M3D[I+Y&	2MNJ6IKW3IWT6 CIT*M.1B225NI3A3L2 3A3PGH"M&J3W	R+TCE*(21.1B2*6B)7ISP.MFJ.2Z02I?F3RGM+T" +I&3"M&J7GSO/OF "0*M.1B720NI3A3L2 3A3PGH2M
J2I?P3L
Y+OCN7RWO3T;IE*M.1F760JI3ESA. F(.,^1*1&1* 3RX*M.1F721ZI3O7R+ACT6(J	3A	D+UCS.	OF*.^0* B+OCF3SSI+ECS.	OF*.&0"M&J3C3A3L* +OY+I3X+I3YK6)6J"I.4J=..N*..R1.1&5"2666J"I.3B=".*M.IKX.=SX"/7X2J&I/P7T7ISP"+612J:I3TKA6(CI/TF,*)6="1*M6ISN+AB7ISP*,&22=[I+IX+R.)I7X2J:I3T
A6(CI/TN,2)&=Y*M2IGC+LCL3F	D+S6(21:,3TKA6(CI/TJ,2):,3TKA6(CI/TN,")6).J^1"5&47ISP6=CI/TF+"M&J+ICF6(CI/TV-*0&0. ^1*527.1V7.7F,.7"5.MFJ.7^56ISN+AB7ISP*,&1"=612J:I3TKA6(CI/TJ,2)&=7FI*(+R7COO.(OX*).)I7X2J:I3TKA6(CI/TN,2)&=7FI*(+R3S;I.(OX*).)I7Y6J"I63"=63"+"2*M
I[I6 "(63"-*4B).1V7.6F,.7Z5.,B1.MFJ.7Z52IGC+LCL3F	D+S" 21:,3TKA6(CI/TJ,2):,3TKA6(CI/TN,")6)2J^I3O?T. ^1"564.J^1"5&83C3A3LF 3LPA*M6IKW3IWT. F(.,^1*5&9.MFJ.7&52I?F3RGM+T" 2	GM3T	R3XZ 3I3L+E
D")*M2I?G+TCO"160"J	C7M[O3I
N6 WS3B?R3U	TN7E.J&1"0&03C3A3LF 3LPA*M2IWR+ACD*(21.1B9*1B)K*M.1B921ZI3O7R+ACT2(R	7ESS7R	O2 3O+DB?/YF=2,: *=B2.	GI")*M2I?G+TCO.(&1*023.1B9*22)K*M.1B922:I/P7T7ISP"M&J3NGT3B&(+P/T.1F,*)6="1*M2I?G+TCO.1B9"6*M.1B923:I/P7T"0*M.1B926NI3A3L2 ?J3Y&(3X&,3Y.,")*M6IN
=I"M&J/N7ZI7Y2JNI3A3L2 ?J3Y&(3X&,3Y.,")*M6IN6=I6-N"M&J/N7Z+I7YN7Z2JRI/OF .9R0. 7N21&,P7T2J:I3TKA6(CN3T:+*,&16=SN+AB/NF,")*M6ISN+AB7NSP*+3N.26)3NGT3B:(*,&26+N.MFJ.9R06ISN+AB7NSP*+3N.36)3NGT3B:(*,&36++N"M&J7ISP6=CI3T:+P7T2JNI3A3L2 3A3PGH"M&J3W	R+TCE*(21.1B9
5B)7ISP.MFJ.9V02I?F3RGM+T" +I&3"M&J7GSO/OF "0*M2I;ED*MBLBZ

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