home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / VARIABLE.CMD < prev    next >
OS/2 REXX Batch file  |  1994-01-14  |  858b  |  29 lines
  1. 'variable commands
  2.  
  3. GOTO EXITSELECT
  4. PtrLET:'        CASE "LET", "SET"
  5.                 v%=ArgPtr%
  6.                 V$=LITERAL$(ArgPtr%)
  7.         DUMMY$=POPARG$
  8.                 VALUE$=POPARG$
  9.                 'IF Value$="[" THEN
  10.                 ' AS%=VAL(POPARG$)
  11.                 ' DUMMY$=POPARG$ ' closing "]"
  12.           'V$=V$+LTRIM$(STR$(AS%))
  13.                 'VALUE$=POPARG$
  14.                 CALL VSET2(LITERAL$(v%),VALUE$)
  15.  
  16. GOTO EXITSELECT
  17. PtrCLEAR:'      CASE "CLEAR"
  18.                 IF ArgPtr%=0 THEN
  19.                     NextVar%=1
  20.                         ERASE VAR$()
  21.                         ERASE VALUE$()
  22.                 ELSE
  23.                         IF LITERAL$(1)="ANY" THEN
  24.                             VCLEARALL LITERAL$(2)
  25.                         ELSE
  26.                     VCLEAR LITERAL$(1)
  27.                         END IF
  28.                 END IF
  29.