Accs         FILE,PRE(ACC)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_ITEM        KEY(ACC:Item),DUP,NOCASE,OPT
BY_SITE        KEY(ACC:SiteCode,ACC:Item),NOCASE,OPT
BySupplier     KEY(ACC:SiteCode,ACC:Supplier,ACC:Item),DUP,NOCASE,OPT
ByLoc          KEY(ACC:SiteCode,ACC:Location,ACC:Item),DUP,NOCASE,OPT
RECORD         RECORD
Item             STRING(14)
StkQty           LONG
OrdQty           LONG
ResQty           LONG
Ordering         GROUP
Supplier           SHORT
LeadTime           SHORT
Reorder            LONG
StdOrd             LONG
                 .
SiteCode         BYTE
Stats            GROUP
AvgRetail          DECIMAL(6,2)
QtySold            LONG
LastCost           DECIMAL(6,2)
AvgCost            DECIMAL(6,2)
QtyRec             LONG
                 .
InvStat          STRING(1)
Location         STRING(4)
             . .

ARMaster     FILE,PRE(ARM),RECLAIM
               OWNER('PRINTER.DAT'),ENCRYPT
ByInvoice      KEY(ARM:Invoice),DUP,NOCASE,OPT
ByCustomer     KEY(ARM:Customer,ARM:TranDate),DUP,NOCASE,OPT
ByPosted       KEY(ARM:Posted,ARM:Customer,ARM:TranDate),DUP,NOCASE,OPT
RECORD         RECORD
Invoice          STRING(10)
TranDate         LONG
TranType         STRING(1)
Terms            STRING(8)
Amount           DECIMAL(10,2)
AmtPaid          DECIMAL(10,2)
AmtToPay         DECIMAL(10,2)
Customer         LONG
Ref              STRING(50)
Posted           STRING(1)
             . .

Catalog      FILE,PRE(CTG)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_DESC        KEY(CTG:SERIALIZED,CTG:DESC),NOCASE,OPT
BY_CAT         KEY(CTG:CATEGORY,CTG:DESC),DUP,NOCASE,OPT
BY_ITEM        KEY(CTG:ITEM),NOCASE,OPT
ByMfctr        KEY(CTG:Serialized,CTG:Mfctr,CTG:Item),DUP,NOCASE,OPT
ByTruck        KEY(CTG:SERIALIZED,CTG:TRUCK,CTG:ITEM),DUP,NOCASE,OPT
RECORD         RECORD
Item             STRING(14)
Truck            STRING(6)
Serialized       STRING(1)
Mfctr            SHORT
Supplier         SHORT
Desc             STRING(35)
StdCost          DECIMAL(6,2)
WDCost           DECIMAL(8,2)
MSRP             DECIMAL(8,2)
Jobber           DECIMAL(8,2)
Retail           DECIMAL(8,2),DIM(5)
TaxStat          STRING(1)
Category         BYTE
Spec             STRING(40)
MfcPart          STRING(16)
LeadTime         BYTE
Reorder          LONG
StkOrd           LONG
StdOrdMult       SHORT
Posted           LONG
DelFlag          BYTE
             . .

Category     FILE,PRE(CAT)
By_Code        KEY(CAT:Code),NOCASE,OPT
By_Desc        KEY(CAT:CatType,CAT:Desc),NOCASE,OPT
RECORD         RECORD
Code             SHORT
CatType          BYTE
Desc             STRING(35)
LeadTime         BYTE
Account          STRING(6)
Posted           LONG
DelFlag          BYTE
             . .

CITY         FILE,PRE(CIT)
BY_CITY        KEY(CIT:City,CIT:State,CIT:Zip),DUP,NOCASE,OPT
BY_ZIP         KEY(CIT:Zip),NOCASE
RECORD         RECORD
City             STRING(25)
State            STRING(2)
Zip              STRING(10)
Spc              STRING(@p p)
Posted           LONG
             . .

Colors       FILE,PRE(COL)
BY_CODE        KEY(COL:CODE),DUP,NOCASE,OPT
ByIntCode      KEY(COL:IntCode),NOCASE,OPT
BY_NAME        KEY(COL:NAME),DUP,NOCASE,OPT
ByMfctr        KEY(COL:Mfctr,COL:Code,COL:Year1),DUP,NOCASE,OPT
RECORD         RECORD
IntCode          LONG
Code             STRING(4)
CatType          SHORT
Name             STRING(20)
Mfctr            SHORT
DelFlag          BYTE
Year1            SHORT
Year2            SHORT
             . .

