This is a basic gamberling program where you can just pick a number between 1 and 10 then the comuter picks a number between 1 and 10 and then you can see if you got the same numbe

PlEASE COUD YOU E-MAIL ME THINGS WAHAT ICOUD ADD IN THE NEXT VERSION AT MATTYBAKER13@AOL.COM

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem \\\\\\\\\\\\\\\\\\\\\\\\\\
rem program: Black Gamble
rem Autheour:Matthew Baker
rem date:1974
rem completed on:1974
rem \\\\\\\\\\\\\\\\\\\\\\\\\\
rem setup
sync on
hide mouse
rem Activate windows mode
set window on
rem 1-10 sub
onetoten:
rem game1 sub
game1:
rem print luck
input "Pick a number between 1 and 10:";luck1#
A=RND(10)
IF A=1 THEN GOSUB one1
IF A=2 THEN GOSUB two1
IF A=3 THEN GOSUB three1
IF A=4 THEN GOSUB four1
IF A=5 THEN GOSUB five1
IF A=6 THEN GOSUB six1
IF A=7 THEN GOSUB seven1
IF A=8 THEN GOSUB eight1
IF A=9 THEN GOSUB nine1
IF A=10 THEN GOSUB ten1
rem one1 sub
one1:
cls
print "There picked at random was 1"
print "your number was: ",luck1# 
wait 4000
gosub game1
rem two1 sub
two1:
cls
print "There picked at random was 2"
print "your number was: ",luck1# 
wait 4000
gosub game1
rem three1 sub
three1:
cls
print "There picked at random was 3"
print "your number was: ",luck1# 
wait 4000
gosub game1
rem four1 sub
four1:
cls
print "There picked at random was 4"
print "your number was: ",luck1# 
wait 4000
gosub game1
rem one1 sub
five1:
cls
print "There picked at random was 5"
print "your number was: ",luck1# 
wait 4000
gosub game1
rem one1 sub
six1:
cls
print "There picked at random was 6"
print "your number was: ",luck1# 
wait 4000
gosub game1
rem one1 sub
seven1:
cls
print "There picked at random was 7"
print "your number was: ",luck1# 
wait 4000
gosub game1
rem one1 sub
eight1:
cls
print "There picked at random was 8"
print "your number was: ",luck1# 
wait 4000
gosub game1
rem one1 sub
nine1:
cls
print "There picked at random was 9"
print "your number was: ",luck1# 
wait 4000
gosub game1
rem one1 sub
ten1:
cls
print "There picked at random was 10"
print "your number was: ",luck1# 
wait 4000
gosub game1