Screen Open 0,350,256,16,Lowres : Break On : Hide On : Cls 0 : Say "." : Curs Off : Cls 0 :
Unpack 6 To 0 : Wait 25
Set Talk 0,0,100,225
Say "welcum to aymos bingo---------.programmed by dave broun. " : Wait 150 : Fade 2 :
Wait 25 : Unpack 5 To 0 : Wait 25 : Say "to call for a howse or a line. "
Say " ------hold the left mouse buttun down for a secc und. "
Wait 16*2
Hide On :
Wait 150 : Fade 2 : Wait 16*2 :
4 Set Talk 0,0,100,225
5 Say "get ready. " : Wait 50
6 Print ""
7 Print " EYES DOWN FOR YOUR FIRST NUMBER" : Say "eyes down,for your first number." : Wait 25
8 Print "" : Wait 25 : Dim N(101) : Ink 3 :
9 Locate 0,0 : Paper 0 : Pen 0 : Print "a" : Hide On : Flash Off : Curs Off : Screen Open 0,320,256,16,Lowres : Unpack 4 To 0 : Locate 0,0 : Paper 0 : Pen 0 : Print "a" : Curs Off : Flash Off : Hide On : Paper 0 : Pen 12 : For A=2 To 91
10 N=NUMBER : Wait 50 : M=Mouse Key : If M=1 Then Gosub LINE
11 N(A)=Rnd(90)
12 For Z=2 To A
13 N(1)=E :
14 If N(A)=N(Z-1) Then Goto 10
15 Next Z
16
18 If N(A)=1 Then Say "kelleez eye,,number 1. " : Locate 5,7 : Ink 6 : Print "1"
19 If N(A)=2 Then Say "on its own,number two. " : Locate 8,7 : Print "2"
20 If N(A)=3 Then Say "on its own,number three. " : Locate 11,7 : Print "3"
21 If N(A)=4 Then Say "on its own,number 4. . " : Locate 14,7 : Print "4"
22 If N(A)=5 Then Say "on its own,number five. " : Locate 17,7 : Print "5"
23 If N(A)=6 Then Say "on its own,number 6. " : Locate 20,7 : Print "6"
24 If N(A)=7 Then Say "on its own,luckee 7. " : Locate 23,7 : Print "7"
25 If N(A)=8 Then Say "on its own,number 8. " : Locate 26,7 : Print "8"
26 If N(A)=9 Then Say "doctors orders number 9. " : Locate 29,7 : Print "9"
27 If N(A)=10 Then Say "maijaz DEN,number ten. " : Locate 31,7 : Print "10"
28 If N(A)=11 Then Say "all the wons,legs eelevven. " : Locate 4,9 : Print "11"
29 If N(A)=12 Then Say "1 and 2, twelve. " : Locate 7,9 : Print "12"
30 If N(A)=13 Then Say "unlucky for some,thur teen. " : Locate 10,9 : Print "13"
31 If N(A)=14 Then Say "1 and 4,faw teen. " : Locate 13,9 : Print "14"
32 If N(A)=15 Then Say "1 and 5,fifteen. " : Locate 16,9 : Print "15"
33 If N(A)=16 Then Say "1 and 6,sweet sixteen. " : Locate 19,9 : Print "16"
34 If N(A)=17 Then Say "1 and 7,seventeen. " : Locate 22,9 : Print "17"
35 If N(A)=18 Then Say "1 and 8,eighteen. " : Locate 25,9 : Print "18"
36 If N(A)=19 Then Say "1 and 9,nine-teen. " : Locate 28,9 : Print "19"
37 If N(A)=20 Then Say "2,oh,blind twenty. " : Locate 31,9 : Print "20"
38 If N(A)=21 Then Say "key to the door,twenty one. " : Locate 4,11 : Print "21"
39 If N(A)=22 Then Say "2 little ducks twenty 2. " : Locate 7,11 : Print "22"
40 If N(A)=23 Then Say "2 and 3,twenty 3. " : Locate 10,11 : Print "23"
41 If N(A)=24 Then Say "2 and 4,twenty 4. " : Locate 13,11 : Print "24"
42 If N(A)=25 Then Say "2 and 5,twenty 5. " : Locate 16,11 : Print "25"
43 If N(A)=26 Then Say "2 and 6,twenty 6. " : Locate 19,11 : Print "26"
44 If N(A)=27 Then Say "2 and 7 ,twenty 7. " : Locate 22,11 : Print "27"
45 If N(A)=28 Then Say "2 and 8,twenty,8. " : Locate 25,11 : Print "28"
46 If N(A)=29 Then Say "2 and 9,twenty 9. " : Locate 28,11 : Print "29"
47 If N(A)=30 Then Say "3,oh,blind thirty. " : Locate 31,11 : Print "30"
48 If N(A)=31 Then Say "3 and 1,thirty 1. " : Locate 4,13 : Print "31"
49 If N(A)=32 Then Say "3 and 2,thirty 2. " : Locate 7,13 : Print "32"
50 If N(A)=33 Then Say "all the threes,thirty 3. " : Locate 10,13 : Print "33"
51 If N(A)=34 Then Say "3 and 4,thirty 4. " : Locate 13,13 : Print "34"
52 If N(A)=35 Then Say "3 and 5,thirty 5. " : Locate 16,13 : Print "35"
53 If N(A)=36 Then Say "3 and 6,thirty 6. " : Locate 19,13 : Print "36"
54 If N(A)=37 Then Say "3 and 7,thirty 7. " : Locate 22,13 : Print "37"
55 If N(A)=38 Then Say "3 and 8,thirty 8. " : Locate 25,13 : Print "38"
56 If N(A)=39 Then Say "3 and 9,thirty 9. " : Locate 28,13 : Print "39"
57 If N(A)=40 Then Say "4,oh,blind forty. " : Locate 31,13 : Print "40"
58 If N(A)=41 Then Say "4 and 1,forty 1. " : Locate 4,15 : Print "41"
59 If N(A)=42 Then Say "4 and 2,forty 2. " : Locate 7,15 : Print "42"
60 If N(A)=43 Then Say "4 and 3,forty three. " : Locate 10,15 : Print "43"
61 If N(A)=44 Then Say "all the fours,forty 4. " : Locate 13,15 : Print "44"
62 If N(A)=45 Then Say "4 and 5,forty five. " : Locate 16,15 : Print "45"
63 If N(A)=46 Then Say "4 and 6,forty six. " : Locate 19,15 : Print "46"
64 If N(A)=47 Then Say "4 and 7 , forty 7. " : Locate 22,15 : Print "47"
65 If N(A)=48 Then Say "4 and 8,forty 8. " : Locate 25,15 : Print "48"
66 If N(A)=49 Then Say "4 and 9,forty 9. " : Locate 28,15 : Print "49"
67 If N(A)=50 Then Say "5 oh,blind fifty. " : Locate 31,15 : Print "50"
68 If N(A)=51 Then Say "5 and 1,fifty 1. " : Locate 4,17 : Print "51"
69 If N(A)=52 Then Say "5 and 2,fifty 2. " : Locate 7,17 : Print "52"
70 If N(A)=53 Then Say "5 and 3,fifty 3. " : Locate 10,17 : Print "53"
71 If N(A)=54 Then Say "5 and 4 ,fifty 4. " : Locate 13,17 : Print "54"
72 If N(A)=55 Then Say "all the fives,fifty 5. " : Locate 16,17 : Print "55"
73 If N(A)=56 Then Say "5 and 6,fifty 6. " : Locate 19,17 : Print "56"
74 If N(A)=57 Then Say "highnze varieties,number fifty 7. " : Locate 22,17 : Print "57"
75 If N(A)=58 Then Say "5 and 8,fifty 8. " : Locate 25,17 : Print "58"
76 If N(A)=59 Then Say "5 and 9,fifty nine. " : Locate 28,17 : Print "59"
77 If N(A)=60 Then Say "6 oh,blind sixty. " : Locate 31,17 : Print "60"
78 If N(A)=61 Then Say "6 and 1,sixty 1. " : Locate 4,19 : Print "61"
79 If N(A)=62 Then Say "6 and 2,sixty 2. " : Locate 7,19 : Print "62"
80 If N(A)=63 Then Say "6 and 3,sixty 3. " : Locate 10,19 : Print "63"
81 If N(A)=64 Then Say "6 and 4,sixty 4. " : Locate 13,19 : Print "64"
82 If N(A)=65 Then Say "6 and 5,sixty 5. " : Locate 16,19 : Print "65"
83 If N(A)=66 Then Say "all the six es,sixty 6. " : Locate 19,19 : Print "66"
84 If N(A)=67 Then Say "6 and 7,sixty 7. " : Locate 22,19 : Print "67"
85 If N(A)=68 Then Say "6 and 8,sixty 8. " : Locate 25,19 : Print "68"
86 If N(A)=69 Then Say " any way up,sixty 9. " : Locate 28,19 : Print "69"
87 If N(A)=70 Then Say "7 oh,blind seventy. " : Locate 31,19 : Print "70"
88 If N(A)=71 Then Say "7 and 1,seventy 1. " : Locate 4,21 : Print "71"
89 If N(A)=72 Then Say "7 and 2,seventy 2. " : Locate 7,21 : Print "72"
90 If N(A)=73 Then Say "7 and 3,seventy 3. " : Locate 10,21 : Print "73"
91 If N(A)=74 Then Say "7 and 4,seventy 4. " : Locate 13,21 : Print "74"
92 If N(A)=75 Then Say "7 and 5,seventy 5. " : Locate 16,21 : Print "75"
93 If N(A)=76 Then Say "7 and 6,seventy 6. " : Locate 19,21 : Print "76"
94 If N(A)=77 Then Say "all the sevens,seventy 7. " : Locate 22,21 : Print "77"
95 If N(A)=78 Then Say "7 and 8,seventy 8. " : Locate 25,21 : Print "78"
96 If N(A)=79 Then Say "7 and 9,seventy 9. " : Locate 28,21 : Print "79"
97 If N(A)=80 Then Say "8 oh,blind eighty. " : Locate 31,21 : Print "80"
98 If N(A)=81 Then Say "8 and 1,eighty 1. " : Locate 4,23 : Print "81"
99 If N(A)=82 Then Say "8 and 2,eighty 2. " : Locate 7,23 : Print "82"
100 If N(A)=83 Then Say "8 and 3,eighty 3. " : Locate 10,23 : Print "83"
101 If N(A)=84 Then Say "8 and 4,eighty 4. " : Locate 13,23 : Print "84"
102 If N(A)=85 Then Say "8 and 5,eighty 5. " : Locate 16,23 : Print "85"
103 If N(A)=86 Then Say "8 and 6,eighty 6. " : Locate 19,23 : Print "86"
104 If N(A)=87 Then Say "8 and 7,eighty 7. " : Locate 22,23 : Print "87"
105 If N(A)=88 Then Say "all the eights,eighty 8. " : Locate 25,23 : Print "88"
106 If N(A)=89 Then Say "8 and 9,eighty 9. " : Locate 28,23 : Print "89"
107 If N(A)=90 Then Say "top of the shop,nine tee. " : Locate 31,23 : Print "90"
120 Next A : Cls 0 : Goto 9
LINE:
Say "check the board,. "
Say "left button to continue or right button for a new game. "
Do
M=Mouse Key : If M=1 Then Return
If M=2 Then Goto 2000
Loop
2000 Wait 100 : Cls 0 : Wait 50 : Say "new game seleccted. " : Wait 100 : Goto 9
