023Santos

store 0 to a,b,c,d,e,f,g,h,i,j,ñ,l,m,n,ñ,A,B,C,D

@00,00 say "C:\Documents and Settings\Marcos\Escritorio\00.jpg" bitmap

wait windows

clear

@00,05 SAY "C:\Documents andSettings\Marcos\Escritorio\01.jpg" bitmap

@3,50 say "Panaderia Santos" font"comic sans ms",25 color rgb (500,0,0)

@5.5,51.8 say "15 Calle 4-71 zona 10" font"comic sans ms",18 color rgb (0,5000,0)

*manejospinner

STORE 0 TO DIA

@1.5,19 say "Dia:" get dia spinner 1,0,31

STORE 0 TO año

@1.5,60 say "Año:" get año spinner 2000,0,2020

STORE SPACE(15) TO mes

tipo="Mes"&& valor inicial

@1.5,101say "Mes" get tipo pictur"@^ enero,;febrero,;marzo,;abril,;mayo,;abril,;mayo,;junio,;julio,;agosto,;septiembre,;octubre,;noviembre,;diciembre" size 2,20

read

@8,25 say "Este es un programa quecalcula la produccion por HORA & por MINUTO" font"comic sans ms",12

wait windows

@10,13 say "Panadero #1" get a

@11.5,13 say "Panadero #2" get b

@13,13 say "Panadero #3" get c

@14.5,13say "Panadero #4" get d

@16,13 say "Panadero #5" get e

read

f=a/8

@10,42 say "POR HORA=" style "b"

@10,54 say f

g=f/60

@10,75 say "POR MINUTO=" style "b"

@10,89.5 say gh=b/8

@11.5,42 say "POR HORA=" style "b"

@11.5,54 say h

i=h/60

@11.5,75 say "POR MINUTO=" style "b"

@11.5,89.5 say i



j=c/8

@13,42 say "POR HORA=" style "b"

@13,54 say jk=j/60

@13,75 say "POR MINUTO=" style "b"

@13,89.5 say k



l=d/8

@14.5,42 say "POR HORA=" style "b"

@14.5,54 say l

m=l/60

@14.5,75 say "POR MINUTO=" style "b"

@14.5,89.5 saym



ñ=e/8

@16,42 say "POR HORA=" style "b"

@16,54 say ñ

o=ñ/60

@16,75 say "POR MINUTO=" style "b"

@16,89.5 say o



@18,13 say "Margen de ganancia del 25%" style "b"m=a+b+c+d+e

n=m*25/100

@18,44 say n

wait windows

@21,47 say "Ahora se mostrara el pago que corresponde a cada" style "b"

@22,54 say "Panadero y respectivos Ayudantes" style "b"

wait...