home *** CD-ROM | disk | FTP | other *** search
- repeat 4 insline `+' up firstnb
-
- if c>32 `if c<>123 `down insline'' down
-
- repeat 4 down firstnb
-
- if c>32 insline
-
- repeat 4 up firstnb del
-
- `while ()' firstnb down
- `{' firstnb down down
- `} /* while + */' findstr `)' prev
-
- escimm (` ) first find `(' right while c<=32 right scanf %s down findr `+' $scanf firstnb up tab
-