home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BOZOL2 / BOZOL2.ZIP / LOGIC.CMD < prev    next >
Encoding:
Text File  |  1994-02-08  |  304 b   |  14 lines
  1.         CASE "IF"
  2.             A%=VAL(POPARG$)
  3.                 IF A%=0 THEN ExitFlag%=-1
  4.  
  5.     CASE "WHILE"
  6.             A%=VAL(POPARG$)
  7.                 IF A%=0 THEN ExitFlag%=-1 ELSE RepeatFlag%=-1
  8.  
  9.     CASE "UNTIL"
  10.             a%=VAL(POPARG$)
  11.                 IF A%=0 THEN RepeatFlag%=-1 ELSE ExitFlag%=-1
  12.  
  13.  
  14.