! Чтение всех MEMOs из категории 5
i=0
$m1
ERROROFF: ! Выключить сообщение об ошибке
LOADMEMO a$,5,i: ! Чтение Memo
ERRORON: ! Включить сообщение об ошибке
if error>0 GOTO endlabel : ! Нет больше MEMO файлов
PRINT a$: ! Печать 1-й строки
INC i
GOTO m1
$endlabel
PRINT "Finished" |