home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh3x
/
sh33a.d64
/
zs-generator
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1995-03-30
|
269b
|
15 lines
10 POKE 52,48:POKE56,48:CLR
20 POKE 56334,PEEK(56334) AND 254
30 POKE 1,PEEK(1) AND 251
40 FOR I=0 TO 256*8
50 :POKE 12288+I,PEEK(53248+I)
60 NEXT
70 POKE 1,PEEK(1) OR 4
80 POKE 56334,PEEK(56334) OR 1
90 OPEN2,8,2,"ZEICHENSATZ,P,W"
100 PRINT#2,CHR$(0) CHR$(208);
110 FOR I = 0 TO 256*8
120 :PRINT#2,CHR$(PEEK(12288+I));
130 NEXT
140 CLOSE 2