SET DATE ITALIAN CLEAR SET MESSAGE TO 23 CENTER CAJA = CHR(218)+CHR(196)+CHR(191)+CHR(179)+CHR(217)+CHR(196)+CHR(192)+ ; CHR(179) CAJA2 = CHR(201)+CHR(205)+CHR(187)+CHR(186)+CHR(188)+CHR(205)+CHR(200)+ ; CHR(186) I=7 DO WHILE .T. CLEAR @ 0,0,24,80 BOX CAJA2 @ 2,66,5,75 BOX CAJA @ 3,67 SAY 'AGENCIA ZZZ' @ 4,67 SAY ' GRUPO ' @ 4,17,18,56 BOX REPLICATE (CHR(219),9) @ 5,13,19,53 BOX REPLICATE(CHR(178),9) @ 6,28 PROMPT "LISTADOS DE RENTABILIDAD" MESSAGE "D  listados de rentabilidad y gastos" @ 8,28 PROMPT "RENTABILIDAD" MESSAGE "C lcula la rentabilidad de una excursi¢n" @ 10,28 PROMPT "EXCURSIONES" MESSAGE "Alta, Baja, Mod. y consulta de las excursiones" @ 12,28 PROMPT "GASTOS" MESSAGE "Alta, Baja, Mod. y Consulta de gastos" @ 14,28 PROMPT "BUS" MESSAGE "Alta, Baja, Mod. y Consulta de precios del BUS" @ 16,28 PROMPT "GUIAS" MESSAGE "Alta, Baja, Mod. y Consulta de precios de los GUIAS" @ 18,28 PROMPT "SALIR" MESSAGE "Salir al programa principal" MENU TO I DO CASE CASE I=1 DO MR *** listados de rentab. y gastos diversos.... CASE I=2 DO RENTAB *** c lculo de la rentabilidad de la excursi¢n CASE I=3 DO ME *** mantenimiento de excursiones CASE I=4 DO MG *** mantenimiento de gastos CASE I=5 DO MB *** mantenimiento de BUS CASE I=6 DO MGUIA *** mantenimiento de GUIA CASE I=7 CLEAR ALL RETURN *** salir al S.O. ENDCASE CLEAR I=7 ENDDO