home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 3
/
Merciful_Release_3.bin
/
software
/
b
/
blacksedv1.0.lha
/
BED
/
Rexx
/
UnIndentBlk.bed
< prev
next >
Wrap
Text File
|
1996-01-28
|
483b
|
36 lines
/*
** $VER: UnindentBlk.bed 1.0 (02.01.96)
**
** Unindent the selected block
*/
OPTIONS RESULTS
SetInputLock ON
SetDisplayLock ON
GetBlkDims
PARSE VAR RESULT mode . start . end
GetCursorPos
PARSE VAR RESULT y x .
IF mode = OFF THEN DO
SetStatusBar "Error: No block selected!"
END; ELSE DO
SetStatusBar "Unindenting the block..."
Move LINE start
RecordMacro QUIET
ShiftLeft TABS
MoveDown
EndMacro
PlayMacro end-start
Move y x
END
SetDisplayLock OFF
SetInputLock OFF