Ngày tải lên :
11/09/2012, 13:53
... Procedure GetScreen; Begin move(mem[$B800:0] ,screen[ 1],80*25*2); cx:=wherex; cy:=wherey; asm mov ch,$01; mov cl,$00; mov ah,$01; int $10 end;{Hide cursor} End; Procedure PutScreen; Begin move (screen[ 1],mem[$B800:0],80*25*2); ... trình screensv minh hoạ cho đ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; ... monitor (!) có Screen Saver Linux Red Hat Windows, Tasbar DOS Tôi bạn làm nhiều Screen Saver thú vị, chương trình to tát giải trí rèn luyện bổ ích Hy vọng bạn tìm thấy điều thú vị với Screen Saver...