pascalcoindev / pascalcoin Goto Github PK

Hello,

I would like to be able to search the "safebox" to retrieve pascal account numbers which use the same public key.

Currently I only know the public key of a certain account, but I don't know the pascal account number, so I would like to be able to find it (the account number) via the public key.

This could also be considered a "security feature" to make sure that there are no other accounts with the same public key. So that the public key can be considered "unique".

Bye
Skybuck.

Right now the number created by block is fixed to 5 if I understood correctly, so block 0 created account 0-4, block 1 created 5-9, etc. (correct me if I am wrong).

But is that number subject to future revisions? If so would an API returning the first & last account created by a block be appropriate?

Finally, if that API could also list the account(s) that received the block reward, that could also be more future-proof.

How to compile and use PascalCoinMiner on Linux system?

In 1.5.3, calling getaccount returns correct data. In 1.5.4, the same call returns "Account not found"

I'm trying to compile PascalCoinMiner with lazaraus, but getting this error.
Does it work on Linux?

Project->Private Keys->Export Private Key

The message says:

"The password has been encrypted with your password and copied to the clipboard".

This doesn't make much sense to me and should probably be changed to:

"The private key has been encrypted with your password and copied to the clipboard".

• update text corrected ^

(Also project is a nice menu name... first time I see it like this... could also be renamed to "File" though I kinda like "Project" :))

Menu name "Private keys" is misleading and could be renamed to "Wallet".

Hello guys. What do i need to make possible the building option under MacOS? i'm using MacOs Sierra 10.12.3.

I could work on it, but I need some guidelines to start.
Thanks for your time!

Where are the build instructions in your Wiki?

It does not report any errors, just a input server name message and then just hangs. Using CPU it will work fine

passing -s option returns a access violation on 00000010004492C

One of the issues with PascalCoin is new users requiring to buy a PASA account before receiving PASC.

This request proposes a new operation type that allows a new user of PASC to "withdraw money to a public key" which results in them being assigned a new account with that public key and those funds inside it via single operation. This makes process of adoption easier.

Add a new operation type called “Pay to Key” that works as follows:

1. Account A transfers X quantity to public key P

2. When miner is minting a block and including the transaction (1)
   A. Miner can assign P to one of the generated accounts B OR
   B. Miner can assign P to an existing empty account B owned by miner
   C. Operation transfers X quantity from account A into account B
   D. All nodes must verify A, B & C executed correctly by miner or reject block

3. When block accepted, the owner of public key P receives a client-side notification “Account B Assigned To You”

4. Users need to pay a very high fee for this transaction (cost of 1 PASA + network fee)

5. If operation not accepted in 1 hour, remove from mempool (becomes stale, fee too low)

Economic Benefits:

A - Mining becomes more lucrative since miners they now sell their generated accounts on-the-fly, resulting in higher ROI than other coins.

B - Will attract new miners that not only make network more secure, but break Nanopool's current mining monopoly.

Wrong DateTime conversion direction used in FreePascal code options
https://github.com/PascalCoin/PascalCoin/blob/1.5.3/Units/PascalCoin/UTime.pas#L78

Function DateTime2UnivDateTime(d:TDateTime):TDateTime;
{$IFDEF FPC}
begin
  Result := UniversalTimeToLocal(d);
//  Result := LocalTimeToUniversal(d);

https://github.com/PascalCoin/PascalCoin/blob/1.5.3/Units/PascalCoin/UTime.pas#L97

Function UnivDateTime2LocalDateTime(d:TDateTime):TDateTime;
{$IFDEF FPC}
begin
//  Result := UniversalTimeToLocal(d);
Result := LocalTimeToUniversal(d);

As result - node get banned for wrong Time used.
Originally reported by nightraven @ bitcointalk.org

Try replacing old looking icon with new more modern looking icon:

http://www.skybuck.org/PascalCoin/OriginalPascalCoinIcon.png

