Материалы сайта
Это интересно
База данных страховой компании
(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 . .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17