INPUT "Welche Kategorie: ",cat
fp=-1: ! Setze Filezeiger vor Anfang
$loop: FILENEXT 3,cat,fp: ! Setze Zeiger auf nächsten Satz
IF fp=-1 GOTO ready:! Kein weiterer Datensatz
FILEREAD 3,cat,fp: ! MEMO lesen nach FILEBUFFER
FOR i=0 TO 20: ! Erste 21 Zeichen
IF FILEBUFFER[i]=13 GOTO next
! Ende der Zeile?
PRINT CHR$(FILEBUFFER[i]);
! Zeichen ausgeben
NEXT
$next: PRINT: ! Neue Zeile
GOTO loop
$ready: PRINT "Fertig!" |