0 'UTLPW2.BA - BY PHIL WHEELER 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ONERRORGOTO6:CLS:PRINT:FILES:PRINT@280,"Name Kill Filn Prnt Menu";:KEY(1)ON:KEY(2)ON:KEY(3)ON:KEY(4)ON::KEY(8)ON 3 ONKEYGOSUB4,5,7,15,,,,6:A3$=INKEY$:IFA3$=CHR$(13)THEN6ELSEGOTO3 4 CLS:PRINT:FILES:LINEINPUT"reNAME which file?:";A$:IFA$=""THEN2ELSELINEINPUT"as what file?:";B$:NAMEA$ASB$:GOTO4 5 CLS:PRINT:FILES:LINEINPUT"KILL which file?:";C$:IFC$=""THEN2ELSEKILLC$:GOTO5 6 MENU 7 DEFINTA-Z:DEFSTRD-F:DIMF(23),A(23):FORX=-1408TO-1639STEP-11:IFPEEK(X)THENFORZ=0TO7:F(Y)=F(Y)+CHR$(PEEK(X+3+Z)):NEXT:GOSUB14 8 NEXT:F(Y-1)="NonameBA":F(Y-2)="Paste BF":X=-1103:GOSUB14:Y=Y-1:X=Y\2 9 FORZ=0TOY-X:W=Z 10 IFA(W)>A(W+X)THENB=A(W):A(W)=A(W+X):A(W+X)=B:E=F(W):F(W)=F(W+X):F(W+X)=E:W=W-X:IFW>-1THEN10 11 NEXT:X=X\2:IFXTHEN9ELSEF(Y)="Reserved":F(Y+1)="File BF":A(Y+1)=A(Y)+MAXRAM-HIMEM:Y=Y+2:A(Y)=A(Y-1)+MAXFILES*267:Z=0 12 CLS:FORW=ZTO15+Z:PRINT@(W-Z)*20,LEFT$(F(W),6)"."RIGHT$(F(W),2);:PRINTUSING" #####";A(W+1)-A(W);:IFW+1=YTHENW=98 13 NEXT:E=INPUT$(1):Z=W:IFW=99THENMENUELSE12 14 A(Y)=PEEK(X+2)*256+PEEK(X+1)-65536:Y=Y+1:RETURN 15 MAXFILES=2:CLS:CLEAR2000:S=0:RV$=CHR$(27)+"p":NO$=CHR$(27)+"q":L=8:R=75:X$="N":HD$="N":LS=1:C$=STRING$(60,32):LN=0:PG=1 16 GOSUB59 17 PRINT"You have these files in memory.....":PRINTRV$;:FILES 18 PRINTNO$;:PRINT@280,"Print .DO";:PRINT@286,"";:LINEINPUTN$ 19 CLS:GOSUB59:PRINT@40,"Page Margins (L,R) ";:PRINT@80,"Page Spacing (1 or 2) ";:PRINT@120,"Page Title "; 20 PRINT@160,"Page 1 Title (Y/N)? ";:PRINT@200,"Non Stop or Pause (N/P)";:PRINT@240,"Parallel or Serial (P/S)"; 21 PRINT@65,"";:INPUTL,R:IFL=0THENL=1 22 L$=STRING$(L-1,32):PRINT@105,"";:INPUTLS 23 PRINT@145,"";:INPUTH$ 24 PRINT@185,"";:INPUTHD$ 25 PRINT@225,"";:INPUTX$ 26 PRINT@265,"";:INPUTSP$ 27 LPRINTCHR$(27)"E"; 28 IFSP$="s"ORSP$="S"THENOPEN "COM:78N1E"FOROUTPUT AS 2:GOTO30 29 OPEN"LPT:"FOROUTPUTAS2 30 OPENN$FORINPUTAS1 31 CLS 32 IFH$=""THENPH$=L$+DATE$:GOTO35 33 PH$=STRING$(R-8,32)+DATE$ 34 IFH$<>""THENMID$(PH$,L,(LEN(H$)))=H$ 35 IFHD$="Y"ORHD$="y"THENPR$=L$:GOSUB56 36 PR$=L$ 37 IFLN>=57THENGOTO53 38 FORJ=LEN(PR$)TOR 39 PR$=PR$+INPUT$(1,1) 40 IFEOF(1)THENCLOSE1:EN=1:GOTO48 41 IFRIGHT$(PR$,1)=CHR$(10)THENPF=1:GOTO47 42 IFRIGHT$(PR$,1)=CHR$(128)THENPR$=LEFT$(PR$,J-1):GOTO53 43 NEXTJ 44 IFMID$(PR$,J,1)=" "THEN46 45 J=J-1:GOTO44 46 NX$=MID$(PR$,J+1,R):PR$=MID$(PR$,1,J):GOTO48 47 PR$=LEFT$(PR$,LEN(PR$)-2) 48 IFMID$(PR$,L,3)=" "THEN50 49 IFMID$(PR$,L,1)=" "THEN PR$=MID$(PR$,2,LEN(PR$)):GOTO49 50 PRINTCHR$(255);:PRINT#2,PR$;CHR$(13);:LN=LN+1:IFEN=1THEN53 51 IFLS=2THENPRINT#2,CHR$(13);:LN=LN+1 52 PR$=L$+NX$:NX$="":GOTO 37 53 PRINT#2,CHR$(12);:PG=PG+1 54 IFEN=1THENCLOSE2:MENU 55 IFX$<>"n"ANDX$<>"N"THENGOSUB58 56 PRINT#2,PH$:PRINT#2,L$;"Page ";PG 57 PRINT#2,"":PRINT#2,"":LN=4:GOTO38 58 INPUTX;:RETURN 59 PRINTRV$+" Radio Shack Printer Program "+NO$;:RETURN