qbasic, det virker ikke

hej hvorfor viker min kode ikke til qbasic

LOCATE 10, 20: PRINT "provemenu"

tast:
DO
TAST$ = INKEY$
IF TAST = "1" THEN GOSUB prg1:

prg1:
LOCATE 12m 20: print "program1"

hvis jeg klikker på andet end 1 springer jeg også videre til prg1..det skal jeg ikke!