# Figure 18 for the MAD manual (III. 49)
copy "flowchart.pic"

down
terminal("START")
arrow 0.3
read("READ N, T(1)" "...T(N)")
A: arrow 0.3
read("READ L, W(1)" "...W(N)")
arrow 0.3
throughbox(SCAN, wid 1.4 "FOR I=1,1," "$I > N-L+1$")
arrow 0.3
throughbox(TST, wid 1.4 "FOR J=0,1," "$J >= L$")
arrow 0.3
B: terminal(wid 1.4 "T(I+J):W(J+1)")
C: arrow
label("TST")
arrow
box wid 1.4 "PRINT W(1)..." "W(L) \"found at" "character\", I"
arrow
connector("$alpha$")
left
line <- left left from A.c
connector("$alpha$")
vannotate(C, "$=$")
right
D: arrow from B.e
label("SCAN")
line right
down
arrow
box wid 1.2 "PRINT" "\"Word not Found\""
arrow
connector("$alpha$")
hannotate(D, "$!=$")