* THE FOLLOWING ARE THE DEVICE DEFINITIONS AS USED BY SNOBOL
*
	DEVTB = TABLE(40)
	DEVTB<'DSK'> = 1
	DEVTB<'TTY'> = 2
	DEVTB<'PTR'> = 3
	DEVTB<'PTP'> = 4
	DEVTB<'DSK10'> = 5
	DEVTB<'DSK11'> = 6
	DEVTB<'CDP'> = 7
	DEVTB<'CDR'> = 8
	DEVTB<'LPT'> = 9
	DEVTB<'DTA0'> = 10
	DEVTB<'DTA1'> = 11
	DEVTB<'DTA2'> = 12
	DEVTB<'DTA3'> = 13
	DEVTB<'DTA4'> = 14
	DEVTB<'DTA5'> = 15
	DEVTB<'DTA6'> = 16
	DEVTB<'DTA7'> = 17
	DEVTB<'PLT'> = 18
	DEVTB<'FORTR'> = 19
	DEVTB<'DSK0'> = 20
	DEVTB<'DSK1'> = 21
	DEVTB<'DSK2'> = 22
	DEVTB<'DSK3'> = 23
	DEVTB<'DSK4'> = 24
	DEVTB<'DSK5'> = 25
	DEVTB<'DSK6'> = 26
	DEVTB<'DSK7'> = 27
	DEVTB<'DSK8'> = 28
	DEVTB<'DSK9'> = 29
	DEVTB<'MTA0'> = 30
	DEVTB<'MTA1'> = 31
	DEVTB<'MTA2'> = 32
	DEVTB<'MTA3'> = 33
	DEVTB<'MTA4'> = 34
	DEVTB<'MTA5'> = 35
	DEVTB<'MTA6'> = 36
	DEVTB<'MTA7'> = 37
	DEFINE('FINDEVICE(NAME)')	:(FINDEND)
FINDEVICE	FINDEVICE = DEVTB<NAME>	
	IDENT(FINDEVICE) :S(FRETURN)F(RETURN)
FINDEND