home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a054 / 1.img / GETPRGS.EXE / GETS02.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  411 b   |  20 lines
  1.     // Gets02.prg
  2.     //
  3.     // Simple when illustrating awkward problem
  4.  
  5.     MEMVAR GetList
  6.  
  7.     FUNCTION gets02
  8.  
  9.     LOCAL nQty := 0
  10.     LOCAL nDiscount := 0
  11.     LOCAL nAccount  := 0
  12.  
  13.       CLEAR SCREEN
  14.       @ 10, 10 SAY "Enter Quantity" GET nQty
  15.       @ 11, 10 SAY "Enter Discount" GET nDiscount WHEN nQty > 10
  16.       @ 12, 10 SAY " Enter A / C #" GET nAccount
  17.       READ
  18.  
  19.     RETURN NIL
  20.