File BAB.FT (FORTRAN source file)

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

7CB 3R
O3R7A3MJ A7B*JCC3D7I7EON3I;O7IKE+ECN3E;I+ECS7BSU7TKE7WKO+T7H7ASK+I7V3B;A3D	F3LWTR7S*JCC2"3E7ESK3R;O+IKK. &1*7B52/" 7ESF* B36/N 7ESI/E& .1&,"2*M3CZ 7OSR3R;A2 	I"M&J3D7I7EON3I;O* C*1&2"M&J3W	R+TE.1&,"86).J"92I?F3RGM+T>(6	WB3TWT3R?W3RT2-/A7T[I2-GB3N[D7ISL+E
R"/*M*I^16 ^ 3IWD7RSS3A;E+DCE+ICN3[O+MC]3USN2 GK7P+A3IGT3EWT3N& 7N. +F
]")*M61^I7RSI/EF(.,&9")*M"9&97FKO7MSA.(F/*0^(*-&	")*M*IC.16).1B."M&J/CJ(.)F=".622JNI*(&3*=:1"5*M*IC.46).1"."M&J/CV(.)J=".622JNI*(&6*=:2"7*M*IC.76).3N."M&J/C"(.)N=".692JNI*(&9*=:4"7*M*IC*1&0*=:5"6*M*IC*1&1*=:6"8*M*IC*1&2*=:8"2*M2IWR+AD.1F,*0&0+F3L+F3UC7F.J
120ZI3O7R+AT2	;U7TKE3EV 3C[K7RGE3U;E7Z. 7H7Z* B:.		F*.>1"M&J*1B	3OWB+RCE3E/C3FWR3QWU+NCZ7[+H/]* 2 Z	.9F."/*M*I^27KCA3A	Z3TWA3T[S7ASK+OCR*:^ /EV1*.&9"M&J+DCO25& *=21"162"J&53C&(2)N=3FN**(	I"M&J3BGT6=WF2-3F"M&J/F607SKQ3TZ(3UZ*L6)2JRI/E7L3BGT./CF"M&J/D7W7SKQ
TF(*6..3D3E.*R*")*M.I7D7SKQ+T"(*4..3D3E.*J*6-
D.)B**.&5"M&J/D7Q2(WD3LR-*)"*3D3E*+	D"M&J/A7L7SKQ3TR(+Q:**5.)7SKQ3TR(+Q:**2.5*1&."M&J/FF0.=CF2*3A"M&J/FJ0.=CF2/3A"M&J/P7I.3F..4V1.9Z2"M&J+DCO*1B5/IF=.,J1"M&J/R7A*1>.*(:22*	P6*SB3AN**(	I")*M2IKR.1F=*."/7DB*3IZ**0*13C&(")6)6JJI/B62*1>.*(+D+P+I/FJ0**C+I&)"M&
/RGC*=:16/J(+B*1.(J(6.B*3IZ**0*13C&(*)*)**62*1>.2(KR61J*+A&)")*M2IOR.2F=*."//RKB**"(*2*.+P+I/FJ0**C+I&).*J**-:16/J(+B*2+R	A")6)6JZI61J=+B>12(GR2+GR")*M.IKV2=KR*2"/+R/A+R	A"M&J/V7G2(KR61J*+B&2./"(6.J*7AJ*A6)6J^I7RSI/EF(.,B161J)7AJ,+B21/RKB.MFJ"0&17FKO7MSA*
^/2 GR* B=.	GE.2N.6,"26,J	+BB1*=^ /EJ1*.23*23X2	KR.26 2 V	*1:2"36)6J^I7RSI/EF(.,B162J)+C21/RKC*,CI6).JB122ZI3O7R+AT2	OR.16 2 V	*1:2.3J,+X^,/RKC* B=.	GE.2N.6,"2*,B	* CC*=^ /EJ1*.&3.MFJ25NI7OSN7IWNE*M6IKW3IWT*(21.1N0.)GV.MFJ"0&37FKO7MSA*(^/* B * B 7VKE3SGT3
/R3U
N2 WD3SV 7RSS+ECN7AOB3C;H7IST/S6 2 V	*1:2"36)6J^I7RSI/EF(.,B164Z)"2*M.1R02I?F3RGM+T^(* B 6 Z 7EOR3TWA7RWK+NCG7DOE6 
Z7ESI+ECN7AOB3C;H7IST/S6 2 V	*1:2"36)6J^I7RSI/EF(.,B165Z)G*M.1V02I?F3RGM/TJ(*23X2	WG3S7A3TWV7RSS7AKE3K;U/G6 2 V	*1:2"36)6J^I7RSI/EF(.,B126Z)"061.JB126ZI3O7R+AT*	B 7ROE3OGN3N[Z7RGE3U;E3ZR +ECS7EOR3T;E2 KA3SC7NSI+TCS*=^ /EJ1*.&3"M&J3W	R+TE.1F,*0&7/FJ0.MFJ"0
77FKO7MSA*(B	7ROE3OGN3N[Z7RGE3U;E3ZR +ECS3ZWW3IWT3NF 3BOS3H	N7TOT* B=.	GE.2N.")*M6IKW3IWT*(21.1"0.)CF.MFJ"0&87FKO7MSA.("1+X^,7GOE7ASM7ROE3OGN3N[Z7RGE3U;E/Z6 2 V	*1:2"36)6J^I7RSI/EF(.,B129R).MFJ"0&97FKO7MSA6(J	3EGL7T[I3EJ 3ASN3BWR3IWT2 WD3RV 7I+N3EGL3BOS3H
N3TWT* B=.	GE.2N.")*M2I?G+TCO"1*M2I;ED*MBLBZ

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