

10 PRINT "FILENAME";
20 INPUT LINE A$
30 OPEN A$ FOR OUTPUT AS FILE 1%
40 FIELD #1%, 2% AS A$, 2% AS B$, 508% AS C$
50 LSET A$=CVT%$(1%)
60 LSET B$=CVT%$(4%)
70 LSET C$=STRING$(508%,0%)
80 PUT #1%
90 END

