home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BOZOL2 / BOZOL2.ZIP / VARIABLE.CMD < prev    next >
Encoding:
Text File  |  1994-02-08  |  833 b   |  25 lines
  1.         CASE "LET", "SET"
  2.                 v%=ArgPtr%
  3.         VAR$=UCASE$(POPARG$)
  4.                 VALUE$=POPARG$
  5.                 IF LEN(LITERAL$(v%)) THEN
  6.                           ARRAY SCAN VAR$(1),COLLATE UCASE, =LITERAL$(v%), TO i%
  7.                         IF i% THEN
  8.                             VALUE$(i%)=VALUE$
  9.                         ELSE
  10.                             INCR NextVar%
  11.                                 VALUE$(NextVar%)=VALUE$
  12.                                 VAR$(NextVar%)=LITERAL$(v%)
  13.                         END IF
  14.                 END IF
  15.  
  16.     CASE "CLEAR"
  17.             V$=POPARG$
  18.                 IF V$="" THEN
  19.                     NextVar%=1
  20.                         REDIM VAR$(UBOUND(VAR$))
  21.                         REDIM VALUE$(UBOUND(VALUE$))
  22.                 ELSE
  23.                     VCLEAR V$
  24.                 END IF
  25.