PC Toledo

Bom dia

Tente:
FUNCTION MAIN()
LOCAL tqtd := 0

CLS
@ 10, 10 SAY "Digite um valor (ex: -0.90):"
@ 12, 10 GET tqtd PICTURE "@K 999999.9999" ;
VALID ( tqtd := IF( Left( Str( tqtd, 12, 4 ), 1 ) == "-", tqtd, tqtd ), .T. )

READ

CLS
? "Valor digitado:", tqtd
WAIT "Pressione qualquer tecla ...

otimizacao de linkedição....

Sem chances...
Vc teria que compilar a vm do harbour e todo o resto necessario para a arquitetura do chip que vc vai usar... e dependendo do chip nao vai ter espaço o bastante para armazenar o codigo executavel...

No raspberry, vc nao vai ter nenhum problema....

E sabe o que é mais interessante ?
A china está utilizando o ISA de CPUs desenvolvidas nos EUA, como o ISA do Sparc64 T2 e do OpenPower da IBM hahahahahha

De uma olhada nisso: https://en.wikipedia.org/wiki/FeiTeng

Bom dia!
Vish, @rochinha, quais delas ? ahahahah

Só usar oq o Harbour ja fornece...

ROCEDURE Main()

CLS

@ 0, 0, 15, MaxCol() BOX " " COLOR "W+/B"
MESSAGE( '@ 0, 0, 15, MaxCol() BOX " " COLOR "W+/B"' )

__Box( 1, 1, 5, 7 )
MESSAGE( "__Box( 1, 1, 5, 7 )" )

__Box( 1, 1, 5, 7, "X" )
MESSAGE( '__Box( 1, 1, 5, 7, "X" )' )

__BoxD( 2, 2, 6 ...

Agora sim, a brincadeira vai ser interessante... isso é tipo o proximo bug do milenio, só que versão Brasil!
Pessoal q usa CNPJ como chave, salvo em colunas do tipo 'int'

https://blog.tecnospeed.com.br/cnpj-alfanumerico/

Segue documentação:
https://harbour.github.io/doc/harbour.h ... tvaluelist

Tudo começa por essa pastinha aqui:

https://github.com/xHarbour-org/xharbour/tree/main/xHarbourBuilder/xHarbour-Builder/Setup%20New%20Machine

é importante instalar o aceapi.exe e o Win32OpenSSL-1_0_2j.exe, que estão nessa pasta
O aceapi, deve ser insaldo, em maquinas x64, no Arquivos De Programa ...

O bcc58 é antigo... o compilador da MS esta muito melhor... muuuuuuuuuito melhor... tem capacidade de geracao e otmizacoes de codigo muito melhores q o bcc

E, sobre o sqlrdd, ja ta o fonte la no repositorio do xharbour... junto com todas as outras ferramentas do xharbour pago, como visual XHarbour ...

FUNCTION Main()
LOCAL nResult
nResult := RedPill()
IF nResult == 1
? "Running in a virtualized environment"
ELSE
? "Running on a physical machine"
ENDIF
RETURN

#begindump

#include <stdint.h>

HB_FUNC( REDPILL )
{
unsigned char m[2+4], rpill[] = "\x0f\x01\x0d\x00\x00\x00\x00\xc3 ...

Veja isso: viewtopic.php?f=35&t=18643

José, vc ta precisando jogar um sal grosso nesses seus computadores ahahah
sempre dá algum problema!!!

Eu to usando o win10 2004, tudo funcionando normalmente...