19 lines
581 B
Mathematica
19 lines
581 B
Mathematica
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
; ;
|
||
|
|
; Copyright 2001 Sanchez Computer Associates, Inc. ;
|
||
|
|
; ;
|
||
|
|
; This source code contains the intellectual property ;
|
||
|
|
; of its copyright holder(s), and is made available ;
|
||
|
|
; under a license. If you do not know the terms of ;
|
||
|
|
; the license, please stop and do not read further. ;
|
||
|
|
; ;
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
spawn: ;implement the verb: SPAWN
|
||
|
|
SPAWN
|
||
|
|
n spawnline
|
||
|
|
s spawnline=$e(comline,cp-$l(ntoken),999)
|
||
|
|
u io:ctrap=$c(3,25)
|
||
|
|
zsy spawnline
|
||
|
|
u @useio
|
||
|
|
q
|