image of READY prompt

Wang2200.org

Listing of file='TTYPRBUF' on disk='vmedia/701-2358C.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