home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP26.EXE / CHP2608.PRG < prev    next >
Encoding:
Text File  |  1991-04-30  |  820 b   |  36 lines
  1. /*
  2.    Listing 26.8 Using col Instance Variable to Move GETs
  3.    Author: Greg Lief
  4.    Excerpted from "Clipper 5: A Developer's Guide"
  5.    Copyright (c) 1991 M&T Books
  6.                       501 Galveston Drive
  7.                       Redwood City, CA 94063-4728
  8.                       (415) 366-3600
  9. */
  10.  
  11. //───── NOTE: must compile with the /N option!
  12.  
  13. function main
  14. local a := { 0, 0, 0, 0, 0 }
  15. cls
  16. @ 8, 30 say "Debits"
  17. @ 8, 50 say "Credits"
  18. @ 10,10 get a[1] valid debitcredit()
  19. @ 11,10 get a[2] valid debitcredit()
  20. @ 12,10 get a[3] valid debitcredit()
  21. @ 13,10 get a[4] valid debitcredit()
  22. @ 14,10 get a[5] valid debitcredit()
  23. read
  24. return nil
  25.  
  26.  
  27. function debitcredit
  28. if getactive():varGet() > 0
  29.    getactive():col = 50
  30. else
  31.    getactive():col = 30
  32. endif
  33. return .t.
  34.  
  35. // end of file CHP2608.PRG
  36.