home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / GFA / TUTORIAL / TRUTABLE.LST < prev    next >
File List  |  1989-07-29  |  324b  |  16 lines
  1. '  *** Simple Truth Table ***
  2. '
  3. CLS
  4. PRINT " P   Q   Result";CHR$(10);CHR$(13);"----------------"
  5. '
  6. FOR p%=TRUE TO FALSE
  7.   FOR q%=TRUE TO FALSE
  8.     result%=(NOT p%) AND q%                 !*** Insert Expression Here ***
  9.     PRINT p%;"   ";q%;"     ";result%
  10.   NEXT q%
  11. NEXT p%
  12. '
  13. PRINT CHR$(7);
  14. VOID INP(2)
  15. EDIT
  16.