... write(#219);End;Procedure GetScreen;Beginmove(mem[$B800:0] ,screen[ 1],80*25*2);cx:=wherex; cy:=wherey;asm mov ch,$01; mov cl,$00;mov ah,$01; int $10end;{Hide cursor}End;Procedure PutScreen;Beginmove (screen[ 1],mem[$B800:0],80*25*2);gotoxy(cx,cy);asm ... trình screensv dưới đây minh hoạ cho những điều nói trên:(* screensv.pas - Dinh Manh Dat *)(* Compiling to EXE to run *){$A+,B-,D+,E+,F+,G-,I-,L+,N-,O-,P-,Q-,R-,S-,T-,V-,X+}{$M 1024,0,0}Program ScreenSaver;Uses ... pointer ;screen: array[1..80*25*2] of byte;cx,cy,i: byte;Procedure GuardScreen;Beginclrscr;gotoxy(25,10);for i:=1 to length(str) dobegin textcolor(random(16)); write(str[i]); end;End;Procedure GuardScreen2;{Brick...