File BESK.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 WBS7K"J7C*JCC* B * B * B 2 ?C7MWP+TCE3TWH* CK7BOE3S3E6 WF7NSC3I;O2 ?F3RF 2 	G3V;E6 KA3G7U7ESN2 ;A3D> 3RWDR*MC*M+CB * B * B
3UGSG7E*JCC* B * B * B 2 GC+LCL7BOE7K"(*,3N+B3K7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +XB 2-T3EF 7RWG3M;E3T> 7FR +HCE3KJ 7EOS+ECL3F;U3C	T+OCN7DOE3IWRD*M+CB * B * B * B +NB 2-T3E> 3RWD3R> 7FR +HCE3KJ 7EOS+ECL3F;U3C	T+OCN7
OE3IWRD*M+CB * B * B * B +BCK2-T7EJ 7EWS3LGT+NCT3KJ 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+I
S7ZKE3O> 3R: 3EGG7T[IE*M+CB * B * B * B * B 7IKE*=B3* CX6.SG..F *7202 GM3C	H+NCE3R;A+GCE3EOX3ESEE7D*JCC* B * B * B * B 2 WI/RR=2 J +K: +G;T. B1.*^*"0*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3N6 7USS2 WB6 KG7ESA+ECR3TGH3N> 3RV 3QGU7LR 7O* 3E?R2MNJ2MNJ* 
 * 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 3C7O7PSU+ECS7ZKE3O> 3RWD3RF +NCD7FKI+SCT3OSR+ECR7BOE3S3E6 WF7NSC3I;O7SV 3S;IG*M+CB * B * B * B 7SKE7IOE6 CA3P?R3X7I3A	T7O
N2 ;A7DR 3H;E2 ?C7MWP7TOE* CN+TCH3OSR+ECR3F;U3C	TO7N*JCC* B * B * B 6 OU3I
N2 WR7CKU3R;E+CCE3R3E3A	T+O;N2MNJ* B * B * B 6 J 7EWC3RWR3NWC2 WR7LSA3I;O2 ;A7DB 7O	L3N7O3I3A6 CA3P?R3X7I3A	T+OCN3TOE3H	N3QWU2MNJ* B * B * B 2 F 3SR 3EOS3RKI+ECD+BCY3A*.*.;M7HSI3COH3O/C6,B	7O	L3N7O3I3A6 CA3P?R3X7I3A	T7OON2MNJ* B * B * B 6 R 3OJ 7EOS+ECL3F
U3C	T7OON2 [O6 KO7DKE2 WZ+RCO3ASN2 ;O3EF +NCD+TCO3R3E3AWTD*M+CB * B * B * B 3F;U3C	T7OON*	B,7MR.*.;A+C2.* ;V*121.1V967B,/P"..6"-*8B,3ASN* ;G+NB.7WSA3S;O",*M+CB * B * B * B *	CA3TWR3A	T+SCE+OCN3TWH2 T7EKO3Y> 3FJ 7EOS+ECL3F;U3C	T7OON*	B,3C7A3B	R3DWG2MNJ* B 
 B * B 6 V 7N[I7EOR7I	T6 KP7EOS.,F .9"56,B ..Z "2*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 WB+SK3X:,2,/B2,WIR6)*JB * B 2 	D3M;E3S?I7NR .(J1")*M* B * B /B7K".60*JB * B
2 [I*(	N*120*121"161*JB . B12 WI/RF=*MBJ* B 6 J 7EWTR7N*JB . F12 [I*(	X*122*122"260*JB . J12 WI/RJ=*MBJ* B 6 J 7EWTR7N*JB . B22 [I*(7X.1B7*.&0*222*222"261*JB . F22 WI/RN=*MBJ* B 6 J 7EWTR7N*JB . J22 WI/RB=*MBJ* B 2 & 7F"(*-:1.)Z3.,Z3.,V2*MBJ. J 25F 6=E+P6
X6)*JB * B . 7B*1>.X*M* B * B 7CN=7QSR*(	B*MBJ* B 6 R *(&1"=7B*JB * B 2 ?D. Z2. 7L.2F,"2*M* B *2B63T2(6)R=*(7L*1*)B*M* B * B +IF/NF-.)^2.,&2.,^22MNJ2MNJ* B 2 N 7OCM3UWT2 ?K6 OU3I
N2 ?P3L;Y3O	M+ACL7ACP7RO3IGM3T?IN*MC*M* B *2B7/G60+A"*.1J..5N3.1F4.-F..5Z6.6J4**T*1.).."0.8F1.1"2**T*26)..&0.1&3.0V9**T"36)*JB * B *2:+.1R3.4&566R**(&4.-J..2&9.8B5**T*5.)..^3.9R2*1*0/TZ(*):-.5R2.7^267R**(&7*MBJ* B * .3..V5.7N5*6*8/T"(*):-.4Z2.2N663R**(&9.
J..1R8.5"1**T*1&0.-B..6"6.0^967R*.(F1")*M* B . R .+B..0F9.8N9*8*3/TF(*2&)"*7C*JB * B 2 [I*(	N*220*228"269*JB . "22 /B.=CG*MBJ* B 6 J 7EWTR7N"J7C*JCC* B 2 ?C7MWP+TCE+KB13U	S+NCG3P3O3Y?N3MGI3LF 7PKP3O	X7MSA3I;O2MNJ*MBJ. J 29^ 21F=.*F(..V2.3F3*4.1..Z4.9&9*2*
/TF(*):-.1Z4.8"563R**(&2.+F..2B8.4^2**T"36)*JB * B *2:-.1N7.6N462R**(&4.+J..8^4.6"1**T*56)..V4.9N4*4*2/TZ(*):+.6"2.3"361R**(&7*MBJ* B * 63..Z6.3J2*9*5/T"(*):+.5V0.0N269R**(&9.-J..5F8.3R0**T*1&0.+B..7"8.0B061R*.(F1")*M* B . R .-B..1"0.2F468R*.(J1*)*)C*M* B
* B +IF/NF-.)B2.,B3.,F3*MBJ. N 20J 3K^="1*M* B * B 7RSE3U;R2MNJ2MNJ* B 2 Z 3R7O2 ?K.,GK2 ?C7MWP+TCE+KCN3U	S+NCG3ROE7UKR3EON7EJ 3EGL3T?IN*MC*M* B *3B1+DCO*3B5/JJ=",7N*JB * B 2 +G*=:22*Z(3LGO3T*(.)F-*.*)+G>13X^+"0*M* B * B +IF+G7J.1^./EN3.)N3.,N3.,J3*MBJ. N
22& /E7R"4*M* B * B +GCO+TCO"364*JB . N3. CG.=GG*MBJ. N 25^ 21^=J*M* B *3B4/B7KG7J*JB * B 2 WR7TKUN*M* B *3B67B"=*/:2*MBJ* B 2 F .=V..7J7.1^52+3A+OGB6)*JB * B . 7C3BJ**MBJ* B 2 & 3F:(*-&1*327*423"367"J7C*JCC* B 2 ?C7MWP+TCE+KCO3U	S+NCG7SKE7IOE6 E3P;A3S?IN
MC*M* B *3B7/G60"-7A*JB * B . KX/JF=".*M* B * B 3FOA/TF=".*M* B * B /H7J".60*JB * B 2 ?D. B4. 7J.1Z,*MBJ* B 6 J /JF=2.Z/3LGO3T*(")*M* B * B 3X*2.=KX3JN**MBJ* B 2 Z 7ASC2=GF+C+T+R+JR7J*JB * B 2 +H2=+H2++R*MBJ. R 20^ 20^=60"+*2+J3FOA+T"*+H7JA6)*JB * B 2 [I*
	N*423*422"463*JB . J42 /B.=CG*MBJ* B 6 J 7EWTR7N"J7C*JCC* B 2 ?C7MWP+TCE+KB13U	S+NCG7SKE7IOE6 E3P;A3S?IN*MC*M* B *4B33X*2"=7B*JB * B 2 GF/C7T"16.*JB * B 2 +H*=:1*MBJ* B 2 ^ .1F=6."/.+KX+J"**..53A"-J6)*JB * B 2 ?D. B5. 7J.2",*MBJ* B 6 " .27J3X*2"*7C*JB * 
 2 +R*=:12/3F7OSA*(	J*MBJ* B 2 Z 7ASC2=GF+C+T+R+JR7J*JB * B 2 +H2=+H2++R*MBJ. V 20^ 21^=61"+*2+J3FOA+T"**..5*(7A+H	J2*3F7OSA*(	J")*M* B * B +IF/NF-.)F3.,J5.,F3*MBJ. V 22J 3K^="1*M* B * B 7RSE3U;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

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