Radio Shack TRS-80 Operation Manual page 147

Computer Graphics Operation Manual
- - - - - - - - - - T R S · B O
® - - - - - - - - - -
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-