Subversion Repositories wimsdev

Rev

Rev 20 | Blame | Compare with Previous | Last modification | View Log | RSS feed

casecnt=!linecnt $allcases
!bound gotocase between integer 1 and $casecnt-1 default 0
!if $gotocase=0
  !exit
!endif
!reset newobject newObject
caseline=!line 1 of $allcases
caseline=!translate internal $  $ to $\
$ in $caseline
caseline=!replace line number 1 by $gotocase in $caseline
caseline=!translate internal $\
$ to $  $ in $caseline
cases=!line 2 to -1 of $allcases
allcases=$caseline\
$cases
!read deduc/objects.get
!read deduc/methreset erase