home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / brokcode.zip / MEMOEDIT.EXE / MEMO.CLA < prev    next >
Text File  |  1991-12-05  |  3KB  |  90 lines
  1. MEMO         PROGRAM
  2.          INCLUDE('STD_KEYS.CLA')
  3.          INCLUDE('CTL_KEYS.CLA')
  4.          INCLUDE('ALT_KEYS.CLA')
  5.          INCLUDE('SHF_KEYS.CLA')
  6.  
  7. REJECT_KEY   EQUATE(CTRL_ESC)
  8. ACCEPT_KEY   EQUATE(CTRL_ENTER)
  9. TRUE         EQUATE(1)
  10. FALSE         EQUATE(0)
  11.  
  12.          MAP
  13.            PROC(G_OPENFILES)
  14.            MODULE('MEMO1')
  15.          PROC(MAIN)             !Bobcat Systems PD Memo Editor
  16.            .
  17.            MODULE('MEMO2')
  18.          PROC(SHO_Name)             !Show Memotest By Name
  19.            .
  20.            MODULE('MEMO3')
  21.          PROC(UPD_MEMOTEST)         !Update Memotest
  22.            .
  23.            MODULE('MEMOEDIT')
  24.          FUNC(MemoEdit),LONG         !Memo Editor
  25.            .
  26.            MODULE('ALERTED'),BINARY
  27.          FUNC(Alerted),LONG         !Alerted Key LEM
  28.            .
  29.            MODULE('INT'),BINARY
  30.          PROC(Interrupt)         !Interrupt LEM
  31.            .
  32.          .
  33.          EJECT('FILE LAYOUTS')
  34. MEMOTEST     FILE,PRE(FIL),CREATE,RECLAIM
  35. BY_Name           KEY(FIL:Name),NOCASE,OPT
  36. Method           MEMO(3800)
  37. RECORD           RECORD
  38. Name         STRING(30)
  39. Descript     STRING(50)
  40.          . .
  41.          GROUP,OVER(FIL:Method)
  42. FIL_MEMO_ROW   STRING(76),DIM(50)
  43.          .
  44.  
  45.          EJECT('GLOBAL MEMORY VARIABLES')
  46. ACTION         SHORT                 !0 = NO ACTION
  47.                          !1 = ADD RECORD
  48.                          !2 = CHANGE RECORD
  49.                          !3 = DELETE RECORD
  50.                          !4 = LOOKUP FIELD
  51.          GROUP,PRE(MEM)
  52. MESSAGE           STRING(30)             !Global Message Area
  53. PAGE           SHORT                 !Report Page Number
  54. LINE           SHORT                 !Report Line Number
  55. DEVICE           STRING(30)             !Report Device Name
  56. DummyField     STRING(1)             !General Purpose Dummy Field
  57.          .
  58.  
  59.          EJECT('CODE SECTION')
  60.   CODE
  61.   SETHUE(7,0)                     !SET WHITE ON BLACK
  62.   BLANK                         !  AND BLANK
  63.   HELP('MEMOEDIT.HLP')                 !OPEN THE HELP FILE
  64.   G_OPENFILES                     !OPEN OR CREATE FILES
  65.   SETHUE()                     !    THE SCREEN
  66.   MAIN                         !Bobcat Systems PD Memo Editor
  67.   RETURN                     !EXIT TO DOS
  68.  
  69. G_OPENFILES  PROCEDURE                 !OPEN FILES & CHECK FOR ERROR
  70.   CODE
  71.   SHOW(25,1,CENTER('OPENING FILE: ' & 'MEMOTEST',80)) !DISPLAY FILE NAME
  72.   OPEN(MEMOTEST)                 !OPEN THE FILE
  73.   IF ERROR()                     !OPEN RETURNED AN ERROR
  74.     CASE ERRORCODE()                 ! CHECK FOR SPECIFIC ERROR
  75.     OF 46                     !  KEYS NEED TO BE REQUILT
  76.       SETHUE(0,7)                 !  BLACK ON WHITE
  77.       SHOW(25,1,CENTER('REBUILDING KEY FILES FOR MEMOTEST',80)) !INDICATE MSG
  78.       BUILD(MEMOTEST)                 !  CALL THE BUILD PROCEDURE
  79.       SETHUE(7,0)                 !  WHITE ON BLACK
  80.       BLANK(25,1,1,80)                 !  BLANK THE MESSAGE
  81.     OF 2                     !IF NOT FOUND,
  82.       CREATE(MEMOTEST)                 ! CREATE
  83.     ELSE                     ! ANY OTHER ERROR
  84.       LOOP;STOP('MEMOTEST: ' & ERROR()).     !  STOP EXECUTION
  85.   . .
  86.  
  87.   BLANK                         !BLANK THE SCREEN
  88.  
  89.  
  90.