LOGIC(A,B)
 WRITE !,A," AND ",B," IS ",A&B
 WRITE !,A," OR  ",B," IS ",A!B
 WRITE !,"NOT ",A," AND ",B," IS ",'(A)&B
 WRITE !,"NOT ",A," OR ",B," IS ",'(A)!B