$,TETRIS #3500:#306,10000: 90I#30E,#40: I1 (A$):A((A$,I,1))m 7,0,3: A,0,1: 1,0,3: A,0,1v( 802#30E,#40: I1 (A$):A((A$,I,1))< V0 2: H0 2: A,0,1: 1,0,3:F3,1,3:: 1,2,3: A,0,2: 7,1,3P:#30E,#C0:HZMA#3600:NX#3603:AN#3606:IL#35F7:PC#35FF:SB#3DC0:BS#3DCDdFI#3607:NF#3608:LE#35F9:RI#35FA:RO#35FB:DR#35FC:SN#35FDnLV#35F8:FL#3609:CO#35FE:PR#3E00:INS#3E03:AY#3E06:TAB#3F00xC(11):C(0)6:C(1)3:C(2)2:C(3)5:C(4)1:C(5)47C(6)1:C(7)5:C(8)2:C(9)3:C(10)6:C(11)(7)J:"zarevdam";s RTAB TAB#FF 16: R,0: R2,0 D4 15: RD,#95: D,R I#35F7 #3EF9 2 D$:D$"#"D$:D(D$) I,D:".";::I(""):::7:0E$(27):A$"@T E T R I S ">#26A,67:12,1;E$"J"E$A$E$"P":#26A,3H 380lCC(CO):29,T18,16:30,T18,70,T18,(CC0)623:1,T18,0CC(CO):#26A,2 CC0 C$" cweten " C$" ~/bql "1,16,(CC0)47 "11,1,(CC0)523:11,2,(CC0)5230 ,2,10;"niwo (0..15)";(IL)T 62,11;"lqwo ";((LE))x @2,12;"dqsno ";((RI)) J2,13;"wyrtene ";((RO)) TD$((DR)):D$" "D$"SPC"D$D$" " ^2,14;"spuskane ";D$ h2,15;"sledwa} ";((SN))1 r2,16;"TETRIS e ";C$:#26A,3:: |260k 2,19;"1) na~alo na igrata":"2) klasirane" "3) promqna na parametrite" "4) kraj" #26A,2:I19:AA1:#2DF,0 IIAA:1,I,">":0,I,16:10:1,I,7 KE(#2DF): KE128 TKE#B0:#2DF,0:470-  I20 I21 AA(AA)6 430L  T1 T4 430U 240n  T 790,500,630,780w 540  PR :1270 590: 200 :11,1,(CC0)423:6,11,3:11,1,0 &A$" k l a s i r a n e":20,2,3:20! 0A$"# ime niwo lin to~ki":0,13,3:20G :0,11,1:0,11,1:239,0,1:0,11,1M Db N CC0 T$: X S0 11:0,35,3:163,1,C(S): R0 11 b0,25,3:10,1,C(R)::(#2DF)127S20 l: S15 600  v22,12," - dwivi":22,14," - kraj" V9# VV1: V16 V10O 15,V;: V16 22,16," promenq"o  T$:22,16," "  T$(13) 650  T$(27) 22,12,0:22,14,0:420  V10 750  T$;  T1$  T1$;:T$T$T1$:L(T$) L0 L16 IL,L: 770 300> V16 T$" " CO,1(CO):770Z22,10,0:LEV11,(T$)h240:650v 2,24;::#26A,2: (PC)0 BS:1010  MA:810:830*30,44,3:152,4,644A$"0": J06:24,J2444,3:20::>A$" T E T R I S - 8d":12,0,3:50/H0,11,3:3,40,#55JRA$"broj:":0,24,3:50h\A$"niwo :":144,24,3:50fA$"to~ki:":144,39,3:50pA$"linii:":144,54,3:50z144,98,3:47,0,1:0,44,1:47,0,1:0,44,1A$"sledwa":144,84,3:50A$"lqwo : ":53,173,3:202A$"dqsno : ":53,182,3:20RA$"wyrti : ":53,191,3:20sA$"spuska: ":137,155,3:20A$"sledwa: ":137,164,3:20A$"byrzo : ":137,173,3:20 I13:I205,176,3:10,0,1:3,3,13,3,3:3,3,1:A$"pauza : ESC":137,182,3:20<A$"kraj : [Q]":137,191,3:20b MA:192,82,3:12,1,16:138,82,312,1,(CC0)4:138,154,3:21,1,(CC0)57138,24,3:10,1,(CC0)47138,39,3:10,1,(CC0)7138,54,3:10,1,(CC0)27 $54,171,3:28,1,(CC0)57$.117,173,3:26,3,64C8A$((LE)):118,173,3:20bBA$((RI)):118,182,3:20LA$((RO)):118,191,3:20V200,155,3:18,6,64`A$((DR)): A$" " A$"SPC"j200,155,3:20tA$((SN)):200,164,3:20~ SB: PC,1: LV,(IL):N(1)7: MA/FN:N(1)7: NF,NZ FI,F: NX: (FL)4 1170o #E93D: #26A,3 I10 1 1:1,I30,0:1,0,0,2005::0,0,0,0: #2DF,0: AY: (AN)0 1270: T$:200#20C,#7F::"wa{eto ime :";: #C592"#20C,#FF:: (#35)0 200I540: INS:1270:590:#2DF,0:200m: 8)"natisnete klawi{...";: 808,4F55,2049,31,4C00,361B,8A4C,136,506,4C11 3A0B,2B4C,903A,100,200,1,0,100,A9,AA2 109D,CA36,FA10,F8AD,AD35,35FE,11F0,7FA9,8C8D,A93D< 8D4F,3BE2,3DA9,E38D,D03B,A90F,8D17,3D8C,25A9,E28Dr A93B,8D3D,3BE3,FD20,2038,39F4,20,203A,39E8,334C AD3C,3607,A548,4880,81A5,AD48,3ADA,AD48,3ADE,AD48  3608,78D,2C36,3C03,8D68,3ADE,8D68,3ADA,8568,6881 8085,8D68,3607,2060,365C,20,AE3A,3607,14FE,8A36M  A0A,8D0A,3AD6,180A,D66D,693A,8D2C,2E3,1EA9,E18D* 2002,F0C8,4A0,98C,2036,3A79,7AE,BC36,3614,A94 E20,A93A,8D00,3ADE,E38D,8D3A,3AE4,E58D,8D3A,2DF> D220,AD3B,35F8,AAA,6D0A,3674,16E9,E28D,BD3A,3D79%H DC8D,4A3A,694A,8D3C,3AE1,DFA9,8085,A2A9,8185,28A9[R 728D,A93B,8D06,3ADD,E620,AD3A,2DF,7F29,3F0,BE4C\ 2037,3B58,22B0,DDCE,103A,A905,8D05,3ADD,2FA2,F5BDf 953C,CA50,F810,A518,6D80,3B72,8085,D390,81E6,CFD0p 80A5,ED38,3B72,8085,81A5,E9,8185,E620,203A,3B589z 6420,583C,DFAD,1002,2907,207F,3BA5,16F0,D6CE,D03An CEEF,3AE1,EAD0,E4AD,D3A,3AE5,DD0,98D,6036,DF8D 2002,3C67,64C,A237,4E03,3AE5,E46E,CA3A,F7D0,E2AD 383A,E4ED,8D3A,3AE2,E3AD,ED3A,3AE5,E38D,183A,E2AD 6D3A,3610,108D,AD36,3AE3,116D,8D36,3611,DBAD,A3AL 6D18,3610,108D,9036,EE03,3611,814C,CD39,35F9,11D0 B320,2038,3AE6,5820,903B,201C,38AC,254C,CD38,35FA 1CD0,AC20,2038,3AE6,5820,903B,2006,38B3,254C,2038 38A0,A2,DF8E,4C02,3703,A2,DF8E,CD02,35FB,38D0& DEAE,CA3A,210,3A2,DE8E,203A,3BD2,E620,203A,3B58Z 1690,DEAE,E83A,4E0,290,A2,DE8E,203A,3BD2,E620 4C3A,3710,A020,2038,38A0,A020,4C38,3710,FCCD,D035 A922,8D01,3ADC,DDAD,F03A,AD11,3B72,F0C9,AF0,FCAD 935,8D80,2DF,D1D0,F0A9,728D,D03B,CDCA,35FD,18D07 74AD,4936,8D0C,3674,4AA0,B1A9,1C20,203C,365C,D220l 4C3B,3703,11C9,4D0,98D,6036,9C9,A1D0,F8AD,C935 B00F,EE06,35F8,BA20,AE39,35F8,79BD,8D3D,3ADC,104C$ AD37,3AE2,3D0,E3CE,CE3A,3AE2,E660,D080,E602,6081. 80A5,2D0,81C6,80C6,A960,8D06,3AD5,3220,A039,AD00J8 3D8C,8291,ADC8,3D8A,8291,AEC8,3ADF,8ABD,913D,C882B BC0,EDD0,8CAD,913D,C882,8AAD,913D,2082,393B,DFADL 293A,4901,8D01,3ADF,D5CE,D03A,60C8,90A9,D58D,203AV 3932,AA2,BA0,8AAD,913D,8882,F810,4720,CA39,F010'` C120,2038,3920,3B20,A039,AD0B,3D8C,8291,1088,A0FB_j AD0C,3D8A,8291,A960,85CA,A982,85A3,6083,82A5,6918t 8528,9082,E602,6083,82A5,E938,8D28,82,83A5,E9~ 8385,A060,2C00,1A0,DD20,A939,8D01,2E1,E48C,A902 8D80,2E3,4020,A9FB,8D00,2E3,E48D,A902,8D02,2E85 E78D,4C02,FBD0,3220,A939,8D00,3AD9,1A0,82B1,8ACDm F03D,CD34,3D8B,2FF0,C0C8,D00B,20EF,3959,A120,EE3A 3612,F8AE,BD35,3C76,12CD,B036,AD10,35F8,FC9,9F0 F8EE,2035,3956,F420,2039,39E8,814C,EE39,3AD9,D9AD C93A,F018,A517,1882,F069,8285,B090,83E6,ACD0,8A2H A9,E09D,CA02,FA10,A060,2037,3A64,12AC,A936,F000 A017,2019,3A64,F8AC,A935,F000,A00B,2028,3A64,10AC AD36,3611,A2,A22C,8E01,3AD6,9920,20D4,E0D5,DD20 AE39,3AD6,BD,F001,2006,3A2B,D0E8,60F5,D68E,483A! E18D,A902,8D01,2E5,2D20,A9F1,8D01,2E1,3A9,E58DV 2002,F0FD,8D68,2E1,1A9,E58D,2002,F12D,7A9,E18D A902,8D03,2E5,FD20,AEF0,3AD6,2060,39DD,C0A9,E18D 8C02,2E3,3A9,E58D,2002,F0C8,8A0,DD20,A939,8D08  2E1,E38C,A902,8D40,2E5,6820,20F2,39DD,F8A9,E38D.! A902,8DFF,2E4,3A9,E58D,4C02,F0FD,4720,A239,A005f!( 8C01,3AD7,F1A0,D88C,AC3A,3AD7,82B1,D8AC,913A,EE82!2 3AD7,D8EE,AD3A,3AD7,BC9,E9D0,4720,CA39,D910,D9CE!< 103A,4CD2,38BC,C00,FB0B,1818,1600,5,0,3942"F D00,7800,10A9,8485,A9,4A85,4B85,4C85,4D85,DAAD9"P A3A,B9A8,3C8D,4F85,8EB9,853C,64E,264E,904F,A031q"Z A905,8D00,3C8C,4DA6,A518,6580,904A,EE04,3C8C,6518"d 904B,EE04,3C8C,7918,3C86,5095,81A5,8C6D,653C,954C"n E651,E64D,884D,D110,4AE6,4AA5,4C9,F90,A9,4A85#x F0A9,6518,854B,904B,E602,C64C,D084,58AE,2060,3C55M# B320,B03B,2044,3C64,E4EE,D03A,EE03,3AE5,A258,182E# 50B5,2869,F59D,B53C,6951,9D00,3CF6,CACA,ED10,DCAC# CA3A,FDD0,DFAD,1002,290B,C97F,F01B,20F5,3BA5,5F0# D088,F0EA,8D03,2DF,2078,3C67,6018,F9CD,F035,CDFA($ 35FA,F5F0,FBCD,6035,A0,17A2,DDBD,CD3C,3D8A,6F0]$ 8BCD,F03D,C801,10CA,8CEF,3ADB,C0,1F0,1860,AD60$ 3607,8D0A,3AD6,180A,D66D,AA3A,A0,25BD,993D,3CC5$ CB99,993C,3CD1,D799,E83C,C0C8,9006,ADEB,3607,A0A% 6D18,3ADE,DA8D,603A,4AA0,B1A9,8084,8185,1C20,A23C:% 8E00,3ADE,D220,203B,3AE6,644C,843C,8582,A283,A017o% AD04,3D8A,8291,1088,20F8,393B,10CA,60F0,A9,78D% A936,A0A5,85F0,8483,2082,3C07,82A4,83A5,7EE,AE36% 3607,7E0,EFD0,A060,2C17,2FA0,2EA2,50A1,C599,883C& CACA,F610,A060,2C17,2FA0,2EA2,C5B9,813C,8850,CACAL& F610,A60,1E14,3228,463C,5A50,6E64,8278,968C,C8A0w& 78A0,2850,100,F,4444,F,4444,66,66,66&" 66,E4,404C,4E,4046,4064,200E,C044,8E,40C4&, 2E,6044,800E,4026,C6,4026,C6,2046,6C,2046 '6 6C,1317,1317,1317,1317,1317,1317,1317,1317,1317E'@ 1317,1317,1317,1410,1410,1410,1410,1410,1410,1010}'J 1010,1010,1010,1010,1010,A4E8,A510,A538,A560,A588'T A5B0,A5D8,A600,A628,A650,A678,A6A0,A5D9,A601,A629'^ A651,A679,A6A1,A6C9,A6F1,A719,A741,A769,A791,1111%(h 1111,1111,1115,1115,1115,1212,1212,1212,1313,1313](r 1313,1515,1515,1515,1616,1616,1616,1317,1317,1317(| 717F,6569,7F63,556A,556A,556A,6D7F,7373,7F6D,627F( 6D6D,7F61,7F7F,7373,7F7F,617F,7F7F,7F61,6D7F,6D6D) 7F6D,4C58,3C44,2E35,2026,161B,E12,80B,305,10017) 1714,0,2800,2943,3120,3839,2039,4F42,4952,4C53o) 5641,5A20,4841,5241,4549,2056,202D,4322,4D4F,5550) 4554,2052,4F46,2052,4F59,2255,2000,3DF0,2B1,91) DA20,903D,60F7,F020,B13D,9100,2002,3DDA,F790,E660* D000,E602,E601,D002,E602,A503,C902,A568,E903,60BFL* A000,A900,A240,84A0,8400,8502,8601,6003,4C00,3E60* 2A4C,A23E,AD00,3610,DD,AD3F,3611,530,1FD,B03F* 8A0B,6918,AA10,E9D0,68D,6036,F68E,A93E,D001,A2F5* CAF0,BD,9D3F,3F10,F6EC,D03E,AEF4,3EF6,A0,10B9"+ 9D36,3F00,C8E8,3C0,F490,F8AD,9D35,3F00,A0E8,B900T+ 35,BB49,9D,E83F,C0C8,900C,A9F2,8D1A,3EF9,A2+ F68E,E83E,F88E,A03E,2000,3ED4,F8AC,203E,360A,20A0+ D420,A93E,8D0C,3EF7,4BD,493F,F0BB,2009,360D,CEE8+ 3EF7,F0D0,82A0,D420,BC3E,3F03,A20,A036,20A0,3ED40,& 2BC,203F,360A,BFA0,D420,BC3E,3F00,1BD,203F,360Ah,0 F6AD,183E,1069,F68D,AD3E,3EF9,6918,8D0B,3EF9,F8EE,: AD3E,3EF8,11C9,9B90,AD60,3EF9,E38D,8C02,2E1,A2,D E28E,8E02,2E4,3A2,E58E,2002,F0C8,A9,E38D,AE02,N 3EF6,60,0,0M