Rev 16904 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 16904 | Rev 17035 | ||
---|---|---|---|
Line 45... | Line 45... | ||
45 | !ifval $j_<$(l_[$m_]) |
45 | !ifval $j_<$(l_[$m_]) |
46 | j_=!char 2 to 3 of $[101+$j_] |
46 | j_=!char 2 to 3 of $[101+$j_] |
47 | output=$a_$m_$j_ |
47 | output=$a_$m_$j_ |
48 | !else |
48 | !else |
49 | !ifval $m_=12 |
49 | !ifval $m_=12 |
50 | a_=!char 2 to |
50 | a_=!char 2 to 5 of $[10001+$a_] |
51 | output=$(a_)0101 |
51 | output=$(a_)0101 |
52 | !else |
52 | !else |
53 | m_=!char 2 to 3 of $[101+$m_] |
53 | m_=!char 2 to 3 of $[101+$m_] |
54 | output=$a_$(m_)01 |
54 | output=$a_$(m_)01 |
55 | !endif |
55 | !endif |
Line 68... | Line 68... | ||
68 | !else |
68 | !else |
69 | m_=!char 2 to 3 of $[99+$m_] |
69 | m_=!char 2 to 3 of $[99+$m_] |
70 | output=$a_$m_$(l_[$[$m_]]) |
70 | output=$a_$m_$(l_[$[$m_]]) |
71 | !endif |
71 | !endif |
72 | !else |
72 | !else |
73 |
|
73 | a_=!char 2 to 5 of $[9999+$a_] |
74 | output=$(a_)1231 |
74 | output=$(a_)1231 |
75 | !endif |
75 | !endif |
76 | !endif |
76 | !endif |
77 | !exit |
77 | !exit |
78 | 78 |