home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BOZOL2 / BOZOL2.ZIP / FUNCTION.CMD < prev    next >
Encoding:
Text File  |  1994-02-08  |  1.4 KB  |  50 lines
  1.     CASE "UCASE","UPPER"
  2.             PUSHARG UCASE$(POPARG$)
  3.         CASE "LCASE","LOWER"
  4.             PUSHARG LCASE$(POPARG$)
  5.         CASE "LTRIM"
  6.             PUSHARG LTRIM$(POPARG$)
  7.         CASE "RTRIM"
  8.             PUSHARG RTRIM$(POPARG$)
  9.         CASE "LEFT"
  10.             PUSHARG LEFT$(POPARG$,VAL(POPARG$))
  11.         CASE "RIGHT"
  12.             PUSHARG RIGHT$(POPARG$,VAL(POPARG$))
  13.         CASE "MID","SUBSTR"
  14.             A$=POPARG$
  15.                 A1%=VAL(POPARG$)
  16.                 A2%=VAL(POPARG$)
  17.                 IF A2%=0 THEN
  18.                     PUSHARG MID$(A$,A1%)
  19.                 ELSE
  20.                     PUSHARG MID$(A$,A1%,A2%)
  21.                 END IF
  22.         CASE "ASC","ASCII"
  23.             PUSHARG STR$(ASCII(POPARG$))
  24.         CASE "CHR"
  25.             PUSHARG CHR$(VAL(POPARG$))
  26.         CASE "INKEY"
  27.                 PUSHARG BOZOINKEY$
  28.         CASE "LEN"
  29.             PUSHARG STR$(LEN(POPARG$))
  30.     CASE "EQUALS","SAME"
  31.             IF POPARG$=POPARG$ THEN PUSHARG "-1" ELSE PUSHARG "0"
  32.         CASE "NOT"
  33.             PUSHARG STR$(NOT VAL(POPARG$))
  34.     CASE "FALSE"
  35.             PUSHARG "0"
  36.         CASE "TRUE"
  37.             PUSHARG "-1"
  38.     CASE "CWAIT"
  39.             DO
  40.                 a$=BOZOINKEY$
  41.                 LOOP WHILE A$=""
  42.                 PUSHARG A$
  43.         CASE "DIR"
  44.                 A$=POPARG$
  45.                 IF LEN(A$) THEN PUSHARG DIR$(A$) ELSE PUSHARG DIR$
  46.         CASE "EXIST"
  47.                 IF LEN(DIR$(POPARG$)) THEN PUSHARG "-1" ELSE PUSHARG "0"
  48.  
  49.  
  50.