Control Characters to Reset Page Length for Multi-Page LLIST

MORE INFORMATION

WIDTH LPRINT 255    'Sets infinite printer line width, suppressing RETURN.
TF$=CHR$(29)+"A@"   'Codes to set starting top of form (TOF).
BF$="C@"            'Codes to set bottom of form (BOF).
NF$="A@"+CHR$(30)   'Codes to set top of next form.
LPRINT TF$;         'This and the next line set top of form (TOF)
FOR I=1 TO 58 : LPRINT "@@"; : NEXT I
LPRINT BF$;         'This and the next line set bottom of form (BOF)
FOR I=1 TO 6 : LPRINT "@@"; : NEXT I
LPRINT NF$          'Sets top of next form.
'Demonstrate the new page length:
WIDTH LPRINT 80     'Enable RETURNs at 80th character (or as desired).
LPRINT CHR$(12);    'Do a form feed, since first line had control chars.
FOR J=1 TO 75 : LPRINT J : NEXT I   'Tests the new page length.