File BINGO.BA (BASIC source file)

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

*5B03R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M.1B02 GR3N?D7M+IE*M.1B26 KP7ISN6 &"+OCU3AWR2 ?N3W^ 3O;I7GR 7OB 7L	A* CA3C7O7PSU3E	R3ZSE2 WV3R	S+OCN+OCF3B;I+G7O"-6".J"1202 +ECT/FF=.MFJ*8B5/VB=/\7W"0*M.1B92 	D3MJ .(B1.,B1"
*M.2B02 	D3M2 .(V7")*M.2B1* SA*(&12=J"2"G\.$J(*)J=7I2"+A"$.36)*"KN+\SA*(&42=^"2"G\.$V(*)J=O6".JN265J +ECM2 T+ICS7SGE3U;E+CCE3G;E3EGR7TOE2 T3EN 3ASR6 WN3MWB+RCS2(	L7NOE. R2.0R-*3&0.MJJ*4B07FKO. GK*=B1+TCO"765.JV2202 +ECT3L.(.16)"0*M.2B62 WN+XCTK61.J^260B 3
;I+TJ * 2"*"B * B 7HKE7EN	. .".MJJ*8B0+ICF/FF>2 T+ECN.3B1.MJJ*9B03P	R+NCT2"?Y+UCR7CKAD6".JB320^ 3O?T. J3"0*M.3B16 KP7ISN2 6"3YN 3ASR""*M.3B22 WL3T6 .=Z1.MNJ*3B07LSE. 7G/FR+.MNJ*4B07FKO. 7Y7FR 3O^ .MNJ*5B07FKO. 7X7FR 3O^ .MNJ*6B07LSE. 7R7ISN*(+M3RSN*(&0")*
.3B72 [I. 3R/MF-65R 3H;E. Z3"0*M.3B82 [I* L/R2)*>B03TWH/NN "660.J&3202 +ECT7B"(*,	Y"=7R.JB4202 +ECT7LJ(.)F=.MRJ*1B07NE7T" .MRJ*2B07LSE. 7M/MF+"5*M.4B32 WN+XCTY*M.4V32 WR+MB 3T	H7SN 7EWQ3EON7EB 3R;I+TCS3TWH2 GC+RCD2(	L7NOE. R4.0Z-*7&0.MRJ*4B03P	RN7T.JV460B
3R;I+T6"*-7B*-2"*"6-+I6-*"J,2-:-*-J-*,6"*-7G*-2"*"6-+O6-""*M.4B62 ?F7R" *=CF+TCOG*M.4B76 KP7ISN.MRJ*8B03P	RN7T.J&460B 3R;IT*M.5B02 ?F7R& *=CF+TCOG*M.5B12 [I* B7X&,2)J=*(/F22Z,*+&22 T+ECN.5B4.MVJ*2B03P	R+NCT7B"(*,	Y",*M.5B32 ?G+TCO.5B5.MVJ*4B03P	R+NCT6"KF+
KE",*M.5B52 WN+XCTY*M.5B62 WN+XCTX*M.5B76 KP7ISN.MVJ*8B03P	RN7T.J&560B 3R;IT*M.6B06 KP7ISN*"6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-"-6".JF660B 3R;I+TB"* B * " 3TGE3R> +FCF7ASF+ECR3MOA3H;I3EF 3U?T7MSA3IGC7L	L2 SA3
;A7COE2 GP7PKE")6".JJ620Z +OCR/K6961R /O& .MZJ*3B03P	RN7T.JR620: 7ESX. 	K.MZJ*5B0+ICF/FZ=2 T+ECN.6B8.MZJ*6B07LSE. 7F"6*M.6B72 ?G+TCO.2B4.MZJ*8B03P	RN7T.J&660B 3R;I3T:"+OCW+W
E+RCE3A3L2 WS7TR 7OB 7L	A2 T3E^ 3AWM6.V +SCE7AB 3EON+ICL+TCO7MKA3K> +FKF.M^J*0B03P	R+NKT3TWH6 WN3MWB+RCS+OCN7YWO3RN 3ASR6 OA2 T+ECY3AWR2 GC3LWL+DJ..M^J*1B03P	R+NKT* " 3PWL3AWS2 3P+ACY+MCY7CKA3DF 7S^ 3E3L6 OA2 ?Y+UCR3O;W")6".JJ760B 3R;I+T*"2*R*+O
N3T^ +ECT3SGM+R;T2 & 2	3L2 WB2 3P3A	Y+NCG7BSO7H& 7OKU2 GC+RCD3ASN2 	M+NKE.M^J*3B03P	R+NKT* B * B +UCP7HKE3E& 3NJ 7OSS+O;N* " +SCO3TWH+R7E*-J).M^J*4B03P	RN7T.JV760B 3R;I3TF"+RCE7YWO2 WR7A	D""6;.JZ720& 7NWP7TJ "$*M.7B72 [I* SR*<J>+NKO2 T+ECN.8B2.M^J*8B03P	R
7T.J&760B 3R;I+T*"********.***7HKU+RCY/U+P************""*M.8B02 ?G+TCO.7B4.M"J*1B03R7E.M"J*2B07FKO. GK*=B1+TCO"765.JN8202 +ECT3L.(.16)"0*M.8B42 WN+XCTK61.JV860B 3R;IT*M.8B62 WL3TJ *(23.36)"0*M.8B72 WL3TJ *(28.86)"0*M.8V72 WR+MB 3T	H7SN 7EWQ3EON3E^ 3EWN7RS
+ECS3TWH2 	B3N?G6 WN3MWB+RCS2(	L7NOE. "8.0F-.1B0")*M.8B82 WL7TV 2=;I/T^(65J*+ND*0&)"+61.JF920& 3F2 *(	U.<B>2 T+ECN.8B8.M&J*2B07LSE* L/U6)"1*M.9B36 KP7ISN.M&J*4B9+ICF3RSN*(&0* B>*.B53TWH/N& "760.JV960B 3R;I7TR"+HCE3N7U7BKE2 ?C7MOE6 CU*:2".M&J*6B07GSO/O& "8
0.J^960B 3R;I+TJ 3TWH2 WN+XCT3OWN6 OI*:2".M&J*8B03P	R+NCT+A"$7ISN6(V(*-&1./V1.)F+6)V;.MFJ.1V02 WR+MB 3T	H3S& 7SR +HCE6"WN3MWB3R> 3NN 3ASR*?B"7SGE3U;E+CCE2 2(3IWN/SF .1B1.-J1*6&0.MFJ.1B12 ?F7R& *=B1+TCO"160.JF1*2B07FKO. 7X61R /OF "0*M.1N120& 3FJ *(3X/Y6)7U
 3H;E. J1"560.JF1*4B07NE7T" .MFJ.1B52 WN+XCTY*M.1Z1202 +ECT/FF=.MFJ.1B72 ?G3SKU. J1"760.JF1*8B07LSE. 7F"6*M.1&120^ 7OWS/BF .2B7.MFJ.2B02 [I. 7V60R 3H;E. J1"360.JJ1*1B0+ICF/WF=2 T+ECN.1"9"0*M.1J220^ 3O?T. B2"560.JJ1*3B0+ICF/WB=2 T+ECN.8B8.MFJ.2B42 ?G+TCO.2
1"0*M.1V2202 +ECT7B"(*,	Y"=60.JJ1*6B07GSO/OF .1B4.MFJ.2V62 WR+MB 3T	H3S& 7SR +HCE3B;I+GCO7DSE3E7R3I	N+NCG7SGE3U;E+CCE2(	L7NOE. J1*760.1V9"06).JJ1*6B73R7E6 R 7HOI6 OI2 T7EZ 7ESR3IGC3LN 3HOE3KZ +OCR3B;I+G+O**B*2(	L7NOE. J1*760.1N4"06).JJ1*7B07LSE. 7G/FR+.MF
.2B82 ?F7R& *=CF+TCOG*M.1&220Z +OCR3XZ=2 ?T" 7G.JN1*0B0+ICF7B"(*,	Y.<B>2 T+ECN.1N4"0*M.1F320& 7F" *</F64R 3H;E. R1"260.JN1*2B0+ICF/FZ=2 T+ECN.1^3"0*M.1N360B 3R;IT*M.1R360B 3R;I7T&"+O
U+VCE7GSO* CA* CB3I: * CG+O* * B*"*6".JN1*5B07LSE. 7W"1*M.1Z360J 7EWTR7N.JN1*7B03P	RN7T.JN1*8B03P	R+NKT7IZ	3E^ +OCT+AB 3B& * CN3G> * B**** * B*"*6".JN1*9B07LSE. 7V"1*M.1F420^ 3O?T. N1"660.JR1*2B07NE7T" .MFJ.4B32 WN+XCTY*M.1R460J +ECM2 T+ICS+ICS3TWH2 ?H7R+
7OSN+ACL3CWH+CCK7FKO2 	B3N?G****2 2(3IWN/SF .4B5.-Z1*1&0.MFJ.4B52 WL3T^ *=/F"4*M.1Z420Z +OCR3XZ=2 ?T" 7G.JR1*7B07FKO. 7Y7FR 3O^ .MFJ.4B82 [I* B7X&,.):<60R 3H;E. Z1"160.JR1*9B0+ICF3YZ<*+B43TWH/NF .6B0.MFJ.5B02 [I. 7F66R 3H;E. V1"560.JV1*1B03P	RN7T.JV1*2B03
	R+NKT7YWO2	WV2 ?G3TF 2 J * CI3N^ * CO*** * J*.MFJ.5B32 WL7T^ "=61.JV1*4B07RSE3U;R.MFJ.5B56 KP7ISN.MFJ.5B66 KP7ISN*"
I+VCE7GSO* CA* CB3I: * CG+O* * B**** * J*.MFJ.5B72 WL7TZ "=61.JV1*9B07GSO/OF .5B4.MFJ.6B02 WN+XCTY*M.1F620: 7ESX" 7X.JZ1*1B53R7E6 R 7HOI6 OI2 T7EN 3L;A3TN 3HOE+K" +M6=*1B)7FKO2 	B3N?G****2 2(3IWN/SF .6B2.-^1*0&0.MFJ.6B22 WL7T" "=7F.JZ1*3B07LSE. 7YF*M.1R62
& 3FJ *(3X/Y2)*>B03TWH/NF .7B8.MFJ.6B52 WL7T" *=/X"1*M.1Z6202 +ECT7Y&="+61.JZ1*7B0+ICF3YZ<*+B53TWH/NF .6B4.MFJ.6B82 [I. 7Y*1B13TWH/NF .7B4.MFJ.6B92 WL7T^ "=61.J^1*0B03P	RN7T.J^1*1B03P	R+NKT7YWO2	WV2 ?G3TF 2 J * CI3N^ * CO*** * J*.MFJ.7B32 WR7TKUN*M.1R760B
3R;I3T&"2	WV2 ?G3TF 2 J * CI3N^ * CO*** * B**** ""*M.1V7202 +ECT/VF=.MFJ.7B72 WR7TKUN*M.1^765J +ECM2 T+ICS+ICS3TWH2 3S7ASN2 C3E/C2 6(*=&12 ?F3RJ 3I
N+O****" 3L;I+ECS.1"7.0F-.9B5")*M.1"7202 +ECT3XZ="+64.J^1*9B03YZ=.MFJ.8B02 [I* B7X&,.):<60R 3H;E. &1"560.J"1*1B07LSE. 7X/XF-.MFJ.8B22 WL7T& *=/Y"1*M.1N820& 7F& *</F65R 3H;E. "1"060.J"1*4B0+ICF/YF=61R 3H;E. &1"060.J"1*5B03P	RN7T.J"1*6B03P	R+NKT7YWO2	WV2 ?G
TF 2 J * CI3N^ * CO*** * J*.MFJ.8B72 WL7T^ "=61.J"1*9B07RSE3U;R.MFJ.9B06 KP7ISN.MFJ.9B16 KP7ISN*"
I+VCE7GSO* CA* CB3I: * CG+O* * B**** * J*.MFJ.9B22 WL7TZ "=61.J&1*5B07RSE3U;R.MFJ.9B72 WR7MR 7HOI6 OI2 T7ER +ICE3P	O3N?T+UCT7SGE3U;EC7E.J&1*8B03P	RN7T.J&1*9B03P	R+NKT* * ************2*& 7TN	* CA3TWI* **************""*M.1&965J +ECM2 T+ICS+ICS3TWH6 B"7L	A2 
A3A;I*?B"7SGE3U;EC7E.JB2*0B03P	RN7T.JB2*1B03P	R+NCT2"?D2 ?Y7U^ 7ASN2 ?T2 3P+ACY3AGG+IKN";*M.2J020& 7NWP3TV "$*M.2J065B 3R;IT*M.2N020& 3FV *$J=7YOE6"R 3H;E. "1"0*M.2R060N 7TCO.MJJ.0V42 WR+MB 3T	H3S& 7SR +HCE*"CI3W;I6"N 7EWQ3EONE*M.2V060B 3R;IT*M.2Z020Z +OC
/SF=2 ?T" 66.JB2*7B03P	R+NKT7I^ +I;N* J ";*M.2"020: 7ESX" 7S.JB2*9B03P	RN7T.JF2*0B03P	RN7T.JF2*1B07GSO/OJ .0B0.MJJ.1V12 WR+MB 3T	H3S& 7SR +HCE2"?Y7U^ +IKN2 WS3QWU3NWC.MJJ.1B26 KP7ISN.MJJ.1B36 KP7ISN*"B 7YWO2 	W+N:.*.:.6 & +OCU3W;I*.:.*.:.*.B 7YWO2 	W+N:.*
:.*.J..MJJ.1B42 ?G+TCO.2B0"0*M.2R165J +ECM2 T+ICS+ICS3TWH2 V"+NKD2 [O2 T3E2 7ISS2 [O6 KP7OKG+ACM7ESN3I3T+ECD2"	B3N?G""*M.2V120V N7DBJBZ

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