This module is part of the original MMBasic library. It is reproduced here with kind permission of Hugh Buckle and Geoff Graham. Be aware it may reference functionality which has changed or is deprecated in the latest versions of MMBasic.¶
Note: Any required file(s) are available in the attachments tab (top right).
PAGELIST.bas
' Dump a text file to screen, page by page, wrapping lines if required.
' Lines must be <= 255 characters
' Author: Rodney Entwistle from a UNIX idea in the 1980s
'
Input "Enter filename: ",fname$
Open fname$ For input As #1
lines_per_page=34 'integer
ch_per_line=75 'integer
count=0:line_no=1
Do
Font #1,1,1:Print Format$(line_no,"%4.0f");:Font #1,1,0
Line Input #1,a$ 'len(a$)>255 not allowed
wraps=Fix(Len(a$)/ch_per_line)+1 'how many screen lines?
If ((Len(a$) Mod ch_per_line)=0) And (Len(a$)<>0) Then
wraps=wraps-1 'Take care of special cases
EndIf
For i=1 To wraps
Print Tab(6);Mid$(a$,(i-1)*ch_per_line+1,ch_per_line)
count=count+1
If count=lines_per_page Then
Print Chr$(10);Chr$(13);: Font #1,1,1
Print " Press space bar for next page or 'q' to end: ";:Font #1,1,0
key: Do: b$=Inkey$: Loop Until b$<>"" 'Wait for space bar press
If b$="q" Or b$="Q" Then GoTo finish
If b$<>Chr$(32) Then GoTo key
Print Chr$(10);Chr$(13); ' move to new line
count=0
EndIf
Next
line_no=line_no+1
Loop Until Eof(#1)
finish: Close #1