PC Toledo

Código: Selecionar todos

PROCEDURE Main()
SETMODE( 51,80 )
SETCOLOR( 'N/W*' )
CLS
x := 10
i := 1
DO WHILE i <= 255
   FOR j := 0 TO 50
      @ j,x SAY RIGHT( STR( i ), 3 ) + SPACE(1) + CHR( i++ )
      IF i > 255
        EXIT
      ENDIF
   NEXT j
   x += 10
ENDDO
INKEY(0)
RETURN

Código: Selecionar todos

//-> C:\FWH..\SAMPLES\TABISO.PRG - Tabela: ISO 8859-1 - 24/01/2020

#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 ACTION TABISO()

   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 - Modificado by kapiaba - kapiabafwh@gmail.com - 24/01/2020.

Código: Selecionar todos

PROCEDURE PToolTabAscii

   LOCAL nCont, nRow, nCol

   nRow := 3
   nCol := 5
   FOR nCont = 1 TO 255
      @ nRow, nCol SAY StrZero( nCont, 3 ) + " " + Chr( nCont )
      nRow += 1
      IF nRow > MaxRow() - 5
         nCol += 10
         nRow := 3
      ENDIF
   NEXT
   MsgExclamation( "Ok" )