Posted By
Csabo
on 2009-01-12
16:42:58
|  Re: Defining a custom charset from BASIC
Although it's trivial, here's the final optimized version. The loop only needs to run 4 times as we can copy 512 bytes with one SYS. I like it 
10 D=DEC("38")
12 W=PEEK(2024):POKE2024,255
13 POKE192,0:POKE169,0
14 POKE200,0:POKE234,0
15 FORI=0TO3
16 POKE193,208+I:POKE170,212+I
17 POKE201,D+I:POKE235,D+4+I
18 POKE2036,0:SYSDEC("DA4F")
19 NEXTI
20 POKE2024,W
|
