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