File WLOG.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE3W?L3G&(3D/EA6)*JCC3SC3R	E+BCT3A[U2 	D3S3P+ACY.4F020V +ICN3WA3ROS3H	E3N	L3C/H7ESI3S:-7E+T2 	MT*M7CB 3U/N3TWI3RWT3N2 3I	N+ECN3USN2 ?L7GKA3IT7MOI3CWH7RR 3E3I3U
N2 WD3RF 7B+S7IOSE*M3CR +ICE3E/C3P;U3KWT2 	S+NCD.(B8.,B56)V +NCD.(J7.5&,*8&0* B-*5V02-	L3NWI6 OI/TN *827"5*M3C& 3D/E3A& +SCT3DWI2 GZ+HCL7DKE2 GW3E3H7BKA+ECN3D/E3AWD+N" 7MA3IGM/LF "06)*JCC7FKO3TGR3N& +I> 6 CO3T?I+N" I6)*JCC+SCR2:Z 7DOI6.SF* B/7ACL+H;AF7T*J
C+DCA6:^ 3L
O2.GD"M&J/F7I3IWDK7A2JNI3A3L2 ?I3P;E6(N	+Y
S6,^	3L
O"	6)2JRI/OF .0B0. 7I.1&,"M&J3RGE/DR(.,B120&)3A&,3X&,Y*M.1B02I?F3RGM3TF("26).JB1"0&03C3A3LZ 7DOI2(GI6,I6,	I")*M2I?D. B1*0B1/IF=.,^1"M&J3RGE/DR(.,B120&)Y*M2IGC+LCL3F	D/SB(.,B86,	I")*M2I?D. B1*0B1/J"=.0&,*820"5*M.1B021NI3A3L2 SF+IS*-213J&,Y6)2J&I3F&(3D/E/AF
.)B1*022.1B0.2F,.0V02MNJ2 KA3S	Z3SWS2 	M3TV 3IWN3R2 +O7G3D/E3AWD.MFJ.0J02I?D. B1*0B4/IF=",696JJI3ESA*(24.1B06)I"M&J+IF/IF-.)B1*023.1B0.4F,.0N0.MFJ.0N02IGC+LCL3F	D/SB(6,I.,B5")*M2I?D. B1*0B4/JV=.0^,*225"5*M2IGC+LCL3F	D+S6(21&,3X*,")*M.1B024NI7OSN7IWNE*M2I?
+TCO.1F0"0*M3CF 7B+S7IOS3E6 +ICT3ME3RF +LCS3E;I+ECR3L
O2-WD3KSAE*M.1B025RI/OF .0&0. 7I.1R,"M&J3RGE/DR(.,B120&)3T7E"M&J+DCO.1B029* *=213IWDK7A2J&I/X"=*0..2(3F7OSA*(7J*1*).9B02.Z+3LGO3T&(3T7E.-B8*)>)F7I2J&I3F&(*+7J.2F).0"0.,B1*028.1B0"6*M.1B026NI3A3L2 SF+IS20&,/XV,"06)2JRI/OF .0^0. 7K*520.7V2",652JNI3A3L2 SF+I
*-21+I3XK6).JB1"0&73C;O3T;IU7E.JB1"0&83C;O3T;IU7E.JB1"0&93C;O3T;IU7E6JJI3ESA*(24.1B02)&(3X*,*=21"56)*JCC7BOE7CKH7ISF3U
N2 WD3R> 3R	D7NSAE7N.JB1"1&0+DCO.1F021& *=21"1696JJI3ESA*(24.1B06)	I6,+I"M&J3C3A3LZ 7DOI*(2020&,Y6)2JNI3A3L2 3A3PGH"M&J+Z:=21Z*3LGO3T&(Z6)6J^I7RSI/EF(.,B165*).MFJ"0&57FKO7MSA.(SF*.21*	^%")*M.1F021NI7OSN7IWNE*M3CJ 3EOS3H	R7FWT+NCG7DKE2 KA3S	Z3SWSN*M2I[I2(S
3EGK*-&1.1F0.2F,.0J1.,B1"165.JB1"1&2+DCO.1F023& *=21"1606JJI3ESA*(24.1B06)I6,+I"M2J2IGC+LCL3F	D/SB(6,I*,&5"M&J3C3A3LF 3LPA*M6IKW3IWT*(21.1B16)+I",*M.1B12I?F3RGM3T&("26).JB1"1&33C;O3T;IU7E2J&I/ZF="M&J3C3A3LZ 7DOI*(20.1B0.5F,"56)2JNI3A3L2 3A3PGH"M&J3W	R+TE.
F,*1&5+I3Z.MFJ"1&57FKO7MSA.(GI")*M6I+I"=602JNI3A3L2 SF+IS.0&,.5F,"56)2JNI3A3L2 3A3PGH"M&J3W	R+TE.1F,*1&5+I3Z"M&J7RSE3U;R.MFJ.0V12I?D. B1*1B6/IF=",646JJI3ESA*(24.1B06)SI+E3MI7Z2JRI/OF .0Z1. 7J21&,3D/EA*M6II.=B8*."+.9B02.Z*3LGO3T*(*-&12+3F7OSA6(SI+E7M*8&02)
//IF-"56.2JNI3A3L2 SF+IS20&,/XV,")*M2IGC+LCL7ACLH7A6J^I7RSI/EF(.,F120&)Z6,.JB1"1&63C;O3T;IU7E2J&I/ZF="0*M2IGC+LCL3F	D/SB(.,Z9.5V,")*M2IGC+LCL7ACLH7A6J^I7RSI/EF(.,F120&)Z6,2JRI/OF .0B2. 7I20&,3D/EA*M6II.=V92.Z+3LGO3T&(.)&**0:02/	F"M&J3C3A3LZ 7DOI*(20+I3X*1
5"M&J3C3A3LF 3LPA*M6IKW3IWT*(21.1V1*)3I.MFJ.0B22I?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