'* BIL2   FART=10 (Blå)
'* BIL3   FART=15 (Hvit stor)
'* BIL117 FART=5  (Boblen) s 
'
Load "abk/road.abk",1
Unpack 7 To 1 : Unpack 7 To 2 : Cls 0
Zoom 1,0,0,320,256 To 2,0,0,160,128 : Unpack 8 To 1
Screen Display 2,128,80,160,100 : Unpack 6 To 0
Screen Display 0,128,65,320,200
Double Buffer : Autoback 0 : Colour 21,$0 : Priority Off 
Q#=-50 : Rem ** Dette er for "gule striper" 
Q2#=6 : GRESS=4 : GRESS#=60 : EW#=1 : Rem ** Diverse data for GRESS høyre
'
BIL=117
If BIL=2 Then BIL_FART=10
If BIL=3 Then BIL_FART=15
If BIL=117 Then BIL_FART=5
JX#=146 : JY=70 : Rem ** Bilens X, Y start point 
'
ALIEN$="Anim 0,(115,10)(116,10);Move 0,240,240"
Channel 1 To Bob 5
Bob 5,30,-50,115
Amal 1,ALIEN$
'
'
Rem ** Her er definisjoer som leses fra TEMP fila i ram!!
Rem ** den fila inneholder diverse info om hvor bilen startes, hvor
Rem ** spøkelsene er og hvor bilen skal! 

KARTX#=40 : KARTY#=49 : Rem ** TEMP ..  SLETT DENNE SENERE!! 
KARTX1#=40 : KARTY1#=49 : Rem** START POINT FOR KJ0RING
KARTX2#=100 : KARTY2#=100 : Rem** STOPP POINT FOR KJ0RING
'
'
Do 
If SPEED=0 Then E#=E#+0.1
If SPEED=0 and E#>BIL_FART Then SPEED=1
If SPEED=2 and BIL=2 Then E#=E#-0.1
If SPEED=2 and BIL=3 Then E#=E#-0.1
If SPEED=2 and BIL=117 Then E#=E#-0.05
If SPEED=2 and E#<0.1 Then End 
If ACT=0 Then D=Joy(1)
If D=4 or D=20 Then YT#=YT#-0.03 : VEI=0
If D=8 or D=24 Then YT#=YT#+0.03 : VEI=1


If D=0 and VEI=0 and YT#<0.0 Then YT#=YT#+0.06
If D=0 and VEI=0 and YT#>0.01 Then YT#=0
If D=0 and VEI=1 and YT#>-0.0 Then YT#=YT#-0.06
If D=0 and VEI=1 and YT#<-0.01 Then YT#=0
If D=16 and VEI=0 and YT#<0.0 Then YT#=YT#+0.06
If D=16 and VEI=1 and YT#>-0.0 Then YT#=YT#-0.06
If D=16 and ACT=0 Then SPEED=2 : ACT=1 : GRESS#=GRESS
If ACT=1 Then JX#=JX#+1.3
JX#=JX#+YT#
If JX#<16 Then JX#=16 : YT#=0
If JX#>141 Then JX#=141 : YT#=0
Limit Bob 0,0 To 320,189
Q#=Q#+E#
If Q#>210 Then Q#=-40
Screen Copy 2,KARTX#,KARTY#,KARTX#+53,KARTY#+46 To 0,227,68
Bob 1,88,Q#,1
Bob 2,JX#,JY,BIL
Sprite 1,375,150,104 : Rem ** Blink på kartet 
If SPEED=0 or SPEED=1 Then GRESS=GRESS+1 : Bob 4,0,0,GRESS
If SPEED=2 and BIL=2 Then EW#=EW#-0.01 : GRESS#=GRESS#+EW# : Bob 4,0,0,GRESS#
If SPEED=2 and BIL=3 Then EW#=EW#-0.006 : GRESS#=GRESS#+EW# : Bob 4,0,0,GRESS#
If SPEED=2 and BIL=117 Then EW#=EW#-0.01 : GRESS#=GRESS#+EW# : Bob 4,0,0,GRESS#
If SPEED=0 and GRESS=103 or SPEED=1 and GRESS=103 Then GRESS=80
If SPEED=2 and GRESS#>103 Then GRESS#=80

TESTALIEN=TESTALIEN+1
If TESTALIEN=100 Then Amal On 1
Wait Vbl 
Loop