home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / vertstars.amos / vertstars.amosSourceCode
AMOS Source Code  |  1995-03-16  |  774b  |  32 lines
  1. Randomize Timer
  2. Screen Open 0,320,256,2,Lowres
  3. Curs Off : Flash Off : Hide 
  4. Double Buffer : Autoback 0
  5. Colour 0,0
  6. Colour 1,$FFF
  7. Cls 0
  8. Ink 1
  9. N=25
  10. MASPEED=5
  11. MISPEED=1
  12. Reserve As Work 13,200 : Rem *********Xplace of star. 
  13. Reserve As Work 14,200 : Rem *****YPlace of star. 
  14. Reserve As Work 15,200 : Rem **Speed of star.   
  15. For X=1 To N
  16.    Poke(Start(13)+X),Rnd(320)
  17.    Poke Start(14)+X,Rnd(256)
  18.    Poke Start(15)+X,Rnd(MASPEED)+MISPEED
  19. Next 
  20. Repeat 
  21.    Cls 0
  22.    For S=1 To N
  23.       Poke(Start(13)+S),Peek(Start(13)+S)+Peek(Start(15)+S)
  24.       If Peek(Start(13)+S)>320
  25.          Poke(Start(13)+S),0
  26.          Poke(Start(14)+S),Rnd(256)
  27.          Poke(Start(15)+S),Rnd(MASPEED)+MISPEED
  28.       End If 
  29.       Plot Peek(Start(13)+S),Peek(Start(14)+S)
  30.    Next 
  31. Screen Swap 
  32. Until Mouse Key