'===========================================================================
' Subject: COPY TEXT BUFFER                  Date: 10-25-99 (18:05)       
' Author:  Randall L. Glass                  Code: PB                     
' Origin:  rlglass@yahoo.com               Packet: PB.ABC
'===========================================================================
'-------------------------------------------------------------------------
'
'                       Copy Text Buffer
'                      BY Randall L Glass
'                      CopyRight Aug3,1999
'
'---------------------------------------------------------------------------
'
' Email rlglass@yahoo.com
' Snail Mail RR1,BOX 248,McLeansboro,IL 62859
'---------------------------------------------------------------------------
'
' This Program is Public Domain(PowerBasic Code)
'
'----------------------------------------------------------------------------

SUB CopyTextBuffer()
WAIT &H3DA,8      ;Wait for vertical retrace
! PUSH    DS              ;Save the Destination Segment
! LES     DI,VideoAdress???
! MOV     SI,VideoBufferPtr??
! MOV     DS,VideoBufferSeg??
! MOV     CX,2000         ;Number of words to copy (2000)
! CLD
! REP     MOVSW           ;Move the words!
! POP     DS              ;Reset the Destination Segment
END SUB