Gastronomia

Set status off
Set talk off
Set echo off
Set bell off
Set border to
l=space(1)
do while l<>"n"
SET COLOR TO RGB(0,0,0,255,255,255)
CLEAR
@1,1 TO 47,239
@2,2 to 10,238
@11,2 to 46,238
@3.5,70 say "fananciera pichincha" font "Harlow Solid Italic",55 style "i" color rgb (0,0,0)
nc=space(30)
cc=0
tc=space(30)
va=0
ci=space(30)
@14,30 say "nombre cliente " font "Bauhaus 93",30color rgb (0,200,0) get nc font "arial",30 color rgb(0,0,0)
@18,30 say "cedula " font "Bauhaus 93",30 color rgb (0,200,0) get cc font "arial",30 color rgb(0,0,0)
@22,30 say "tipo de credito " font "Bauhaus 93",30 color rgb (0,200,0) get tc font "arial",30 color rgb(0,0,0)
@26,30 say "valor aprobado " font "Bauhaus 93",30 color rgb (0,200,0) get va font "arial",30 colorrgb(0,0,0)
@30,30 say "ciudad del credito " font "Bauhaus 93",30 color rgb (0,200,0) get ci font "arial",30 color rgb(0,0,0)
read
@ 45,1 SAY ""
wait "oprima una tecla para continuar"
Set status off
Set talk off
Set echo off
Set bell off
Set border to
SET COLOR TO RGB(0,0,0,255,255,255)
CLEAR
@1,1 TO 47,239
@2,2 to 10,238
@11,2 to 46,238
@16,3 to 45,237
@3.5,70 say"fananciera pichincha" font "Harlow Solid Italic",55 style "i" color rgb (0,0,0)
@11.5,50 say "liquidadcion de cuotas clientes" font "Algerian",40 color rgb (255,0,0)
@17,6 say "la aprobacion de credito en la finaciera esta sujeta a cambios" font "calibri",20 style "iu" color rgb (0,0,255)
@19,6 say "y la base de liquidacion de cuotas es la siguiente" font "calibri",20 style "iu" color rgb (0,0,255)@22,6 say "nombre cliente" font "Bauhaus 93",30 color rgb (0,200,0)
@22,80 say nc font "Bauhaus 93",30 color rgb (255,0,0)
@26,6 say "tipo de credito aprobado"font "Bauhaus 93",30 color rgb (0,200,0)
@26,80 say tc font "Bauhaus 93",30 color rgb (255,0,0)
@30,6 say "valor aprobado"font "Bauhaus 93",30 color rgb (0,200,0)
@30,80 say va font "Bauhaus 93",30 color rgb (255,0,0)
@34,6 say"cedula"font "Bauhaus 93",30 color rgb (0,200,0)
@34,80 say cc font "Bauhaus 93",30 color rgb (255,0,0)
do case
case tc="estudio"
cu=6
case tc="libre invercion"
cu=18
case tc="vehiculo"
cu=36
case tc="vivienda"
cu=180
OTHERWISE
cu=48
endcase
@38,6.5 say " numero de cuotas" font "Bauhaus 93",30 color rgb (0,200,0)
@38,80 say cu font "Bauhaus 93",30 color rgb(255,0,0)
@ 45,1 SAY ""
wait "oprima una tecla para continuar"
Set status off
Set talk off
Set echo off
Set bell off
Set border to
SET COLOR TO RGB(0,0,0,255,255,255)
CLEAR
@1,1 TO 47,239
@2,2 to 10,238
@11,2 to 46,238
@12,3 to 45,3
@12,4 to 45,4
@12,237 to 45,237
@12,236 to 45,236
@3.5,70 say "fananciera pichincha" font "Harlow Solid Italic",55 style "i" color rgb (0,0,0)@12,90 say "liquidacion" font "Algerian",30 color rgb (255,0,0)
vcsi=va/cu
@15,8 say "valor de la cuota sin interes $" font "Bauhaus 93",25 color rgb (0,200,0)
@15,80 say vcsi font "Bauhaus 93",25 color rgb (255,0,0)
do case
case cu<=24
int=va*1.85/100
case cu>=25 .and. cu<=36
int=va*1.92/100
case cu>=37 .and. cu<=48
int=va*199/100
OTHERWISEint=va*2.1/100
endcase
@19,8 say " valor interes mensual" font "Bauhaus 93",25 color rgb (0,200,0)
@19,80 say int font "Bauhaus 93",25 color rgb (255,0,0)
vcci=vcsi+int
@23,8 say "valor cuota interes" font "Bauhaus 93",25 color rgb (0,200,0)
@23,80 say vcci font "Bauhaus 93",25 color rgb (255,0,0)
sv=va*0.13/100
@27,8 say "valor del seguro de vida" font "Bauhaus 93",25 color rgb (0,200,0)@27,80 say sv font "Bauhaus 93",25 color rgb (255,0,0)
do case
case va<=15000000
cm=20000
OTHERWISE
cm=25000
endcase
@31,8 say "valor de la cuota manejo" font "Bauhaus 93",25 color rgb (0,200,0)
@31,80 say cm font "Bauhaus 93",25 color rgb (255,0,0)
vcfm=vcci+sv+cm
@36,8 say " valor cuota fija mensual" font "Bauhaus 93",25 color rgb (0,200,0)
@36,80 say vcfm font...