COBOL？極めてやんよ シュッシュ!!

[0122 デフォルトの名無しさん 2013/02/24(日) 22:14:28.26]

PERFORM WRITE-RTN THRU WRITE-EXT
VARYING S-IDX FROM 1 BY 1
UNTIL ( S-IDX > 10 ).