home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh33a.d64 / zs-generator (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  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.