home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / BOOLE.BAS < prev    next >
BASIC Source File  |  1993-11-07  |  268b  |  16 lines
  1. SUB BOOLE (B$)
  2. ' find .AND. .OR. .NOT. etc and modify boolean recursively
  3. IF INSTR(B$,".AND.") THEN
  4. p%=instr(B$,".AND.")
  5. C$=MID$(B$,p%+5):CALL BOOLE(C$)
  6. B$=LEFT$(B$,p%+4)+C$
  7.  
  8.  
  9. ELSEIF INSTR(B$,".OR.") THEN
  10.  
  11. ELSEIF INSTR(B$,".NOT.") THEN
  12.  
  13. END IF
  14.  
  15. END SUB
  16.