' *** LIN_MAX.LST *** 2nd GFA-Manual, page 9-9 > PROCEDURE lin_max(n) ' ' *** Change number of PRINT-lines on TOS-screen (normally 25) ' *** Lines below the last line are 'protected', e.g. not affected by CLS ' *** Even after EXEC the lines are still protected (useful for status-bar) ' ' *** Standard: lin.max& ' n=MIN(n,25) ! more than 25 lines not possible... INT{L~A-42}=PRED(n) ! subtract one because lines are numbered 0-24 lin.max=n ! change Standard Global RETURN ' ********* '