home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / STAR.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  2KB  |  58 lines
  1. 1 REM A STAR FIELD - BY ah-YEAH
  2. 10 KEY
  3. 100 VARNAME
  4. 1000 REM MIDDLE LEVEL SPEED 4
  5. 1010 FOR
  6. 1020 VARNAME
  7. 1030 VARNAME
  8. 1040 NEXT
  9. 1050 FOR
  10. 1060 FOR
  11. 1070 VARNAME
  12. 1090 VARNAME
  13. 110 VARNAME
  14. 1100 IF
  15. 1110 NEXT
  16. 1120 NEXT
  17. 1130 RETURN
  18. 120 NEXT
  19. 130 FOR
  20. 135 FOR
  21. 136 VARNAME
  22. 140 VARNAME
  23. 150 IF
  24. 155 NEXT
  25. 160 NEXT
  26. 161 GOSUB
  27. 170 AUTO BACK
  28. 180 LOGIC
  29. 190 REPEAT
  30. 191 FOR
  31. 2 REM plots a 30 point star at top of screen
  32. 20 MODE
  33. 200 FOR
  34. 2000 REM NEXT LEVEL UP. LEVEL SPEED 8
  35. 2010 FOR
  36. 2020 VARNAME
  37. 2030 VARNAME
  38. 2040 NEXT
  39. 2050 FOR
  40. 2060 FOR
  41. 2070 VARNAME
  42. 2090 VARNAME
  43. 210 PLOT
  44. 2100 IF
  45. 2110 NEXT
  46. 2120 NEXT
  47. 2130 RETURN
  48. 240 NEXT
  49. 3 REM bloody fast when compiled!
  50. 30 HIDE
  51. 4 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  52. 40 CURS
  53. 50 COLOUR
  54. 60 COLOUR
  55. 70 DIM
  56. 80 REM RECORD LOWEST PLANE FIRST
  57. 90 FOR
  58.