home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 Janurary / 64er_Magazin_89-01_1989_Markt__Technik_de_Side_C.d64 / maus1.demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  414b  |  20 lines
  1. 100 rem -------------------------------
  2. 105 rem ----- mauszeiger-demo 01 ------
  3. 110 rem -------------------------------
  4. 115 rem -------------------------------
  5. 120 :
  6. 125 :
  7. 130 if a=0 then a=1:load "maus*",8,1
  8. 135 sys 49152,1,0,2
  9. 140 poke 53280,15:poke 53281,15
  10. 145 poke 646,11
  11. 150 print"[147]";chr$(14)
  12. 155 :
  13. 160 x=peek(53248)-24+256*(peek(53264)and1)
  14. 165 y=peek(53249)-50
  15. 170 t=peek(56320)and 16
  16. 175 if t=0 then a$="[212]aste":goto 185
  17. 180 a$=""
  18. 185 print "[147]";x,y,a$
  19. 190 goto 160
  20.