repeat 5 insline `+'  ifelse t insline up  firstnb

ifelse c>32  `down repeat 2 `insline down''  `ifelse t insline up firstnb if c>32 `down insline' down down'

repeat 5 down firstnb

ifelse c>32  `insline insline'  `if b insline down firstnb if c>32 insline up'

repeat 5 up   firstnb del



`SUBROUTINE  ();'  firstnb down down down
`RETURN'           firstnb down
`END'              findstr ` (' prev

escimm (`)   findstr `)' next