variable procedure line numbers a main 10 12 15 arg main 11 15 17 20 23 25 28 doll * main 13 28 errout main 25 ifd doll 33 37 inpt main 11 19 23 28 input main 13 19 line doll 34 37 39 long doll 34 36 42 44 name doll 33 44 open * main 23 read * doll 37 right * doll 44 44 short doll 34 40 41 44 tab doll 34 35 44 44 write * doll 44 write * main 25 x doll 34 39 40 41 42 procedures: lines: doll 33-45 main 10-31