� Bingo Caller
� By Philip Ord
� (c) Electron User
(�1
2�N%(80)
<�23,1,0;0;0;0;
F�rand:�Dn@
P
��rand
ZX� I%=1 � 80:N%(I%)=I%:�:� I%=80 � 2 �-1:C%=�(I%):T%=N%(C%):N%(C%)=N%(I%):N%(I%)=T%:�
d�
n�big("BINGO!",17,2)
x5�1,1,135,198,173,151,173,212,126,0,0,-126,126,126
�4�2,1,86,105,162,238,194,167,126,0,0,-126,126,126
��0,888:�1279,888
��0,640:�1279,640
�� I=1 � 80
�A=N%(I):� A<10 c=2 � c=1
�V� ��(I),1)="1" e$="st" � � ��(I),1)="2" e$="nd" � � ��(I),1)="3" e$="rd" � e$="th"
��I>10 � I<20 e$="th"
��big(�(A),c,1):�26:�128
��1,-15,170,1
�`�6,13)"SPACEBAR FOR THE NEXT NUMBER"�9,15)"OR HIT H TO CALL HOUSE"�12,17)"PRESS R TO RECAP"
�	*FX21
�,W$=�:� W$<>" " � W$<>"H" � W$<>"R" �dp@
�� W$="H" �house

� W$="R" �recap

�

	�dZB

"� �big(str$,C,R)

,� str$="BINGO!" �DJA

6#�11,5)"The ";I;e$;" number is"

@�28,18,10,21,7:�129:�

J�C,R);

T� I%,A%

^�I%=1��(str$)

h?&70=�(�str$,I%,1))

rA%=10:X%=&70:Y%=0:� &FFF1

|� J%=0�1

��23,224

��K%=2�9

��?(&70+4*J%+K%�2)

��

�
�224,10,8

��

��11,11,9

��

��

���house

��1,2,100,40:�D=1 � 1000:�

�6�28,0,29,39,13:�:�26:�11,13)"HOUSE CALLED ON ";A;

��inp=1 � 15
l�6,16)"INPUT THE 15 WINNING NUMBERS"�14,18)"Number ";inp;"=":�7,23,1,1;0;0;0;:�24,18)wn:�23,1,0;0;0;0;
�f=1 � I
(� wn=N%(f) f=I:WN=�:�correct:�:�DDB
&� wn<>N%(f) WN=�
0� f
: � WN=� �incorrect:inp=15:�:�
D	� inp
N
�winner:�
X�
b
��correct
l=�15,20)"Confirmed.":�D=1 � 200:�:�24,18);�2;�15,20);�10
v�
���incorrect
��1,-15,20,4:�1,-15,10,8
�O�5,20)"NUMBER ";wn;" HAS NOT BEEN CALLED."�8,22)"FALSE CALL. HOUSE DENIED"
�.�7,29)"PRESS SPACEBAR TO CONTINUE":���=32
��28,0,29,39,13:�:�26
��
���winner
��1,1,100,40
�@�28,0,29,39,13:�:�26:�17,14)"BINGO!"�13,20)"HOUSE CORRECT."
�2�6,24)"PRESS SPACEBAR FOR NEXT GAME":���=32:�
��
���recap
��28,0,29,39,13:�:�26
�17,13)"RE-CAP"'
�rc%=1 � I
�;N%(rc%);",";
 � rc% �13=0 �'
*�
4	�t^B
>�
�

00000000  0d 00 0a 12 f4 20 42 69  6e 67 6f 20 43 61 6c 6c  |..... Bingo Call|
00000010  65 72 0d 00 14 13 f4 20  42 79 20 50 68 69 6c 69  |er..... By Phili|
00000020  70 20 4f 72 64 0d 00 1e  17 f4 20 28 63 29 20 45  |p Ord..... (c) E|
00000030  6c 65 63 74 72 6f 6e 20  55 73 65 72 0d 00 28 06  |lectron User..(.|
00000040  eb 31 0d 00 32 0b de 4e  25 28 38 30 29 0d 00 3c  |.1..2..N%(80)..<|
00000050  12 ef 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |..23,1,0;0;0;0;.|
00000060  00 46 0f f2 72 61 6e 64  3a e5 8d 44 6e 40 0d 00  |.F..rand:..Dn@..|
00000070  50 0a dd f2 72 61 6e 64  0d 00 5a 58 e3 20 49 25  |P...rand..ZX. I%|
00000080  3d 31 20 b8 20 38 30 3a  4e 25 28 49 25 29 3d 49  |=1 . 80:N%(I%)=I|
00000090  25 3a ed 3a e3 20 49 25  3d 38 30 20 b8 20 32 20  |%:.:. I%=80 . 2 |
000000a0  88 2d 31 3a 43 25 3d b3  28 49 25 29 3a 54 25 3d  |.-1:C%=.(I%):T%=|
000000b0  4e 25 28 43 25 29 3a 4e  25 28 43 25 29 3d 4e 25  |N%(C%):N%(C%)=N%|
000000c0  28 49 25 29 3a 4e 25 28  49 25 29 3d 54 25 3a ed  |(I%):N%(I%)=T%:.|
000000d0  0d 00 64 05 e1 0d 00 6e  17 f2 62 69 67 28 22 42  |..d....n..big("B|
000000e0  49 4e 47 4f 21 22 2c 31  37 2c 32 29 0d 00 78 35  |INGO!",17,2)..x5|
000000f0  e2 31 2c 31 2c 31 33 35  2c 31 39 38 2c 31 37 33  |.1,1,135,198,173|
00000100  2c 31 35 31 2c 31 37 33  2c 32 31 32 2c 31 32 36  |,151,173,212,126|
00000110  2c 30 2c 30 2c 2d 31 32  36 2c 31 32 36 2c 31 32  |,0,0,-126,126,12|
00000120  36 0d 00 82 34 e2 32 2c  31 2c 38 36 2c 31 30 35  |6...4.2,1,86,105|
00000130  2c 31 36 32 2c 32 33 38  2c 31 39 34 2c 31 36 37  |,162,238,194,167|
00000140  2c 31 32 36 2c 30 2c 30  2c 2d 31 32 36 2c 31 32  |,126,0,0,-126,12|
00000150  36 2c 31 32 36 0d 00 8c  14 ec 30 2c 38 38 38 3a  |6,126.....0,888:|
00000160  df 31 32 37 39 2c 38 38  38 0d 00 96 14 ec 30 2c  |.1279,888.....0,|
00000170  36 34 30 3a df 31 32 37  39 2c 36 34 30 0d 00 a0  |640:.1279,640...|
00000180  0e e3 20 49 3d 31 20 b8  20 38 30 0d 00 aa 1c 41  |.. I=1 . 80....A|
00000190  3d 4e 25 28 49 29 3a e7  20 41 3c 31 30 20 63 3d  |=N%(I):. A<10 c=|
000001a0  32 20 8b 20 63 3d 31 0d  00 b4 56 e7 20 c2 c3 28  |2 . c=1...V. ..(|
000001b0  49 29 2c 31 29 3d 22 31  22 20 65 24 3d 22 73 74  |I),1)="1" e$="st|
000001c0  22 20 8b 20 e7 20 c2 c3  28 49 29 2c 31 29 3d 22  |" . . ..(I),1)="|
000001d0  32 22 20 65 24 3d 22 6e  64 22 20 8b 20 e7 20 c2  |2" e$="nd" . . .|
000001e0  c3 28 49 29 2c 31 29 3d  22 33 22 20 65 24 3d 22  |.(I),1)="3" e$="|
000001f0  72 64 22 20 8b 20 65 24  3d 22 74 68 22 0d 00 be  |rd" . e$="th"...|
00000200  18 e7 49 3e 31 30 20 80  20 49 3c 32 30 20 65 24  |..I>10 . I<20 e$|
00000210  3d 22 74 68 22 0d 00 c8  1b f2 62 69 67 28 c3 28  |="th".....big(.(|
00000220  41 29 2c 63 2c 31 29 3a  ef 32 36 3a fb 31 32 38  |A),c,1):.26:.128|
00000230  0d 00 d2 10 d4 31 2c 2d  31 35 2c 31 37 30 2c 31  |.....1,-15,170,1|
00000240  0d 00 dc 60 f1 8a 36 2c  31 33 29 22 53 50 41 43  |...`..6,13)"SPAC|
00000250  45 42 41 52 20 46 4f 52  20 54 48 45 20 4e 45 58  |EBAR FOR THE NEX|
00000260  54 20 4e 55 4d 42 45 52  22 8a 39 2c 31 35 29 22  |T NUMBER".9,15)"|
00000270  4f 52 20 48 49 54 20 48  20 54 4f 20 43 41 4c 4c  |OR HIT H TO CALL|
00000280  20 48 4f 55 53 45 22 8a  31 32 2c 31 37 29 22 50  | HOUSE".12,17)"P|
00000290  52 45 53 53 20 52 20 54  4f 20 52 45 43 41 50 22  |RESS R TO RECAP"|
000002a0  0d 00 e6 09 2a 46 58 32  31 0d 00 f0 2c 57 24 3d  |....*FX21...,W$=|
000002b0  be 3a e7 20 57 24 3c 3e  22 20 22 20 80 20 57 24  |.:. W$<>" " . W$|
000002c0  3c 3e 22 48 22 20 80 20  57 24 3c 3e 22 52 22 20  |<>"H" . W$<>"R" |
000002d0  e5 8d 64 70 40 0d 00 fa  13 e7 20 57 24 3d 22 48  |..dp@..... W$="H|
000002e0  22 20 f2 68 6f 75 73 65  0d 01 04 13 e7 20 57 24  |" .house..... W$|
000002f0  3d 22 52 22 20 f2 72 65  63 61 70 0d 01 0e 05 ed  |="R" .recap.....|
00000300  0d 01 18 09 e5 8d 64 5a  42 0d 01 22 14 dd 20 f2  |......dZB..".. .|
00000310  62 69 67 28 73 74 72 24  2c 43 2c 52 29 0d 01 2c  |big(str$,C,R)..,|
00000320  19 e7 20 73 74 72 24 3d  22 42 49 4e 47 4f 21 22  |.. str$="BINGO!"|
00000330  20 e5 8d 44 4a 41 0d 01  36 23 f1 8a 31 31 2c 35  | ..DJA..6#..11,5|
00000340  29 22 54 68 65 20 22 3b  49 3b 65 24 3b 22 20 6e  |)"The ";I;e$;" n|
00000350  75 6d 62 65 72 20 69 73  22 0d 01 40 19 ef 32 38  |umber is"..@..28|
00000360  2c 31 38 2c 31 30 2c 32  31 2c 37 3a fb 31 32 39  |,18,10,21,7:.129|
00000370  3a db 0d 01 4a 0b f1 8a  43 2c 52 29 3b 0d 01 54  |:...J...C,R);..T|
00000380  0b ea 20 49 25 2c 41 25  0d 01 5e 11 e3 49 25 3d  |.. I%,A%..^..I%=|
00000390  31 b8 a9 28 73 74 72 24  29 0d 01 68 17 3f 26 37  |1..(str$)..h.?&7|
000003a0  30 3d 97 28 c1 73 74 72  24 2c 49 25 2c 31 29 29  |0=.(.str$,I%,1))|
000003b0  0d 01 72 1d 41 25 3d 31  30 3a 58 25 3d 26 37 30  |..r.A%=10:X%=&70|
000003c0  3a 59 25 3d 30 3a d6 20  26 46 46 46 31 0d 01 7c  |:Y%=0:. &FFF1..||
000003d0  0c e3 20 4a 25 3d 30 b8  31 0d 01 86 0b ef 32 33  |.. J%=0.1.....23|
000003e0  2c 32 32 34 0d 01 90 0b  e3 4b 25 3d 32 b8 39 0d  |,224.....K%=2.9.|
000003f0  01 9a 15 ef 3f 28 26 37  30 2b 34 2a 4a 25 2b 4b  |....?(&70+4*J%+K|
00000400  25 81 32 29 0d 01 a4 05  ed 0d 01 ae 0d ef 32 32  |%.2)..........22|
00000410  34 2c 31 30 2c 38 0d 01  b8 05 ed 0d 01 c2 0c ef  |4,10,8..........|
00000420  31 31 2c 31 31 2c 39 0d  01 cc 05 ed 0d 01 d6 05  |11,11,9.........|
00000430  e1 0d 01 e0 0b dd f2 68  6f 75 73 65 0d 01 ea 1d  |.......house....|
00000440  d4 31 2c 32 2c 31 30 30  2c 34 30 3a e3 44 3d 31  |.1,2,100,40:.D=1|
00000450  20 b8 20 31 30 30 30 3a  ed 0d 01 f4 36 ef 32 38  | . 1000:....6.28|
00000460  2c 30 2c 32 39 2c 33 39  2c 31 33 3a db 3a ef 32  |,0,29,39,13:.:.2|
00000470  36 3a f1 8a 31 31 2c 31  33 29 22 48 4f 55 53 45  |6:..11,13)"HOUSE|
00000480  20 43 41 4c 4c 45 44 20  4f 4e 20 22 3b 41 3b 0d  | CALLED ON ";A;.|
00000490  01 fe 0f e3 69 6e 70 3d  31 20 b8 20 31 35 0d 02  |....inp=1 . 15..|
000004a0  08 6c f1 8a 36 2c 31 36  29 22 49 4e 50 55 54 20  |.l..6,16)"INPUT |
000004b0  54 48 45 20 31 35 20 57  49 4e 4e 49 4e 47 20 4e  |THE 15 WINNING N|
000004c0  55 4d 42 45 52 53 22 8a  31 34 2c 31 38 29 22 4e  |UMBERS".14,18)"N|
000004d0  75 6d 62 65 72 20 22 3b  69 6e 70 3b 22 3d 22 3a  |umber ";inp;"=":|
000004e0  ef 37 2c 32 33 2c 31 2c  31 3b 30 3b 30 3b 30 3b  |.7,23,1,1;0;0;0;|
000004f0  3a e8 8a 32 34 2c 31 38  29 77 6e 3a ef 32 33 2c  |:..24,18)wn:.23,|
00000500  31 2c 30 3b 30 3b 30 3b  30 3b 0d 02 12 0c e3 66  |1,0;0;0;0;.....f|
00000510  3d 31 20 b8 20 49 0d 02  1c 28 e7 20 77 6e 3d 4e  |=1 . I...(. wn=N|
00000520  25 28 66 29 20 66 3d 49  3a 57 4e 3d b9 3a f2 63  |%(f) f=I:WN=.:.c|
00000530  6f 72 72 65 63 74 3a ed  3a e5 8d 44 44 42 0d 02  |orrect:.:..DDB..|
00000540  26 14 e7 20 77 6e 3c 3e  4e 25 28 66 29 20 57 4e  |&.. wn<>N%(f) WN|
00000550  3d a3 0d 02 30 07 ed 20  66 0d 02 3a 20 e7 20 57  |=...0.. f..: . W|
00000560  4e 3d a3 20 f2 69 6e 63  6f 72 72 65 63 74 3a 69  |N=. .incorrect:i|
00000570  6e 70 3d 31 35 3a ed 3a  e1 0d 02 44 09 ed 20 69  |np=15:.:...D.. i|
00000580  6e 70 0d 02 4e 0d f2 77  69 6e 6e 65 72 3a e0 0d  |np..N..winner:..|
00000590  02 58 05 e1 0d 02 62 0d  dd f2 63 6f 72 72 65 63  |.X....b...correc|
000005a0  74 0d 02 6c 3d f1 8a 31  35 2c 32 30 29 22 43 6f  |t..l=..15,20)"Co|
000005b0  6e 66 69 72 6d 65 64 2e  22 3a e3 44 3d 31 20 b8  |nfirmed.":.D=1 .|
000005c0  20 32 30 30 3a ed 3a f1  8a 32 34 2c 31 38 29 3b  | 200:.:..24,18);|
000005d0  89 32 3b 8a 31 35 2c 32  30 29 3b 89 31 30 0d 02  |.2;.15,20);.10..|
000005e0  76 05 e1 0d 02 80 0f dd  f2 69 6e 63 6f 72 72 65  |v........incorre|
000005f0  63 74 0d 02 8a 1b d4 31  2c 2d 31 35 2c 32 30 2c  |ct.....1,-15,20,|
00000600  34 3a d4 31 2c 2d 31 35  2c 31 30 2c 38 0d 02 94  |4:.1,-15,10,8...|
00000610  4f f1 8a 35 2c 32 30 29  22 4e 55 4d 42 45 52 20  |O..5,20)"NUMBER |
00000620  22 3b 77 6e 3b 22 20 48  41 53 20 4e 4f 54 20 42  |";wn;" HAS NOT B|
00000630  45 45 4e 20 43 41 4c 4c  45 44 2e 22 8a 38 2c 32  |EEN CALLED.".8,2|
00000640  32 29 22 46 41 4c 53 45  20 43 41 4c 4c 2e 20 48  |2)"FALSE CALL. H|
00000650  4f 55 53 45 20 44 45 4e  49 45 44 22 0d 02 9e 2e  |OUSE DENIED"....|
00000660  f1 8a 37 2c 32 39 29 22  50 52 45 53 53 20 53 50  |..7,29)"PRESS SP|
00000670  41 43 45 42 41 52 20 54  4f 20 43 4f 4e 54 49 4e  |ACEBAR TO CONTIN|
00000680  55 45 22 3a f5 fd a5 3d  33 32 0d 02 a8 18 ef 32  |UE":...=32.....2|
00000690  38 2c 30 2c 32 39 2c 33  39 2c 31 33 3a db 3a ef  |8,0,29,39,13:.:.|
000006a0  32 36 0d 02 b2 05 e1 0d  02 bc 0c dd f2 77 69 6e  |26...........win|
000006b0  6e 65 72 0d 02 c6 0f d4  31 2c 31 2c 31 30 30 2c  |ner.....1,1,100,|
000006c0  34 30 0d 02 d0 40 ef 32  38 2c 30 2c 32 39 2c 33  |40...@.28,0,29,3|
000006d0  39 2c 31 33 3a db 3a ef  32 36 3a f1 8a 31 37 2c  |9,13:.:.26:..17,|
000006e0  31 34 29 22 42 49 4e 47  4f 21 22 8a 31 33 2c 32  |14)"BINGO!".13,2|
000006f0  30 29 22 48 4f 55 53 45  20 43 4f 52 52 45 43 54  |0)"HOUSE CORRECT|
00000700  2e 22 0d 02 da 32 f1 8a  36 2c 32 34 29 22 50 52  |."...2..6,24)"PR|
00000710  45 53 53 20 53 50 41 43  45 42 41 52 20 46 4f 52  |ESS SPACEBAR FOR|
00000720  20 4e 45 58 54 20 47 41  4d 45 22 3a f5 fd a5 3d  | NEXT GAME":...=|
00000730  33 32 3a f9 0d 02 e4 05  e1 0d 02 ee 0b dd f2 72  |32:............r|
00000740  65 63 61 70 0d 02 f8 18  ef 32 38 2c 30 2c 32 39  |ecap.....28,0,29|
00000750  2c 33 39 2c 31 33 3a db  3a ef 32 36 0d 03 02 15  |,39,13:.:.26....|
00000760  f1 8a 31 37 2c 31 33 29  22 52 45 2d 43 41 50 22  |..17,13)"RE-CAP"|
00000770  27 0d 03 0c 0e e3 72 63  25 3d 31 20 b8 20 49 0d  |'.....rc%=1 . I.|
00000780  03 16 12 f1 3b 4e 25 28  72 63 25 29 3b 22 2c 22  |....;N%(rc%);","|
00000790  3b 0d 03 20 12 e7 20 72  63 25 20 83 31 33 3d 30  |;.. .. rc% .13=0|
000007a0  20 f1 27 0d 03 2a 05 ed  0d 03 34 09 e5 8d 74 5e  | .'..*....4...t^|
000007b0  42 0d 03 3e 05 e1 0d ff                           |B..>....|
000007b8