MY PROGRAMS
Bingo_v1
PROGRAM
BIN_PROG_1
PFILE:BVWBPW3U.BAS
=
E
=
E
=
X=225
Y=0
SCORE=49
WA=0
WB=0
WC=0
WD=0
WE=0
WF=0
WG=0
WH=0
WI=0
WJ=0
WK=0
WL=0
WM=0
WN=0
WO=0
( *STARTP
)P
*h(1,0)
+3"00000000003F3F3F3F3F3F3F3F003F3F3F3F3F3F3F3F003F3F3F3F3F3F3F3F003F3F3F3F3F3F3F3F003F3F3F3F3F3F3F3F003F3F3F3F3F3F3F3F003F3F3F3F3F3F3F3F000000"
,h(9,0)
-3"0000000000DFDFDFDFDFDFDFDF00C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C000DFDFDFDFDFDFDFDF00C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C000DFDFDFDFDFDFDFDF000000"
. h(17,0)
/3"0000000000EFEFEFEFEFEFEFEF00000000000000000000000000000000000000EFEFEFEFEFEFEFEF00000000000000000000000000000000000000EFEFEFEFEFEFEFEF000000"
0 h(25,0)
13"0000000000F0F0F0F0F0F0F0F000070707070707070700070707070707070700F0F0F0F0F0F0F0F000070707070707070700070707070707070700F0F0F0F0F0F0F0F0000000"
2 h(33,0)
33"0000000000000000000000000000F8F8F8F8F8F8F8F800F8F8F8F8F8F8F8F800000000000000000000F8F8F8F8F8F8F8F800F8F8F8F8F8F8F8F8000000000000000000000000"
4 h(41,0)
53"00000000000000000000000000000000000000000000000000000000000000000000000000003E3E3E3E3E0000003E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E000000"
6 h(49,0)
73"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000F8F8F8F8F8F8FFFFFFFFFFF8F8F8F8F8F8F8F8F8F8000000"
8 h(57,0)
93"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010101010101C1C1C1C1C13F3F3F3F3F0101010101000000"
: h(65,0)
;3"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7000000"
< h(73,0)
=3"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFC0C0C0C0CFCFCFCFCFC0C0FFFFFFFFFF000000"
> h(81,0)
?3"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FBFBFBFBFB03030303FBFBFBFBFBFBFBFBFBFBFBFB000000"
@ h(89,0)
A3"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFE0E0E0E0E0E0E0E0E0E0E0FFFFFFFFFF000000"
B h(97,0)
C3"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FCFCFCFCFC7C7C7C7C7C7C7C7C7C7C7CFCFCFCFCFC000000"
eMM=1
f*MM
g#Q70,0:`"(C) Matthew Brown, 2001"
h!Q90,1:`"mat-brown@lineone.net"
jQ220,6:`"v1.1"
nQ120,3:`"Start Game"
oQ120,4:`"Instructions"
pQ120,5:`"Hi-Score"
qQ120,6:`"Quit"
sVMM=1TQ110,3:`">"
tVMM=1TQ175,3:`"<"
uVMM=2TQ110,4:`">"
vVMM=2TQ175,4:`"<"
wVMM=3TQ110,5:`">"
xVMM=3TQ175,5:`"<"
yVMM=4TQ110,6:`">"
zVMM=4TQ175,6:`"<"
P$=(1)
V(P$)=5TMM=MM+1
V(P$)=4TMM=MM-1
!V(P$)=10MM=1T+ u*NUMBERS
V(P$)=10MM=2T+|*INS
V(P$)=10MM=3T+ i170
V(P$)=10MM=4TZ
VMM>4TMM=1
VMM<1TMM=4
i(109,29)-(119,69),R,BF
i(174,29)-(224,69),R,BF
+*MM
*NUMBERS:P
*5:`"Drawing...":P:*0
%:A=49
%:B=49
VB=ATB=B+1
%:C=49
VC=BTC=C+1
%:D=49
VD=CTD=D+1
%:E=49
VE=DTE=E+1
%:F=49
VF=ETF=F+1
%:G=49
VG=FTG=G+1
%:H=49
VH=GTH=H+1
%:I=49
VI=HTI=I+1
%:J=49
VJ=ITJ=J+1
%:K=49
VK=JTK=K+1
%:L=49
VL=KTL=L+1
%:M=49
VM=LTM=M+1
%:N=49
VN=MTM=M+1
%:O=49
VO=MTO=O+1
8VA<>B<>C<>D<>E<>F<>G<>H<>I<>J<>K<>L<>M<>N<>OT+
500
+ u*NUMBERS
*BOARD
i(0,-1)-(238,69),B
i(15,0)-(15,50)
i(30,0)-(30,50)
i(45,0)-(45,50)
i(0,10)-(45,10)
i(0,20)-(45,20)
i(0,30)-(45,30)
i(0,40)-(45,40)
i(0,50)-(45,50)
Q1,0:`" ";A
Q1,1:`" ";B
Q1,2:`" ";C
Q1,3:`" ";D
Q1,4:`" ";E
Q16,0:`" ";F
Q16,1:`" ";G
Q16,2:`" ";H
Q16,3:`" ";I
Q16,4:`" ";J
Q31,0:`" ";K
Q31,1:`" ";L
Q31,2:`" ";M
Q31,3:`" ";N
Q31,4:`" ";O
U*GAME:b*CBL:Y
V Q186,5:`"Score = ";SCORE;""
Wi(61,30)-(74,40),R,BF
Xi(60,29)-(75,41),B
Y
%:Z=49
Z Q3,5:`"The next number is..."
[ *7:Q0,0:`:*0:b*CBL:Y
])Q3,5:`"Press a key to check your card"
nQ61,3:`" ";Z
o
QX,Y:`"";Z
qY=Y+1
vVY>4TY=0:X=X-15
xVX<80TX=225
y VX<80TY=0
z VX<80Ti(79,0)-(238,69),R,BF
~ V$=(1)
!VA=ZTi(0,0)-(15,10),S,BF:WA=1
"VB=ZTi(0,10)-(15,20),S,BF:WB=1
"VC=ZTi(0,20)-(15,30),S,BF:WC=1
"VD=ZTi(0,30)-(15,40),S,BF:WD=1
"VE=ZTi(0,40)-(15,50),S,BF:WE=1
"VF=ZTi(15,0)-(30,10),S,BF:WF=1
#VG=ZTi(15,10)-(30,20),S,BF:WG=1
#VH=ZTi(15,20)-(30,30),S,BF:WH=1
#VI=ZTi(15,30)-(30,40),S,BF:WI=1
#VJ=ZTi(15,40)-(30,50),S,BF:WJ=1
"VK=ZTi(30,0)-(45,10),S,BF:WK=1
#VL=ZTi(30,10)-(45,20),S,BF:WL=1
#VM=ZTi(30,20)-(45,30),S,BF:WM=1
#VN=ZTi(30,30)-(45,40),S,BF:WN=1
#VO=ZTi(30,40)-(45,50),S,BF:WO=1
=VWA+WB+WC+WD+WE+WF+WG+WH+WI+WJ+WK+WL+WM+WN+WO=15T+*WON
b*CBL:Y
.Q3,5:`"Press a key to draw the next number"
SCORE=SCORE-1
T$=(1)
V(T$)=27TZ
+Z*GAME
p A$=(1)
N *WON
N!i(72,19)-(160,51),R,BF
N)Q84,2:`"Congratulations"
N*Q89,3:`"You have Won!"
N+(Q74,4:`"Your score was ";SCORE;" "
N/i(72,19)-(160,51),B
N4 Z$=(1)
N5\
R*INS
R
P:*0
R Q92,0:`"Instructions"
R`
R`"This is a bingo game. To win, you must get all of the numbers on your card. The numbers are from 1 - 49. Your score goes down each time you have to get another number. The highest score that you can get is 34."
R
UV$=(1)
R + *START
a*CBL
ai(2,51)-(185,68),R,BF
ae
u1Z