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›