home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Elysian Archive
/
AmigaElysianArchive.iso
/
wp_dtp
/
tked.lha
/
TKEd
/
Rexx
/
MakeNumber.tked
< prev
next >
Wrap
Text File
|
1992-07-03
|
599b
|
36 lines
/* ARexx program number all the lines of a text */
options results
address 'TKEd.1' /* Name of TKEd's port */
SIGNAL ON BREAK_C
LastLine /* Get number of the last line in a text */
x=result
BeginOfFile /* Go to the top of the text */
GetLineNr /* Get linenumber */
y=result
do while y < x
BeginOfLine
WriteString y /* Write number */
WriteString ": " /* Write ': ' */
Cursor "DOWN"
GetLineNr /* Get linenumber */
y=result
end
BeginOfLine
WriteString y /* Write number */
WriteString ": " /* Write ': ' */
BREAK_C: