FUNCTION ANDA(X,Y)
   IF X=1 AND Y=1 THEN
      LET ANDA=1
   ELSE
      LET ANDA=0
   END IF
END FUNCTION

FUNCTION ORA(X,Y)
   IF X=0 AND Y=0 THEN
      LET ORA=0
   ELSE
      LET ORA=1
   END IF
END FUNCTION

FUNCTION NOTA(X)
   IF X=1 THEN
      LET NOTA=0
   ELSE
      LET NOTA=1
   END IF
END FUNCTION

FUNCTION XORA(X,Y)
   IF X=Y THEN
      LET XORA=0
   ELSE
      LET XORA=1
   END IF
END FUNCTION

PRINT
PRINT "�^���\"
PRINT
PRINT "  �`  �a    ��  ��  �m  ND  NR  XR  NX"
PRINT " ======================================"
FOR t=1 TO 4
   READ a,b
   LET f1=ANDA(a,b)
   LET f2=ORA(a,b)
   LET f3=NOTA(a)
   LET f4=NOTA(ANDA(a,b))
   LET f5=NOTA(ORA(a,b))
   LET f6=XORA(a,b)
   LET f7=NOTA(XORA(a,b))
   PRINT "  ";a;" ";b;"   ";f1;" ";f2;" ";f3;" ";f4;" ";f5;" ";f6;" ";f7
NEXT t
DATA 1,1,1,0,0,1,0,0
PRINT
PRINT "      1 : �^      0 : �U"
PRINT "      �� = AND ( A, B )"
PRINT "      �� = 0R ( A, B )"
PRINT "      �m = NOT ( A )"
PRINT "      ND = NAND ( A, B )"
PRINT "      NR = N0R ( A, B )"
PRINT "      XR = X0R ( A, B )"
PRINT "      NX = NX0R ( A, B )"
PRINT
END