Wrote this little program when I was 12, some 18 years ago.

CARS

DECLARE SUB INTRO ()
DECLARE SUB STARTGAME ()
DECLARE SUB TITLE ()
TX = 10
TY = 80
YX = 130
HX = 60
YY = 130
HY = 130
TX2 = 180
SCREEN 13
LINE (15, 15)-(25, 35), 15, BF
LINE (15, 20)-(25, 20), 0
LINE (15, 30)-(25, 30), 0
DIM YCAR(900)
GET (14, 14)-(26, 36), YCAR
LINE (15, 15)-(25, 35), 1, BF
LINE (15, 20)-(25, 20), 0
LINE (15, 30)-(25, 30), 0
DIM ECAR(900)
GET (14, 14)-(26, 36), ECAR
CLS
CIRCLE (15, 15), 1, 4
PAINT (15, 15), 4
DIM EBUL(10)
GET (13, 13)-(17, 17), EBUL
CLS
CIRCLE (15, 15), 1, 10
PAINT (15, 15), 10
DIM YBUL(10)
GET (13, 13)-(17, 17), YBUL
CLS
CIRCLE (25, 25), 10, 2
PAINT (25, 25), 2
DIM TREE(300)
GET (15, 15)-(35, 35), TREE
CLS
INTRO
STARTGAME
TITLE
SCREEN 13
DO
IF TY = 161 THEN CLS : TY = 10
IF TY2 = 161 THEN CLS : TY2 = 10
LINE (45, 30)-(160, 160), 8, BF
PUT (TX2, TY2), TREE, PSET
PUT (YX, YY), YCAR, PSET
PUT (HX, HY), ECAR, PSET
PUT (TX, TY), TREE, PSET
IF M = 10 THEN TY = TY + 1: M = 1: TY2 = TY2 + 1
IF QH = 1 THEN PUT (HBX, HBY), EBUL, PSET
IF QU = 2 THEN PUT (YBX, YBY), YBUL, PSET
IF HX = YX THEN QH = 1: HBX = HX: HBY = HY
IF N = 80 THEN
N = 0
IF YY > HY THEN HY = HY + 5
IF YX > HX THEN HX = HX + 5
IF YY < HY THEN HY = HY - 5
IF YX < HX THEN HX = HX - 5
END IF
R$ = INKEY$
IF R$ = "8" THEN YY = YY - 5
IF R$ = "4" THEN YX = YX - 5
IF R$ = "6" THEN YX = YX + 5
IF R$ = "2" THEN YY = YY + 5
IF R$ = "5" THEN YBX = YX: YBY = YY: QU = 2
N = N + 1
M = M + 1
HBY = HBY - 5
YBY = YBY - 5
IF YBY = HY AND YBX = HX THEN PRINT "YOU KILLED HIM!!!!": END
IF HBY = YY AND HBX = YX THEN PRINT "YOU WERE HIT!!!!": END
FOR Z = 1 TO 20
IF Z = HBY THEN QH = 0
IF Z = YBY THEN QU = 0
NEXT Z
LOOP

SUB INTRO
SCREEN 12
FOR T = 0 TO 63
PALETTE 0, T
NEXT T
LOCATE 15, 15: COLOR 15: PRINT "AnDrEwS sOfTwArE"
LOCATE 16, 15: COLOR 14: PRINT "CoPyWrItE 1997 By DaViD aNdReWs"
LOCATE 17, 15: COLOR 13: PRINT "(fRoNk4yA)"
SLEEP 1
SLEEP 1
FOR T = 63 TO 0 STEP -1
PALETTE 15, T
PALETTE 14, T
PALETTE 13, T
PALETTE 0, T
NEXT T
END SUB

SUB STARTGAME
 SCREEN 11
 PRINT " YOU ARE ABOUT TO ENTER A MISSION.  ON THIS MISSION YOU WILL BE IN A "
 PRINT "WHITE CAR.  YOUR ENEMY WILL BE IN A BLUE CAR.  "
 PRINT " YOU BOTH WILL BE ABLE TO SHOOT GUNS WHICH ARE MOUNTED UNDERNEATH"
 PRINT "YOUR CARS, OUT OF YOUR RANGE OF SIGHT BECAUSE YOU ARE AT AN OVERHEAD"
 PRINT "VIEW."
 PRINT " YOU CAN MOVE YOUR CAR LEFT, RIGHT, UP, AND DOWN USING THE NUMERIC "
 PRINT "KEYPAD ON THE RIGHT-HAND SIDE OF YOUR KEYBOARD.  USE 5 TO SHOOT."
 PRINT : PRINT "PRESS ANY KEY AND GET READY TO BE BLOWN AWAY!"
 PRINT : PRINT : PRINT "OH, YEAH:  HINT, THE ENEMY WILL TRY TO GET BEHIND YOU AND SHOOT!"
 DO
 LOOP WHILE INKEY$ = ""
END SUB

SUB TITLE
 CLS
 SCREEN 1
 FOR T = 1 TO 100
 RANDOMIZE TIMER
 G1 = INT(RND * 15) + 1
 COLOR G1
 PRINT "CARS!!!!!!!!!"
 NEXT T
 DO
 LOOP WHILE INKEY$ = ""
END SUB