Radio Shack TRS-80 Operation Manual page 144

Computer Graphics Operation Manual
- - - - - - - - - - T R S - B O
® - - - - - - - - - -
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
- - - - - - - - - I a d l e l h a e l l - - - - - - - - -
-14~-