2 poke53281,0:poke53280,0:printchr$(8)
3 printchr$(158):poke650,0
5 dims(17,4,4)
6 b=1053:c=55325:fora=1to7:pokeb,93:b=b+40:pokec,12:c=c+40:nexta:pokeb+40,74
8 pokeb+1,75:pokec+1,12:c=c-41:b=b-41:fora=1to7:pokeb,66:b=b-40:pokec,12:c=c-40
12 fora=1to30:readz9:readx9$:nexta
15 fora=1to17:forb=1to4:forc=1to4:reads(a,b,c):nextc:nextb:nexta
20 print"{clear}":goto25
21 b=1052:c=55324:fora=1to7:pokeb,93:b=b+40:pokec,12:c=c+40:nexta:pokeb,74
22 pokec,12:c=c+1:b=b+1:fora=1to10:pokeb,67:b=b+1:pokec,12:c=c+1:nexta
23 pokeb,75:pokec,12:c=c-40:b=b-40:fora=1to7:pokeb,66:b=b-40:pokec,12:c=c-40
24 nexta:return
25 gosub21
30 fora=1to17
60 fora=1034to1760step40:pokea,66:nexta:gosub10000
70 poke1794,109:fora=1795to1810:pokea,67:nexta
80 poke1811,125:fora=1771to1049step-40:pokea,93:nexta              
82 b=55306:fora=1to19:pokeb,12:b=b+40:nexta:fora=1to17:pokeb,12:b=b+1:nexta
83 fora=1to20:pokeb,12:b=b-40:nexta
90 c=1924:wg=8:gosub5000
100 sh=int(rnd(0)*17+1):sp=1:s3=int(rnd(0)*17+1)
101 ifw<1030orw>1212thenl3=5
102 ifw<1229orw>1452thenl3=10
103 ifw<1469orw>1692thenl3=15
104 ifw<1709orw>1802thenl3=19
120 remshape-down!
130 w=55316:ti$="000000"
140 pokew,1:fora=1to4:pokew+s(sh,sp,a),1:nexta:geta$:iffd=1then4000
145 poke1138,81:fora=1to4:poke1138+s(s3,1,a),81:nexta
146 poke1053,14:poke1054,5:poke1055,24:poke1056,20:poke1058,19:poke1059,8
147 poke1060,1:poke1061,16:poke1062,5
149 ifa$=" "thenfd=1
150 ifa$="z"then1000
160 ifa$="x"then1000
170 ifa$=","then1000
180 ifa$="."then1000
190 ifa$=chr$(13)then3000
200 ifti$>"000000"then4000
210 goto140:print210
1000 remchehx
1001 ifti$>"000000"then4000
1002 pokew,0:fora=1to4:pokew+s(sh,sp,a),0:nexta
1003 w2=w:s7=sp:tr=0
1004 ifa$="z"thensp=sp+1
1005 ifsp=5thensp=1
1010 ifa$="x"thensp=sp-1
1011 ifa$="."thenw=w+1
1012 ifa$=","thenw=w-1
1015 ifsp=0thensp=4
1020 fora=1to4
1021 c=peek(s(sh,sp,a)+w)
1031 ifc=224thentr=tr+1
1032 ifc=160thentr=tr+1
1033 ifc=128thentr=tr+1
1034 ifc=176thentr=tr+1
1035 ifc=32thentr=tr+1
1037 ifc=144thentr=tr+1
1039 ifc=16thentr=tr+1
1040 ifc=0thentr=tr+1
1041 ifc=48thentr=tr+1
1042 ifc=112thentr=tr+1
1043 ifc=240thentr=tr+1
1044 ifc=96thentr=tr+1
1045 nexta
1047 iftr=4then140
1171 w=w2:sp=s7:goto140
3000 rempause
4000 w2=w:s7=sp:tr=0:
4020 pokew,0:fora=1to4:pokew+s(sh,sp,a),0:nexta
4025 w=w+40
4030 fora=1to4
4040 s9=w+s(sh,sp,a)
4050 c=peek(s9)
4060 ifc=0thentr=tr+1
4061 ifc=144thentr=tr+1
4062 ifc=16thentr=tr+1
4065 ifc=48thentr=tr+1
4067 ifc=96thentr=tr+1
4068 ifc=176thentr=tr+1
4070 ifc=112thentr=tr+1
4075 ifc=128thentr=tr+1
4080 ifc=240thentr=tr+1
4082 ifc=32thentr=tr+1
4083 ifc=160thentr=tr+1
4084 ifc=224thentr=tr+1
4085 nexta
4090 iftr=4then4500
4100 w=w2:sp=s7:gosub21
4110 pokew,1:fora=1to4:pokew+s(sh,sp,a),1:nexta
4115 poke1138,96:fora=1to4:poke1138+s(s3,1,a),96:nexta
4120 sh=s3:s3=int(rnd(0)*17+1)
4130 w=55316:gosub6000
4140 fd=0:ti$="000000":sp=1:goto140
4500 remo.k.
4510 pokew,1:fora=1to4:pokew+s(sh,sp,a),1:nexta
4520 ti$="000000"
4540 goto140
5000 rem*a-mazin' subrutinÁ
5005 ifwg>29then5035
5010 restore
5020 fora=1towg:forb=1to2:reada1$:nextb:nexta
5030 readb1:reada1$
5035 c1=b1
5037 c2=c
5040 fora=0tob1
5050 d1=asc(mid$(a1$,b1,1))
5051 ifd1<28ord1>62then5070
5069 pokec,asc(mid$(a1$,b1,1)):goto5075
5070 pokec,asc(mid$(a1$,b1,1))-64
5075 pokec+40,64:pokec-40,64
5076 pokec+1,66:pokec+41,75:pokec-39,73
5080 b1=b1+1:c=c+1:nexta
5081 b1=c1:pokec,66:pokec+40,75:pokec-40,73
5085 c=c2
5090 fora=1tob1
5095 d1=asc(mid$(a1$,b1,1))
5096 ifd1<28ord1>62then5100
5097 pokec,asc(mid$(a1$,b1,1)):goto5105
5100 pokec,asc(mid$(a1$,b1,1))-64
5105 pokec+40,64:pokec-40,64:
5107 pokec-1,66:pokec-41,85:pokec+39,74
5110 b1=b1-1:c=c-1:nexta
5115 pokec,66:pokec-40,85:pokec+40,74
5120 return
6000 rem check for 'da lines
6010 xx=55307
6020 fornn=1to19
6023 fornj=1to16
6025 c=peek(xx)
6030 ff=c/16
6031 fg=int(ff)
6032 iffg<>ffthentr=tr+1
6040 xx=xx+1:nextnj
6050 iftr=16then9000
6060 xx=xx-16:xx=xx+40:nextnn
6070 return
9000 rem gnarly! a line!
9010 xx=xx-nj:xx=xx-1
9020 fornn=1to16:xx=xx+1
9030 pokexx,15:forx=1to50:nextx:pokexx,12:forx=1to50:nextx:pokexx,11
9040 forx=1to50:nextx:pokexx,0
9050 dx=xx
9060 dx=dx-40
9065 c=peek(dx):ff=c/16:fg=int(ff)
9070 ifff<>fgthenpokedx-40,1:pokedx,0
9080 dx=dx-40:ifdx<55296thennextnn
9090 x=int(random(0)*13+1)
9091 ifx=1thenwg=0
9092 ifx=2thenwg=1
9093 ifx=3thenwg=3
9094 ifx=4thenwg=12
9095 ifx=5thenwg=14
9096 ifx=6thenwg=15
9097 ifx=7thenwg=17
9098 ifx=8thenwg=19
9099 ifx=9thenwg=23
9100 ifx=10thenwg=24
9101 ifx=11thenwg=25
9102 ifx=12thenwg=26
9103 ifx=13thenwg=27
9110 c=1924:gosub5000
9120 return
10000 xx=1035:x1=55307:forb=1to19
10001 fora=xxtoxx+15:pokea,81:nexta:xx=xx+40:fora=x1tox1+15:pokea,0:nexta:x1=x1+40
10002 nextb:return
50000 data10,your're a tetris dude,12,keep those lines coming!
50010 data8,gnarly! a tetris,14,excellent placing of tetrads
50020 data5,game over!,5,pause mode,19,select song by pressing number(1 to 6)
50030 data12,start song again (y-n)?,8,start your game!
50040 data18,maybe candyland would be more your game!
50050 data17,press (space) or m to choose music
50060 data16,1000 points till your high score,5,high score
50070 data11,regular tetris person,4,oh! oh!,11,superdude! great going
50080 data2,wow!,6,high scores!,10,major gnarly player!,5,try again.
50090 data5,excellent!,14,ha! ha! that score is a joke
50100 data14,disgrace to the tetris race!,3,gross!
50110 data14,tetrisdude. or tetrisdudette,9,been playing alot?,3,cool!!
50120 data16,condider yourselve a mentalblock,7,you are a hero,4,you suck
55560 data40,80,1,41,40,41,42,1,40,80,41,81,1,2,41,42
55565 data40,80,39,41,40,80,39,38,1,2,41,81,40,41,42,80
55570 data40,1,41,81,1,2,40,41,40,80,41,81,1,40,41,39
55575 data1,2,42,43,40,39,79,119,1,41,42,43,40,80,79,119
55580 data40,80,120,160,1,2,3,4,40,80,120,160,1,2,3,4
55585 data1,41,81,121,40,1,2,3,40,80,120,121,40,39,38,37
55590 data1,40,80,120,40,41,42,43,40,80,120,119,1,2,3,43
55595 data40,41,81,121,40,39,1,2,40,80,81,121,1,40,39,38
55600 data40,41,42,2,1,41,81,80,1,2,40,42,40,80,81,1
55605 data40,80,120,79,1,2,3,42,40,80,120,41,39,40,41,42
55610 data40,80,120,39,1,2,3,41,40,80,120,81,38,39,40,41
55615 data40,80,39,41,40,80,41,39,40,80,41,39,40,80,41,39
55620 data40,80,81,82,40,80,79,78,1,2,42,82,1,2,40,80
55625 data1,40,39,79,40,41,81,82,40,39,79,78,1,41,42,82
55630 data40,39,41,81,1,40,80,39,40,41,42,81,40,80,41,79
55635 data40,80,81,39,40,39,38,79,1,41,81,42,40,41,39,79
55640 data40,39,38,78,1,41,81,82,40,41,42,82,1,41,81,82
55650 data0,31,254,0,31,254,0,95,254,0,199,112,3,135,112,6,63,254,12,0,0,13,187
55660 data46,29,18,168,53,147,46,69,18,162,133,146,174,4,0,0,5,255,254,4,7,112,4
55670 data7,112,8,31,254,0,31,254,0,31,254,0,0,0,0,0,0