home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / nxtfld.zip / TNXTFLD.CLA < prev    next >
Text File  |  1989-10-12  |  1KB  |  71 lines
  1.     PROGRAM
  2.  
  3.     MAP
  4.       MODULE('NXTFLD'),BINARY
  5.     FUNC(NEXTFIELD),LONG
  6.       .
  7.     .
  8.  
  9. S         SCREEN      HUE(7,0,0)
  10.            ROW(1,32)  STRING('TEST NEXTFIELD LEM')
  11.            ROW(6,28)  STRING('FIELD1:')
  12.          COL(35)  ENTRY(@S20),USE(U1)
  13.            ROW(9,28)  STRING('FIELD2:')
  14.          COL(35)  ENTRY(@S20),USE(U2)
  15.            ROW(12,28) STRING('FIELD3:')
  16.          COL(35)  ENTRY(@S20),USE(U3)
  17.            ROW(15,28) STRING('FIELD4:')
  18.          COL(35)  ENTRY(@S20),USE(U4)
  19. SMSG1           ROW(19,1)  STRING(80)
  20. SMSG2           ROW(21,1)  STRING(80)
  21.          .
  22.  
  23. U1 STRING(20)
  24. U2 STRING(20)
  25. U3 STRING(20)
  26. U4 STRING(20)
  27.  
  28.     CODE
  29.  
  30.     OPEN(S)
  31.  
  32.     SELECT(3)
  33.     SMSG1 = 'SELECT(3)'
  34.     DO DSPNXT
  35.     ASK
  36.  
  37.     SELECT(1)
  38.     SMSG1 = 'SELECT(1)'
  39.     DO DSPNXT
  40.     ASK
  41.  
  42.     LOOP
  43.       ACCEPT
  44.       CASE FIELD()
  45.       OF ?U1
  46.     IF U1
  47.       SELECT(?+2)
  48.     .
  49.     DO DSPNXT
  50.       OF ?U2
  51.     IF U2
  52.       SELECT(?)
  53.     .
  54.     DO DSPNXT
  55.       OF ?U3
  56.     IF U3
  57.       SELECT(?-2)
  58.     .
  59.     DO DSPNXT
  60.       OF ?U4
  61.     IF U4
  62.       SELECT(?+2)
  63.     .
  64.     DO DSPNXT
  65.       .
  66.     .
  67.  
  68. DSPNXT ROUTINE
  69.     SMSG2 = 'NEXTFIELD() = '&NEXTFIELD()&' FIELD() = '&FIELD()
  70.  
  71.