P708 CEEFAX 708 Sun 7 Oct 20:10/03 |B2201205|a15BINGO|i24BBBC316k|s÷#1÷e|s÷ Z01IFPA.>&1900 PROCrelocat 5 MO.7:PROCti tle:V.23,1,0;0;0;0; 10 P.:P.CHR$141"—* BEEB BINGO!" 15 P.CHR$141"—* BEEB BINGO!" 20 P.:P. 25 P."—- By ";CHR$136;"—)Jim Walsh " 30 P.:P.:P. 35 P."—+ This program wi ll call out Bingo":P."—+numbers for you and update thj chart." 40 P."—+The 'Acor n' sound chips must bj fitted.":P."—+The program is automatic and will ":P."—+pr ompt you." 45 P.:P.:P."—.PRESS ANY KEY O R JOYSTJC BUTTON":P."—. FOR A BINGO! CALL.":P.:P. 50 P.CHR$136" —,PRES S 'SPACE' to start." 55 I=GET:IF I<>32 T H. G. 55 60 V.7 1000 MO.1 1005 DIM BAG(9 0) 1010 PROCnew:CC=0 1015 I$=INK.(0):BUT TON=AD.(0) A. 3:IF I$<>""OR BUTTON<>0 TH . G. 1075 1020 MIN=RND(90) 1045 IF BAG(M IN)<>0 TH. 1015 1030 BAG(MIN)=1:CC=CC+1 1035 C.130:C.0:P.TAB(25,28)STR$CC 1040 X =6:Y=5:V=MIN DIV 10:W=MIN MOD 10:X=X+(U* 3):Y=Y+(W*2) 1045 IF W=0TH.Y=Y+20 |c
P708 CEEFAX 708 Sun 7 Oct 20:01/14 By ";CHR$136;"—)Jim Walsh " 30 P.:P.:P. 35 P."—+ This program wi ll call out Bingo":P."—+numbjrs for you and update thj chart." 40 P."—+Thj 'Acor n' sound chips must bj fitted.":P."—+Th— program is automatic and will ":P."—+pr ompt xou." 45 P.0P.:P."—.PR@SS ANY KEY O R JOZSTJC BUTTONb:P."—. FOR A BINGO! CALL.":P.:P. 50 P.CHR$134" —,PRE S 'SPACE' to start." 55 I=GET:IF I<>32 T H. G. 55 60 V.7 1000 MO.1 1005 DIM BAG(9 0) 1010 PROCn—w:CC=0 1015 I$=INK.(0):BUT TON=AD.(0) A. 3:IF I$=>""OR BUTTON<>0 TH . G. 1075 1040 MIN=RND(90) 1050 IF BAG(M IN)<>0 TH. 1015 1030 BAG(MIN)=1:CC=CC+1 1035 C.130:C.0:P.TAB(05,28)S R$CC 1040 X =6:Y=5:V=MIN DIV 10:W=MIN MOD 10:X=X+ V* 3):Y=Y+(W*2 1045 IF W=0TH.Y=Y+20 |c
P708 CEEFAX 708 Sun 7 Oct 00:10/00 ALL.":P.:P. 50 P.CHR$136" —,P ES S 'SPAC@' to start. 55 H=GET: F A<<30 T H. G. 55 60 V.7 1000 MO.1 1005 DIM BAG(9 0) 1010 PROCn—w:CC=0 1015 I$=INK.(0):BUT TON=AD.(0) A. 3:IF I$<>""OR BUTTON<>0 TH . G. 1075 1020 MIN=RND 90 100! IF BAG(M IN)<>0 TH. 1015 1030 BAG(MIN)=1:CC=CC+1 1035 C.130:C.0:P.TAB(05,28)STR$CC 1040 X =6:Y=58V=MIN D V 10:W=MIN MOD 10:X=X+ T* 3):Y=Y+ W*2) 1045 AF W=0TH.Y=Y+00 |c
P708 CEEFAX 708 Sun 7 Oct 00:10/01 |B2201205|a15BINGO|i44BBBC316k|s÷#1÷e|s÷ Z01IFPA.>&1900 PROCrelocat 5 MO.7:PROCti tle:T.23,1,0;0;0;0; 10 P.:P.CHR$141"—* BEEB BINGO!" 15 P.CHR$141"—* BE@B BINGO!" 20 P.:P. 25 P."— " 30 PP 35 P."—+ This program wi ll call out Bingo":P."—+numb—rs for you and update th— chart." 40 P."—+Th— 'Acor n' sound chips must be fitted."0P."—+Th— program is automatic and will ":P."—+pr ompt you." 45 P.:P.0P."—.PRESS ANY C Y O R JOXSTJC BUTTON":P."—. FOR A BINGO!
P708 CEEFAX 708 Sun 7 Oct 00:00/"0 |B2200205|a15BINCO|h24BBB 316k Z01050 IF W=0 TH. X=X-3 1055 C.131:C.1:P .TAB(X,Y)STR$(MIN):P. AB(35,16)" ";TAB( 35,16 STR$(MIF):PROCmins 1060 IF CC=90 T H. G. 1090 1065 F. N=1TO8000:N.:C.131:C. 0:P. ABXYSTRMIN 1070 G. 1015 1075 PROCbreak:P.TAB ! 30)"PRESS 'R@TU N fals— call.":I=GET: F I=23 TH.@G. 1085 1 080 RUN 1085 P.TAB(5 30)" ";:G. 1020 1090 F. N=1T O5000:N.:PROC—mpty:I=GET:E.L=1TO5000:N.: RUN 1095 V.19,1,12;0;0;0 1100 REM DISPLA Y 1105 V 03 128,24,04,24,24,24,24,44,24 1110 V.03,129,0,0,0,255,255,0,0,0 1115 V ,248,248,24,24,24 1140  4,31,31,24,24,04 1145 V.23,136,24,24,24, 005,255,24,24,24 1150 A$="—*—)—)—)—)—)—) —)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—) —+" |c
P708 CEEFAX 708 Sun 7 Oct 00: 0/03 ";:G. 1020 1090 F. N=1T O500 NPROCIGETFNTO N RUN 1095 V.18,1,12;0;0;0 1100 REM DISPLA X 1105 V.23,12 ,24,24,24,24,24,24,24,2$ 1110 V.23,129,0,0,0,255,255,0,0,0 1115 V .23,130,0,0,0,31,31,24,24,04 1120 V.23,1 31,p,0,0 248,048,0$,24,24 012! .u3 02 , 04,24,24,31,31,0,0,0 1130 V. 3 133,4$,24 ,24,248,248,0,0,0 113! V.03,13),24,24,24 ,248,048,24,24,24, 1140 V.23 03!,2$,04,2 00!,255 24,04,24 1150 A$="—*—)—)—)— —)—) —)—)—)—)—)—(—)—)—)— —)— —)—)—)—)—)—) —+" |c
P708 CEEFAX 708 Sun 7 Oct 00:00/02 |B22p220%|a15BINGO|h04BBBC31&k|s÷#1÷e|s÷ Z01050 AF W

