home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP14.EXE / CHP1401.PRG < prev    next >
Encoding:
Text File  |  1991-06-12  |  995 b   |  37 lines
  1. /*
  2.    Listing 14.1 Primitive dBASE III PLUS (or "How Not to Write a") Menu
  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.   If you actually want to run this under dBASE, be forewarned that it
  11.   will not like these funny block comments! But then again, if you are
  12.   still using dBASE, why did you even buy this book??
  13. */
  14.  
  15. clear
  16. sel = ' ' 
  17. do while sel <> 'Q' 
  18.    @ 10, 33 say "A. Data Entry" 
  19.    @ 11, 33 say "B. Reports" 
  20.    @ 12, 33 say "C. Maintenance" 
  21.    @ 13, 33 say "D. Backup" 
  22.    @ 14, 33 say "Q. Quit" 
  23.    @ 18, 31 say "Your Selection:" get sel picture '!' 
  24.    read 
  25.    if sel = "A" 
  26.       dataentry() 
  27.    elseif sel = "B" 
  28.       reports() 
  29.    elseif sel = "C" 
  30.       maint() 
  31.    elseif sel = "D" 
  32.       backup() 
  33.    endif 
  34. enddo
  35.  
  36. //───── end of file CHP1401.PRG
  37.