База данных страховой компании (DOCA6)

Посмотреть архив целиком

(ant5)


MEMBER('ANT')

MEN4 PROCEDURE

SCREEN SCREEN PRE(SCR),WINDOW(10,36),AT(6,23),HUE(5,3)

ROW(1,1) STRING('+-{34}+')

ROW(2,1) REPEAT(3),EVERY(3);STRING('¦<0{34}>¦') .

ROW(3,1) STRING('¦<0{9},130>âåäèòå<0>ãðàíèöû<0{10}>¦')

ROW(4,1) STRING('¦<0{12}>â<0>òûñ<0>ðóá<0{13}>¦')

ROW(6,1) STRING('¦<0{4}>ìèíèìàëüíóþ<0{19}>¦')

ROW(7,1) STRING('¦<0{4}>ìàêñèìàëüíóþ<0{18}>¦')

ROW(9,1) STRING('¦<0{34}>¦')

ROW(10,1) STRING('+-{34}+')

ROW(4,13) STRING('(')

COL(19) STRING('.')

COL(23) STRING('.)')

ENTRY,USE(?FIRST_FIELD)

ROW(6,19)ENTRY(@n_9),USE(MEM:NG),NUM,INS,HUE(0,3)rOW(7,19) ENTRY(@n_9),USE(MEM:VG),NUM,INS,HUE(0,3)

ENTRY,USE(?LAST_FIELD)

.

EJECT

CODE

OPEN(SCREEN) !OPEN THE SCREEN

SETCURSOR !TURN OFF ANY CURSOR

if choice()=1 then mem:god=1992 else mem:god=1993.!CALL SETUP PROCEDURE

DISPLAY !DISPLAY THE FIELDS

LOOP !LOOP THRU ALL THE FIELDS

ALERT !RESET ALERTED KEYS

ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY

ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY

ACCEPT !READ A FIELD

IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT KEY

IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY

UPDATE ! MOVE ALL FIELDS FROM SCREEN

SELECT(?) ! START WITH CURRENT FIELD

SELECT ! EDIT ALL FIELDS

CYCLE ! GO TO TOP OF LOOP

. !

CASE FIELD() !JUMP TO FIELD EDIT ROUTINE

OF ?FIRST_FIELD !FROM THE FIRST FIELD

IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY

OF ?MEM:VG

MEN5

OF ?LAST_FIELD !FROM THE LAST FIELD

ACTION = 0 ! SET ACTION TO COMPLETE

RETURN ! AND RETURN TO CALLER

. .



Случайные файлы

Файл
56718.rtf
71953.rtf
145355.rtf
78586.rtf
70931-1.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.