File BESJ.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN2 WBS7J"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?C7MWP+TCE3TWH* CJ7BOE3S3E6 WF7NSC3I;O2 ?F3RF 2 	G3V;E6 KA3G7U7ESN2 ;A3D
 3RWDR*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7BOE7J"(*,3N+B3J3D&,+E	R2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 6 " * 6 3TWH6 KA3G7U7ESN2 [O2 T3E* 2 WB3SWS3LZ 3UON3T?I3NR 3E	S3RSE2MNJ* B * B * B 2 : * 6 3TWH6 KO7DKE2 [O2 
3E* 2 WB3SWS3LZ 3UON3T?I3NR 3E	S3RSE2MNJ* B * B * B 2 J +J6 3TWH2 WR3S3U3T;A3T* 2 WB3SWS3LZ 3UON3T?IN*M+CB * B * B * B +DB 2-WR3Q	U3RSE2 OA7CKU7A	C2MNJ* B * B * B 2 & +E7R7ROE7USL7ASN6 KE7RKO2 ?C+DCE3WWHR7E*JCC* B * B * B * B 2 WI/RB=2 : 3OV 3R?RR*M+CB * 
 * B * B * B 7IKE*=B1* CN+ICS3N
E3A	TV7E*JCC* B * B * B * B 2 WI/RJ=6 " 6 OI2 WN7GSA3IWV6 KO2 WZR7O*JCC* B * B * B * B 2 WI/RN=6 J 7EWQ3IWR3DF 7CWC3ROA3Y: +OCT7OSB3A;IE7D*JCC* B * B * B * B 2 WI/RR=6 J 3A
N3E> 3F: 2 ?C3MGP3RSE2 ?T* CX7NSO2 ?C3RWR+CCT2(WS7EJ 3EGM7ROK")*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3N6 7USS2 WB6 KG7ESA+ECR3TGH3N> 3RV 3QGU7LR 7O* 3E?R2,J +UCT+ICT7MOU3TJ E*M+CB * B * B * B 7LOE7SR 3H;A2MNJ* B * B * B * B . J .0F+60"**-+X.*J */B32
Z +OCR3X2 7EOS2 T+ACN+OCR7EWQ+ACL+TCO"165*JCC* B * B * B * B . B9*+?X*2B * B * B * B 7FKO* CX3GWR3AWT7RR 3H;A. V12MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B *
B 3ROE7UKR3EON7EJ 3EGL3T?I7NR 3EC7NGI+UCE7DOE3C	R3BSE6 	B* ;H2 ?G7LOD3T	E3NF N7D*JCC* B * B * B * ;R+MB.3TGH7LKE6,J	7EWC3RWR3NWC2 WT3C;H7IWQ+ECS7FKO2 T3EN 3AOL3UGL3T?I3N> F*M+CB * B * B * B 7BOE3S3E6 WF7NSC3I;O+S2	7MR.*.;A+C2./VF.63B,/PF.*062.1"02 ;A3D& *
;A6 SS7EWGN*M+CB * B * B * B 3ASN* ;M2 KA3R7A3O	W+T3Z2	WG7NKE3A	T+OCN+OCF7BOE3S3E6 WF7NSC3I;O3S> 3N" 3IG2MNJ* B * B * B 6 N 3PWE3DN 7OCM3UWT+R
S*,;M3TF.*.;C*,;V*121.1V967B,/PJ.*565.2^52MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE7BOE7J"(*,3N+B3J3D&,+E	R2MNJ*MBJ* B 2 J +J:="0*M* B * B +IF/NF).0J,.0J,"0*M* B *1B
7IKE"=61*JB * B 2 WR7TKUN*M* B *2B0+IF/XN).0N,.0N,"1*M* B *3B07IKE"=62*JB * B 2 WR7TKUN*M* B *3B1+IF/XF-*5&.*322*322"364*JB . J36 SN7ESS.=B2..F+*0*.7X"-**B*.2N/*MBJ* B 2 ^ 7OR /ON "6*M* B *3B43NWT/S7T*9:0*+?X"26.*JB . Z32 [I*(7N3NWT+S	T*420*328"368*JB . "
2 WI/RR=*MBJ* B 6 J 7EWTR7N*JB . B42 WI/RB=*MBJ* B 2 : 21:="+61*JB * B 6 CB7R[E.=B.2MNJ2MNJ* B 2 N 7OCM3UWT6 SS7ASR3I
N2 GV3LWU2 [O" 7M"J7C*JB * B 2 [I*(7X*5&.*520*620"660*JB . B52 GM*=/X"66.*JB * B 2 ?G2 ?T. B7*MBJ. Z 206 /AF=*.*4/XZ+*0>.X*M* B *7B0/M7B3N&+7FI*(	X*/.4"2*M* B * B 3MWZ/R7O7MA206(3A6,B6)"J7C*JCC* B 2 WS7TV 3PWP3R2 3I	M3T> 3F6 2MNJ*MBJ* B 2 6 7MA6=SN7ESS*MB
. B120R /OF *9B03M6=7ZKE3O6,7MA",63"J7C*JCC* B 2 WS3TZ *(	M*,F/MF-")*MC*M* B * B /FGM*=:1*07E"268*JB * B 2 7F.=B.*MBJ* B 2 F 3LP+A:="0*M* B * B +IF+M"-/MJ/.)J*.)J1.0F,*120.1B2*MBJ. F120* +T6="1*M* B * B +GCO+TCO.1B3*MBJ. J120* /TF=*MBJ. N1206 226="-62*JB 
 B 2 ?D. Z120. *=21M62*JB * B 2 /M*=7MK*M* B * B 3B/M*=:22*3F7OSA2(/M2)Z*+M>13XZ-M*M* B * B /F7M/FGM*MBJ* B 2 Z /M613B/M*MBJ* B 2 & 3F6(3K:-*-&1.1B5.,R1.0F,"560*JB .1B42 +B2=7BK*M. F *5B0/J7T6-SJ*MBJ* B 6 N *=.1J7T*JB .1B62 3A3PGH2=3A3PGH2+7B7KN**MBJ* B 2
J /M7K*2*./FGM*/7XF7M*JB * B 2 [I*(	N.1B8.,^1.0F,"860*JB .1B72 +B2=7BK*M. F *8B07ACL/H7A7ACL+H/A3B/M*MBJ* B 2 J 3JJ=3JF/3LPA*M* B * B +IF7AOB2(+B6-CB7R[E2)F-+BS3DJ*+J&).2B0.,B2.0F,"960*JB .1B96 CB7R[E2=+B*MBJ* B 2 & /E7R"3*M. J *0B07RSE3U;R*MBJ* B 2 V N7D
JBZ"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B

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