100 ! RDPRT - DISPLAY PRINTER NAMES AND LOCATIONS
	++INCLUDE PRINT1
110
120 	FILEBASE 1
130	PRINT TAB(-1,0);"READ PRINTER NAMES AND LOCATIONS";TAB(10,1);
140 	OPEN #9999,"PRTNAM.DAT[1,4]",RANDOM,RECSIZ9999,FILE9999
150	READ #9999,PRTNAMES
160	CLOSE #9999
170	FOR PTR1 = 1 TO 8
180		PRINT PTR1 USING "#";:PRINT ". ";PRINTER(PTR1);" ";PRT'LOCAT(PTR1)
190	NEXT PTR1
200	PRINT
210	PRINT