'
' CAR.BAS By Richard Copeland
'

'
' Car is a simple drawing program
' That will show you how some animation
' Could be acomplished on QBasic
'

ON ERROR GOTO Error1
SCREEN 1

Start:  ' Program loops here if wants to watch again
CLS     ' Clears entier screen if user choses yes

DO
DRAW "bm240,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (250, 10), 10, 1: PAINT (251, 11), 1
 IF INKEY$ = CHR$(27) THEN 1
DRAW "C8BM1, 105R300"
LINE (35, 80)-(45, 80), 1, B
LINE (45, 80)-(55, 70)
LINE (55, 70)-(130, 70), 1, B
LINE (130, 70)-(130, 80), 1, B
LINE (130, 80)-(135, 85)
LINE (135, 85)-(160, 85), 1, B
LINE (160, 85)-(160, 100), 1, B
LINE (160, 100)-(150, 100), 1, B
IF INKEY$ = CHR$(27) THEN 1
CIRCLE (145, 100), 5, 1
CIRCLE STEP(0, 0), 1
LINE (140, 100)-(115, 100), 1, B
LINE (110, 95)-(115, 100)
LINE (110, 95)-(85, 95), 1, B
IF INKEY$ = CHR$(27) THEN 1
LINE (85, 95)-(80, 100)
LINE (80, 100)-(60, 100)
CIRCLE (55, 100), 5, 1
CIRCLE STEP(0, 0), 1
LINE (49, 100)-(30, 100)
LINE (30, 100)-(25, 95)
LINE (25, 95)-(25, 90), 1, B
LINE (25, 90)-(35, 80)
LINE (55, 80)-(60, 75)
IF INKEY$ = CHR$(27) THEN 1
'
'Window
'

LINE (60, 75)-(80, 75), 1, B
LINE (80, 75)-(80, 85), 1, B
LINE (80, 85)-(55, 85), 1, B
LINE (55, 85)-(55, 80), 1, B

'
'Door
'
IF INKEY$ = CHR$(27) THEN 1
LINE (80, 85)-(80, 95), 1, B
LINE (80, 95)-(60, 95), 1, B
LINE (55, 90)-(60, 95)
LINE (55, 90)-(55, 85), 1, B
LINE (55, 86)-(80, 86), 1, B
LINE (60, 88)-(63, 88), 1, B
LINE (125, 70)-(130, 70), 1, B
LINE (125, 70)-(125, 85), 1
LINE (125, 85)-(135, 85), 1

'
' Animation begins here
' By showing catice and sun moving
'
IF INKEY$ = CHR$(27) THEN 1
DRAW "C0bm240,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (250, 10), 10, 0: PAINT (251, 11), 0

DRAW "C12bm235,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (245, 10), 10, 1: PAINT (246, 11), 1

DRAW "C0bm235,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (245, 10), 10, 0: PAINT (246, 11), 0

DRAW "C12bm230,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (240, 10), 10, 1: PAINT (241, 11), 1

DRAW "C0bm230,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (240, 10), 10, 0: PAINT (241, 11), 0
IF INKEY$ = CHR$(27) THEN 1
DRAW "C12bm225,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (235, 10), 10, 1: PAINT (236, 11), 1

DRAW "C0bm225,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (235, 10), 10, 0: PAINT (236, 11), 0

DRAW "C12bm220,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (230, 10), 10, 1: PAINT (231, 11), 1

DRAW "C0bm220,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (230, 10), 10, 0: PAINT (231, 11), 0
IF INKEY$ = CHR$(27) THEN 1
DRAW "C12bm215,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (225, 10), 10, 1: PAINT (226, 11), 1

DRAW "C0bm215,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (225, 10), 10, 0: PAINT (226, 11), 0

DRAW "C12bm210,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (220, 10), 10, 1: PAINT (221, 11), 1

DRAW "C0bm210,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (220, 10), 10, 0: PAINT (221, 11), 0
IF INKEY$ = CHR$(27) THEN 1
DRAW "C12bm205,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (215, 10), 10, 1: PAINT (216, 11), 1

