9 lines
168 B
Plaintext
9 lines
168 B
Plaintext
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
|