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