home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_A.d64 / zs-generator (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  269b  |  15 lines
  1. 10 poke 52,48:poke56,48:clr
  2. 20 poke 56334,peek(56334) and 254
  3. 30 poke 1,peek(1) and 251
  4. 40 for i=0 to 256*8
  5. 50 :poke 12288+i,peek(53248+i)
  6. 60 next
  7. 70 poke 1,peek(1) or 4
  8. 80 poke 56334,peek(56334) or 1
  9. 90 open2,8,2,"zeichensatz,p,w"
  10. 100 print#2,chr$(0) chr$(208);
  11. 110 for i = 0 to 256*8
  12. 120 :print#2,chr$(peek(12288+i));
  13. 130 next
  14. 140 close 2
  15.