45120 LOCATE 25,1:A$="Enter field number to test ":PRINT A$;:ROW=25:COLUMN=LEN(A$)+2:AX$="0123456789":A1%=LEN(STR$(NF)):GOSUB 40130:IF AN$="" GOTO 45120 ELSE FL=VAL(AN$):PAGE=0:GOSUB 2000
47000 REM ************************************************************
47001 REM *** Initialize New Data Disk Function Process: Write records to data
47002 REM *** disk until error
47003 REM *** occurs. Error
47004 REM *** routine will then
47005 REM *** branch back to line
47006 REM *** 47500 where ".DEF"
47007 REM *** file is written.
47008 REM ************************************************************
47010 CLOSE:CURRENT=-1:IN=1:LOCATE 25,1:PRINT STRING$(79,32);:A$="S)pecify number of records, or U)se all available disk space? ":LOCATE 25,1:PRINT A$;