OPEN 'PORTS' TO PT.FILE ELSE ABORT
PORT=OCONV('','U50BB')
PORT=FIELD(PORT," ",1)
READV PT FROM PT.FILE,PORT,1 ELSE PT=''
IF PT='IBMPC' THEN
  EXECUTE 'TERM I'
END
STOP