RUBOUT.MAC;777/-BF=RUBOUT.VGN;1
-82
	CMPB	TTTYPE+1,#202		; THE COLOR TUBE ISN'T
	BEQ	1$		; MARKED AS A CRT, BECAUSE OF THE NON-STD
				; BACKSPACE
-84
1$:
-138,138
50$:	MOV	#010,WTYPE	; ** ADDED
	TST	TABCNT			; CHECK CURSOR POSITION
	BNE	70$			; BRANCH IF NOT COLUMN 0
	CALL	PRICU1			; ELSE MOVE UP ONE LINE
	CALL	CRLF			; FOLLOWED BY CR/LF
70$:	CALL	TYPENC			; FLUSH THE TYPE OUT BUFFER; EXIT
	CLR	WTYPE	; ** ADDED
	RETURN
-181
	.PSECT	IMPURE,RW,D,LCL
WTYPE::	+0

	.END
/