mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-08 12:35:12 +00:00
20 lines
296 B
QBasic
20 lines
296 B
QBasic
|
$CONSOLE
|
||
|
|
$SCREENHIDE
|
||
|
|
_DEST _CONSOLE
|
||
|
|
|
||
|
|
PRINT HexString$(_DEFLATE$("this is a test"))
|
||
|
|
SYSTEM
|
||
|
|
|
||
|
|
Function HexString$(s As String)
|
||
|
|
Dim ret As String
|
||
|
|
|
||
|
|
For i = 1 To Len(s)
|
||
|
|
Dim h As String
|
||
|
|
h = Hex$(Asc(s, i))
|
||
|
|
If Len(h) = 1 Then h = "0" + h
|
||
|
|
ret = ret + h
|
||
|
|
Next
|
||
|
|
|
||
|
|
HexString$ = ret
|
||
|
|
End Function
|