REM Level1

PROC initt:
d$(1)="Teleport room"
ENDP

PROC long:
IF p%=1
out:("You are in a large room, with a teleport in one corner. Other machinery is placed around the room, and display screens flicker on the walls. There are no visible exits.")
ENDIF
ENDP

PROC gn:
nogo:
ENDP

PROC gw:
nogo:
ENDP

PROC gs:
nogo:
ENDP

PROC ge:
nogo:
ENDP

PROC gd:
nogo:
ENDP

PROC gu:
nogo:
ENDP

PROC useo:(o%)
out:("You can't do that")
ENDP

PROC say:
out:("There is no response")
ENDP
