File KUWA0.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.I3UGW"0*MC*M3C.I7UOR3WA+L6 2 WU7BKE3TGR3G;E2 WD3RJ 3A	S3SGD3T	EE7N"J	C3V;O2 	E3N7E2 GH3L+B7AKH6 WZ3M: 3AOE7HSSE7N"J7C*JB * B * B 3C7O3M;O2 [I3O7R2,I3AKL6,OI+T3A7ISS3B&,3SST6,OI+T3E7ISS3F&,3S
T6,OI+T3L7ISSM*M* B * B 2 R 3IWM3N	S+OCN3N7A/EF(.1F,*4&8.,GI*(26.1"42)2,.(R1*92)+I"3.4F,*4&8*MBJ* B * B 6 OI3POA.=J-.0Z12MNJ2I	E3NWL3S;E2 WD3R: 3EWU3NR 3AWTN*M.1B3* B 2 Z 3O7R+AT+A&1.MFJ"7&03W	R+TE.1F,*4&07ICS+A3C.MFJ"4&07FKO7MSA*(^/7NWE3E. 7LOA3S;E7SWT/F
E2	F,"16)6JJI3ESA. F(.,^225&)7FKOM*M6IKW3IWT. F(.,V120&)3SGPC6,.JV120ZI3O7R+AT2	WN7UOE2 GH3L+B7AKH*:B * 2	+A&1"M&J3RGE+D" .1F,*3&03IGHL7B"J	C7BKE3EC3N;U3GR +ECR7ASL+ECN3USN2 WN3U;E2 GD3T	E7AKD7EOSE7N2J&I3F&(7FKO/M&+*1&0. B1.0F,*120.1B2.MFJ"2&07ISS/AR="M&J
GSO/OF "660.JF120&I3SGT"=622J^I3O?T. Z1"0*M.1B06IOI/T7A"0*M.1B62I[I2(I3AKL.+J9*8B).1B7.,"1.0F,"960.J&120&I3SGT6=OI+T/A"1*M.1B86IOI/T7A.2B02*&(3SGT*-&1"M&J7ISS/LJ=26&+3SGT"M&J7ISS/MN=28&+3SGT"M&J7ISS/FZ=21&+3SGT"M&J+IF7ISS/AJ+*0&0.2B1.,F2.0J,"060.JF220&I3S
T6=OI+T/L.2B0"M&J7ISS3M&=3S7T.+B2"0*M6IOI/T7F7ISS/FJ+"0602J&I3SGT6=OI+T/A.2B0"M&J7GSO/OJ "560.J^225ZI3O7R+AT+A&22MNJ2IWU7BKE3TGR3G;E2 WD3R^ 3R;U3DGD3T	EE7N.JB220NI3A3L6 SR3AWP*(216-OI+T3L.1&4*,	L"M&J3C3A7LJ 7TCA/EF(2,&-3S7T.,Z1*2283N7AE6)2JNI3A3L6 SR3AWP*
216-OI+T3F.8"8.,GI")*M6IOI/T7A7ISS/AJ+"0602J&I3S3T6=OI+T/L.2B0"M&J7ISS3M&=3S7T.+B2"0*M6IOI/T7F7ISS/FJ+"0602J&I3FO3I&=7FKO/M&+"2622J&I3HA+I"=3IGH+L/B.9J9.)Z/"4*M2I?D. J220. .1F=.,R1"8*M.IGI*(24+K&12=[I3O	H.MJJ"2&0+I"125.,.16)3IGHH7I2JNI3A3L6 SW3AWP*(216-OI
T3L.1&4*,	L"M&J3C3A7L^ 7TCA/EF(2,&-3S7T.,Z1*2283N7AE6)2JNI3A3L6 SW3AWP*(216-OI+T3F.8"8.,GI")*MC*MC&I"I&I2IWS3IWT" 62"J7C"J	C3F/A7USL3A	T+VCE3UKE7ESR3R
A3U
N2 WD7R^ 3A3H7DSA3EWIN*M6IKW3IWT*(21.3B06)OI3POA",*M.3B02I?F3RGM+T^(3S3O3L;E2 	D7E^ 3A3H7DSA+ECN3AOU7HV 3EWB7RKT3AWG7N^ 3ESR+ECN*?2	+A&2"M&J3RGE/DF(.,^225&)3FGRG7E2J&I3F&(3FGR+G7E.6J7.)V2.0N,*120.2B5.MNJ"1&07ISS/G^=*8"+7ISS/AJ-*0&0"M&J7ISS/SF=*6.06(OI+T7A
2B0")*M2IGC+LCL3RGT+PE21&,3S
T.,Z1*2283N7AE6)2JNI3A3L6 SR3AWP*(216-OI+T3S.5J9.,OI")*M6IOI/T7G7ISS/GJ+"0602J&I7SOT6=OI+T/S.2B0"M&J3C3A7L^ 7TCA/EF(2,&-3S
T.,Z1*2283N7AE6)2JNI3A3L6 SW3AWP*(216-OI+T3S.5J9.,OI")*M.2B52IGC+LCL3CGH+IN6	WK/WCA+A&	"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