Listing of file='TTYPRBUF' on disk='vmedia/731-0110A.wvd.zip'
# Sector 97, program filename = 'TTYPRBUF' 0010 REM TTYPRBUF 7/08/82 Buffer printer for TTY emulator 0100 GOTO 9900 : ON AGOTO 202,560,5310,600 0202 ON P2GOSUB 580 0560 DIM R0$(1)1,R$(40)60 0580 IF R+S=2THEN 100 : IF R<>STHEN 690 : R,S=1 : RETURN 0600 IF R>R9-ITHEN 770 0620 A=I-1 : BIN(R0$(1))=A : MAT COPY R0$()<1,1>TO R$()<R,1> : MAT COPY I$()<1,A>TO R$()<R+1,A> : R=R+I+1 0690 $GIO#5(A5$,Z$) : IF STR(Z$,8,1)=HEX(10)THEN 100 : MAT COPY R$()<S,1>TO R0$() : A=VAL(R0$(1)) : $GIO#5(A000,Z$)R$()<S+1,A> : S=S+A+2 : RETURN 0770 IF S=1THEN 820 : A=R-S : MAT COPY R$()<S,A>TO R$()<1,A> : R=A+1 : S=1 : GOTO 620 0820 STOP "Output device is too slow for input stream" 5310 S$="PRINTER ON" : PRINT HEX(0D0A);S$;HEX(0D0A); : R9=2200 : R,S,P2=1 : RETURN