! Lesen des ersten MEMO in Kategorie 2
fp=-1
FILENEXT 3,2,fp: ! fp auf den ersten Datensatz
FILEREAD 3,2,fp: ! Datensatz (=MEMO) lesen
FBINIT: ! internen Zeiger auf Anfang des Puffers
$m
s$=FBSTRING$(rc): ! String auslesen
if rc>0 goto mend: ! Memoende -> fertig
? s$ : ! String ausgeben
goto m : ! weiter
$mend |