'===========================================================================
' Subject: TELEVISION SCREEN WIPE            Date: 02-06-97 (14:04)       
' Author:  Dave Navarro, Jr.                 Code: PB                     
' Origin:  dave@powerbasic.com             Packet: TEXT.ABC
'===========================================================================
'Television style wipe.  Clears from bottom and top at the same time to
'the middle, then clears the middle beginning with the sides.
'converted to PowerBASIC from Pascal code by Dave Navarro, Jr.

DEFINT A-Z

DIM DYNAMIC ScreenMem(0:1999) AT &HB800  'color video segment

FOR L = 1 TO 12
  FOR Y = 12 TO 0 STEP -1
    FOR X = 0 TO 79
      Z = ScreenMem(X+(80*Y))
      ScreenMem(X+(80*Y)+80) = Z
      ScreenMem(X+(80*Y))    = 1792
    NEXT
    FOR X = 0 TO 79
      Z = ScreenMem(X+(80*(24-Y)))
      ScreenMem(X+(80*(24-Y))-80) = Z
      ScreenMem(X+(80*(24-Y)))    = 1792
    NEXT
  NEXT
  IF L < 12 THEN
    FOR z = 1 TO 8000 : NEXT
  END IF
NEXT

FOR X = 0 TO 39
  ScreenMem(X+960)  = 1792
  Screenmem(1039-X) = 1792
  FOR z = 1 TO 13000: NEXT
NEXT