home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / PARTLIST.FMT < prev    next >
Encoding:
Text File  |  1992-12-01  |  772 b   |  20 lines
  1. *********************************************************
  2. *     * Format File: PARTLIST.FMT                       *
  3. *     *                                                 *
  4. *********************************************************
  5. @ 0,0  SAY "              ACME Company Part List Entry Form"
  6. @ 0,50 SAY date()   && Display today's date  
  7. @ 2,0 TO 8,50
  8. @ 3,1  SAY "Enter part number: "
  9. @ 3,20 GET partno PICTURE "999" ;
  10.        VALID partno > '100' AND partno < '500';
  11.        ERROR "Invalid part number entered";
  12.        MESSAGE "Enter a valid part number"
  13. @ 4,1  SAY "Part description: "
  14. @ 4,20 GET descript
  15. @ 5,1  SAY "Enter quantity:   "
  16. @ 5,20 GET quantity PICTURE "999999"
  17. @ 6,1  SAY  "Enter new price:   "
  18. @ 6,20 GET price PICTURE "@$ 9999,999.99"
  19.  
  20.