Hrmmm. Rings didn't write this, he just ported my Powerbasic code that i wrote back in 2002:
http://www.powerbasic.com/support/forum ... 01350.html
Search found 38 matches
- Fri Mar 19, 2004 3:33 am
- Forum: Tricks 'n' Tips
- Topic: Delete your own Exe (For UnInstaller )
- Replies: 7
- Views: 4104
- Fri Jan 23, 2004 7:35 pm
- Forum: Coding Questions
- Topic: Speed of PureBasic
- Replies: 54
- Views: 18342
Basically what I meant is that this:
For x = 1 to Whatever
Do Nothing
Loop
... is basically going to compile to the same assembly-level code, regardless of which compiler you use, so if you're wanting to compare the speed of one language to another, using such a useless loop is probably the worst ...
For x = 1 to Whatever
Do Nothing
Loop
... is basically going to compile to the same assembly-level code, regardless of which compiler you use, so if you're wanting to compare the speed of one language to another, using such a useless loop is probably the worst ...
- Fri Jan 23, 2004 5:05 pm
- Forum: Coding Questions
- Topic: Speed of PureBasic
- Replies: 54
- Views: 18342
- Thu Jan 22, 2004 2:22 pm
- Forum: Tricks 'n' Tips
- Topic: IsAlpha IsNumeric
- Replies: 53
- Views: 20463
For this users a version they can understand is better sometimes
instead using a procedure they dont understand a bit.
True, but as long as they understand how to CALL an assembly function and know what it RETURNS, then knowledge of the internal workings isn't really required - they just need to ...
instead using a procedure they dont understand a bit.
True, but as long as they understand how to CALL an assembly function and know what it RETURNS, then knowledge of the internal workings isn't really required - they just need to ...
- Thu Jan 22, 2004 3:55 am
- Forum: General Discussion
- Topic: JECXZ - "error: jump out of range" !?
- Replies: 4
- Views: 2327
JECXZ - "error: jump out of range" !?
I've 99% ported a compression/decompression algorithm known as SuperTiny over from Powerbasic to Purebasic (im slowly but surely porting all my crypto code over as my recent posts show!), but I'm encountering a couple of ASM problems that I wasnt having with Powerbasic.
If you try to compile the ...
If you try to compile the ...
- Fri Jan 16, 2004 2:19 pm
- Forum: Coding Questions
- Topic: Console or GUI application??
- Replies: 2
- Views: 1282
- Tue Jan 06, 2004 3:30 am
- Forum: Tricks 'n' Tips
- Topic: UUEncode \ UUDecode
- Replies: 15
- Views: 7092
- Mon Jan 05, 2004 9:39 am
- Forum: Tricks 'n' Tips
- Topic: UUEncode \ UUDecode
- Replies: 15
- Views: 7092
- Mon Jan 05, 2004 6:43 am
- Forum: Tricks 'n' Tips
- Topic: UUEncode \ UUDecode
- Replies: 15
- Views: 7092
- Sat Jan 03, 2004 8:29 am
- Forum: Coding Questions
- Topic: POP3 decoder - Rfc 2047
- Replies: 5
- Views: 2404
- Sat Jan 03, 2004 8:26 am
- Forum: Tricks 'n' Tips
- Topic: UUEncode \ UUDecode
- Replies: 15
- Views: 7092
UUEncode \ UUDecode
Code updated For 5.20+
Procedure.s UUDecode(sInBuf.s)
sOutBuf.s = ""
For lLoop = 1 To Len(sInBuf) Step 4
sOutBuf = sOutBuf + Chr((Asc(Mid(sInBuf, lLoop, 1)) - 32) * 4 + (Asc(Mid(sInBuf, lLoop + 1, 1)) - 32) / 16)
sOutBuf = sOutBuf + Chr((Asc(Mid(sInBuf, lLoop + 1, 1)) % 16) * 16 + (Asc(Mid ...
Procedure.s UUDecode(sInBuf.s)
sOutBuf.s = ""
For lLoop = 1 To Len(sInBuf) Step 4
sOutBuf = sOutBuf + Chr((Asc(Mid(sInBuf, lLoop, 1)) - 32) * 4 + (Asc(Mid(sInBuf, lLoop + 1, 1)) - 32) / 16)
sOutBuf = sOutBuf + Chr((Asc(Mid(sInBuf, lLoop + 1, 1)) % 16) * 16 + (Asc(Mid ...
- Fri Jan 02, 2004 6:59 pm
- Forum: Coding Questions
- Topic: POP3 decoder - Rfc 2047
- Replies: 5
- Views: 2404
- Fri Jan 02, 2004 4:52 pm
- Forum: Feature Requests and Wishlists
- Topic: Feature requests
- Replies: 18
- Views: 4798
- Fri Jan 02, 2004 2:43 pm
- Forum: Feature Requests and Wishlists
- Topic: Feature requests
- Replies: 18
- Views: 4798
Here's a Purebasic version of what i meant with the Hex function. It's not as efficient as i'd like but it'll do for now.
Procedure.s HexEx(inValue.l, inLength.l)
outHex.s = Hex(inValue): minLen.l = Len(outHex): outHex = Space(inLength) + outHex
outHex = ReplaceString(outHex, " ", "0", 1, 1): If ...
Procedure.s HexEx(inValue.l, inLength.l)
outHex.s = Hex(inValue): minLen.l = Len(outHex): outHex = Space(inLength) + outHex
outHex = ReplaceString(outHex, " ", "0", 1, 1): If ...
- Fri Jan 02, 2004 2:13 pm
- Forum: Feature Requests and Wishlists
- Topic: Feature requests
- Replies: 18
- Views: 4798
Thanks, ive got macros working easily enough with inline asm now, but it'd also be nice to have macros at the Purebasic/preprocessor level!
I've also now got a very sexy color scheme, damn it looks good.
I see no reason to remove language constructs that already exist - if you don't use them they ...
I've also now got a very sexy color scheme, damn it looks good.
I see no reason to remove language constructs that already exist - if you don't use them they ...