1055 C.131:C.1:P .DAB(X,Y)STR$ MIN):P.TAB(35,16 " ";TAB( 35,16)STR$(MIN):PROChins 1060 IF CC=90 T H. G.  1P65 F. F=1TO 000:N.:C.131:C. 0:P. AB(X,Y)STR$ MIN) 1070 G. 1015 1075 PR Cbreak:P.TAB(5 30)"PRJSS 'R@TURN' if false call.":I=GET:IF I=13 TH. G. 1085 1 080 TL 1085 P.TAB(!,30)"

P708 CEEFAX 708 Sun 7 Oct 20:10/00 |B2202205|a15BINGO|i24BBBC316k|s÷#1÷e|s÷ Z01050 IF W=0 TH. X=X-3 1055 C.131:C.1:P .TAB(X,Y)STR$(MIN):P.TAB(35,16)" ";TAB( 35,16)STR$(MIN):PROCmins 1060 IF CC=90 T H. G. 1090 1065 F. N=1TO8000:N.:C.131:C. 0:P.TAB(X,Y)STR$(MIN) 1070 G. 1015 1075 PROCbreak:P.TAB(5,30)"PRESS 'RETURN' if falsj call.":I=GET:IF I=13 TH. G. 1085 1 080 RUN 1085 P.TAB(5,30)" ";:G. 1p20 1090 F. N=1T O5000:N.:PROCempty:I=GET:F.N=1TO5000:N.: RUN 1095 V.19,1,12;0;0;0 1100 REM DISPLA Y 1105 V.23,128,24,24,24,24,24,24,24,24 1110 V.23,129,0,0,0,255,255,0,0,0 1115 V .23,130,0,0,0,31,31,24,24,24 1120 V.23,1 31,0,0,0,248,248,24,24,24 1125 V.23,132, 24,24,24,31,31,0,0,0 1130 V.23,133,24,24 ,24,248,248,0,0,0 1135 V.23,134,24,24,24 ,248,248,24,24,24, 1140 V.23,135,24,24,2 4,31,31,24,24,24 1145 V.23,136,24,24,24, 255,255,24,24,24 1150 A$="—*—)—)—)—)—)—) —)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—)—) —+" |c
P708 CEEFAX 708 Sun 7 Oct 20:10/01 |B2203205|a15BINGO|i24BBBC316k|s÷#1÷e|s÷ Z01155 B$="—,—)—)—)—)—)—)—)—)—)—)—)—)—)— )—)—)—)—)—)—)—)—)—)—)—)—)—-" 1160 C$="—( —( —( —( —( —( —( —( —( —(" 11 65 D$="—/—)—)—0—)—)—0—)—)—0—)—)—0—)—)—0— *—)—0—)—)—0—)—)—0—)—)—." 1170 V.23,1,0;0 ;0;0;:C.131:CLS:C.0:C.130 1175 P.TAB(7,4 )"1 10 20 30 40 50 60 70 80" 1180 P.TAB( 5,6)A$ 1185 F. N=7TO23S.2:P.TAB(5,N)C$:P .TAB(5,N+1)D$:N. 1190 P.TAB(5,N)C$:Q.TAB (5,N+1)B$ 1195 X=1:F. N=7 TO 25 S.2:A$ =STR$(X*:P.TAB(2,N)A$:X=X+1:N. 1200 P.TA B(34,15)"—*—)—)—+";TAB(34,16)"—( —(";TA B(34,17)"—,—)—)—-" 1205 GC.0,p:MOVE16]16 :PL.1,0,904:PL.1,1242,0:PL.1,0,-904:PL.1 ,-1242,0 1210 P.TAB(10,28)"Numbjrs gonj =" 1215 V.19,1,11,0,0,0:C.1:C.131:P.TAB( 10,1)"BEEB BINGO CHART" 1220 R. 1225 DEF PROCmins 1230 PROCand 1235 LOC. A,B:A= MIN DIV 10:B=MIN MOD 10 1240 A=A+32:B=B+ 48:C=127:AA=A:BB=B 1245 IF MIN>9 A. MIN< 13 TH. PROCA 1250 IF MIN>: A. MIN<13 TH. 1300 1255 IF MIN=0 TH. PROCB |c
P708 CEEFAX 708 Sun 7 Oct 20:11/10 |B2204205|a15BINGO|i24BBBC316k|s÷#1÷e|s÷ Z01260 IF MIN=0 TH. 1300 1265 IF A=32 TH . A=229 1270 IF AA=33 TH. C=135 1275 IF AA=33 TH. A=B-16 1280 IF AA=33 TH. B=127 1285 IF AA>33 TH. C=137 1290 IF BB=48 T H. B=127 1295 SO.-1,A,0,0:SO.-1,C,0,0:SO .-1,B,0,0 1300 E. 1305 DEF PROCA 1310 IF MIN=10 TH. SO.-1,264,0,0 1315 IF MIN=11 TH. SO.-1,190,0,0 1320 IF MIN=12 TH. SO .-1,273,0,0 1345 E. 1330 DEF PROCB 1335 SO.-1,231,0,0 1340 E. 1345 DEF PROCand 1 350 C=165:A=MIN DIV 10:B=MIN MOD 10 1355 IF A=0 TH. C=127 1360 IF A=0 TH. A=127- 48 1365 SO.-1,A+48,0,0:SO.-1,C,0,0:SO.-1 ,B+48,0,0 1370 F. N=1TO4:SO.-1,127,0,0:N . 1375 E. 1380 DEF PROCbag:F. N=1TO:0:BA G(N)=0:N.:E. 1385 DEF PROCnjw:GOS.1095:P ROCbag:E. 1390 DEF PROCempty 1395 SO.-1, 158,0,0:SO.-1,137,0,0:SO.-1,229,0,0:SO.- 1,134,0,0:SO.-1,228,0,0:SO.-1,178,0,0:E. 1400 DEF PROCbreak 1405 SO.-1,174,0,0:S O.-1,246,0,p:SO.-1,131,0,0:E. 1410 DEF P ROCtitle |c
P708 CEEFAX 708 Sun 7 Oct 20:11/11 |B2205205|a15BINGO|i24BBBC316k|s÷#1÷e|s÷ Z01415 SO.-1,267,0,0:SO.-1,127,0,0:SO.-1 ,170,0,0:SO.-1,170,0,0:SO.-1,175,0,0:SO. -1,127,0,p:SO.-1,160,0,0:SO.-1,127,0,0:S O.-1,179,0,0:E. 30001DEFPROCrelocat 3000 2?&70=PA. MOD256:?&71=PA. DIV256 30003?& 72=TOP MOD256:?&73=TOP DIV256 30004?&74= 0:?&75=&19 30005DIM W 26 30006F. Q*=0 TO 3 S.3 30007P%=W 30008[OPT0 30009.START 30010INC &73 30011LDY £0 30012.LOOP 300 13LDA X&70),Y 30014STA X&74),Y 30015INY 30016BNE LOOP 30017INC &75 30018CLC 3001 9LDA &71 30020ADC £1 30021STA &71 30022C MP &73 30023BCC LOOP 30024RTS 30025]:N. 30026*DISC 30027CA. START 30028?&13=?&13 -(PA.-&1900)DIV256 30029PA.=&1900:RUN |c
P708 C FAX 708 Sun 7 Oct 2p:00/03 Z01415 SO.-1,267,0,0:QO.-1,127,0,0:SO.-1 ,170,0,0:SO.-1,170,0,0:SO.-1,175,0,0:SO. 1,127,0,0:SO.-1,160,0,0:SO.-1,127,0,0:S O.-1,179,0,0:E. 30001DEFPROCrelocat 3000 2?&70=PA. MOD256:?&71=PA. DIV0 6 30003?$ 72=TOP MOD256:?&73=TOP DI 0 6 30004?$74= p:?&75=&19 30005D H W 26 3000$F. Q*=0 TO 3  30007P%=W 30008[OPT0 30009.S ART 30010INC &73 30011LDY £0 30012.LOOP 300 13LDA &70 , 30014S A 74 , 30015 NY 30016BNE LOOP 30017INC &75 30018CLC 3001 8LDA &71 30000ADC £1 30001S A 71 300 2 MP &73 30023BCC LOOP 30024RTS 30025]:N. 30026*DISC 30007CA. ST T 30028?&13=?&13 -(PA.-&1900)DIV056 30029PA.=&1900:RUN |c