File 4JOF.FT (FORTRAN source file)

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

+CB * B 6 KP7OKG+ACM24?J+FB . J ./N2./N7*MBJ* B * B 3C7O3M;O2 GK7R	R2,GI7R	R2,ON3OSN2,SJ+U3R3IWL3T:,3T	R",7L*JB * B 2 R 3IWM3N	S+OCN7KKA+RY*5&72,GI7R	R.(&1*,&32,ON3OSN.(B92)*,7DKU.("12)&,7LSE.("1*,&3*MBJ* B * B 3D7I7EON3I;O. GI7RCS.(B92)&,62OR/P&(*02)7IWB
F&(*02)+IQ*32)3I?C+ND*9&0*MBJ* B * B 3D7I7EON3I;O2 3I7POO.("1")*M. &9* B 2 GP3UWS" 61*JB * B 2 N 3A3L6 COE7N*JB * B 2 N 3A3L2 WS7TCU*MBJ* B * B 3C3A7LN 3R;AD*M* B * B 2 WR+AD.1F,*0&13NGRN*M.1F0* B 2 ?F3RGM3T&("36)*JB * B 2 R /OF . 7I21:,3R;A.MFJ* B * B 3I
T/M7P3IGR+ND3D7U")*M* B * B 2 ?D* B6/IF=.,B9*MBJ* B6* B 3N?C+ND/I6)I*M* B * B 2 ?D* B2/IF=.,B1*MBJ* B2* B 3C3A7LN 3H[U21:(3C;O/DF,.,B9*,&1*MBJ* B * B 3RGE/DJ(.,B128&)/XGQ6,I+Q227IGY6,SI3I&,3T7I2,3I3I&,3Q&,7LSE2,OI3OSN.MFJ*0B8* B 7FKO7MSA2(&6.3J,.1GA2/&(*3
)*MBJ* B * B 7PWA+SCE"2*M* B * B 2 GC+LCL3OWPN*M* B * B 2 ?D. "3. 7L.1&,"0*M* B * B 2 ?D* B7/IF=.,"1*MBJ* B7* B 7ICL+OS/I6)I*M* B * B 2 ?D. J220& *=21"168*JB * B * B +DCO.2&1. 7J.1N,.MJJ*1B9* B 7KKA+RY*3"*/IF-2)*+2)&=7LSE*(3IJ6).JJ2*0B 2 N 7OSN7IWNE*M* B 
 B 2 ?D* B4/IF=",65*JB * B 2 N 3A3L2 S/UGF2(GK7R	R*,23*128"16)*JB * B 2 N 3A3L2 S/UGF2(3I7POO*,21*128"16)*JB * B 2 R /OJ *2B5/IF=.,"1*MBJ* B * B +DCO.2R2. 7J.1N,.MJJ*2B4* B 3IWL3T&(*,	J2=GK7R	R*(*3*(7I*1.)J6).JJ2*5B 2 N 7OSN7IWNE*M* B * B 2 ?D* B5/IF=.,&1
MBJ* B * B +DCO.2B0. 7J.1N,.MJJ*0B0* B 7IKA+RY3I*,.)B=*MBJ* B5* B 3C;O3T;IU7E*JB * B 2 N 3A3L6 SS3R;IG*M* B * B 2 GC+LCL3OWPN*M* B * B 2 GC+LCL3B[U+IL20&,3B[U6,GI*(&3*,21+I3X+I	Y*MBJ* B * B 3C3A7LJ 7SOP/TF(")*M* B * B 2 GC+LCL3S	T+ME.1B,")*M* B * B 2 GC+L
L7DCS/LGA2(KI+U	F*MBJ* B * B +DCO.1Z3. 7I.1F,.8F,*MBJ* B * B 3C3A3LJ 3U	F/LB(2,KI+U3F7KKA+RY+I2)23&,3X&,Y6)*JB * B 2 N 3A3L6 OR7PSS*(&1*MBJ* B * B 7IOT2=SJ+UR+I>).1B0"0*M* B * B 6 SI3M&=3R7E*(&0*MBJ* B * B 2 GC+LCL3S	T+ME7IOT6,SIM6)*JB * B 2 N 3A3L6 OD3PG
21&(3B[U")*M.1Z3* B 2 GC+LCL3W	T+ME20&,+L	I*MBJ* B * B 3JWS/TN=*MBJ* B * B 3C3A3LJ 3U	F/LB(2,KI+U3F7KKA+RY*5&5*,23+I3X+I	Y*MBJ* B * B 3C3A3LJ 3U	F/LF(2,KI+U3F+IQ*12)7IGX21&,+Y	Q*MBJ* B * B 3C3A3LJ 3U	F/LF(2,KI+U3F+IQ*22)21&,/XKQ6,	IQ6).JR1*2B 2 N 3A3L6 OR
PSS6(OJ+E	T*MBJ* B * B 3C3A7LN 3T7I/E&(*929"06)*JB * B 2 N 3A3L6 OD3PGL21&(3B[U")*M* B * B 2 [I*(653JWS/T&).8F,*420.1F4.MFJ*4B1* B 3C3A7LJ 3S;P3S&(+R3A3IKR")*M* B * B 2 [I6(KI/B&).8F,*427.1V4.MFJ*4B7* B 7IJ1+SP7NKT/I6)3IKR*MBJ* B * B 7IJ2+SP7NKT/I6).1&5"4
M* B * B 2 ?G2 ?T. R1"8*M.1V4* B 6 OJ/E7T"5*M* B * B 2 ?G2 ?T. R1"2*M.1B4* B 2 GC+LCL7RCS+NS3IOR6,KID6)*JB * B 2 & 61OR3P:(3T	R2)&=R7B*JB * B 2 & 3F&(+R	D*928.1F5.,V1"1*M.1F5* B 2 [I6(KI/DR-.)R1.4F,*424.1Z4.MFJ*4B6* B 3ISR*=*23ISR"-64.JR1*4B 2 & 62OR3P:(3
	R2)&=R7D.JR1*8B 2 N 3A3L6 SW3IWM6(SI3I&,3T7I")*M* B * B 2 GC+LCL3OWPN*M. "3* B 2 ?C3N	T3NWU*MBJ* B * B 3C3A3L> 3P;E*MBJ* B * B 7NKW/IB=*MBJ*2B2* B +DCO*7B07LWO/TF=",62*JB * B 2 R /OF 206 *=21"6*M. B1* B 6 KW3IWT2(?L+U3T.1B02)&(61OR3P&(2)&,*=3M*320"66).JB
*0B 2 Z 3O7R+AT.5OI"/6)*JB * B 6 ^ 7RSI/EF(.,V1"96)*JB * B 2 R /OZ 296 /AN=.1^,.1J,"0*M* B * B 2 KM2=GM.+&1*MBJ* B * B +DCO*6B8/M7C.1R,*MBJ* B * B /M7D+M/A+M7C"1*M. "6* B 6 KW3IWT2(?L+U3T.1B02)&(61OR3P&(2)&,2=SM2,KM*,&4*MBJ* B * B 3W	R+TE.1F,*5&9.MFJ*5B9*
B 7FKO7MSA*(>/"/6).JZ *9B 2 N 7OSN7IWNE*M. B7* B 2 ?C3N	T3NWU*MBJ* B * B 3W	R+TE.1F,*6&0.MFJ*6B0* B 7FKO7MSA*(>/*/>/")*M* B * B 2 [I6(
N+R	I*928*223"764.JJ *3B 2 R /O^ 26& *=21"960.J^ *6B 2 & 61OR3P&(2)&=62OR3P&(")*M* B * B 6 
N/R7I"1*M* B * B 2 ?G2 ?T. J2*MBJ*7B4* B 3W	R+TE.2F,*0&12(ON3OSN*(	I.,7I.1&,"06)*JB * B 2 ^ 7OR /O& "9*M. "9* B 6 SSO7P*JB * B 2 V N7D&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