home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 November / 64er_Magazin_94-11_1994_Markt__Technik_de_Side_A.d64 / ger-tast.bel. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  30 lines
  1. 5 printchr$(14):printchr$(8)
  2. 7 print"[147]warten sie bitte einen moment"
  3. 8 print"der deutsche zeichensatz wird erzeugt"
  4. 9 print"und in den ram-bereich geladen"
  5. 10 poke52,48:poke56,48:clr
  6. 20 poke56334,peek(56334)and254
  7. 30 poke1,peek(1)and251
  8. 40 fori=0to1023:pokei+12288,peek(i+2048+53248):next
  9. 41 fori=0to7:poke12288+512+25*8+i,peek(53248+512+2048+26*8+i):next
  10. 42 fori=0to7:poke12288+512+26*8+i,peek(53248+512+2048+25*8+i):next
  11. 43 fori=0to7:poke12288+25*8+i,peek(53248+2048+26*8+i):next
  12. 44 fori=0to7:poke12288+26*8+i,peek(53248+2048+25*8+i):next
  13. 45 fori=0to7:reada:poke12288+i,a:next
  14. 46 fori=0to7:reada:poke12288+122*8+i,a:next
  15. 47 fori=0to7:reada:poke12288+58*8+i,a:next
  16. 48 fori=0to7:reada:poke12288+27*8+i,a:next
  17. 49 fori=0to7:poke12288+42*8+i,peek(53248+2048+8+i):next:poke12288+42*8+1,102
  18. 50 fori=0to7:reada:poke12288+64*8+i,a:next
  19. 51 fori=0to7:poke12288+60*8+i,peek(53248+2048+59*8+i):next
  20. 52 fori=0to7:poke12288+62*8+i,peek(53248+2048+58*8+i):next
  21. 53 fori=0to7:reada:poke12288+43*8+i,a:next
  22. 54 fori=0to7:poke12288+91*8+i,peek(53248+2048+63*8+i):next
  23. 55 fori=0to7:poke12288+28*8+i,peek(53248+2048+43*8+i):next
  24. 59 poke1,peek(1)or4
  25. 60 poke56334,peek(56334)or1
  26. 70 poke53272,(peek(53272)and240)+12
  27. 100 data0,0,102,0,102,102,60,0,102,0,102,102,102,102,60,0
  28. 110 data0,0,102,60,102,102,60,0,102,60,102,102,102,102,60,0
  29. 120 data102,0,60,102,126,102,102,0,0,56,108,120,108,108,120,96
  30.