DRAW "C0bm205,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (215, 10), 10, 0: PAINT (216, 11), 0

DRAW "C11bm200,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (210, 10), 10, 1: PAINT (211, 11), 1

DRAW "C0bm200,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (210, 10), 10, 0: PAINT (211, 11), 0

DRAW "C11bm195,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (205, 10), 10, 1: PAINT (206, 11), 1
IF INKEY$ = CHR$(27) THEN 1
DRAW "C0bm195,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (205, 10), 10, 0: PAINT (206, 11), 0

DRAW "C11bm190,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (200, 10), 10, 1: PAINT (201, 11), 1

DRAW "C0bm190,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (200, 10), 10, 0: PAINT (201, 11), 0

DRAW "C11bm185,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (195, 10), 10, 1: PAINT (196, 11), 1

DRAW "C0bm185,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (195, 10), 10, 0: PAINT (196, 11), 0
IF INKEY$ = CHR$(27) THEN 1
DRAW "C11bm180,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (190, 10), 10, 1: PAINT (191, 11), 1

DRAW "C0bm180,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (190, 10), 10, 0: PAINT (191, 11), 0

DRAW "C11bm175,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (185, 10), 10, 1: PAINT (186, 11), 1

DRAW "C0bm175,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (185, 10), 10, 0: PAINT (186, 11), 0

DRAW "C10bm170,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (180, 10), 10, 1: PAINT (181, 11), 1
IF INKEY$ = CHR$(27) THEN 1
DRAW "C0bm170,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (180, 10), 10, 0: PAINT (181, 11), 0

DRAW "C11bm165,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (175, 10), 10, 1: PAINT (176, 11), 1

DRAW "C0bm165,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (175, 10), 10, 0: PAINT (176, 11), 0

DRAW "C9bm160,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (170, 10), 10, 1: PAINT (171, 11), 1

DRAW "C0bm160,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (170, 10), 10, 0: PAINT (171, 11), 0
IF INKEY$ = CHR$(27) THEN 1
DRAW "C9bm155,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (165, 10), 10, 1: PAINT (166, 11), 1

DRAW "C0bm155,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (165, 10), 10, 0: PAINT (166, 11), 0

DRAW "C8bm150,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (160, 10), 10, 1: PAINT (161, 11), 1

DRAW "C0bm150,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (160, 10), 10, 0: PAINT (161, 11), 0

DRAW "C8bm145,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (155, 10), 10, 1: PAINT (156, 11), 1

DRAW "C0bm145,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (155, 10), 10, 0: PAINT (156, 11), 0
IF INKEY$ = CHR$(27) THEN 1
DRAW "C11bm140,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (150, 10), 10, 1: PAINT (151, 11), 1

DRAW "C0bm140,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (150, 10), 10, 0: PAINT (151, 11), 0

DRAW "C9bm135,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (145, 10), 10, 1: PAINT (146, 11), 1

DRAW "C0bm135,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (145, 10), 10, 0: PAINT (146, 11), 0

DRAW "C9bm130,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (140, 10), 10, 1: PAINT (141, 11), 1
IF INKEY$ = CHR$(27) THEN 1
DRAW "C0bm130,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (140, 10), 10, 0: PAINT (141, 11), 0

DRAW "C8bm125,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (135, 10), 10, 1: PAINT (136, 11), 1

DRAW "C0bm125,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (135, 10), 10, 0: PAINT (136, 11), 0

DRAW "C8bm120,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (130, 10), 10, 1: PAINT (131, 11), 1

DRAW "C0bm120,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (130, 10), 10, 0: PAINT (131, 11), 0

DRAW "C11bm110,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (125, 10), 10, 1: PAINT (126, 11), 1
IF INKEY$ = CHR$(27) THEN 1
DRAW "C0bm110,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (125, 10), 10, 0: PAINT (126, 11), 0

DRAW "C9bm105,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (120, 10), 10, 1: PAINT (121, 11), 1

DRAW "C0bm105,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (120, 10), 10, 0: PAINT (121, 11), 0

