home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
brokcode.zip
/
RG4-1.FNC
< prev
next >
Wrap
Text File
|
1992-02-03
|
2KB
|
34 lines
!----------- SOURCE CODE for InList FUNCTION --------------------------------
InList FUNCTION(Item,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10)
Item LONG !Item to check
ListData GROUP, !List of numbers group
P1 LONG !1
P2 LONG !2
P3 LONG !3
P4 LONG !4
P5 LONG !5
P6 LONG !6
P7 LONG !7
P8 LONG !8
P9 LONG !9
P10 LONG !10
END !group
ListArray LONG,DIM(10),OVER(ListData) !List Array
Position LONG !Position Marker
J LONG !Loop counter
CODE
Position = 0 !Set position to false
IF NOT OMITTED(1) AND Item !If there is an Item
LOOP J = 1 TO 10 !Loop through Array
IF Item = ListArray[J] !True if a match
Position = J !Set position
BREAK !Break from loop
END !if
END !loop
END !if
RETURN(Position) !Return position of match