! alle MEMOs der Kategorie 5 lesen
i=0
$m1
ERROROFF: ! Fehlermeldungen ausschalten
LOADMEMO a$,5,i: ! Memo lesen
ERRORON: ! Fehlermeldungen wieder einschalten
if error>0 GOTO ende: ! Kein Memo mehr da
PRINT a$: ! erste Zeile ausgeben
INC i
GOTO m1
$ende
PRINT "Fertig" |