home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / beispie2.bas < prev    next >
BASIC Source File  |  1995-07-04  |  475b  |  24 lines
  1. SCREEN 12
  2. randomize timer
  3. f=8
  4. e=4
  5. DO WHILE INKEY$ = ""
  6. a = a + 1
  7. c = INT(a * a / 1000)
  8. d = d - e
  9. IF d < 1 THEN d = 200
  10. if e>=14 then e=3
  11. IF a >= 700 THEN a = 1: b = b + 1
  12. IF b = 45 and f=8 THEN b=1:f=7:e=e+1.5
  13. if b=45 and f=7 then f=15:b=1:e=e+1
  14. if b=45 and f=15 then f=0:b=1:e=e-2
  15. if b=45 and f=0 then b=1:f=8:e=e+1
  16. PSET (a, a-d), f
  17. PSET (a - d, a), f
  18. pset (650-a,a-d),f
  19. pset (650-(a-d),a),f
  20. LOOP
  21. cls:
  22. ?"made by Dark Crusher"
  23. do while inkey$="":loop
  24.