Masters Nages, Enrico, see if it helps: compile with a different version of FWH24.09 pls.
Masters Nages, Enrico, mira si ayuda: compila con una versión diferente de FWH24.09 por favor.
//-> C:\FWH..\SAMPLES\TABISO.PRG - Tabela: ISO 8859-1 - 24/01/2020
//-> MODIFIED IN 24/10/2024 - Kapiabafwh@gmail.com
// http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=23861
#Include "FiveWin.ch"
STATIC oWnd
FUNCTION Main()
  LOCAL oBar
  DEFINE WINDOW oWnd TITLE "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br"
  DEFINE BUTTONBAR oBar _3D OF oWnd
  DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
   ACTION( TABISO() ) GROUP
  DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp"   FLAT ;
   ACTION( oWnd:End() ) TOOLTIP "Exit this app" GROUP
  SET MESSAGE OF oWnd TO "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br" ;
   NOINSET CLOCK DATE KEYBOARD
  ACTIVATE WINDOW oWnd MAXIMIZED
RETURN NIL
FUNCTION TABISO()
  LOCAL x, i, j
  x := 10
  i := 1
  WHILE i <= 255
   SYSREFRESH()
   FOR j := 3 TO 42
     @ j, x SAY RIGHT( STR( i ), 3 ) + SPACE(1) + CHR( i++ ) OF oWnd
     IF i > 255
      EXIT
     ENDIF
   NEXT j
   x += 10
  ENDDO
RETURN NIL
// FIM / END
Regards, saludos.