gambling game multiplayer (not on the internet)

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem set red color of text
ink rgb(245,300,811),1
rem load and loop music
load music "Northern Lights.mid",1
loop music 1
INPUT "want cheats press c no cheats press n> ";op$
IF op$ = "c" THEN GOTO 0
IF op$ = "n" THEN GOTO 02
0:
CLS
INPUT "Enter your name:>";naam$
print "welcome ";naam$
wait 1000
rem set turns
turns=10
1:
rem hide the mouse
hide mouse
rem refresh print etc
CLS
rem set red color of text
ink rgb(245,300,811),1
rem load images
load image "points.bmp",4
load image "turns.bmp",5
load image "bonus.bmp",6
rem paste the image turns
paste image 5, 425, 200
rem set point to print
SET CURSOR 540, 360
rem print the number of turns
print " ",turns
rem paste the image points
paste image 4 ,450, -50
rem set point to print
SET CURSOR 560,110
rem print the number of points
print " ",points#
rem set point to print
SET CURSOR 0,0
rem stop the game
IF turns=0 THEN GOTO end
cheats:
rem print options
print "To start press s. For information press i. To quit press escape"
input "press a key (i,s or esc)";name$
IF name$ = "i" THEN GOTO info
IF name$ = "s" THEN GOTO bl
IF name$ = "bonus please" THEN GOTO bonus2
IF name$ = "all turns" THEN GOTO 0
IF name$ = "no cheats" THEN GOTO 02
bl:
A=RND(6)
IF A=0 THEN GOSUB boer
IF A=1 THEN GOSUB koning
IF A=2 THEN GOSUB koningin
IF A=3 THEN GOSUB bonus
IF A=4 THEN GOSUB boer
IF A=5 THEN GOSUB koning
IF A=6 THEN GOSUB koningin
GOTO 1
boer:
rem turns - 1
turns=turns-1
rem points + 1
points#=points#+1
load image "boer.bmp",1
paste image 1,150,50 
print "you won 1 point!"
print "please wait 5 seconds"
wait 5000
return
koning:
turns=turns-1
points#=points#+3
load image "koning.bmp",2
paste image 2,150,50
print "you won 3 points!"
print "please wait 5 seconds"
wait 5000
return
koningin:
turns=turns-1
points#=points#+2
load image "kongingin.bmp",3
paste image 3,150,50
print "you won 2 points!"
print "please wait 5 seconds"
wait 5000
return
bonus:
points#=points#+4
paste image 6,0,100
print "you won 4 points! and this is no turn!!:)"
print "please wait 5 seconds"
wait 5000
return
bonus2:
points#=points#+4
paste image 6,0,100
print "you won 4 points! and this is no turn!!:)"
print "please wait 5 seconds"
wait 5000
GOTO 1 ;
end:
print "write the number of points on a paper"
print "Next player be ready! To begin press enter"
print "You have: ",points# ;"points"
wait key
CLS
points#=0
GOTO 0 ;
info:
print "This is a multiplayer game, in the game you must press enter."
print " You will see a picture of a farmer a king a queen or a bonus"
print " when you have a bonus you won 4 points and it is no turn"
print " when you have a farmer it is 1 point and 1 turn"
print " when you have a king it is 3 points and 1 turn"
print " when you have a queen is is 2 points and 1 turn"
print " to begin press enter"
wait key
CLS
GOTO bl ;
02:
CLS
INPUT "Enter your name:>";naam$
print "welcome ";naam$
wait 1000
rem set turns
turns=10
12:
rem hide the mouse
hide mouse
rem refresh print etc
CLS
rem set red color of text
ink rgb(245,300,811),1
rem load images
load image "points.bmp",4
load image "turns.bmp",5
load image "bonus.bmp",6
rem paste the image turns
paste image 5, 425, 200
rem set point to print
SET CURSOR 540, 360
rem print the number of turns
print " ",turns
rem paste the image points
paste image 4 ,450, -50
rem set point to print
SET CURSOR 560,110
rem print the number of points
print " ",points#
rem set point to print
SET CURSOR 0,0
rem stop the game
IF turns=0 THEN GOTO end2
nocheats:
print "To start press s. For information press i. To quit press escape"
input "press a key (i,s or esc)";name2$
IF name2$ = "i" THEN GOTO info2
IF name2$ = "s" THEN GOTO bl2
IF name2$ = "cheats" THEN GOTO cheats 
bl2:
A=RND(6)
IF A=0 THEN GOTO boer3
IF A=1 THEN GOTO koning3
IF A=2 THEN GOTO koningin3
IF A=3 THEN GOTO bonus3
IF A=4 THEN GOTO boer3
IF A=5 THEN GOTO koning3
IF A=6 THEN GOTO koningin3
GOTO 1
info2:
print "This is a multiplayer game, in the game you must press enter."
print " You will see a picture of a farmer a king a queen or a bonus"
print " when you have a bonus you won 4 points and it is no turn"
print " when you have a farmer it is 1 point and 1 turn"
print " when you have a king it is 3 points and 1 turn"
print " when you have a queen is is 2 points and 1 turn"
print " to begin press enter"
wait key
CLS
GOTO bl2 ;
boer3:
rem turns - 1
turns=turns-1
rem points + 1
points#=points#+1
load image "boer.bmp",1
paste image 1,150,50 
print "you won 1 point!"
print "please wait 5 seconds"
wait 5000
GOTO 12 ;
koning3:
turns=turns-1
points#=points#+3
load image "koning.bmp",2
paste image 2,150,50
print "you won 3 points!"
print "please wait 5 seconds"
wait 5000
GOTO 12 ;
koningin3:
turns=turns-1
points#=points#+2
load image "kongingin.bmp",3
paste image 3,150,50
print "you won 2 points!"
print "please wait 5 seconds"
wait 5000
GOTO 12 ;
bonus3:
points#=points#+4
paste image 6,0,100
print "you won 4 points! and this is no turn!!:)"
print "please wait 5 seconds"
wait 5000
GOTO 12 ;
end2:
print "write the number of points on a paper"
print "Next player be ready! To begin press enter"
print "You have: ",points# ;"points"
wait key
points#=0
CLS
GOTO 02 ;