10 FOR I=0 TO 64512!
20 DEF SEG = I
30 FOR N=0 TO 65535!
40 M=PEEK(N)
50 IF M<32 THEN 80
60 PRINT CHR$(M);
70 GOTO 90
80 PRINT " ";
90 NEXT N
100 NEXT I

    Source: geocities.com/v.iniestra/basic

               ( geocities.com/v.iniestra)