5 print"merry christmas"
   10 data"vs g3a1g2e6,  c3a1g2e6"
   12 data"vs d3r1d2b6,  c3r1c2g6"
   14 data"vs a3r1a2c3b1a2, g3a1g2e4r2"
   16 data"vs a3r1a2c3b1a2, g3a1g2e5r1"
   18 data"vs d3r1d2f3d1b2, c6e4r2"
   20 data"vs c3g1e2g3f1d2, c6c4r2"
   22 data"vt c3r1c1r1c5r1, c3r1c1r1c6"
   24 data"vt g3r1g1r1g6, c3r1c1r1c6"
   26 data"vt f3r1f1r1f6, c3r1c1r1c5r1"
   28 data"vt f3r1f1r1f6, c3r1c1r1c6"
   30 data"vt g3r1g1r1g6, c6c5r1"
   32 data"vt g3r1g1r1g6, c6c4r2"
   34 data"va e3f1e2c6, e3f1e2c6"
   36 data"va f6d6, e6e6"
   38 data"va f4c2a3g1f2, e3f1e2c6"
   40 data"va f6a3g1f2, e3f1e2c6"
   42 data"va f6d3f1d2, e6g5r1"
   44 data"va e4c2e3d1b2, e6e4r2"
   46 data"x"
  100 ns%=2:vt=36874:dimn%(ns%,80),tm%(ns%),sp%(ns%)
  160 fori=0tons%:n%(i,0)=0:next
  190 sh%=16:cv=2:in$="":c$=""
  230 gosub800
  240 ifc$="x"then510
  250 ifc$<>"v"then340
  260 gosub800
  280 ifc$="s"thencv=2
  290 ifc$="a"thencv=1
  300 ifc$="t"thencv=0
  310 goto230
  340 fr=-1
  350 ifc$="c"thenfr=225
  360 ifc$="d"thenfr=228
  370 ifc$="e"thenfr=231
  380 ifc$="f"thenfr=232
  390 ifc$="g"thenfr=235
  400 ifc$="a"thenfr=237
  410 ifc$="b"thenfr=239
  420 ifc$="r"thenfr=0
  430 iffr=-1thenprint"?";c$;"in";in$:stop
  440 gosub800
  450 i%=n%(cv,0)+1:n%(cv,0)=i%
  480 n%(cv,i%)=val(c$)+sh%*fr
  490 goto230
  510 fori=0tons%
  520 sp%(i)=1:tm%(i)=0
  550 nexti
  570 fori=0to4:pokevt+i,8:nexti
  580 ford=0to1
  590 fori=0tons%
  600 j=sp%(i)
  610 ifj>n%(i,0)then670
  620 d=0
  630 nt%=(n%(i,j)/sh%-int(n%(i,j)/sh%))*sh%
  640 iftm%(i)>=nt%then750
  650 tm%(i)=tm%(i)+1
  660 pokevt+i,int(n%(i,j)/sh%)
  670 nexti
  680 forj=0to70:nextj
  690 nextd
  700 fori=0to4
  710 pokevt+1,0:nexti
  730 printfre(x);"bytes left"
  740 sys49148
  750 sp%(i)=j+1
  760 tm%(i)=0:goto600
  800 ifc$="x"thenreturn
  810 iflen(in$)=0thenreadin$
  820 c$=left$(in$,1)
  830 in$=right$(in$,len(in$)-1)
  850 ifc$=" "orc$=","thengoto800
  860 return