Add Space Between Files When Printing ALL

Publication

Pub Details

Pages

When you set up the print format, you can just enter ALL to print out the whole file. Unfortunately, no space is printed between files. I could be wrong, but I think in most cases a space would be desired so I changed the routine so that whenever ALL is the print format, a blank line is printed first. If you don’t want the space, you will need to enter the format as: 1/2/3/4/5/6/7/ etc.

6515 IF A$="ALL/" THEN LET C$=CHR$ O: FOR X=U TO J: LET C$=C$+CHR$ X: NEXT X: LET D=INT PI: GO TO VAL "6600"
9996 DIM D$(VAL "27529"): LET P=VAL "20": LET O=NOT PI: LET B=O: LET U=SGN PI: LET H=U+U: LET F=H+H: LET G=VAL "7": LET K=VAL "10": LET J=VAL "15": LET Q=CODE " ": LET R=VAL "256": LET A$="ALL": LET C$=CHR$ O: FOR X=U TO J: LET C$=C$+CHR$ X: NEXT X: LET S=O

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.