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 b b1
   output run list "c b1+1
end

to c 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