home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMMORD.PRG < prev    next >
Text File  |  1991-12-13  |  3KB  |  80 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: MEMMORD.PRG       Copyright: EDON Corporation
  4. *   Date Created: 12/10/91           Language: Clipper S'87
  5. *   Time Created: 11:18:12             Author: Ed Phillips
  6. *           Desc:
  7. *.............................................................................
  8.  
  9. PRIVATE grec, oldcolor, oldscrn
  10.  
  11. oldscrn = Savescreen(1,0,24,79)
  12. oldcolor = Setcolor()
  13. SELECT ScrnMenu
  14. SEEK Scr_file->Scrn_name
  15.  
  16. IF ! Found()
  17.    Alert()
  18. ELSE
  19.    gcount = 0
  20.    grec = Recno()
  21.    DO WHILE Scrn_name == Scr_file->Scrn_name .AND. ! Eof()
  22.       gcount = gcount + 1
  23.       SKIP
  24.    ENDDO                                         && DO WHILE Scrn_name == Scr_file->Scrn_name .AND. ! Eof()
  25.    GO grec
  26.    IF gcount <= 1
  27.       Alert()
  28.    ELSE
  29.  
  30.       *-------------------
  31.       * Build the Get_List
  32.       *-------------------
  33.       PRIVATE get_list[gcount]
  34.       SET ORDER TO 0
  35.       LOCATE FOR Scrn_name == Scr_file->Scrn_name
  36.  
  37. *----------------------------------------------------------------------------------
  38. *          1         2         3         4         5         6         7         8         9         0         1         2         3         4         5         6         7         8         9         0         1         2         3
  39. * 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
  40. * r  c  m_prompt                                                               m_msg                                                                  m_func
  41. * nn nn cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc cccccccccccccccccccccccccccccccccccccccc
  42. *------------------------------------------------------------------------------------
  43.  
  44.       FOR i = 1 TO gcount
  45.          get_list[i] = Str(M_row,2,0)+' '+Str(M_col,2,0)+' '+M_prompt+' '+M_msg+' '+M_func
  46.          CONTINUE
  47.       NEXT                                       && FOR i = 1 TO gcount
  48.  
  49.       mtitle = '   MENU List    '
  50.       Setcolor(c_error)
  51.       @ 02,32 SAY mtitle
  52.       Setcolor(c_pop)
  53.       Orderm(get_list,3,32,22,47,30)
  54.  
  55.       LOCATE FOR Scrn_name == Scr_file->Scrn_name
  56.  
  57.       FOR i = 1 TO gcount
  58.          m_row = Val(Subs(get_list[i],1,2))
  59.          m_col = Val(Subs(get_list[i],4,2))
  60.          m_prompt = Subs(get_list[i],7,70)
  61.          m_msg   = Subs(get_list[i],78,70)
  62.          m_func = Subs(get_list[i],149,40)
  63.  
  64.          REPL M_row WITH M->m_row, M_col WITH M->m_col,;
  65.             M_prompt WITH M->m_prompt, M_msg WITH M->m_msg, M_func WITH M->m_func
  66.  
  67.          CONTINUE
  68.       NEXT                                       && FOR i = 1 TO gcount
  69.       SET ORDER TO 1
  70.    ENDIF                                         && IF gcount <= 1
  71. ENDIF                                            && IF ! Found()
  72. SELECT Scr_file
  73. Setcolor(oldcolor)
  74. Restscreen(1,0,24,79,oldscrn)
  75. RestMenu()
  76. Gotoxy(r,c)
  77. RETURN
  78.  
  79. * EOF: MEMMORD.PRG
  80.