C64 Software  <  SCA: The C64 Software Collection / G5 HIRES LOADER

  Run
10 REM SHOW HIRES.DEMO
20 PRINT"";        :REM CLEAR SCREEN
30 IF SW=1 THEN 100 :REM SKIP PAST LOAD
40 SW=1             :REM SET SWITCH
50 LOAD "",8,1 :REM HI-RES SCREEN
100 :
110 REM TURN ON 'BIT-MAP MODE'
120 POKE 53265,PEEK(53265)OR32
200 :
210 REM SET HI-RES MEMORY POINTER
220 POKE 53272,27
300 :
310 REM WAIT FOR ANY KEYBOARD ACTION
320 GET X$:IF X$="" THEN 300
400 :
410 REM SET BACK TO NORMAL
420 POKE 53265,27
430 POKE 53272,21
READY.