|
06.02.2004, 13:06
#32400714
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Кусок кода главного файла:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
* 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()
...
|
|
|
