The code!

DECLARE SUB ct (row!, text$)
CLS
COLOR 5
ct 1, "CUT-N-CUT"
ct 3, "Plant a bomb, and DONT CUT IT!!!"
ct 5, "PRESS '5' TO CONTINUE"
DO: k$ = INKEY$: LOOP UNTIL k$ = "5"
DIM a$(9)
CLS
FOR i = 1 TO 9
a$(i) = STR$(i)
NEXT i
CLS
ct 1, "PLEASE ENTER YOUR NUMBER!"
INPUT "", cn
DO
k$ = UCASE$(INKEY$)
c = VAL(k$)

FOR i = 1 TO 9
LOCATE i, 1: PRINT a$(i)
NEXT i

IF LEN(k$) THEN
a$(c) = a$(c) + "(CUT)"
IF c = cn THEN GOTO theend
END IF
LOOP UNTIL k$ = CHR$(27)

theend:
CLS
PRINT "YOU LOST!"
PRINT "YOU CUT THE NUMBER!"
END

SUB ct (row, text$)
LOCATE row, 40 - (LEN(text$) / 2): PRINT text$
END SUB