home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
nxtfld.zip
/
TNXTFLD.CLA
< prev
next >
Wrap
Text File
|
1989-10-12
|
1KB
|
71 lines
PROGRAM
MAP
MODULE('NXTFLD'),BINARY
FUNC(NEXTFIELD),LONG
.
.
S SCREEN HUE(7,0,0)
ROW(1,32) STRING('TEST NEXTFIELD LEM')
ROW(6,28) STRING('FIELD1:')
COL(35) ENTRY(@S20),USE(U1)
ROW(9,28) STRING('FIELD2:')
COL(35) ENTRY(@S20),USE(U2)
ROW(12,28) STRING('FIELD3:')
COL(35) ENTRY(@S20),USE(U3)
ROW(15,28) STRING('FIELD4:')
COL(35) ENTRY(@S20),USE(U4)
SMSG1 ROW(19,1) STRING(80)
SMSG2 ROW(21,1) STRING(80)
.
U1 STRING(20)
U2 STRING(20)
U3 STRING(20)
U4 STRING(20)
CODE
OPEN(S)
SELECT(3)
SMSG1 = 'SELECT(3)'
DO DSPNXT
ASK
SELECT(1)
SMSG1 = 'SELECT(1)'
DO DSPNXT
ASK
LOOP
ACCEPT
CASE FIELD()
OF ?U1
IF U1
SELECT(?+2)
.
DO DSPNXT
OF ?U2
IF U2
SELECT(?)
.
DO DSPNXT
OF ?U3
IF U3
SELECT(?-2)
.
DO DSPNXT
OF ?U4
IF U4
SELECT(?+2)
.
DO DSPNXT
.
.
DSPNXT ROUTINE
SMSG2 = 'NEXTFIELD() = '&NEXTFIELD()&' FIELD() = '&FIELD()