10 REM Reserve 4 pages of RAM for character set
20 MEM=PEEK(106)-4:POKE 106,MEM-1:RAMSTART=256*MEM
140 REM Load ML routine
150 FOR I=1 TO 35:READ A:POKE 1535+I,A:NEXT I
160 DATA 104,160,255,162,7,177,203,72,136,177,203,200,145,205
170 DATA 136,202,208,246,104,145,205,136,192
180 DATA 255,208,233,198,206,198,204,198,207,208,223,96
190 REM Initialize work variables for character set transfer to RAM
200 POKE 203,0:POKE 204,227
210 POKE 205,0:POKE 206,MEM+3:POKE 207,4
220 REM Call ML routine to move character set
230 A=USR(1536)
380 REM Turn on new character set
390 POKE 756,MEM

---

Back to previous page