3070 DIM MEMCLR$(36):GOSUB 30500:MEMCLR$=MLANG$›3150 PB=PEEK(740)-8:CB=PB-4:POKE 106,CB-4:CA=CB*256:PA=PB*256›3250 X=USR(ADR(MEMCLR$),PA+768,1280)›3270 FOR BYTE=201 TO 208:READ DAT:POKE PA+1024+BYTE,DAT:NEXT BYTE›3280 DATA 16,16,56,56,124,124,198,198›5200 POKE 54279,PB:POKE 559,62:POKE 704,10›5480 POKE 53277,3›