aUCBLogo Demos and Tests / testrun


to testrun
;   check [run [a]] 2
   
linenumbers=[10 20]
   
def=[[]
      
[type 5]
      
[print []]
      
[nextline 10]
   
]
   
define "basic%10 def
   
def=[[]
      
[type 6]
      
[print []]
      
[nextline 20]
   
]
   
define "basic%20 def
   
basic%10
end

to a
   
output run list "b 1
end

to b1
   
output run list "c b1+1
end

to c1
   
output c1
end

to nextline :num
   
make "target member :num :linenumbers
(show num linenumbers)
show target
;pause
   
if not emptyp :target [make "target butfirst :target]
   
if not emptyp :target [run (list (word "basic% first :target))]
end