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"

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.