sub.cprog { if ($1 == begin) { .fopen cprog script\txt\cprog.txt } elseif ($1 == end) { .fclose cprog } else { if (!$feof) { tokenize 160 $fread(cprog) } else { return } return $+(&,$1,:run) -p $2- } }