@@ 53280,0:53281,0'@"";:19703@(142)=@(1:0G@2 14h@<I13:I12288,(I53248):r@F 15@PT1 3:Q: I07@ZA:QI,A::@d12432,63,99,99,63,27,51,99,0@n14224,255,255,255,255,255,255,255,255 Ax13456,63,99,99,63,27,51,99,0-A I1345613463:I,255(I):?ASO54272:ZZ9PA5427224,15aA-40,0,40,41qA-1,0,1,-39A-41,-40,0,40A39,-1,0,1A40,0,-40,-39A1,0,-1,-41A39,40,0,-40A1,0,-1,41A-41,-40,0,1A-40,0,-1,39B-41,-40,0,1B-40,0,-1,39*B-1,0,-39,-40;B" -40,0,1,41MB,-1,0,-39,-40^B6 -40,0,1,41nB@-40,-1,0,1BJ40,0,-40,-1BT40,-1,0,1B^40,0,-40,1Bh1,0,40,41Br1,0,40,41B|1,0,40,41B1,0,40,41B-40,0,40,80B-1,0,1,2 C-40,0,40,80C-1,0,1,2FCSH(7,4,4),SC(24,10),HN$(11),HS(11):2150TC Q1 7bC R1 4pC S1 4C SH(Q,R,S)C::C1330:(147): T0 19:1154(T40),118:1165(T40),117:C T1954(LL40)1965(LL40):T,120:D T1 24: F0 9:SC(T,F)0: F,THD"TRY TO":"COMPLETE":"10 ROWS."tDOG1199:TT0:OKOG:QQ160:V3:H15:RO0D&"NEXT:"D0NE((1)7)1D: MAIN LOOPEDTT0TTNE:NE((1)7)1:PS1:1400:ZZ1:(1119)321270!EN ZZ17 Z5 Z0:1870AEX960:710:ROZZ1470:540YEbAAPS: JV4 840kEl JV8 900~Ev FR0 750EOG1024H(V40):OKSH(TT,AA,1),32EOKSH(TT,AA,2),32EOKSH(TT,AA,3),32EOKSH(TT,AA,4),32:OKOGE1010F 570 FFJV(56320)(FFRJV16:FJV15(JV15)@FeF FIRE BUTTON PRESSES:REM ROTATEFPPPS:PPPP1: PP5 PP1FP (1024H(V40)SH(TT,PP,1)): P32 P160 820F P (1024H(V40)SH(TT,PP,2)): P32 P160 8206GP (1024H(V40)SH(TT,PP,3)): P32 P160 820qG P (1024H(V40)SH(TT,PP,4)): P32 P160 820{G*PSPPG4G>GHP (1024H(V40)SH(TT,AA,1)1): P32 P160 890HRP (1024H(V40)SH(TT,AA,2)1): P32 P160 890>H\P (1024H(V40)SH(TT,AA,3)1): P32 P160 890{HfP (1024H(V40)SH(TT,AA,4)1): P32 P160 890HpHH1HzHP (1024H(V40)SH(TT,AA,1)1): P32 P160 950IP (1024H(V40)SH(TT,AA,2)1): P32 P160 950BIP (1024H(V40)SH(TT,AA,3)1): P32 P160 950IP (1024H(V40)SH(TT,AA,4)1): P32 P160 950IHH1II SCAN FOR OBJECTS BELOWI T1 4IP(1024H(V40)SH(TT,PS,T)40):P160 P32 1060J T:VV1 J&JAOGSH(TT,PS,1):A,QQAJAOGSH(TT,PS,2):A,QQ\JAOGSH(TT,PS,3):A,QQwJAOGSH(TT,PS,4):A,QQ}JJ$ CRUSHJ.QQ242:OG1024H(V40):1010:QQ160:SCSC((25V)):1400J8 TV2V2:W0JB F0 9:RR1024(T40)F11(KLP(RR):P242SC(T,F)1:P(54272RR)0KV F8K` TLKj TV2V2:W0ZKt F0 9}K~SC(T,F)1 WW1:W10 1200K FK TKOG1199:TT0:OKOG:QQ160:V3:H15:TT0KKSCSC(((25V)LL)10):1400:RORO1 L EET 01:W0: GG0 9#LSC(EE,GG)SC(EE1,GG)]LSC(EE,GG)1 1024(EE40)GG11,242:1450:SO4,128LSC(EE,GG)0 1024(EE40)GG11,32LSC(EE,GG)0WW1: W10 W0: 1130L GG,EE:1130M" GAME OVER ":17806M" ANOTHER GAME?(Y/N) "KM A$:A$"" 1290^M A$"Y" 500uM A$"N" "";:M( 1290M2 OPENING CREDITSM<" T E T R I S "MF" C128 VERSION ADAPTED BY"'NP" STEPHEN P. SMITH":SC0:ZZ9bNZ" HIT ANY KEY ":1930Nd T1 1000:A$:A$"" T: 1720NnLL1: Nx" SCORE:";SC;O" COMPLETED ROWS:";RO;4O W1 4:1214SH(TT,1,W),32:YO W1 4:1214SH(NE,1,W),160:_OOSO24,15:SO,100:SO1,25:SO5,9:SO6,129:SO4,129:SO4,128OO""(RO)"ROWS COMPLETED! P G3 23:W0RP""(G2)" X 50="((G2)50):F09gPSC(G,F)0WW1PW10 A(1035(G40))(1044(G40)):A,120:A:SCSC50:1400PSC(G,F)1 1550PFPG Q(147): T0 19:1154(T40),118:1165(T40),117::Q F(1954(LL40))(1965(LL40)):F,120: FeQ" T1 24: F0 9:SC(T,F)0: F: TQ,ZZ9ZZ14:" COMPLETE":" 15 ROWS ":Q6 ZZ14 ZZ15:1620Q@ ZZ15 ZZ16:1650QJ ZZ16 ZZ17:1700QT BARS&R^" MANEUVER":" AROUND":" THE BARS":" 16 ROWS."XRh T17151715(404)40:T,242:T9,242: T:lRr RANDOM BLOCKSR| T16:A((1)10):F((1)6)15R1035(F40)A,242:TR" MANEUVER":" AROUND":" BLOCKS":" 17 ROWS."R"S" TRY TO ":" KEEP THE":" BARS ":" LOW FOR"5S" 18 ROWS.":hS" TETRIS HALL OF FAME "S T1 10:" "(T)"."HN$(T)S"";HS(T):S T:1930S T1 1000:A$:A$"" T: 1330TLL1: TW11: T1 102T SCHS(T) WW1CT T: W0 rT T 10W1:HS(T1)HS(T):HN$(T1)HN$(T)T T:HS(W)SC:W11 T&:" ENTER YOUR INITIALS":2000T0HN$(W)(HN$(W),5): HN$(W)"" HN$(W)"?"T:2080TDUN ADD A ROW%UX EE521:W0: GG0 9?UbSC(EE,GG)SC(EE1,GG)yUlSC(EE,GG)1 1024(EE40)GG11,242:1450:SO4,128UvSC(EE,GG)0 1024(EE40)GG11,32U GG,EE:U RANDOM SHAPEUK((1)7)1: T1 4:1108SH(K,1,T),160: T+VK((1)7)1: T1 4:1340SH(K,1,T),160: T1VmV" LOADING PROGRAMABLE CHARACTERS... "sVV55296(EE40)GG11,CC(EE,GG):V T1 3:1521T,1:T:A$"": T1 3:A1V710V JV1 AA1:SO4,129: A27 A1$W JV2 AA1:SO4,129: A0 A26HW1521T,A:SO4,128:1561T,119lW FR0 A$A$(A64):A1:2070W  G1 100:G: 2010W G1 500: G: T: HN$(W)A$:W  FORMAT A REL FILEW* SCRATCH"TETSCORES"W4 #2,"TETSCORES",L10,D0,U8 X> I1 10GXH#2,(I):HN$(I)""HN$(I)"?":A$(HS(I)):A$""A$"?"dXR2,HN$(I);(13);(HS(I))pX\I:2:Xf READ A REL FILEXp #2,"TETSCORES",L10Xz I1 10X#2,3,1X2,HN$(I);(13);A$XHS(I)(A$)XI:2: