summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.sci
blob: 0c239842fd98baec322544813d4e4c1cb68373df (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//  10.04.16
//  10.05.12
//  10.10.20 ( available for numeric )

function Texfor(I,First,Last)
  global TEXFORLEVEL TEXFORLAST
  TEXFORLEVEL=TEXFORLEVEL+1;
  Texsetctr(I,'0');
  Texsetctr(I,string(First)+'-1');
  Texcom('');
  Texcom('{');
  Texcom('\loop');
  Texsetctr(I,'+1');
  TEXFORLAST($+1)=string(Last);
endfunction;