! Чтение первой записки memo в категории 2
fp=-1
FILENEXT 3,2,fp: ! Установить to на первую запись
FILEREAD 3,2,fp: ! Читать запись (=memo)
FBINIT: ! Установить внутренний указатель на начало буфера
$m
s$=FBSTRING$(rc): ! Чтение одной строки
if rc>0 goto mend: ! Успешно ?
? s$ : ! Выходная строка
goto m : ! повторить
$mend |