mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 05:34:47 +00:00
212986abd8
- hopefully
21 lines
604 B
QBasic
21 lines
604 B
QBasic
$CONSOLE
|
|
_DEST _CONSOLE
|
|
|
|
t$ = "QB64 Phoenix Edition"
|
|
PRINT " Text: "; t$
|
|
PRINT "Txt-Len: "; LTRIM$(STR$(LEN(t$)))
|
|
PRINT "-----------------------------------------"
|
|
PRINT "Adler32: "; RIGHT$("00000000" + HEX$(_ADLER32(t$)), 8)
|
|
PRINT " Crc32: "; RIGHT$("00000000" + HEX$(_CRC32(t$)), 8)
|
|
PRINT " Md5: "; _MD5$(t$)
|
|
PRINT
|
|
t$ = ""
|
|
PRINT " Text: "; t$
|
|
PRINT "Txt-Len: "; LTRIM$(STR$(LEN(t$)))
|
|
PRINT "-----------------------------------------"
|
|
PRINT "Adler32: "; RIGHT$("00000000" + HEX$(_ADLER32(t$)), 8)
|
|
PRINT " Crc32: "; RIGHT$("00000000" + HEX$(_CRC32(t$)), 8)
|
|
PRINT " Md5: "; _MD5$(t$)
|
|
|
|
SYSTEM
|
|
|