# Figure 8 for the MAD manual (III.5)
copy "flowchart.pic"

A: terminal("START")
arrow
throughbox(A,"FOR VALUES OF","P = 0B,1B")
arrow
throughbox(A,"FOR VALUES OF","Q = 0B,1B")
arrow
connector("$alpha sub 1$")

move down 1 from A.s
right
connector("$alpha sub 1$")
arrow
throughbox(A,"FOR VALUES OF","R = 0B,1B")
arrow
throughbox(A,"FOR VALUES OF","S = 0B,1B")
arrow
connector("$alpha sub 2$")

move down 2 from A.s
right
connector("$alpha sub 1$")
arrow
box wid 4.0 "PRINT P,Q,R,S, AND              " rjust "(P .AND. Q) .OR.(.NOT. P .AND. R .AND. S).OR.(R .OR. P)"
arrow down from last box.s
down
label("A")
arrow
terminal("STOP")