--
;
CLEAR.ICON
     BC=1204  HL=HL+BC
     (VADRS)=HL PORT($5C)=A !CLEAR.SUB
     HL=(VADRS) PORT($5D)=A !CLEAR.SUB
     HL=(V