home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / nxtfld.zip / NXTFLD.COM / TPREEDIT.CLA < prev   
Text File  |  1989-12-04  |  1KB  |  65 lines
  1.     PROGRAM
  2.  
  3. ESC_KEY         EQUATE(256)             !ESC KEY
  4. UP_KEY         EQUATE(262)             !CURSOR UP KEY
  5.  
  6.     MAP
  7.       MODULE('NXTFLD'),BINARY
  8.     FUNC(NEXTFIELD),LONG
  9.       .
  10.     .
  11.  
  12. S         SCREEN      HUE(7,0,0)
  13. PREMSG           ROW(1,1)      STRING(40)
  14. POSTMSG           ROW(15,1)  STRING(40)
  15.            ROW(5,28)  STRING('FIELD1:')
  16.          COL(35)  ENTRY(@S20),USE(U1)
  17.            ROW(7,28)  STRING('FIELD2:')
  18.          COL(35)  ENTRY(@S20),USE(U2)
  19.            ROW(9,28)  STRING('FIELD3:')
  20.          COL(35)  ENTRY(@S20),USE(U3)
  21.            ROW(11,28) STRING('FIELD4:')
  22.          COL(35)  ENTRY(@S20),USE(U4)
  23.          .
  24.  
  25. U1 STRING(20)
  26. U2 STRING(20)
  27. U3 STRING(20)
  28. U4 STRING(20)
  29.  
  30.     CODE
  31.  
  32.     OPEN(S)
  33.  
  34.     LOOP
  35.       CASE NEXTFIELD()
  36.       OF ?U1
  37.     PREMSG = 'FIELD 1 PRE-EDIT'
  38.       OF ?U2
  39.     PREMSG = 'FIELD 2 PRE-EDIT'
  40.       OF ?U3
  41.     PREMSG = 'FIELD 3 PRE-EDIT'
  42.       OF ?U4
  43.     PREMSG = 'FIELD 4 PRE-EDIT'
  44.       .
  45.       ALERT
  46.       ALERT(ESC_KEY)
  47.       ALERT(UP_KEY)
  48.       ACCEPT
  49.       IF KEYCODE() = ESC_KEY OR KEYCODE() = UP_KEY
  50.     SELECT(?-1)
  51.     CYCLE
  52.       .
  53.       CASE FIELD()
  54.       OF ?U1
  55.     POSTMSG = 'FIELD 1 POST-EDIT'
  56.       OF ?U2
  57.     POSTMSG = 'FIELD 2 POST-EDIT'
  58.       OF ?U3
  59.     POSTMSG = 'FIELD 3 POST-EDIT'
  60.       OF ?U4
  61.     POSTMSG = 'FIELD 4 POST-EDIT'
  62.       .
  63.     .
  64.  
  65.