//INIDLALEVELLEVEOLDLEVETOTAL_BLOCKCOUNTBADOLDRESEDROPADDROPPEOXROTATP_COLORQPAUSE_GAMDOWDRAW_OBJECNUM_BLOCKBONUSUHORZLADDEL_BLOCKDROP_OBJECSCORDRAW_BORDEUPDATE_SCORFILNEW_OBJECGAME_OVEWORDCLEARKOLORYBOXADS_COLORBORDERDRAW_BACKGROUNBACKGAME_RESEGR_CLEASHOW_SCORHIGH_SCORSCORENAMEWRITE_DISDDSSEHOLEMDLI_ODLIDLI_INIBOARDLINESBOXDROPGET_SCORECHANCCOPIY@ @XEHMPH ^D!"fG#L$%@&'(@)*+H,-H._/S0L@123a456789:;0X<=X>?@AB_CDT&&********************************&&* ULTRA TETRIS *&&*  *&&* Copyright C 1991 by *&&* *&&* Tim Truesdale *&&* *&&* I.P.C. Software * &&********************************  rrPlease do not modify this code, but send all suggestions or bugs that you find to the address $$in the documentation. Thanks.P-P2E4 6-8,66-86-96-@6-@:<<<='B7`@'B7aA8>A@?'B7`'B7a@<BF:Ad,"@3C 6-D 6-?:,E6-?:<<<,H6-@IAdAUJAKF:Ad,"@LM6-@6-&@N-@O(F:%%++%,$@ ,,(6-P QR 6-S6-A%+$@,TB2HUB2IVB2PWAXAYAdAU[A\F:Ad,"@]@^6-@6-%@_-@`(F:%%++%,$@ ,,(6-a bc 6-d6-A%+$@,eB2HfB2IgB2PhAiAjAdAUlAm99F:Ad,"@c)+(F:AD,*F:@ ,!@,n 6-?:,o6-8@,p6-8@,q68@,-8,r68@,-s68,-tAdAUu@ vAwF:Ad,"@(P=(F:A@,)&&(F:%%++%@,$@ ,,*( 6-?:,6-%@6-@A88=+"@,)+F:%%++%@,$@ ,,,N8+F:%%++%@,$@ ,,,*+"@,D6-N @`'B7`A'B7a@P'B7`'B7a 6-?:,6-6-<6-?:C:,<<,AUP6-%@A="AU6-%+6+&@,,6-%+@$+,,$ 6-%!B 6-6-P:'A, !6-%@$+ @ ,6-%@ 6-8,@@@YA=:,@@PAPA 6-?:,P**=F:%%++%@,$@ ,,P 6-?:,PFTO!B 6-6.00000%%67@&B:=:,,<@,.=:,@@  @Y@V6.00000%%67@&B:=:,,<@,.=:,YA@@QTOAdAUM+@,A@A@A@6- 6.<55F:Ad,AU* @*F:Ad,@(6-%@67<,.>:F:Ad,,AdAUA++=F:Ad,"@()F:A2,"@4 *?(6-?:C:,<<Ay, -@A,@&/@R 6-AAdAU-@A%88,, QT O%-@*68,-d:@,/A%88,,4 66-96-@:6-<AdAU>QTO6-@&%+$@,6-@%+$@,-@6-?:<<<88,,,&&%%++%,$@ ,8,%@6-%@ QTO6-?:C:,,GQKTLOQ6-?:C:,,QTOP'BB@d'@@<<P$$Y@(A9 SELECT LEVELd:@,%@ ""Y@@AQ 0: EASIEST"d:@,%@$Y@@AY1: EASY&d:@,%@(!!Y@@Ag 2: MEDIUM*d:@,%@,!!Y@@Au 3: HARDER.d:@,%@0""Y@@A 4: HARDEST1dd=F:Ad,AU*F:Ad,@9*F:Ad,@`*F:Ad,AT*F:Ad,AR2hdF:Ad,A$*F:Ad,A*F:Ad,A*F:Ad,Ag*F:Ad,A1h)3=!@G* @S46-A:>:,,66-$AP @U@@Z116.'SCORE: 00000 BLOCKS: 00000 LEVEL: 0[%%67@&B:=:,,<@,.=:,]67@9<@9,.=:,^P_Y`'BBA'@@b6-?:C:,<<Ay,dPiPjQkTlOm 6-?:,nPpPr6-@6-sQwTxOz6-@{6-6@|<~6-&@ 8, 6-="6@*@@d:@,%@,@@/@@/@Y@/@Y@/@@Y@@ 6-@ 6.<)##AU*A&*@67<,.>:,6-%@A"A&*!@6-&@67<,. AY@@ 66Y@@7@<&@%+"@,,=+"@,)+"AU,""-@ %@6@gg67$@%@<$@%@,.7+&@,$@%@<+&@,$@%@,68,-8&@, 4467$@%@<$@%@,. ..67$@%@<$@%@,. 68,-PAQTO-6-$@'B7`A'B7aAu 6-N:F:%%@,&F:%,,((6-N:F:%%@,&F:%%@,,6-F:%,6-F:%%@,'B7`'B7a<%%+$@ ,6-%@<<6-?:<@&%+@$,<@%+@$,<, 6-% 6-%//=+"F:%%@,%,*+"F:%%@,%,  3T9-@;<>6-?:C:,<<,C6-F: A,H6-F: A,v*~-6@6-%+&,<<6-?:<@&%+$@,<@%+$@,<,((%%+$@ ,F:%%+$@ ,,%%+$@ ,RR6-?:<@&%+$@,<@%+$@,<8F:%%+$@ ,,&@,, A=" QTOd:@,%@$$Y@2 ULTRA TETRIS d:@,%@ ##Y@6@  HIGH SCORES -@  6.00000 ++67@&B:=:8,,,<@,.=:8,, d:@,%@ HHY@2@8%+$@,7$@%@<$@%@,$ ##Y@@8%+$@,)  . Q T O F:Ad,AU) + /AR@/0@ &&( ULTRA TETRIS v 1.0 (  ''( CopyrightC 1991 by (  ##( Tim Truesdale ( $$( I.P.C. Software ( ( ( ))(!NOTE: Ultra Tetris is Shareware! SS(K Please pay the Shareware fee and become a registered user, or your MM(E conscience will bother you forever. In return, you will receive XX(P instructions for activating the hidden features that are built into the game. VV(N ݠӠ堠 à ZW(O 塡 Z( ((( Press any key to continue ) Q'T'O'6-U:A`,$'$$%@F:%@,%A()'$$%@F:%@,%A(.'8AC:,8''BBA'AV='Q*O*;@F,+226.(H Щh@Щ+67@A,.Ѝ h@W+Q\+ 2,2,12NT NO*N'AY'A)@4N36-A3-A6'6-A36-AS>N #B HN-A6ARN"\N fN pNGG;A,9@,9@,9@ ,9@,;@@,zNss;@@,;@U,;A,;@,;@@,;A,;A G,9@ ,;A,;A1,N68,-@p-68@,-AB68@,-A4W68@,-Al68@,-A68@,-AFN68,-@@-68@,-@0B68@,-@%W68@,-@ l68@,-@68@,-@68@,-@68@,-@68@,-@N68@ ,-N68,-@-68@,-@B68@,-@W68@,-@l68@,-@68@,-@NPNPN@N##@@@S:N@@NAN'AdAU'B2VO9@9@@ D:ULTRAML.DATOC@C:,A GBOC@C:,@@OC@C:,@OC@C:,AOC@C:,A1OC@C:,AOC@C:,AO@OPOS6-U:A`,36-P:'A H&@,$A H?8@SBBy'AVO)6-%Ac8A)8AOA @O!!6-?:C:,<%A$<Ag,O 6-C:,O 6-C:,O 6-C:,P 6-C:, P'AY@b'B2w@PPP 6-?:,(PP2P6-@6-7P'@@d'B7t@d:AV%+&,,P Pd@Pd@P68,-&P Q@QQQAF:A,Ap"+>(ERROR #l AT LINE mA"Q<<6.2 IPC IPC IPC IPC IPC IPC IPC IPC IPC IPC ,Q-@ 6Q68,-A@Q JQPTQ B0^QThQOrQ@|Q..@@ D:ULTRASC.DATQ-@ Q6-d:AU,Qc@Q 6.Q-@@Q..c@@:7$@%<$@%,,%Q Q6-d:BP,&d:BP,Qc@Qc@8,%Q Q@RQRTRll104,165,203,133,210,165,204,133,211,32,31,6,165,211,133,204,165,210,133,203,230,211,32,31,6,230,211,32&RZZ31,6,96,166,209,202,164,209,177,210,200,145,210,136,136,16,247,230,210,202,16,240,960Rnn216,104,165,203,133,210,165,204,133,211,32,87,6,162,1,165,211,24,105,1,133,211,165,210,24,105,10,133,210:R??32,87,6,202,16,236,96,164,209,169,0,145,210,136,16,251,96DRHH104,173,192,2,174,193,2,172,194,2,140,192,2,141,193,2,142,194,2,96NRdd216,104,166,205,134,203,232,134,210,165,206,133,204,133,211,32,171,6,230,211,24,165,210,105,10XRjj133,210,32,171,6,230,211,165,210,24,105,10,133,210,32,171,6,169,124,141,0,208,141,1,208,141,2,208,96bR//164,209,136,169,252,145,210,136,16,251,96lR))100,106,112,118,124,130,136,140,146vR24,56,72,88,120,200R1,3,4,5,7,12G3F:A8,%AV$F:A9,%@GD:ULTRA.BAS:NEW D:ULTRA.BAS