Rem Показ дампа	на терминале

  InitRS("T")		  Rem Инициализация для	работы под терминалом
  Open(File,"",	0);	  Rem Открываем	файл дампа (с файловым диалогом).
  Size = $80;
  GetBuf(Buff,Size)	  Rem Выделяем память для буфера.
Rd:
  RdBlk(File, Buff, Size) Rem Читаем из	файла в	буфер
  Index	= 0;
Snd:
  PrintV(RdBuf(Buff, Index), 1,	"c");	      Rem Выводим очередной символ
					      Rem из буфера в окно терминала.
  Beep(0, 3);				      Rem Вводим задержку в 3 ms для
					      Rem более	удобного просмотра.
  if (Index=Index+1) < Size  then goto Snd    Rem Если вывели еще не весь
					      Rem буфер, циклимся.
  if Size <> 0 then GoTo Rd		      Rem Если файл прочитан не	весь,
					      Rem циклимся.
  Close(File);				      Rem Закрываем файл.
  DisBuf(Buff);				      Rem Освобождаем память.

