//
// Program: Rocket Race
// Author:  Jim Douglas
//
        randomize
start:  cls
        dx=(xpixels()-640)/2; k=1
init:   rocket (40*k+dx, ypixels()-16, -k, 0) @toys
        k=k+1; If (k<=15) Goto init
        stars @toys
        hide mouse
        wait key
loop:   read quit key (27)
        stars @toys
        k=1
fly:    x=0; y=0; where rocket (x, y, k) @toys
        y=y-random(2)-1; rocket (40*k+dx, y, -k, 4) @toys
        If (y<30) Goto winner
        delay (1)
        k=k+1; If (k<=15) Goto fly
        Goto loop
winner: line color (k); circle (40*k+dx, y, 50)
        song (1, 0) @toys
        honk
        wait key; Goto start