Rockets

    5 REM PROGRAM *** "ROCKETS"
   10 BORDER 1
   15 STOP 
   20 CLS : BEEP 1,3
   30 PAUSE 60
   40 BORDER 2
   50 BEEP 1,4
   60 PAUSE 120
   70 BORDER 3
   80 BEEP  1,5
   90 PAUSE 180
  100 PRINT AT 21,16;"   *   ",,
  120 PRINT "  ***  ",,
  130 PRINT " ***** ",,
  140 PRINT "*******",,
  150 PRINT "*     *",,
  160 PRINT "*     *",,
  170 PRINT "*     *",,
  180 PRINT "*     *",,
  190 PRINT "*     *",,
  200 PRINT "*     *",,
  210 PRINT "*     *",,
  220 PRINT "*******",,
  230 PRINT "*******",,
  240 PRINT "/ \ / \",,
  250 PRINT "!!! !!!",,
  260 PRINT "!!! !!!",,
  270 PRINT "!!! !!!"
  280 BORDER 4
  290 BEEP 1,6
  300 PAUSE 60
  310 BORDER 5
  315 PAPER 0
  317 INK 7
  320 FOR L=1 TO 40
  325 LET A=INT (RND*32)
  330 LET Z=INT (RND*22)
  335 PRINT AT Z,A;"*"
  340 NEXT L
  350 PRINT "HURRAY!";
  360 GO SUB 10
  370 STOP 
 9998 SAVE "ROCKETS" LINE 20