home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 07 / einsteig / heimwerk / spdemo1.bas next >
Encoding:
BASIC Source File  |  1994-04-11  |  1.3 KB  |  53 lines
  1. '* ------------------------------------------------------- *
  2. '*                      SPDEMO1.BAS                        *
  3. '*       Sprite-Demonstration bei der das Sprite vorher    *
  4. '*            auf dem Bildschirm aufgebaut wird            *
  5. '*              (c) 1990 Kay Glahn & TOOLBOX               *
  6. '* ------------------------------------------------------- *
  7. DIM a(64) AS INTEGER
  8. '* --------------------------------------------------------*
  9. '*          Sprite aufbauen und in Array übertragen        *
  10. SCREEN 2
  11. CIRCLE (19, 9), 15
  12. PAINT (19, 9)
  13. CIRCLE (19, 13), 8
  14. PAINT (19, 15)
  15. PSET (27, 11)
  16. DRAW "g7 f2 l6 e2 h7"
  17. PAINT (20, 17)
  18. PSET (20, 17)
  19. DRAW "l4 g2 d1 g1"
  20. GET (0, 0)-(39, 24), a
  21. SCREEN 0
  22. CLS
  23. '* ------------------------------------------------------- *
  24. '*                       Hauptprogramm                     *
  25. CLS
  26. SCREEN 2
  27. LINE (0, 0)-(639, 199), , B
  28. x = 320
  29. y = 170
  30. DO WHILE INKEY$ = ""
  31.   PUT (x, y), a, PSET
  32.   RANDOMIZE TIMER
  33.   n = INT(RND * 5)
  34.   SELECT CASE n
  35.     CASE 1
  36.       x = x + 1
  37.     CASE 2
  38.       y = y + 1
  39.     CASE 3
  40.       x = x - 3
  41.     CASE 4
  42.       y = y - 3
  43.   END SELECT
  44.   IF x < 1 OR x > 599 THEN EXIT DO
  45.   IF y < 1 OR y > 174 THEN EXIT DO
  46. LOOP
  47. WHILE INKEY$ = "": WEND
  48. END
  49. '* ------------------------------------------------------- *
  50. '*                   Ende von SPDEMO1.BAS                  *
  51.  
  52.  
  53.