bwBASIC/T80C/MERGE.BAS

32000 REM COMMON FILE DEFINITIONS
32010 ZINT = LEN(MKI$(0))
    : ZSNG = LEN(MKS$(0))
    : PI$="INDEXFIL"
    : PD$="DATAFILE"
    : PT$="INFOFILE"
    : PS$="STOCKNUM"
    : PR$="SALEDATA"
    : PI%=80
    : PD%=19 + ZINT + ZSNG + ZSNG + 10 + ZINT + ZINT + ZINT + 8 + 6 + ZINT + ZINT
    : PT%=80
    : PS%=10
    : PR%=10 + ZINT
    : RETURN
64000 REM FAKE HARDWARE ROUTINES
64010 DEF PEEK( X ) = 0
64020 DEF POKE( X, Y ) = 0
64030 DEF INP( X ) = 0
64040 DEF OUT( X, Y ) = 0
64050 DEF WAIT( X, Y ) = 0
64060 DEF WAIT( X, Y, Z ) = 0
64070 DEF TIME$="12/15/15 19:28:37"