Subversion Repositories wimsdev

Rev

Rev 12964 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12964 Rev 12965
Line 2... Line 2...
2 
  !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 - 
 
5 
slib_title=Numération romaine
 - 
 
6 
slib_author=Bernadette, Perrin-Riou
 4 
slib_author=Bernadette, Perrin-Riou
7 
 
 5 
 
- 
 
 6 
slib_title=Numération romaine
- 
 
 7 
slib_parms=1\
- 
 
 8 
,number to convert (less than 3999)
- 
 
 9 
slib_out=Conversion en numération romaine
- 
 
 10 
 
8 
slib_example=456\
 11 
slib_example=456\
9 
654\
 12 
654\
10 
12
 13 
12
11 
slib_out=Conversion en numération romaine
 - 
 
- 
 
 14 
 
12 
!exit
 15 
!exit
13 
 
 16 
 
14 
:proc
 17 
:proc
15 
 
 18 
 
16 
slib_chif=$wims_read_parm
 19 
slib_chif=$wims_read_parm
Line 44... Line 47...
44 
     slib_x=$(slib_number[$slib_a+1;2])
 47 
     slib_x=$(slib_number[$slib_a+1;2])
45 
     slib_romain=$slib_i$slib_x$slib_romain
 48 
     slib_romain=$slib_i$slib_x$slib_romain
46 
   !endif
 49 
   !endif
47 
 !next
 50 
 !next
48 
 
 51 
 
49 
 slib_out=!replace internal , by  in $slib_romain
 52 
 slib_out=!replace internal , by in $slib_romain
50 
 slib_out=!nospace $slib_out
 53 
 slib_out=!nospace $slib_out