(This PNG has "alpha channel" don't loose the alpha if possible, if alpha is lost, try replace white color 255,255,255 with 254,254,254 to isolate the circles from the background in case background goes also to 255,255,255 otherwise "fill background with paint bucket" will fail.

Personally I think old icon looks fun too, but this new one is a bit more modern.

Compiled with lazarus 1.6.2 fpc 3.0.2. I changed the define in config.inc to use Synapse_OpenSSLv10. But it crashes with SIGSEGV at 4239D0 on startup. I guess it is due to the strange OpenSSL inport. See how I import OpenSSL in my (experimental) project: https://github.com/tomasbrod/net/blob/dev/crypto.pas

I have a suggestion a comming version of PascalCoin. It would be practical to have a hook. The wallet should scan incomming payloads for a marker and then if the marker is found it should launch an external program with the sender and the payload as parameters. Perhaps also other parameters like timestamp and block number. There should also be a place where users can set the marker and the path to the external program.

Hello,
I am quite good at computers (I'm web developer), but still I was not able to run basic PascalCode wallet on Linux. The process is too complicated and tricky for normal users.

Do you plan to make any binaries? If yes, when?
Without classic binaries, PascalCoin will be never used by the general public...

I guess the same problem is the Windows version of wallet and the mining application as well.

Hi Team,
I have two computers in my network which is nated to Internet under same global IP address.
Issue is, one PC is mining while other dont. If i turn one miner off other work and vice versa.
How can I make both miners work?

In general, please create an api method in which the supplied params would allow a transaction to be executed on the applicable accounts associated to the private key. The api would somehow extract from user supplied data that they own accounts and want to sent PASC to another account.

[Error] Invalid new block 13000: Invalid target found:22A8F572 actual:42A8F576

I attempted to compile using Lazarus 1.8.0 on my mac and I got the following syntax errors.

ULog.pas(162,101) Error: Incompatible type for arg no. 1: Got "TThreadID", expected "QWord" ULog.pas(166,67) Error: Incompatible types: got "TThreadID" expected "LongWord" ULog.pas(173,28) Error: Incompatible types: got "TThreadID" expected "LongWord"

See the bottom left of the attached screenshot.

version 2.0.0 windows 10

Hey all,
I am trying to start the miner but I am getting a Connection reset by peer error.
Here is the miner output:

26-01-2017 01:20:45.491 Starting PascalCoin server
26-01-2017 01:20:45.491 TID:3D5EF700 [Info] <TPCDaemon> Daemon Start -1
26-01-2017 01:20:45.515 TID:3D1EE700 [Info] <TPCDaemonThread> START PascalCoin Server
26-01-2017 01:20:45.515 TID:3D5EF700 [Info] <TPCDaemon> Daemon execute: 0
26-01-2017 01:20:45.540 TID:3D1EE700 [Info] <TNode> TNode.Create
26-01-2017 01:20:45.540 TID:3D1EE700 [Info] <TNetServer> Closing server
26-01-2017 01:20:45.542 TID:3D1EE700 [Info] <TRPCServerThread> Activating RPC-JSON Server on port 4003
26-01-2017 01:20:45.542 TID:3D1EE700 [Info] <TPCDaemonThread> RPC server is active on port 4003
26-01-2017 01:20:45.544 TID:3D1EE700 [Info] <TPCDaemonThread> Activating RPC logs on file /home/USER/PascalCoin/pascalcoin_rpc.log
26-01-2017 01:20:45.544 TID:3D1EE700 [Info] <TPCBank> Start restoring from disk operations (Max 4294967295) BlockCount: 0 Orphan: 
26-01-2017 01:20:45.544 TID:3D1EE700 [Info] <TPCBank> End restoring from disk operations (Max 4294967295) Orphan:  Restored 0 blocks
26-01-2017 01:20:45.544 TID:3D1EE700 [Info] <TNetData> TNetData.Create
26-01-2017 01:20:45.545 TID:373FC700 [Info] <TThreadDiscoverConnection> Starting discovery of connection bpascal1.dynamic-dns.net:4004
26-01-2017 01:20:45.546 TID:3D1EE700 [Info] <TNetServer> Activating server on port 4004
26-01-2017 01:20:45.546 TID:36FFB700 [Info] <TThreadDiscoverConnection> Starting discovery of connection pascalcoin1.dns1.us:4004
26-01-2017 01:20:45.546 TID:3D1EE700 [Info] <TPCDaemonThread> Generated new miner name: 2017-01-26 01:20
26-01-2017 01:20:45.549 TID:36BFA700 [Info] <TThreadDiscoverConnection> Starting discovery of connection bpascal2.dynamic-dns.net:4004
26-01-2017 01:20:45.549 TID:3D1EE700 [Info] <TPCDaemonThread> Activating RPC Miner Server on port 4009, name "2017-01-26 01:20", max conections 1000 and public key 
3GhhborUGCn3H9dgWkZmkN2zhF2y8BVwBHxsBhK7bX7rtKipHJcx7wFo31tpVxoWdu6BPzCGiG5rcK
26-01-2017 01:20:45.549 TID:363F8700 [Info] <TThreadDiscoverConnection> Starting discovery of connection pascalcoin1.dynamic-dns.net:4004
26-01-2017 01:20:45.550 TID:367F9700 [Info] <TThreadDiscoverConnection> Starting discovery of connection pascalcoin2.ddns.net:4004
26-01-2017 01:20:45.725 TID:373FC700 [Info] <TNetClient> Connected to a server 80.24.12.98:4004
26-01-2017 01:20:45.735 TID:367F9700 [Info] <TNetClient> Connected to a server 88.11.84.221:4004
26-01-2017 01:20:46.544 TID:2B3FC700 [Info] <TBufferedNetTcpIpClient> Closing connection from 88.11.84.221:4004 (Receiving error): 104 Connection reset by peer
26-01-2017 01:20:46.544 TID:2B3FC700 [Info] <TNetClient> Disconnected from pascalcoin2.ddns.net:4004
26-01-2017 01:20:47.138 TID:35BF6700 [Info] <TBufferedNetTcpIpClient> Closing connection from 80.24.12.98:4004 (Receiving error): 104 Connection reset by peer
26-01-2017 01:20:47.138 TID:35BF6700 [Info] <TNetClient> Disconnected from bpascal1.dynamic-dns.net:4004
26-01-2017 01:22:52.945 TID:363F8700 [Info] <TThreadDiscoverConnection> Starting discovery of connection 178.76.224.9:4004
26-01-2017 01:22:52.945 TID:367F9700 [Info] <TThreadDiscoverConnection> Starting discovery of connection 77.78.92.121:4004
26-01-2017 01:22:52.945 TID:36BFA700 [Info] <TThreadDiscoverConnection> Starting discovery of connection 86.61.30.198:4004
26-01-2017 01:22:52.945 TID:2A7F9700 [Info] <TThreadDiscoverConnection> Starting discovery of connection 109.162.16.57:4004
26-01-2017 01:22:52.946 TID:373FC700 [Info] <TThreadDiscoverConnection> Starting discovery of connection 176.111.191.227:4004
26-01-2017 01:22:52.947 TID:36FFB700 [Info] <TThreadDiscoverConnection> Starting discovery of connection 45.37.111.210:4004
26-01-2017 01:22:53.091 TID:36BFA700 [Info] <TNetClient> Connected to a server 86.61.30.198:4004
26-01-2017 01:22:53.123 TID:2A7F9700 [Info] <TNetClient> Connected to a server 109.162.16.57:4004
26-01-2017 01:22:53.672 TID:0FBFE700 [Info] <TBufferedNetTcpIpClient> Closing connection from 109.162.16.57:4004 (Receiving error): 104 Connection reset by peer
26-01-2017 01:22:53.673 TID:0FBFE700 [Info] <TNetClient> Disconnected from 109.162.16.57:4004

Any ideas on why this might happen?

Linux Binary is missing the top "Project" nav bar.

Hello!
I have next situation: I want mine pascal coins. But I have computers with good CPU and worse GPU. They work under Ubuntu OS. And I can’t understand how to build pascalcoinminer from sources and configure to work with pool (for example nanopool.org). Please give me a link or tutorial how to do this.

Hello,

Follow characters were entered in public payload:
; ) = D

Also an account private key was changed on block X
Then same account name was changed on block X+1.

Other circumstances include first trying to do this on the same block but was not allowed with transaction fee 0.

Visual Studio debugger was attached to crashed PascalCoinWallet.exe 2.1.3 and showed this output:

Visual Studio debugger shows:

77D7BA4D push eax
77D7BA4E call 77D3FF3C
77D7BA53 jmp 77D7B9C3
77D7BA58 push ebp
77D7BA59 mov ebp,esp
77D7BA5B lea esp,[esp-2D0h]
77D7BA62 push esp <- crash ?!?
77D7BA63 call 77D7B71F
77D7BA68 mov edx,dword ptr [ebp+4]
77D7BA6B mov eax,dword ptr [ebp+8]
77D7BA6E add dword ptr [esp+0C4h],4
77D7BA76 mov dword ptr [eax+0Ch],edx
77D7BA79 mov dword ptr [esp],10007h
77D7BA80 mov ecx,esp
77D7BA82 push 1

First-chance exception at 0x77db0adc in original does work PascalCoinWallet.exe: 0xC0000025: Windows cannot continue from this exception.
First-chance exception at 0x77d7ba62 in original does work PascalCoinWallet.exe: 0xC0000005: Access violation writing location 0x581b0f7c.
Unhandled exception at 0x77d7ba62 in original does work PascalCoinWallet.exe: 0xC0000005: Access violation writing location 0x581b0f7c.

Perhaps by finding these instructions in the Delphi debugger/PascalCoinWallet.exe it's source location can be found for further inspection... assuming the bug is there... and not triggered else where ;)

refactor code to use TPCBank.GetTargetSecondsAverage in TPCBank.GetActualTargetSecondsAverage
https://github.com/PascalCoin/PascalCoin/blob/0c0170e1a85ed975a561fa1f6ed09ec1e943fa07/Units/PascalCoin/UBlockChain.pas#L628

The solo miner doesn't seem to exist anymore. Your documents either reference it on sourceforge, isn't there, or you reference the Claymore dual miner but that only supports pools.

Please update your files/documentation with info on where the regular miner is!

This would allow detecting forks and orphans with a single getblock call

First of all,congratulations for your great work.

I don't understand pascal code and I think that the paper dosn't explain in detail how PascalCoin works. I have some questions:

• PascalCoin have a blockchain? In the website and documentation sometimes talk about one blockchain, but a lot of times say that PascalCoin don't need a blockchain. I understand that have a blockchain, but a diferent blockchain as we know.
• There are "Bitcoin Script"? Is a programable money with some kind of PascalCoin script?
• There are the possibility of multisign accounts?
• How many transactions per second supports PascalCoin? Do you have some benchmark?
• "When a miner node receives a transaction, works to include it in a new blockchain" It's correct this? Or it's correct say block? Pascal coin is creating a new "blockchain" each "block"?

I think that for now is Ok.

Thanks,
Has fet una magnifica feina!

At first I created several workers on coinotron, but only one minne, no more worker is working now, I tried several mining applications and it is the same result.

And I have an error message in the console to pascalcoinminer : "Error Received bad values for target and target_pow!"

I can leave more than 5 hours the balance does not move at all :-(

help me please

Main idea of the feature ist to implement a proper PASA market with some extra options.

this system gives us 4 options.

if you have a PASA you want to sale you can:

• sale it instantly to the highest buyer, or
• give up a price of your choosing.

if you want to buy a PASA you can:

• buy it instantly to the lowest seller, or
• give up a price of your choosing.

due to the supply and demand this market will regulate it self.
*theoretically you could buy and sell accounts hoping to make a win out of it. but i dont think that the demand would be high enough for that to work.

extra options would be:

• buying a specific account.
• buying a account with a specific balance (or so).

of course this idea should be worked out but i think its solid.

*the market should be in sync with a version on the website.
(i was always hoping for a total and clean overview of the Pascal Coin on the website (after logging in), like implemented live chart, live chat, live PASA and PASC market. but thats an idea for another day and another post)

Thank you for reading,

Priogeth.

[UPDATE 2017-03-12: After extensive review, there does not appear to be any known mining exploit with PascalCoin's current PoW consensus rules. These changes are not necessary at this point in time]

There appear to be some exploits happening with mining. Whilst it's not 100% clear how they're being done, it does seem to involve skewing work calculation based using strategic timestamps.

Aligning PascalCoins PoW with Bitcoin's battle-tested approach may solve these issues. Below are the suggestions:

1. Update Nodes/miners to use Network Adjusted Time instead of system time
2. Retarget the mining difficulty after 2880 blocks instead of 1
3. Allow blocks to have times before previous block

Network Adjusted Time

• Take the median of all the connected nodes
• If median is out by 30 mins, default to system time

Difficulty/Target Consensus Rules

• To mitigate effect of timestamp variance, avoid retargeting after every block
• Retarget block difficulty every 10 days (2880 blocks)
• Target stays constant for 2880 blocks and is reevaluated after 2880 blocks based on the last 2880 blocks
• Sum the time differences between last 2880 blocks and if this sum is less than 10 days then increase target else decrease target
• This will neutralise any attempts to use timestamps to gain a mining advantage

Timestamping Rules

• A block's timestamp must be greater than the median of last 11 blocks
• A block's timestamp must be smaller than NetworkAdjustedTime + 1 hour

block data stop to increase.
If i‘m wrong,please tell me how to correct it. Thanks, I'm a pascal's fans,but i use c++builder.

Hi

Here is scenario:

1. User calls RPC sendto and stores opHash received as result of this call
   opHash = 0000000005000000020000003837413134323336363533384244454641454232

2. Operation in included in the next mined block and now has opHash = 4810000005000000020000003837413134323336363533384244454641454232

3. Later user wants to check if that transaction exists in blockchain, so he calls RPC findoperation with argument opHash:0000000005000000020000003837413134323336363533384244454641454232

4. Node cannot find operation, replays with error: "Value is not a valid OpHash".

I understand that opHash changes, but still Node should be able to find that transaction by its original opHash. There is even aspecial part of code for that purporse in function TNode.FindOperation ( after line // block=0 and not found... start searching at block updated by account updated_block )

UFRMAccountSelect form shows negative balance when all accounts are displayed.

At the bottom it will currently display:

Accounts: 809770
Balance: -637,024,863,411,494,9000

I have not yet investigated why it shows this. (This is also in my customize client, will have to check in official release to see if problem is there too).

My initial suspicious is:

1. Either this variable is incorrectly initialized.
   or
2. It's incorrectedly calculated.
   or
3. Somehow it overflows and wraps back to negative ?!? Seems a bit weird...

I have the Windows client. I'm trying to create my own account that has a 6-digit address so someone can send me some coins. The GUI is very confusing. I'd love some help :)

Thanks!

PascalCoin_daemon ends up with 4 GB of virtual memory usage and 150-300% CPU usage after a few hours. Restarting solves the problem but it recurs. Archlinux x64. Built from git repo.

Please provide your comments regarding PIP-0001 here.

I keep my coin at an exchange because I like to see what they are worth. Could something be integrated into the wallet to get the current price from Polo, and then display to the user what the value would be in BTC and USD?

When looking at OPHASH values, part of the OPHASH listed in the RPC API (and in the explorer) looks like a double hexadecimal encoding, f.i. in http://explorer.pascalcoin.org/blockoperation.php?block=58499 the three op hashes are

83E40000BE5B04000F3800004242464336314530303533343639433431363135
83E40000BE5B0400103800003637303045334246463739373037423641333243
83E40000BE5B0400113800004233443938373441394534304430454437444443

note how the start of the hash "83E40000BE5B04000F380000" is a hex of a binary value, while the end of the hash after that is always (?) an hexadecimal representation of an upper-case hexadecimal string.

Is that a bug of the RPC API or did I miss something interesting about the way OPHASHes are constructed ?

Thanks!

If Account Information (F1) is selected there are also information on the newest operation. Block is reported as Block number/ Operation number. But the operation number is not the same as one can see in the grid of Operations of selected Account. There is a difference on - 1 in the Account Iinformation.

Is there a command-line parameter to set a different data directory in Windows?

Thanks!

I'm trying to figure out how to point an Ubuntu based miner to my windows-based wallet. I tried the command ./pascalcoin_daemon -r -s 192.168.0.103:4009 -p 0 -d 0,1,2,3,4,5 -n stealth5 but it didn't work

1. Even though I have a wallet on another client which I want my farm to point to, I can't seem to figure out the correct command to use in Ubuntu?
2. Do I need to install a wallet in Ubuntu even though another client already handles the wallet?
3. With version 1.4.2 do I need to install any other dependencies which are not provided with the latest tar ball?

./pascalcoin_daemon -r -0 192.168.0.110:4009 -p 0 -d 0,1,2,3,4,5 -n stealth5

26-01-2017 17:44:39.738 Starting PascalCoin server
26-01-2017 17:44:39.739 TID:22FB1700 [Info] Daemon Start -1
26-01-2017 17:44:39.739 TID:22BB0700 [Info] START PascalCoin Server
26-01-2017 17:44:39.739 TID:22FB1700 [Info] Daemon execute: 0
26-01-2017 17:44:39.741 TID:22BB0700 [Info] TNode.Create
26-01-2017 17:44:39.741 TID:22BB0700 [Info] Closing server
26-01-2017 17:44:39.741 TID:22BB0700 [Info] Activating RPC-JSON Server on port 4003
26-01-2017 17:44:39.741 TID:22BB0700 [Info] RPC server is active on port 4003
26-01-2017 17:44:39.741 TID:22BB0700 [Info] Activating RPC logs on file /home/owner/PascalCoin/pascalcoin_rpc.log
26-01-2017 17:44:39.743 TID:22BB0700 [Info] Loading SafeBox with 56500 blocks from file /home/owner/PascalCoin/Data/bank3.bank
26-01-2017 17:44:47.173 TID:22BB0700 [Info] Start restoring from disk operations (Max 4294967295) BlockCount: 56500 Orphan:
26-01-2017 17:44:55.845 TID:22BB0700 [Info] End restoring from disk operations (Max 4294967295) Orphan: Restored 56805 blocks
26-01-2017 17:44:55.922 TID:22BB0700 [Info] TNetData.Create
26-01-2017 17:44:55.923 TID:191DC700 [Info] Starting discovery of connection bpascal1.dynamic-dns.net:4004
26-01-2017 17:44:55.923 TID:189DA700 [Info] Starting discovery of connection bpascal2.dynamic-dns.net:4004
26-01-2017 17:44:55.923 TID:22BB0700 [Info] Activating server on port 4004
26-01-2017 17:44:55.923 TID:18DDB700 [Info] Starting discovery of connection pascalcoin1.dns1.us:4004
26-01-2017 17:44:55.923 TID:185D9700 [Info] Starting discovery of connection pascalcoin2.ddns.net:4004
26-01-2017 17:44:55.924 TID:22BB0700 [Info] Generated new miner name: 2017-01-26 17:44
26-01-2017 17:44:55.924 TID:22BB0700 [Info] Activating RPC Miner Server on port 4009, name "2017-01-26 17:44", max conections 1000 and public key 3Ghhbovh8CEkBEqJNHbGD5UqSEpgRVmijJL94vuHZs41xeVdcLFDYs84xqM7bHwAWfVA8bsj1rFjGSCoyaUk16ubFgAQPH6sXw8Kds
26-01-2017 17:44:55.925 TID:1287F700 [Info] Starting discovery of connection pascalcoin1.dynamic-dns.net:4004
26-01-2017 17:44:56.131 TID:191DC700 [Info] Connected to a server 80.24.12.98:4004

Thanks!

Perhaps there is a bug under Linux or Lazarus/FPC .
Both wallet and daemon hang up after block 115000 - but in nodes status it says Found block 1150xx (wait until downloaded)

I have of course restarted both wallet and daemon - even recompiled them. I have also downloaded a new blockchain and the precompiled wallet from Sourceforge. Nothing helps

Mint 18.1 Lazarus 1.5.4 and FPC 3.0.2.

I read on the CoinMarketCap website that there are 11,826,400 PascalCoins out right now, what is the maximum amount of PascalCoins that can exist? Or is there no cap?

Running the wallet on Ubuntu 16.04

I'm trying to highlight the total balance amount, then CTRL-C the value to the clipboard. There seems to be no way to do that.

Please fix.

I attempted to "Close" the wallet from the FileMenu because it said "NO BLOCKCHAIN" and "Obtaining valid blockchain". I had already restarted it once because it seemed to not be connecting to the network.

This time when I closed it I got an infinite loop of "Access violation at address 005608EE" messages and had to force quit from the task manager.

Restarted Computer and tried again:

When I try to compile PascalCoinMiner with Lazarus 1.6.4 and FPC 3.0.2 under Linux Mint 18.1 I get al ot of warnings and hint :)

But I also get 5 errors
DelphiCL.pas(2198,37) Error: Incompatible types: got "Pointer" expected "LongWord"
DelphiCL.pas(2200,17) Error: Identifier not found "glXGetCurrentDisplay"
DelphiCL.pas(2575,3) Error: Identifier not found "ZeroMemory"
DelphiCL.pas(2614,3) Error: Identifier not found "ZeroMemory"

Perhaps FillChar (orig,SizeOf(orig),0); will do the same.
I guess it is Delphi stuff not implementet in Lazarus/FPC

PascalCoinMiner.pp(159,7) Error: Identifier not found "GotoXY32"
It stops complaining when I change to "GotoXY", But I'm not sure it is enough :)