File CLIPT.FT (FORTRAN source file)

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

* B * B 3SKU7RWO3T;I3EN 7LCI3TJ(3U	F3N>,3UKTF6)*JB * B 2 	D3M;E3S?I+NB 3B[U+IN*12)7OSU+BF"16)*JB * B 2 ?C3M?M+N> 7TSK7RN6/R 3M;I+V3X3T	M7N	V2,7T7A[X7XR,7MA+V3Y3TWR7AL6,KT3E3AY6,*JB * B 61R 3IGM+G3X3T7I7A	G6,KT7COO7FR,3R	S+N3F7TOR3C3A6,KT3FOA7XR,3RGF+C3Y*M
J* B * B27TCR/AGR6,KT7PKA62R,3RGP+R237TCR/ASR6,KT7PKA65R,3RGP+R263K?M3F
L*(&86,CK/AKD",*M* B . N 2 KK3ASU3R.,3G[N+L3G7KKG3A3F2,K3OWM3Y.,3K?M+D3E3K?H7R+S6,[K7EOR3Z.,3T3B+S3Z*MBJ* B * B43K	S3Z[E2,3K3M
R3N.,7RKM+G3N3KGF7CKT6,SK3E7R2,3K3IWN6,+K3A	X3S.,3BGE+M3X3KWB7A	M",*M* B . V 2 7K3OWV3F.,3PC+AR*52)3KGD7SSH2,7K7ION3X.,3M;I+S3Y3KGM7XS2,7K7AOX3Y.,3EOY+O3N*MBJ* B * B63K;I7LSF2,?K3T[L3T.,3U	NT*M* B * B 7GSS/A7X3B[U+IN"16)*JB * B 6 OG7T	A6=WB3F;I*(&2*MBJ* B
2 ^ 3ESN3XJ=3U	F/NN(")*M* B * B 3G;E/D7Y3B[U+IN"46)*JB * B 2 [I6(OG7TA2.WG2.7T7I[N3X^)7OR /OF "0*M* B * B +IF3G;E+D;X+G;E3T	M7NV2)?G2 ?T. B2*MBJ* B 2 ^ 7OR /OF "160.JB1* B 2 [I6(OG7TA2.WL2.7T7A[X3X^)7OR /OJ "0*M* B * B +IF3G;E+D;X+L;E3TGM7XV2)?G2 ?T. B2*M
J* B 2 ^ 7OR /OF "160.JB2* B 2 [I6(OG7T	A2.WG2.7T7I[N3Y^)7OR /OJ "1*M* B * B +IF3G;E+D;Y+G;E3T	M7N	V2)?G2 ?T. B3*MBJ* B 2 ^ 7OR /OF "160.JF2* B 2 [I6(OG7T	A2.WL2.7T7A[X3Y^)7OR /ON "0*M* B * B +IF3G;E+D;Y+L;E3TGM7X	V2)?G2 ?T. B3*MBJ* B 2 ^ 7OR /OF "160.JB3
 B 2 [I6(OG7TA2.WN2.WG7ND2)?G2 ?T. F3*MBJ* B 2 R 3SGT3X^=3SGTX*M* B * B 3D;E/D7X7GSSA7X*JB * B 2 GC+LCL7PKA7CSL6(OG7T	A2,WG7N	D2,7T7I[N7YR,7MA+V3Y7DSS+A3Y3D;E+D	Y*MBJ* B 2 ^ 7OR /OF "260.JF3* B 2 [I6(OG7T	A2.WN2.WG7N	D2)?G2 ?T. B4*MBJ* B 2 R 3SGT3Y^=3SGTY
M* B * B 3D;E/D7Y7GSSA7Y*JB * B 2 GC+LCL7PKA7CSL6(OG7TA2,WG7ND2,7T7I[N7XR,7MA+V3X7DSS+A3X3D;E+D	X*MBJ* B 2 ^ 7OR /OF "260.JB4* B . 7A3G;E+D7X7GSSA7X*JB * B . 7B3G;E+D7Y7GSSA7Y*JB * B 2 [I6(OG7TA6.SL2.7T7I[N3X^)7OR /OR "1*M* B * B +IF7GSS+A;X+L;E3TGM7XV2)?
2 ?T. N4*MBJ* B 6 F 2=7T7A[XX*M* B * B +GCO+TCO"462.JN4* B 2 [I6(OG7T	A6.SG2.7T7A[X3Y^)7OR /OF "460*JB * B 2 [I6(OG7T	A6.SL2.7T7I[N3Y^)7OR /OR "4*M* B * B 7DSS/A7X7GSSA7X*JB * B 6 OD7T	A6=OG7T	A*MBJ* B 2 ^ 7OR /OF "560.JF4* B . 7Q3T	M7NV.MRJ*2B 2 R 3SGT3Y
=3SGT+Y"+*(7Q7GSS+A	X**?BA6)*JB * B 2 [I6(OD7T	A6.SG2.7T7A[X3Y^)7OR /OF "460*JB * B 2 [I6(OD7T	A6.SL2.7T7I[N3Y^)7OR /OR "4*M* B * B 7DSS/A7XQ*M* B * B +GCO+TCO.1B5.MRJ*4B 6 J 2=7T7I[NY*M* B * B +GCO+TCO"465.JR1*0B . 7R3TGM7X	V"M2J*4B5* B 7DSS/A7X7GSS+A/X6
J(6-OG7T	A2)F**/	B*MBJ* B 2 & 3FR(3SGT3X^.7TR.7MA+V	X+GCO+TCO.1B1*MBJ* B 2 & 3FR(3SGT3X2.7TR.3M;I+V	X+GCO+TCO.1B1*MBJ* B 2 R 3SGT7YJ=.MFJ*5B02 & 3F^(3ESN3X2.7TR.3M;I+V	X+GCO+TCO"560*JB * B 2 [I2(WG7ND6.SG2.7T7A[X3X^)7OR /OV "1*M* B * B +IF3G;E+D;Y+G;T3TGM
X	V2)?G2 ?T. Z1"0*M* B * B +IF3G;E+D;Y+L;T3T	M7N	V2)?G2 ?T. J5*MBJ* B 2 R 3ESN3X^=3ESNX*M* B * B 3D;E/D7Y3G;ED7Y*JB * B 2 ?G2 ?T. J1"0*M*5B1* B 7QR=7MAV7X*JB * B 2 ?G2 ?T. N5.MVJ*0B 6 F 2=7T7I[NX*M*5B3* B 3D;E/D7Y7GSS+A/Y6(F(6-OG7TA2)J**/	A*MBJ* B 2 & 3FR
3ESN3Y^.7TR.7MA+V	Y+GCO+TCO.1B6*MBJ* B 2 & 3FR(3ESN3Y2.7TR.3M;I+V	Y+GCO+TCO"562*JB * B 2 WD7ND"=7Q*JB * B 2 ?G2 ?T. J1"0*M*5B2* B 7RR=3M;IV7Y*JB * B 2 ?G2 ?T. B6.MFJ*6B06 J 2=7T7A[XY*M*6B0* B 3D;E/D7X7GSS+A/X6(J(6-OG7T	A2)F**/	B*MBJ* B 2 R 3ESN7YJ=.MFJ*2B
2 > 3UKT/FF(2)R=3SGTX*M* B * B 7OSU+BF.26)7DSSA7Y*JB * B 6 WO3T[B*(&32=WD7ND*MBJ* B 2 > 3UKT/FR(2)R=3ESNY*M* B * B 3K;G3F
L"=60*JB * B 2 ?G2 ?T. B72MNJ* B*7SSE2 3F+ACG+ICF3L;I3E> 7UOT3IWD2 	W3N?DW*M.1B1* B 3K;G3F
L"=61.JB7* B 2 WR7TKUN*M* B * B 3ESN"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