8L xC)pJJJJ IH(ȱH:=IH[H`@H^H 2 9 @   I/H`JLNGȄBȄF aK ' faaFF  RJm# KKJ qJ )J ۈJJm  JFȱJGJKaȄM ' 5aaNNJFLGJ  !"#$%&*TETRIS.IIC b SOURCE 4 )TETRIS.SC*ۓ A'!&TETRISV z& K -TETRIS.IIPLUS` ' *TETRIS.BINjsz& `z& ,TETRIS.APRILn G+ + )TETRIS.GSx 1 K*TETRIS.ALTB z& a'TETRIS  ' &PRODOS }< ! D-TETRIS.SYSTEM'(Ҩ! Ҩ+TETRIS.ENGL< , ZIPCFGFz& z& -TETRIS.BINARYGkz& `z& *TETRIS.ENGK`a  XL LG &PRODOS`DaElH$?EGvѶK+`L XX LU ŠϠĠӥS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RL !Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 ~&i"0 %r"s" (,) &Սt"u" ( %L'")0I0hx H( +آ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp0`ŠӠֱ ­ԠŠҬî̠ӠĮsL ʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^& S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8. ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F >l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"hh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlB O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllIL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH ۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jzܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )O 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`ʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0N뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JHhh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`,FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحq) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$%hꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @  K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`Hх 밽܅F݅G ` c* Z% L`L뮴HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 c9X(N    ܮ `J HH hh` 0 @ L/L Z`̸Yܝ ݝ0̸ȩFG   0` ܅F݅G ` c Zͬ LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L ؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } `؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzHNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@O LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8N !"#$Ԡ͠ˠĠԠҠLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LN()*+,-./0123456789:;0h)ύh0HHHH " ׍hI-hhhhhhh .hh8`  /LX  n# $ B :  eұ)ȱi)0в@8 L| ` νý½   бE)Ү𝽀/$L/ 8m/蝀ȱ$Li #  n  L  < L &婙  ) 8 $`F2ȱ ʆ2` `  ` ؍  í ɇ X :8)8Ȋ))i)iڍ0 L|0 8 p390j⹡0  $  ,ɍXɉ4ɛ:ɕIЪeE0  8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV @8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXX\\[HEVhEhH)IWHPHHHAHHHLaVEWLӿLG A TETRIS.ENGL$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<j>>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H EH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬJJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLh,PIN'ҍIxy /L6Ix y JpnoF /= plm /w)!,ZJYH)h****)  md8幙`\H[< h  /( 载쳼󩭙L/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VWS`޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` PLI" k:EN$"":PLľA$:2030` n1:S$"TETRIS - The 20 highest Matches":(80(S$))2:S$ x:I110:(SC$(I))0200:27:I;:30:SC$(I);:43:LE(I);:47:SC(I):: I1115:(SC$(I))0200:5:I;:8:SC$(I);:21:LE;:24:SC(I)F :14:I10)* IQW0(QW10)(LE)LE(QW10)Y J:2:11:LE:10(LI10):LI::10:SC:46 P:10:15::"":15:"GAME OVER":15:""::16368,0 d(49152)128100 i:(18):(49152)155ľA$: jPL0:I2011:SCSC(I)3:60 AMS25580Y D:ST(A)ST(A)1:ST(7)ST(7)1:A25:37:ST(A):22:37:ST(7) FSCSC((7682)32)9((7683)128)7((7686).75) G(7684)0SCSC8 HSCSC(LE1.5)21:LILI(254):QW(((LI),2)):QW0LINR(LE)NRLE:LE(QW˺:I07:ST(I)0:W .768,255:769,SP(LE)::19:I14:" "::32,15:33,10 2255,(7685):A(255):7685,(1)7:250,255:24576 <MS(255):MS155ĉ::(18): >MS254LELE(LE9):768,255:769,SP(LE)::2:11:LE:32,15:33,10:2479"SC$(20),LE(20),SC(20),ST(7)-3000U(4)"PREFIX":PR$:(4)"PREFIX"PR$p ::(4)"PR#3":(17)z10001:I121:15:(27)(15)"Z";:26:"_":(22:16:"LLLLLLLLLL":SC0:LI0:7683,160*15:(24)(14)"Play Tetris!"; -1:=>?@ABCDELLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s1620:(SC$(I))0200:50:I;:53:SC$(I);:66:LE(I);:70:SC(I): (EN$)ĢPL2(PL10)(PL15)5:3(PL11)22(PL15)45:"*" (EN$)ĺ(4)"STORETETRIS.SC" 16368,0:I1100: 23:"Again? Just press a key. (Esc = Quit) :";:A$:A$(27)ĺ::::1120:30#/ INTROTEP1:(4)"BLOADTETRIS.BIN":EP0r(18):6:32,10:33,69:"******** ******** ******** ******* ** *******"" ** ** ** ** ** ** **"#" ** ** HIJZZZZZ[\I\\`I\\,[ @ _@^[) ]^ N\ZZ`ZZ  @ "nel"H5:"to NORMAL. The speed will then be like an Apple IIe and"5:"it's better to play. But don't forget to reset the speed"5:"to the old setting."::5:"Press any key to continue, esc quits :";:A$:A$(27)ı:: file." 16368,0a :15:"Press any key to continue, esc quits :";:A$:A$(27)ĺ::i :(64435)6(64448)2244010:::8:A$5:"Special note for GS-Owners:":5:"Please set the Option SYSTEM SPEED in the Control Pae ER9ER17ĺ"No space on disk to save Hi-Score-List":15:"Please insert another ProDOS-Disk." ER4ĺ"Please remove write-protection on Tetris-Disk."  ER10ĺ"The File TETRIS.SC is write protected. Please":15:"remove write protection of the040 ::(18):ER(222)> (222)6EP2Č3288:1119\ 10:20:"WARNING!"::15k ER7ER6 (ER6EP)ER8ĺ"Please insert the Tetris-Disk." ER6EPĺ"The File TETRIS.BIN is not on this Disk. Please":15:"insert the Tetris-Disk."LE(I1)LE(I):SC(I1)SC(I)::::SC$(PL)EN$:LE(PL)LE:SC(PL)SC:aA$(127)A$(8)2070uA$(27)ĉ::A$(32)(EN$)112040 A$;:EN$EN$A$:2040(EN$)2040 (8)" "(8);:(EN$)1EN$"":2040*EN$(EN$,(EN$)1):24832,("7")128:24836,("8")128:24828,("9")128F12:7:8:9Ly 238,208,178,168,118,88,68,38,22,1024:"Hi-Score! Please enter your name:";:EN$"":16368,0A$:A$(13)EN$""ė::EA$(13)āI19PL1:SC$(I1)SC$(I):$::27:A$A$A$:28:A$:31:A$A$:30:A$A$m27:A$A$:28:A$A$:31:A$A$:31:A$A$:27:A$A$A$:29:A$:27:"--------------":27:"All : 0":I5172:I:35:"- 0":7685,(1)7:I09:SP(I)::(64435)6(64448)224ı52" Lines : 0"!:" SCORE "5::" H E L P"X:"1 Draw next":"6 Speed up""0 Left":"- Rotate":"= Right":"Space: Drop":"Esc: Quit":" Next:"3:30:"STATISTICS"A$(15)" "(14)::27:A$A$A$:27:A$-29:A$A$A$A(49152)155ľA$:::@\EP2:(4)"RESTORETETRIS.SC":EP0J]4000\_216,0:3000`16368,0::12:20:"Please enter your level (0-9) <5> :";jA$:LE(A$):LEA$"0"LE5oA$(27)ĉ::tLE::(17):2~" Level : "LE* ** ** ** *******"L:18:25:"By Alexander Siegfried Feb. 90":27:"English Version in Apr. 90"::25:"The esc key quits at any time."M24:12:"This Programm is free. Please give copys to everybody.";:1:V(49152)1281110[ ** ** ** ** **"b$" ** ***** ** ******* ** *******"." ** ** ** ** ** ** **"8" ** ** ** ** ** ** **"!B" ** ******** *L3`((((PPPP0 ` a ;b` /brn ;bL\`0B `Lm`ץ  a ;b  a` `Lm``Lm`L`,ɱɶɠɛɽL$:A$(27)ĺ:4090'::1120:30-9 INTRO^EP1:(4)"BLOADTETRIS.BIN":EP0|(18):6:32,10:33,69::" ";:11:" ";:21:" ";:31:" ";:42:" ";:48:" "*4:" ";:11:" ";:24:" ";:3:14:I1620:(SC$(I))0200:50:I;:53:SC$(I);:66:LE(I);:70:SC(I): (EN$)ĢPL2(PL10)(PL15)5:3(PL11)22(PL15)45:"*" (EN$)ĺ(4)"STOREDETRIS.SC" 16368,0:I1100:23:"Again? Just press a key. (Esc = Quit) :";:ASCSC(I)PLI* k:EN$"":PLľA$:2030h n1:S$"TETRIS - The 20 highest Matches":(80(S$))2:S$ x:I110:(SC$(I))0200:27:I;:30:SC$(I);:43:LE(I);:47:SC(I):: I1115:(SC$(I))0200:5:I;:8:SC$(I);:21:LE;:24:SC(I)N (QW10). IQW0(QW10)(LE)LE(QW10)] J:2:11:LE:10(LI10):LI::10:SC:46 P:10:15::"":15:"GAME OVER":15:""::16368,0 d(49152)128100 i:(18):(49152)155ľA$:4090 jPL0:I2011:24793:60 AMS25580] D:ST(A)ST(A)1:ST(7)ST(7)1:A25:37:ST(A):22:37:ST(7) FSCSC((7682)32)9((7683)128)7((7686).75) G(7684)0SCSC8 HSCSC(LE1.5)21:LILI(254):QW(((LI),2)):QW0LINR(LE)NRLE:LEӺ:I07:ST(I)0:W .768,255:769,SP(LE)::19:I14:" "::32,15:33,10 2255,(7685):A(255):7685,(1)7:250,255:24576 <MS(255):MS155ĉ::(18):4090 >MS254LELE(LE9):768,255:769,SP(LE)::2:11:LE:32,15:33,10:"SC$(20),LE(20),SC(20),ST(7)-3000U(4)"PREFIX":PR$:(4)"PREFIX"PR$p ::(4)"PR#3":(17)z10001:I121:15:(27)(15)"Z";:26:"_":(22:16:"LLLLLLLLLL":SC0:LI0:7683,160*15:(24)(14)"Play Tetris!"; -1:LMNOPQRSTU #dLc #dLm`5d6d5d`5d>d5d` PAUSE 0፛b"8`0b d>d0 d)ee aɠ8`` aLwbȄ,ee aנLCb`hh ;bLc`La   6ɭVLm`Lc` {a a  a80Lc` {a a aLm` {a a aLm` {a㹜b a a aLm`L;b L;b aɠȄ# #La` `y``b 쩯eȄ1:" ";:37:" ";:42:" ";:47:" "y4:" ";:11:" ";:24:" ";:31:" ";:37:" ";:42:" ";:47:" "$4:" ";:11:" ";:24:" ";:31:" ";:42:" ";:48:" ".4:" ";:11:" ";:24:" ";:31:" ";:35:" ";:42:" ";:54:" "h84:" ";:11:" ";:24:" ";:31:" ";:36:" ";:42:" ";:54:" "B4:" ";:11:" ";:24:" ";:31:" ";:37:" ";:42:" ";:48:" "GUL:18:S$"By Alexander Siegfried Feb.90":4000:S$"En"SC$(20),LE(20),SC(20),ST(7)-3000U(4)"PREFIX":PR$:(4)"PREFIX"PR$i ::(4)"PR#3"s10001:I121:15:(15)"<";:26:">":(22:16:"^^^^^^^^^^":SC0:LI0:7683,160*15:(14)"Spiel Tetris"; -1::I07:ST(I)0:WXYZ[\]^_::(64435)6(64448)2244110025588?(4)"BYE" protection on Detris-Disk." ER10ĺ"The File DETRIS.SC is write protected. Please":15:"remove write protection of the file." 16368,0 :15:"Press any key to continue, esc quits :";:A$:A$(27)ĺ:: :(80(S$))2:S$:%ase insert the Detris-Disk."} ER6EPĺ"The File DETRIS.BIN is not on this Disk. Please":15:"insert the Detris-Disk." ER9ER17ĺ"No space on disk to save Hi-Score-List":15:"Please insert another ProDOS-Disk." ER4ĺ"Please remove write-EN$)112040( A$;:EN$EN$A$:2040:(EN$)2040c (8)" "(8);:(EN$)1EN$"":2040*EN$(EN$,(EN$)1):2040 ::(18):ER(222) (222)6EP2Č3288:1119 10:20:"WARNING!"::15 ER7ER6 (ER6EP)ER8ĺ"Ple-Score! Please enter your name:";:EN$"":16368,0SA$:A$(13)EN$""ė::A$(13)āI19PL1:SC$(I1)SC$(I):LE(I1)LE(I):SC(I1)SC(I)::::SC$(PL)EN$:LE(PL)LE:SC(PL)SC:A$(127)A$(8)2070A$(27)ĉ::A$(32)(--":27:"All : 0":I5172:I:35:"- 0":D7685,(1)7w:I09:SP(I)::(64435)6(64448)224ı24832,("7")128:24836,("8")128:24828,("9")12812:7:8:9 238,208,178,168,118,88,68,38,22,10424:"Hi Drop":"Esc: Quit"':" Next:"@3:30:"STATISTICS"mA$(15)" "(14)::27:A$A$A$:27:A$29:A$A$A$A$::27:A$A$A$:28:A$:31:A$A$:30:A$A$27:A$A$:28:A$A$:31:A$A$:31:A$A$:27:A$A$A$:29:A$2:27:"------------our level (0-9) <5> :";=jA$:LE(A$):LEA$"0"LE5PoA$(27)4090dtLE::(17):2x~" Level : "LE" Lines : 0":" SCORE "::" H E L P":"1 Draw next":"6 Speed up""0 Left":"- Rotate":"= Right":"Space:":4000:S$"System Speed is changed to normal.":4000:S$"Leave via esc to restore old speed setting.":4000V(49152)1281110[(49152)155ľA$:4090\EP2:(4)"RESTORETETRIS.SC":EP0_216,0:3000`16368,0::12:20:"Please enter yglish Version in Apr. 90":4000:S$"Special IIGS speed set update in Jan. 91":4000M24:"This program is freeware. Please copy to everyone you know. (Press a key.)";:1:N(64435)6(64448)2241110O25560:1nPS$"Special note for IIGS:F .768,255:769,SP(LE)::20:I13:" "::32,15:33,10 2255,(7685):A(255):7685,(1)7:250,255:24576 <MS(255):MS155ĉ::(18): >MS254LELE(LE9):768,255:769,SP(LE)::2:11:LE:32,15:33,10:24793:60 AMS25580H D:ST(A)ST(A)1:ST(7)ST(7)1:A25:37:ST(A):22:37:ST(7) FSCSC((7682)32)9((7683)128)7((7686).75) G(7684)0SCSC8 HSCSC(LE1.5)21:LILI(254):QW(((LI),2)):IF QW = 0 AND LI AND NR < > (LE) THEN NR = LE:Lbf{hig machen." 16368,0j :15:"Weiter mit Tastendruck, esc beendet :";:5000:A$(27)ĺ::r ::" ";(8);:16368,0:(49152)1285010A$((49152)128):16368,0:" ";(8);: ein Platz um die Hi-Scoreliste":15:"abzuspeichern. Bitte eine andere ProDOS-Diskette einlegen." ER4ĺ"Bitte den Schreibschutz der Tetris-Diskette entfernen." ER10ĺ"Die Datei TETRIS.SC ist mit einem Schreibschutz":15:"versehen. Bitte schrei88:1119( 10:20:"Achtung!"::157 ER7ER6s (ER6EP)ER8ĺ"Bitte die Tetris-Diskette einlegen." ER6EPĺ"Die Datei TETRIS.BIN wurde nicht gefunden. Bitte die":15:"Tetris-Diskette einlegen."c ER9ER17ĺ"Auf der Diskette ist kLE:SC(PL)SC:-A$(127)A$(8)2070AA$(27)ĉ::^A$(32)(EN$)112040x A$;:EN$EN$A$:2040(EN$)2040 (8)" "(8);:(EN$)1EN$"":2040*EN$(EN$,(EN$)1):2040 ::(18):ER(222)  (222)6EP2Č324828,("+")128D 238,208,178,168,118,88,68,38,22,10 24:"Hi-Score! Bitte Namen eingeben :";:EN$"":16368,05000:A$(13)EN$""ė::A$(13)āI19PL1:SC$(I1)SC$(I):LE(I1)LE(I):SC(I1)SC(I)::::SC$(PL)EN$:LE(PL):A$A$A$:28:A$:31:A$A$:30:A$A$f27:A$A$:28:A$A$:31:A$A$:31:A$A$:27:A$A$A$:29:A$:27:"--------------":27:"Gesamt : 0":I5172:I:35:"- 0":7685,(1)7:I09:SP(I):24832,("P")128:24836,("]")128:2::" T A S T E N"::"1 N{chstes":"6 Schneller""0 Links":"~ Drehen":"' Rechts":"Leert.: Fallen":"Esc: Beenden""Del: Pause"::" N{chstes:"3:30:"STATISTIK"A$(15)" "(14)::27:A$A$A$:27:A$&29:A$A$A$A$::272:(4)"RESTORETETRIS.SC":EP03_216,0:3000u`16368,0::12:20:"Bitte Spielstufe eingeben (0-9) <8> :";b5000jLE(A$):LEA$"0"LE8oA$(27)ĉ::tLE::(17):2~" Stufe : "LE" Reihen : 0":" PUNKTE" ** ** ** ** **"cB" ** ******** ** ** ** ** *******"L:18:15:"Von Alexander Siegfried Feb. 90"::15:"Die esc Taste beendet zu jeder Zeit."V(49152)1281110[(49152)155Ĺ16368,0:::!\EP ** ** ** ** ** **"e" ** ** ** ** ** ** **"$" ** ***** ** ******* ** *******"." ** ** ** ** ** ** **"$8" ** ** 23:"Nochmal ? Dann Taste dr}cken. (Esc = Ende) :";:5000:A$(27)ĺ::_::1120:30eq INTROEP1:(4)"BLOADTETRIS.BIN":EP0(18):6:32,10:33,69:"******** ******** ******** ******* ** *******"," ** SC$(I);:21:LE(I);:24:SC(I)~ :14:I1620:(SC$(I))0200:36,50:I;:36,53:SC$(I);:36,66:LE(I);:36,70:SC(I): (EN$)ĢPL2(PL10)(PL15)5:36,3(PL11)22(PL15)45:"*" (EN$)ĺ(4)"STORETETRIS.SC" 16368,0:I1100:M:' jPL0:I2011:SCSC(I)PLIB k:EN$"":PLľA$:2030 n1:S$"TETRIS - Die 20 h|chsten Spiele":((80(S$))2):S$ x:I110:(SC$(I))0200:27:I;:30:SC$(I);:36,43:LE(I);:36,47:SC(I):: I1115:(SC$(I))0200:5:I;:8:E = INT (QW / 10)D IQW0(QW10)(LE)LE(QW10)s J:2:11:LE:10(LI10):LI::10:SC:46 P:10:15::"":15:"SPIEL ENDE":15:""::16368,0 d(49152)128100 i:(18):(49152)155Ĺ16368,0abcdefghi38,208,178,168,118,88,68,38,22,10t(4)"PR#3":(12):24:"HI-SCORE! BITTE NAMEN EINGEBEN :";:EN$"":16368,05000:A$(13)EN$""ė::A$(13)āI19PL1:SC$(I1)SC$(I):LE(I1)LE(I):SC(I1)SC(I)::::SC$(PL)EN$:LE(PL)LE:SC(PL)SC:27:A$A$:28:A$A$:31:A$A$:31:A$A$:27:A$A$A$:29:A$::27:"--------------":27:"GESAMT : 0":I5172:I:35:"- 0":7685,(1)7:I09:SP(I):24832,((8))128:24836,(";")128:24828,((21))128# 2N"(:"1 NAECHSTES":"6 SCHNELLER"s"<- LINKS":"; DREHEN":"-> RECHTS":"LEERT.: FALLEN":"ESC: BEENDEN":" NAECHSTES:"3:30:"STATISTIK":A$" "::27:A$A$A$:27:A$29:A$A$A$A$::27:A$A$A$:28:A$:31:A$A$:30:A$A$?P0_216,0:3000``16368,0::(12):12:20:"BITTE SPIELSTUFE EINGEBEN (0-9) <5> :";jb5000jLE(A$):LEA$"0"LE5oA$(27)ĉ::tLE::(21)::2~" STUFE : "LE" REICHEN: 0":" PUNKTE"::" T A S T E **"GB" ** ******** ** ** ** ** *******"L:18:15:"VON ALEXANDER SIEGFRIED FEB. 90"::15:"DIE ESC TASTE BEENDET ZU JEDER ZEIT."V(49152)1281110[(49152)155Ĺ16368,0:::\EP2:(4)"RESTORETETRIS.SC":E ** ** **"I" ** ** ** ** ** ** **"$" ** ***** ** ******* ** *******"." ** ** ** ** ** ** **"8" ** ** ** ** ** ** . (ESC = ENDE) :";:5000:A$(27)ĺ::<::1120:30BN INTROsEP1:(4)"BLOADTETRIS.BIN":EP0(18):(12):6:32,10:33,69:"******** ******** ******** ******* ** *******"" ** ** ** ** :14:I1620:(SC$(I))0200:36,50:I;:36,53:SC$(I);:36,66:LE(I);:36,70:SC(I): (EN$)ĢPL2(PL10)(PL15)5:36,3(PL11)22(PL15)45:"*" (EN$)ĺ(4)"STORETETRIS.SC" 16368,0:I1100:*23:"NOCHMAL ? DANN TASTE DRUECKEN k:EN$"":PLľA$:2030_ n1:S$"TETRIS - DIE 20 HOECHSTEN SPIELE":((80(S$))2):S$ x:I110:(SC$(I))0200:27:I;:30:SC$(I);:36,43:LE(I);:36,47:SC(I):: I1115:(SC$(I))0200:5:I;:8:SC$(I);:21:LE(I);:24:SC(I)Z (LE)LE(QW10)B J:2:11:LE:10(LI10):LI::10:SC:46 P:10:15::"":15:"SPIEL ENDE":15:""::16368,0 d(49152)128100 i:(4)"PR#3":(12):(49152)155Ĺ16368,0: jPL0:I2011:SCSC(I)PLID:ST(A)ST(A)1:ST(7)ST(7)1:A25:37:ST(A):22:37:ST(7)} FSCSC((7682)32)9((7683)128)7((7686).75) G(7684)0SCSC8 HSCSC(LE1.5)21:LILI(254):QW(((LI),2)):QW0LINR(LE)NRLE:LE(QW10) IQW0(QW10)768,255:769,SP(LE)::19:I14:" "::32,15:33,10y 2255,(7685):A(255):7685,(1)7:250,255:24576 <MS(255):MS155ĉ::(18): >MS254LELE(LE9):768,255:769,SP(LE)::2:11:LE:32,15:33,10:24793:60 AMS25580B "SC$(20),LE(20),SC(20),ST(7)-3000U(4)"PREFIX":PR$:(4)"PREFIX"PR$i ::(4)"PR#3"s10001:I121:15::"<";:26:">":(22:16:"^^^^^^^^^^":SC0:LI0:7683,160*15::"SPIEL TETRIS";-1::I07:ST(I)0:@ .A$(127)A$(8)20703A$(27)ĉ::PA$(32)(EN$)112040j A$;:EN$EN$A$:2040|(EN$)2040 (8)" "(8);:(EN$)1EN$"":2040*EN$(EN$,(EN$)1):2040 ::(4)"PR#3":ER(222):(12) (222)6EP2Č3288:1119& 10:20:"ACHTUNG!"::155 ER7ER6q (ER6EP)ER8ĺ"BITTE DIE TETRIS-DISKETTE EINLEGEN." ER6EPĺ"DIE DATEI TETRIS.BIN WURDE NICHT GEFUNDEN. BITTE DIE":15:"TETRIS-DISKETTE EINLEGEN."` ER9ER17ĺ"AUF DER DISKETTE IST KEI"SC$(20),LE(20),SC(20),ST(7)-3000U(4)"PREFIX":PR$:(4)"PREFIX"PR$p ::(4)"PR#3":(17)z10001:I121:15:(27)(15)"Z";:26:"_":(22:16:"LLLLLLLLLL":SC0:LI0:7683,160*15:(24)(14)"Spiel Tetris"; -1:opqrstuvwd 'dLc 'dLm`9d:d9d`9dBd9d`Š0፟b""8`0bBd0 Ȅ)ee aɠ8`` aL{bȄ,ee aנLGb`hh ?bLc`La   :ɭZɉ Lm`Lc` a a  a80Lc` a a aLm` a a aLm` a㹠b a a aLm`L?b L?b aɠȄ# #La` `y``b 쩳eL3`((((PPPP0 ` a ?b` 3brn ?bL\`0B `Lm`ץ  a ?b  a` `Lm``Lm`L`,ɱɶɠ!ɛɽPklmEHIG MACHEN." 16368,0h :15:"WEITER MIT TASTENDRUCK, ESC BEENDET :";:5000:A$(27)ĺ::p ::" ";(8);:16368,0:(49152)1285010A$((49152)128):16368,0:" ";(8);: N PLATZUM DIE HI-SCORELISTE":15:"ABZUSPEICHERN. BITTE EINE ANDERE PRODOS-DISKETTE EINLEGEN." ER4ĺ"BITTE DEN SCHREIBSCHUTZ DER TETRIS-DISKETTE ENTFERNEN." ER10ĺ"DIE DATEI TETRIS.SC IST MIT EINEM SCHREIBSCHUTZ":15:"VERSEHEN. BITTE SCHREIBFA:I07:ST(I)0:W .768,255:769,SP(LE)::19:I14:" "::32,15:33,10 2255,(7685):A(255):7685,(1)7:250,255:24576 <MS(255):MS155ĉ::(18): >MS254LELE(LE9):768,255:769,SP(LE)::2:11:LE:32,15:33,10:24793:60 AMS25580Y D:ST(A)ST(A)1:ST(7)ST(7)1:A25:37:ST(A):22:37:ST(7) FSCSC((7682)32)9((7683)128)7((7686).75) G(7684)0SCSC8 HSCSC(LE1.5)21:LILI(254):(LI10)(LE)LE(LI10) I:2:11:LE:10(eiter mit Tastendruck, esc beendet :";:A$:A$(27)ĺ::E : speichern. Bitte eine andere ProDOS-Diskette einlegen."} ER4ĺ"Bitte den Schreibschutz der Tetris-Diskette entfernen." ER10ĺ"Die Datei TETRIS.SC ist mit einem Schreibschutz":15:"vershen. Bitte schreibf{hig machen." 16368,0= :15:"W ER7ER6I (ER6EP)ER8ĺ"Bitte die Tetris-Diskette einlegen." ER6EPĺ"Die Datei TETRIS.BIN wurde nicht gefunden. Bitte die":15:"Tetris-Diskette einlegen."9 ER9ER17ĺ"Auf der Diskette ist kein Platz um die Hi-Scoreliste":15:"abzu0A$(27)ĉ::4A$(32)(EN$)112040N A$;:EN$EN$A$:2040`(EN$)2040 (8)" "(8);:(EN$)1EN$"":2040*EN$(EN$,(EN$)1):2040 ::(18):ER(222) (222)6EP2Č3288:1119 10:20:"Achtung!"::15 ,150,120,100,70,48,28:GS!Z24:"Hi-Score! Bitte Namen eingeben :";:EN$"":16368,0yA$:A$(13)EN$""ė::A$(13)āI19PL1:SC$(I1)SC$(I):LE(I1)LE(I):SC(I1)SC(I)::::SC$(PL)EN$:LE(PL)LE:SC(PL)SC:A$(127)A$(8)207":I5172:I:35:"- 0":/7685,(1)7^:I09:SP(I)::(64435)6(64448)0ırI09:SP(I):24832,("7")128:24836,("8")128:24828,("9")12812:7:8:9 238,208,178,168,118,88,68,38,22,10 0,240,210,200:" N{chstes:"+3:30:"STATISTIK"XA$(15)" "(14)::27:A$A$A$:27:A$29:A$A$A$A$::27:A$A$A$:28:A$:31:A$A$:30:A$A$27:A$A$:28:A$A$:31:A$A$:31:A$A$:27:A$A$A$:29:A$:27:"--------------":27:"Gesamt : 0(A$):LEA$"0"LE5.oA$(27)ĉ::BtLE::(17):2V~" Stufe : "LEi" Reihen : 0"{:" PUNKTE"::" T A S T E N":"1 N{chstes":"6 Schneller""0 Links":"- Drehen":"= Rechts":"Leert.: Fallen":"Esc: Beenden"exander Siegfried Feb. 90"::15:"Die esc Taste beendet zu jeder Zeit."aV(49152)1281110}[(49152)155ľA$:::\EP2:(4)"RESTORETETRIS.SC":EP0_216,0:3000`16368,0::12:20:"Bitte Spielstufe eingeben (0-9) <5> :";jA$:LE** ** ******* ** *******"l." ** ** ** ** ** ** **"8" ** ** ** ** ** ** **"B" ** ******** ** ** ** ** *******"JL:18:15:"Von Al:(4)"BLOADTETRIS.BIN":EP0<(18):6:32,10:33,69:{"******** ******** ******** ******* ** *******"" ** ** ** ** ** ** **"" ** ** ** ** ** ** **",$" ** ***:SC(I):M (EN$)ĢPL2(PL10)(PL15)5:3(PL11)22(PL15)45:"*"o (EN$)ĺ(4)"STORETETRIS.SC" 16368,0:I1100: 23:"Nochmal ? Dann Taste dr}cken. (Esc = Ende) :";:A$:A$(27)ĺ:: ::1120:30   INTROEP1 h|chsten Spiele":(80(S$))2:S$t x:I110:(SC$(I))0200:27:I;:30:SC$(I);:43:LE(I);:47:SC(I):: I1115:(SC$(I))0200:5:I;:8:SC$(I);:21:LE;:24:SC(I) :14:I1620:(SC$(I))0200:50:I;:53:SC$(I);:66:LE(I);:70LI10):LI::10:SC J46r P:10:15::"":15:"SPIEL ENDE":15:""::16368,0 d(49152)128100 i:(18):(49152)155ľA$: jPL0:I2011:SCSC(I)PLI k:EN$"":PLľA$:2030% n1:S$"TETRIS - Die 20yz{|}~27:A$A$A$:27:A$Q29:A$A$A$A$::27:A$A$A$:28:A$:31:A$A$:30:A$A$27:A$A$:28:A$A$:31:A$A$:31:A$A$:27:A$A$A$:29:A$:27:"--------------":27:" Gesamt : 0":I5172:I:35:"- 0":7685,(1)7:I09:SP(I): : "LE" Reihen : 0".:" PUNKTE "F::" T A S T E N"i:"1 N{chstes":"6 Schneller""0 Links":"- Drehen":"= Rechts":"Leert.:Fallen":"Esc: Ende""Del: Pause"::" N{chstes:"3:30:"STATISTIK"A$(15)" "(14)::0V(49152)12811106[(49152)155ľA$:4090\\EP2:(4)"RESTORETETRIS.SC":EP0n_216,0:3000`16368,0::12:20:"Bitte Level eingeben (0-9) <5> :";jA$:LE(A$):LEA$"0"LE5oA$(27)4090tLE::(17):2 ~" Stufe$"Spezielle IIGS Version im Jan 91":4000PN(64435)6(64448)2241110^O25674:1PS$"Spezielle Information f}r IIGS":4000:S$"System Geschwindigkeit auf normal gesetzt.":4000:S$"Mit esc beenden um alte Geschwindigkeit zur}cksetzen.":400" ";:42:" ";:54:" "l84:" ";:11:" ";:24:" ";:31:" ";:36:" ";:42:" ";:54:" "B4:" ";:11:" ";:24:" ";:31:" ";:37:" ";:42:" ";:48:" "G,L:18:S$"Von Alexander Siegfried Feb.90":4000:S;:31:" ";:37:" ";:42:" ";:47:" "}4:" ";:11:" ";:24:" ";:31:" ";:37:" ";:42:" ";:47:" "$4:" ";:11:" ";:24:" ";:31:" ";:42:" ";:48:" ".4:" ";:11:" ";:24:" ";:31:" ";:35:;:A$:A$(27)ĺ:4090+::1120:301= INTRObEP1:(4)"BLOADTETRIS.BIN":EP0(18):6:32,10:33,69::" ";:11:" ";:21:" ";:31:" ";:42:" ";:48:" ".4:" ";:11:" ";:24:" ":14:I1620:(SC$(I))0200:50:I;:53:SC$(I);:66:LE(I);:70:SC(I): (EN$)ĢPL2(PL10)(PL15)5:3(PL11)22(PL15)45:"*" (EN$)ĺ(4)"STORETETRIS.SC" 16368,0:I1100:23:"Nochmal ? Dann Taste dr}cken. (esc = Ende):"SCSC(I)PLI* k:EN$"":PLľA$:2030h n1:S$"TETRIS - Die 20 h|chsten Spiele":(80(S$))2:S$ x:I110:(SC$(I))0200:27:I;:30:SC$(I);:43:LE(I);:47:SC(I):: I1115:(SC$(I))0200:5:I;:8:SC$(I);:21:LE;:24:SC(I)N (QW10). IQW0(QW10)(LE)LE(QW10)] J:2:11:LE:10(LI10):LI::10:SC:46 P:10:15::"":15:"SPIEL ENDE":15:""::16368,0 d(49152)128100 i:(18):(49152)155ľA$:4090 jPL0:I2011:24793:60 AMS25580] D:ST(A)ST(A)1:ST(7)ST(7)1:A25:37:ST(A):22:37:ST(7) FSCSC((7682)32)9((7683)128)7((7686).75) G(7684)0SCSC8 HSCSC(LE1.5)21:LILI(254):QW(((LI),2)):QW0LINR(LE)NRLE:LEӺ:I07:ST(I)0:W .768,255:769,SP(LE)::20:I13:" "::32,15:33,10 2255,(7685):A(255):7685,(1)7:250,255:24576 <MS(255):MS155ĉ::(18):4090 >MS254LELE(LE9):768,255:769,SP(LE)::2:11:LE:32,15:33,10:"SC$(20),LE(20),SC(20),ST(7)-3000U(4)"PREFIX":PR$:(4)"PREFIX"PR$p ::(4)"PR#3":(17)z10001:I121:15:(27)(15)"Z";:26:"_":(22:16:"LLLLLLLLLL":SC0:LI0:7683,160*15:(24)(14)"Spiel Tetris"; -1::(64435)6(64448)224ıY24832,("7")128:24836,("8")128:24828,("9")128j12:7:8:9p 238,208,178,168,118,88,68,38,22,1024:"Hi-Score! Bitte Namen eingeben :";:EN$"":16368,0A$:A$(13)EN$""ė::hA$(13)āI19PL1:SC$(I1)SC$(I):LE(I1)LE(I):SC(I1)SC(I)::::SC$(PL)EN$:LE(PL)LE:SC(PL)SC:A$(127)A$(8)2070A$(27)ĉ::A$(32)(EN$)112040 A$;:EN$EN$A$:2040(EN$)2040  (8)" "(8);:(EN$)1EN$ ******* ** *******"V" ** ** ** ** ** ** **"" ** ** ** ** ** ** **"$" ** ***** ** ******* ** *******"." ** ** ** ** ** ** (PL15)45:"*"4 (EN$)ĺ(4)"STORETETRIS.SC" 23:"Nochmal ? Dann Taste dr}cken. (Esc = Ende) :";:A$:A$(27)ĺ:: ::1120:30   INTRO (4)"BLOADTETRIS.BIN" (18):6:32,10:33,69:"******** ******** ********)0200:27:I;:30:SC$(I);:43:LE(I);:47:SC(I)::~ I1115:(SC$(I))0200:5:I;:8:SC$(I);:21:LE;:24:SC(I) :14:I1620:(SC$(I))0200:50:I;:53:SC$(I);:66:LE(I);:70:SC(I): (EN$)ĢPL2(PL10)(PL15)5:3(PL11)22":15:"SPIEL ENDE":15:""::16368,0M d(49152)128100n i:(18):(49152)155ľA$: jPL0:I2011:SCSC(I)PLI k:EN$"":PLľA$:2030 n1:S$"TETRIS - Die 20 h|chsten Punkte":(80(S$))2:S$9 x:I110:(SC$(I)5:37:ST(A):22:37:ST(7)Y FSCSC((7682)32)9((7683)128)7((7686).75)q G(7684)0SCSC8 HSCSC(LE1.5)14:LILI(254):(LI10)(LE)LE(LI10) I:2:11:LE:10(LI10):LI::10:SC J467 P:10:15::"I14:" "::32,15:33,10T 2255,(7685):A(255):7685,(1)7:24576w <MS(255):MS155ĉ::(18): >MS254LELE(LE10):768,255:769,SP(LE)::2:11:LE:32,15:33,10:24793:60 AMS25580 D:ST(A)ST(A)1:ST(7)ST(7)1:A2"SC$(20),LE(20),SC(20),ST(7)= ::(4)"PR#3":(17)G1000u1:I121:15:(27)(15)"Z";:26:"_":(22:16:"LLLLLLLLLL":SC0:LI0:7683,160*15:(24)(14)"Spiel Tetris";-1::I07:ST(I)0:$ .768,255:769,SP(LE)::19:24411025702 ER10ĺ"Die Datei TETRIS.SC ist mit einem Schreibschutz":15:"versehen. Bitte schreibf{hig machen."v 16368,0 :15:"Weiter mit Tastendruck, esc beendet :";:5000:A$(27)ĺ:: :(80(S$))2:S$: ::(64435)6(64448)2n. Bitte die":15:"Tetris-Diskette einlegen." ER9ER17ĺ"Auf der Diskette ist kein Platz um die Hi-Scoreliste":15:"abzuspeichern. Bitte eine andere ProDOS-Diskette einlegen." ER4ĺ"Bitte den Schreibschutz der Tetris-Diskette entfernen."h"":2040(*EN$(EN$,(EN$)1):2040A ::(18):ER(222)a (222)6EP2Č3288:1119 10:20:"ACHTUNG!"::15 ER7ER6 (ER6EP)ER8ĺ"Bitte die Tetris-Diskette einlegen."0 ER6EPĺ"Die Datei TETRIS.BIN wurde nicht gefunde **"N8" ** ** ** ** ** ** **"B" ** ******** ** ** ** ** *******"L:18:15:"Von Alexander Siegfried Feb. 90"::15:"Die esc Taste beendet zu jeder Zeit."M1117V(49152)1281110*[(49152)155ľA$:::L\(4)"RESTORETETRIS.SC":1118W]3288b^216,0`16368,0::12:20:"Bitte Spielstufe eingeben (0-9) <5> :";jA$:LE(A$):LEA$"0"LE5oA$(27)ĉ::tLE::(17):2~" Stufe : "L16368,0:I1100:d23:"Nochmal ? Dann Taste dr}cken. (Esc = Ende) :";:5000:A$(27)ĺ::v::1120:30| INTROEP1:(4)"BLOADTETRIS.BIN":EP0(18):6:32,10:33,69: "******** ******** ******** ******* ** $(I))0200:5:I;:8:SC$(I);:21:LE(I);:24:SC(I) :14:I1620:(SC$(I))0200:36,50:I;:36,53:SC$(I);:36,66:LE(I);:36,70:SC(I): (EN$)ĢPL2(PL10)(PL15)5:36,3(PL11)22(PL15)45:"*" (EN$)ĺ(4)"STORETETRIS.SC"(49152)155Ĺ16368,0:> jPL0:I2011:SCSC(I)PLIY k:EN$"":PLľA$:2030 n1:S$"TETRIS - Die 20 h|chsten Spiele":((80(S$))2):S$ x:I110:(SC$(I))0200:27:I;:30:SC$(I);:36,43:LE(I);:36,47:SC(I)::7 I1115:(SC > (LE) THEN NR = LE:LE = INT (QW / 10)[ IQW0(QW10)(LE)LE(QW10) J:2:11:LE:10(LI10):LI::10:SC:46 P:10:15::"":15:"SPIEL ENDE":15:""::16368,0 d(49152)128100 i:(18)::24793:60 AMS25580_ D:ST(A)ST(A)1:ST(7)ST(7)1:A25:37:ST(A):22:37:ST(7) FSCSC((7682)32)9((7683)128)7((7686).75) G(7684)0SCSC86 HSCSC(LE1.5)21:LILI(254):QW(((LI),2)):IF QW = 0 AND LI AND NR < -1::I07:ST(I)0:] .768,255:769,SP(LE)::20:I13:" "::32,15:33,10 2255,(7685):A(255):7685,(1)7:250,255:24576 <MS(255):MS155ĉ::(18): >MS254LELE(LE9):768,255:769,SP(LE)::2:11:LE:32,15:33,10(4)"BRUN ZIPCFG"9SC$(20),LE(20),SC(20),ST(7)D3000l(4)"PREFIX":PR$:(4)"PREFIX"PR$ ::(4)"PR#3"10001:I121:15:(15)"<";:26:">":(22:16:"^^^^^^^^^^":SC0:LI0:7683,160 *15:(14)"Spiel Tetris";)" "(8);:(EN$)1EN$"":2040@*EN$(EN$,(EN$)1):2040 368,0&A$:A$(13)EN$""ė::A$(13)āI19PL1:SC$(I1)SC$(I):LE(I1)LE(I):SC(I1)SC(I)::::SC$(PL)EN$:LE(PL)LE:SC(PL)SC:A$(127)A$(8)2070A$(32)(EN$)112040 A$;:EN$EN$A$:2040(EN$)2040" (84448)0ıI09:SP(I):Y24832,("7")128:24836,("8")128:24828,("9")128j12:7:8:9p 238,208,178,168,118,88,68,38,22,10 0,240,210,200,150,120,100,70,48,28:GS!24:"Hi-Score! Bitte Namen eingeben :";:EN$"":16A$A29:A$A$A$A$::27:A$A$A$:28:A$:31:A$A$:30:A$A$27:A$A$:28:A$A$:31:A$A$:31:A$A$:27:A$A$A$:29:A$:27:"--------------":27:"Gesamt : 0":I5172:I:35:"- 0":7685,(1)7 :I09:SP(I)::(64435)6(6E" Reihen : 0"(:" PUNKTE"@::" T A S T E N"c:"1 N{chstes":"6 Schneller""0 Links":"- Drehen":"= Rechts":"Leert.: Fallen":"Esc: Beenden":" N{chstes:"3:30:"STATISTIK"A$(15)" "(14)::27:A$A$A$:27:*******"C" ** ** ** ** ** ** **"|" ** ** ** ** ** ** **"$" ** ***** ** ******* ** *******"." ** ** ** ** ** ** **";8" ** ** ** ** ** ** **"zB" ** ******** ** ** ** ** *******"L:18:15:"Von Alexander Siegfried Feb. 90"::15:"Die esc Taste beendet zu jeder Zeit."V(49152)1281110[(49152)155* Tetris * per Zufallszahl Teil ausw{hlen, Poke 255,NR * CALL tetris ORG $6000 JMP START TEIL = $FF ;Nummer des Teils X = $FE ;X & Y geben die linke obere Ecke des Teiles an! Y = $FD AUFGESETZT = $FA SCL = $FB SCH = $FC TADRL = $EB TADRH = $EC X2 = $ED YSOURCEv ' '*TETRIS.SSS ';'/)TETRIS.SS z& u$+TETRIS.SSSS}z& D"versehen. Bitte schreibf{hig machen."6 16368,0 :15:"Weiter mit Tastendruck, esc beendet :";:5000:A$(27)ĺ:: ::" ";(8);:16368,0:(49152)1285010A$((49152)128):16368,0:" ";(8);: "Auf der Diskette ist kein Platz um die Hi-Scoreliste":15:"abzuspeichern. Bitte eine andere ProDOS-Diskette einlegen." ER4ĺ"Bitte den Schreibschutz der Tetris-Diskette entfernen."( ER10ĺ"Die Datei TETRIS.SC ist mit einem Schreibschutz":15:! (222)6EP2Č3288:1119? 10:20:"Achtung!"::15N ER7ER6 (ER6EP)ER8ĺ"Bitte die Tetris-Diskette einlegen." ER6EPĺ"Die Datei TETRIS.BIN wurde nicht gefunden. Bitte die":15:"Tetris-Diskette einlegen."z ER9ER17ĺ:::SC$(PL)EN$:LE(PL)LE:SC(PL)SC:DA$(127)A$(8)2070XA$(27)ĉ::uA$(32)(EN$)112040 A$;:EN$EN$A$:2040(EN$)2040 (8)" "(8);:(EN$)1EN$"":2040*EN$(EN$,(EN$)1):2040 ::(18):ER(222)28:24836,("-")128:24828,("=")128.[ 238,208,178,168,118,88,68,38,22,10 24:"Hi-Score! Bitte Namen eingeben :";:EN$"":16368,05000:A$(13)EN$""ė::(A$(13)āI19PL1:SC$(I1)SC$(I):LE(I1)LE(I):SC(I1)SC(I):=29:A$A$A$A$::27:A$A$A$:28:A$:31:A$A$:30:A$A$}27:A$A$:28:A$A$:31:A$A$:31:A$A$:27:A$A$A$:29:A$:27:"--------------":27:"Gesamt : 0":I5172:I:35:"- 0":7685,(1)7:I09:SP(I):(24832,("0")10":" PUNKTE".::" T A S T E N"Q:"1 N{chstes":"6 Schneller""0 Links":"- Drehen":"= Rechts":"Leert.: Fallen":"Esc: Beenden""Del: Pause"::" N{chstes:"3:30:"STATISTIK"A$(15)" "(14)::27:A$A$A$:27:A$Ĺ16368,0:::8\EP2:(4)"RESTORETETRIS.SC":EP0J_216,0:3000`16368,0::12:20:"Bitte Spielstufe eingeben (0-9) <8> :";b5000jLE(A$):LEA$"0"LE8oA$(27)ĉ::tLE::(17):2~" Stufe : "LE" Reihen : 2 = $EE YZW = $EF WAITBASL = $300 WAITBASH = $301 WAITL = $6 WAITH = $7 ZEICHEN = $D7 TAB DW $400 DW $480 DW $500 DW $580 DW $600 DW $680 DW $700 DW $780 DW $428 DW $4A8 DW $528 DW $5A8 DW $628 DW $6A8 DW $728 DW $7A8 DW $450 DW $4D0 DW $550 DW $5D0 DW $650 DW $6D0 DW $750 DW $7D0 * Programmstart (Alles auf Intro) START LDA #0 STA $302 ;Noch kein Space am Anfang STA $306 ;Noch kein Space STA Y LDA $303 BMI *+5 LDA #" " JSR NEXTPR+3 LDA #18 STA X JSR OVERLAY BCC FALL LDA #"A TEIL LDA $306 BEQ *+2 STA TEIL JMP REIHENRAUS REGISTERS DFB 0 DREHTAB DFB 7,10,11,14,15,5,16,8,9,0,1,12,13,2,3,4,17,18,6 TLS HEX 0,0,0,0 HEX 1,1,1,0 HEX 1,0,0,0 HEX 0,0,0,0 * 5 (2) HEX 0,0,0,1 HEX 1,1,1,0 HEX 0,0,0,0 HEX 0,0,0,0 * 7 A X2 CLC ADC X TAX LDA Y2 CLC ADC Y TAY JSR SCREEN LDA ZEICHEN LDY #0 STA (SCL),Y LDY YZW JMP PRINTLOP PRINTEND RTS TEILUNTEN PLA PLA DEC Y LDA #" " STA ZEICHEN JSR PRINT+12 INC AUFGESETZT BNE *+3 JMP DROPIN LDA #0 STA $FF LDA Y STSR OVERLAY BCC *+7 JMP TEILUNTEN NOP ;Diese drei Zeilen sind unwichtig! LDA #0 NOP LDA #0 STA X2 STA Y2 LDY #$FF PRINTLOP INY STY YZW CPY #16 BEQ PRINTEND INC X2 LDA X2 CMP #4 BNE *+6 INC Y2 LDA #0 STA X2 LDA (TADRL),Y BEQ PRINTLOP LD LDA #0 STA X2 INC Y2 LDA (TADRL),Y ;Byte aus Tabelle laden BEQ OVLOP ;wenn 0, nochmal LDA Y2 CLC ADC Y TAY LDA X2 CLC ADC X TAX JSR SCREEN LDY YZW CMP #$A0 BEQ OVLOP SEC ;Screenpoint schon belegt! RTS OVEND CLC ;Alles frei! RTS PRINT J TADRH LDA #TLS CLC ADC TADRL STA TADRL BCC *+2 INC TADRH LDA #0 ;X2, Y2 auf 0 bringen STA X2 STA Y2 LDY #$FF OVLOP INY STY YZW CPY #16 BEQ OVEND ;schon alle 16 Zeichen durch? INC X2 ;X,Y --> und nach unten verstellen LDA X2 CMP #4 BNE *+6 INC SCH LDY #0 LDA (SCL),Y RTS * Pr}fen, ob Teil auf anderem liegt (Carry=1 Ja) * wenn Zeichen in Zeichen, dann Ausdruck. OVERLAY LDA # und nach unten verstellen LDA X2 CMP #4 BNE *+6 INC SCH LDY #0 LDA (SCL),Y RTS * Pr}fen, ob Teil auf anderem liegt (Carry=1 Ja) * wenn Zeichen in Zeichen, dann Ausdruck. OVERLAY LDA # und nach unten verstellen LDA X2 CMP #4 BNE *+6 LDA #0 STA X2 INC Y2 LDA (TADRL),Y ;Byte aus Tabelle laden BEQ OVLOP ;wenn 0, nochmal LDA Y2 CLC ADC Y TAY LDA X2 CLC ADC X TAX JSR SCREEN LDY YZW CMP #$A0 BEQ OVLOle berechnen ASL ;*2 ASL ;*4 ASL ;*8 ASL ;*16 STA TADRL BCC *+2 INC TADRH LDA #TLS CLC ADC TADRL STA TADRL BCC *+2 INC TADRH LDA #0 ;X2, Y2 auf 0 bringen STA X2 STA Y2 LDY #$FF OVLOP INY STY YZW CPY #16 BEQ OVEND ;schon alle 16 Zeichen YA ASL TAY LDA TAB+1,Y STA SCH TXA CLC ADC TAB,Y STA SCL BCC *+2 INC SCH LDY #0 LDA (SCL),Y RTS * Pr}fen, ob Teil auf anderem liegt (Carry=1 Ja) * wenn Zeichen in Zeichen, dann Ausdruck. OVERLAY LDA # nP2(l00 TETRISbPEPER@ALE ISCFLIAMSQWPLESЕSFLEp OL.P DFB $22,$80,0,$E1 DFB $22,$94,0,$E1 SEC XCE RTS CLC XCE SEP #$30 LDA REGISTERS DFB $8F,$E0,2,$E1 BRA CONTROL.P PAUSE_L2 LDA PAUSE_STR2,X STA $5A8+15,X DEX BNE PAUSE_L2 LDX PAUSE_X RTS PAUSE_X DFB 0 MSB ON PAUSE_STR STR " PAUSE " PAUSE_STR2 DS 8 * IIGS Control Panel Routine CLC XCE SEP #$30 DFB $AF,$E0,2,$E1 STA REGISTERS LDA #0 DFB $8F,$E0,2,$E1 CONTRNOP JSR PAUSE_S1 CPY #0 BNE PAUSE_L3-2 INY JSR PAUSE_S2 JMP PAUSE_L3 PAUSE_KEY JSR PAUSE_S2 STA $C010 JMP WAITLOP PAUSE_S1 STX PAUSE_X LDX #7 PAUSE_L1 LDA PAUSE_STR,X STA $5A8+15,X DEX BNE PAUSE_L1 LDX PAUSE_X RTS PAUSE_S2 STX PAUSE_X LDX #7EX 0,0,0,0 HEX 0,0,0,0 * 19 (19) HEX 0,1,0,0 HEX 0,1,0,0 HEX 1,1,0,0 HEX 0,0,0,0 * Pause Spiel PAUSE STA $C010 LDX #7 PAUSE_L4 LDA $5A8+15,X STA PAUSE_STR2,X DEX BNE PAUSE_L4 LDY #0 PAUSE_L3 LDA $C000 BMI PAUSE_KEY INX BNE PAUSE_L3 NOP NOP 1,0,0 HEX 0,1,0,0 HEX 0,0,0,0 * 12 (15) HEX 0,1,0,0 HEX 0,1,1,0 HEX 0,0,1,0 HEX 0,0,0,0 * 14 (16) HEX 0,0,1,0 HEX 0,1,1,0 HEX 0,1,0,0 HEX 0,0,0,0 * 17 (17) HEX 0,1,1,0 HEX 0,1,0,0 HEX 0,1,0,0 HEX 0,0,0,0 * 18 (18) HEX 1,0,0,0 HEX 1,1,1,0 H0,0 HEX 0,1,0,0 HEX 0,1,0,0 HEX 0,0,0,0 * 6 (11) HEX 0,1,0,0 HEX 0,1,0,0 HEX 0,1,0,0 HEX 0,1,0,0 * 8 (12) HEX 0,1,0,0 HEX 0,1,1,0 HEX 0,1,0,0 HEX 0,0,0,0 * 9 (13) HEX 0,1,0,0 HEX 1,1,1,0 HEX 0,0,0,0 HEX 0,0,0,0 * 10 (14) HEX 0,1,0,0 HEX 1,