Он продолжает перезагружать этот экран, как мне его остановить?

Question

Всякий раз, когда я прихожу к этому экрану, когда я тестирую свою игру, он просто постоянно повторяет текст. что-то не так с этим, потому что я не могу понять это

 smith_dialog:

CLS
PRINT "you walk up to Smith and greet him"
PRINT "1: chat weapons"
PRINT "2: joining up"
PRINT "3: current events"

PRINT " what will You Say/Ask?: ", Dialog$

IF Dialog$ = "chat weapons" THEN GOTO WeaponChat ELSE GOTO smith_dialog

IF Dialog$ = "joining up" THEN GOTO teamupsmith ELSE GOTO smith_dialog

IF Dialog$ = "current events" THEN GOTO eventssmith ELSE GOTO smith_dialog