home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMENU.PRG < prev    next >
Text File  |  1992-05-08  |  2KB  |  70 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: MEMENU.PRG        Copyright: Ed Phillips
  4. *   Date Created: 12/09/91           Language: Clipper S'87
  5. *   Time Created: 14:15:52             Author: Ed Phillips
  6. *           Desc: Menu processing for Memscrn.prg
  7. *.............................................................................
  8.  
  9. PRIVATE oldcolor,gscrn
  10.  
  11. gscrn = Savescreen(1,0,24,79)
  12.  
  13. SELECT ScrnMenu
  14. CLOSE INDEX
  15. SET INDEX TO ScrnMenu
  16. SEEK Scr_file->Scrn_name+Str(r,2)+Str(c,2)
  17.  
  18. IF Found()
  19.    Automem('STUP')
  20.    mode = 'EDIT'
  21. ELSE
  22.    Automem('INIT')
  23.    scrn_name = M->memfile
  24.    m_row = r
  25.    m_col = c
  26.    mode = 'ADD'
  27. ENDIF                                            && IF Found()
  28.  
  29. SET SCOREBOARD OFF
  30. oldcolor = Setcolor(c_statln1)
  31. Shadow(6,11,16,69)
  32. Scroll(6,11,16,69,0)
  33. Setcolor(c_field)
  34. @ 6,11 SAY Replicate(Chr(176),59)
  35. @ 6,26 SAY ' "MENU" Specification '
  36. @ 16,11 SAY Replicate(Chr(176),59)
  37. Setcolor(c_statln1)
  38.  
  39. @ 8,14 SAY 'Menu Prompt:'
  40. @ 10,18 SAY 'Message:'
  41. @ 12,12 SAY 'Function Name:'
  42. @ 14,20 SAY 'Cargo:'
  43. @ 8,28 GET M->m_prompt PICT '@S40'
  44. @ 10,28 GET M->m_msg PICT '@S40'
  45. @ 12,28 GET M->m_func
  46. @ 14,28 GET M->m_cargo PICT '@S40'
  47. READ
  48.  
  49. SET SCOREBOARD ON
  50. Restscreen(1,0,24,79,gscrn)
  51.  
  52. IF Lastkey() != 27 .AND. Updated()
  53.  
  54.    IF mode = 'ADD'
  55.       APPEND BLANK
  56.    ENDIF                                      && IF mode = 'ADD'
  57.  
  58.    Automem('REPL')
  59.    Setcolor(oldcolor)
  60.    @ M_row, M_col SAY mchar
  61.  
  62. ENDIF
  63. CLOSE INDEX
  64. SET INDEX TO ScrnMenu
  65. REINDEX
  66. SELECT Scr_file
  67. Setcolor(oldcolor)
  68. RETURN
  69. * EOF: MEMENU.PRG
  70.