Radio Shack TRS-80 - Page 147

Computer Graphics Operation Manual
----------TRS·BO ® ----------
SUBROUTINE GPTST
GET AND PUT TEST
LOGICAL A(1~~~),MSG(16)
CALL CLS
ENCODE(MSG,l~~)
FORMAT('GET AND PUT TEST')
CALL SETXY(~,~)
CALL LOCATE(~)
CALL GPRINT(16,MSG)
CALL VIEW(~,3~,639,239,~,~)
CALL SETXY(l~~,l~~)
CALL SETXYR(3~,3~)
CALL LINEBF(l)
CALL GET(A,l~~~)
CALL CLS
CALL WAIT
CALL SETXY(l~~,l~~)
CALL PUT(A,l)
CALL WAIT
CALL VIEW(~,~,639,239,~,-1)
RETURN
END
----------lIadlelhaell---------
-143-