* ds- 5 
PARAMETERS par1,par2,par3,par4,par5
SET TALK OFF
nparam=parameters()
clear
SET ESCAPE OFF
*set memo to  80 
*set clock on
set memo to  254 
SET SCOREBOARD off
SET STATUS OFF
SET SAFETY OFF
SET DELE ON
set bell off
set head off
set conf on
* SET COLOR TO  "n/w" 
SET COLOR TO  "w+/b" 
SET FUNCTION  "F7"  TO CHR( 25 )
SET FUNCTION  "F10"  TO CHR( 23 )
*on key label F10 keyboard chr( 23 )
SET FUNCTION  "F5"  TO CHR( 23 )
* LOAD FTAKE_B
* LOAD FSEND_B
* LOAD FDEL_B
@  01 , 02  say  "                        ----------------------------------        "
 
@  02 , 02  say "                         --- Московская железная дорога ---        "
 
@  03 , 02  say  "                        ----------------------------------        "
 
@  04 , 02  say "                                                                   "
@ 05 , 02  say "                                                                   "
@ 06 , 02  say "                                                                   "
@ 07 , 02  say "                                                                   "
@ 08 , 02  say "                        -------    ----------    ----     ----     "
 
@  09 , 02  say  "                      --   ---    ---    ---    -----   -----     "
 
@  10 , 02  say "                      --    ---    ---    ---    --- -- -- ---     "
 
@  11 , 02  say  "                    ----------    ----------    ---  ---  ---     "
 
@  12 , 02  say "                     ---    ---    ---           ---   -   ---     "
 
@  13 , 02  say  "                    ---    ---    ---           ---       ---     "
 
@  14 , 02  say "                                                                   "
@ 15 , 02  say "                                                                   "
***@ 16 , 02  say "                Сведениста станции Московско-Павелецкого отделения    "
********* Отработки названия отделения нет (см. ДС-6 )
*@  16 , 02  say "                     Сведениста станции Рязанского отделения             "
@ 19 , 02  say "                     АОЗТ 'Магистраль', Версия  2 . 0  от  01 . 02 . 97  "
if .not.file(" nod.dbf ")
  ? " Нет конфигуационного файла NOD.DBF "
  set consol off
  wait
  set consol on
  quit
endif
NDBF=1 
* pathnod="  "
* name=trim(pathnod)+" NOD"
dial_chas=.f.
ON ERROR DO errfun with ERROR(),MESSAGE(),SYS( 16 ),LINENO()
*ON ERROR DO errhand WITH ERROR(),MESSAGE(),MESSAGE( 1 ),PROGRAM(),LINENO()

...