# Figure 17 for MAD manual (III.38)
# The original was in landscape mode, bottom atv the right page edge
copy "flowchart.pic"

right
A: connector("$epsilon$")
line 0.2
throughbox(C, "FOR PAY=ANNUAL PAY-" "MENT,ANNUAL" "PAYMENT" wid 1.8 ht 0.8) 
line 0.2
# Omitted Y in original
B: trisomy(wid 1.0 "    PAYMENT" "    SATIS-" "    FACTOR")
t_annotate(B.HI, "YES")
t_annotate(B.LO, "NO")
line right from B.HI
connector("$theta$")
line right from B.LO
label("C")
C: line right
printme(ht 1.0 "Comment" "UNSATIS-" "FACTORY" "PAYMENT")
line right 0.2
connector("$alpha$")
up
line <- from C.c
connector("$psi$")

move down 2 from A.sw
right
connector("$theta$")
line
box "Update" "Outstanding" "Principal"
D: line
box "Update" "Amunt in" "Escrow"
E: line
box ht 0.9 "Set indicator" "for punching" "new master" "record"
line
connector("$alpha$")
up
line <- from D.c
connector("$delta$")
line <- from E.c
connector("$gamma$")

move down 3 from A.sw
"On end of file"

move down 4 from A.sw
right
throughbox(D, "FOR", "i=1,1, i > N")
line 0.3
F: trisomy(wid 1.3 "INDICATOR(I)>0")
t_annotate(F.HI, "YES")
line right from F.HI
box "Punch new" "master" "cards"
line right 0.3
line to (Here, F.MID)
G: last line .end
line from F.LO to (G, F.LO) then to G
line 0.2 
label("D")
arrow 0.3
box invis wid 1.7 "TRANSFER TO SYSTEM"