home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMALT.PRG < prev    next >
Text File  |  1992-09-29  |  3KB  |  101 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: MEMALT.PRG        Copyright: EDON Corporation
  4. *   Date Created: 02/24/91           Language: Clipper S'87
  5. *   Time Created: 13:10:11             Author: Ed Phillips
  6. *           Desc: ALT key handler for Memscrn.prg
  7. *.............................................................................
  8.  
  9. PROCEDURE AltKey
  10.    DO CASE
  11.       CASE key = 271                             && Shift-TAB
  12.          c = If(c-5 < 0, 0, c-5)
  13.          @ r,c SAY ''
  14.  
  15.       CASE key = 273                             && Alt-W
  16.          DO MakScrnCode                          && memsproc.prg
  17.  
  18.       CASE key = 274                             && Alt-E
  19.          DO Memsedit
  20.  
  21.       CASE key = 275                             && Alt-R
  22.          MemRpts()
  23.  
  24.       CASE key = 276                             && Alt-T
  25.          DO Memtextw
  26.  
  27.       CASE key = 281                             && Alt-P
  28.          DO PrintScreen
  29.  
  30.       CASE key = 286                             && Alt-A
  31.          DO ScrnAttrib
  32.  
  33.       CASE key = 287                             && Alt-S
  34.          DO SubScrn
  35.  
  36.       CASE key = 290                             && Alt-G, reorder gets
  37.          DO Memgord
  38.  
  39.       CASE key = 294                             && Alt-L, list dbf structure
  40.          DO Memstru
  41.  
  42.       CASE key = 304                             && Alt<B>, reorder menu
  43.          MemMord()
  44.  
  45.       CASE key = 305                             && Alt-N, next record
  46.          IF changed
  47.             DO AskToSave
  48.          ENDIF                                   && IF changed
  49.  
  50.          SKIP
  51.          IF Eof()
  52.             SKIP -1
  53.             Sayerr('End of File')
  54.          ENDIF
  55.  
  56.          oldcolor = Setcolor(c_default)
  57.          Scroll(1,0,24,79,0)
  58.          Setcolor(oldcolor)
  59.  
  60.          memscrn = Screen
  61.          st = St
  62.          sl = Sl
  63.          sb = Sb
  64.          sr = Sr
  65.          Restscreen(M->st,M->sl,M->sb,M->sr,memscrn)
  66.          RestGets()
  67.          RestMenu()
  68. *         KEYBOARD Chr(1)
  69.  
  70.       CASE key = 306                             && Alt<M>
  71.          MeMenu()
  72.  
  73.       CASE key = 386                             && Alt<->, previous record
  74.          IF changed
  75.             DO AskToSave
  76.          ENDIF                                   && IF changed
  77.  
  78.          SKIP -1
  79.          IF Bof()
  80.             Sayerr('Beginning of File')
  81.             GO TOP
  82.          ENDIF                                   && IF Bof()
  83.  
  84.          oldcolor = Setcolor(c_default)
  85.          Scroll(1,0,24,79,0)
  86.          Setcolor(oldcolor)
  87.  
  88.          memscrn = Screen
  89.          st = St
  90.          sl = Sl
  91.          sb = Sb
  92.          sr = Sr
  93.          Restscreen(M->st,M->sl,M->sb,M->sr,memscrn)
  94.          RestGets()
  95.          RestMenu()
  96. *         KEYBOARD Chr(1)
  97.  
  98.    ENDCASE                                       && DO CASE
  99. RETURN
  100. * EOF: MEMALT.PRG
  101.