File BESY.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 WBS7Y"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?C7MWP+TCE3TWH* CY7BOE3S3E6 WF7NSC3I;O2 ?F3RF 2 	G3V;E6 KA3G7U7ESN2 ;A3D
 3RWDR*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7BOE7Y"(*,3N+B3Y7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +XB 2-T3EF 7RWG3M;E3T> 7FR +HCE3YJ 7EOS+ECL3F;U3C	T+OCN7DOE3IWRD*M+CB * B * B * B +NB 2-T3E> 3RWD3R> 7FR +HCE3Y
 7EOS+ECL3F;U3C	T+OCN7DOE3IWRD*M+CB * B * B * B +BCY2-T7EJ 7EWS3LGT+NCT3YJ 7EOS+ECL3F;U3C	TO7N*JCC* B * B * B 2 WI7RJ-7EWS3LGT+NCT7EKR+OCR3CSO7E^ 7HKEE*M+CB * B * B * B * B 7IKE*=B02 ?N6 KE7RKO2MNJ* B * B * B * B 2 & /E7R*1B 3N& 3S: 3EGG7T[IE*M+CB * B * B
* B * B 7IKE*=B2* CX+ICS3N
E3A	T+VCE+OCR7ZKEO*M+CB * B * B * B * B 7IKE*=B36 	B2 GH3SV 3XWC3EWD3D6 3A;G7IWT+DCE+OCF*1*0.*B72MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 Z 7E	R2 7S3A3L2 GV3LWU3S> 7F" 2 GM3YN 7AOU7ER +HCE3R;A+GCE+OCF3TWH2 	L3BGRR7Y*JCC* B * B * B 6 WF7NSC3I;O2 3A+OCG
TCO+BCE3EOX3ESEE7D*JCC* B * B * B * CX7MOU3TJ 3E^ 3RGE7TKE2 T+ACN7ZKEO*M+CB * B * B * B 3N6 7USS2 WB6 KG7ESA+ECR3TGH3N> 3RV 3QGU7LR 7O* 3E?R2MNJ2MNJ* 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?I3NF +NCD3P3O3Y?N3MGI3LF 7PKP3O	X7MSA3I;O2 WT3C;H7IWQE*M+CB * B * B * B +ACS7DOE3C	R3BSE6 	B* ;A3J6.2.	H3TC3COO+K^,3P3O3Y?N3MGI3LF 7PKP3O	X7MSA3I;OS*M+CB * B * B * B +TCO7BOE3S3E6 WF7NSC3I;O3S> 3F> 3RWD7
* 3E?R2 ;A3D> +NCE3ASN2 ?T2 WR7LSAE7D*JCC* B * B * B 6 WF7NSC3I;O+S2	* ;M3TF.*.;C6,Z ..F1.,&1*527+P;P*866*8282 ;A3D^ *.;N2 GW3T?SN6,*JCC* B * B * B 2 F	6 KT7ESA3IWS2 ;O2 T7ER 3H?E+RCY+OCF7BOE3S3E6 WF7NSC3I;O+S2	2 GC7MKB3I
DE*M+CB * B * B * B 3U	N7VKE7SSI7YB 7ROE+SB,.1V9*8B,+PB."662"J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EJ 7E	S*(3X3NJ,3Y&,+E	R2MNJ2MNJ* B 2 N 3HOE3KZ +OCR7EKR7OOR2 ;I* CN
ASN" 7X"J7C*JB * B 2 [I*(	N.1B8.,B1.,B1*MBJ. F 20& /E7R"0*M* B * B +IF/XF)*920.1B9.,B22MNJ2MNJ* B 2 J 3R;A+CCH+ICF3X2 7EOS2 T+ACN+OCR7EWQ+ACL"4*MC*M* B *2B0+IF/XR-*.&0*420*420"360"J7C*JCC* B * B 3C7O7PSU7E& 20F +NCD+YB17FKO* CX3GWR3AWT7RR 3H;A" 64"J7C*JB 
 B3. GT*=:460"/*MBJ* B 6 R 62R=61R*"1*M* B * B /P60*("(*(:-.0B0.0N0.7R063R**2:+.0B0.0^1.3Z5*5*)+T62..B0.0R0.8Z7*1&3.*KT*MBJ* B * B1* :+.0B0.1N7*4&3.*KT.-B..0^1.5B3*6&2.*KT.+N..9&8.4N2*MBJ* B 6 F *0"=*("(..B0.0B0.3N2*1*2+T62..B0.0F0.4B2*7&8.*KT.+B..0B0.3J4
4"66)R*"2*M* B . F * 6 ..B0.0"0.6^9*9&1.*KT.+B..0R0.5R6.3R26)R**2:-.0J1.4Z6"964*JB * B . GP*="(*(:(.0B0.0R0.2F464R**2:-.0B0.0B2.0J9*0*)+T.2..B0.0V0.8^0*5&9.*KT*MBJ* B * B1* :-.0B0.2N2.2N06)R**2:+.0J0.9F2.8Z26)R**2:+.3"9.9J4"3*M* B * B /Q61*("(*(:-.0B0.0N0
6&564R**2:+.0B0.0Z1*2&2.*KT.-B..0B0.3"9.7"06)R*"2*M* B . F * . ..B0.0B1.6^4*4&1.*KT.-B..0Z0.3B9.4B06)R**2:+.0^3.4B0"864*JB * B . 7A.2B.6/GS+RTX6)*JB * B . 7B7AR*"1*M* B * B 7C"=.-^..8N5.9J8*MBJ* B 6 & 20F=.*CP2*	S3NN(2)J+.*CQ2*?C3SN(")*M* B * B /Y61*-+A+P
17COO*(	C*++B+Q*13S;I*(	C*MBJ* B 2 ^ 7OR /O& "0*MC*M+CB * B 2 N 7OCM3UWT. CY2 ;A7D& 21Z +OCR3X2 7EOS2 T+ACN+OCR7EWQ+ACL+TCO"4*MC*M* B *4B0/X7X/XJ/".*M* B * B /X62+X+XX7X*JB * B . 7T3A?L7G"(+X.)..^5.7F2"567*JB * B 6 WS/MB=".*M* B * B 7TKE7MR=*MBJ* B 6 & 60
=*MBJ* B 2 R /O^ 202 *=21"165*JB * B 2 [I*(7L.1V).0Z,.0V,"0*M* B *5B03S7U6=WS/MF+2.Z/3LGO3T2(*-&1*MBJ. Z 20Z 3L2=*MBJ* B 6 R 7SR=6-WSM*M* B * B 7TKE+M"=7TKE+M"*.-KX2)Z/+L***2*)*(:1*-:12/Z(7LR*+S&)*MBJ. ^ 60& 60&=60R+3E7R*MBJ* B 6 R 3E7R* B=+X+X*(7T*.&5*MB
* B 6 N /U7M"06.*JB * B . GY2=WTR7M*JB * B 2 ?D. B8. 7L.2F,"6*M* B * B 3S7U6=WS/MF+2.Z/3LGO3T2(*-&1*MBJ* B 2 Z 3L2=*MBJ* B 2 Z /L61+F7L"16.*JB * B 6 OT*=7T3S7U*MBJ* B 6 R 3E7R6=R(3E7R**6(+X&22/Z(+L*1+F	L*)"*6(OT.-V.2/3F*)"/+T/S*.>5/FGL")6)*JB . B8. GY.=GY
+WTR7M*JB * B 2 	P*2:=.6Z3.6&1"8*M* B * B /Y60/PKI.*CY*MBJ* B 6 & *16=/PKI*//X/PKI.*GY2MNJ2MNJ* B 2 N 3HOE3K& 3F> 7N	L. CY6 KO. GY6 OI2 WD7SKIE7D"J7C*JB . B92 [I*(7N.1F)*020.1B0.,N1"0*MC*M+CB * B 7RSE3U;R2 	E3TWH7R& 20> 7R& 21F 7SJ 7EWQ3IWRD*MC*M. F *0B0+
F/NF)*120.1B2.,F1"0*M. F *1B0/B7YY61*JB * B 2 ?G2 ?T. ^1"0*M. F *2B0/B7YY60*JB * B 2 ?G2 ?T. ^1"0*MC*M+CB 6 B 3E[R3O7R2 WR7CKU3R;E+CCE3OWP7RSA3I;O7SR 3OZ 3ISN2 ;Y*(	X2MNJ*MBJ. N160& 7A&="0*M* B * B /Y7BY61*JB * B . 7K"1*M. F *4B03TZ=3LGO/TJ(**	K"/7X*JB * 
 2 OY*=+T+Y7BY7A*JB * B 2 [I2(KA7S&(+C6).1^./EN3.)R1.5F,*425.1F4*MBJ. R121& /E7R"3*M* B * B 7RSE3U;R*MBJ. R125. *=/K"1*M* B * B +IF3K:-.)V1.0F,*620.1B5*MBJ. V160& 7A&=B*M* B * B /Y7BY7C*JB * B 2 ?G2 ?T. R1"0*M. F *6B0/B7YY7C*JB .1B72 WR7TKUN*M. F *8B07IKE
=61*JB * B 2 WR7TKUN*M. F *9B07IKE"=62*JB * B 2 WR7TKUN*M* B * B 3ESN&M*J"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