home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd593 / n_starfield_two.amos / n_starfield_two.amosSourceCode
AMOS Source Code  |  1993-03-31  |  787b  |  40 lines
  1. '
  2. '******************************************* 
  3. '
  4. '            WARP STARFIELD      
  5. '            --------------  
  6. '
  7. '        BY MALCOLM LAVERY 1993
  8. '
  9. '******************************************* 
  10. '
  11. SHEIGHT=200
  12. SWIDTH=320
  13. Global SHEIGHT,SWIDTH
  14. '
  15. Screen Open 0,SWIDTH,SHEIGHT,32,Lowres
  16. Curs Off : Hide On : Flash Off : Cls 0
  17. Palette $5,$FFF,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$5,$0,$FFF
  18. '
  19. STARS[200]
  20. '
  21. Procedure STARS[STARS]
  22.    '
  23.    JUMP=5
  24.    ININK=1
  25.    '
  26.    For MANY=0 To STARS
  27.       For X=0 To SWIDTH Step JUMP
  28.          Ink ININK,0
  29.          Draw X,Y To X+JUMP,Y
  30.          Inc ININK
  31.          If ININK>29
  32.             ININK=1
  33.          End If 
  34.       Next X
  35.       Y=Rnd(SHEIGHT)
  36.       JUMP=5+Rnd(20)
  37.    Next MANY
  38.    Shift Up 1,1,29,1
  39.    '
  40. End Proc