Tag: find page length

Routine to find page length

Bill Martens
Posted by: Bill Martens Date: July 1, 1978
0 Likes 150 Views

This handy little subroutine can be used in two manners; to fill a screen page with repetitive material or to determine the length of a screen page of print statements. Assume line 100 is a print statement with which you wish to fill the page. 100 PRINT” “:GOSUB 400 400 IF PEEK(37) < 18 THEN RETURN 410 POP:PRINT “FOR NEW PAGE HIT ANY KEY”:CALL 756:GOTO 000 Line 400 reads the cursor and finds whereitis on the page. If less than…