Radio Shack TRS-80 - Page 144

Computer Graphics Operation Manual
----------TRS-BO ® ----------
SUBROUTINE LBFTST
LINEBF TEST
LOGICAL MSG (11)
CALL CLS
ENCODE (MSG, HJ~ )
FORMAT('LINEBF TEST')
CALL SETXY(~,~)
CALL LOCATE(~)
CALL GPRINT(ll,MSG)
CALL WAIT
IXP=639
ICLR=l
DO 1~ IX=~,12~
CALL SETXY(IX*2,IX+3~)
CALL SETXY(IXP,IXP-4~~)
CALL LINEBF(ICLR)
IXP=IXP-3
ICLR=ICLR-1
IF (ICLR.LT.~) ICLR=l
CONTINUE
CALL WAIT
RETURN
END
---------Iadlelhaell---------
-14~-