d * PLIST.BAS * PAGE LISTER UTILITY FOR CODEWORKS MAGAZINEn * 3838 S. WARNER ST. TACOMA, WA 98409 (206) 475-2219Ns * CodeWorks' modem download: (206) 475-2356 [300, 8, no, 1 stop]x * WRITTEN BY TERRY R. DETTMANN -- Adapted for Tandy 600 by Dave Thomas AZ I P:S$S$" ":D$D$"-": LI :LW<:LP<:PLB:DS: S$(X)(S$,,X): D$(X)(D$,,X)' TRUE:FALSE8 WP$" :;+-,"> g : D$( )" The CodeWorks "D$(!); )"P R I N T E R P A G E F O R M A T T E R" )"a page formatter by Terry R. Dettmann" D$(P);   )"Current settings:"2 )"1 - Left margin is now set at ---";LIb )"2 - Line length is now set at ---";LW )"3 - Page length is now set at ---";PL )"4 - Lines to print now set at ---";LP ")"5 - Line spacing is now set at --";DS ,; 6  )"Press ENTER for current settings, 1 to 5 for changes. "R @Q$: Q$"" @h J Q$( )  T Q$"1" Q$"5" @ ^ (Q$) h,|,,, h );:"How many spaces for left margin --------- ";LI: + | );:"How many characters per line ------------ ";LW: m  );:"How long is your printed page ----------- ";PL:   );:"Print how many lines on the page -------- ";LP:   );:"Enter 1 for single, 2 for double spacing- ";DS  DS DS    V  );: "Name of file to print (must be an ASCII file) ";FF$y  FF$ AS 1:LCc:PG:MX  ()   #,LN$  0    ( ): &0 ------ PRINT A LINE -----------------------------------------------:SFFALSE0< SL (LN$)O> (LN$,SL,)" " NUD~N (LN$,SL,)" " SLSL: NX LCLP b l S$(LI);PL$:LCLCv DS LCLP " ":LCLC LN$"" : X; ------ PRINT PAGE HEADER ------------------------------------------Y I MX:" "::PGPG S$(LI);"FILENAME: ";FF$;LW)"PAGE";PG S$(LI);D$(LW)MX:LC: ------- SELECT THE LINE TO PRINT ------------------------------SFFALSE# (LN$)LW PL$LN$:LN$"":8 JLW  ] (LN$,J,)(") SF SFn SF  I (WP$) (WP$,I,)(LN$,J,)  I J JLWPL$(LN$,,J):LN$S$(SL)(LN$,J)