][ DOUBLE HI-RES GRAPHICS ][

Start Double Hi-Res: PRINT CHR$(4);"PR#3":PRINT CHR$(12) Clear Screen: HGR Initialize Double Hi-Res Mode: POKE 49154,0 : REM Turn RAMRD Off POKE 49156,0 : REM Turn RAMWRT Off POKE 49153,0 : REM Turn 80STORE On POKE 49239,0 : REM Turn HIRES On POKE 49160,0 : REM Turn ALTZP Off POKE 49246,0 : REM Turn AN3 On POKE 49232,0 : REM Turn TEXT Off POKE 49165,0 : REM Turn 80COL On Set First (Odd) Group of 7 Dots: POKE 49237,0 Set Second (Even) Group of 7 Dots: POKE 49236,0 (Enables Auxiliary Memory for Hi-Res Page) Clear Auxiliary Hi-Res Area: CALL 62450 (Use after setting Odd or Even Dots mode)

Calculate Point to Plot & Page to Use: XX=INT(X/7):PG=XX/2-INT(XX/2) XX=INT(XX/2)+((X/7)-XX) XX=INT(XX*7+.5) POKE 49237,0: IF PG THEN POKE 49236,0 IF XX>279 THEN RETURN HPLOT XX,Y: REM XX is Double Hi-Res Point and Y is Standard Point POKE 49236,0 RETURN Switch Back to Normal Hi-Res Mode: PRINT CHR$(27);CHR$(17): POKE 49164,0: POKE 49152,0: POKE 49237,0: POKE 49234,0: POKE 49232,0