DRAW "C9bm100,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (115, 10), 10, 1: PAINT (116, 11), 1

DRAW "C0bm100,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (115, 10), 10, 0: PAINT (116, 11), 0

DRAW "C8bm95,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (110, 10), 10, 1: PAINT (111, 11), 1

DRAW "C0bm95,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (110, 10), 10, 0: PAINT (111, 11), 0
IF INKEY$ = CHR$(27) THEN 1
DRAW "C8bm90,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (100, 10), 10, 1: PAINT (101, 11), 1

DRAW "C0bm90,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (100, 10), 10, 0: PAINT (101, 11), 0

DRAW "C11bm85,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (95, 10), 10, 1: PAINT (96, 11), 1

DRAW "C0bm85,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (95, 10), 10, 0: PAINT (96, 11), 0

DRAW "C9bm80,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (90, 10), 10, 1: PAINT (91, 11), 1

DRAW "C0bm80,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (90, 10), 10, 0: PAINT (91, 11), 0

DRAW "C9bm75,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (85, 10), 10, 1: PAINT (86, 11), 1
IF INKEY$ = CHR$(27) THEN 1
DRAW "C0bm75,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (85, 10), 10, 0: PAINT (86, 11), 0

DRAW "C8bm70,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (80, 10), 10, 1: PAINT (81, 11), 1

DRAW "C0bm70,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (80, 10), 10, 0: PAINT (81, 11), 0

DRAW "C8bm65,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (75, 10), 10, 1: PAINT (76, 11), 1

DRAW "C0bm65,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (75, 10), 10, 0: PAINT (76, 11), 0

DRAW "C11bm60,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (70, 10), 10, 1: PAINT (71, 11), 1

DRAW "C0bm60,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (70, 10), 10, 0: PAINT (71, 11), 0

DRAW "C9bm55,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (65, 10), 10, 1: PAINT (66, 11), 1
IF INKEY$ = CHR$(27) THEN 1
DRAW "C0bm55,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (65, 10), 10, 0: PAINT (66, 11), 0

DRAW "C9bm50,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (60, 10), 10, 1: PAINT (61, 11), 1

DRAW "C0bm50,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (60, 10), 10, 0: PAINT (61, 11), 0

DRAW "C8bm45,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (55, 10), 10, 1: PAINT (56, 11), 1

DRAW "C0bm45,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (55, 10), 10, 0: PAINT (56, 11), 0

DRAW "C8bm40,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (50, 10), 10, 1: PAINT (51, 11), 1

DRAW "C0bm40,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (50, 10), 10, 0: PAINT (51, 11), 0
IF INKEY$ = CHR$(27) THEN 1
DRAW "C11bm35,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (45, 10), 10, 1: PAINT (46, 11), 1

DRAW "C0bm35,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (45, 10), 10, 0: PAINT (46, 11), 0

DRAW "C9bm30,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (40, 10), 10, 1: PAINT (41, 11), 1

DRAW "C0bm30,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (40, 10), 10, 0: PAINT (41, 11), 0

DRAW "C9bm25,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (35, 10), 10, 1: PAINT (36, 11), 1

DRAW "C0bm25,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (35, 10), 10, 0: PAINT (36, 11), 0

DRAW "C8bm20,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (30, 10), 10, 1: PAINT (31, 11), 1

DRAW "C0bm20,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (30, 10), 10, 0: PAINT (31, 11), 0
IF INKEY$ = CHR$(27) THEN 1
DRAW "C8bm15,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (25, 10), 10, 1: PAINT (26, 11), 1

DRAW "C0bm15,40D5L5D5R5D5R5U5R5U5L5U5L5BD15R2D5R1U5"
CIRCLE (25, 10), 10, 0: PAINT (26, 11), 0

CLS
LOOP UNTIL INKEY$ = CHR$(27)
1 CLS
PRINT "Please Wait...": CHAIN "moneycga"
Error1:
CLS : PRINT "ERROR - You need a graphics adapter to run CAR.BAS"
PRINT
PRINT "Please Wait...": CHAIN "MoneyCga"