; LineNum
; -------
; Simple program to read a text file and place line
; numbers at the start of each line.
;
report on
;priority low
readline test.txt,A
savetext ,test1.txt
setvar B,0
:loop
incvar B
lenstr %B,c
ifvar c,1,unit
ifvar c,2,ten
ifvar c,3,hun
setvar D,%B
goto line
:unit
setvar D,000%B
goto line
:ten
setvar D,00%B
goto line
:hun
setvar D,0%B
:line
setvar C,%D %A
banner Line no. = %D
;msgbox Text,%D,1
;ifmsg cancel,exit
savetext %C`\r\n`,test1.txt,A
nextline test.txt,A
ifnerror loop
:exit
banoff
msgbox Completed,Numbered file in test1.txt,0