5 c=0
   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 print"crunching numbers..."
  105 print"hold tight!"
  106 print:print:print:print"this amazing xperience"
  107 print"is offered by develer"
  110 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
  720 restore
  730 clr
  740 sys64802
  750 sp%(i)=j+1
  760 tm%(i)=0:goto600
  800 ifc$="x"thenreturn
  805 c=c+1
  806 d=c/409*21
  807 poke304,d
  808 sys49145
  810 iflen(in$)=0thenreadin$
  820 c$=left$(in$,1)
  830 in$=right$(in$,len(in$)-1)
  850 ifc$=" "orc$=","thengoto800
  860 return