'===========================================================================
' Subject: ROAD ENGINE                       Date: 05-20-98 (22:53)       
' Author:  Luke Erren                        Code: QB, QBasic, PDS        
' Origin:  errenvep@worldonline.nl         Packet: DEMOS.ABC
'===========================================================================
DECLARE SUB Install ()
REM ****************************************
REM **              Road Racer            **
REM ** __________________________________ **
REM **                 / \                **
REM **               /  |  \              **
REM **             /         \            **
REM **           /      |      \          **
REM **         /                 \        **
REM **       /          |          \      **
REM **                                    **
REM **     Road Engine by Luke Erren      **
REM **             (C) 1998               **
REM **        Errenvep@worldonline.nl     **
REM ****************************************
REM **    When you use this in your own   **
REM **   program, please mention my name  **
REM ****************************************
SCREEN 13
DIM Hoogte, Speed, x AS INTEGER
Hoogte = 100
Speed = .01
Install
WHILE Stoppen = 0
 i$ = INKEY$
 IF i$ = CHR$(27) THEN Stoppen = 1
 IF i$ = "8" THEN Hoogte = Hoogte - 2: IF Hoogte < 80 THEN Hoogte = 80
 IF i$ = "2" THEN Hoogte = Hoogte + 2: IF Hoogte > 122 THEN Hoogte = 122
 IF i$ = CHR$(0) + "H" THEN Speed = Speed + .001: IF Speed > .3 THEN Speed = .3
 IF i$ = CHR$(0) + "P" THEN Speed = Speed - .01: IF Speed < 0 THEN Speed = 0
 Fase = Fase + (Speed * 10): IF Speed = 0 THEN Fase = 0
 f = f + Speed: IF f > 2 THEN f = 0
 FOR z = 0 TO Hoogte: LINE (0, z)-(320, z), ((z / 120) * 50) + 100: NEXT z
  FOR z = Hoogte TO 200
    c = ((((100 / z) * 2 + f) * 5) MOD 2)
    l1 = -z + 210
    l2 = -.75 * z + 190
    r1 = .75 * z + 135
    r2 = z + 115
    LINE (0, z)-(l1, z), 2 + c: REM Grass
    LINE (l1, z)-(l2, z), 4 + c: REM Red Line
    LINE (l2, z)-(r1, z), c + 7: REM Road
    LINE (r1, z)-(r2, z), 4 + c: REM Red Line
    LINE (r2, z)-(320, z), 2 + c: REM Grass
  NEXT z
 WEND

SUB Install
 FOR i = 100 TO 150
  OUT &H3C7, i
  OUT &H3C8, i
  OUT &H3C9, ((i - 100) / 50) * 63
  OUT &H3C9, ((i - 100) / 50) * 63
  OUT &H3C9, 63
 NEXT i
 
  OUT &H3C7, 7
  OUT &H3C8, 7
  OUT &H3C9, 20
  OUT &H3C9, 20
  OUT &H3C9, 20

  OUT &H3C7, 8
  OUT &H3C8, 8
  OUT &H3C9, 10
  OUT &H3C9, 10
  OUT &H3C9, 10

  OUT &H3C7, 5
  OUT &H3C8, 5
  OUT &H3C9, 40
  OUT &H3C9, 0
  OUT &H3C9, 0

  OUT &H3C7, 4
  OUT &H3C8, 4
  OUT &H3C9, 30
  OUT &H3C9, 0
  OUT &H3C9, 0

  OUT &H3C7, 3
  OUT &H3C8, 3
  OUT &H3C9, 0
  OUT &H3C9, 30
  OUT &H3C9, 0

  OUT &H3C7, 2
  OUT &H3C8, 2
  OUT &H3C9, 0
  OUT &H3C9, 40
  OUT &H3C9, 0



END SUB