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

DO CASE

CASE y=1

SCAN

Do PrintRec

WAIT 'Любая клавиша - Продолжить, Esc - ОТКАЗ' WINDOW

IF LASTKEY() =27

EXIT

ENDIF

ENDSCAN

CASE y=2

WAIT 'Данные записываются в файл INFO. DAT Любая клавиша - ЗАПИСЬ, Esc - ОТКАЗ' WINDOW

IF LASTKEY() #27

SET PRINTER TO info. dat ADDITIVE

SET PRINTER ON

SCAN

Do PrintRec

ENDSCAN

SET PRINTER OFF

ENDIF

CASE y=3

SET PRINTER TO LPT1

IF PRINTSTATUS()

SET PRINTER ON

SCAN

Do PrintRec

ENDSCAN

SET PRINTER OFF

ELSE

WAIT 'Принтер не готов' WINDOW NOWAIT