Курсовая работа: Учет товаров в фирме по продаже аудиотехники

DO EndProc WITH 1

PROCEDURE Titul

SET CURSOR OFF

DEFINE WINDOW TitleWindow FROM 0,0 TO 24,79 DOUBLE

ACTIVATEWINDOWTitleWindow

TEXT

ENDTEXT

Key=INKEY(20)

RELEASE WINDOW TitleWindow

RETURN

PROCEDURE PrintRec

? ' '

? 'Название фильма: ',A. nazv_f

? 'Тип носителя: ',A. tip_nosit

? 'Название носителя: ',B. nazv_nosit

? 'Продолжительность: ',A. prodol

? 'Качество: ',A. kachestvo

? 'Цена: ',A. zena

? 'Код поставщика: ',A. kod_post

? 'Название поставщика: ',C. nazv_post

? 'Адрес поставщика: ',C. adres_post

? 'Телефон поставщика: ',C. telef_post

? 'Жанр: ',A. janr

? 'Главный артист: ',A. gl_artist

? 'Код фильма: ',A. kod_f

RETURN

PROCEDURE Print

SET CURSOR OFF

y=BAR()