home *** CD-ROM | disk | FTP | other *** search
- foreachcnt = 0
- loop {
- ask "$0> " line
- if line = "end" {
- break;
- }
- increment foreachcnt
- cdr -0 line ==> cmd$foreachcnt
- }
- if foreachcnt = "0" {
- quit
- }
- foreachvar = $1
- while "$2" != "" {
- rem $2 => $foreachvar
- foreachcounter = 0
- while foreachcounter != foreachcnt {
- increment foreachcounter
- cdr -0 cmd$foreachcounter ==> line
- $line[0:-3]
- }
- shift
- }
-