     	BYTE K
     	WRITE(6,1)
  1	FORMAT('$PRESS A KEY: ')
     	READ(5,2) K
  2	FORMAT(A)
     	PRINT *, K
     	STOP
     	END
