CAR.BAS

SCREEN 10
TRIANGLE$ = "E25 R40 F25 D20 L20 G10 L5 H10 L10 G10 L5 H10 L10 L10 U20 R10 BR20 U15 R20 D15 L20 D10 R5 D1 L5 D9 R20 U20 U15 R20 D15 L20"
DRAW "C2 X" + VARPTR$(TRIANGLE$)
DRAW "BD 30 P1, 2 C3 M-0,-0"
PRINT "                   MEET THE ALL NEW PONTIAC 5000 SUN BIRD!"
PRINT
PRINT "THIS PONTIAC CAR HAS AIR BAGS AND POWER STEERING. IT CAN GO UP TO 120 KPH. AND  CAN HOLD SEVEN PEOPLE. "
PRINT
PRINT "DO YOU LIKE IT? (YES OR NO)"
INPUT A$
BEEP
SCREEN 1
SCREEN 10
TRIANGLE$ = "BL20 U20 F20 U20 BR10 R10 L10 D10 R10 L10 D10 R10 BR25 H20 F20 E20 F20 E20 BR10 D10 BD5 D5"
DRAW "C2 X" + VARPTR$(TRIANGLE$)
DRAW "BD 30 P1, 2 C3 M-0,-0"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "AS YOU CAN SEE IT'S..."