10 NM$="[129]PIC G MONKEY  "
20 IFF=0THENF=1:LOADNM$,8,1
30 BANK=1:SCNOFFSET=1:COLOFFSET=7
40 POKE56576,(PEEK(56576)AND252)OR(3-BANK):REM SET BANK
50 POKE53265,PEEK(53265)OR32:REM TURN ON BITMAP
60 POKE53272,(COLOFFSET*16+SCNOFFSET*8):REM POSITION HI-RES AND COLOR MEMORIES
70 POKE53270,PEEK(53270)OR16:REM SET MULTICOLOR MODE
80 FOR I=23552TO24551:POKEI,PEEK(I+9024):NEXTI:REM 32576-33575
90 FOR I=55296TO56295:POKEI,PEEK(I-21720):NEXTI:REM 33576-34575
100 A=PEEK(34576):POKE53280,A:POKE53281,A
110 GETK$:IFK$="" THEN110
120 POKE56576,199:POKE53265,27:POKE53270,200:POKE53272,21
130 POKE53280,14:POKE53281,6