CUSTOMER     FILE,PRE(CUS)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_CODE        KEY(CUS:CODE),NOCASE,OPT
BY_COMPANY     KEY(CUS:COMPANY,CUS:LASTNAME,CUS:FIRSTNAME),DUP,NOCASE,OPT
BY_NAME        KEY(CUS:LASTNAME,CUS:FIRSTNAME,CUS:COMPANY),DUP,NOCASE,OPT
BY_ZIP         KEY(CUS:ZIP),DUP,NOCASE,OPT
BySndx         KEY(CUS:SndxName),DUP,NOCASE,OPT
ByPhone        KEY(CUS:BUYER_PHONE),DUP,NOCASE,OPT
RECORD         RECORD
CODE             LONG
COMPANY          STRING(30)
LASTNAME         STRING(20)
FIRSTNAME        STRING(15)
SndxName         STRING(8)
BUYER_PHONE      DECIMAL(10,0)
Fax              DECIMAL(10,0)
AltPhType        STRING(4)
BillTo           GROUP
Address1           STRING(40)
Zip                STRING(10)
                 .
TAXID            STRING(15)
AR               GROUP
LastStmt           LONG
StdTerms           STRING(12)
CREDITLIMIT        DECIMAL(11,2)
CREDITUSED         DECIMAL(11,2)
                 .
PRICELEVEL       STRING(1)
CatCode          SHORT
Posted           LONG
Comment          STRING(40)
             . .

EMPLOYEE     FILE,PRE(EMP)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_INITS       KEY(EMP:INITS),NOCASE,OPT
BY_NAME        KEY(EMP:LASTNAME,EMP:FIRSTNAME),NOCASE,OPT
BY_TYPE        KEY(EMP:TYPE,EMP:LASTNAME,EMP:FIRSTNAME),DUP,NOCASE,OPT
RECORD         RECORD
INITS            STRING(3)
TYPE             STRING(1)
SSN              DECIMAL(9,0)
LASTNAME         STRING(20)
FIRSTNAME        STRING(15)
Address1         STRING(40)
Address2         STRING(40)
Zip              STRING(10)
Spouse           STRING(40)
Phone1           DECIMAL(10,0)
Phone2           DECIMAL(10,0)
PCTSALES         DECIMAL(5,3)
PCTGROSS         DECIMAL(5,3)
PctSalesA        DECIMAL(5,3)
PctGrossA        DECIMAL(5,3)
MGT              BYTE
PWORD            STRING(20)
SITECODE         BYTE
Posted           LONG
             . .

MFCTR        FILE,PRE(MFC)
BY_NAME        KEY(MFC:MFC_NAME),NOCASE,OPT
BY_CODE        KEY(MFC:CODE),NOCASE,OPT
RECORD         RECORD
CODE             SHORT
MFC_NAME         STRING(10)
LONGNAME         STRING(25)
CNTCT_NAME       STRING(20)
ADDRESS1         STRING(60)
ZIP              STRING(10)
PHONENO          DECIMAL(10,0)
ORDERPHONE       DECIMAL(10,0)
FAXNO            DECIMAL(10,0)
ORDAMT           DECIMAL(8,2)
MULTIADD         STRING(1)
DelFlag          BYTE
MinOrder         DECIMAL(8,2)
MinNoShip        DECIMAL(8,2)
Notes            STRING(40)
Posted           LONG
             . .

MODELS       FILE,PRE(MOD)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_MODEL       KEY(MOD:MOD_CODE),NOCASE,OPT
RECORD         RECORD
MOD_CODE         STRING(7)
DESC             STRING(35)
MFC_CODE         SHORT
TYPE             STRING(1)
ACCESS_DEF       STRING(7)
WINDOW_DEF       STRING(3)
RWINDOW          STRING(3)
CatType          SHORT
Pricing          GROUP
Jobber             DECIMAL(8,2)
JobberI            DECIMAL(8,2)
W_COST             DECIMAL(8,2)
WHCOSTI            DECIMAL(8,2)
MSRP               DECIMAL(8,2)
MSRPI              DECIMAL(8,2)
RETAIL             DECIMAL(8,2),DIM(5)
RETAILI            DECIMAL(8,2),DIM(5)
LABOR              DECIMAL(8,2)
                 .
