on 1:input:*: {
if ($len($1-) > 420) {
{ %pos = 420
:loop
if %pos < 390 goto end |
%chara = $mid($1-,%pos,1)
if $asc(%chara) == 32 goto end |
%pos = %pos - 1
goto loop
:end
}
%first = $left($1-,%pos - 1)
%cuttext = $remove($1-,%first)
%prefix = $left(%first,4)
%mtch = { /me }
if (%prefix == %mtch) { %metxt = $remove(%first,%mtch) | /me %metxt 4<-cut } | /else { /say %first 4<-cut }
/say 4cut-> %cuttext
/halt
}
}