Skip to content

Instantly share code, notes, and snippets.

@iversc
iversc / base85.bas
Last active May 23, 2019 04:49
LB code for converting to/from Base85.
str$ = Base85Encode$("testing")
print str$
print Base85Decode$(str$)
print
str$ = Z85Encode$("testing")
print str$
print Z85Decode$(str$)
Function Base85Encode$(dat$)
ascii85$ = "!" + chr$(34) + "#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu"

Keybase proof

I hereby claim:

  • I am iversc on github.
  • I am iversc (https://keybase.io/iversc) on keybase.
  • I have a public key ASDAaLCWVkF5IIDJx1ira4IDbOHybpAa7oPE3RO5zCfqiQo

To claim this, I am signing this object: