「直上のマークからカーソル位置までマーク」修正

早いけど、修正。ミスを直しました。　たぶん、もう問題ないと思います。強引なのは変わりませんけど。

//!*script
// 直上のマークからカーソル位置までマーク
icursor = PPx.EntryIndex;
if ( PPx.EntryFirstMark ) {
istart = PPx.EntryIndex;
if ( istart < icursor ) {
PPx.EntryIndex = icursor;
while ( (PPx.EntryIndex != istart) && (PPx.EntryMark == 0) ) {
PPx.Execute('*cursor 0,-1,3,B000,0,B010');
}
PPx.Execute('*cursor 0,1,3,B000,0,B010');
while ( PPx.EntryIndex < icursor ) {
PPx.EntryMark = 1;
PPx.Execute('*cursor 0,1,3,B000,0,B010');
}
PPx.Execute('%K"@^\\A"');
} else {
PPx.EntryIndex = icursor;
}
}