Meteor Shower

Gallery

Source Code

   1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN 
   2 FAST 
   3 RAND USR 16514
   4 SLOW 
  20 LET F=0
  80 LET A=10
  90 LET B=15
 100 LET C=20
 110 SLOW 
 120 PRINT AT C,RND*30;"%*"
 130 PRINT AT A,B;"% "
 140 LET F=F+1
 150 SCROLL 
 160 PRINT AT C,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 165 PRINT AT 21,31;AT 21,0;
 170 IF B>4 THEN LET B=B-1-INT (RND)
 180 IF INKEY$="M" AND B<28 THEN LET B=B+3*RND
 190 PRINT AT A,B;"%V"
 200 PRINT AT 11,B;
 210 IF PEEK (PEEK 16398+256*PEEK 16399)<>151 THEN GOTO 120
 220 PRINT "*";F;"*"
 230 STOP 
 240 CLEAR 
 250 SAVE "1027%0"
 260 RUN