Options          GROUP
OPT1               SHORT
Opt1Qty            SHORT
Opt1Cost           DECIMAL(8,2)
Opt1Price          DECIMAL(8,2),DIM(5)
OPT2               SHORT
Opt2Qty            SHORT
Opt2Cost           DECIMAL(8,2)
Opt2Price          DECIMAL(8,2),DIM(5)
OPT3               SHORT
Opt3Qty            SHORT
Opt3Cost           DECIMAL(8,2)
Opt3Price          DECIMAL(8,2),DIM(5)
OPT4               SHORT
Opt4Qty            SHORT
Opt4Cost           DECIMAL(8,2)
Opt4Price          DECIMAL(8,2),DIM(5)
OPT5               SHORT
Opt5Qty            SHORT
Opt5Cost           DECIMAL(8,2)
Opt5Price          DECIMAL(8,2),DIM(5)
                 .
Posted           LONG
DelFlag          BYTE
             . .

OPTIONS      FILE,PRE(OPT)
BY_CODE        KEY(OPT:CODE),NOCASE
BY_DESC        KEY(OPT:DESC),NOCASE,OPT
RECORD         RECORD
Code             SHORT
Desc             STRING(20)
WhSale           DECIMAL(8,2)
Jobber           DECIMAL(8,2)
WhSaleI          DECIMAL(8,2)
JobberI          DECIMAL(8,2)
Retail           DECIMAL(8,2)
Price            DECIMAL(8,2),DIM(5)
RetailI          DECIMAL(8,2)
PriceI           DECIMAL(8,2),DIM(5)
Posted           LONG
DescReq          STRING(1)
DelFlag          BYTE
             . .

OrderHd      FILE,PRE(ORH)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_CODE        KEY(ORH:CODE),NOCASE,OPT
BY_DATE        KEY(ORH:ORDDATE,ORH:CODE),DUP,NOCASE,OPT
BY_SUPPLIER    KEY(ORH:SUPPLIER,ORH:CODE),DUP,NOCASE,OPT
BY_STATUS      KEY(ORH:STATUS,ORH:CODE),DUP,NOCASE,OPT
RECORD         RECORD
Code             LONG
OrdDate          LONG
OrdType          STRING(1)
Supplier         SHORT
Status           STRING(1)
OrdAmt           DECIMAL(9,2)
Shipping         DECIMAL(8,2)
SiteCode         BYTE
Posted           LONG
             . .

OrderLn      FILE,PRE(ORL)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_ORDER       KEY(ORL:PONUM,ORL:LINENO),NOCASE,OPT
BY_ITEM        KEY(ORL:ITEM,ORL:SITECODE,ORL:PONUM),NOCASE,OPT
BY_CLOSED      KEY(ORL:CLOSED,ORL:PONUM,ORL:LINENO),DUP,NOCASE,OPT
BY_SUPPLIER    KEY(ORL:SUPPLIER,ORL:ITEM,ORL:PONUM),DUP,NOCASE,OPT
RECORD         RECORD
ORDERING         GROUP
PONUM              LONG
LINENO             SHORT
                 .
OrdType          STRING(1)
SPECS            GROUP
ITEM               STRING(14)
QTY                SHORT
QTYREC             SHORT
WHCOST             DECIMAL(9,2)
Invoice            STRING(10)
                 .
Hold             STRING(1)
CLOSED           STRING(1)
SUPPLIER         SHORT
SITECODE         BYTE
             . .

ORDERSUM     FILE,PRE(SUM),RECLAIM
               OWNER('PRINTER.DAT'),ENCRYPT
BY_MODEL       KEY(SUM:CATTYPE,SUM:MODEL),NOCASE
RECORD         RECORD
CATTYPE          BYTE
MODEL            STRING(14)
MTD              SHORT
YTD              SHORT
PYTDSALES        SHORT
MTDSALES         SHORT,DIM(13)
MTDMONEY         REAL
YTDSALES         SHORT
YTDMONEY         REAL
INSTOCK          SHORT
INVCOSTS         REAL
ONORDER          SHORT
             . .

