home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 Janurary / 64er_Magazin_89-01_1989_Markt__Technik_de_Side_C.d64 / maus2.demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  679 b   |  38 lines
  1. 100 rem -------------------------------
  2. 105 rem ----- mauszeiger-demo 03 ------
  3. 110 rem -------------------------------
  4. 115 rem -------------------------------
  5. 120 :
  6. 125 :
  7. 130 if a=0 then a=1:load "maus*",8,1
  8. 135 poke 53280,15:poke 53281,15
  9. 140 poke 646,11
  10. 145 print"[147]";chr$(14);
  11. 150 :
  12. 155 print "[194]itte geben [211]ie zehn beliebige [215]orte"
  13. 160 print "ein :":print
  14. 165 for t=0 to 9
  15. 170 input w$(t)
  16. 175 next t
  17. 180 :
  18. 185 print "[147]";
  19. 190 for t=0 to 9
  20. 195 print w$(t)
  21. 200 next t
  22. 205 sys 49152,1,0,2
  23. 210 :
  24. 215 t=peek(56320)and 16
  25. 220 if t<>0 then 215
  26. 225 y=peek(53249)-50
  27. 230 l=int(y/8)
  28. 235 if l>10 then 215
  29. 240 x=peek(53248)-24+256*(peek(53264)and 1)
  30. 245 s=int(x/8)
  31. 250 if s> len(w$(l)) then 215
  32. 255 :
  33. 260 ad=1024+l*40
  34. 265 for t=0 to len(w$(l))
  35. 270 poke ad+t,(peek(ad+t)+128) and 255
  36. 275 next t
  37. 280 goto 215
  38.