Erreur avec LABEL

rem essai
width 0,600:height 0,900
dim a$(16):dim b$(2):dim c(10):dim d$(2):dim r$:dim x:dim m :dim l :dim z :dim e
dim j:dim k$ :dim q$ :dim g :dim p$
label LIREDATA,A,B,C,D,test_clavier,potence,pendu,inkey,fin
2d_fill_color 230,230,55
2d_rectangle 190,40,310,80
2d_fill_color 255,255,255
print_locate 200,50:print "LE JEU DU PENDU"

 inkey:
 
r$=inkey$
print_locate 150,150:print "Jeu en solitaire O/N ?"
if r$="n" then goto A
if r$<>"o" then goto inkey

gosub LIREDATA
b$(1)=upper$(d$(1)):goto B
A:
print_locate 150,150:input "MOT à DEVINER  =    ? ";b$(1):b$(1)=upper$(b$(1))

 
 B:


 gosub potence:2d_fill_color 255,255,255
 Z=len (b$(1)) : e=5:q$="5":print_locate 100,420:print z;" Lettres :"
 for j=1 to z:a$(j)=chr$(45):next j
 
 D:

                                 
 b$(2)="":for j=1 to z
 b$(2)=b$(2)+a$(j):next j
 C:
 print_locate 175,420:print b$(2);"    Essai : ";q$
 if b$(2)=b$(1) then print_locate 125,500:print "BRAVO !":goto fin
 if e=0 then print_locate 125,500:print "PERDU.... c 'etait : ";b$(1):goto fin
 test_clavier:
 print_locate 125,450:print "LETTRE : ":k$=inkey$
 if k$="" then goto test_clavier
 k$=upper$(k$):print_locate 175,450:print k$
 g=0:for j=1 to z
 if k$=mid$(b$(1),j,1) then a$(j)=k$:g=1
 next j:if g=0 then e=e-1:beep:gosub pendu
 if g=1 then beep_exclamation
 q$=str$(e):goto D
 

 LIREDATA:
 restore:x=int(rnd(9)+1):for m=1 to x:read d$(1):next m
 if c(x)=0 then c(x)=1:l=l+1 :return
 if l=10 then end
 goto LIREDATA
 data "locomotive","fenetre","restaurant","familier","guerrier"
 data "soleil","xylophone","harmonica","question"
 
 potence:
 2d_fill_color 200,220,240
 2d_rectangle 80,120,415,400
 2d_fill_color 155,65,0
 2d_rectangle 150,150,350,160
 2d_rectangle 150,160,160,360
 2d_rectangle 180,340,340,380:2d_flood 182,342,210,148,65
 2d_rectangle 150,360,350,380:2d_flood 152,362,155,65,0
 2d_line 160,210,250,158
 2d_line 160,220,260,158
 2d_flood 162,218,155,65,0
 2d_pen_color 0,0,0:2d_line 290,160,290,190
 
return

pendu:

if e=4 then 2d_circle 290,200,10:2d_flood 290,200,237,174,159
if e=3 then 2d_line 290,210,290,220
if e=2 then 2d_rectangle 270,220,310,260:2d_flood 272,222,0,90,255
if e=1 then 2d_line 280,260,260,300:2d_line 300,260,320,300
if e=0 then 2d_line 270,230,250,230:2d_line 310,230,330,230

2d_fill_color 255,255,255
rem 2d_pen_color 0,0,0

return
 
fin :

r$=inkey$
print_locate 100,650:print "On rejoue  O/N ?"
if r$="n" then terminate
if r$<>"o" then goto fin
goto inkey

Label SousProg1

END

SousProg1:
  ' ....
  ' ....
RETURN