4 FOR S = 1 TO 5000
5 DEF SEG = S
10 OPEN "C:\Temp\Junk\MEM"+RIGHT$(STR$(S),LEN(STR$(S))-1) FOR OUTPUT AS 1
20  FOR X = 1 TO 65535!:PRINT #1,CHR$(PEEK(X));:NEXT
30 CLOSE 1
40 NEXT S
50 E