' *** SCRLTXTU.LST *** 2nd GFA-Manual, page 20-30 > PROCEDURE scroll_text_up(begin,end) ' ' *** Scroll text-lines begin&-end& one line up on logical TOS-screen ' *** The (remaining) last line at end& is erased ' ' *** Standard: logbase% char.height& x.max& ' LOCAL sy,h,dy IF begin>1 AND end>=begin sy=MUL(PRED(begin),char.height) h=MUL(SUCC(SUB(end,begin)),char.height) dy=SUB(sy,char.height) RC_COPY logbase%,0,sy,x.max,h TO logbase%,0,dy PRINT AT(1,end);CHR$(27);"K"; ! clear last line ELSE OUT 2,7 ! illegal scroll: ping ENDIF RETURN ' ********* '