PRINTER      FILE,PRE(PRN)
BY_CODE        KEY(PRN:CODE),NOCASE,OPT
BY_NAME        KEY(PRN:NAME),NOCASE,OPT
RECORD         RECORD
CODE             BYTE
NAME             STRING(28)
             . .

RECEIPT      FILE,PRE(REC),RECLAIM
               OWNER('PRINTER.DAT'),ENCRYPT
BY_CODE        KEY(REC:CODE,REC:LINENO),NOCASE,OPT
BY_ORDER       KEY(REC:CLOSED,REC:ORDERNO,REC:ORDERLN),DUP,NOCASE,OPT
BY_ORIGDOC     KEY(REC:ORIGDOC,REC:ORDERLN),DUP,NOCASE,OPT
RECORD         RECORD
CODE             LONG
LINENO           SHORT
ORIGDOC          STRING(12)
ORDERNO          LONG
ORDERLN          SHORT
QTY              LONG
COST             DECIMAL(8,2)
CLOSED           STRING(1)
RECDATE          LONG
Posted           LONG
             . .

SALESHD      FILE,PRE(SLH)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_CODE        KEY(SLH:Code),NOCASE,OPT
BY_CUSTOMER    KEY(SLH:Customer,SLH:DATE_SLD),DUP,NOCASE,OPT
BY_INVOICE     KEY(SLH:Invoice),NOCASE,OPT
BY_DATESLD     KEY(SLH:DATE_SLD,SLH:Invoice),DUP,NOCASE,OPT
BY_DISPO       KEY(SLH:Dispo,SLH:Invoice),DUP,NOCASE,OPT
By_SalesRep    KEY(SLH:Dispo,SLH:SalesRep,SLH:DATE_SLD,SLH:Invoice),DUP,NOCASE,OPT
RECORD         RECORD
Code             LONG
Invoice          STRING(10)
Date_Sld         LONG
SalesRep         STRING(3)
CustData         GROUP
Customer           LONG
Truck              STRING(6)
TruckYear          SHORT
TruckMake          STRING(6)
TruckModel         STRING(6)
TruckCab           STRING(4)
TruckBed           STRING(2)
TruckColor         STRING(4)
ShipTo             GROUP
Address1             STRING(40)
Zip                  STRING(10)
                   .
CustPO             STRING(12)
                 .
Bucks            GROUP
Total              DECIMAL(9,2)
Labor              DECIMAL(9,2)
Tax                DECIMAL(8,2)
Shipping           DECIMAL(8,2)
Deposit            DECIMAL(6,2)
Discount           DECIMAL(5,3)
                 .
Taxable          STRING(1)
TaxRate          DECIMAL(5,3)
FedTaxRate       DECIMAL(5,3)
Dispo            STRING(1)
PayType          STRING(5)
PayCode          SHORT
Account          STRING(20)
Notes            STRING(40)
Referred         SHORT
PSource          STRING(2)
SiteCode         BYTE
StkOrdFlg        STRING(1)
Posted           LONG
DPosted          LONG
ModDate          LONG
             . .

SalesLn      FILE,PRE(SLL)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_INVOICE     KEY(SLL:Invoice,SLL:LineNo),NOCASE,OPT
BY_ITEM        KEY(SLL:Item,SLL:Invoice),DUP,NOCASE,OPT
RECORD         RECORD
LineNo           SHORT
Item             STRING(14)
Invoice          STRING(10)
Retail           DECIMAL(9,2)
Cost             DECIMAL(9,2)
Taxable          STRING(1)
Qty              SHORT
ResQty           SHORT
OutQty           SHORT
Returned         SHORT
Desc             STRING(35)
Status           STRING(1)
LineType         STRING(1)
Account          STRING(6)
             . .

Site         FILE,PRE(SIT)
BY_CODE        KEY(SIT:CODE),NOCASE,OPT
RECORD         RECORD
Code             BYTE
Name             STRING(40)
Address          STRING(40)
Zip              STRING(10)
Phone            DECIMAL(10,0)
StdPhone         GROUP
PhArea             DECIMAL(3,0)
PhPhone            DECIMAL(7,0)
                 .
