TV Game Jam title card for PICO-8

tvgamejam.p8

pico-8 cartridge // http://www.pico-8.com
version 16
__lua__

-- displays a TV Game Jam title card
-- using code from dw817: https://www.lexaloffle.com/bbs/?tid=31725

function titlecard()
  cls()
  bit6to8("/a]a.p.adp.q.q.q.adadp.a/a=..p.quu[3{v1@y@y/bk.{3#y@y@[v{3wuuad/az..pduu3{@y#/by.3{3#y@[3wuea/am..py]/b9.3{yva/ah..px/bw.{3]/bm.3{3#e/ah..{/b@.3{a/af..6/bl.3{3#/bh.3{3]3{3{3#3{3{y/bd.{3]/bf.3{3#a.....t{3{y/bd.{3{y{3{3]3{3{3w.qdqtuuuuuw3y{3wg-3{3{3{uq5{3{3]/bd.3{3#3{3#3{y{3{3wa....6/bd.3{y/bh.{3/al..p2#e..]3{3{3w.px{3{3{3#3{3{3]3{3]3{3{3{y{3m.....]3{3{3#3{3]3]3{y{3{3{3]3{e/al..[e...d{3]y{y...x{3{3]/bd.3{y{3{3{3]3{3{y.....+{y{3{y{3{3{3#3{3{3#3]3{3w/al..tg....x{3{3wa...+{y{3{3{y{3]/bf.3{3wc....63{3#/be.3{3]/bd.3{3/am..2f...p3{3{3....p5/bl.{3f.....<3{3{3{3]3]3{3{3{3]3{3]3{uqep.a.a.qdud-3a...~3{3wc...d{3{3{3#3{3{3{y{3#3{3{3]3{y.....x{3]3{3{3{3#3{3{3]3{3{3]3{3{3wa....]3{3{y....<3{3..a.p5/bf.{3{y/be.{3wc....p5/bf.{3]3{3{3]/bd.3{3a...p3{3{3{u....{3wc....]3{3{y{3{3]3{3{3{3]3{3{3{3f.....]3{3]3{y/bj.{3{e....-3{3{3{a...+{3a...p/bk.3{y{3{y.....+/bd.{3{y{3{3{3#3{3]3{3{3]3w..d.d{3{3{3wc...2wc....<3{3#3{3#3{3]3]/be.3{3#a....63{3{3]/bk.3{3a...p2{3{3{3wa..p5a....2/bg.{3#3]3]3#3{3{3m.....<3{y/be.{3#3{3#3{3{3{y{3{a....-3{3{3{3f...qc.d..<3{y{3{3{3#/bf.3{3]3{y.....x{3{3]3{3]3{3#3{3{3{3#3{3{3{3w....d{3{3{y{3m/ah..x{3{3{3]/be.3{3]3{3{3{3#a....p5/bg.{3{y{3{3{3]3{3{y..p.p2{3#3{3{3a/ag..-/bf.3{y{y{3]3#3{3{3]3f.....]/bf.3{3]/be.3{y{3#a....-3{3#3{3{y/ag..+{3{y/bk.{3{y.....+/bd.{3{y/bd.{3]/bd.3{3g....d{y{3{3{3{u...d..-3{3{3#3{3{3#3{3#3{3{y{3{y{3#a....63{3{3#3]3{3]y{3{3]3#/bd.3{y....p2/bd.{3{e.....+{3{3{y{y{3]/bh.3{3m.....<3{3{3{3#3{3{3{y{3{3{3]y{3{3#a..a.-3{3]3{3{3#a....6/bn.3{y.....x{3{3]/bj.3{y{3g.....{3{3]3]3{3wa...+{3{y/bd.{3{y{y{3{3{3#3{3{3#a....p5{3]3{3{3]y{3{3{3#/be.3{3a....2{3{3{3#3{3w{3{</be.3{y{3]3{3#/be.3{3f.....]3{3{3{y/bd.{3{y{3{3{3#3{3{y3{31]/bd.3{3]3{3{3{3#3{3{3{y/be.{3]/bd.3{[.....+/bj.{3#/bu.3{3#3{3{3#3{3]3]3#a....63]3{3]3{y/bd.{3{y{3{3#/bg.3{3]/be.3{y{3{3]/bh.3{y{3{3{3f.....</be.3{3]3#3]3{3{3]3{3]/bd.3{y/bf.{3#/bf.3{3]3]3{3#/be.3{[.....x{3#3#/bk.3{3]/bg.3{3]3{3{3{3#3#3#/bf.3{3]3{3#3{3#a....p5/bd.{3#3{3#/be.3{3]/bf.3{3#3#3{3{3]3{3#/bg.3{3]/be.3{3f.....]3]3{3{y/bd.{3]3{y{3]3{3{3#3{3#3]y/bk.{3{y#3{3{3{3]3{3]3{3{3{y.....+/bf.{3]/bo.3{3]/bh.3{3#/be.3{y{3{3#a....6/bf.3{3#3{3#3{y3{]3{3{3#3]3{3{3]3]3{3{3{3]3{3#3#3{3#3{3{y{3{3{y/bd.{3#3f.....<3#/bd.3{3]3{3{3{ya...q5/bo.{3#3{3#/bi.3{[.....x{3{y#3{y{3]3{3#3{3e.....p3#/bd.3{3#3{3{3]3{3]3]3{3]/bd.3{y{3{3{y{3{y{3{y{3#a....p5/bd.{3]3{3{3{3w/ag..p/bg.3{3]3#3#/be.3{3#[31{3]3]/bf.3{3f.....]3{3{3#3{3{3{3]3{u/ah..p5{y{3@y]331]/bi.3{u...d]3{3#/bf.3{y.....+/bh.{3f....d..q[]3{3v...ua..[3@[!/be.3{y{y..qe..]3{3{3{3]3{3{3{3#a....63{y#3{3{y{3]3{3{e...t]3@yv{{3wa/ag..d3...7[]3{33[]3{3f.p5{a.t/bd.{3{y{3#3{3f.....</bg.3{3f...-3@[u..+{u..p13...p[/af..-3f...[3{e.t{3g..2/bf.{3{y{y.....x{3{3{3#/bd.3{u...xg.....p3m..+{3w...(a/af..7a....[3f..x#e..63{3{3{3#3{3#3{3#a....p5#3#/bd.3{y{3wa..~3a.....~e..p3{3f..+m/am..]e/ah..<3{3{3]3{3#3{3{3f.....]/bg.3{3....]e.....df...p5{u..6y..p/aj..tw/ag..a+/bg.{3{y.....+{3{3{y{3{3#3{3{e...xwa..a.pt....p[e...#a....a.....a.px..p+@/be.3{3#3{3{3{3wc....6/bf.3{3#3g...p2m+vc..qc/ai..2m/ah..d....6e..-3#[{3{3{3]3]/bd.3{3f.....<3{3{y{3]3{3{3{3e...p5{y...tg..d/af..[y..a....d/af..va..]y.d]/bf.3{3]3{y.....x/bd.{3{y{3{3{[....p[a...p3m/ah..+#a....ua/ag..xg...a...[/bf.3{3#3#a....63{3{3{y/bd.{3{ep/ai..]3e.....a.p5f...p3f..twaa.p5e/ag..{3{3{3{3#3{3{3{3m.....<3#/bd.3{y{3]3#a/ah..p3{33/ag..]y....]3a.63f...<3m.....73{3]3]/be.3{y.....x{3{y{3{3]3{y{3{3wc/ag..d{3{3#[@u...x#a...+{a..]y...x{3v...q/bf.3{3]y#3#a....p5/bh.{3#e/af..-3{3{3{3wgq.-3wtuu!3wuqy{y3{]3{3#[@/bi.3{3m.....]3{3{3]/bf.3{[e...q5/be.{3{y/bm.{3{y{3{3#/bd.3{y.....+/be.{3{y/bd.{3@[@3{3{y/bm.{3]3{3{3{3#/bg.3{3#a....6/be.3{y{3{3]/bg.3{3#/bw.3{3m.....<3]3{3{y{3{3{y{3#/bd.3{3]/bi.3{3]3{3]3{3{y{3{3#3{3{y{3{3{3#3{3{3{y.....x{3{y/bj.{3#3{3]/bd.3{y{3]/bk.3{3]3{3{y/bd.{3#a....p5{3{3]3{3]/bd.3{y/bd.{3#3{3]3]3#/bg.3{3#3]3{3{3#3{y{3{3]/be.3{3m.....]/be.3{3]3#/bm.3{3#3{3#/be.3{y{3{y{3{3{3#3#/bd.3{y.....+/bf.{3#/bd.3{3]/bg.3{3#/bg.3{y/bl.{3#a....63#3{y{3{3]3{3{3{y{3]3{3#/be.3{y/bd.{3{y{3#3{y{3{3{3{y/bg.{3{y{3{3m.....<3{3{3{y/be.{3]/bf.3{3#y{3{y/bq.{3]3{3{3{y.....x/bf.{3]3#/bd.3{y@y3wuuq.at/bd.{3#3{3{3{y/bd.{3{y{3]y{3{3{3]3{3{3#3wc....p5{3{3]/bf.3{3#[uea/ai..p2{3{y/bd.{3]3{3{y{3]3{3{3]3{3{3#3{3{3]3{3{3f.....]3#3{3{3{y{y/bd.{3a/am..-3]3{3{3]/bk.3{y/be.{3]3{y.....+{3{y{3#/bd.3{y{3{e/an..{/be.3{3]3{3#/bm.3{3wc....6/bf.3{y{3{3{3wa/al..p2{3#uu[@aq[]3{3]/bd.3{3#/bi.3{3f.....</bd.3{3]/bd.3{3e/ag..a.a...63#e/ag..dwwa.<3{3]3#3{3{3{3]/bg.3{y.....x/be.{3#3{3]3{3{[/af..a....dqt{y..pta...p[...dut]3wg.+]/bf.3{3#3]3#3wc....p5{3{y{3#/be.3{3#aqduu3a....<3{3f..t{3e...3c/af..]u....]/bi.3{3f.....]3]3{3#/bd.3{3]/bd.3{3w....+{3{e..p5{3e..+m/af..de....d/be.{3#/bd.3{y.....+{3#/bd.3{3]3{3{y/bd.{3..a.p3{3f...[3{[..6[/am..+{3#3{3{y{3{3#3{3{3wc....63{3{3{3]3{y/bd.{3@[3a-3#a....[3{[....!3v...wcp.p/ai..p2{3{3#/bf.3{3f.....</bd.3{y/bd.{3wc....{3f....t{3wc/ai..2m.....a..d.d..~/bd.3{3#3#3{3]3{[.....x{3{y/bg.{3a....x{y....p3{3f/ai..[[/an..]3{3{3{3#3{3{3{3#3#a....p5#3{y{3{3{3{y{3]3{u....p3wc....<3{3a.p/af..+wc/af..a/af..+{3{3#/bd.3{y{3{3f.....]/bh.3{3wa....p+..p..x{3{y/ah..p5f.p.pye..de...p5{3{3{3]3{3#3{3]y{[.....+{3{y{3{3{3{y{3{3{3m.p/ai..-3{3{y.....d..]y....<3..63m...<3{3]/bf.3{3#a....63{3{3#3{3{y{3{3{3{y....a/af..t{3{3{33eqe...x#a...x{a..{y...x{y/bh.{3f.....<3#/bf.3{y{3{[/ag..d..~3{3{3{3#3w...~3f...63f..2#eqd!/bi.3{[.....x/bf.{3]3{3{3{a/ai..+{3]3{3{3{3v{3[{y([v1]3v{]3{</bh.{3#3#3#a....p5/bi.{3{a...d....[/br.3{y{y/be.{3f.....]/be.3{3]/bd.3{u/af..p5/bp.{3{y{y{3{3#3{y{3{3{y.....+{3{3#3#3{3{3{3]3{3{3{[e...qy/bt.{3#3#3{3{3{3wa.....2{y{3{3{3{y{3{3{3]3{3{3@[@3{3{y{3{y{3{3]3{3{y/be.{3{y/bi.{3#3{3/af..p3{3{3{3]/bn.3{y/bk.{3#3#/bd.3{3#3{3{3w/ag..p3{3{3]/bj.3{3#/bi.3{3]3{3{3]/bk.3{u/ah..px]/bf.3{3]3]/bf.3{y{3{3{3#3{3{3]/bf.3{y/bh.{3#[a/ak..qdu{(y@y/bl.{3]3{3{3{y/bl.{3@y@[3wud/au..dqduu3{([@y@/bo.3{3#y@y@[3{3uuda/a&..adqtqeuuuw3w3{3w3{uw3uutqeq.a/agc.", 25600)
