home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 August / 64er_Magazin_87-08_1987_Markt__Technik_de_Side_A.d64 / neuer cursor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.1 KB  |  32 lines
  1. 0 rem *********************************
  2. 1 rem *   programmierbare zeichen     *
  3. 2 rem * zeichensatz wird vom rom ins  *
  4. 3 rem * ram gespiegelt nach 48*256.   *
  5. 4 rem * hier koennen die zeichen      *
  6. 5 rem * beliebig umdefiniert werden.  *
  7. 6 rem * die routine belegt 49152-49174*
  8. 7 rem *********************************
  9. 20 poke56,48:clr                    :rem schutz vor ueberschreiben
  10. 21 poke56334,peek(56334)and254      :rem interrupt aus
  11. 22 poke1,peek(1)and251              :rem ein/ausgabe aus und zeichenrom ein
  12. 24 fori=0to22:reada:poke49152+i,a:next:sys49152
  13. 25 data169,0,160,208,133,95,132,96,160,224,133,90,132,91,160,64,133,88,132
  14. 26 data89,76,191,163
  15. 27 poke1,peek(1)or4                 :rem ein/ausgabe ein
  16. 28 poke56334,peek(56334)or1         :rem interrupt ein
  17. 29 poke53272,(peek(53272)and240)+12 :rem zeichenzeiger stellen
  18. 30 z1=48*256:z2=56*256              :rem adresse zeichenspeicher satz 1/2
  19. 98 :
  20. 99 :
  21. 100 fori=0to5:pokez1+8*160+i,0:next :rem space revers satz 1 veraendern
  22. 101 end
  23. 198 :
  24. 199 :
  25. 200 data 24,24,24,24,126,60,24,0    :rem pfeil fuer space
  26. 201 fori=0to7:reada:pokez1+8*32+i,a:next
  27. 202 poke198,0:wait198,1:fori=0to7:pokez1+8*32+i,0:next
  28. 298 :
  29. 299 :
  30. 300 a=z1+8*32:b%=1:fori=0to1000:b%=b%*2:ifb%=256thenb%=1
  31. 301 pokea,b%:next                   :rem bewegung
  32.