'===========================================================================
' Subject: WINDSCREEN WIPER                  Date: 12-20-97 (10:33)       
' Author:  Alexander Meyer                   Code: QB, QBasic, PDS        
' Origin:  Meyer.Karl@t-online.de          Packet: GRAPHICS.ABC
'===========================================================================
'                             ////
'                           0(o o)0
'-------------------------ooO (_) Ooo---------------------
' WIPER.BAS -- Written in QuickBasic 4.5
'               
' Name: Windscreen wiper
' Author: Alexander Meyer
' Date: 11-23-1997
' Description: This looks like a windscreen wiper from a car
'
'For questions or comments mail to: Meyer.Karl@t-online.de
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
DIM Wischer(640)
DIM KeinWischer(640)

SCREEN 13    '--> VGA 320 x 200
CLS
RANDOMIZE TIMER

LINE (5, 1)-(1, 480), 15
GET (1, 1)-(6, 199), Wischer        'Get wiper

DO
 
  IF Richtung = 0 THEN
    x = x + 1
    IF x = 315 THEN Richtung = 1
  END IF
  IF Richtung = 1 THEN
    x = x - 1
    IF x = 2 THEN Richtung = 0
  END IF
 
  PUT (x, 1), Wischer, PSET         'Show wiper

  PX = INT(RND * 633 + 2)           'Show raindrops
  PY = INT(RND * 479 + 1)
  PSET (PX, PY), 9

LOOP UNTIL INKEY$ <> ""

END