C
C	SUBROUTINE INIT.PGM
C
	BYTE	DOUTDE(8), DRASFI(32), DVECFI(32), DEFGDN(6)
	REAL*4	EOUTDE(2), ERASFI(08), EVECFI(08)
	EQUIVALENCE (DOUTDE,EOUTDE),(DRASFI,ERASFI),(DVECFI,EVECFI)
	DATA	EOUTDE	/'LP0:',0.0/
	DATA	ERASFI	/'SY0:','RAST','ER.B','IN  ',0.,0.,0.,0./
	DATA	EVECFI	/'SY0:','VECT','OR.B','IN;1',0.,0.,0.,0./
	DATA	DEFGDN	/'G','D','1',':',0,0/
C
C	set up some nice defaults
C
	LOONTI	= 5			! TKB default loon
	LOONRS	= 1			! raster file loon
	LOONVC	= 2			! vector file loon
	LOONOU	= 3			! direct vector output loon
	LOONAT	= 4			! indirect command file loon
	QIND = .FALSE.			! no indirect command file
	NCOPY	= 1			! one copy only
	IDEVCE	= -2			! Printronix is the default printer
	IOPTNS	= "17			! plot vectors via QMG
	NVFILE	= 1			! just one vector file
	IWTIME	= 0			! assume good paper in Versetec printer
C
C	default some file names
C
	DO 10 I=1,8
	OUTDEV(I) = DOUTDE(I)		! default to LP0: for output
10	CONTINUE
C
	DO 20 I=1,32
	RASFIL(I) = DRASFI(I)		! raster file def. 'SY:RASTER.BIN'
	VECFIL(I,1) = DVECFI(I)		! vector file def. 'SY:VECTOR.BIN;1'
	GDDEV0(I) = DVECFI(I)		! vector file def for VECTOR
	DO 20 J=2,10
	VECFIL(I,J) = 0			! null file for other vector files
20	CONTINUE
C
C	set up the graphics devices' file names
C
	MAXGD = 6			! a maximum of 6 graphics devices
	DO 25 I=1,MAXGD
	DO 24 J=1,6
	GDDEVN(J,I) = DEFGDN(J)		! default the devices for VECTOR
24	CONTINUE
	GDDEVN(3,I) = "60 + I		! set the device number
25	CONTINUE
C
C	turn off scale and offets, but set defaults anyway
C
	QGBLSC	= .FALSE.		! no global scaling
	GBLSCL	= 1.0			! global scale factor = 1
	GBLXOF	= 0.0			! global X offset factor = 0.0
	GBLYOF	= 0.0			! global Y offset factor = 0.0
C
	DO 30 I=1,10
	QVECSC(I) = .FALSE.		! no vector file scaling, either
	VECSCL(I) = 1.0			! vector scale factor = 1
	VECXOF(I) = 0.0			! vector scale factor = 0.0
	VECYOF(I) = 0.0			! vector scale factor = 0.0
30	CONTINUE
C
	RETURN
	END