PROGRAM TABLES
	BYTE MAPFL(12)
	INTEGER IADD,ILGHT,ALBP2,EXIT1,EXIT2,IOVLAY,IERR
	DATA MAPFL/12*"0/
	IERR=29
	CALL ERRSET(IERR,.TRUE.,.FALSE.,,.FALSE.)
	IERR=39
	CALL ERRSET(IERR,.TRUE.,.FALSE.,,.FALSE.)
	CALL ERRSET(64,.TRUE.,.FALSE.,.TRUE.,.FALSE.,15)
	TYPE 1
1	FORMAT('$ENTER MAP FILE 123456.MAP> ')
	READ(5,2,END=100)NCH,MAPFL
2	FORMAT(Q,12A1)
	MAPFL(NCH+1)="0
	CALL CKOVL(MAPFL,IADD,ILGHT,ALBP2,EXIT1,EXIT2,IOVLAY,IERR)
	IFLAG=1
	IF(IOVLAY.EQ..TRUE.)IFLAG=0
	CALL PST(MAPFL,IFLAG)
	CALL PRG(MAPFL,IFLAG)
100	TYPE 101
101	FORMAT(' ***** PROCESSING TERMINATION *****')
	END