TECNICAS DE PROGRAMACION II

Construya el programa completo:
Set status off
Set echo off
close all
*** asignamos el color de fondo***
*set colo to n/bg
Set message to 24
*** Iniciamos la matriz para la barra de menú ***
Dimension Top (6,2)
Top (1,1) = ' ARCHIVO'
Top (2,1) = ' EDITAR'
Top (3,1) = ' CLIENTES'
Top (4,1) = ' PROVEEDORES'
Top (5,1) = ' PRODUCTOS'
Top (6,1) = ' REPORTES'
Top (1,2) = ' SELECCIONES ARCHIVO'
Top (2,2) = ' SELECCIONES EDITAR'
Top (3,2) = ' SELECCIONES CLIENTES'
Top (4,2) = ' SELECCIONES PROVEEDORES'
Top (5,2) = ' SELECCIONES PRODUCTOS '
Top (6,2) = ' SELECCIONES REPORTES '
*** Iniciamos la matriz para el menú ARCHIVO ***
Dimension M_ARCHIVO ( 7 )
M_ARCHIVO( 1) = '\M_ARCHIVO( 2) = '\M_ARCHIVO( 3) = '\M_ARCHIVO( 4) = '\-'
M_ARCHIVO( 5) = '\M_ARCHIVO( 6) = '\M_ARCHIVO( 7) = '\*** Iniciamos la matriz para el menú EDITAR ***
Dimension M_EDITAR ( 6 )
M_EDITAR( 1) = '\M_EDITAR( 2) = '\M_EDITAR( 3) = '\M_EDITAR( 4) = '\-'
M_EDITAR( 5) = '\M_EDITAR( 6) = 'B\*** Iniciamos la matriz para el menú CLIENTES ***
Dimension M_CLIENTES ( 9 )
M_CLIENTES( 1) = '\M_CLIENTES( 2) = '\M_CLIENTES( 3) = '\M_CLIENTES( 4) = '\M_CLIENTES( 5) = '\-'
M_CLIENTES( 6) = '\M_CLIENTES( 7) = '\M_CLIENTES( 8) = 'CUEN\M_CLIENTES( 9) = 'E\*** Iniciamos la matriz para el menú PROVEEDORES ***
Dimension M_PROVEEDORES ( 9 )
M_PROVEEDORES( 1) = '\M_PROVEEDORES( 2) = '\M_PROVEEDORES( 3) = '\M_PROVEEDORES( 4) = '\M_PROVEEDORES( 5) = '\-'
M_PROVEEDORES( 6) = '\M_PROVEEDORES( 7) = '\M_PROVEEDORES( 8) = 'CUEN\M_PROVEEDORES( 9) = 'E\*** Iniciamos la matriz para el menú PRODUCTOS ***
Dimension M_PRODUCTOS ( 9 )
M_PRODUCTOS( 1) = '\M_PRODUCTOS( 2) = '\M_PRODUCTOS( 3) = '\M_PRODUCTOS( 4) = '\M_PRODUCTOS( 5) = '\-'
M_PRODUCTOS( 6) = '\M_PRODUCTOS( 7) = '\M_PRODUCTOS( 8) = '\M_PRODUCTOS( 9) = 'E\*** Iniciamos la matriz para el menú REPORTES ***
Dimension M_REPORTES ( 10 )
M_REPORTES( 1) = '\M_REPORTES( 2) = '\M_REPORTES( 3) = '\M_REPORTES( 4) = '\M_REPORTES( 5) = '\-'
M_REPORTES( 6) = 'PL\M_REPORTES( 7) = '\M_REPORTES( 8) = 'CUEN\M_REPORTES( 9) = '\M_REPORTES( 10) = 'C\*** LOS MENUS DESPLEGABLES ***
MENU BAR TOP,6
MENU 1,M_ARCHIVO,7,7
MENU 2,M_EDITAR,6,6
MENU 3,M_CLIENTES,9,9
MENU 4,M_PROVEEDORES,9,9
MENU 5,M_PRODUCTOS,9,9
MENU 6,M_REPORTES,10,10
*** LA POSISICON DE LA OPCION MENU ***
COL = 1
ROW = 1
*** ACTIVAMOS EL SISTEMA DE MENUS DESPLEGABLES ***
READ MENU BAR TO COL, ROW SAVE

clear