qbasic/pop.bas

DECLARE SUB pause (time!)
DECLARE SUB fire ()
DECLARE SUB laser ()
DECLARE SUB pop ()
DECLARE SUB icbm ()
DECLARE SUB trees ()
DECLARE SUB baloons ()
CLS
SCREEN 12
trees
baloons
laser
pop
fire
SYSTEM

SUB baloons
FOR q = 1 TO 100
CIRCLE (q, 100), 10, 4, , , 2
LINE (0 + q, 110)-(-100 + q * 2, 150 + q / 10), 7
pause .05
CIRCLE (q, 100), 10, 0, , , 2
LINE (q, 110)-(-100 + q * 2, 150 + q / 10), 0
NEXT q
CIRCLE (0 + q, 100), 10, 4, , , 2
LINE (q, 110)-(-100 + q * 2, 150 + q / 10), 7
END SUB

SUB fire
FOR noo = 1 TO 3
PLAY "T160O0L32EFGEFDC"
FOR n = 1 TO 6
FOR q = 1 TO 60                           'hight of flame
a = SIN(n + q / 10) * 10
FOR b = 1 TO q / 6                        'width of flame
PSET (100 + (noo * 20) + a + b, 480 - 60 + q), 4
NEXT b
NEXT q
pause .001
FOR q = 1 TO 60                           'hight of flame
a = SIN(n + q / 10) * 10
FOR b = 1 TO q / 6                         'width of flame
PSET (100 + (noo * 20) + a + b, 480 - 60 + q), 0
NEXT b
NEXT q
NEXT n
NEXT noo
FOR i = 1 TO 3
PLAY "T160O0L32EFGEFDC"
NEXT i
FOR f = 1 TO 650
CIRCLE (190, 480), f, 4
pause .000001
NEXT f
END SUB

SUB laser
FOR b = 1 TO 15
LINE (640, 300)-(100, 100), b
pause .005
NEXT b
LINE (640, 300)-(100, 100), 0
END SUB

SUB pause (time)
t = TIMER + time
DO: LOOP WHILE TIMER < t
END SUB

SUB pop
FOR i = 1 TO 3
PLAY "T160O0L32EFGEFDC"
NEXT i
FOR r = 1 TO 20
CIRCLE (100, 100), r, 4
pause .0001
NEXT r
FOR r = 1 TO 380
CIRCLE (100, 100 + r), 20 + r / 10, 4
PAINT (100, 100 + r), 4, 4
pause .00001
PAINT (100, 100 + r), 0, 0
NEXT r
CIRCLE (100, 100 + r - 1), 20 + r / 10, 0
FOR i = 1 TO 3
PLAY "T160O0L32EFGEFDC"
NEXT i
END SUB

SUB trees
DRAW "bm0,430"
FOR t = 0 TO 11
tree$ = "c2g10r5g10r5g10r5g10r50h10r5h10r5h10r5h10bd40r2d1c6d4l4u5c2r2bu40"
DRAW "br50X" + VARPTR$(tree$)
NEXT t
CIRCLE (190, 480), 10, 5, , , .5
PAINT (190, 478), 5, 5
pause .5
END SUB