'===========================================================================
' Subject: GRAPHICAL CHEW (SCREEN WIPE)      Date: 04-29-97 (17:56)       
' Author:  Aaron Koehl                       Code: QB, QBasic, PDS        
' Origin:  akoehl@ccsinc.com               Packet: GRAPHICS.ABC
'===========================================================================
' CHEW.BAS - Graphical replacement for CLS ;)
'
' Look at SUB Info() for details

DECLARE SUB Info ()

SCREEN 13: CLS
RANDOMIZE TIMER

FOR Temp = 1 TO 63
   OUT &H3C8, Temp
   OUT &H3C9, Temp
   OUT &H3C9, Temp
   OUT &H3C9, 0
NEXT

Flag = 1
FOR Temp = 1 TO 320
   Clr = Clr + Flag
   IF Clr = 63 OR Clr = 0 THEN IF Flag = 1 THEN Flag = -1 ELSE Flag = 1
   LINE (Temp, 0)-STEP(0, 200), Clr
NEXT

FOR X = 0 TO 200
   FOR Temp = 0 TO 320
      A = INT(RND * 20) + 1
      LINE (Temp, X)-STEP(0, A), 0
   NEXT
NEXT

A$ = INPUT$(1)
SCREEN 0: WIDTH 80
PRINT "Graphical Chew demo"
END

SUB Info
' This demo doesn't really do much except clear the screen.
' Just something to use instead of regular old CLS. :)
'
' RELEASED TO PUBLIC DOMAIN 4-29-97
'         -= Aaron Koehl =-
'         akoehl@ccsinc.com
'     Pres. Scenix Designs Inc.
END SUB