File CODBRE.BA (BASIC source file)

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

*1B03R7E*IB**** 2 GM3SWT3R	M+NCD3CSO3EJ 3RGE7KKE* B**** * B 2-N 3OKD+R;EB7A.JB26 KP7ISN7\KP7ISN2 6"7ASS3E7R3ISN2 ?C3DKE3RGE7KKE6"C\3R;IT*M*3B03R;A3D7O3IWZ.MRJ20R +ICM+RR0*(29*1&5.,GR.$&(.,V16)J,*2"$.9F,*52)+RR3*(29*1&5*,S.9F,")*M*5B03D7I* SA*(&6*,SB*(&3*,
C*(&3*,SD*(&3.MZJ20Z +OCR/JB=2 ?T" 66.JB72 WR+ACD+A"$J6).JB82 WN+XCTJ*M*9B07DSA+AJ 3RSE*"J,7BWL+E2"6"KG3E;E*"J,3Y3E7L
O*"J,3OGR3NWG*"J,3B?R+WKN6,N"3POAE6".JB1202 .0B=.MFJ*1B0/L61"0*M.1B2. KL"=60.JN1202 .3B=.MFJ*4B03P	R+NCT2"3P7EOA3EJ 7EB 3A	T+N;T2 ?S7MSE3IWM3S& 2 GT+KCE3AZ +ECW3M;I3UWT3S> 3N6 3Y6 3OWV".6".JV160B 3R;I+TJ 3W	H+CCH7VKE3S?I7N. 21> /RJ /].".MFJ*6B07ICN+UCTV*M
1B7. 7V/VV+.MFJ*8B03R7E6 OA3S
I3NN 3O?L+RCS+ACT3R;A3D7O2 ?F7RJ +OCW"1*M.1B9. CR.$B(2)F=2$&(+NT7VJ*+ND*1&)")*M.1F9. GR.$B(2)F=2$&(+NT7VJ*+ND*1&)")*M.1J9. KR.$B(2)F=2$&(+NT7VJ*+ND*1&)")*M.1N9. OR.$B(2)F=2$&(+NT7VJ*+ND*1&)")*M.2B22 WR7MN 7TKA3T6 3A;I2 3P+ACY+OCF3G7A3E" 3EWR.MJJ*3B03R7E* 
I+ICS3TWH2 ?R3WN 3O;U7TKE.MJJ*4B07FKO. 7I60R /O& .MJJ*5B03P	R+NCT6"	M2 ?M+VCE+N;O2"&;.+.16"OI.:."3TKA.(B3")6;.JV261B 3R;I7TJ *0"$/I.)3TKA.(B46)J;*1"$/I.)3TKA.(B56)J;*2"$/I.)3TKA.(B66)J;*3"$I6).J^260B 3R;I+TJ 7H
O2 GM+NCY3BGL+CCK3P
E/S.".MJJ*8B07ICN+UCT3S&(*,&0.MJJ*9B0+ICF3S&(*,&0.<R>2 ?G+TCO.3B2.MNJ*0B03P	R+NCT2"T3A/N3SZ +OCR3TWH2 GG+MKE.MNJ*0B53P	RN7T.JF320^ 3O?T. ^8"0*M.3B22 [I* S/IB,.):<23^ 3O?T. Z3"0*M.3B3* S/IF,.)B=3\WR3M& /FN 2 3B3A/C+SB,3TWH/NB 2 W3IWTS*M.3B42 ?G+TCO.3B8.MNJ
6B03P	R+NCT2"?H3W6 7A	N2 W3IWT2 WP+GKS";*M.3B72 ;I7PSU* S/IF,")*M.3B82 WR3M^ 3EWN7RSA3E" 3Y?P3TWH7SOI.MNJ*9B07FKO. CI.=CL2 ?T* 7V"1*M.3V9* SD*(&0*=SA.(CI6)K\+ECM6*^*+ACS.4B3"*6*.JB420Z +OCR/I61+LB1+TCO/VF-.MRJ*0B5+D"$.16)+A"$+I&13\WR+M* 2*GW/SR *4*0"**M.4
12 ?F3R& 222=62R 7OZ "-61.JF425R .$J(2)F=2$&(622)3R7E* **7WOA. R5*0**.MRJ*2B07FKO. OI.=OL2 ?T* 7V"1*M.4B6* SD*(&3*=SA.(OI")*M.4B72 WR3MN 3HOE3KF +LCL7R
O3SZ 3R7O2 	F7RSS2 ?T6 WC3RWR+NCT7FKO2 ?C3N	S3SGT7N	C.MRJ*9B07FKO. 7R60R 3O& .MVJ*1B0+C"$.06)+RR0*(	R.MVJ*1B1+C"$.16)+RR1*(	R.MVJ*1B2+C"$.26)+RR2*(	R.MVJ*1B3+C"$.36)+RR3*(	R.MVJ*1B57FKO. 7J60R /ON 3\WR+M* 2*GW/SV *0*0"**M.5B2* SB*(	J*=SD*(	J.MVJ*3B07NE3T*
.MVJ*4B03R7E6 OU7EJ +OCW3EGV3LGU3T?I7NN 7UKB7OSU3IWN2 ?T2 C3E/C2 ?C3N	S3SWT7N	C2 [O.MVJ*5B03R7E6 	H7PSO7HOE+ICS3AGG7ION3TV 3AC2 ?RW*M.5V5. 7N207\"=60.JZ520^ 7OWS/B& "160.J^560J +ECM3CWH+CCK7FKO2 
A3RWE3M;E3T> 3FJ 3LOA3KF +NCD3W	H+TCE7CWON7T.J"520& 3F: 6<N>*(3R*0B)7GSO/O^ "060.J&520& 3F6 6<N>*(3R*1B)7GSO/O^ "060.JB620: 7ESX" 7R.JF660J +ECM3M/A7EN 3UWR2 T+ACT7HCY3OT3E	S7SJ +OCW3DWO7SSN6 WD3P	L7CSA2 ?R/WF .MZJ*2B0/ZB=.MZJ*4B0+ICF+RR0*(&02<R>.$B(2)^ 3
?T. R6"2*M.6F4. 7Z/ZF+.MZJ*4B2+ICF+RR1*(&02<R>.$F(2)^ 3O?T. R6"4*M.6N4. 7Z/ZF+.MZJ*4B4+ICF+RR2*(&02<R>.$J(2)^ 3O?T. R6"6*M.6V4. 7Z/ZF+.MZJ*4B6+ICF+RR3*(&02<R>.$N(2)^ 3O?T. ^6"0*M.6^4. 7Z/ZF+.MZJ*7B0+ICF/ZR=2 ?G+TCO.7B0.MZJ*9B07GSO/O" "260.JB720: 7ESX. OI.
^J*1B07NE3T& "2*M.7B22 WN+XCTI61.JN720: 7ESX. CI.M^J*4B03P	R+NCT*"CI7H[A7EJ 3EOA3HSE2 ;A2 7I7POA+SCE+ICN+MCY3T	H3N	K+NKG.M^J*5B03P	R+NCT2"?C3USL2 ?Y3U" 3AWV2 GM+DCE+ACN7EKR/O?R""*M.7B62 ?G+TCO.8B7.M^J*7B0/L60I60.J"7202 21&="1*M.7B9. KL.=KI.M"J*0B0/L63+I.3
1*M.8B12 WR3MR 3O: +OCT3ROE3HOE3KV 3L	L3M;I3AWT7DB 7OOS3I	B7LSI7IOE.M"J*2B03R7E6 OA3S
I3N: 7ESX2 ?RW*M.8B3. CR2$&(*+&1*=SD*(&0.M"J*3B1+RR1*(/I.16)+D"$"16).JN862J *2"$/IF+2)R=.$J(")*M.8N3. OR2$&(*+&1*=SD*(&3.M"J*5B07NE3T& .M"J*6B03P	R+NCT*"CI+ACM7SWT3MWP+D6 6-& +OCU3W;I""*M.8B76 KP7ISN2 F"7NSO7HKE2 GG+MCE+[CY+OCR+NK]";*M.8B82 ;I7PSU* SX.M"J
9B0+ICF/X6$*"KY2 ?G+TCO.1B53\[I* SX*<J>+NB"7GSO/O" "760.JB960N 7TCO.M&J*1B03R7E6 WS3B?R3U	T+NCE+TCO3EGV3LGU+TCE7ROE3P;OS7E.JJ960J +ECM7CWO+NCT3BGL7COK2 	F7RSS.M&J*3B07FKO. GJ*=B0+TCO"3*M.9B42 [I* SC.(GJ.):<+B"$+J&12 ?G+TCO.9B6.M&J*5B03N:="+61.JZ920: 7ESX.
GJ.M&J*7B03R7E2 ?N3WN 3O;U7T^ 7HSIE7S.J"920Z +OCR/J6160R /ON .M&J*9B07FKO. KJ*=B0+TCO"3*M.1B020& 3F* 21*=22^ 3O?T. B1"860.JB1*1B0+ICF+C"$+J&1*=SB.(GJ2)^ 3O?T. B1"860.JB1*2B0+ICF+C"$+J&2*=SB.(KJ2)^ 3O?T. B1"860.JB1*3B0+ICF+C"$+J&12<J>2$*(*2B)7GSO/OF .0B8.M
J.0B4. 7M/MF+.MFJ.0B5* SB.(KJ*)J=7X2"3R7E6 WD7M	M6 KW3O
N2 GV3LWU.MFJ.0B72 ?G+TCO.1&0"0*M.1"020: 7ESX. KJ.MFJ.0B92 WN+XCTJ61.JF1*0B07RSE3U;R.MFJ.1B16 SSO7P.JB2*0B03ESN"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