home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / win31x / program / liberty / examples.shr / CUSTOMER.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-04-23  |  2.2 KB  |  64 lines
  1.  
  2.  
  3.     ' open a spreadsheet for customer info
  4.  
  5.     button #1, DONE, [Done], LR, 45, -10
  6.     button #1, Abort, [Abort], LR, -10, -10
  7.     WindowWidth = 480
  8.     WindowHeight = 348
  9.     open "Customer information" for spreadsheet as #1
  10.  
  11.     print #1, "indirect"
  12.     print #1, "select B4"
  13.     print #1, "cell A1 'Enter the customer information below:"
  14.     print #1, "format A right"
  15.     print #1, "format D right"
  16.     print #1, "format E fixed"
  17.     print #1, "cell A4 'Name>" :    print #1, "user B4 string"
  18.     print #1, "cell A5 'Address>" : print #1, "user B5 string"
  19.     print #1, "cell A6 'City>" :       print #1, "user B6 string"
  20.     print #1, "cell A7 'State>" :     print #1, "user B7 string"
  21.     print #1, "cell A8 'Zip>" :        print #1, "user B8 string"
  22.     print #1, "cell A9 'Phone #>" : print #1, "user B9 string"
  23.     print #1, "cell A10 'Contact>" : print #1, "user B10 string"
  24.     print #1, "cell A11 'Part #>" :   print #1, "user B11 string"
  25.     print #1, "cell A12 'PO #>" :    print #1, "user B12 string"
  26.     print #1, "cell A13 'Qty>" :       print #1, "user B13 number"
  27.     print #1, "cell A14 'Due>" :      print #1, "user B14 string"
  28.     print #1, "cell D4 'Ship $>" :   print #1, "user E4 number"
  29.     print #1, "cell D5 'U/Cost$>" :  print #1, "user E5 number"
  30.     print #1, "cell D6 'Sum Price"
  31.     print #1, "cell E6 e5 * b13 + e4"
  32.     print #1, "cell A15 'Memo>" :   print #1, "user B15 string"
  33.     print #1, "flush"
  34.  
  35. [readButton]
  36.     input ""; r$
  37.     goto [readButton]
  38.  
  39. [Done]
  40.     print #1, "result? B4" : input #1, cust$
  41.     print #1, "result? B13" : input #1, qty$
  42.     print #1, "result? B11" : input #1, part$
  43.     print #1, "result? E5" : input #1, unitCost$
  44.     print #1, "result? E4" : input #1, shipCost$
  45.     print #1, "result? E6" :  input #1, ttl$
  46.     print #1, "result? B15" : input #1, memo$
  47.     print cust$; " ordered "; qty$; " units of "; part$
  48.     print "at $"; unitCost$; " per unit with a shipping"
  49.     print "charge of $"; shipCost$; " for a total of $"; ttl$
  50.     print "Special memo: "; memo$
  51.  
  52.     close #1
  53.     goto [finish]
  54.  
  55. [Abort]
  56.     close #1
  57.     print "Customer entry aborted."
  58.     goto [finish]
  59.  
  60. [finish]
  61.     input "Press 'Return'"; r$
  62.     end
  63.  
  64.