Listing of file='TBO.BOOL' on disk='vmedia/toolbox.wvd.zip'
# Sector 822, program filename = 'TBO.BOOL'
0010 REM .TBO.BOOL 12/10/86
0020 DIM A$1,B$1,C$1,R$1,D$1,E$60
: DIM D$1
0030 INIT(00)A$
0040 PRINT HEX(03);"Stmt is C$ = BOOL h A$"
0050 PRINT " Rcvr = BOOL h Operand"
0060 REM %0 A$ Operand
: REM %0 S$ Rcvr reset value
: A$=HEX(0C)
: R$=HEX(0A)
0070 PRINT "Start with A$=";HEXOF(A$);" C$=";HEXOF(R$)
0080 C$=A$
: GOSUB '100("in A$ Operand")
0090 C$=R$
: GOSUB '100("in C$ Receiver")
0100 PRINT "-- - - - - - - - - BOOL h Logical meaning"
0110 C$=R$
: C$=BOOL 0 A$
: GOSUB '100("Bool 0 = 0 0 0 0 .. Null")
0120 C$=R$
: C$=BOOL 1 A$
: GOSUB '100("Bool 1 = 0 0 0 1 .. not-OR")
0130 C$=R$
: C$=BOOL 2 A$
: GOSUB '100("Bool 2 = 0 0 1 0 .. operand does not imply receiver")
0140 C$=R$
: C$=BOOL 3 A$
: GOSUB '100("Bool 3 = 0 0 1 1 .. complement of receiver")
0150 C$=R$
: C$=BOOL 4 A$
: GOSUB '100("Bool 4 = 0 1 0 0 .. receiver does not imply operand")
0160 C$=R$
: C$=BOOL 5 A$
: GOSUB '100("Bool 5 = 0 1 0 1 .. complement of operand")
0170 C$=R$
: C$=BOOL 6 A$
: GOSUB '100("Bool 6 = 0 1 1 0 .. exclusive OR")
0180 C$=R$
: C$=BOOL 7 A$
: GOSUB '100("Bool 7 = 0 1 1 1 .. not-AND")
0190 C$=R$
: C$=BOOL 8 A$
: GOSUB '100("Bool 8 = 1 0 0 0 .. AND")
0200 C$=R$
: C$=BOOL 9 A$
: GOSUB '100("Bool 9 = 1 0 0 1 .. equivilence")
0210 C$=R$
: C$=BOOL A A$
: GOSUB '100("Bool A = 1 0 1 0 .. receiver = operand")
0220 C$=R$
: C$=BOOL B A$
: GOSUB '100("Bool B = 1 0 1 1 .. receiver implies operand")
0230 C$=R$
: C$=BOOL C A$
: GOSUB '100("Bool C = 1 1 0 0 .. operand = receiver")
0240 C$=R$
: C$=BOOL D A$
: GOSUB '100("Bool D = 1 1 0 1 .. operand implies receiver")
0250 C$=R$
: C$=BOOL E A$
: GOSUB '100("Bool E = 1 1 1 0 .. OR")
0260 C$=R$
: C$=BOOL F A$
: GOSUB '100("Bool F = 1 1 1 1 .. identity")
0270 PRINT HEX(0C)
: STOP
0280 DEFFN'100(E$)
: PRINT HEXOF(C$);" ";
0290 GOSUB 320
0300 PRINT " ";STR(E$,,6);" ";STR(E$,21)
: RETURN
0310 DIM D$1,C$1,B$1
0320 FOR A=1 TO 8
0330 D$=C$AND HEX(80)
: ROTATE(D$,1)
: D$=ADDHEX(30)
: PRINT D$;" ";
: IF A=4THEN PRINT " ";
0340 ROTATE(C$,1)
0350 NEXT A
0360 RETURN