100 ! INITPR	ALLOCATE "PRTNAM.DAT" AND FILL WITH SPACES
101 ! RENUMBERED ON 2/21/85
110 !
	++INCLUDE PRINT1.BSI
120 !
130 	FILEBASE 1
140	PRINT TAB(-1,0);"Allocate space for PRTNAM.DAT";
150	LOOKUP "PRTNAM.DAT",PTR1
160	IF PTR1 <> 0 &
		KILL "PRTNAM.DAT"
170	ALLOCATE "PRTNAM.DAT",1
180 	OPEN #9999,"PRTNAM.DAT",RANDOM,RECSIZ9999,FILE9999
190	PRTNAMES = SPACE(192)
200	WRITE#9999,PRTNAMES
210	CLOSE #9999
220	CHAIN "DEFPRT"