Dientes

INSTITUTO TECNOLOGICO “RUMIÑAHUI”
EDUCACION RENOVADORA CON VISION HUMANISTA Y TECNOLOGICA
NOMBRE: DANIEL TIGSILEMA YUCAILLA
CURSO: SEXTOPARALELO: “F”
TEMA: LENGUAJE FOX
FECHA: 28DE NOVIEMBRE 2012
set status off
set talk off
set echo off
use alumno
store space(22) to nom
storespace(7) to cur
store space(1) to par,op,seguro
store space(10) to res
store 0 to pripar,segpar,terpar,prueba,su,pro,reg
clear
c=1
@ 1,1say “RegN°”
@ 1,8 say “NOMBRE”
@ 1,31 say “CURSO”
@ 1,39 say “PARALELO”
@ 1,48 say “PRIPAR”
@ 1,55 say “SEGPAR”
@ 1,62 say “TERPAR”
@ 1,69say “PRUEBA”
@ 1,74 say “SUMA”
@ 1,83 say “PROMEDIO”
@ 1,89 say “RESULTADO”
fil=3
do while . not .eof()
@ fil,3 say c pict “##”
@ fil,8say nombre pict “!!!!!!!!!!!!!!!!!!!!!!!!!”
@ fil,31 say curso pict “!!!!!!!!!!”
@ fil,42 say paralelo pict “!”
@ fil,50 say pripar pict “##”@ fil,57 say segpar pict “##”
@ fil,64 say terpar pict “##”
@ fil,70 say prueba pict ”##”
@ fil,76 say suma pict “##”
@ fil,83 saypromedio pict ”##”
@ fil,89 say resultado pict “##”
skip
fil=fil+1
c=c+1
enddo
@ fil+1,25 say ”Desea borrar S/N” ge top pict “!”
read
do whileupper (op) <> “N”
@ fil+2,25 say “¿Qué registro desea ? “ get reg pict “999”
read
go reg
display
@ 5,25 say “¿Esta seguro S/N” getseguro pict “!”
read
if seguro= “S” then
delete
pack
endif
@ 5,25 say “Desea borrar S/N” get op pict “!”
read
enddo
close all
return