0 'LISTER.BA Larry McInteer mod. by Chia-Chi Chao, 01/01/88 1 'Club 100 Library (415) 939-1246 BBS, 937-5039 Newsletter, 932-8856 Voice 10 CLEAR600:DEFINTA-T:DEFSTRU-Z:P=0:A=0:DIMT(127):GOTO360 20 Y=Y+CHR$(PEEK(G)AND127):G=G+1:IFPEEK(G)<128THEN20ELSERETURN 30 X=X+CHR$(P) 40 A=A+1:P=PEEK(A):IFP=0ORP=GTHENRETURNELSE30 50 IFOTHENI=INSTR(O,X," "):IFITHENX=LEFT$(X,I-1)+MID$(X,I+1):GOTO50ELSEI=INSTR(O,X,"AS"):X=LEFT$(X,I-1)+" AS "+MID$(X,I+2) 60 IFDANDMID$(X,D+1,1)<>" "THENX=LEFT$(X,D)+" "+MID$(X,D+1) 70 U=SPACE$(T):MID$(U,1)=Z:PRINT#1,U;LEFT$(X,C-T):LC=LC+1:IFT+LEN(X)>CTHENX=MID$(X,C+1-T):Z=SPACE$(5)+"µ":GOTO70ELSEZ="" 80 T=M+F:X="":S=1:D=0:N=0:O=0:IFLANDLC+6>LTHENPRINT#1,STRING$(L-LC,13)ELSERETURN 90 PC=PC+1:PRINT#1," Listing of "W" "DATE$" "ZT;:IFLTHENPRINT#1," PAGE "PC; 100 PRINT#1,:PRINT#1,:LC=3:RETURN 110 Y="":P=PEEK(A):IFP>127THEN190ELSEIFPTHEN140ELSEGOSUB50 120 IFPEEK(A+2)=0THEN380ELSEA=AN 130 AN=PEEK(A)+PEEK(A+1)*256-2^16:M=6:T=M+F:S=1:Z=MID$(STR$(PEEK(A+2)+PEEK(A+3)*256),2):A=A+4:GOTO110 140 Y=CHR$(P):IFY=":"THENGOSUB50:IFPEEK(A+1)=142ANDPEEK(A+2)=255THENA=A+2:GOTO110ELSEIFPEEK(A+1)=145THENA=A+1:GOTO110 150 IFY=","ANDN=1ANDFTHENF=F-4:T=T-4 160 IFP=34THENG=P:GOSUB30 170 IFINSTR(" :(",Y)THENS=1ELSES=0 180 X=X+Y:A=A+1:GOTO110 190 Y="":G=T(P-128):GOSUB20 200 IFLEN(Y)>1ANDS=0THENX=X+" " 210 IFY="REM"ORY="'"THEN X=X+Y:G=0:GOSUB 40:GOTO 110 220 IFY="THEN"THENGOSUB50:M=M+4:E=0 230 IFY="ELSE"THENT=T-4:IFETHENM=M-4:T=T-4ELSEE=1 240 IFY="OPEN"THENO=1 250 IFY="FOR"THENIFOTHENO=LEN(X)+5ELSEF=F+4 260 IFY="NEXT"THENN=1:IFFTHENF=F-4:T=T-4 270 IFY="DEF"THEND=LEN(X)+6 280 IFLEN(Y)=1ORY="MAX"ORY="DEF"ORY="TAB("THENS=1ELSES=0 290 X=X+Y:A=A+1:P=PEEK(A):IFSORP=0ORINSTR(" :($",CHR$(P))ORP>127THEN110ELSEX=X+" ":GOTO110 300 FORI=-1617TO-1400STEP11:IFPEEK(I)=128THENFORJ=I+3TOI+8:PRINTCHR$(PEEK(J));:NEXT:PRINTSPACE$(4); 310 NEXT:OPENVFOROUTPUTAS1:PRINT:I=127:FORJ=0TOI:FORI=I+1TOI+9:IFPEEK(I)<128THENNEXTIELSET(J)=I:NEXTJ:PRINT:PRINT"Program to list"; 320 INPUTW:IFLEN(W)=0THEN320ELSEJ=INSTR(W,"."):IFJTHENW=LEFT$(W,J-1) 330 FORI=1TOLEN(W):J=ASC(MID$(W,I)):IFJ>96THENMID$(W,I)=CHR$(J-32) 340 NEXT:W=LEFT$(W+SPACE$(5),6):ZT=TIME$:FORI=-1617TO-1400STEP11:IF(PEEK(I)ANDNOT8)=128THENFORJ=1TO6:IFPEEK(I+2+J)=ASC(MID$(W,J,1))THENNEXTJ:A=PEEK(I+1)+PEEK(I+2)*256-2^16:A0=A:GOSUB90:GOTO130 350 NEXTI:PRINT"Try again";:GOTO320 360 CLS:L=66:C=80:V="LPT:":INPUT"Page Length [66]";L:INPUT"Width [80]";C:INPUT"Output to [LPT:]";V 370 CLS:IFV="LPT:"AND(INP(187)AND6)<>2THENPRINT"Printer not ready!":BEEP:GOTO370ELSE300 380 PRINT#1,:PRINT#1," Length"A-A0"bytes.":IFLTHENPRINT#1,STRING$(L-LC-2,13) 390 IFV="LPT:"THENMENU