program paload
	character*256 rr,gg,bb
	integer stat,lun
	integer iargc
	character*80 mapname
C
	if (iargc().lt.1) then
		print *,' '
		print *,' Usage: paload file'
		goto 998
	else
		call getarg(1,mapname)
	endif
C
	open (12,file=mapname,status='old',access='direct',recl=256)
		read (12,rec=1) rr
		read (12,rec=2) gg
		read (12,rec=3) bb
	close (12)
C
	stat=1
	call rtinit(stat,lun)
	call entgra
	do 100 i=1,256
		i1=i-1
		ir=ichar(rr(i:i))
		ig=ichar(gg(i:i))
		ib=ichar(bb(i:i))
		call lut8(i1, ir,ig,ib)
		call blinkd(7,i1)
 100	continue
	call quit
C
 998	continue
	end