5 REM ÔÈÉÓ ÐÒÏÇÒÁÍ ÉÓ ÐÁÒÔ ÏÆ Á ÆÏÕÒ­ ÐÁÒÔ ÓÅÒÉÅÓ ÃÁÌÌÅÄ §ÏÄÄÍÁΧ ÉΠÎÏÖ®­  ÆÅ® ÁÎÄ ×ÉÌÌ ÎÏÔ ÒÕΠÏΠÉÔÓ Ï×Π     ›10 DIM RAM$(1),ROM$(1)›20 RAMTOP=PEEK(106):POKE 106,RAMTOP-4›30 GRAPHICS 0›40 VT=PEEK(134)+256*PEEK(135):AT=PEEK(140)+256*PEEK(141)›50 GRTOP=RAMTOP-4:RAMLOC=GRTOP*256›60 OFFRAM=RAMLOC-AT›70 LENHI=INT(1025/256):LENLO=INT(1025-(LENHI*256))›80 OFFRAMH=INT(OFFRAM/256):OFFRAML=(OFFRAM-(OFFRAMH*256))›90 POKE VT+2,OFFRAML:POKE VT+3,OFFRAMH›100 POKE VT+4,LENLO:POKE VT+5,LENHI›110 POKE VT+6,LENLO:POKE VT+7,LENHI›