; Test overprinting on the universal interface.
;
; Should print "THIS IS A PRINT TEST WITH THESE CHARACTERS >@@@< OVERPRINTED"
;              "THIS IS A PRINT TEST WITH THESE CHARACTERS >@@@< OVERPRINTED"


; Change the overprint character from DEL to @.

deposit LP OVPCHR '@'


; Set up the log(s).

set -n console log=yovrprt.log
set -n console debug=debug.log

set lp debug


; Set the CLK into diagnostic mode.

set clk realtime


; Set up the printer.

attach -n lp yovrprt.txt


; Enter the diagnostic.

set console delay=100000
set -a -i console halt=>

set console response=~m
go

set console response=DEV 0,14,5,99,0~m
go

set console response=DB AA,30,S~m
go

set console response=THIS IS              WITH THESE CHARACTERS >ABC<     PRINTED~m
go

set console response=DB BB,27,S~m
go

set console response=        A PRINT TEST      THESE            >DEF< OVER ~m
go

set console response=MC,0~m
go

; Overprint a longer line with a shorter one.

set console response=WD 0,AA,\%000,30~m
go

set console response=WD 0,BB,\%102,27~m
go

; Overprint a shorter line with a longer one.

set console response=WD 0,BB,\%000,27~m
go

set console response=WD 0,BB,\%000,27~m
go

set console response=WD 0,AA,\%102,30~m
go

set console response=MC 0~m
go

set console response=END~m
go

set console response=RUN~m
go