home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / brokcode.zip / MEMOEDIT.EXE / MEMO1.CLA < prev    next >
Text File  |  1991-12-05  |  3KB  |  68 lines
  1.          MEMBER('MEMO')
  2. MAIN         PROCEDURE
  3.  
  4. SCREEN         SCREEN      WINDOW(23,74),PRE(SCR),HUE(15,1)
  5.            ROW(1,1)      PAINT(12,20),TRN
  6.            ROW(1,55)  PAINT(12,20),TRN
  7.            ROW(12,21) PAINT(1,34),TRN
  8.            ROW(13,1)  PAINT(11,74),HUE(11,0)
  9.            ROW(1,21)  STRING('┌─{32}┐')
  10.            ROW(2,21)  REPEAT(9);STRING('│<0{32}>│') .
  11.            ROW(11,21) STRING('└─{32}┘')
  12.            ROW(13,1)  STRING('┌─{72}┐')
  13.            ROW(14,1)  REPEAT(9);STRING('│<0{72}>│') .
  14.            ROW(23,1)  STRING('└─{72}┘')
  15.            ROW(2,23)  STRING('Bobcat Systems'' PD Memo Editor')
  16.            ROW(14,8)  STRING('This program tests the memo editing '           |
  17.                 & 'functions of MEMOEDIT.CLA')
  18.            ROW(16,16) STRING('Any and all comments and suggestions '       |
  19.                 & 'welcome!')
  20.            ROW(18,25) STRING('Written By: Bobcat Systems')
  21.            ROW(19,37) STRING('PO Box 1195')
  22.            ROW(20,37) STRING('Ossining, NY 10562')
  23.            ROW(21,37) STRING('(914)-762-3474')
  24.            ROW(22,37) STRING('CIS: [70441,204]')
  25. DATE           ROW(4,34)  STRING(@D1),HUE(11,1)
  26.            ROW(6,42)  ENTRY,USE(?FIRST_FIELD)
  27.          COL(42)  ENTRY,USE(?PRE_MENU)
  28.          COL(42)  MENU,USE(MENU_FIELD"),REQ
  29.            ROW(7,31)    STRING(' Edit a Record '),HUE(15,1)
  30.            ROW(9,35)    STRING(' Exit '),HUE(15,1)
  31.          .          .
  32.  
  33.   EJECT
  34.   CODE
  35.   OPEN(SCREEN)                     !OPEN THE MENU SCREEN
  36.   SETCURSOR                     !TURN OFF ANY CURSOR
  37.   MENU_FIELD" = ''                 !START MENU WITH FIRST ITEM
  38.   LOOP                         !LOOP UNTIL USER EXITS
  39.     SCR:DATE = TODAY()
  40.     ALERT                     !TURN OFF ALL ALERTED KEYS
  41.     ALERT(REJECT_KEY)                 !ALERT SCREEN REJECT KEY
  42.     ALERT(ACCEPT_KEY)                 !ALERT SCREEN ACCEPT KEY
  43.     ACCEPT                     !READ A FIELD OR MENU CHOICE
  44.     IF KEYCODE() = REJECT_KEY THEN RETURN.     !RETURN ON SCREEN REJECT
  45.  
  46.     IF KEYCODE() = ACCEPT_KEY             !ON SCREEN ACCEPT KEY
  47.       UPDATE                     !  MOVE ALL FIELDS FROM SCREEN
  48.       SELECT(?)                     !  START WITH CURRENT FIELD
  49.       SELECT                     !  EDIT ALL FIELDS
  50.       CYCLE                     !  GO TO TOP OF LOOP
  51.     .                         !
  52.  
  53.     CASE FIELD()                 !JUMP TO FIELD EDIT ROUTINE
  54.     OF ?FIRST_FIELD                 !FROM THE FIRST FIELD
  55.       IF KEYCODE() = ESC_KEY THEN RETURN.     !  RETURN ON ESC KEY
  56.  
  57.     OF ?PRE_MENU                 !PRE MENU FIELD CONDITION
  58.       IF KEYCODE() = ESC_KEY             !  BACKING UP?
  59.     SELECT(?-1)                 !    SELECT PREVIOUS FIELD
  60.       ELSE                     !  GOING FORWARD
  61.     SELECT(?+1)                 !    SELECT MENU FIELD
  62.       .
  63.     OF ?MENU_FIELD"                 !FROM THE MENU FIELD
  64.       EXECUTE CHOICE()                 !  CALL THE SELECTED PROCEDURE
  65.     SHO_Name                 !  Show Memotest By Name
  66.     RETURN
  67.   . . .
  68.