File BUG.BA (BASIC source file)

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

*5B 2 WR+M* **B*3C;O7VKE3TSE2 ?T6 OR+T?S3EJ 3YR 3A	V3DF +H3L2 	D7GSIA7L.JB12 WR7MKA3KKA+LCY3TGR3N3S3AWT7DR 3O> +SB87BOA+ICC+BCY7K	A* ;R2 	F3SWH+R:.2.WDC*M*2B02 WR3M" 7AKR3I?S3N* +RB.+S;R2 	H+GCH3SC3O3O.MNJ*0B 3R7E2 GH3R	R3S;O* ;NY6..JB5. 7A20K\6=20/HB=/\7
20;\6=20/PB=/\7Q60K\6=20/SB=/\7T60W\6=20/VB=/\7Y"0*M*6B06 KP7ISN6 R"+HCE3G7A3EJ +UCG+ICS3L/I7ER +HCE3G7A3EN 7OSO+IJ,.M^J*0B 3P	R+NCT*"CI7HCO7E& +OCU3E+N+OCY3T	H3S^ 3AWM""*M*8B06 KP7ISN" *M*9B06 KP7ISN2 R"7O& +OCU3W;A3T& 7NSS3ROU3T?I+NKS";*M.1B02 & 7NWP7T*
"$*M.1B12 & 7F* *$J=+NKO2 T+ECN.3B0.MFJ*2B06 KP7ISN6 R"+HCE3O+B7ESC2 [O6 WB3G& 7SR 3OZ 3I	N+SCH7YWO3RJ +UCG3B[E3OWR* CI3F;I3IS2 	M+NKE.MFJ*3B06 KP7ISN2 V"3AC6 WN3MWB7RN 3T;A+DCS7FKO* CA7PKA3T> 7FR +HCE3B
U3SJ 7O	D""*M.1B46 B 3R;I+TJ 7I^ 3I3L2 ?R+LCL3TWH2 	D3EZ +OCR7YWO6,R 3E3L2 ?Y7U^ 7HSA* CI3R3O3LSE2 ?F7R& +OKU.MFJ*5B06 KP7ISN6 ^"7HSA2 T3E: 3UKM+ECR3SGT7NOD2 ?F+RB,3ASN2 [I2 ?Y3UN +ACN7GSE2 T7EB 7ASR".6".JZ1*0B 3P	R+NCT2"[I2 ?Y3UN +ACN7GSE2 T7EB 7ASR* CI3
3I3L^ 3IWV6 SI2 ?T2 ?Y+UJ..MFJ*7B06 KP7ISN6 R"+HCE3S7A7E^ 3I3L2 GH3PWP3N> 3N6 7YR 3U;R""*M.1B86 B 3R;I+TJ +ICF3TWH+RCE+ICS3AN 3H;A+GCE+ICN7ESI7HKE6 WB3G& 2 	W+LCL7G[I7E& +OCU3TWH" 6".J&1*0B 3P	R+NCT6"CO3T?I3N> 7FN 3E	E+NCG3TWH2 	P7CWT7ROE2 [O2 T3EJ 7UOG".
".JB2*0B 3P	R+NCT2"T3E: 3UKM7EOR6 SS3ASN2 ?F7RB 7ASR3SF 3SZ 3O3L7OOW":6".JF2*0B 3P	R+NCT6"WN3MWB+R2"2"GP+RKT2,:"3UKM+ECR+OCF7PKA3T: 3ESE+EKD.MJJ*2B06 KP7ISN. F"*"J,3BSO+Y2"*"J1.MJJ*3B06 KP7ISN. J"*"J,3NOE+K2"*"J1.MJJ*4B06 KP7ISN. N"*"J,3HGE+D2"*"J1.MJJ*5B
6 KP7ISN. R"*"J,3FWE7LKE+S2"*"J2.MJJ*6B06 KP7ISN. V"*"J,3T	A+L2"*"J1.MJJ*7B06 KP7ISN. Z"*"J,3L
E+S2"*"J6.MJJ*8B06 KP7ISN" *M.2B96 B 3R;IT6 .JB3*0B +ICF/YB>2 T+ECN.2"4"0*M.3B12 2 +ECT3Z&=+NT66J*+ND*0.)"16).JJ3*0B /CF=.MNJ*3B06 KP7ISN6 &"+OCU3R3O3LSE* CA""7Z.JR320& 7F* *=B17GSO/ON 6520+ICF/ZJ=2 ?G+TCO.4B33\[I. 7Z23^ 3O?T. R520	\7F* *=B47GSO/OZ "560.J
322& 7F* *=B57GSO/O^ 6620+ICF/ZZ=2 ?G/TO"760.JV3*0B 3P	R+NCT."613BSOY6".JZ3*0B +ICF/BF=2 T+ECN.4B1.MNJ*7B06 KP7ISN6 &"+OCU7N
O2 GH+VCE3AJ 7O	D""*M.3B82 J "=61.J&3*0B /CB=.MRJ*0B02 ?G+TCO.9B7.MRJ*1B06 KP7ISN6 &"+OCU+DCO7NSO2 WN+ECD3AJ 7O	D""*M.4B22 ^ 3O?T. ^9"0*M.4B36 B 3R;I+TJ 22:=3E/C""*M.4B42 & 3F: *=B13TWH/NV "060.JV4*0B +ICF/BB=2 T+ECN.5B2.MRJ*6B06 KP7ISN6 &"+OCU7N
O2 GH+VCE3A: 3E/C""*M.4B72 : "=61.J"4*0B /CB=.MRJ*9B02 ?G+TCO.9B7.MVJ*0B06 KP7ISN6 &"+OCU+DCO7NSO2 WN+ECD3A: 3E/C""*M.5B12 ^ 3O?T. ^9"0*M.5B26 B 3R;I+TJ 7YWO2 ?D2 ?N3T" 3AWV* CA3BSOY6".JN5*0B 7GSO/O& "760.JR5*0B 3P	R+NCT."633HGED6".JV5*0B +ICF/NB=2 T+ECN.
B1.MVJ*6B02 [I. 7H61R 3H;E. N6"0*M.5B76 B 3R;I+TJ 7YWO2 WN3EWD3DF 2 " 3ESA""*M.5B82 " "=61.J&5*0B /CB=.MZJ*0B02 ?G+TCO.9B7.MZJ*1B06 KP7ISN6 &"+OCU+DCO7NSO2 GH+VCE3A: 3E/C""*M.6B22 ^ 3O?T. ^9"0*M.6B36 B 3R;I+TJ 7YWO2 GH+VCE3A" 3ESA""*M.6B42 ^ 3O?T. ^9"0*M.
B56 B 3R;I+TJ 24Z=3E3E7EOR""*M.6B62 & 3F" *=B03TWH/N^ "460.J^6*0B +ICF/AJ=2 T+ECN.7B2.MZJ*8B06 KP7ISN2 &"2 ?N3W^ 3IWV2 ?Y3UF 2 WF3EWLR6".J&6*0B 7LSE. 7A/AF+.M^J*0B0. 7C"0*M.7B12 ^ 3O?T. ^9"0*M.7B26 B 3R;I+TJ 7YWO2 GH+VCE3T?W2 WF3EWL+RCS7AKL3ESAY6".JN7*0B 
GSO/O& "760.JR7*0B 3P	R+NCT2"?Y3UR 3O: +OCT7H[A3EF 2 WH+AKD.M^J*5B02 ?G+TCO.9B7.M^J*6B06 KP7ISN. V"2=GT+IKL.M^J*7B02 [I. 7B60R 3H;E. N8"0*M.7B82 & 7FR *=B13TWH/N" "560.J&7*0B 3P	R+NCT*"CI7N
O2 	G+VCE7YWO* CA3T	AL6".JB8*0B 7LSE. 7T/TF+.M"J*1B0. 7C"0*M.8B22 ^ 3O?T. ^9"0*M.8B36 B 3R;I+TJ 7YWO2 ?D2 ?N3T" 3AWV* CA3BSOY6".JR8*0B 7GSO/O& "760.JV8*0B 3P	R+NCT2"?Y3UF 3LWR7A	D2 GH+VCE7AR 3A3I""*M.8B62 ^ 3O?T. ^9"0*M.8B76 B 3R;I+TJ 262=+EKG.M"J*8B02 [I
 7L66R 3H;E. R9"0*M.8B92 & 3FJ *=B03TWH/N& "660.JB9*0B 7LSE. 7L/LF+.M&J*1B0. 7C"0*M.9B26 KP7ISN6 &"+OCU7N
O2 GH+VCE2"2;2;2"+EG+SJ).M&J*3B02 ?G+TCO.9B7.M&J*4B06 KP7ISN6 &"+OCU7H[A/EZ 2 WF+ECT7AKL3ESAY6".JV9*0B 7GSO/O& "760.JZ9*0B 3P	R+NCT2"?Y3UR 3O: +OCT7H[A3EF 2 ?B+DKY.M&J*7B02 WL7T" 2=;I/TZ(2*;R/DB(.)F+")*M.9B86 B 3R;I+TJ 7IJ 3O3L+ECD+AJ X*M.9B92 [I. 7X21^ 3
?T. B16020+ICF/XJ=2 ?G+TCO.1"020	\7F" *=B37GSO/OF .1B93\[I. 7X24^ 3O?T. N1"060.J&922& 7F" *=B57GSO/OF .4B13\[I. 7X26^ 3O?T. V1"260.JB1*0B06 KP7ISN. F"2=?B+DKY.MFJ.0B12 & 7FB *=B13TWH/NF .0B6.MFJ.0B26 B 3R;I+TJ 3I: +OCW7H[A3EF 2 ?B+DKY.MFJ.0B32 N "=60.JB1*
B0. 7P"1*M.1V0*0B 7GSO/OF .6B3.MFJ.0B66 B 3R;I+TJ 3IR 3O: +OCT3NWE3DF 2 ?B+DKY.MFJ.0B72 ^ 3O?T. Z1"360.JB1*8B06 KP7ISN. J"2=WN+CKK.MFJ.0B92 & 7FF *=B13TWH/NF .1B5.MFJ.1B02 & 7FB *=B03TWH/NF .1B7.MFJ.1B16 B 3R;I+TJ 3I: +OCW7H[A3EF 2 WN+CKK.MFJ.1B26 F "=61.
F1*3B0. 7C"0*M.1R1*0B 7GSO/OF .6B3.MFJ.1B56 B 3R;I+TJ 3IR 3O: +OCT3NWE3DF 2 WN+CKK.MFJ.1B62 ^ 3O?T. Z1"360.JF1*7B06 KP7ISN2 &"2 ?D2 ?N+TB 7H[A3EF 2 ?B+DKY.MFJ.1B82 ^ 3O?T. Z1"360.JF1*9B06 KP7ISN. N"2=WH+AKD.MFJ.2B02 & 7FF *=B03TWH/NF .2B6.MFJ.2B12 & 7FJ *
B13TWH/NF .2B8.MFJ.2B26 B 3R;I+TJ 3I: 3ESE+ECD3A" 3ESA""*M.1N2*0B /RF=.MFJ.2B42 N "=60.JJ1*5B02 ?G+TCO.1N6"0*M.1Z2*0B 3P	R+NCT*"CI+DCO7NSO2 GH+VCE3A: 3E/C""*M.1^2*0B 7GSO/OF .6B3.MFJ.2B86 B 3R;I+TJ 3IR 3O: +OCT3NWE3DF 2 WH+ACD""*M.1&2*0B 7GSO/OF .6B3.MFJ.
B06 B 3R;I+TJ 24Z=3E3E7EOR""*M.1F3*0B +ICF/RB=2 T+ECN.1&3"0*M.1J3*0B +ICF/SJ=2 T+ECN.1^3"0*M.1N3*0B 3P	R+NCT*"CI7GSE* CA3FWE7LKE""*M.1R3*0B 7LSE. 7S/SF+.MFJ.3B52 N "=60.JN1*6B02 ?G+TCO.1N6"0*M.1^3*0B 3P	R+NCT*"CI7H[A/EJ 2 WF3EWL+RCS7AKL3ESAY6".JN1*8B02 ?G
TCO.1N6"0*M.1&3*0B 3P	R+NCT*"CI+DCO7NSO2 GH+VCE3A" 3ESA""*M.1B4*0B 7GSO/OF .6B3.MFJ.4B16 B 3R;I+TJ 65R=3A3I""*M.1J4*0B +ICF/PB=2 T+ECN.1"4"0*M.1N4*0B +ICF/UF=2 T+ECN.1B5"0*M.1R4*0B 3P	R+NCT*"CI7N
O2 GH+VCE7AR 3A3I""*M.1V4*0B /UF=.MFJ.4B62 N "=60.JR1*7B02 ?G+TCO.1N6"0*M.1"4*0B 3P	R+NCT*"CI+DCO7NSO2 GH+VCE3AJ 7O	D""*M.1&4*0B 7GSO/OF .6B3.MFJ.5B06 B 3R;I+TJ 3IR 3O: +OCT3NWE3DF 2 GT+IKL.MFJ.5B12 ^ 3O?T. Z1"360.JV1*2B06 KP7ISN. Z"2=WL+GKS.MFJ.5B32 & 7F
 *=B63TWH/NF .5B9.MFJ.5B42 & 7FB *=B03TWH/NF .6B1.MFJ.5B52 2 +ECT7VZ="+61.JV1*6B0. 7C"0*M.1^560B 3R;I+TJ 3I: +OCW7H[A+EJ .;/V2"WL7GN(")6".JV1*8B02 ?G+TCO.1N6"0*M.1&5*0B 3P	R+NCT*"CI7H[A/EZ 2 WF+EKT.MFJ.6B02 ^ 3O?T. Z1"360.JZ1*1B06 KP7ISN2 &"2 ?D2 ?N3T" 3A
V* CA3BSOY6".JZ1*2B02 ?G+TCO.1N6"0*M.1N620& 3FF .<J>2 ?G+TCO.1^620	\7FR . :<21^ 3O?T.1^620	\3F2 .<Z>2 ?G/TGO.6B7.MFJ.6B56 B 3R;I+TJ 7YWO3RJ +UCG+ICS3F;I3IS+EKD.MFJ.6B62 2 +ECT7Y&="+61.JZ1*7B0+ICF/S:<22^ 3O?T. ^16120+ICF/P:<21^ 3O?T. ^16120+ICF/V:<26^ 3O?T
 ^1"160.JZ1*9B06 KP7ISN2 6"3YJ +UCG+ICS3F;I3IS+EKD.MFJ.7B02 2 +ECT7Y&="+62.J^1*1B02 [I. 7C61R 3H;E. B3"0*M.1J7*0B 3P	R+NCT2"?D2 ?Y7U^ 7ASN2 T7EB 7ISC3UWR/S.".MFJ.7B32 & 7NWP7T* "$*M.1R7*0B +ICF/Z6$2"?N6"R 3H;E. B3"0*M.1V7*0B 3P	R+NCT*"******7YWO3RJ +U+G**
*"*6".J^1*6B06 KP7ISN" *M.1^7*0B 3P	R+NCT.MFJ.7B82 & 3FF *=B03TWH/NF .8B6.MFJ.7B92 Z +OCR/ZF=2 ?T" 64.J"1*0B02 ?F7R" *=B1+TCOA*M.1F8*0B 3P	R+NCT3TKA.(B1")6;.J"1*2B06 KP7ISN2 F". .".MFJ.8B32 : 7ESX" 7X.J"1*4B06 KP7ISN" *M.1V8*0B 7NE7T* .MFJ.8B62 & 3F" *=B0
TWH/NF .8B8.MFJ.8B72 ^ 7OWS/BJ .4B7.MFJ.8B82 & 3F: *=B03TWH/NF .9B2.MFJ.8B92 Z +OCR/ZF=2 ?T" 62.J&1*0B06 KP7ISN* B"* B * B * B 3N: ""*M.1F9*0B 7NE7T* .MFJ.9B22 & 3FJ *=B03TWH/NJ .0B0.MFJ.9B36 B 3R;I+TJ * B 2 J 3BKB3BKB3BKB+BKB.MFJ.9B42 Z +OCR/ZF=2 ?T" 62.
&1*5B06 KP7ISN* B"* B * CB* B * B * B B6".J&1*6B02 WN+XCTZ*M.1^920& 7FR .<F>2 T+ECN.1&9"0*M.1"9*0B 3P	R+NCT6"ST7TST+BB * B * B 2 J ""*M.1&9*0B 3P	R+NCT*"B * B 3BKB3BKB3BKB3BKB""*M.2B0*0B +ICF/LB=2 T+ECN.2"0"0*M.2F0*0B 7FKO. 7Z61R /OJ .MJJ.0B26 B 3R;I7TR +
B.5.).MJJ.0B32 Z +OCR/XF=2 ?T" 7L.JB2*4B06 KP7ISN* B"/L.".MJJ.0B52 : 7ESX" 7X.JB2*6B06 KP7ISN" *M.2^0*0B 7NE7T* .MJJ.0B82 Z +OCR/ZF=2 ?T" 64.JB2*9B06 KP7ISN" *M.2B1*0B 7NE7T* .MJJ.1B16 B 3R;I+TJ ********+MCY3B
U********"*6".JF2*2B06 KP7ISN" *M.2N1*0B 3P	R+NCT.MJJ.1B46 B 3R;IT6 .JF2*5B02 [I. 7S60R 3H;E. J2"360.JF2*6B02 ?F7R* *=B1+TCO"4*M.2^1*0B 3P	R+NCT3TKA.(B1")6;.JF2*8B02 ?F7R" *=B1+TCOS*M.2&1*0B 3P	R+NCT*"CF""6;.JJ2*0B02 WN+XCTX*M.2F2*0B 3P	R+NCT.MJJ.2B22 : 7
SX" 7Z.JJ2*3B0+ICF/R:<61R 3H;E. J2"560.JJ2*4B02 ?G3SKU. R2"760.JJ2*5B02 [I. 7Q60R 3H;E. J2"860.JJ2*6B06 KP7ISN* B"* B * B * B 3N: ""*M.2^2*0B 3P	R+NCT*"B * B * B 2 : * KN.MJJ.2B82 & 7FB *=B03TWH/NJ .3B6.MJJ.2B96 B 3R;I+TJ * B 2 J 3BKB3BKB3BKB+BKB.MJJ.3B02
Z +OCR/ZF=2 ?T" 62.JN2*1B06 KP7ISN* B"* B * CB* B * B * B B6".JN2*2B02 WN+XCTZ*M.2N320& 7FV .<F>2 T+ECN.2V3"0*M.2R3*0B 3P	R+NCT6"ST7TST+BB * B * B 2 J ""*M.2V3*0B 3P	R+NCT*"B * B 3BKB3BKB3BKB3BKB""*M.2Z3*0B +ICF/VB=2 T+ECN.2V4"0*M.2^3*0B 7FKO. 7Z61R /OJ .
JJ.3B86 B 3R;I7TR +AB.5.).MJJ.3B92 Z +OCR/XF=2 ?T" 7V.JR2*0B06 KP7ISN* B"/L.".MJJ.4B12 : 7ESX" 7X.JR2*2B06 KP7ISN" *M.2N4*0B 7NE7T* .MJJ.4B52 [I. 3Y*>B03TWH/NJ .5B4.MJJ.4B62 ^ 3O?T. B3"0*M.2^4*0B 3P	R+NCT*"B * B * B 3HH3HHH6".JR2*8B06 KP7ISN* B"* B * B * 
H* B * KH.MJJ.4B96 B 3R;I+TJ * B * B 2 " * CO3O" ""*M.2B5*0B 3P	R+NCT*"B * B * B +HB * B H6".JV2*1B06 KP7ISN* B"* B * B * CH* CV* KH.MJJ.5B26 B 3R;I+TJ * B * B 2 " 3HH3HH""*M.2N5*0B 7RSE3U;R" *M.2R5*0B 3P	R+NCT*"CI7HCO7E& +OCU3E+N3OWY7DR +HCE3G7A+EB,3PGL3
F 3G	A7NN 3O;O* F!"!6".JV2*5B03ESN&M*J

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