INPUT "Категория: ",cat
fp=-1: ! Устанавливается указатель файла для "first search"
$loop: FILENEXT 3,cat,fp: ! Чтение указателя для следующей записи
IF fp=-1 GOTO ready:! No further record
FILEREAD 3,cat,fp: ! Чтение memo в FILEBUFFER
FOR i=0 TO 20: ! Первые 21 символ
IF FILEBUFFER[i]=13 GOTO next
! Конец строки?
PRINT CHR$(FILEBUFFER[i]);
! Вывод символа
NEXT
$next: PRINT: ! Новая строка
GOTO loop
$ready: PRINT "Ready" |