FAX              DECIMAL(10,0)
CONTACT          STRING(40)
InvLine          STRING(25)
TaxRates         GROUP
TaxRate            DECIMAL(5,3)
LaborTaxRate       DECIMAL(5,3)
FedTaxRate         DECIMAL(5,3)
FedLaborTax        DECIMAL(5,3)
LaborTax           STRING(1)
                 .
DrawerStart      DECIMAL(7,2)
             . .

STKOPT       FILE,PRE(SOP)
BY_CODE        KEY(SOP:Code,SOP:Opt_Code),NOCASE,OPT
RECORD         RECORD
Opt_Code         SHORT
Code             LONG
Cost             DECIMAL(8,2)
Retail           DECIMAL(8,2)
Desc             STRING(40)
Qty              SHORT
             . .

StkOrd       FILE,PRE(SOD),RECLAIM
ByCode         KEY(SOD:Mfctr,SOD:SiteCode,SOD:Model,SOD:Code),DUP,NOCASE,OPT
ByOrder        KEY(SOD:PONum,SOD:LineNo),DUP,NOCASE,OPT
ByTop          KEY(SOD:Mfctr,SOD:SiteCode,SOD:PONum),DUP,NOCASE,OPT
RECORD         RECORD
Code             LONG
SiteCode         BYTE
Mfctr            STRING(10)
Contact          STRING(20)
PONum            STRING(8)
Model            STRING(35)
TruckCode        STRING(6)
Window           STRING(3)
RWindow          STRING(3)
ColorCode        STRING(4)
Front            STRING(7)
Opt              SHORT
Notes            STRING(40)
LineNo           SHORT
OldLineNo        SHORT
Qty              SHORT
WhCost           DECIMAL(9,2)
             . .

Station      FILE,PRE(STA)
ByID           KEY(STA:ID),NOCASE,OPT
RECORD         RECORD
ID               SHORT
Desc             STRING(24)
Site             BYTE
Hardware         GROUP
RPrinter           BYTE
RPrtPort           STRING(4)
IPrinter           BYTE
IPrtPort           STRING(4)
WOPtr              BYTE
WPrtPort           STRING(4)
Drawer             GROUP
DrawB1               BYTE
DrawB2               BYTE
DrawB3               BYTE
DrawB4               BYTE
                   .
DrawerPort         STRING(4)
                 .
             . .

System       FILE,PRE(SYS)
               OWNER('PRINTER.DAT'),ENCRYPT
RECORD         RECORD
Company          STRING(40)
Stock_Date       LONG
Report_Flags     GROUP
EOMRpt             STRING(1),DIM(12)
SortStkRpt         STRING(1)
PrtCosts           STRING(1)
PrtNotes           STRING(1)
InvHdr             STRING(1)
CommType           STRING(1)
                 .
PrintFlags       GROUP
PrtInvc            BYTE
Orders             STRING(1)
Message            STRING(58)
                 .
SLHGroup         GROUP
Invoice            LONG
InvcPrfx           STRING(2)
CRMemLN            LONG
CRMemPfx           STRING(2)
InvType            STRING(1)
                 .
CtrlFlags        GROUP
AllocShip          STRING(1)
NewInvcOK          STRING(1)
AccCost            STRING(1)
ReordLead          SHORT
NSItem             STRING(14)
FeeCat             SHORT
LaborCat           SHORT
                 .
Accting          GROUP
SlsAFlg            STRING(1)
InvAFlg            STRING(1)
Assets             GROUP
Cash                 LONG
Checks               LONG
Charge               STRING(6)
AR                   LONG
Inventory            STRING(6)
Nonstock             STRING(6)
                   .
Liabilities        GROUP
CusDeps              STRING(6)
STaxPay              STRING(6)
                   .
Revenues           GROUP
SalesLab             STRING(6)
SalesSH              STRING(6)
SalesRet             STRING(6)
                   .
Expenses           GROUP
COGS                 STRING(6)
InvAdjust            STRING(6)
                   .
                 .
Custom           STRING(3)
             . .

TOPPERS      FILE,PRE(TOP)
               OWNER('PRINTER.DAT'),ENCRYPT
