10 REM THIS PROGRAM IS USED TO BUILD DATA FILES
20 INPUT "ENTER FILE NAME   ";FILE$
30 INPUT "ENTER NUMBER OF FIELDS   ";FIELDS
40 INPUT "ENTER RECORD LENGTH   ";RECS
45 INPUT "HOW MANY RECORDS   ";NUM
50 REM CREATE THE REQUESTED FILE
60 FILE FILE$(RECS)
70 FOR I=1 TO NUM
80 IF FIELDS=1 THEN 300
90 IF FIELDS=2 THEN 290
100 IF FIELDS=3 THEN 280
110 IF FIELDS=4 THEN 270
120 IF FIELDS=5 THEN 260
130 IF FIELDS=6 THEN 250
140 IF FIELDS=7 THEN 240
150 IF FIELDS=8 THEN 230
160 IF FIELDS=9 THEN 220
IF FIELDS=10 THEN 210
180 REM
190 REM
200 REM
210 INPUT "ENTER FIELD 10";FLD10$
220 INPUT "ENTER FIELD 09";FLD09$
230 INPUT "ENTER FIELD 08";FLD08$
240 INPUT "ENTER FIELD 07";FLD07$
250 INPUT "ENTER FIELD 06";FLD06$
260 INPUT "ENTER FIELD 05";FLD05$
270 INPUT "ENTER FIELD04";FLD04$
280 INPUT "ENTER FIELD 03";FLD03$
290 INPUT "ENTER FIELD 02";FLD02$
300 INPUT "ENTER FIELD 01";FLD01$
400 PRINT #1;FLD01$,FLD02$,FLD03$,FLD04$,FLD05$,FLD06$,FLD07$,FLD08$
410 NEXT I
9999 END