home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / OBASE.CMD < prev    next >
OS/2 REXX Batch file  |  1994-01-14  |  374b  |  18 lines
  1. 'obase commands
  2. GOTO EXITSELECT
  3. PtrOFIND:'      CASE "OFIND"
  4.     FI$=POPARG$
  5.         IXFI$=FI$
  6.         DA$=POPARG$
  7.         FL%=VAL(POPARG$)
  8.         IXlen%=FL%
  9.         PUSHARG STR$(OFIND???(FI$,DA$,FL%,E%))
  10.  
  11. GOTO EXITSELECT
  12. PtrOSKIP:'      CASE "OSKIP"
  13.         FI$=IXFI$
  14.         n%=VAL(POPARG$)
  15.         FL%=Ixlen%
  16.         PUSHARG STR$(OSKIP???(FI$,N%,FL%,E%))
  17.  
  18.