Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
20 reyssat 1
casecnt=!linecnt $allcases
2
!bound gotocase between integer 1 and $casecnt-1 default 0
3
!if $gotocase=0
16204 bpr 4
  !exit
20 reyssat 5
!endif
6
!reset newobject newObject
7
caseline=!line 1 of $allcases
8
caseline=!translate internal $	$ to $\
9
$ in $caseline
10
caseline=!replace line number 1 by $gotocase in $caseline
11
caseline=!translate internal $\
12
$ to $	$ in $caseline
13
cases=!line 2 to -1 of $allcases
14
allcases=$caseline\
15
$cases
16
!read deduc/objects.get
17
!read deduc/methreset erase