'Ohjelma käy läpi segmentit 0-15 ja tulostaa kunkin segmentin alusta 500
'merkkiä. Segmenttien 12 ja 15 alussa on yleensä copyright yms. tekstejä.

FOR i = 0 TO 65535 STEP 4096
CLS
DEF SEG = i
FOR a = 0 TO 499
ARVO = PEEK(a)
IF ARVO <> 126 AND ARVO <> 13 AND ARVO <> 32 AND ARVO <> 7 AND ARVO <> 12 THEN
PRINT CHR$(ARVO);
END IF
NEXT a
PRINT
a$ = INPUT$(1)
NEXT i
DEF SEG