10 ! PROGRAM TO PUT DESCRIPTIONS ONTO SEQUENTAIL FILE FOR PRINT OUT
20 MAP1 DIRECTORY
30      MAP2 NAMES,S,15
40      MAP2 DESCRIPTIONS,S,65
50 MAP1 RECORDS
60      MAP2 RECORDS'ON'FILE,F
70      MAP2 FILLER,S,74
75  STRSIZ 80
100 OPEN #1,"DESCRI.DAT",RANDOM,80,REC
110 OPEN #2,"CRIP.DAT",OUTPUT
112     ? "   THIS PROGRAM WRITES DESCRIPTIONS ONTO A SEQUENTAIL FILE"
114     ? "SO YOU CAN GET A HARD COPY OF THEM.  THE DESCRIPTIONS"
116     ? "WILL BE WRITEN ONTO CRIP.DAT, PLEASE ERASE IT AFTER YOU "
118     ? "ARE THROUGH."
120     REC = 0
130     READ #1,RECORDS
140     FOR REC = 1 TO RECORDS'ON'FILE
150             READ #1,DESCRIPTIONS
160             NAME$ = NAMES
170             DESCRIPTION$ = DESCRIPTIONS
180             PRINT #2,NAME$,DESCRIPTION$
190     NEXT REC
200     CLOSE #1
210     CLOSE #2
220 END

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.