home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / debug / prg_help / inactive.prg < prev    next >
Encoding:
Text File  |  1987-04-07  |  831 b   |  38 lines
  1. **********************************************************************
  2. *                                                                                            *
  3. *                                S. Robert Davidoff                                    *
  4. *                                    inactive.prg                                        *
  5. *                                                                                            *
  6. **********************************************************************
  7. DO WHILE .T.
  8. A = "INACTIVE"
  9. MSG1 = "1. QUIT"
  10. MSG2 = "0. MENU"
  11. MSG3 = "XXXX"
  12. MSG4 = "XXXX"
  13. MSG5 = "XXXX"
  14. MSG6 = "XXXX"
  15. MSG7 = "XXXX"
  16. MSG8 = "XXXX"
  17. MSG9 = "XXXX"
  18. MSG0 = "XXXX"
  19. NUM_ITEMS = 2
  20. X = 23
  21. Y = 20
  22. W = LEN(MSG1)
  23. MSTRING = "QM"
  24. DO CLEARIT WITH X-1,1,X,78
  25. @ X-1,1 SAY BAR
  26. @ X,1 SAY "NO MENU AT THIS TIME"
  27. DO H_LIGHT WITH NUM_ITEMS,X,Y,W,MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG0,MSTRING
  28. CHOICE = STR(SELECTION,1)
  29. DO CASE
  30. CASE CHOICE = "1"
  31.     CLOSE DATABASES
  32.     CLEAR ALL
  33.     CANC
  34. CASE CHOICE = "0"
  35.     RETURN
  36.     
  37. ENDCASE
  38. ENDDO