 REPLAC("\- [0-9]+ \-","","c-f-w-r+s-p-g+")
 REPLAC("","","c-f-w-r-s-p-g+")
 PutKey($8400) Rem Ctrl+PgUp
 PutKey($4700) Rem Home
Loop0:
 String = GETSTR()
 Length = RdBuf(String,0)
 DisBuf(String)
 if WhereY() == MaxY() then Stop()
 if Length == 0 then PutKey($1519) ; GoTo Loop0; Rem ^y
 PutKey($5000) Rem Down
 GoTo Loop0
