File KUSOR.FT (FORTRAN source file)

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

2MNJ"I&I"I&I3S	E+TCE"1*M3C.I3U?SR*MC*M6IWS3B?R3U	T+NCE7KOU+OR+I&3*MBJ* B * B 2 ?C3M?M3N& 7FKO3M&,3H3A3B&,3SGT6,OI+T3B7ISS3D&,3SWT6,OI+T3F7ISS3G&,3S3T6,OIT7M*JB * B * B 3C7O3M;O2 GL+N3F3I;A3F&,.,KI6,+I+F3E3I[Z3A:,*MBJ* B * B 2 	D3M;E3S?I3N& .(F1.,R1*82)+I"
.1"42)&,.3R(.,R1"86)2JRI/O^ *2B0/LF=.,R1"8*M2I[I.(KI*(	L.)^ *025.7B2.,B7"5*M.7V02I?D. B7202 .0J=",642J&I3F&(232(202,*)B).7B1.,B7.0^,"160.JF720&I3F&(232(202,.)F-*0B).7V2.,J7.5^,"060.JJ725&I232(202,2)&=232(202,.)F+.M^J"0&03C;O3T;IU7E.JJ720NI7OSN7IWNE*M7CNI7
SR7IKEE7N2J.I.0F="4682JRI/OF 20. 23&=3A[N.,R1"8*M.ISK.=R128.-23&+3A[N"M&J+DCO*3B0/K6521.,"0*M2I[I*(I21.,*46)+I"321.,*5&). B3.,F2.0N,"0*M.2B12I?D. J220. .6F=",642J&I3T7E.=OI.([K.,WK")*M.IOI.([K.,WK2)&=23.(26.,"46).JJ220&I23.(26.,.46)3IWTM*M.ICK.=CK"-612J^I
O?T. B1.MNJ20NI7OSN7IWNE*M2I[I.(OI*(21+K&4.)J *325.2V0.,N2"5*M.2V02I?D. B220. .1F=.,CK"M&J+IF+I"321.,*1&).2B0.,N2.0J,"060.JN220&I.3F(.,GK2)&=*(21+K&4"M&J+DCO.2B4. [K*=21"4*M6ISI/E7M+I"3+K26+K&1"M&J+I"3+K26+K&1.=OI.([K.,SK")*M.2B4.IOI.([K.,SK2)&=3T7E.MJJ"3
5/K60+K60"1*M2I?G+TCO"160.JB220NI7OSN7IWNE*M6ISSO7P.JB12I?C3N	T3NWU"M&J+DCO.4B0. GK*=21K60.JB420&I.3F(.,GK.)B="M&J+DCO.3B0. OK2=GI+N3F.1"4"M&J+IF+I"322.,*36)*1&1.3B1.,F3.0N,"260.JF320&I.3J(.,OK2)&=.(OI*(22+K&3.,OK")*M.3B22I[I.(OI*(23+K&3.-F1.)N3.0N,*320.3
4.MNJ"3&0+I"323.,.36)3I&(.3N(.,OK2).,"36).JR320&I3F&(.3R(.,OK.)F)*420.1B4.,N1"5*M.1B4.IOI*(24+K&3.=B1"0*M2I?G+TCO.3B0.MFJ"3&5+IF+I"324.,*36)*1&1.1B6.,Z1.0N,"060.JZ120&I.3R(.,OK2)&=.(OI*(24+K&3.,OK")*M.3B02I?C3N	T3NWU"M&J7RSE3U;R"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