, 37PAD add OF go PROMPT ' MENU goOPEN_? menu goSEE_in window output noedit normalSTORE_DELETE_SEE_ADDITION_SEE_SORT_TALK ONchoices (4,1) " ; Film name "TO choices (1)" Genre "TO choices (2)" Date of record "TO choices (3)" Fio client "TO choices (4) 0 TO mchoice
@ 0,55 MENU choices, 4 TITLE "Сортування" MENU TO mchoiceCASEmchoice = 1dbf () <> "sort_nm" sort on name to sort_nmfilmmchoice = 2dbf () <> "sort_ln" sort on last_n to sort_lngenremchoice = 3dbf () <> "sort_ag" sort on age to sort_agdt_recmchoice = 4dbf () <> "sort_sx" sort on sex to sort_sxclientlast in window output noedit normalZAPR_
# REGION 0m.currarea, m.talkstat, m.compstatSET ("TALK") = "ON" TALK OFF.talkstat = "ON". talkstat = "OFF". compstat = SET ("COMPATIBLE") COMPATIBLE FOXPLUS.currarea = SELECT () kursbd0 to m0 to n'_ 'to x1'_' to x2'_ 'to x3NOT WEXIST ("_ryc15ai8g") WINDOW _ryc15ai8g; INT ((SROW () -20)/2), INT ((SCOL () -70)/2); INT ((SROW () -20)/2) +19, INT ((SCOL () -70)/2) + 69; "Okno Zaprosa"; "Videoprokat";;;;;; SCHEME 1
# REGION 1WVISIBLE ("_ryc15ai8g") WINDOW _ryc15ai8g SAMEWINDOW _ryc15ai8g NOSHOW
@ 1,17 get kursbd.film_name size 1,20
@ 1,1 say 'Film Name' size 1,9
@ 2,17 get kursbd.genre size 1,15
@ 2,1 say 'Genre' size 1,5
@ 3,17 get kursbd.duration size 1,5
@ 3,1 say 'Dlitelnost' size 1,10
@ 4,17 get kursbd.date_rec size 1,8
@ 4,1 say 'Date record' size 1,11
@ 5,17 get kursbd.zalog size 1,5
@ 5,1 say 'Summa zaloga' size 1,12
@ 6,17 get kursbd.fio_client size 1,15
@ 6,1 say 'Fio client' size 1,12
@ 8,1 get k picture "@ * HN Back; Next; Exit" size 1,8,2; 1; _ryc15aias ()
@ 1,50 GET r PICTURE "@ * RVN Початок; Кінець; Видалення" SIZE 1,12,0; 1; _ryc15aibi ()
@ 9,0 say 'Film name' get x1 size 1,20
@ 10,0 say 'Genre' get x3 size 1,15...
