home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 07 / einsteig / heimwerk / spdemo2.bas < prev    next >
Encoding:
BASIC Source File  |  1990-04-09  |  1.2 KB  |  42 lines
  1. '* ------------------------------------------------------- *
  2. '*                      SPDEMO2.BAS                        *
  3. '*   Sprite-Demonstration bei der die Daten des Sprites    *
  4. '*        aus der Datei SPDEMO2.DAT geladen werden         *
  5. '*              (c) 1990 Kay Glahn & TOOLBOX               *
  6. '* ------------------------------------------------------- *
  7. DIM a(64) AS INTEGER
  8. '* ------------------------------------------------------- *
  9. '*     Daten des Sprites aus Datei in Array übertragen     *
  10. DEF SEG = VARSEG(a(0))
  11. BLOAD "SPDEMO2.DAT", VARPTR(a(0))
  12. '* ------------------------------------------------------- *
  13. '*                       Hauptprogramm                     *
  14. CLS
  15. SCREEN 2
  16. LINE (0, 0)-(639, 199), , B
  17. x = 320
  18. y = 170
  19. DO WHILE INKEY$ = ""
  20.   PUT (x, y), a, PSET
  21.   RANDOMIZE TIMER
  22.   n = INT(RND * 5)
  23.   SELECT CASE n
  24.     CASE 1
  25.       x = x + 1
  26.     CASE 2
  27.       y = y + 1
  28.     CASE 3
  29.       x = x - 3
  30.     CASE 4
  31.       y = y - 3
  32.   END SELECT
  33.   IF x < 1 OR x > 599 THEN EXIT DO
  34.   IF y < 1 OR y > 174 THEN EXIT DO
  35. LOOP
  36. WHILE INKEY$ = "": WEND
  37. END
  38. '* ------------------------------------------------------- *
  39. '*                   Ende von SPDEMO3.BAS                  *
  40.  
  41.  
  42.