REM Balloons by RG Weston 29-12-02
      REM Press Space Bar to Start again
      REM Press Zero Key to halt
      MODE8:OFF
      REPEAT
        ORIGIN RND(1300),RND(1100)
        R=1: L=10+RND(400) :c=RND(15)
        MOVE 0,0
        REPEAT
          t=t+10 :R=R+0.005: GCOL0,c
          
          DRAW R*COSRADt,R*SINRADt
          
          stop$=INKEY$(0)
          IF stop$="0" THEN COLOUR 0:END
          IF stop$=" " THEN RUN
        UNTIL R>L
      UNTIL FALSE