BY_CODE        KEY(TOP:CODE),NOCASE,OPT
BY_ORDER       KEY(TOP:ORD_DATE,TOP:SITECODE,TOP:MODEL,TOP:TRUCK),DUP,NOCASE
BY_SERIAL      KEY(TOP:SERIAL,TOP:DATE_SLD,TOP:DISPO),NOCASE,OPT
BY_SOLDT       KEY(TOP:DATE_SLD,TOP:TRUCK,TOP:COLOR,TOP:SERIAL),DUP,NOCASE,OPT
BY_SOLDM       KEY(TOP:DATE_SLD,TOP:MODEL,TOP:TRUCK,TOP:SERIAL),DUP,NOCASE,OPT
BY_PO          KEY(TOP:DATE_REC,TOP:PO_NUM,TOP:SERIAL),DUP,NOCASE,OPT
BY_MODEL       KEY(TOP:MODEL,TOP:ORD_DATE),DUP,NOCASE,OPT
BY_DISPO       KEY(TOP:DISPO,TOP:DATE_SLD,TOP:SERIAL),DUP,NOCASE,OPT
BY_SITE        KEY(TOP:SITECODE,TOP:SERIAL),DUP,NOCASE,OPT
BY_INVOICE     KEY(TOP:INVOICE),DUP,NOCASE,OPT
BY_LOCATION    KEY(TOP:SITECODE,TOP:LOCATION,TOP:SERIAL),DUP,NOCASE,OPT
By_MfcInv      KEY(TOP:MFCTR_INV),DUP,NOCASE,OPT
RECORD         RECORD
ORDERING         GROUP
CODE               LONG
ORD_DATE           LONG
PO_NUM             STRING(8)
Held               BYTE
                 .
SiteCode         BYTE
LOCATION         STRING(4)
RECEIVING        GROUP
DATE_REC           LONG
SERIAL             STRING(10)
COST               DECIMAL(9,2)
MFCTR_INV          STRING(8)
                 .
SPECS            GROUP
MODEL              STRING(7)
TRUCK              STRING(6)
COLOR              STRING(4)
ColorCd            LONG
ColorYr            SHORT
ACCESS             STRING(7)
WINDOWSTYLE        STRING(3)
RWINDOW            STRING(3)
                 .
DISPOSITION      GROUP
DATE_SLD           LONG
DISPO              STRING(1)
ACCESS_SOLD        STRING(7)
INVOICE            STRING(10)
RETAIL             DECIMAL(8,2)
INSTALLTYPE        SHORT
                 .
NOTES            STRING(40)
RPosted          LONG
DPosted          LONG
             . .

Transact     FILE,PRE(TRN)
               OWNER('PRINTER.DAT'),ENCRYPT
ByTrans        KEY(TRN:Transaction,TRN:ItemNumber),NOCASE,OPT
ByPosted       KEY(TRN:Posted,TRN:Transaction,TRN:ItemNumber),DUP,NOCASE,OPT
ByDate         KEY(TRN:TransDate,TRN:Posted,TRN:Account),DUP,NOCASE,OPT
ByRef          KEY(TRN:Ref,TRN:Transaction),DUP,NOCASE,OPT
RECORD         RECORD
Transaction      LONG
ItemNumber       BYTE
Amount           DECIMAL(11,2)
Account          STRING(6)
TransDate        LONG
Posted           LONG
Site             BYTE
AccountLink      STRING(6)
Ref              STRING(14)
Note             STRING(20)
             . .

Trucks       FILE,PRE(TRU)
BY_CODE        KEY(TRU:CODE),NOCASE,OPT
BY_NAME        KEY(TRU:NAME),DUP,NOCASE,OPT
RECORD         RECORD
Code             STRING(6)
Name             STRING(30)
Type             STRING(1)
BedSize          GROUP
BedLength          DECIMAL(6,3)
BedWidth           DECIMAL(6,3)
                 .
Specs            GROUP
Make               STRING(12)
Model              STRING(12)
LoYear             SHORT
HiYear             SHORT
Cab                STRING(4)
Bed                STRING(2)
                 .
DelFlag          BYTE
             . .

WINDOWS      FILE,PRE(WIN)
BY_CODE        KEY(WIN:CODE),NOCASE,OPT
BY_NAME        KEY(WIN:NAME),NOCASE,OPT
RECORD         RECORD
Code             STRING(3)
Name             STRING(26)
DelFlag          BYTE
             . .