PROC CalcNiF:
  LOCAL i%, j%
	DEFAULTWIN 1
  gCLS
  setup:
  WHILE 1
    gIPRINT "Pulsa la tecla Menu para iniciar"
    i%=GET
    IF i%=290 rem La tecla Menu
      mINIT
      mCARD "CalcNiF","Calcular letra",%g,"Salir",%x
      mCARD "Info","Ayuda",%h,"Acerca de...",%a
      j%=MENU
      IF j%=%g
        generate:
      ELSEIF j%=%x
        shutdown:
      ELSEIF j%=%h
        help:
      ELSEIF j%=%a
        about:
      ENDIF
    ENDIF      
  ENDWH
ENDP

PROC setup:
rem Graphics stuff done at the start of the program
  gCLS rem Clear screen
  gGREY 1
  gAT 0,0
  gFILL gWIDTH,gHEIGHT,0
  gGREY 0
  gSTYLE 41 rem Bold, Double height, Italic
  gAT 50,40
  gPRINT "CalcNiF v1.0 (C) J. Juan Hernández 2004" 
  RETURN
ENDP

PROC generate:
  LOCAL nif&, mod%
	LOCAL nif$(10)
	nif$=""
	setup:
  gSTYLE 33 rem Bold, Italic 
rem  gAT 50,65 : gPRINT "" 
  dINIT "Pregunta"
  gAT 50,80 : dEDIT nif$, "Número del D.N.I.: ", 8
  DIALOG
  IF nif$=""  
    nif$ = "0"
  ELSE
    nif& = VAL(nif$)
    mod% = nif& - (INT (nif& / 23) * 23) + 1
    gAT 50, 80 : gPRINT "La letra es: "
rem  gSTYLE 33 rem Bold, Italic 
    gPRINT MID$("TRWAGMYFPDXBNJZSQVHLCKET", mod%, 1)
  ENDIF
  RETURN
ENDP

PROC shutdown:
  STOP
ENDP

PROC help:
  LOCAL i%
  dINIT "Ayuda"
  dTEXT "","El Número de Identificación Fiscal se consignará en cuantas " 
  dTEXT "","declaraciones, comunicaciones o escritos se presenten ante "
  dTEXT "","la Administración Tributaria. Es necesario para la apertura "
  dTEXT "","de cuentas o la realización de otras operaciones en Bancos, "
  dTEXT "","Cajas de Ahorros u otras Entidades de Crédito, para la "
  dTEXT "","adquisición o transmisión de inmuebles o valores y para "
  dTEXT "","efectuar otras operaciones con trascendencia tributaria, "
  dTEXT "","debiéndose comunicar a terceros que tengan que suministrar "
  dTEXT "","información a la Hacienda Pública."
  dBUTTONS "OK",13
  i%=DIALOG
  RETURN
ENDP

PROC about:
  LOCAL i%
  dINIT "Acerca de CalcNiF"
  dTEXT "","CalcNiF v1.0 by José Juan Hernández ©2004"
  dTEXT "","diseñado para ejecutarse sobre OPL/32"
  dTEXT "","Visita  freedownload.webcindario.com  para más programas."
  dBUTTONS "OK",13
  i%=DIALOG
  RETURN
ENDP