PROC makeDbf:(f$) REM Makes a standard *.DBF data file REM with Labels as at end of file REM set filename as desired LOCAL H%, b$(200) REM hex code for standard data file with labels b$="OPLDatabaseFile" + CHR$(0) + CHR$($F) + CHR$($10) + CHR$($16) + CHR$(0) + CHR$($F) + CHR$($10) + " " b$=b$ + REPT$(CHR$(3),32) REM start of descriptive record (type $30) REM ends at end of labels b$=b$ + CHR$($8D) + CHR$($30) + CHR$($2) + CHR$($10) + CHR$($4) b$=b$ + CHR$(0) + CHR$($2) + "P" + CHR$($14) + CHR$(0) + ":`.A" b$=b$ + CHR$($8) + CHR$($7) + CHR$($8) + CHR$($7) + "r 3" b$=b$ + CHR$($2) + "" + CHR$($2) + REPT$(CHR$(0),4) b$=b$ + CHR$($1) + CHR$(0) + CHR$($FF) + CHR$($FF) b$=b$ + REPT$(CHR$(0),4) + CHR$($F0) + REPT$(CHR$(0),7) b$=b$ + CHR$($F0) + CHR$(0) + CHR$($02) + REPT$(CHR$(0),11) b$=b$ + CHR$($F0) + REPT$(CHR$(0),7) + CHR$($12) + CHR$($70) + CHR$(0) b$=b$ + "ROM::GENERAL.WDR" + CHR$(0) + CHR$($1) + CHR$($80) b$=b$ + CHR$(0) + CHR$($3) + "%P" + CHR$(0) + CHR$($3) + "" b$=b$ + CHR$($1) + CHR$(0) + CHR$($1) + CHR$($4) b$=b$ + CHR$($B0) + CHR$(0) + CHR$(0) + CHR$($FF) REM $20 is length of record type $40 REM each text has a length byte then text b$=b$ + CHR$($FF) + CHR$($20) + CHR$($40) + CHR$($D) b$=b$ + "Access point:" + CHR$($10) + "Access "+CHR$(5)+" number:" + CHR$(0) REM end of descriptive record REM write to file, set filename as desired ChkRet%:(IOOPEN(H%, f$, $0102)) ChkRet%:(IOWRITE(H%, UADD(ADDR(b$),1), LEN(b$))) ChkRet%:(IOCLOSE(H%)) ENDP