C
C	PROGRAM	RASTER.PGM
C
	LOGICAL*1 QINPUT
C
C	go get set up, look for commands, etc
C
	CALL INIT
	QINPUT = .FALSE.		! tell us its the first time here
10	CALL INPUT(QINPUT)
C
C	now see where we're to go ...
C
	I = -IDEVCE
	IF ((I .LE. 0) .OR. (I .GT. 3)) GOTO 9000
	GOTO (100,200,300) I
C
C	IDS printer family ...
C
100	CALL IDS(QINPUT)
	GOTO 1000
C
C	Printronix printers
C
200	CALL PTX(QINPUT)
	GOTO 1000
C
C	Versatek printers
C
300	CALL VERS(QINPUT)
	GOTO 1000
C
C	must have finished - are we done now?
C
1000	IF (QINPUT) GOTO 10
	CALL EXST(1)			! all done - leave with good status
C
C	oops - an error.
C
9000	WRITE (LOONTI,9010) IDEVCE
9010	FORMAT('0RASTER Error - bad device specification:',I6)
	STOP 'RASTER'
	END