34 lines
461 B
Text
34 lines
461 B
Text
BYTE FUNC a(BYTE x)
|
|
PrintF(" a(%B)",x)
|
|
RETURN (x)
|
|
|
|
BYTE FUNC b(BYTE x)
|
|
PrintF(" b(%B)",x)
|
|
RETURN (x)
|
|
|
|
PROC Main()
|
|
BYTE i,j
|
|
|
|
FOR i=0 TO 1
|
|
DO
|
|
FOR j=0 TO 1
|
|
DO
|
|
PrintF("Calculating %B AND %B: call",i,j)
|
|
IF a(i)=1 AND b(j)=1 THEN
|
|
FI
|
|
PutE()
|
|
OD
|
|
OD
|
|
PutE()
|
|
|
|
FOR i=0 TO 1
|
|
DO
|
|
FOR j=0 TO 1
|
|
DO
|
|
PrintF("Calculating %B OR %B: call",i,j)
|
|
IF a(i)=1 OR b(j)=1 THEN
|
|
FI
|
|
PutE()
|
|
OD
|
|
OD
|
|
RETURN
|