1  PRINT\PRINT "FILE BUILD PROGRAM";TAB(70);"4/20/78"\ PRINT
10 DIM C$(80)
20 PRINT "Output Filename ";\ INPUT F$
30 PRINT "Record Length   ";\ INPUT L\ PRINT
40   IF L>80 GOTO 30\ IF L<=0 GOTO 30
50 FILEV#1: F$,L
60 PRINT "Beginning Record Number ";\ INPUT B
70   IF B<0 GOTO 60
80 PRINT "Ending Record Number    ";\ INPUT E
90   IF B>E GOTO 60
100 PRINT "Include Record Number in Data Record ";\ INPUT I$
110 PRINT "Initial Record Contents: "\ INPUT C$
120 IF SEG$(I$,1,1)="Y" GOTO 300
200 REM -------------- RECORD # NOT INCLUDED IN DATA --------------
210 DEFINE#1:L
220 FOR I=B TO E
230 PUT#1:I,C$
240 NEXT I
250 GOTO 900
299 REM -------------- RECORD # INCLUDED IN DATA ------------------
300 DEFINE#1:8,L-8
310 FOR I=B TO E
320 PUT#1:I,"<"&STR$(I)&">:",C$
330 NEXT I
900 CLOSE#1
950 PRINT\PRINT L*(E-B);" CHARACTERS ADDED TO FILE ";F$\ PRINT\PRINT
999 END