home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / LOGIC.CMD < prev    next >
OS/2 REXX Batch file  |  1994-01-29  |  1KB  |  58 lines
  1. 'logic commands
  2. GOTO EXITSELECT
  3. PtrCASE :'                    CASE "CASE"
  4.     IF VAL(POPARG$) THEN IfState%=%True ELSE Ifstate%=%False
  5.  
  6. GOTO EXITSELECT
  7. PtrELSE:'       CASE "ELSE"
  8.             IIfState%=0
  9.                 IfState%=0
  10.  
  11. GOTO EXITSELECT
  12. PtrENDIF:'      CASE "ENDIF"
  13.                 IIfState%=-1
  14. GOTO EXITSELECT
  15. PtrIF:' CASE "IF"
  16.             A#=VAL(POPARG$)
  17.                 IF A#=0 THEN IIfState%=0:'ExitFlag%=-1
  18.  
  19. GOTO EXITSELECT
  20.  
  21. PtrDO:
  22.         PUSHON %DoStack,RPRG$
  23. GOTO EXITSELECT
  24.  
  25. 'PtrFOR:
  26. '
  27. 'GOTO EXITSELECT
  28. '
  29. 'PtrNEXT:
  30. '
  31.  
  32. GOTO EXITSELECT
  33. PtrWHILE:'      CASE "WHILE"
  34.             A#=VAL(POPARG$)
  35.                 IF A# THEN
  36.                     RPRG$=POPOFF$(%DoStack)
  37.                         PUSHON %DoStack,RPRG$
  38.                 ELSE
  39.                     DUMMY$=POPOFF$(%DoStack)
  40.                 END IF
  41.  
  42. GOTO EXITSELECT
  43. PtrUNTIL:'      CASE "UNTIL"
  44.             a#=VAL(POPARG$)
  45.                 IF A#=0 THEN
  46.                     RPRG$=POPOFF$(%DoStack)
  47.                         PUSHON %DoStack,RPRG$
  48.                 ELSE
  49.                     DUMMY$=POPOFF$(%DoStack)
  50.                 END IF
  51.  
  52. GOTO EXITSELECT
  53. PtrON:' CASE "ON"
  54.             PUSHARG "-1"
  55. GOTO EXITSELECT
  56. PtrOFF:'        CASE "OFF"
  57.             PUSHARG "0"
  58.