A*----------------------------------------------------------------
A* CATALOG OF BOATS FOR SALE
A* File BOATCGI/BOATSALE
A* ordered descending on boat length
A* descending on boat price
A*----------------------------------------------------------------
A R BOATRC TEXT('Boat for sale record')
A BNBR 7S 0 TEXT('Catalog number')
A COLHDG('Catalog number')
A BTYPE 20A TEXT('Boat type')
A COLHDG('Boat type')
A BMAKER 15A TEXT('Manufacturer')
A COLHDG('Manufacturer')
A BNAME 40A TEXT('Boat name')
A COLHDG('Boat name')
A BLEN 6S 2 TEXT('Boat length in feet')
A COLHDG('Boat length' '(Feet)')
A BYEAR 4S 0 TEXT('Year built')
A COLHDG('Year built')
A BPRICE 11S 0 TEXT('Price (US $)')
A COLHDG('Price' '(US $)')
A BCITY 15A TEXT('City where located')
A COLHDG('City' 'where located')
A BSTATE 15A TEXT('State where located')
A COLHDG('State' 'where located')
A BCTRY 16A TEXT('Country where located')
A COLHDG('Contry' 'where located')
A*----------------------------------------------------------------
A* BASIC IMAGE INFORMATION (.gif)
A BGIF 7A TEXT('Gif name')
A COLHDG('Gif Name')
A BALIGN 1A TEXT('Align L/R=Left/Right')
A COLHDG('Gif ALIGN' 'L=Left' -
A 'R=Right')
A BHSPAC 1S 0 TEXT('Horizontal spacing')
A COLHDG('Horizontal spacing')
A BVSPAC 1S 0 TEXT('Vertical spacing')
A COLHDG('Vertical spacing')
A*----------------------------------------------------------------
A K BLEN DESCEND
A K BPRICE DESCEND
|