Advertisement
ForrestFox

Starfeld

Feb 17th, 2021
197
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. SCREEN 13
  2.  
  3. TYPE star
  4.   x AS SINGLE
  5.   y AS SINGLE
  6.   s AS SINGLE
  7.   v AS INTEGER
  8. END TYPE
  9.  
  10. DIM st(320) AS star
  11.  
  12. FOR i = 0 TO 320
  13.   st(i).x = RND * 320
  14.   st(i).y = RND * 200
  15.   st(i).s = RND * 2
  16.   st(i).v = RND * 15 + 16
  17. NEXT
  18.  
  19. DO
  20. FOR i = 0 TO 320
  21.  
  22.   PSET (st(i).x, st(i).y), 0
  23.   st(i).x = st(i).x - st(i).s
  24.   IF st(i).x < 0 THEN st(i).x = 319
  25.   PSET (st(i).x, st(i).y), st(i).v
  26.  
  27. NEXT
  28. LOOP WHILE INKEY$ = ""
Advertisement
RAW Paste Data Copied
Advertisement