10 GOSUB 30000:LMEM=PEEK(88):HMEM=PEEK(89)›20 POKE 87,1›30 POKE 87,0:BYTE=80:GOSUB 31000›40 POKE 87,7:BYTE=160:GOSUB 31000›50 POKE 87,0:BYTE=800:GOSUB 31000›60 POKE 87,8:BYTE=160:GOSUB 31000›70 POKE 87,5:BYTE=800:GOSUB 31000›29999 END›30000 POKE 106,PEEK(106)-1:DL=256*PEEK(106)›30010 GRAPHICS 8:POKE 559,0›30020 FOR I=0 TO 63:READ A:POKE DL+I,A:NEXT I›30030 DATA 112,112,112,70,80,97,6,6,6,2,2,2,2,14,14,14,14,14,14,14›30040 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,5,5,5,5,15,15,15›30050 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,10,10,10›30060 DATA 10,10,10,65›30070 POKE DL+4,PEEK(88):POKE DL+5,PEEK(89)›30080 POKE 560,0:POKE 561,DL/256:POKE 559,34›30090 RETURN›31000 HMEM=256*HMEM+LMEM+BYTE›31010 LMEM=HMEM-256*INT(HMEM/256)›31020 HMEM=INT(HMEM/256)›31030 POKE 88,LMEM:POKE 89,HMEM:RETURN›