end

function _init()
  chr6x,asc6x={},{}
  local b6=".abcdefghijklmnopqrstuvwxyz1234567890!@#$%^&*()`~-_=+[]{};':,<>?"
  local i,c
  for i=0,63 do
    c=sub(b6,i+1,i+1)
    chr6x[i]=c asc6x[c]=i
  end
  compressdepth=2
end--initglobal()

-- test bit #b in a
function btst(a,b)
  local r=false
  if (band(a,2^b)>0) r=true
  return r
end--btst(..)

-- return asc-6 of string a
-- from character position b
function fnca(a,b)
  local r=asc6x[sub(a,b,b)]
  if (r=="" or r==nil) r=0
  return r
end--fnca(..)

-- return string a repeats of b
function strng(a,b)
  local i,r=0,""
  for i=1,a do
    r=r..b
  end
  return r
end--strng(..)

-- convert compressed 6-bit
-- string to 8-bit binary
-- memory
function bit6to8(t,m)
  local i,d,e,f,n,p=0,0,0,0,0,1
  repeat
    if sub(t,p,p)=="/" then
      d=fnca(t,p+1)
      e=fnca(t,p+2)+64*fnca(t,p+3)
      t=sub(t,1,p-1)..strng(e,sub(t,p+4,p+4+d-1))..sub(t,p+d+4)
      p+=d*e-1
    end
    p+=1
  until p>=#t
  p=1 d=0 e=0
  for i=1,#t do
    c=fnca(t,i)
    for n=0,5 do
      if (btst(c,n)) e+=2^d
      d+=1
      if (d==8) poke(m+f,e) d=0 e=0 f+=1
    end
  end
end--bit6to8(..)

function _draw()
  titlecard()
end