Программа: MGE (главный модуль) Назначение: Cинтаксически управляемый редактор финансовых сообщений Область применения: Автоматизация банковской деятельности Язык программирования: Turbo Pascal Характеристики программы: Всего модулей .......... (unit) 35+2 шт. Процедур .......... (procedure) 773 шт. Функций ............ (function) 536 шт. Операторов присваивания .. (:=) 3733 шт. Условных операторов ...... (if) 1944 шт. Операторов выбора....... (case) 27 шт. Операторов цикла ........ (for) 354 шт. ...... (while) 121 шт. ..... (repeat) 40 шт. Операторов присоединения (with) 383 шт. Записей .............. (record) 50 шт. |
(* MGE использует: FILE_FMS *) (* MAIN_FMS *) (* OPEN_FMS *) {$A+,B-,D-,E+,F+,G-,I+,L+,N-,O+,R+,S+,V+,X-} {$M 16384,0,65536} program MGE; uses Overlay, CRT, DOS, OPEN_FMS, MAIN_FMS, FILE_FMS; {$O COVR_FMS } {$O CRUF_FMS } {$O EXIT_FMS } {$O EXPO_FMS } {*O FACE_FMS } { Overlay FACE_FMS сильно замедляет работу } {$O FORM_FMS } {$O HELP_FMS } {$O INFO_FMS } {*O LAYS_FMS } {$O MAIN_FMS } {$O OPEN_FMS } {$O OVER_FMS } {$O SHOW_FMS } {$O TABS_FMS } begin OvrInit('MGE.ovr'); WellCome; { OPEN_FMS } MAIN_MGE; { MAIN_FMS } Come_Again; { OPEN_FMS } end. |