this is a simple gambling game.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.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