cama

clear
*definicion de variables
store space (8.7) to car,combo,tone,prt,pasj,dis
store space (9) to cl,cl,aniofab,tipo
store space (15.6) to tef,fma,cadu,dig,cili
store space (17)to marc,clase,plan, plac,pori,formu,cod,pas, jef,cadu
store space (20.6) to chas,mot,mode,resi,dir, ava
store space (34.3) to ape, nom
store space (25.7) to cope, tma,obs
*definicion de ventanas
definewindow "MATRICULA VEHICULAR" from 9,12 to 60,155 title" MATRICUALA VEHICULAR" COLOR gr+/gb+
*define wind "anverso" from 9,15 to 45,65
*define window "reverso" from 9,80 to 45,145
actívate windowMATRICULA VEHICULAR

*pantalla de datos
@0,8 say "ingreso de la matricula"
@5.6, 3 say "placa anterior"
@7.6, 3 say "placa actual"
@7.8, 66 say "particular"
@7.8,55 say "fecha matricula"
@9.6,3say "marca"
@9.8,66 say " clase"
@9.8,55 say " tipo"
@11.6,2 say " anio fabrica"
@11.6,36 say " modelo"
@11.6,35 say " pais origen"
@11.6,31 say " motor "
@11.6,66 say " color1 "
@11.6,34 say" color2 "
@13.8,2 say "chasis "
@13.8,66 say " carro "
@13.8,36 say " cambo "
@13.8,24 say " pasaje "
@13.8,25 say " tonelada"
@15.8,10 say " observaciones"
@15.8,47 say " caduca "@15.8,41 say " cilindraje "
@17.8,1 say " jefatura "
@17.8,66 say " codigo"
@17.8,45 say " formulario"
@19.8,1 say " apellidos y nombres"
@21.8,20 say " pasaporte "
@21.8,64 say " residencia"@23.8,23 say " direccion "
@23.8,51 say " telefono "
@25.8,54 say "cooperativa"
@25.8,24 say " disco "
@25.8,63 say " digitador"
@27.8,10 say " avaluo"
@29.8,49 say "total matricula"


*ingresode datos
@6.3,10 get plan
@9.2,13 get plac
@9.2,14 get prt
@9.2,18 get fma
@11.8,3 get marc
@11.8,4 get clase
@11.8,42 get tipo
@13.8,15 get aniofab
@13.8,42 get mode
@13.8,18 get pori@15.8,8 get mot
@15.8,32 get cl1
@15.8,44 get cl2
@17.8,90 get chas
@17.8,20 get car
@17.8,13 get combo
@17.8,58 get pasj
@17.8,95 get tone
@19.8,16 get obs
@19.8,51 get cadu
@19.8,72 get...