3120 FOR BYTE=1 TO 40:READ DAT:POKE 1737+BYTE,DAT:NEXT BYTE›3130 DATA 252,243,207,63,0,128,0,128,128,2,2,3,3,1,0,0,0,0,0,4,5,6,7,3,76,128›3140 DATA 64,76,80,64,76,177,64,76,5,65,76,88,65,0›3180 MEM=PA›3190 FOR SEC=0 TO 7:GOSUB 32000+10*SEC:X=USR(ADR(MOVMEM$),ADR(MLANG$),MEM,LEN(MLANG$)-1)›3200 MEM=MEM+LEN(MLANG$):NEXT SEC›5470 X=USR(PA,PB,PB)›