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)¢
