,8(;.BATBAT 44 Fil-DT 04 cE q0 \C)CC8`DCeECiD` RP h1$E ȍ @y b Y)hܭ]L]` q  DMD   u j)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002XԦ`  *'  } *(L `(  L l pL[,L] C i0  p  gފދLh ( LD 0  C  C  \i +$+0'; $(%)  b L[C `D P^߰")(݃   $DDG@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P Li 8GD }L[ PH >iJ ;  yyB ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A jA !B EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,6 ' r/ $ ɛ ` '  L[  l }-        L[L  }  '  L[   p  ` g  l }) g ' L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)MLL[IL3 GDIɛ ɜ DI  , JȊGм  G I) GȦ=*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '蚦TTUV D`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / `$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@ wAsTt/` 0: gL  `$0`j`& CpCi s L0JCܢj? I#𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽG |  E` 8,  }EG)݀G)ȱGȱG`"!L] l!i栠$8  (IƭIp  h,g+j? 8 ii(Lq)! S S0$} ) E9 `H)N,L]8GH Lq`gNgfj****8jHi h`  2J  &e2i`"%?&;^$IM ! ! <u hh`$Ev옝^! 1EHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 q D&E`I0` i`+DOS SYSMOC.I   J ٍ = ) F)8`Ll T!U<; Ln <JM -18     HH =D 2 :  /1[F:M #.!  `>C #   #`>   eL'>/b;\I\o@ @LK~ L  % /e  LL HH0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQOR}a/%<) j ө  RES L%-, # 3 0 %   4(H 4(`( 3  #  ZOiۨ L4RE 3 =F S Z +8 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ LF F LH hL4`*J 0 B B 0a   8    Lkl  );<  : ` 0 } T T 7̀΀LIl <;`<L 3   #/ ! R( 7 7   7 89i L7 ,(&   L480  ` Ln    `   HJJJJ h) ii0 ``0  ,BLV[J  B Vso Fhh` GH ,H hɐɀɡ)HDCȱCɛeCD먥D hN MSп` ED` OIH`hhXhh  nL Free Fil-DBreakI/O-Error 170Disk fullWrite protectedFile MismatchBad FilenameDOS II+/D - Version 6.4 RUN:(c) '87 by S.D.Br`čLLockedDevice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD2:+DOS SYSMOC.I   J ٍOBJ 018 W BAT 003 ZARMODULE; WERSJA OSTATECZNA NA SRONKE AOL (2010);INCLUDE "RUNTIME.ACT";INCLUDE "RT.ACT";INCLUDE "1.ACT";INCLUDE "RT2.ACT"BYTE ARRAY MI1=[1 8 15 22 1 8 15 22 29],MI2=[1 1 1 1 8 8 8 8 9],MI21=[1 34 8 13 18 23 28 8 28 13 18 23 14 14],MI22=[1 1 1 1 1 1 1 5 5 14 14 14 10 10],MI31=[35 4 10 14 20 24 30],MI32=[2 10 6 2 2 6 10],MI41=[14 22 12 15 24 9 28 1 4 32 35 37],MI42=[6 6 1 1 1 8 8 8 8 8 8 8],MI51=[1 6 1 6 13 18 13 18 25 30 25 30 36 36 8 13 18 23 32],MI52=[1 1 5 5 1 1  5 5 1 1 5 5 1 5 11 11 11 11 11],MI61=[2 7 12 18 25 30 35 5 29],MI62=[1 1 1 1 1 1 1 17 17],MI71=[1 8 15 15 8 1 32 23 36 35 31 29 28 ],MI72=[1 1 1 6 6 6 17 17 6 6 10 10 10] BYTE ARRAY CEL1=[0 0 3 13 17 17 33 33 65 65 64 64 128 128 248 248 128 128 64 64 65 65 33 33 17 17 13 3 0 0]BYTE ARRAY CEL2=[0 0 128 96 16 16 8 8 4 4 4 4 2 2 62 62 2 2 4 4 4 4 8 8 16 16 96 128 0 0]BYTE ARRAY GWI=[16 16 16 17 26 26 28 252 120 60 31 28 40 40 72 8];BYTE ARRAY ILP=[0 3 3 3 2 3 3 57 $F];BYTE ARRAY ILP=[0 1 2 3 4 5 6 7 $F]BYTE ARRAY ILP=[0 15 16 17 18 19 20 21 $F]BYTE X,Y,Q,A,B,PR,Q1,Q2,C,D,P,GL,ST1,ST2,ST3,ZW,CC,DD,AA,STR,STT,PLA,ILP1,XX,PU1=1536,PU2=1537,PU3=1538,PU4=1539,PU5=1540,PU6=1541,ZYC,E,F,EE,FF,E1,RE,OPBYTE ILPX,CZP,W1,W2,W3,G9=53272,G8=$D40ABYTE K=764CARD Z,FA,FB,FCBYTE ARRAY GA=[0 241 241 195 0 255 255 255 0 127 255 255 0 197 199 15],GB=[0 84 81 0 243 243 243 243 0 85 85 0 255 255 255 255],GC=[61 61 61 61 61 61 61 61 234 234 234 234 234 234 234 234]BYTE ARRAY P2=[149 101 89 84 84 84 84 84 85 85 85 0 234 234 234 234],P4=[86 91 111 63 63 63 63 63 84 84 84 84 84 91 111 191],P6=[234 234 234 234 0 255 255 255 63 63 63 63 63 223 247 253],P8=[84 84 84 84 84 84 84 84 63 63 63 63 63 63 63 63]BYTE ARRAY OK2=[0 0 63 63 53 53 52 52 0 0 255 255 85 85 0 0],OK4=[0 0 252 252 92 92 28 28 52 52 53 53 63 63 0 0],OK6=[0 0 85 85 255 255 0 0 28 28 92 92 252 252 0 0],OK8=[52 52 52 52 52 52 52 5228 28 28 28 28 28 28 28]BYTE ARRAY PR2=[0 0 0 0 0 10 9 7 0 0 0 0 0 64 192 192],PR4=[255 5 1 6 5 255 255 255 252 64 0 64 64 252 255 255],PR6=[0 0 0 3 0 0 240 252 0 0 0 4 196 213 116 92],PR8=[63 63 63 255 255 255 255 255 92 83 64 192 192 240 240 252],PR10=[0 0 0 0 0 240 255 15 0 0 0 0 192 49 53 29]BYTE ARRAY LI=[168 136 136 136 136 136 136 168 8 8 8 8 8 8 8 8 168 8 8 168 128 128 128 168 168 8 8 168 8 8 8 168136 136 136 168 8 8 8 8 168 128 128 168 8 8 8 168 168 128 128 168 136 136 136 168 168 8 8 8 8 8 8 8168 136 136 168 136 136 136 168 168 136 136 168 8 8 8 168 0 252 192 252 12 12 252 !0 0 252 192 192 192 192 252 0 0 252 204 204 204 204 252 0 0 252 204 252 240 204 204 0 0 252 192 240 192 192 252 085 255 255 255 255 255 255 255 204 68 136 136 136 68 204 0],KANAL=[255 255 252 252 252 252 240 240 240 240 240 192 192 192 192 0 0 0 2 2" 2 2 9 9 9 9 38 38 38 38 154 170170 149 106 106 106 106 170 170 170 170 170 170 170 170 170 170 170 85 170 170 170 170 170 170 170 86 171 171 171 171175 175 175 175 175 175 191 191 191 191],SAK=[0 0 4 22 60 56 26 4 24 0 24 60 108 70 94 198 246 246 24#6 198 238 250 100 56 0 0],SAK1=[0 0 8 28 28 62 62 62 0 62 62 62 62 58 58 58 58 62 0 127 0 0]INCLUDE "PLAYER.ACT"INCLUDE "WG.ACT"PROC PO(BYTE A,B)POSITION(A,B)RETURN PROC DR(BYTE X,Y)DRAWTO(X,Y)RETURNPROC TYU()COLOR=84 PLOT(2,22)DR(STR/4-2,22)RE$TURNPROC RPU()IF PU1>9 THEN PU1==-10 PU2==+1 FI IF PU2>9 THEN PU2==-10 PU3==+1 FI IF PU3>9 THEN PU1=0 PU2=0 PU3=0 PU4==+1 FIIF PU4>9 THEN PU1=0 PU2=0 PU3=0 PU4=0 PU5==+1 FIIF PU5>9 THEN PU1=0 PU2=0 PU3=0 PU4=0 PU5=0 PU6==+1 FICOLOR=68+PU1 PLOT(11%,23)COLOR=68+PU2 PLOT(10,23)COLOR=68+PU3 PLOT(9,23)COLOR=68+PU4 PLOT(8,23)COLOR=68+PU5 PLOT(7,23)COLOR=68+PU6 PLOT(6,23)COLOR=69+ZYC PLOT(17,23)RETURNPROC ERT()COLOR=68 PLOT(12,23)PLOT(13,23)RPU()PO(0,23)PRINTD(6,"")TYU()RETURNPROC RTY()&IF PLA=1 THEN Q=RAND(9)A=MI1(Q)B=MI2(Q)FIIF PLA=2 THEN Q=RAND(11)A=MI21(Q)B=MI22(Q)FIIF PLA=3 THEN Q=RAND(7)A=MI31(Q)B=MI32(Q)FIIF PLA=4 THEN Q=RAND(12)A=MI41(Q)B=MI42(Q)FIIF PLA=5 THEN Q=RAND(19)A=MI51(Q)B=MI52(Q)FIIF PLA=6 THEN Q=RAND(9)A=MI61(Q')B=MI62(Q)FIIF PLA=7 THEN Q=RAND(13)A=MI71(Q)B=MI72(Q)FIRETURNPROC MUREK(BYTE A,B,MA,MB)FOR FA=A TO MA STEP 2 DO FOR FB=B TO MB STEP 2 DO PO(FA,FB)PRINTD(6,"#$")PO(FA,FB+1)PRINTD(6,"#$")OD ODRETURNPROC MUREK1(BYTE A,B,MA,MB); Z WL. ATRYBUTEMFOR (FA=A TO MA STEP 2 DO FOR FB=B TO MB STEP 2 DO PO(FA,FB)PRINTD(6,"")PO(FA,FB+1)PRINTD(6,"")OD ODRETURNPROC KRA(BYTE A,B,MA)FOR FA=A TO MA STEP 2 DO PO(FA,B)PRINTD(6,"%&")ODRETURNPROC KRA1(BYTE A,B,MA)FOR FA=A TO MA STEP 2 DO PO(FA,B)PRINTD(6,""))OD;RYS. KRAWE. Z 5 ATRYBUTEMRETURNPROC OKNO(BYTE A,B)PO(A,B)PRINTD(6,"12223")PO(A,B+1)PRINTD(6,"7 8")PO(A,B+2)PRINTD(6,"7 8")PO(A,B+3)PRINTD(6,"45556")RETURNPROC PRZ1(BYTE X,Y)PO(X+1,Y+1)PRINTD(6,"")PO(X+1,Y+2)PRINTD(6,"<=")RETURNPROC PR*Z2(BYTE X,Y)PO(X+1,Y+1)PRINTD(6,">?")PO(X+1,Y+2)PRINTD(6,"@A")RETURNPROC PRZ3(BYTE X,Y)PO(X+1,Y+1)PRINTD(6," ")PO(X+1,Y+2)PRINTD(6,"BC")RETURNPROC PUD(BYTE A,B)PO(A,B)PRINTD(6,")****+")PO(A,B+1)PRINTD(6,"/((((0")PO(A,B+2)PRINTD(6,"/((((0")PO(A,B++3)PRINTD(6,",----.")RETURNPROC PLO(BYTE A,B,MA,MB)FOR FA=A TO MA DO FOR FB=B TO MB DO PO(FA,FB)PRINTD(6,"'")OD ODRETURNPROC PLO1(BYTE A,B,MA,MB);PLOT + 5 ATRYB.FOR FA=A TO MA DO FOR FB=B TO MB DO PO(FA,FB)PRINTD(6,"")OD ODRETURNPROC ZAM(BYTE ,A,B,MA,MB)FOR FA=A TO MA DO FOR FB=B TO MB DO PO(FA,FB)PRINTD(6,"9")OD ODRETURNPROC ZAM2(BYTE A,B,MA,MB)FOR FA=A TO MA DO FOR FB=B TO MB DO PO(FA,FB)PRINTD(6,"S")OD ODRETURNPROC ZAM21(BYTE A,B,MA,MB);SCHODKI + 5 ATR.FOR FA=A TO MA DO FOR FB=B TO- MB DO PO(FA,FB)PRINTD(6,"")OD ODRETURNPROC WLAZ(BYTE A,B)PO(A,B)PRINTD(6,"U WY[\")PO(A,B+1)PRINTD(6,"V XZZ]")RETURNPROC ZZN();FOR FA=0 TO 1024 DO FB=PEEK(224*256+FA)POKE(144*256+FA,FB)OD;FOR FA=0 TO 16 DO FB=GA(FA)POKE(144*256+FA+24,FB)OD FOR .FA=0 TO 16 DO FB=GB(FA) POKE(144*256+40+FA,FB)OD;FOR FA=0 TO 16 DO FB=GC(FA)POKE(144*256+56+FA,FB)OD FOR FA=0 TO 16 DO FB=P2(FA) POKE(144*256+72+FA,FB)OD;FOR FA=0 TO 16 DO FB=P4(FA)POKE(144*256+88+FA,FB)OD FOR FA=0 TO 16 DO FB=P6(FA) POKE(144*256+104+/FA,FB)OD;FOR FA=0 TO 16 DO FB=P8(FA)POKE(144*256+120+FA,FB)OD FOR FA=0 TO 16 DO FB=OK2(FA) POKE(144*256+136+FA,FB)OD;FOR FA=0 TO 16 DO FB=OK4(FA)POKE(144*256+152+FA,FB)OD FOR FA=0 TO 16 DO FB=OK6(FA) POKE(144*256+168+FA,FB)OD;FOR FA=0 TO 16 DO FB=OK80(FA)POKE(144*256+184+FA,FB)OD;FOR FA=0 TO 7 DO POKE(144*256+200+FA,255)OD;FOR FA=0 TO 16 DO FB=PR2(FA)POKE(144*256+208+FA,FB)OD;FOR FA=0 TO 16 DO FB=PR4(FA)POKE(144*256+224+FA,FB)OD;FOR FA=0 TO 16 DO FB=PR6(FA)POKE(144*256+240+FA,FB)OD;FOR FA=0 TO 116 DO FB=PR8(FA)POKE(144*256+256+FA,FB)OD;FOR FA=0 TO 16 DO FB=PR10(FA)POKE(144*256+272+FA,FB)OD;FOR FA=0 TO 136 DO FB=LI(FA)POKE(144*256+288+FA,FB)OD;FOR FA=0 TO 72 DO FB=KANAL(FA)POKE(144*256+424+FA,FB)ODRETURNPROC GR()GRAPHICS(12+16)POKE(559,0)2RETURNPROC PAU()FOR XX=0 TO 85 DO IF PEEK(764)=28 THEN POKE(764,255);POKE(704,5)POKE(705,5);BREAK()FI OD RETURNPROC PAU_R();FOR XX=0 TO 85 DO FOR XX=0 TO 30 DO IF PEEK(764)=28 THEN POKE(764,255);POKE(704,5)POKE(705,5);BREAK()FI IF STRI3G(0)=0 THEN EXIT FIIF PEEK(53279)=6 THEN EXIT FIODRETURNPROC CEL()POKE(53248,C)POKE(53249,C+8)FOR Q=0 TO 29 DO Q1=CEL1(Q)POKE(Z+1024+Q+D,Q1)Q2=CEL2(Q)POKE(Z+1280+Q+D,Q2)ODRETURNPROC POCZ()D=120 FOR C=0 TO 120 DO [173 $D40B 201 110 208 249];P4AU()PAU()CEL()ODRETURNPROC PUR()SNDRST()WHILE STR>0 DO COLOR=32 PLOT(STR/4,22)STR==-1PU1==+1;PU1==+2 PU2==+1 RPU()Q=15 WHILE Q>0 DO PAU()SOUND(0,25,10,Q)Q==-3 ODODRETURNPROC UIO()POKE(559,0)COLOR=125 PLOT(0,0)ERT()RETURNPROC RYSP()SNDRS5T()IF PLA=1 THEN UIO()PLO(30,0,39,19)KRA(0,20,39)OKNO(29,9)MUREK(0,0,29,15)FOR X=0 TO 7 DO OKNO(MI1(X),MI2(X))OD ZAM(0,16,39,19)ZAM(30,15,39,19)PUD(30,12)POKE(708,$16)POKE(709,$18)POKE(710,$14)FIIF PLA=2 THEN UIO()MUREK1(0,0,39,20)FOR X=0 TO 11 D6O OKNO(MI21(X),MI22(X))OD ZAM(13,5,27,5) PLO(13,6,27,8)ZAM(13,9,27,9) ZAM21(8,9,12,17)ZAM(8,0,32,0) ZAM(7,4,7,17)ZAM(33,4,33,17)PLO(7,14,7,16) PLO(33,14,33,16)ZAM21(28,9,32,17) ZAM(13,5,13,17)ZAM(27,5,27,17) PLO(13,14,13,16)PLO(27,14,27,16) ZAM(07,18,39,21)ZAM(0,15,6,18)ZAM(34,15,39,18)POKE(708,$06)POKE(709,$08)POKE(710,$F4)FIIF PLA=3 THEN UIO()TYU()PLO(0,0,4,14)ZAM(0,15,39,20)MUREK1(34,0,39,16) ZAM(34,17,39,18)OKNO(35,2)PUD(4,13)PUD(10,13)PUD(16,13)PUD(22,13)PUD(28,13)PUD(7,9)PUD(13,98)PUD(19,9)PUD(25,9)PUD(13,5)PUD(19,5)ZAM(4,0,4,12)ZAM(33,0,33,12)POKE(708,$06)POKE(709,$08)POKE(710,$04)POKE(712,$90)FIIF PLA=4 THEN UIO()TYU()MUREK1(0,11,10,14)MUREK1(29,11,39,14)ZAM(0,14,39,20)PLO(12,5,28,15)KRA1(12,4,29)OKNO(14,6)OKNO(22,6)Z9AM2(0,19,2,19)PO(32,19)PRINTD(6,")****+")PO(32,20)PRINTD(6,"/((((0")KRA(38,13,39)POKE(708,$06)POKE(709,$78)POKE(710,$C4)POKE(712,0)FIIF PLA=5 THEN UIO()TYU()MUREK1(0,0,39,19)ZAM(2,18,39,20)PO(0,18)PRINTD(6," ")PO(0,19)PRINTD(6," ")ZAM(6,10,29:,18)ZAM2(6,18,29,18)PLO(6,13,6,15)PLO(29,13,29,15)FOR X=0 TO 18 DO OKNO(MI51(X),MI52(X))OD MUREK(0,0,0,16)OKNO(1,1)OKNO(1,5)POKE(708,$06)POKE(709,$08)POKE(710,$F4)FIIF PLA=6 THEN UIO()TYU()ZAM(0,17,39,20)WLAZ(5,18)WLAZ(29,18);PLO1(0,11,39,16)MUR;EK1(0,11,39,16)MUREK(0,0,39,10)FOR X=0 TO 6 DOOKNO(MI61(X),MI62(X))OD PLO(2,5,16,8)PLO(25,5,39,8)PLO1(0,11,39,11)POKE(708,$06)POKE(709,$78)POKE(710,$04)FIIF PLA=7 THEN UIO()TYU()MUREK(0,0,22,16)FOR X=0 TO 6 DO OKNO(MI71(X),MI72(X))OD ZAM(0,16,3<9,20)WLAZ(32,18)WLAZ(23,18) ZAM(23,14,39,16) PUD(28,13)PUD(34,13)PUD(34,9) ZAM(23,0,23,16)POKE(708,$16)POKE(709,$18)POKE(710,$14) FIPOKE(559,62)RETURNPROC RST()POKE(53250,C+4)POKE(706,ST1)FOR Q=1 TO 15 DO Q1=GWI(Q) POKE(Z+1536+D+6+Q,Q1) ODRE=TURNPROC RST1()POKE(53251,C+4)POKE(707,ST1)FOR Q=1 TO 15 DO Q1=GWI(Q) POKE(Z+1792+D+6+Q,Q1) ODRETURNPROC STRZAL()STR==-1CC=C/4-10 DD=D/8-2IF PR<5 AND PR>0 AND CC>A AND CCB+1 AND DDPR=7 PRZ2(A,B)ILP1==+1 SOUND(1,0,0,0)PU1==+3;TO SA PUNKTY ZA ZAB. PRZECRPU()COLOR=32 PLOT(38,23)FIIF PEEK(87)=12 AND EE>0 AND C-40>E AND C-40F AND D+1575 THEN P=0 FIRETURNPROC ZAB()CC=C DD=D COLOR=32 PLOT(38,23)ZERO(Z+1536,510)C=A*4+50 D=B*8+38 RST() SOUND(1,0,0,0)FOR Q=0 TO 5 DO CST1=15 DO PAU()PAU()PAU()SOUND(0,ST1,8,ST1)POKE(706,ST1)ST1==-1IF ST1=9 THEN EXIT FI OD OD WHILE ST1>0 DO FOR Q=0 TO 2 DO PAU()OD ST1==-1 SOUND(0,ST1,8,ST1)POKE(706,ST1)OD C=CC D=DD STR=45 ZYC=ZYC-1 RPU() ILP1=0 TYU()RETURNPROC AS()GR()POKE(53248D,0)POKE(53249,0)SNDRST()POKE(707,0)POKE(706,0)PLA=1 DUCH()POKE(756,144)ZERO(Z+768,1280);POKE(711,$0D)POKE(711,$0B)POKE(53248,0)POKE(53249,0)D=120;CEL() D=0 PR=5 GL=0 ST1=0 ST2=0 ZW=0 AA=0 STR=45 STT=1 ILP1=0 P=0 PU1=0 PU2=0 PU3=0 PU4=0ZYC=2 PUE5=0 E=0 F=0 EE=0 FF=1 E1=0 PU6=0 RE=0 OP=245RYSP()ERT()POKE(559,62)POCZ()DO[173 $D40B 201 110 208 249];PAU()QWE()POKE(77,0)SOUND(0,10,8,GL)IF EE=0 THEN Q=RAND(0)IF Q=0 THEN EE=1 E=RAND(140)F=20 FF=1 RE=RAND(2)FI FIIF EE=1 THEN F==+1 F==+1 SAKIEFWKA()FIIF EE=1 AND F>186 THEN ZERO(Z+768,$FF)EE=0 FIIF EE=2 AND F>48 THEN E1==+1 FF==-1 FOR X=0 TO FF DO F==-1 SAKIEWKA()OD FIIF EE=2 AND F<=48 THEN E1=0 EE=1 FIIF EE=2 AND E1=4 THEN EE=1 E1=0 FF=1 FI;IF EE=0 THEN PAU()FIIF ZYC=255 THEN EXIT FIIFG STR<7 THEN SOUND(2,P,10,3)FIIF STR=0 AND PR<5 THEN SOUND(2,0,0,0)PR=6 ZAB()FIIF GL>0 THEN GL==-1 FIIF ILP(PLA)+ILPX=ILP1 THEN ZERO(Z+1024,1020)PUR()PLA=PLA+1 IF PLA=8 THEN PLA=1 IF ILPX<200 THEN ILPX==+5 FI IF CZP<240 THEN CZP==+2 FIFISTR=45 HRYSP()PR=5 POKE(559,62)ILP1=0 POCZ()ST1=0 ST2=0 GL=0 FIIF STRIG(0)=1 THEN STT=1 OP==-5 FIIF STR>0 AND STT=1 AND STRIG(0)=0 THEN STT=0 GL=15 STRZAL()FI;ABY RUNTIME NIE WARIIOWAL:;IF ST1=0 AND ST2=0 THEN ST2=15 FIIF ZW=1 AND ST1>0 THEN ST1==-1 POKEI(706,ST1) FIIF ST1=0 THEN POKE(53250,0)ZERO(Z+1536,$FF)FIIF ZW=1 AND ST2>0 THEN ST2==-1 POKE(707,ST2) FIIF PR=5 THEN Q=RAND(0);IF Q<5 THEN RTY()PR=3 PRZ1(A,B)FIIF Q0 AND PR<4 AND P=1 THEN PR==-1 SOUND(1,JPR+5,10,2)COLOR=68+PR PLOT(38,23)FIIF PR=0 THEN POKE(712,0) IF PLA=3 THEN POKE(712,$90)FI ZAB()PR=6 FI WER()IF PR=1 THEN POKE(712,3)FIIF PR=6 AND P=1 THEN PR=11 FIIF PR=7 AND P=1 THEN ;PRZ3(A,B) PR=8 FIIF PR>7 AND (P=1 OR P=37) THEN PR==+1 IF PKR=10 THEN PRZ3(A,B)FI FIIF PR>=11 THEN PR=5 PO(A+1,B+1)PRINTD(6," ")PO(A+1,B+2)PRINTD(6," ")FI;^^^IF ST2=0 THEN POKE(53251,0)ZERO(Z+1792,$FF)FIIF STICK(0)=11 AND C>48 THEN C==-1 CEL()FIIF STICK(0)=7 AND C<193 THEN C==+1 CEL()FIIF STICK(0)=14 LAND D>30 THEN D==-2 CEL()FIIF STICK(0)=13 AND D<185 THEN D==+2 CEL()FIIF STICK(0)=10 AND C>48 AND D>30 THEN C==-1 D==-2 CEL()FIIF STICK(0)=9 AND C>48 AND D<185 THEN C==-1 D==+2 CEL()FIIF STICK(0)=5 AND C<193 AND D<185 THEN C==+1 D==+2 CEL()FIIF STIMCK(0)=6 AND C<193 AND D>30 THEN C==+1 D==-2 CEL()FIIF PEEK(764)=33 THEN SNDRST() W2=0 W3=PEEK(710) WHILE K=33 DO [173 $D40B 201 15 208 249] W2==+1 Q=W2 FOR W1=0 TO 154 DO G8=1 G9=Q Q==+1 OD G8=1 G9=W3 IF K<>33 THEN K=255 EXIT FI ODFINODRETURNPROC ASD()IF FA=1 THEN C==+12 IF C>180 THEN FA=2 FI FIIF FA=2 THEN C==-12 D==+14 IF D>190 THEN C=55 D=60 FA=3 W3=1 POKE(53250,0)POKE(53251,0) ;PAU() ;ZERO(Z+768,1280) ZERO(Z+768+768,512)FI FIIF FA=3 THEN POKE(706,0) POKE(53248O,0)POKE(53249,0)FOR X=0 TO 155 DO PAU_R() OD FA=1 FIRETURNPROC REK()CARD ADRQGRAPHICS(13+16)ZERO(53248,8)DUCH()ZZN()POKE(756,144)POKE(711,$76)POKE(708,$98)POKE(709,$0A)POKE(559,0)PO(4,0)PRINTD(6,"# # $# $#$ $# #$ # #")PO(4,1)PRINTDP(6,"# # # $ $ # # $ # # #")PO(4,2)PRINTD(6,"# # # $ $#$ $# $ # # #")PO(4,3)PRINTD(6,"# # # #$#$ $ $ $ $#$# # # #")PO(4,4)PRINTD(6,"#$#$# # $ $ # $# $ # #$#$#")PO(10,6)PRINTD(6," ")PO(10,7)PRINTD(6," Q ")PO(10,8)PRINTD(6," ")PO(10,9)PRINTD(6," ")PO(10,10)PRINTD(6," ");PO(2,11)PRINTD(6,"1989, 2010 code: tdc msx: miker")PO(3,11)PRINTD(6,"EMLMg FDED codef tdc msxf miker")ADRQ=PEEKC(5R60)POKE(ADRQ+16,112) POKE(ADRQ+17,4);POKE(ADRQ+17,2)POKE(ADRQ+18,65)POKEC(ADRQ+19,ADRQ)POKE(559,62)ST1=0 ST2=0 ZW=0 C=55 D=60 FA=1RETURNPROC PRE1()IF W3>0 THEN RETURN FICOLOR=32 PLOT(0,0)DR(0,0)DR(0,0)QWE()SOUND(0,15,8,GL)IF ZW=1 AND GSL>0 THEN GL==-1 FIIF ST1=0 THEN GL=15 ZERO(Z+1535,255)ASD()STRZAL()FIIF ST2=0 THEN GL=15 ZERO(Z+1792,255)ASD() STRZAL()FIIF ZW=1 AND ST1>0 THEN ST1==-1 POKE(706,ST1)FIIF ZW=1 AND ST2>0 THEN ST2==-1 POKE(707,ST2)FIRETURNPROC PRE()POKE(566,158);BRTEAK;ADRREP=DOS("D:WCITY.REP");ADRMUS=DOS("D:WCITY.CMC") WG("D1:WCITY.FNT",$9000,$400,4,128);ADRREP=DOS("D:SONG.REP") WG("D1:SONG.REP",$69C8-6,$2024,4,128);ADRMUS=DOS("D:WCITY.CMC") WG("D1:WCITY.CMC",$6000-6,$9C8,4,128);BREAK() ADRREP=$69CU8 ADRMUS=$6000 COMM=ADRREP+3 TAKT=ADRREP+6 ABC=ADRMUS AND $FF BCD=ADRMUS RSH 8 COMM($70,ABC,BCD)REK() ;WG("D1:WCITY.FNT",$9000,$400,8,128)W1=0 W2=0 W3=0DOILPX=0 CZP=3POKE(77,0)IF W3=0 THEN PRE1() IF FA=3 THEN C=0 D=0 ST1=0 ST2=0 ; PLAYER MUZYCZEK W "CMC"; BY JAKUB HUSAK Ү׮;CARD ADRREP,ADRMUS,VVBLKD=$224;BYTE CON=$D01F,ABC,BCDPROC CIO=$E456(BYTE areg,xreg)CARD FUNC Burst(BYTE chan,mode,CARD addr,buflen)TYPE IOCB=[BYTE id,num,cmd,statCARD badr,padr,blen BYTWE a1,a2,a3,a4,a5,a6]IOCB POINTER iptr chan==&$07 iptr=$340+(chan LSH 4) iptr.cmd=modeiptr.blen=buflen iptr.badr=addr CIO(0,chan LSH 4)RETURN(iptr.blen)CARD FUNC BGet(BYTE chan CARD addr,len)CARD temptemp=Burst(chan,7,addr,len)RETURN (temp)PROC COMM(BYXTE A,X,Y) RETURN PROC TAKT() RETURNCARD FUNC DOS(BYTE ARRAY NAME )CARD ST,ND CLOSE(4)OPEN(4,NAME,4,0)BGET(4,@ST,2)IF ST<>$FFFF THEN PRINTE("NO DOS FILE!")BREAK() FI DO BGET(4,@ST,2)UNTIL ST<>$FFFF OD BGET(4,@ND,2)BGET(4,ST,ND-ST+1)CLOSE(4)RETURN (ST) Y PROC GRAJ()TAKT()[ $4C $E462]RETURN PROC SETVBLV=$E45C(BYTE A,X,Y)PROC SETV(CARD AD)BYTE A,B IF AD<>0 THEN A=AD AND $FFB=AD RSH 8 SETVBLV(7,B,A)ELSE SETVBLV(7,$C2,$8A)FI RETURNTIL ST<>$FFFF OD BGET(4,@ND,2)BGET(4,ST,ND-ST+1)CLOSE(4)RETURN (ST)  ccc9=cccccccccccc4'"!%%,ssssss2##- [:ì::곬::꯬:::ά뫬0ά:::0::: \:::::ά:ꪰ::ë:;?;0 < ] 015ߍi `P 8 lʆ &e J Jꅆ8冨凪`ʆ ee ^` 9E…¥ 9` l'&&&8儨児祂*L2&&*ń8&&L2 ` Fj`hihiHHȱȱLڧ`膥ɠQ-ĮȐ`此į۠Ų _LlȄ.70Q- Ġ7`eޠ Ȅ e _ 嘠ƍ iť +иΦ +У +Ж꥾ +ȑȑȑɦȘ 9`5h{DObFIcIFPODdORTOeANDFORTINT"LSHMOD RSH `SETDXORBYTE!CARD#CHAR ELSEaEXITSFUNCAPROCBSTEPfTHEN`TYPEFARRAY@UNTILXWHILEQDEFINE&ELSEIFjMODULEWRETURNRINCLUDECPOINTEREiI^I^Lࢠ]I^+ 8+ _0)?ʈ LbACTION! (c)by Paul Lee Computer Services (PCS) April , 1985 6. : BLV`  B j JKIHiDiELV䄦 eRU _椤E +ƣ`𑛊 0H8`L L² 9  P t LWL,Ԇ ؠPIPP`/`"/ kԭ` PLnH h:,'iԥiՠiɨɑԈȩDȩ:ɥɤ LGLʰ򅡆ԅդ800) 0 0!Ԧՠ eԆ ٰԦդ` LLؠ L.8e膥 'eR壐Q l8SRŦQH)`h) ȭL{QI` T`TU`TU  [L_` ` 赠`eLXYT i(?E:j B VBDEH JIK V m` HI,HÝDE 1HIH 㩠ΠԠ 頠 쮲ᠳ n Š̠ Polecam nastepujace programy :-SPEED METAL(kopiarka turbo 800 bodow, 60kB wolnej pamieci)-THRASH METAL(kopiarka turbo 1200 bodow)-DEATH METAL(kopiarka ozabezpieczajaca)-TURBO BASIC COMPILER(wersja kasetowa)-ANTY CTH-ANTY CTH MAKER-DISK HACKER II(dyskowy program piracki)-Progr. do zabezpiecz. progr. w BASIC-u-DAUPHIN 2(gra zrecznosciowa) Ԡ 0 8 00 p`,0'D800 H,ɛh`2L1TYLKO D1 D0 D8   LVUWR@//7/ Vr@R@痗VrVrVrr]_z  6/VrVrVrVrV[ ]VbVbVbVbVbVrߩVr]VbVbVbVbVbߩ q]VbVbVbVbߩ?w/gW~ R/RrRr1]RbRbW7/W7/RrRrVbVbV=><;;7/6/;;/6&!,,,z CJKJOJKJCJKJOJKJCJKJOJKJCJKJOJKJ JKuuu vuuuxuuu vu vuxuu vvuuuxuuu vuuuxu vv vuuuxuuu vu vuxuu vvuuuxuuu vu vu{xxxxx MH MHTHHTHHTH OOOOOVWVRQMMMMMOOTTTYOOOOOVWVRVTTTTTTTRQ v@@ vB@ v@ vv@ vB@ ~@ v@@ vB@ v@ vv@ vB@ ~@ v@@ vB@ v@ vv@ vB@ ~@ v@@ vB@ v@ vv@ vB@ ~@ v@V vB@ vW vvV vB@ ~@ v@|T vB@ vV vvT vB@ ~@ v@V vB@ vW vvY vB@ ~@ v@[ vB@ v[ vv` vB@xxVVTVTVTVY]]]``eb`bbegligeb```````bgVVJVVVJVVVJVVVJVQEEQEEQEQEEQEEQEVJJVJJVJVJJVJJVJTHHTHHTHTHHTHHTHnibnibbnlielg`lglebg`nl}nlnnliegeghi][]`nib OOMJMlg` MMTTRQge`b JJJJHFCRTYVJJVJJVJVJJVJJVJTHHTHHTHTHHTHHTHVJJVJJVJTHHTHHTHVJJVJJVJTHHTHHTHVJJVJJVJVJJVJJVJTHHTHHTHTHHTHHTHVJJVJJVJVJJVJJVJTHHTHHTHQEEQEEQEIIUUUUUUVJJVJJVJVJJVJJVJTHHTHH~THTHHTHHTHVJJVJJVJVJJVJJVJTHHTHHTHTHHTHHaICACHCJCOCJCHCJCOCJMAAMAAMAHAAHAAFAC[Y[VA``^]CHCJCOCJ`HbJeO`JMAAMAAMAgAeH`A^A v@@@x@@ v@@@x vI v@@@x@@ v@@@x vI v@@@x@@ v@@@x vI v@@@xx@ v@x@xx vx v@@@x@@ v@@@x vI v@@@x@@ v@@@x vI v@@@x@@ v@@@x vI v@@@xxx vvv@ttss@ v@@@x@@ v@@@x vI v@@@x@@ v@@@x vI v@@@x@@ v@@@x vI v@@@x@@ v@@@xmCAHHFEA OMJMOMJMTQRTnlssqplijl OMJJMTO O OObginnibi OOTTVYge`g HHHHJQOOOTVVTRQMOCCOCCOC OCC OCCOCVVV[V]bVVV[V]b[[[`[bgYYY^Y^`YYY^Y^`XXX]X`dVVV[]bVVV]V[Tv@@@x@@ v@@LZLcLL_'('@àrrr '/,$@+XQRS)pJJJҩbSRQLhYπ.h5Z[ɏ T T` ADJ MOVWZ[ iU0L'ɏTU`TU`VWiXiYiZi[TUҩb (쩀J`Q)JSRQS1(+ Vi0HWihe\i_ViWiS mS S:74.)SȱJJJJmQQ.) ȌQLiSȱ)mQQQ.)(8SH)D%hJJJJ>7 0 i'D"`DƆإHHHHbL#MLxTULe LJ0JAZ[ OP N P >iU ̎7 L 3/JJJ)tu? s[ U̎Ћ L#LɃ `0`08`0e`0ߍTU`0ӭ@0ȌNeO@PT`0 ɏ`DDWJR>@KXYi@A) )?GA@ )?G LUɀ )?DA )? UTU  .)(.)\_(7!+.++&  4+L(JJJJJ) .)( =1  =(8)P()(i7%"=%()(()4+J @J1.JJJJJ}}0L.)= H0)) ҽ  (h)Эhhhh`xrke_ZUPKGC?<852/,*'%#! οzqke_VPg`ZUQLHC?=9439-*(%$! 8 j jFAn0R"zU4w`N8'xpjd^WR2 @5?@ hBhh`$%X$Y%hh8hhp cLc$%@Lc  L_8 j jFAMODULE; W. C. PLUS - 2010; VER. 2016 WAPNIAK - BEZ LG!;INCLUDE "D1:RT.ACT";MIRAGE;INCLUDE "RT2.ACT";INCLUDE "D2:RT*.ACT";INCLUDE "D3:RUNTIME.ACT";INCLUDE "D3:RT_HM.ACT";DZIALA STABILNIE!;^INCLUDE "S.ACT"INCLUDE "PLAYER.ACT"INCLUDE "WG,PROC WG(CHAR ARRAY TX CARD G,I BYTE A,B)CLOSE(2)OPEN(2,TX,A,B)IF A=4 THEN POKE($362,7) ELSE POKE($362,11) FIPOKEC($364,G)POKEC($368,I)[162 32 32 $56 $E4 133 $A3]CLOSE(2)RETURN;WG("D2:WORK.FNT",$9000,$1000,4,128),ND-ST+1)CLOSE(4)RETURN (ST) ޛ;ZERO(Z+768,1280) FIELSE ZERO(53248,8)FI;ZERO(53248,8);PAU()IF STRIG(0)=0 THEN IF W2>49 THEN SETV(0)COMM($40,0,0)FI FA=0 AS()SNDRST()REK() W1=0 W2=0 W3=0FIIF PEEK(53279)=6 THEN IF W2>49 THEN SETV(0)COMM($40,0,0)FI FA=0 AS()SNDRST()REK('#T' '"  ' .'# >'  G'   #%P'^'  $$  l' ' #'' $#' ' !!AA@@@@AA!! '`>>`'x<((H ((8 23 28 8 28 13 18 23 14 14],(5y(.MI22=[1 1T(TQUUf(========x(eYTTTTTUUU(V[o?????TTTTT[o(?????(TTTTTTTT????????(??5544UU(\\4455??(UU\\(44444444) @)@@@,)t\>)???\S@P)15b) UDDt) &&&&jjjjUV)<8>>>>>>::::>d*3 65 65 64 64 128 12L* **)** @e*i**i*i**i*i*ȑ**i*i*ȑ** V*i*i`RRAY GWL:+ 0+2+4+3+1+0+ *6+5+6+5+`+%Lu+ o+`L+`P=[0 3L+++ y++ D+ 7++I +IL+L+ NO DOS FILE!+ l ڧ+ 7++I +IL++ 7+8++++ii++ 7+ y++`LR, |+Lb`PU3=L`,Z,Y,Y, Z,L,Y,)[,Z,Y, 栍\,[,\, \L,© \`YTE ILPXL, , y,,,, D,IL,b wL, b w,,d ,,h V䅣 y`19L----- ` 2L3-/-.-/-.- `LH-T æ:( 8 0-`Lz- L-8  L-8  L- L- L-Dm æDm æDm æDm æDm æDm æEm?( æ`Ly.D æ æ w- -L.Ҡ. E-`L.<(IL. 񦥠)('m)('i*('m)('i+(<(IL3/ 񦥠)(,'m)(-'i*(<'m)(='i+(<(ILs/ 񦥠)(E'm)(F'i*(N'm)(O'i+(<(IL/ 񦥠)(\'m)(]'i*(j'm)(k'i+(<(IL/ 񦥠)('m)('i*('m)('i+(<(IL30 񦥠)('m)('i*('m)('i+(<(ILs0 񦥠)('m)('i*('m)('i+(`255 L{0 t0O(t0N(v000N(O(L$10Q(u0P(w000P(Q(L10P(N( -L0#$0ѩ P(iN( -L0#$0 P(iP(Q(iQ(L0N(iN(O(iO(L0`8 16L,1 %1O(%1N('1S1S1N(O(L1Q(&1P((1u1u1P(Q(L18P(N( -L11 P(iN( -L11 P(iP(Q(iQ(Le1N(iN(O(iO(LC1`36 L1 1O(1N(122N(O(L0221N( -L2%&2 N(iN(O(iO(L1` 1L72 12O(12N(32^2^2N(O(L2 22N( -Ln22k N(iN(O(iO(LN2`22L22222 -L2122232 2i2 -L27 82ũ 2i2 -L27 82 2i2 -L3455563  `0 L3333i3i -LA33> 3i3i -Lg3<=3d `17Lv3r3q3q3ir3i -L3>?3 q3ir3i -L3@A3 `17L3333i3i -L3 3 3i3i -L4BC4 `4 L&4"4!4"4!4 -L?4)****+48 "4i!4 -Lb4/((((04[ "4i!4 -L4/((((04~ "4i!4 -L4,----.4 `ACT"L4 4O(4N(444N(O(L05PQ(4P(455P(Q(L%5OP(N( -L5'5 P(Q(L4N(ЦO(L4`()"5L85 15O(15N(35_5_5N(O(L5hQ(25P(4555P(Q(L5FP(N( -L55 P(Q(Lq5N(ЦO(LO5`9 THL5 5O(5N(555N(O(L.6NQ(5P(566P(Q(L#63P(N( -L696  P(Q(L5N(ЦO(L5`1 FIL66 /6O(/6N(16]6]6N(O(L6=Q(06P(2666P(Q(L6+P(N( -L6S6 P(Q(Lo6N(ЦO(LM6`6L6 6O(6N(666N(O(L,7PQ(6P(666P(Q(L!7PP(N( -L 7Ӡ7  P(Q(L6N(ЦO(L6`COL27.7-7.7-7 -LL7U WY[\7D .7i-7 -Lp7V XZZ]7h `L}7`L7 T/ w`L7>(U>(L7 gIL7 w>(L7`L7>(>(L8 gIL7 w /L7L8Щ gIL8L8>(L7`L8/(Щ w/(iЩ w)()(L8'm)('i-(L(iM(im)(im0(i-( w(m)( (i.(L(iM(im)(im0(i.( w)(L98`L8x0(/(x/(L 9 n 8/(L8`L 9 !:(L|9 :(  æ8:(:( w-)()(Ly9 7)(  8)()(LR9L9`L9/ w} æ v.`L9 !<(ILZ: }9' 4' 1  2 x0'('(L:'m'('i'm'('i 2'(L9' 5' 5  #4 w w w<(IL; }9' )1'( '(L:,'m'(-'i<'m'(='i 2'(Ly: 5 4  5  6  5 5!! 5 4!! 4  6  5 5  4 4' 5 5'" 5 w w w<(IL< }9 E- 4' 5'" )1'" 5# 2  #4 #4  #4  #4  #4  #4 #4  #4  #4 #4 #4  5 !! 5 w w w w<(ILQ= }9 E- )1'  )1' 5 4 42 2 2 36 -L=)****+<  -L=/((((0= ' & 1 wx wĢ w w<(ILW> }9 E-' )1' 5 -L= =  -L= =   5 36  4  4'('(L!>'m'('i'm'('i 2'(L= x0 2 2 w w w<(IL$? }9 E-' 5 /7 /7' )1 ' x0'('(L>'m'('i'm'('i 2'(L> 4' 4 ' 55 wx w w<(IL? }9 E- x0'('(L?'m'('i'm'('i 2'(LF?' 5 /7 /7' 5  #4 " #4 " #4 5 w w w>/ w`L?/(iЩ w3( w)()(L@(m)((i-(L(iM(im0(iiim)(i-( w)(L@`L@/(iЩ w3( w)()(LA(m)((i-(L(iM(im0(iiim)(i-( w)(L@`LA8:(:(/( 8 7(0( 88(,(LA,(LA*(7(LA*(i7(ŮLA+(i8(LA+(i8(ŮLA w<(ILA w,(+(*( s3=( i w- & æW gI LBB(LB8/((@(ŮLB8/((@(iŬLB0(iA(ŮLB0(iA(iŬLBC(B(D(E(LBi w-E(ILB:(ɖLB:(i:( E-W gI LB :(  æ3(LB3( ?`4(LC4( @`L(iM(i 3( ?`L*C6(L8C6(`6(ILHC6(`6(ILXC6(``L\C6m@(Щ w4m@(Щ w2m@(Щ w0m@(Щ w`LCI(I(LDb*mI(c*i)(L(iM(imA(imI(i)( wI(LC YC`L DI(I(LmDz*mI({*i)(L(iM(imA(imI(i)( wI(LD YC`LtDE(LD C`E(ILD D``LDԩ wЩ wϢ wϢ w L(M(>/ wo w`LD1(K1(LD1(`LD/(7(0(8( & æL(iM(i *( i2/(+( i&0( ? )()(LE3( 7 7 73(3( 3( w83(3(3(I LELELE)(L}E3(LF)()(LE 7)(LE83(3(3(3( 3( wLE7(/(8(0(-:(8?(?( w-=( E-`L=F ~7Щ wЩ w ! w w<( D wL(iM(i  wЩ wЩ wx0(0(,(2(3(4(6(9(-:(Ȍ;(=(1(?(@(A(B(ȌC(D(E(F( 9 v.>/ w 8 n 'CM w2( B(L}G 񦥠)()(L}GB( 񦥠@(A(C( 񦥠E(B(ILGA(A( qDB(ILGA(LGL(iM(i B(B(ILH0A(LHD(8C(C('(C(GG'(LH88A(A( qD'(LGB(IL+H0A(L+HD(ȌB(B(ILLHD(ILLHB(D(ȌC(?(ILYHLM:(LqH 1( :(LH,(LH ,( D2(LH82(2(%(m<(&(imG(M=(LOIL(iM(i 9<(<(IL&I<(G(ȐLIG(iG(H(L&IH(iH(-:( 9,(>/ w=( 83(4(2( /ILkI;(8F(F(:(LI;(ILI /LI;(2( A6(ILI3(LI83(3(3( w3(LIЩ wL(iM(i 6(ILJ4(LJ84(4(4( w,(ILCJ 񦥠)()(H(LCJ .,(+(*( 3,(LJ,(LJ1(ILJ8,(,(,(i  Dm,(& æ,(LJ w<(ILJ w D,( D,(ILJ w,(ILJ1(ILJ ,(,(ILK1(ILK,(,(L6K1(I 1(I%L6K,(,(I L6K+(*( 3,( LK,(*(i+(i -LbK K_ *(i+(i -LK K 4(LKЩ wL(iM(i NI LK0/(LK8/(/( 8 NILL/(LL/( 8 NIL$L0(L$L80(0( 8 NI LHL0(ɹLHL0(i0( 8 NI LL0/(LL0(LL8/(/(80(0( 8 NI LL0/(LL0(ɹLL8/(/(0(i0( 8 NILL/(LL0(ɹLL/(0(i0( 8 NILM/(LM0(LM/(80(0( 8 gI!LM !J( gK(I!LM J(J()(I(I(LyM ԭ)()(I(L[M ԭK(ЭI!LMLML/ w3(4(6(7/(<0(O(ȌN(`LtQK(LQ`  æ 0- 0- 'C2( 6(ILQ2(LQ82(2(3(LQ2(L(iM(i M A4(L'R2(L(iM(i M A6(ILNR3(LNR83(3(3( w6(ILuR4(LuR84(4(4( w`LyR6 wi}*ȍ|*`*~*|*i}*it+s+|*i}*i~+}+~*)**~* 栍***p r+ NI(J(K(G(H(M wK(L:S qQN(I O(IL7S/(0(3(4(LGSЩ /LS1J(LmS ],@ r+O(N( :F ! NI(J(K(Щ gILS1J(LS ],@ r+O(N( :F ! NI(J(K(I(I(ILTJ(I(J(ILTI(LT r+Q,P, ],J(LTJ(LR``vR(0(3(4(LGSЩ /LS1J(LmS ],@ r+O(N( :F !) W1=0 W2=0 W3=0FIW1==+1IF W1=250 THEN W2==+1 W1=0 IF W2=28 AND W1=0 THEN COMM(0,0,0) SETV(GRAJ) FI IF W2>250 THEN W2=250 FI FIODRETURN W3=0FIIF PEEK(53279)=6 THEN IF W2>49 THEN SETV(0)COMM($40,0,0)FI FA=0 AS()SNDRST()REK(.ACT";PROC GRAPHICS(BYTE GR)CLOSE (6)OPEN(6,"S:",(GR&$F0)!$1C,GR)RETURNPROC RST(BYTE SU)POK(706)=ST1IF LG=0 OR SU=1 THENPOK(53250)=C+4FOR Q=1 TO 15 DO Q1=GWI(Q) POK(Z+1536+D+6+Q)=Q1 ODELSE;W1=POK(564)W1=POK(564)-50POK(53250)=W1+4;W1=POK(5,65)*2-16W1=POK(565)*2-18IF W1<25 THEN W1=25 FIIF W1>180 THEN W1=180 FIFOR Q=1 TO 15 DO Q1=GWI(Q) ;POKE(Z+1536+D+6+Q,Q1) ODPOK(Z+1536+W1+6+Q)=Q1 ODFIRETURNPROC RST1(BYTE SU)POK(707)=ST1IF LG=0 OR SU=1 THENPOK(53251)=C+4FOR Q=1 TO 15 DO Q1=G,WI(Q) POK(Z+1792+D+6+Q)=Q1 ODELSE;W1=POK(564)W1=POK(564)-49POK(53251)=W1+4;W1=POK(565)*2-16W1=POK(565)*2-18IF W1<25 THEN W1=26 FIIF W1>180 THEN W1=180 FIFOR Q=1 TO 15 DO Q1=GWI(Q);POKE(Z+1792+D+6+Q,Q1) OD POK(Z+1792+W1+6+Q)=Q1 ODFIRETURNPR,OC STRZAL()STR==-1CC=C/4-10 DD=D/8-2IF PR<5 AND PR>0 AND CC>A AND CCB+1 AND DD0 AND C-40>E AND C-40F AND D+1575 THEN P=0 FIRETURNPROC ZAB()SNDRST()IF LG=1 THEN POKEC(560,$9B80) POKE(712,0)IF PLA=3 THEN POKE(712,$90)FIFICC=C DD=D ;CO,LOR=32 PLOT(38,23)SZ(38,23,0)ZERO(Z+1536,510)C=A*4+50 D=B*8+38 RST(1) SOUND(1,0,0,0)FOR Q=0 TO 4 DO ST1=15 DO [173 $D40B 201 103 208 249]ZMKOL()OBJ()SOUND(0,ST1,8,ST1)POKE(706,ST1)ST1==-1IF ST1=9 THEN EXIT FI OD OD WHILE ST1>0 DO ;FOR Q=0 TO ,2 DO[173 $D40B 201 103 208 249]ZMKOL();PAU();OD ST1==-1 SOUND(0,ST1,8,ST1)POKE(706,ST1)OD C=CC D=DD ZERO(ADREKR+880,39)STR=45 ZYC=ZYC-1 RPU() ILP1=0 TYU()RETURNPROC LEV(BYTE X) POKE(708,$06)POKE(709,$B8)POKE(710,$04)POKE(712,0);!POKEC(560,,DLREK+24) ;ZERO(ADREKR+22*40,78);ZERO(ADREKR+23*40,38)ZERO(ADREKR+920,38)ZERO(53248,8)IF X=1 THENTX(20,23,"level{")EE=0;KASOWANIE SPADAJACYCH OBIEKT.W1=PLA1/100W2=PLA1/10 MOD 10W3=PLA1/1 MOD 10IF W2>0 THEN SZ(27,23,W2+36)SZ(28,23,W3+36,)FIIF W1>1 THEN SZ(27,23,W1+36)SZ(28,23,W2+36)SZ(29,23,W3+36)FIIF W1=0 AND W2=0 THEN SZ(27,23,W3+36)FIELSETX(22,23,"theend")FI[96]PROC LEVP()CARD L1 L1=0WHILE K#33 DO [173 $D40B 201 110 208 249];ZMKOL()PAU()L1==+1IF L1=144 THEN EXIT FI,IF LG=0 THENIF STRIG(0)=0 THEN EXIT FIELSE IF STICK(0)=15 THEN DO [173 $D40B 201 110 208 249] PAU() L1==+1 IF L1=144 THEN EXIT FI IF STICK(0)=14 THEN EXIT FI IF K=28 THEN EXIT FI OD EXIT FIFI;TX(22,23,"{")IF K=28 THEN EXIT FIOD K=255,;ZERO(ADREKR+23*40,38)ZERO(ADREKR+920,38)POKE(559,0);UIO()TYU()ERT();U_C()POKE(711,$0B)IF PLA=1 THEN POKE(708,$16)POKE(709,$18)POKE(710,$14)FIIF PLA=2 THEN POKE(708,$06)POKE(709,$08)POKE(710,$F4)FIIF PLA=3 THEN POKE(708,$06)POKE(709,$0,8)POKE(710,$04) POKE(712,$90)FIIF PLA=4 THEN POKE(708,$06)POKE(709,$78)POKE(710,$C4)POKE(712,0)FIIF PLA=5 THEN POKE(708,$06)POKE(709,$08)POKE(710,$F4)FIIF PLA=6 THEN POKE(708,$06)POKE(709,$78)POKE(710,$04)FIIF PLA=7 THEN POKE(708,$16)POKE(7,09,$18)POKE(710,$14)FIIF PLA=8 THEN;POKE(708,$06)POKE(709,$18)POKE(710,$04) POKE(708,$F6)POKE(709,$08)POKE(710,$04)FIPOKE(559,62)[96]PROC AS()GR()POKE(756,144)PLA1=1POKE(559,62)LEV(1)POKE(53248,0)POKE(53249,0)SNDRST()POKE(707,0)POKE(70,6,0)PLA=1 ;PLA=2;PLA=8DUCH()ZERO(Z+768,1280);POKE(711,$0D)POKE(53248,0)POKE(53249,0)D=120;CEL() D=0 PR=5 GL=0 ST1=0 ST2=0 ZW=0 STR=45 STT=1 ILP1=0 P=0 PU1=0 PU2=0 PU3=0 PU4=0ZYC=2 PU5=0 E=0 F=0 EE=0 FF=1 E1=0 PU6=0 RE=0 OP=245LGM=0RYSP()LE,VP()ERT()POKEC(560,$9B80)POCZ()IF DIF=2 THEN ILPX=5 CZP=5 FIIF DIF=3 THEN ILPX=10 CZP=7 FIIF DIF=4 THEN ILPX=15 CZP=9 FIDOQWE()POKE(77,0)SOUND(0,10,8,GL)[173 $D40B 201 100 208 249]G8=1;G7=$F; !!!!!! ^^^[173 $D40B 201 103 208 249]ZMKOL,fffTQUU========eYTTTTTUUU?V[o?????TTTTT[o?????TTTTTTTT??????????5577UU]]]7555??%UUU]]W77777777 @ @@@ $t\???\S@?16 UDD &&&&jjjjUV@@0$3fVeUUURqYUUUJI*%&%UYeUWRRqUUUUUJIzk5Yw3???3????<<<<<48 THEN C==-1 CEL()FIIF STICK(0)=7 AND C<193 THEN C==+1 CEL()FIIF STICK(0)=14 AND D>30 THEN D==-2 CEL()FIIF STICK(0)=13 AND D<185 THEN D==+2 CEL()FIIF STICK(0)=10 AND C>48 AND D>30 THEN C==-1 D==-2 CEL(),FIIF STICK(0)=9 AND C>48 AND D<185 THEN C==-1 D==+2 CEL()FIIF STICK(0)=5 AND C<193 AND D<185 THEN C==+1 D==+2 CEL()FIIF STICK(0)=6 AND C<193 AND D>30 THEN C==+1 D==-2 CEL()FIFI;ELSE;ZERO(Z+1026+D,26)ZERO(Z+1282+D,26);C=POK(564);-6;IF C>197 THEN ,C=197 FI ;D=POK(565)+22-6;D=POK(565)*2+22-6;IF D>185 THEN D=185 FI;CEL()FIIF EE=0 THEN Q=RAND(0)IF Q=0 THEN EE=1 E=RAND(140)F=10 FF=1 RE=RAND(2)FI FIOBJ()IF ZYC=255 THEN LEV(2)LEVP()EXIT FIIF STR<7 THEN SOUND(2,P,10,1)FIIF STR=0 AND PR<5 THEN, SOUND(2,0,0,0)PR=6 ZAB()ST1=0 ST2=0 GL=0 STT=1SNDRST()FIIF GL>0 THEN GL==-1 FIIF ILP(PLA)+ILPX=ILP1 THEN [173 $D40B 201 110 208 249];****;ZMKOL()PUR()ZERO(Z+1024,1020)PLA==+1 IF PLA=9 THEN PLA=1 IF ILPX<200 THEN ILPX==+5 FI IF CZP<240 TH,EN CZP==+2 FIFIPLA1==+1STR=45 LEV(1)RYSP()PR=5;POKE(559,62)ILP1=0 LEVP()POKEC(560,$9B80)POCZ()ST1=0 ST2=0 GL=0 FIIF PR=0 THEN POK(712)=0 IF PLA=3 THEN POK(712)=$90 FI ZAB()PR=6 FI WER()IF PR=1 THEN ;IF LG=1 AND LGM=1 THEN POK(7,12)=3 FIIF LG=0 THEN IF STRIG(0)=1 THEN STT=1 OP==-5 FI IF STR>0 AND STT=1 AND STRIG(0)=0 THEN STT=0 GL=15 STRZAL()FIELSE IF STICK(0)=14 THEN STT=1 OP==-5 LGM=0 FI;IF STR>0 AND STT=1 AND STICK(0)=15 IF STR>0 AND STT=1 AND LGM=1 THEN STT=0, GL=15;STRZAL() LGM=0 ;U_C() [173 $D40B 201 110 208 249];*** PAU() PAU() C=POK(564)-49 IF C>197 THEN C=197 FI D=POK(565)*2-19 IF D<30 THEN D=30 FI IF D>175 THEN D=175 FI STRZAL() [173 $D40B 201 110 208 249];**** POKEC(560,$9,B80) POK(712)=0 IF PLA=3 THEN POK(712)=$90 FI;[173 $D40B 201 110 208 249];PAU();NIE RYSUJE CELOWNIKA; ZERO(Z+1026+D,26)ZERO(Z+1282+D,26) ;C=POK(564);-6; C=POK(564)-49; IF C>197 THEN C=197 FI ;MIKER: ;C=POK(564)-48 ;IF C<48 THEN C=4,8 FI ; C=POK(564)*2-48 ;D=POK(565)+22-6 ;D=POK(565)*2+22-6 ;D=POK(565)*2+22-6-8-24 ;D=POK(565)*2-16; D=POK(565)*2-19; IF D<30 THEN D=30 FI; IF D>175 THEN D=175 FI; CEL(); STRZAL() FI IF STR>0 AND STT=1 AND STICK(0)=15 AND LGM=,0 THEN LGM=1 POKEC(560,DLREK+21); POK(708)=15 POK(709)=15 POK(710)=15 POK(711)=15 IF PLA=3 THEN POK(712)=$9F ELSE POK(712)=15 FI; [173 $D40B 201 50 208 249];G7=$8 PAU()G7=0; [173 $D40B 201 110 208 249] FIFIIF ZW=1 AND ST1>0 THEN ST1==,-1 POK(706)=ST1 FIIF ST1=0 THEN POK(53250)=0 ZERO(Z+1536,$FF)FIIF ZW=1 AND ST2>0 THEN ST2==-1 POK(707)=ST2 FIIF PR=5 THEN Q=RAND(0) ;IF Q<5 THEN RTY()PR=3 PRZ1(A,B)FI IF Q0 AND PR<4 AND P=1 THEN PR==-1 ,SOUND(1,PR+5,10,2);COLOR=68+PR PLOT(38,23)SZ(38,23,36+PR)FI ;IF PR=0 AND LG=0 THEN POK(712)=0 ; IF PLA=3 THEN POK(712)=$90 FI ; ZAB()PR=6 FI WER() ;IF PR=1 THEN POK(712)=3 FIIF PR=6 AND P=1 THEN PR=11 FIIF PR=7 AND P=1 THEN ;PRZ3(A,B) PR=8 ,FIIF PR>7 AND (P=1 OR P=37) THEN PR==+1 IF PR=10 THEN PRZ3(A,B)FI FIIF PR>=11 THEN PR=5 TX(A+1,B+1,"") IF POK(ADREKR+A+3+B*40+80)=27 THEN TX(A+1,B+2,"") ELSE TX(A+1,B+2,"")FI FIIF ST2=0 THEN POK(53251)=0 ZERO(Z+1792,$FF)FIIF K=33 THEN ,SNDRST()K=255 W2=0 W3=PEEK(710) DO W2==+1 Q=W2 [173 $D40B 201 15 208 249];**** W1=0 DO Q==+2 G8=1 G9=Q W1==+1 IF W1=86 THEN EXIT FI G8=1 OD G8=1 G9=W3 ZMKOL() IF K<>255 THEN K=255 EXIT FI OD ELSEIF K=28 THEN K=255 EXITFIODRETURNPROC ASD(,)IF FA=1 THEN C==+12 IF C>180 THEN FA=2 FI FIIF FA=2 THEN C==-12 D==+14 IF D>190 THEN C=55 D=60 FA=3 W3=1 POK(53250)=0 POK(53251)=0 ;ZERO(Z+768,1280) ZERO(Z+768+768,512)FI FIIF FA=3 THEN POK(706)=0 POK(53248)=0 POK(53249)=0FOR X=0 TO 155 ,DO PAU_R() OD FA=1 FIRETURNPROC REK()GRAPHICS(13+16)ZERO(53248,8)DUCH()ADREKR=PEEKC(88)POKE(756,144);POKE(711,$26)POKE(711,$36)POKE(708,$98)POKE(709,$0A)POKE(559,0)TX(4,0,"")TX(4,1,",")TX(4,2,"")TX(4,3,"")TX(4,4,"")TX(7,5,"")TX(7,6,"")TX(7,7,"")TX(7,8,",")TX(7,9,"")TX(3,10,"%-,-|&$%*code{tdcmsx{miker")TX(7,11,"thankstoatarionline`pl")POKEC(560,DLREK)POKE(559,62)ST1=0 ST2=0 ZW=0 C=55 D=60 FA=1RETURNPROC EWQ()IF ST1=0 THEN ST1=15 RST(1) RETURN FIIF ST2=0 ,THEN ST2=15 RST1(1) RETURN FIZERO(Z+1535,$FF)ST1=15 RST(1)[96]PROC PRE1()IF W3>0 THEN RETURN FI;COLOR=32 PLOT(0,0)DR(0,0)DR(0,0)FOR XX=0 TO 8 DO SZ(0,0,0)ODQWE()SOUND(0,15,8,GL)IF ZW=1 AND GL>0 THEN GL==-1 FIIF ST1=0 THEN GL=15 ZERO(Z+1535,,255)ASD()EWQ()FIIF ST2=0 THEN GL=15 ZERO(Z+1792,255)ASD() EWQ()FIIF ZW=1 AND ST1>0 THEN ST1==-1 POKE(706,ST1)FIIF ZW=1 AND ST2>0 THEN ST2==-1 POKE(707,ST2)FIRETURNPROC PRE()POKE(566,158);BREAK POKE(106,160) WG("D1:WCITY.FNT",$9000,$400,4,128,) ADRREP=DOS("D:WCITY.REP") ADRMUS=DOS("D:WCITY.CMC");WG("D1:WCITY.REP",$69C8-6,$2024,4,128);WG("D1:WCITY.CMC",$6000-6,$9C8,4,128);BREAK();ADRREP=$69C8 ADRMUS=$6000 ADRREP=$8000 ADRMUS=$7638 COMM=ADRREP+3 TAKT=ADRREP+6 ABC=ADRMUS AND $FF ,BCD=ADRMUS RSH 8 COMM($70,ABC,BCD)REK()KON=0 LG=0 DIF=1W1=0 W2=0 W3=0DOILPX=0 CZP=3POKE(77,0)IF W3=0 THEN PRE1()IF FA=3 THEN C=0 D=0 ST1=0 ST2=0 FI ELSE ZERO(53248,8)FI;IF STRIG(0)=0 OR (LG=1 AND STICK(0)=15) THEN IF STRIG(0)=0 THEN IF, W2>27 THEN ; [173 $D40B 201 0 208 249] SETV(0)COMM($40,0,0)FI FA=0 AS()SNDRST()REK() W1=0 W2=0 W3=0FIIF KK=6 THEN IF W2>27 THEN ; [173 $D40B 201 0 208 249] SETV(0)COMM($40,0,0)FI FA=0 AS()SNDRST()REK() W1=0 W2=0 W3=0FIIF KK=7 THEN KO-xMODULE; W. C. PLUS - 2010; SAME ZMIENNE I PIERWSZE PROC.BYTE ARRAY MI1=[1 8 15 22 1 8 15 22 29],MI2=[1 1 1 1 8 8 8 8 9],MI21=[0 35 9 14 19 279 27 15 19 20 34 37 0],MI22=[1 1 1 1 1 1 5 5 13 13 13 12 12 0],;MI21=[0 35 8 13 18 23 28 ;8 H28 13 18 23 14 14],;MI22=[1 1 1 1 1 1 1 ;5 5 14 14 14 10 10],MI31=[35 35 35 35 35 4 10 14 20 24 30 6 7 8 9 25 26 27 28 12 13 14 16 17 19 20 21 22 1],MI32=[2 2 2 2 2 10 6 2 2 6 10 6 6 6 6 6 6 6 6 2 2 2 2 2 2 2 2 2 1],MI41=[14H 22 12 13 14 16 17 18 20 22 24 25 26 1 2 3 4 5 7 9 28 29 31 32 33 34 35 36 37],MI42=[6 6 1 1 1 1 1 1 1 1 1 1 1 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8],MI51=[1 6 1 6 13 18 13 18 25 30 25 30 37 37 8 13 18 23 33],MI52=[1 1 5 5 1 1 5 5 H 1 1 5 5 1 5 11 11 11 11 11],MI61=[2 7 12 18 25 30 35 5 29],MI62=[1 1 1 1 1 1 1 17 17],MI71=[1 8 15 15 8 1 32 23 33 34 35 36 27 28 29 30 313612 17 22 29 35 18 20 34 36 35 14 33 0 0 1 2 36],MI72=[1 1 1 7 7 7 17 17 6 6 6 6 10 10 10H 10 1011 1 1 1 1 9 9 9 9 9 17 17 9 9 9 9 10] BYTE ARRAY CEL1=[0 0 3 13 17 17 33 33 65 65 64 64 128 128 248 248 128 128 64 64 65 65 33 33 17 17 13 3 0 0]BYTE ARRAY CEL2=[0 0 128 96 16 16 8 8 4 4 4 4 2 2 62 62 2 2 4 4 4 4 8 8 16 16 96 128 0H 0]BYTE ARRAY GWI=[16 16 16 17 26 26 28 252 120 60 31 28 40 40 72 8];BYTE ARRAY ILP=[0 3 3 3 2 3 3 3 57 $F];BYTE ARRAY ILP=[0 1 2 3 4 5 6 7 8 $F] BYTE ARRAY ILP=[0 1 1 1 1 1 1 1 1 $F];BYTE ARRAY ILP=[0 15 16 17 18 19 20 21 22 $F]BYTE X,Y,Q,A,B,PR,HQ1,Q2,C,D,P,GL,ST1,ST2,ST3,ZW,CC,DD,STR,STT,PLA,ILP1,XX,PU1=1536,PU2=1537,PU3=1538,PU4=1539,PU5=1540,PU6=1541,ZYC,E,F,EE,FF,E1,RE,OPBYTE ILPX,CZP,W1,W2,W3,G9=53272,G8=$D40A,G7=53274,G6=53273,G5=53271,G4=53270BYTE K=764,KK=53279CARD Z,FA,FB,FC,DL=56H0,ADREKR,QQBYTE ARRAY POK=0BYTE ARRAY SAK=[0 0 4 22 60 56 26 4 24 0 24 60 108 70 94 198 246 246 246 198 238 250 100 56 0 0],SAK1=[0 0 8 28 28 62 62 62 0 62 62 62 62 58 58 58 58 62 0 127 0 0];BYTE ARRAY DLREK=[112 112 112 68 160 155 BYTE ARRAY DLREHK=[112 112 112 69 128 157 5 5 5 5 112 5 5 5 5 5 112 112 4 112 4 65 0 0112 112 112 112 112 112 112 112 112 112 112 112 112 69 $3D $9F 65 0 0]BYTE PLA1,KON,LG,DIF,LGMCARD ADRREP,ADRMUS,VVBLKD=$224BYTE CON=$D01F,ABC,BCD;INCLUDE "PLAYER.ACT";INCLHUDE "WG.ACT";PROC DR(BYTE X,Y)DRAWTO(X,Y)RETURN;PROC TX(BYTE X,Y CHAR ARRAY T)BYTE Q1,Q2,Q3 Q3=T(0)FOR Q1=1 TO Q3 DO Q2=T(Q1)POKE(ADREKR+X+Y*40+Q1-1,Q2)OD RETURNPROC TX(BYTE X,Y BYTE ARRAY T)BYTE Q1 CARD Q3,Q4 Q1=T(0)Q3=ADREKR+X+Y*40 Q4=PEEKC(@ T)MOHVEBLOCK(Q3,Q4+1,Q1)[96]PROC SZ(BYTE X,Y,W)POK(ADREKR+X+Y*40)=W[96]PROC TYU();COLOR=84 PLOT(1,22)DR(STR/4-1,22) ;POK(QQ+STR/4)=0IF STR>3 THENSETBLOCK(ADREKR+1+880,STR/4-1,52)FI ;22*40=880RETURNPROC RPU()IF PU1>9 THEN PU1==-10 HPU2==+1 FI IF PU2>9 THEN PU2==-10 PU3==+1 FI IF PU3>9 THEN IF PU1>9 THEN PU1==-10 FI IF PU2>9 THEN PU2==-10 FI PU3=0 PU4==+1 FIIF PU4>9 THEN PU1=0 PU2=0 PU3=0 PU4=0 PU5==+1 FIIF PU5>9 THEN PU1=0 PU2=0 PU3=0 PU4=0 PU5=0 PU6==+1 FI QQ=ADREKR+920;HSZ(11,23,36+PU1) POK(QQ+11)=36+PU1;SZ(10,23,36+PU2) POK(QQ+10)=36+PU2;SZ(9,23,36+PU3) POK(QQ+9)=36+PU3;SZ(8,23,36+PU4) POK(QQ+8)=36+PU4;SZ(7,23,36+PU5) POK(QQ+7)=36+PU5;SZ(6,23,36+PU6) POK(QQ+6)=36+PU6;SZ(22,23,36+ZYC);+1 POK(QQ+22)=36+ZYCHRETURNPROC ERT();ZERO(ADREKR+22*40,78);COLOR=68 PLOT(12,23)PLOT(13,23)SZ(12,23,36)SZ(13,23,36)RPU()TX(0,23,"")TX(16,23,"lives")TX(33,23,"time")TYU()RETURNPROC RTY()IF PLA=1 THEN Q=RAND(9)A=MI1(Q)B=MI2(Q);ELSEIF PLA=2 THEN Q=RAND(12)A=MI2H1(Q)B=MI22(Q)ELSEIF PLA=2 THEN Q=RAND(13)A=MI21(Q)B=MI22(Q);ELSEIF PLA=3 THEN Q=RAND(7)A=MI31(Q)B=MI32(Q)ELSEIF PLA=3 THEN Q=RAND(28)A=MI31(Q)B=MI32(Q);ELSEIF PLA=4 THEN Q=RAND(12)A=MI41(Q)B=MI42(Q)ELSEIF PLA=4 THEN Q=RAND(29)A=MI41(Q)B=MI42(Q)ELSHEIF PLA=5 THEN Q=RAND(19)A=MI51(Q)B=MI52(Q)ELSEIF PLA=6 THEN Q=RAND(9)A=MI61(Q)B=MI62(Q);ELSEIF PLA=7 THEN Q=RAND(13)A=MI71(Q)B=MI72(Q)ELSEIF PLA=7 THEN Q=RAND(17)A=MI71(Q)B=MI72(Q)ELSEIF PLA=8 THEN Q=RAND(16)A=MI71(Q+18)B=MI72(Q+18)FIRETURNPROC HMUREK(BYTE A,B,MA,MB,T)QQ=B*40; Z WL. ATRYBUTEMIF T=1 OR T=5 THEN FOR FA=A TO MA STEP 2 DO FOR FB=B TO MB STEP 2 DOIF T=1 THEN TX(FA,FB,"")TX(FA,FB+1,"")ELSE TX(FA,FB,"")TX(FA,FB+1,"")FIOD ODELSE FOR FB=B TO MB STEP 2 DO FOR FA=A TO MA SHTEP 2 DO IF T=2 THEN POK(ADREKR+FA+QQ)=69 POK(ADREKR+FA+QQ+1)=70 POK(ADREKR+FA+QQ+40)=70 POK(ADREKR+FA+QQ+41)=69ELSEIF T=3 THEN POK(ADREKR+FA+QQ)=65 POK(ADREKR+FA+QQ+1)=66 POK(ADREKR+FA+QQ+40)=65 POK(ADREKR+FA+QQ+41)=66ELSEIF T=4 THEN POK(ADREKR+FA+QHQ)=67 POK(ADREKR+FA+QQ+1)=68 POK(ADREKR+FA+QQ+40)=68 POK(ADREKR+FA+QQ+41)=67 FIOD QQ==+80 OD FI[96]PROC KRA(BYTE A,B,MA,T)FOR FA=A TO MA STEP 2 DOIF T=0 THEN TX(FA,B,"")ELSE TX(FA,B,"");RYS. KRAWE. Z 5 ATRYBUTEMFIODRETURNPROC OKNO(BYTE A,B,HT)IF T=1 THEN TX(A,B,"")TX(A,B+1,"")TX(A,B+2,"")TX(A,B+3,"")ELSEIF T=2 THEN TX(A,B,"UVVVW")TX(A,B+1,"[\")TX(A,B+2,"[\")TX(A,B+3,"XVVVZ")ELSEIF T=3 THEN TX(A,B,"JKKKL")TX(A,B+1,"PQ")TX(A,B+2,"PQ")TX(A,B+3,"RNNNS")ELSEIHF T=4 THEN TX(A,B+1,"PQ")TX(A,B+2,"PQ")TX(A,B+3,"PQ")TX(A,B+4,"MKKKO")FIRETURNPROC PRZ1(BYTE X,Y)TX(X+1,Y+1,"")TX(X+1,Y+2,"")[96]PROC PRZ2(BYTE X,Y)TX(X+1,Y+1,"")TX(X+1,Y+2," !")[96]PROC PRZ3(BYTE X,Y)TX(X+1,Y+1,"")SZ(X+1,Y+2,3H4)IF POK(ADREKR+X+3+Y*40+80)=0 THENTX(X+2,Y+2,"#")ELSETX(X+2,Y+2,"#")FI[96]PROC FIL(BYTE A,B,MA,MB,KOL)QQ=B*40FOR FB=B TO MB DOFOR FA=A TO MA DO POK(ADREKR+FA+QQ)=KOLOD QQ==+40OD[96]PROC PUD(BYTE A,B)TX(A,B," ")TX(A,B+1,"")TXH(A,B+2,"")TX(A,B+3," ")RETURNPROC PLO(BYTE A,B,MA,MB)FIL(A,B,MA,MB,7);SZ(FA,FB,7)OD ODRETURNPROC PLO1(BYTE A,B,MA,MB);PLOT + 5 ATRYB.FIL(A,B,MA,MB,135)RETURNPROC ZAM(BYTE A,B,MA,MB)FIL(A,B,MA,MB,25)RETURNPROC ZAM2(BYTE A,B,MA,MB)HFIL(A,B,MA,MB,51)RETURNPROC ZAM21(BYTE A,B,MA,MB);SCHODKI + 5 ATR.FIL(A,B,MA,MB,179)RETURNPROC WLAZ(BYTE A,B)TX(A,B,"579;<")TX(A,B+1,"68::=")RETURNPROC TR1(BYTE W)W1=RAND(POK($9401))+POK($9402) W2=RAND(4)+POK($9403)SZ(W1,W2,W)[96]PROCI TR2()W1=RAND(POK($9401))+POK($9402) W2=RAND(POK($9403))+POK($9404)[96]PROC TRAWKA(BYTE A,B,MA,MB,X)FIL(A,B,MA,MB,73)POK($9401)=MA-A+1 POK($9402)=A POK($9403)=BFOR Q=0 TO 40 DO IF X>0 THEN TR1(27)FI TR1(30)TR1(34)ODFOR Q=0 TO 40 DOTR1();POK(ADIREKR+W1+W2*40)=54SZ(W1,W2,54)TR1();POK(ADREKR+W1+W2*40)=63SZ(W1,W2,63)ODPOK($9401)=MA-A+1 POK($9402)=A POK($9403)=B+3FOR Q=0 TO 40 DO;W1=RAND(MA-A)+A W2=RAND(4)+B+3TR1();POK(ADREKR+W1+W2*40)=53SZ(W1,W2,53)IF X>0 THENTR1();POK(ADREKR+W1+WI2*40)=72SZ(W1,W2,72)FIODFOR Q=0 TO 60 DOTR1();POK(ADREKR+W1+W2*40)=32SZ(W1,W2,32)ODPOK($9401)=MA-A+1 POK($9402)=A POK($9403)=MB-B POK($9404)=BFOR Q=0 TO A DOTR2();POK(ADREKR+W1+W2*40)=63SZ(W1,W2,63)IF X>0 THENTR2();POK(ADREKR+W1+W2*40)I=71SZ(W1,W2,71)TR2();POK(ADREKR+W1+W2*40)=72SZ(W1,W2,72)TR2();POK(ADREKR+W1+W2*40)=64SZ(W1,W2,64)TR2();POK(ADREKR+W1+W2*40)=35SZ(W1,W2,35)TR2();POK(ADREKR+W1+W2*40)=31SZ(W1,W2,31)TR2();POK(ADREKR+W1+W2*40)=26SZ(W1,W2,26)TR2();POK(ADREIKR+W1+W2*40)=27SZ(W1,W2,27)TR2();POK(ADREKR+W1+W2*40)=29SZ(W1,W2,29)FITR2();POK(ADREKR+W1+W2*40)=30SZ(W1,W2,30)TR2();POK(ADREKR+W1+W2*40)=54SZ(W1,W2,54)ODFOR Q=0 TO X DO;POK(ADREKR+W1+W2*40)=64;IF RAND(50)>25 THENIF PEEK($D20A)>128 TIHENTR2();POK(ADREKR+W1+W2*40)=64SZ(W1,W2,64)TR2();POK(ADREKR+W1+W2*40)=68SZ(W1,W2,68)TR2();POK(ADREKR+W1+W2*40)=62SZ(W1,W2,62)TR2();POK(ADREKR+W1+W2*40)=65SZ(W1,W2,65)FIOD[96]PROC GR()GRAPHICS(12+16);POKE(559,0)ADREKR=PEEKC(88)RETURINPROC PAU()FOR XX=0 TO 85 DO IF PEEK(764)=27 THEN POK(764)=255;POKE(704,5)POKE(705,5)FI OD RETURNPROC PAU_R();FOR XX=0 TO 85 DO FOR XX=0 TO 30 DO IF PEEK(764)=28 THEN POK(764)=255;POKE(704,5)POKE(705,5);BREAK()FI IF STRIG(0)=0 THEN EXIT IFIIF KK=6 THEN EXIT FIODRETURNPROC CEL()POK(53248)=C POK(53249)=C+8FOR Q=0 TO 29 DO Q1=CEL1(Q)POK(Z+1024+Q+D)=Q1 Q2=CEL2(Q)POK(Z+1280+Q+D)=Q2 ODRETURNPROC ZMKOL()G8=1;G8=1G9=$14 ;710;G7=0 ;712; ^^^ !!!!!!!!!!!!!!!G6=$0B ;711G5=$18 ;709GI MODULE SET 712=5PROC TX(BYTE X,Y CHAR ARRAY T)BYTE Q1,Q2,Q3 Q3=T(0)FOR Q1=1 TO Q3 DO Q2=T(Q1)POKE(39840+X+Y*40+Q1-1,Q2)OD RETURNPROC FILL(BYTE X,Y,X1,Y1,CO)BYTE Q1,Q2 FOR Q1=X TO X+X1 DO FOR Q2=Y TO Y+Y1 DO POKE(39840+Q1+Q2*40,CO)OD OD RETURNPROC 1 KPLA()FOR Q1=0 TO 10 DO KOZ(Q1)=0 ODIF PLA=4 THEN GR()WEK1=PEEKC(@ OK1)WEK2=PEEKC(@ PPLG4)MOVEBLOCK(WEK1,WEK2,48)FILL(0,14,39,4,46)FILL(0,0,6,14,45)FILL(34,0,5,14,113)FILL(7,0,0,10,120)TX(0,0,"tuuutuuv")TX(7,3,"w")TX(7,7,"w")TX(7,11,"w")1 TX(7,12,"y")TX(7,13,"z")FOR Q1=0 TO 38 STEP 3 DO HOD(Q1,15)OD FOR Q1=0 TO 38 STEP 3 DO HOD(Q1,16)ODFOR Q1=0 TO 38 STEP 3 DO HOD(Q1,17)OD FOR Q1=0 TO 38 STEP 3 DO HOD(Q1,18)OD TX(39,15,"H")TX(39,16,"H")TX(39,17,"H")TX(39,18,"H")SKR(8,12,5)SKR(12,12,11 13)SKR(16,12,5)SKR(20,12,5)SKR(24,12,5)SKR(11,8,5)SKR(15,8,5)SKR(19,8,5)SKR(14,4,113)SKR(29,12,5)R Q1=0 TO 38 STEP 3 DO HOD(Q1,17)OD FOR Q1=0 TO 38 STEP 3 DO HOD(Q1,18)OD TX(39,15,"H")TX(39,16,"H")TX(39,17,"H")TX(39,18,"H")SKR(8,12,5)SKR(12,12,10h4=$16 ;708[173 $D40B 201 107 208 249]G8=1 G8=1G6=$8BG5=$B8[96]PROC POCZ()IF LG=0 THEND=120 FOR C=0 TO 120 DO [173 $D40B 201 103 208 249]ZMKOL();PAU()PAU()IF K=33 OR K=28 THEN C=120 K=255 CEL()EXIT FICEL()OD FIRETURNPROC SA1()POK(53252)=I 54+E POK(53253)=52+E POK(53254)=50+E POK(53255)=48+E[96]PROC SAKIEWKA()IF RE=0 THEN;SA2()SA1()FOR W1=0 TO 25 DO Q=SAK(W1)POK(Z+768+F+W1)=Q ODELSE;RE=1;SA3()SA1()FOR W1=0 TO 21 DO Q=SAK1(W1)POK(Z+768+F+W1)=Q ODFI[96]PROC OBJ()IF EE=1 THENI F==+2 IF LG=1 AND PLA1>7 THEN F==+1 POK(Z+768+F-1)=0 FI SAKIEWKA()FI;IF EE=1 AND F>186 THEN ZERO(Z+768+186,26)EE=0 FIIF EE=1 AND F>203 THEN ZERO(Z+768+203,27)EE=0 FIIF EE=2 AND F>48 THEN E1==+1 FF==-1 FOR X=0 TO FF DO F==-1 SAKIEWKA()OD FIIF EE=I2 AND F<=48 THEN E1=0 EE=1 FIIF EE=2 AND E1=4 THEN EE=1 E1=0 FF=1 FIIF EE>0 THEN;ZERO(Z+768+200,26)ZERO(Z+968,27);W LG=1 26+1;SETBLOCK(Z+768+6,26,255)ZERO(Z+774,26)FI[96]PROC PUR()SNDRST()WHILE STR>0 DO IF K=255 THEN [173 $D40B 201 103 2I08 249]ZMKOL()FI;COLOR=32 ;IF EE=0 THEN POK(QQ+STR/4)=0;SZ(STR/4,22,0);PLOT(STR/4,22);ELSE POK(QQ+STR/4)=0 FIQQ=ADREKR+880POK(QQ+STR/4)=0STR==-1PU1==+1;PU1==+2 PU2==+1 SOUND(0,25,10,15)OBJ()RPU()IF K=255 THEN SOUND(0,25,10,10) [173 $D40BI 201 103 208 249]ZMKOL() OBJ()FISOUND(0,25,10,5);Q=15 WHILE Q>0 DO PAU()SOUND(0,25,10,Q)Q==-5 OD;IF K=28 OR K=33 THEN SNDRST()K=255 EXIT FIODSNDRST()K=255RETURNPROC UIO();ZERO(ADREKR,23*40)ZERO(ADREKR,920)RETURNPROC RYSP()SNDRST()ZERO(IZ+768,1280);ZERO(53248,8)UIO()IF PLA=1 THEN PLO(30,0,39,19)KRA(0,20,39,0)MUREK(0,0,29,15,5) FOR Q=0 TO 55 DO W1=RAND(15)*2 W2=RAND(16) SZ(W1,W2,69); POK(ADREKR+W1+W2*40)=69 W1=RAND(15)*2 W2=RAND(16) SZ(W1+1,W2,70);POK(ADREKR+W1+W2*40+1)=7I0 ODFOR X=0 TO 7 DO OKNO(MI1(X),MI2(X),1)OD ZAM(0,16,39,19) ZAM(30,15,39,19)PUD(30,12);POK(ADREKR+0+3*40)=69 POK(ADREKR+0+9*40)=70 TX(30,9,"]]]^")TX(30,10,"_")TX(30,11,"_")FIIF PLA=2 THEN ;TRAWKA(0,8,39,20,1)TRAWKA(0,10,39,20,1)MUREK(0I,0,13,14,4)MUREK(13,0,39,13,4)MUREK(14,11,26,12,3)OKNO(24,1,3)FOR X=0 TO 1 DO OKNO(MI21(X),MI22(X),1)OD ZAM(13,5,27,5);FOR X=2 TO 11 DO OKNO(MI21(X),MI22(X),3)ODFOR X=2 TO 8 DO OKNO(MI21(X),MI22(X),3)ODOKNO(9,4,4)OKNO(27,4,4)OKNO(14,13,3)OKNO(19,I13,3);POLOWICZNE OKNO:OKNO(24,13,3)SZ(26,1,76)SZ(26,2,81)SZ(26,3,81)SZ(26,4,83);ZAM(14,5,25,5) FIL(14,5,26,5,78) PLO(15,6,25,8) ;ZAM(13,9,27,9) FIL(9,9,13,16,64);SCHODY1 ZAM(7,0,33,0);SUFIT ZAM(8,5,8,16)ZAM(32,5,32,16)PLO(8,13,8,15) PLO(I32,13,32,15) FIL(27,9,31,16,64);SCHODY2 ZAM(14,6,14,16)ZAM(26,6,26,17) PLO(14,13,14,15)PLO(26,13,26,15);ZAM(0,18,33,21) ZAM(0,17,33,20) ZAM(0,15,6,18) SZ(8,12,51)SZ(14,12,51)SZ(26,12,51)SZ(32,12,51) SZ(8,17,51)SZ(14,17,51)SZ(26,17,51)SZ(32,17,51I  >ff> ( ck>6 ~ 0~ ~x|nf8xD) SZ(7,17,51)SZ(33,17,51) SZ(15,17,51)SZ(25,17,51) SZ(33,16,25)SZ(7,16,25) SZ(15,12,78)SZ(25,12,78) SZ(15,16,25)SZ(25,16,25) PLO(15,13,15,15)PLO(25,13,25,15) FIL(15,9,25,10,119) FIL(7,8,7,15,119) FIL(33,8,33,15,119) FIL(34,9,34,20,16);OIKNA SZATNI: FIL(35,13,39,14,0) FIL(37,13,37,14,91);KRAW.: FIL(35,15,39,15,6) SZ(38,15,5)FIIF PLA=3 THEN ;FOR X=0 TO 27 DO OKNO(MI31(X),MI32(X),1)ODMUREK(0,0,3,14,5)ZAM(0,15,39,20)MUREK(34,0,39,16,2) ZAM(34,17,39,18)OKNO(35,2,1)PUD(4,13I)PUD(10,13)PUD(16,13)PUD(22,13)PUD(28,13)PUD(7,9)PUD(13,9)PUD(19,9)PUD(25,9)PUD(13,5)PUD(19,5)ZAM(4,0,4,12)ZAM(33,0,33,12)FIIF PLA=4 THEN;FOR X=0 TO 29 DO OKNO(MI41(X),MI42(X),1)ODMUREK(0,11,10,14,3)MUREK(29,11,39,14,3)MUREK(29,11,30,14,5)TRAWKAI(0,14,39,20,3)PLO(12,5,28,15)KRA(12,4,29,1)OKNO(14,6,1)OKNO(22,6,1)ZAM2(0,19,2,19)TX(32,19," ")TX(32,20,"")KRA(38,13,39,0)FIIF PLA=5 THENTRAWKA(0,14,39,20,1);TX(0,18,"")TX(0,19,"")FIL(0,18,1,20,0)POK($9401)=2 POK($9402)=0 IPOK($9403)=RAND(5)+13TR1(30)POK($9403)=RAND(5)+13TR1(34)POK($9403)=RAND(5)+13TR1(54)POK($9403)=RAND(5)+13TR1(63)MUREK(0,0,39,17,3)ZAM(6,10,29,18)ZAM2(6,18,29,18)PLO(6,13,6,15)PLO(29,13,29,15)FOR X=0 TO 18 DO OKNO(MI51(X),MI52(X),2)OD MUREK(0,0,I0,16,5)OKNO(1,1,2)OKNO(1,5,2)FIIF PLA=6 THENZAM(0,17,39,20)WLAZ(5,18)WLAZ(29,18)FIL(0,11,39,16,71)MUREK(0,0,39,10,5)FOR X=0 TO 6 DOOKNO(MI61(X),MI62(X),1)OD PLO(2,5,16,8)PLO(25,5,39,8)FIL(0,11,39,11,72)FIIF PLA=7 THEN MUREK(0,0,22,16,5) FOIR Q=0 TO 30 DO W1=RAND(12)*2 W2=RAND(16)SZ(W1,W2,69) W1=RAND(12)*2 W2=RAND(16)SZ(W1+1,W2,70) OD FOR X=0 TO 6 DO OKNO(MI71(X),MI72(X),1)OD ZAM(0,16,39,20)WLAZ(32,18)WLAZ(23,18);FOR X=0 TO 16 DO OKNO(MI71(X),MI72(X),1)OD ZAM(0,16,39,20)WLAZ(32,18)WLIAZ(23,18) ZAM(23,15,39,15) FIL(23,14,39,14,63) PUD(28,13)PUD(34,13)PUD(34,9) ZAM(23,0,23,16) SZ(0,3,69)SZ(0,4,69) SZ(0,8,69)SZ(0,9,69)FIIF PLA=8 THEN;TRAWKA(10,12,39,16,0);TRAWKA(10,13,39,20,0);TRAWKA(9,11,39,20,0) TRAWKA(0,10,39,20,0) FII L(1,2,4,11,0) FIL(7,0,39,9,119) FOR X=0 TO 4 DO OKNO(MI71(X+18),MI72(X+18),1)OD;FOR X=0 TO 15 DO OKNO(MI71(X+18),MI72(X+18),1)OD FIL(0,0,6,1,119) FIL(0,1,0,9,119) FIL(1,1,6,1,0) FIL(5,1,6,11,89) FIL(1,1,5,3,89) FIL(7,10,39,11,25);KRA(10,12,I!39,0) FIL(9,12,39,12,6) FOR X=12 TO 39 STEP 4 DO SZ(X,12,5)OD FIL(9,0,9,6,15) SZ(9,7,22) SZ(0,10,63)SZ(0,11,25) FIL(7,10,39,10,63);PR:;FOR X=0 TO 1 DO OKNO(MI71(X+23),MI72(X+23),2)OD;FOR X=0 TO 1 DO OKNO(MI71(X),MI72(X),2)OD;OKNO(MI71(23),I"MI72(23),2)OKNO(MI71(24),MI72(24),2);OKNO(18,9,2)OKNO(20,9,2) FIL(19,10,22,11,0) FIL(35,10,38,11,0) ZAM(0,17,39,20) WLAZ(14,18)WLAZ(33,18) PLO(35,5,39,8) FIL(7,12,8,16,71)FIL(0,12,6,16,64)FIRETURNO OKNO(MI71(X),MI72(X),2)OD;OKNO(MI71(23),H'`o' '#  "%' .'#####   >'  ]'   !"#$%|''  %% !' ' #''!$ !"#$$ #"$#!$'   ( !!AA@@@@AA!! D(`>>`d(x<((H(( 14 14 14 10 10],(_)XMI31=[35 35 35 35 35 4 1<8>>>>>!%>::::>(pppEppppApppppppppppppE=A) 2 6 10 6 6 6 6 6 6 6 LR) F)H)I)J)(mF)(i(G) eK)eL))H gN)M)M)iN)iJ)L)K) `UMIL) )(m)(i()!& ee(e(e)`L**ʹ(Lz*(i(iipi( 84 `L~* L*8  L*8  L* L*8  L*8  L*!' L+(i((i((i (i(e(e$m(i (i(e(e$m(i (i(e(e$m(i(i(e(e$m(i(i(e(e$m(i!((i(e(e$m(i(i(e(e$m(`L<,$ )$ ) {*LZ,,T O)Lp,lives,j O)L,time,! O) '*`L,(IL, 񦥠('m('i('m('i(L.(IL- 񦥠(!),'m(-'i(<'m(='i(L.(ILb- 񦥠(['m(\'i(z'm({'i(L.(IL- 񦥠('m('i('m('i(L.(IL- 񦥠('m('i('m('i(L.(I!*L+. 񦥠('m('i('m('i(L.(ILn. 񦥠((m((i(B(m(C(i(L.(IL. 񦥠((i(e(i((iB(eC(i(`5=532L. .(. ((.I !+.IL/(.(.//((L/Q(.(.6/6/((L/E.ILu/LG//D(( O)(iLd//a( O)L/L{//x(( O)(iL//( O)(i((i(L&/(i((i(L/LQ3(.(.//!,((LQ3R(.(.00((L,3 .IL1(m((m(m(m((e(eE(m((m(m(m(ii(e(eF(m((m(m(m(i(i(e(eF(m((m(!-m(m(i)i(e(eEL3.IL2(m((m(m(m((e(eA(m((m(m(m(ii(e(eB(m((m(m(m(i(i(e(eA(m(!.(m(m(m(i)i(e(eBL3.IL3(m((m(m(m((e(eC(m((m(m(m(ii(e(eD(m((m(m(m(i(i(e(eD(m!/((m(m(m(i)i(e(eC(i((i(L0(iP((i((i((i(L/`OCK(LY3 R3(R3(T333((L3*U3L3L33S3( O)L3L33S3( O)(i((i(Lp3`U2=L3 33I!0LY4L3333 O)3iL 443 O)3iL)44#3 O)3iLH44B3 O)L53IL4Ll4UVVVW4f33 O)3iL4[\43 O)3iL4[\43 O)3iL4XVVVZ4Ħ3 O)!1L53IL]5L4JKKKL433 O)3iL5PQ53 O)3iL-5PQ5'3 O)3iLL5RNNNS5F3 O)L53IL53iLx5PQ5r3 O)3iL5PQ53 O)3iL5PQ53 O)3iL5MKKKO!25Ϧ3 O)`;L5555i5iL66 O)5i5iL(66% O)`+2L;6766666i76iLW66T O)66i76iLz6 !6w O)`6 L6666i6iL66 O)6i6i" )!3(m6(iii(6 eeiPi(e(eLY76i6iLI7#7F O)L{76i6iLn7#7l O)`ND(12L7 |7(}7 (((}7(777((LB8M(|7(!4~777((L&8=(m((m(m(m((e(e7(д(L7(i(((i(((L7`LALH8D8C8LX8 8QD8C8 O)D8iLy88rC8 O)D8iL88C8 O)D8iL8 8C8 O)`Q)B=!5L8 88888 7` Q=RL8 88888 7`;ELSL9 99999 7`(Q)BL89 19493392919 7`N Q=L[9 T9W9V9U9T9 7`94L|9x9w9L9579;<9x9w9 O)x9iL968::=9w9 O)`EL99(!6i(i (i(iq( (i(iq(9(( )`L&:(i(i (i(iq((i(i (i(iq(`")^L: ::I::: 7(i(i8::!7i(i(i:(i(i:((ͤ(L#;͏:L; 9 9" 9(L:((ͤ(LT; 96(( ) 9?(( )(L(;(i(i8::i(i(i:(i(i:i((ͤ(L; 95(( )͏:L!8; 9H(( )(L;(<ͤ(L; 9 (( )(L;(i(i8::i(i(i:(i(i8::(i(i:(:q(( ) #:A(( )(L'=`L= TX g((`L=(U͸(L= gIL!:=(i(i(L=`L=(͸(L3> gIL>(i(i /L >L3>IL->L3>(L=`L7>(i(iЅ((i(iЅ(i(ͤ(L!?b(m(c(i((i(im(im(i(e!;(e((m((i((i(im(im(i(e(e((Lg>`L%? ԩЩ ЩЩЭ k Ԍ ԩЩ`L[?7)L?x((xͪ(L? g "?I! IL?x( 4>L? 4>(Lm?`L?(i!<(iЅ6m((i(iЅ4m((i(iЅ2m((i(iЅ0m(`L@(L@ ?((L@(m((i((i(im(im(i(e(e((L!@L@ ?((L@)m()i(!=(i(im(im(i(e(e((L@`L@(ILhA(i(7)ILeA5)LeA((i(im(i8(e(e @(ILAͻ(LA(i(ii˅i ((I!>LA0ͻ(LA(8((((AA͢(LA,8(( @(LA(ILB0ͻ(LB(Ȍ((IL1B(IL1B((Ȍ(ͼ(LsB(iȅ(i (i(i `LwB !ʹ(L2CILB g "?(ip((i(!?( (e(i(e(e8((   @ {*IL"C   g "? @  LzB !`L>C(( `LQC !(i(i ;C(ILD' 8' V3 .!@(7ͤ(LD  ( 񦥠(E(( )  ( 񦥠((iF( )(LC(͢(LdD'm('i'm('i 3(L!D' 9' 9  E8LD]]]^D  O)LD_D!A  O)LD_D  O)(ILH' : . ' .   . 3(͢(LcE,'m(-'i<'m(='i 3(L E 9(͢(LE,'m(-'i<'m(='i!B 3(LuE 3 3  3  3  3L )Q )Q )S )N 7 8@ 7! 9 9  9  8 8@  7 9 !C9  8  8! 9 93  )3  )3  )3 )3 )3 )3 )3 )3 )3! )3 )3 )! ) )N  )N  ) ) )  8  8 w!D  7w 7w!! 7" " 7' # 7[% % 7'# 7& )(ILH .' 9'" .'" 9# 3  E8 E8  E8  E8  E8  E8 E8  E8!E  E8 E8 E8  9 !! 9(ILI .'  .  .' : 8 V3 3 3 59L[I IT O)LrIIk O)' & V3(ILHK!F' : 7(i(i(i(i(i(iHH hhi  9(i(iHH hhi " 9(i(iHH hhi 6 9(i(iHH hhi ? !G9' .  9 59  8  8(͢(L%K'm('i'm('i 3(LJ . 3 3(ILL' 9 y9 y9G' 7 ' .!H(͢(LK'm('i'm('i 3(LK 8' 8 H' 7(ILXM .(ͤ(LL  ( 񦥠(E(( )  ( 񦥠((iF( )(L"!IL(͢(LL(m((iB(m(C(i 3(LL' 9 y9 y9' 9?' 7  E8 " E8 " E8 9E )E )E )E )(IL0O' :  7 w!J' 7(͢(LM(i(e(i(iB(eC(i 3(LMw 7 w 7 7 Y 7Y 7 '  7 ' 7 ('͢(LN ( )(i(LgN!K 7 )? ) ) ?'  7   7 & # 7' 9 y9! y9'# 8G  7@ 7` O"TOLPL2P*P)P y*P)P DP+ O+PI ,PILPLP NO DOS FILE!P!Mu l ڧP+ O+PI ,PILPP- O8-P+P.P,Pii,P+P O y,P+P`LP %PLb`=Q OL QQQQ QLAQQ)QQQ 栍QQQ \LJQ© \`2 3Q9QLVQ KQ yQQRQLQKQ DQQILQ!Nb wLQ b wNQMQd PQOQh V䅣 y`7LQQ(i…(i(7) QILR(i(iЅ(iȌ(ͤ(L|R(m((i((i(im(iiim(i(e(e((L RLp!OS(i4(i82((i(iЅ(i(i5(i 8((LR((LR((ͤ(LpS(m((i((i(im(iiim(i(e(e((LR`LuSqS!P(iÅ(i(7) qSIL0T(i(iЅ(iȌ(ͤ(L-T(m((i((i(im(iiim(i(e(e((LSL!U(i4(i81((i(iЅ(i(i5(i!RMODULE BYTE ABYTE X=565, Y=564, K=764PROC ASD()WHILE K#28 DOPRINTB(Y) PRINT(", ")PRINTB(X) PRINT(", ")A=STICK(0)PRINTB(A)PRINTE(" ")ODK=42[96]:ANIWAR.DAT",GAP,$400,4,0);WG("D:997.TXT",GTX,$215,4,0)ZERO(GTX+$215,5)DO;ZERO(Z-8 8((LT((LT((ͤ(L!U(m((i((i(im(iiim(i(e(e((LT`L%U8((( 8 (( 8((LVͧ(L!SV(Ͳ(LV(i(ŮLV(iͳ(LV(i(ŮLV(iȅ(i(ILU(iȅ(i((( 86( i {*& )W gI LVͼ(LV8(((ŮLV8(((iŬLV(i(ŮL!TV(i(iŬLV((((LVi {*(ILV(ɝLV(i( '*  W gI LW(  )(LW( Q`(L-W( rS`(i(i ( Q`LWW(LeW(`(ILuW!U(`(ILW(``LWԩ wЩ wϢ wϢ w ((>/ wo w`LW(Kͬ(LW(`LW !7)IL%X0  w(IL%X w((((& )(i(i ( !Vi2(( i&( Q (ͤ(LX( g "? @(( ( w8(((I LXLXLX(LXͮ(L4Y g "?8(((( ( wLX(((((ip(i' -(8(!W( {*( '*` LzYvY w w w w3)i4)i0 (i(i& Щ vYILZLYlevel{Y O)(d5) ( 5) ޠ(5) ޠ(!X(LZ(i$ )(i$ )(LZ(i$ )(i$ )(i$ )(LZ(LZ(i$ )L [LZtheendZ O)`ZAL[ [ [I!L[ n = [ [ [I [ILG[L[7)La[ /L^[L[L[!Y NIL[ n = [ [ [I [IL[L[ NIL[L[IL[L[Lo[L[IL[L[L[(i(i& / w '* 9,  w(IL'\ w w w(ILL\ w w w(ILz\ w!Z w w w(IL\ wx wĢ w w(IL\ w w w(IL\ wx w w(IL] w w w(IL<] w w w>/ w`LI] = w5)>![/ w wYЩ wЩ w ! w w( W(i(i Щ wЩ wx(((((((-(Ȍ(((((((Ȍ((((9) NC [ 9,0 X?8)ILP^((8)ILd^!]MODULE; TXT.ACT - ZAMIENIAM PRINTF NA TX()BYTE X,Y,Q,A,B,PR,Q1,Q2,C,D,P,GL,ST1,ST2,ST3,ZW,CC,DD,STR,STT,PLA,ILP1,XX,PU1=1536,PU2=1537,PU3=1538,PU4=1539,PU5=1540,PU6=1541,ZYC,E,F,EE,FF,E1,RE,OPBYTE ILPX,CZP,W1,W2,W3,G9=53272,G8=$D40A BYTE K=764CAR*V ((8)ILx^( ( TWM w(  d ԭ g "?7)L ` NI L^0ͪ(L^8(( 4> NIL^(L^( 4> NIL_ͫ(L_8(( 4> NI L:_(ɹL:_(i( 4> NI Lq_0ͪ(Lq_ͫ(!^Lq_8((8(( 4> NI L_0ͪ(L_(ɹL_8(((i( 4> NIL_(L_(ɹL_((i( 4> NIL `(L `ͫ(L `(8(( 4>(LG` 񦥠((LG`( 񦥠( (( 񦥠( @(IL_`!_ wY [Lf(Lw` ( (L`(L` ( W(((Ȍ( !ͭ(L`8(((m((im(M(L}a n tB(i(i ((I LEa((ȐL2a(i((LEa(i(5)-( w!`Y NC(( [0 X?((((La(iȅ(i(ILa(iȅ(i W( W(ILa(iȅ(i7)L5b /ILb(8((ʹ(L2b(IL2b /L2b(( "ULc NILUb(8(!a(9)ʹ(L?c(IL?c9)IL?c((9)0 (iȅ(i(ILb(iȅ(i n =(i4(i81(ͪ(Lbō((i5(i 8((L-c(ͫ(L/ w(((7(<((Ȍ(`Lj(Lj( Q`(Lj( rS`(i(i ( Q`Lk(Lk`(͸(L9k )!s(L k TW( (ILgkͭ(Lgk8(((Lk((i(i f j(Lk((i(i f j(ILkͮ(Lk8((( w(ILlͯ(Ll8((( w`Ll6 wL0l D1:WCITY.FNT!tl# SQL\l D:WCITY.REPlP /P;):)L|l D:WCITY.CMClp /P=)<);):)v=)8<):)i;)iPP:)i;)i'P&P<))>)=)<) 栍B)B)>)p P )h6)7)Ȍ8)(((((M w(LPm !uk(I (ILMm((((L]mЩ /Lm(Lm Q@ P(( F] ! )h(((ILm(Lm Q@ P(( F] ! )h(((ILm6)I IL o6)L o(i(i gItLzn(!vi(i' LQn difficulty{nE  O)Lmn controller{na  O)ILn8)8)Ln8)ILnM7)7)7)LnLn joystickn  O)LnLn lightgunnТ  O)(iƅ(i`m8) w6)((IL\o(((!wL0o((IL\o(L\o PPP QLm``ler{na  O)ILn8)8)Ln8)ILnM7)7)7)LnLn joystickn  O)LnLn lightgunnТ  O)(iƅ(i`m8) w6)((IL\o((( @N=0 FIIF (KK=3 OR KK=5) AND KON=0 THEN IF PEEK(ADREKR+447)=116 THEN ZERO(ADREKR+440,39) TX(2,11,"difficulty{")TX(16,11,"controller{") FI IF KK=5 THEN DIF==+1 IF DIF>4 THEN DIF=1 FI FI;IF KK=3 THEN LG=1!LG FI;! ^ IF LG=0 THEN TX(28,11,"joystick-y") ELSE TX(28,11,"lightgun")FI POKE(ADREKR+454,96+DIF)KON=1 FIW1==+1 IF W1=250 THEN W2==+1 W1=0 IF W2>250 THEN W2=250 FI IF W2=28 AND W1=0 THEN COMM(0,0,0)SETV(GRAJ)FI FIODRETURN;IF KK=3 THEN LG=1!LG FI;! ^ IF LG=0 THEN TX(28,11,"joystick,'ao' '#  "%' .'#####   >'  ]'   !"#$%|''  %% !' ' #''5{ !"#$$ #"$#!$'   ( !!AA@@@@AA!! D(`>>`d(x<((H((R)CLOSE (6)OPEN(6,"S:",(GR&$F0)!$1C,GR)RETURN(<8>>>>>5|>::::>(pppEppppApppppppppppppE=A)53250)=C+4*)9x)2FOR Q=1 TLR) F)H)I)J)(mF)(i(G) eK)eL))H gN)M)M)iN)iJ)L)K) `5)*L) )(m)(i()5} ee(e(e)`L**ʹ(Lz*(i(iipi( 84 `L~* L*8  L*8  L* L*8  L*8  L*5~ L+(i((i((i (i(e(e$m(i (i(e(e$m(i (i(e(e$m(i(i(e(e$m(i(i(e(e$m(i5(i(e(e$m(i(i(e(e$m(`L<,$ )$ ) {*LZ,,T O)Lp,lives,j O)L,time,! O) '*`L,(IL, 񦥠('m('i('m('i(L.(IL- 񦥠(5,'m(-'i(<'m(='i(L.(ILb- 񦥠(['m(\'i(z'm({'i(L.(IL- 񦥠('m('i('m('i(L.(IL- 񦥠('m('i('m('i(L.(I5L+. 񦥠('m('i('m('i(L.(ILn. 񦥠((m((i(B(m(C(i(L.(IL. 񦥠((i(e(i((iB(eC(i(`LOR=3L. .(. ((.I 5.IL/(.(.//((L/F(.(.6/6/((L/(.ILu/LG//D(( O)(iLd//a( O)L/L{//x(( O)(iL//( O)(i((i(L&/(i((i(L/LQ3(.(.//5((LQ3(.(.00((L,3.IL1(m((m(m(m((e(eE(m((m(m(m(ii(e(eF(m((m(m(m(i(i(e(eF(m((m(5m(m(i)i(e(eEL3.IL2(m((m(m(m((e(eA(m((m(m(m(ii(e(eB(m((m(m(m(i(i(e(eA(m(5(m(m(m(i)i(e(eBL3.IL3(m((m(m(m((e(eC(m((m(m(m(ii(e(eD(m((m(m(m(i(i(e(eD(m5((m(m(m(i)i(e(eC(i((i(L0(iP((i((i((i(L/`CC DLY3 R3(R3(T333((L3YU3L3L33S3( O)L3L33S3( O)(i((i(Lp3`2POL3 33I5LY4L3333 O)3iL 443 O)3iL)44#3 O)3iLH44B3 O)L53IL4Ll4UVVVW4f33 O)3iL4[\43 O)3iL4[\43 O)3iL4XVVVZ4Ħ3 O)5L53IL]5L4JKKKL433 O)3iL5PQ53 O)3iL-5PQ5'3 O)3iLL5RNNNS5F3 O)L53IL53iLx5PQ5r3 O)3iL5PQ53 O)3iL5PQ53 O)3iL5MKKKO55Ϧ3 O)` L5555i5iL66 O)5i5iL(66% O)`L;6766666i76iLW66T O)66i76iLz6 !6w O)`L6666i6iL66 O)6i6i" )5(m6(iii(6 eeiPi(e(eLY76i6iLI7#7F O)L{76i6iLn7#7l O)`144 TL7 |7(}7 (((}7(777((LB8N(|7(5~777((L&8(m((m(m(m((e(e7(д(L7(i(((i(((L7`*4LH8D8C8LX8 8QD8C8 O)D8iLy88rC8 O)D8iL88C8 O)D8iL8 8C8 O)`A=1 5L8 88888 7`709,L8 88888 7`9IFL9 99999 7`6)POL89 19493392919 7`FIM9L[9 T9W9V9U9T9 7`(7L|9x9w9L9579;<9x9w9 O)x9iL968::=9w9 O)` L99(5i(i (i(iq( (i(iq(9(( )`L&:(i(i (i(iq((i(i (i(iq(`9,$78L: ::I::: 7(i(i8::5i(i(i:(i(i:((ͤ(L#;͏:L; 9 9" 9(L:((ͤ(LT; 96(( ) 9?(( )(L(;(i(i8::i(i(i:(i(i:i((ͤ(L; 95(( )͏:L5; 9H(( )(L;(<ͤ(L; 9 (( )(L;(i(i8::i(i(i:(i(i8::(i(i:(:q(( ) #:A(( )(L'=`L= TX g((`L=(U͸(L= gIL5=(i(i(L=`L=(͸(L3> gIL>(i(i /L >L3>IL->L3>(L=`L7>(i(iЅ((i(iЅ(i(ͤ(L!?b(m(c(i((i(im(im(i(e5(e((m((i((i(im(im(i(e(e((Lg>`L%? ԩЩ ЩЩЭ k Ԍ ԩЩ`L[?7)L?x((xͪ(L? g "?I! IL?x( 4>L? 4>(Lm?`L?(i5(iЅ6m((i(iЅ4m((i(iЅ2m((i(iЅ0m(`L@(L@ ?((L@(m((i((i(im(im(i(e(e((L!@L@ ?((L@)m()i(5(i(im(im(i(e(e((L@`L@(ILhA(i(7)ILeA5)LeA((i(im(i8(e(e @(ILAͻ(LA(i(ii˅i ((I5LA0ͻ(LA(8((((AA͢(LAQ8(( @(LA(ILB0ͻ(LB(Ȍ((IL1B(IL1B((Ȍ(ͼ(LsB(iȅ(i (i(i `LwB !ʹ(L2CILB g "?(ip((i(5( (e(i(e(e8((   @ {*IL"C   g "? @  LzB !`L>C(( `LQC !(i(i ;C(ILD' 8' V3 .5(7ͤ(LD  ( 񦥠(E(( )  ( 񦥠((iF( )(LC(͢(LdD'm('i'm('i 3(L!D' 9' 9  E8LD]]]^D  O)LD_D5  O)LD_D  O)(ILH' : . ' .   . 3(͢(LcE,'m(-'i<'m(='i 3(L E 9(͢(LE,'m(-'i<'m(='i5 3(LuE 3 3  3  3  3L )Q )Q )S )N 7 8@ 7! 9 9  9  8 8@  7 9 59  8  8! 9 93  )3  )3  )3 )3 )3 )3 )3 )3 )3! )3 )3 )! ) )N  )N  ) ) )  8  8 w5  7w 7w!! 7" " 7' # 7[% % 7'# 7& )(ILH .' 9'" .'" 9# 3  E8 E8  E8  E8  E8  E8 E8  E85  E8 E8 E8  9 !! 9(ILI .'  .  .' : 8 V3 3 3 59L[I IT O)LrIIk O)' & V3(ILHK5' : 7(i(i(i(i(i(iHH hhi  9(i(iHH hhi " 9(i(iHH hhi 6 9(i(iHH hhi ? 59' .  9 59  8  8(͢(L%K'm('i'm('i 3(LJ . 3 3(ILL' 9 y9 y9G' 7 ' .5(͢(LK'm('i'm('i 3(LK 8' 8 H' 7(ILXM .(ͤ(LL  ( 񦥠(E(( )  ( 񦥠((iF( )(L"5L(͢(LL(m((iB(m(C(i 3(LL' 9 y9 y9' 9?' 7  E8 " E8 " E8 9E )E )E )E )(IL0O' :  7 w5' 7(͢(LM(i(e(i(iB(eC(i 3(LMw 7 w 7 7 Y 7Y 7 '  7 ' 7 ('͢(LN ( )(i(LgN5 7 )? ) ) ?'  7   7 & # 7' 9 y9! y9'# 8G  7@ 7`O5 IF POL/ wo w`LW(Kͬ(LW(`LW !7)IL%X0  w(IL%X w((((& )(i(i ( 5i2(( i&( Q (ͤ(LX( g "? @(( ( w8(((I LXLXLX(LXͮ(L4Y g "?8(((( ( wLX(((((ip(i' -(8(5( {*( '*`oLzYvY w w w w3)i4)i0 (i(i& Щ vYILZLYlevel{Y O)(d5) ( 5) ޠ(5) ޠ(5(LZ(i$ )(i$ )(LZ(i$ )(i$ )(i$ )(LZ(LZ(i$ )L [LZtheendZ O)`ROL[ [ [I!L[ n = [ [ [I [ILG[L[7)La[ /L^[L[L[5 NIL[ n = [ [ [I [IL[L[ NIL[L[IL[L[Lo[L[IL[L[L[(i(i& / w '* 9,  w(IL'\ w w w(ILL\ w w w(ILz\ w5 w w w(IL\ wx wĢ w w(IL\ w w w(IL\ wx w w(IL] w w w(IL<] w w w>/ w`LI] = w5)>5/ w wYЩ wЩ w ! w w( W(i(i Щ wЩ wx(((((((-(Ȍ(((((((Ȍ((((9) NC [ 9,0 X?8)ILP^((8)ILd^5 ((8)ILx^( ( TWM w(  d ԭ g "?7)L ` NI L^0ͪ(L^8(( 4> NIL^(L^( 4> NIL_ͫ(L_8(( 4> NI L:_(ɹL:_(i( 4> NI Lq_0ͪ(Lq_ͫ(5Lq_8((8(( 4> NI L_0ͪ(L_(ɹL_8(((i( 4> NIL_(L_(ɹL_((i( 4> NIL `(L `ͫ(L `(8(( 4>(LG` 񦥠((LG`( 񦥠( (( 񦥠( @(IL_`5 wY [Lg(Lw` ( (L`(L` ( W(((Ȍ( !ͭ(L`8(((m((im(M(L}a n tB(i(i ((I LEa((ȐL2a(i((LEa(i(5)-( w5Y NC(( [0 X?((((La(iȅ(i(ILa(iȅ(i W( W(ILa(iȅ(i7)L5b /ILb(8((ʹ(L2b(IL2b /L2b(( "ULc NILUb(8(5(9)ʹ(LIc(ILIc9)ILIc((9) n = =(i4(i81(ͪ(Lbō((i5(i 8((Lb(ͫ(Lc( "U n0 (iȅ(i(ILIc(iȅ(i5ʹ(Lc(ILc NILc9)Lc9)3)i4)i0 (ILc(iȅ(iLc(iȅ(i(ILcͮ(Lc8(((i…(i((L3d(i(iЅ(i(i (ILfdͯ(Lfd85(((iÅ(i((ILd 񦥠(((Ld ,((( 5ͧ(Ld(Ld(ILd8(((i  $m(& )(ILd(ILd ((ILe(ILe(ͧ(LFe(I (I%LFe((I LFe(( 56( L(f((i(iLkeeh O)(m((iii(( eeiPi(e(eILf(i(iLee񦡥 O)L(f(i(iLff O)(Laf(i(iЅ5(i(i I!Lf !( g(((( ((i( ԭ(((IVLfLf Lf ԭ( "?ILfLfLfLfILfLgLx^`Lg(I (IL2g(i (ͪ(L2g(((I (I5Lg8( ((i(ͫ(Lg7(<(((Ȍ((i(iЅ(i(iЅ(i(iii (I (IL2h(i…(i(i(iЅ(i(iЅ(͢(L)h =(Lh(Ȍ(`L6h T5Щ WX g(( w6 w w  w/ wLhh O)Lhh O)L ih O)L/ w(((7(<((Ȍ(`Lj(Lj( Q`(Lj( rS`(i(i ( Q`Lk(L%k`(͸(LC5k )(L*k TW( (ILqkͭ(Lqk8(((Lk((i(i g j(Lk((i(i g j(ILkͮ(Lk8((( w(ILlͯ(Ll8((( w`L!l6 wj5 wLCl D1:WCITY.FNTl6 SQLol D:WCITY.REPlc /P;):)Ll D:WCITY.CMCl /P=)<);):)v=)8<):)i;)iPP:)i;)i'P&P<))>)=)<) 栍B)B)>)p P 3h6)7)Ȍ8)(((((5M w(Lcm k(I (IL`m((((LpmЩ /Lm(Lm Q@ P(( F] ! 3h(((ILm(Lm Q@ P(( F] ! 3h(((ILn6)I IL o6)L o(i(i5 gItLn(i(i' Ldn difficulty{nX  O)Ln controller{nt  O)ILn8)8)Ln8)7)LnLn joystickn  O)LnLn lightgunnѢ  O)(iƅ(i`m8) w6)((IL]o(((5L1o((IL]o(L]o PPP QL#m``l  O)Ln controller{nt  O)ILn8)8)Ln8)7)LnLn joystickn  O)LnLn lightgunnѢ  O)(iƅ(i`m8) w6)((IL]o(((4A lʆ &e J Jꅆ8冨凪`ʆ ee` 9E…¥ 9` l'&&&8儨児祂*L2&&*ń8&&L2 ` Fj`AhihiHHȱȱLڧ`膥ɠQ-ĮȐ`此į۠ŲLlȄ.70Q- Ġ7`eޠ Ȅ e _ 嘠ƍ iť +иΦ +У A +Ж꥾ +ȑȑȑɦȘ 9`5h{DObFIcIFPODdORTOeANDFORTINT"LSHMOD RSHSETDXORBYTE!CARD#CHAR ELSEaEXITSFUNCAPROCBSTEPfTHEN`TYPEFARRAY@UNTILXWHILEQDEFINE&ELSEIFjMODULEWRETURNRINCLUDECPOINTEREiIA; EDYTOR DUSZKOW 1991, 2011 (MODYFIKACJE SPACEPATROL); + I/O + errors;; ACTION! RUNTIME-PACKAGE PART I;;(C) MCMXC by Mirage Software Ltd.;PROC RUDIV2=*()[$85 $86 $87 $38 $A9 $00 $E5 $86 $A8 $A9 $00 $E5 $87 $AA $98 $60]PROC RUMLT0=*()[$F0 $1=B $CA $86 $C1 $AA $F0 $15 $86 $C0 $A9 $00 $A2 $08 $0A $06 $C0 $90 $02 $65 $C1 $CA $D0 $F6 $18 $65 $87 $85 $87 $A5 $86$A6 $87 $60] PROC RUMLT1=*()[$86 $C2 $E0 $00 $10 $03 $20 RUDIV2 $85 $82 $86 $83 $A5 $85 $10 $0E $AA $45 $C2 $85 $C2 $A5 $84 $20 RUDI=V2 $85 $84 $86 $85$A9 $00 $85 $87 $60]PROC MULT=*()[$20 RUMLT1 $A6 $82 $F0 $1B $86 $C0 $A6 $84 $F0 $15 $CA $86 $C1 $A2 $08 $0A $26 $87 $06 $C0 $90 $06 $65 $C1 $90 $02 $E6 $87 $CA $D0 $F0 $85 $86 $A5 $82 $A6 $85 $20 RUMLT0 $A5 $83 $A6 $84 $20 RUMLT=0]PROC RUDIV=*() [$A4 $C2 $10 $03 $4C RUDIV2 $60]PROC DIV=*()[$20 RUMLT1 $A5 $85 $F0 $27 $A2 $08 $26 $82 $26 $83 $26 $87 $38 $A5 $83 $E5 $84 $A8 $A5 $87 $E5 $85 $90 $04 $85 $87 $84 $83 $CA $D0 $E7 $A5 $82 $2A $A2 $00 $A4 $83 $84 $86 $18 $90 $1=D $A2 $10 $26 $82 $26 $83 $2A $B0 $04 $C5 $84 $90 $03 $E5 $84 $38 $CA $D0 $EF $26 $82 $26 $83 $85 $86 $A5 $82 $A6 $83 $A4 $C2 $10 $10 $85 $84 $86 $85 $38 $A9 $00 $E5 $84 $A8 $A9 $00 $E5 $85 $AA $98 $60]PROC MODULO=*()[$20 DIV $A5 $86 $A6 $87 $60]= PROC RRSH=*()[$A4 $84 $F0 $0A $86 $85 $46 $85 $6A $88 $D0 $FA $A6 $85 $60]PROC RLSH=*()[$A4 $84 $F0 $0A $86 $85 $0A $26 $85 $88 $D0 $FA $A6 $85 $60] PROC PARA=*()[$85 $A0 $86 $A1 $84 $A2 $18 $68 $85 $84 $69 $03 $A8 $68 $85 $85 $69 $00 $48 $98 =$48 $A0 $01 $B1 $84 $85 $82 $C8 $B1 $84 $85 $83 $C8 $B1 $84 $A8 $B9 $A0 $00 $91 $82 $88 $10 $F8 $A5 $11 $D0 $05 $E6 $11 $6C $0A $00 $60]SET $4E4=RLSHSET $4E6=RRSHSET $4E8=MULTSET $4EA=DIVSET $4EC=MODULOSET $4EE=PARAPROC _ERROU=*()[$A9$70$AA=$A9$0C$9D$42$03$20$56$E4$8A$38$E9$10$D0$F1$6C$0A$00]PROC _ERRVEC=*()[_ERROU]PROC _DEVIC=*()[$00]; ACTION! Library; Supplement to RTPI.ACT;(C) MCMXC by Mirage Software Ltd.; OPEN; CLOSE; GRAPHICS; PUTDE; PUTD; _GETD; MOVEBLOC=K; SETBLOCK; ZEROMODULE CARD Error=_ERRVEC BYTE device=_DEVICPROC _GOCIO=*()[$20$56$E4$10$1A$C0$88$F0$06$68$68$98$6C _ERRVEC $48$8A$48$4A$4A$4A$4A$AA$A9$01$9D$C0$05$68$AA$68$60]PROC _LODCHN=*()[$C9$08$90$07$68$68$A9$86$6C _ERRVEC$0A$0A$0=A$0A$AA$60]PROC _STONAM=*()[$18$69$01$9D$44$03$98$69$00$9D$45$03$60]PROC _SHFTR=*()[$48$8A$A8$68$AA$AD _DEVIC $60] PROC _CLREOL=*() [$48$A9$00$85$A5$68$60] PROC _SETEOL=*() [$48$A9$01$85$A5$68$60] PROC _PRECON=*() [$8A$48$98$AA$68$A=0$03$84$A3$A0$FD$60]PROC Open=*(BYTE d CARD s BYTE m, a)[$86$A1$20 _LODCHN $A5$A1$20 _STONAM $A5$A3$9D$4A$03$A5$A4$9D$4B$03$A9$03$9D$42$03$20 _GOCIO $8A$4A$4A$4A$4A$AA$A9$00$9D$C0$05$60]PROC Close=*(BYTE d)[$20 _LODCHN $A9$0C$9D$42$03$20_GOCIO= $60]PROC MOVEBLOCK=*(CARD DK,SK,IL)[$85 $A0 ; STA $A0 $86 $A1 ; STX $A1 $84 $A2 ; STY $A2 $A0 $00 ; LDY #$00 $A5 $A5 ; LDA $A5 $F0 $16 ; BEQ TAM $B1 $A2 ;N1 LDA ($A2),Y $91 $A0 ; STA ($A0),Y $C8 ; INY $D0 $F9= ; BNE N1 $E6 $A1 ; INC $A1 $E6 $A3 ; INC $A3 $C6 $A5 ; DEC $A5 $D0 $F1 ; BNE N1 $F0 $05 ; BEQ TAM $B1 $A2 ;N2 LDA ($A2),Y $91 $A0 ; STA ($A0),Y $C8 ; INY $C4 $A4 ;TAM CPY $A4 $D0 $F7 ; BNE N2]RETURNPROC SET=BLOCK=*(CARD SK,IL BYTE CO)[ $85 $A0 ; STA $A0 $86 $A1 ; STX $A1 $84 $A2 ; STY $A2 $A0 $00 ; LDY #$00 $A5 $A3 ; LDA $A3 $F0 $14 ; BEQ TAM $A5 $A4 ;N1 LDA $A4 $91 $A0 ; STA ($A0),Y $C8 ; INY $D0 $F9 ; BNE N1 $E=6 $A1 ; INC $A1 $C6 $A3 ; DEC $A3 $D0 $F3 ; BNE N1 $F0 $05 ; BEQ TAM $A5 $A4 ;N2 LDA $A4 $91 $A0 ; STA ($A0),Y $C8 ; INY $C4 $A2 ;TAM CPY $A2 $D0 $F7 ; BNE N2]RETURNPROC ZERO(CARD SK,IL) SETBLOCK(SK,IL,0)RETURNP=ROC Sound=*(BYTE c, p, d, v)[$C9$04$B0$25$86$A1$0A$AA$A9$00$8D$08$D2$A9$03$8D$0F$D2$A5$A3$29$0F$85$A3$98$29$0E$0A$0A$0A$0A$05$A3$9D$01$D2$A5$A1$9D$00$D2$60] PROC SndRst=*() [$A9$00$A2$07$9D$00$D2$CA$10$FA$60]PROC Poke=*(CARD a BYTE v)[$85$A0$8=6$A1$98$A0$00$91$A0$60]PROC PokeC=*(CARD a, v)[$20 Poke $C8$A5$A3$91$A0$60]BYTE FUNC Peek=*(CARD a)CARD FUNC PeekC=*(CARD a)[$85$A2$86$A3$A0$00$B1$A2$85$A0$C8$B1$A2$85$A1$60]BYTE FUNC STrig=*(BYTE p)[$29$03$AA$BD$84$02$85$A0$60]MODULE$8<^I^Lࢠ]I^+ 8+ _0)?ʈ LbACTION! (c)by Paul Lee CAomputer Services (PCS) April , 1985 6. : BLV`  B JKIHiDiELV䄦 eRU _椤E +ƣ`𑛊 0H8`L AL² 9  P t LWL,Ԇ ؠPIPP`/`"/ԭ` PLnH h:,'iԥiՠiɨɑԈȩDȩ:ɥɤ LGLʰ򅡆ԅդ800) 0 0!Aՠ eԆ ٰԦդ` LLؠ L.8e膥 'eR壐Q8SRŦQH)`h) ȭL{QI` T`TU`TU  [L_` `A 赠`eLXYT i(?E:j B VBDEH JIK V` 'ao' '#  "%' .'#####   >'  ]' A  !"#$%|''  %% !' ' #'' !"#$$ #"$#!$'   ( !!AA@@@@AA!! D(`>>A`d(x<((H((R)CLOSE (6)OPEN(6,"S:",(GR&$F0)!$1C,GR)RETURN(<8>>>>>>::::>(pppEppppApppppppppppppE=A)53250)=C+4*)9x)2FOR Q=1 TLR) F)H)I)J)(mF)(iA(G) eK)eL))H gN)M)M)iN)iJ)L)K) `5)*L) )(m)(i() ee(e(e)`L**ʹ(Lz*(i(iipi( 84A `L~* L*8  L*8  L* L*8  L*8  L* L+(i((i((i (i(e(e$m(i (i(e(eA$m(i (i(e(e$m(i(i(e(e$m(i(i(e(e$m(i(i(e(e$m(i(i(e(e$m(`L<,$ )$ ) {*LZ,,T O)Lp,livesA,j O)L,time,! O) '*`L,(IL, 񦥠('m('i('m('i(L.(IL- 񦥠(,'m(-'i(<'m(='i(L.(ILb- 񦥠(['m(\'i(z'm({'i(L.(IL-A 񦥠('m('i('m('i(L.(IL- 񦥠('m('i('m('i(L.(IL+. 񦥠('m('i('m('i(L.(ILn. 񦥠((m((i(B(m(C(i(AL.(IL. 񦥠((i(e(i((iB(eC(i(`LOR=3L. .(. ((.I .IL/(.(.//((L/F(.(.6/6/((L/(.ILu/LG//D(( O)(iLd//Aa( O)L/L{//x(( O)(iL//( O)(i((i(L&/(i((i(L/LQ3(.(.//((LQ3(.(.00((L,3.IL1(m((m(m(m((e(eE(m((m(Am(m(ii(e(eF(m((m(m(m(i(i(e(eF(m((m(m(m(i)i(e(eEL3.IL2(m((m(m(m((e(eA(m((Am(m(m(ii(e(eB(m((m(m(m(i(i(e(eA(m((m(m(m(i)i(e(eBL3.IL3(m((m(m(m((e(eC(m(A(m(m(m(ii(e(eD(m((m(m(m(i(i(e(eD(m((m(m(m(i)i(e(eC(i((i(L0(iP((i((i((i(L/`CC DLY3 AR3(R3(T333((L3YU3L3L33S3( O)L3L33S3( O)(i((i(Lp3`2POL3 33ILY4L3333 O)3iL 443 O)3iL)44#3 O)3iLH44B3 O)L5A3IL4Ll4UVVVW4f33 O)3iL4[\43 O)3iL4[\43 O)3iL4XVVVZ4Ħ3 O)L53IL]5L4JKKKL433 O)3iL5PQ53 O)3iL-5PQ5'3 O)3iLL5RNNNS5FA3 O)L53IL53iLx5PQ5r3 O)3iL5PQ53 O)3iL5PQ53 O)3iL5MKKKO5Ϧ3 O)` L5555i5iL66 O)5i5iL(66% O)`L;6766666i76iLWA66T O)66i76iLz6 !6w O)`L6666i6iL66 O)6i6i" )(m6(iii(6 eeiPi(e(eLY76i6iLI7#7FA O)L{76i6iLn7#7l O)`144 TL7 |7(}7 (((}7(777((LB8N(|7(~777((L&8(m((m(m(m((e(e7(д(L7(i(((i(((L7`*4LH8D8CA8LX8 8QD8C8 O)D8iLy88rC8 O)D8iL88C8 O)D8iL8 8C8 O)`A=1 L8 88888 7`709,L8 88888 7`9IFL9 99999 7`6)POL89 1949339A2919 7`FIM9L[9 T9W9V9U9T9 7`(7L|9x9w9L9579;<9x9w9 O)x9iL968::=9w9 O)` L99(i(i (i(iq( (i(iq(9(( )`L&:(i(i (iA(iq((i(i (i(iq(`9,$78L: ::I::: 7(i(i8::i(i(i:(i(i:((ͤ(L#;͏:L; 9 9" 9(L:((ͤ(LT; 96(( ) 9A?(( )(L(;(i(i8::i(i(i:(i(i:i((ͤ(L; 95(( )͏:L; 9H(( )(L;(<ͤ(L; 9 (( )(L;(i(i8::i(i(i:(i(i8A::(i(i:(:q(( ) #:A(( )(L'=`L= TX g((`L=(U͸(L= gIL=(i(i(L=`L=(͸(L3> gIL>(i(i /L >L3>IL->L3>(L=`L7>(Ai(iЅ((i(iЅ(i(ͤ(L!?b(m(c(i((i(im(im(i(e(e((m((i((i(im(im(i(e(e((Lg>`L%? ԩЩ ЩAЩЭ k Ԍ ԩЩ`L[?7)L?x((xͪ(L? g "?I! IL?x( 4>L? 4>(Lm?`L?(i(iЅ6m((i(iЅ4m((i(iЅ2m((i(iЅ0m(`L@(L@ ?((L@(m(A(i((i(im(im(i(e(e((L!@L@ ?((L@)m()i((i(im(im(i(e(e((L@`L@(ILhA(i(7)ILeA5)LeA((i(iAm(i8(e(e @(ILAͻ(LA(i(ii˅i ((ILA0ͻ(LA(8((((AA͢(LAQ8(( @(LA(ILB0ͻ(LB(Ȍ((IL1B(IL1B((ȌB(ͼ(LsB(iȅ(i (i(i `LwB !ʹ(L2CILB g "?(ip((i(( (e(i(e(e8((   @ {*IL"C   g "? @ B LzB !`L>C(( `LQC !(i(i ;C(ILD' 8' V3 .(7ͤ(LD  ( 񦥠(E(( )  ( 񦥠((iF( )(LC(͢(LBdD'm('i'm('i 3(L!D' 9' 9  E8LD]]]^D  O)LD_D  O)LD_D  O)(ILH' : . ' .   . 3(͢(BLcE,'m(-'i<'m(='i 3(L E 9(͢(LE,'m(-'i<'m(='i 3(LuE 3 3  3  3  3L )Q )Q )S )N 7B 8@ 7! 9 9  9  8 8@  7 9 9  8  8! 9 93  )3  )3  )3 )3 )3 )3 )3 )B3 )3! )3 )3 )! ) )N  )N  ) ) )  8  8 w  7w 7w!! 7" " 7' # 7[% % 7'# 7& )(ILBH .' 9'" .'" 9# 3  E8 E8  E8  E8  E8  E8 E8  E8  E8 E8 E8  9 !! 9(ILI .'  .  .' :B 8 V3 3 3 59L[I IT O)LrIIk O)' & V3(ILHK' : 7(i(i(i(i(i(iHH hhi  9(iB(iHH hhi " 9(i(iHH hhi 6 9(i(iHH hhi ? 9' .  9 59  8  8(͢(L%K'm('i'm('iB  3(LJ . 3 3(ILL' 9 y9 y9G' 7 ' .(͢(LK'm('i'm('i 3(LK 8' 8 H' 7(ILXMB  .(ͤ(LL  ( 񦥠(E(( )  ( 񦥠((iF( )(L"L(͢(LL(m((iB(m(C(i 3(LL' 9 y9 y9' 9?'B  7  E8 " E8 " E8 9E )E )E )E )(IL0O' :  7 w' 7(͢(LM(i(e(i(iB(eC(i 3(LMw 7 w B 7 7 Y 7Y 7 '  7 ' 7 ('͢(LN ( )(i(LgN 7 )? ) ) ?'  7   7 & # 7' 9 y9! y9'B # 8G  7@ 7`O5 IF POL/ wo w`LW(Kͬ(LW(`LBW !7)IL%X0  w(IL%X w((((& )(i(i ( i2(( i&( Q (ͤ(LX( g "? @(( ( w8(((I BLXLXLX(LXͮ(L4Y g "?8(((( ( wLX(((((ip(i' -(8(( {*( '*`oLzYvY w w w w3)i4)i0 (i(i& Щ vYIBLZLYlevel{Y O)(d5) ( 5) ޠ(5) ޠ((LZ(i$ )(i$ )(LZ(i$ )(i$ )(i$ )(LZ(LZ(i$B )L [LZtheendZ O)`ROL[ [ [I!L[ n = [ [ [I [ILG[L[7)La[ /L^[L[L[ NIL[ n = [ [ [I [IL[L[ NIL[L[IL[L[Lo[L[IL[L[L[(i(iB& / w '* 9,  w(IL'\ w w w(ILL\ w w w(ILz\ w w w w(IL\ wx wĢ w w(IL\ w w w(IL\ Bwx w w(IL] w w w(IL<] w w w>/ w`LI] = w5)>/ w wYЩ wЩ w ! w w( W(i(i Щ wЩ wx(((((B((-(Ȍ(((((((Ȍ((((9) NC [ 9,0 X?8)ILP^((8)ILd^ ((8)ILx^( ( TWM w(  d ԭ g "?7)L ` NI L^0ͪ(L^8(( 4> NBIL^(L^( 4> NIL_ͫ(L_8(( 4> NI L:_(ɹL:_(i( 4> NI Lq_0ͪ(Lq_ͫ(Lq_8((8(( 4> NI L_0ͪ(L_(ɹL_8(((i( 4> NIL_(L_(ɹL_((iB( 4> NIL `(L `ͫ(L `(8(( 4>(LG` 񦥠((LG`( 񦥠( (( 񦥠( @(IL_` wY [Lg(Lw` ( (L`(L` ( W(((Ȍ( !ͭ(L`8(((m((iBm(M(L}a n tB(i(i ((I LEa((ȐL2a(i((LEa(i(5)-( wY NC(( [0 X?((((La(iȅ(i(ILa(iȅ(i W( W(ILaB (iȅ(i7)L5b /ILb(8((ʹ(L2b(IL2b /L2b(( "ULc NILUb(8((9)ʹ(LIc(ILIc9)ILIc((9) n = =(i4(i81(ͪ(Lbō((i5(iB! 8((Lb(ͫ(Lc( "U n0 (iȅ(i(ILIc(iȅ(iʹ(Lc(ILc NILc9)Lc9)3)i4)i0 (ILc(iȅ(iLc(iȅ(iB"(ILcͮ(Lc8(((i…(i((L3d(i(iЅ(i(i (ILfdͯ(Lfd8(((iÅ(i((ILd 񦥠(((Ld ,((( 5ͧ(Ld(Ld(ILd8(((iB#  $m(& )(ILd(ILd ((ILe(ILe(ͧ(LFe(I (I%LFe((I LFe(( 6( L(f((i(iLkeeh O)(m((iii(( eeiPiB$(e(eILf(i(iLee񦡥 O)L(f(i(iLff O)(Laf(i(iЅ(i(i I!Lf !( g(((( ((i( ԭ(((IVLfLfB% Lf ԭ( "?ILfLfLfLfILfLgLx^`Lg(I (IL2g(i (ͪ(L2g(((I (ILg8( ((i(ͫ(Lg7(<(((Ȍ((i(iЅ(i(iЅ(i(iiiB& (I (IL2h(i…(i(i(iЅ(i(iЅ(͢(L)h =(Lh(Ȍ(`L6h TЩ WX g(( w6 w w  w/ wLhh O)LB'hh O)L ih O)L/ w((B)(7(<((Ȍ(`Lj(Lj( Q`(Lj( rS`(i(i ( Q`Lk(L%k`(͸(LCk )(L*k TW( (ILqkͭ(Lqk8(((Lk((i(i g j(Lk((B*i(i g j(ILkͮ(Lk8((( w(ILlͯ(Ll8((( w`L!l6 wj wLCl D1:WCITY.FNTl6 SQLol D:WCITY.REPlc /P;):)Ll D:WCITY.CMCl /P=)<);):)v=B+)8<):)i;)iPP:)i;)i'P&P<))>)=)<) 栍B)B)>)p P 3h6)7)Ȍ8)(((((M w(Lcm k(I (IL`m((((LpmЩ /Lm(Lm Q@ P(( F] ! 3hB,(((ILm(Lm Q@ P(( F] ! 3h(((ILn6)I IL o6)L o(i(i gItLn(i(i' Ldn difficulty{nX  O)Ln controller{nt  O)ILn8)8)Ln8B-)7)LnLn joystickn  O)LnLn lightgunnѢ  O)(iƅ(i`m8) w6)((IL]o(((L1o((IL]o(L]o PPP QL#m``l  O)Ln controller{nt  O)ILn8)8)Ln8@WARSAW CITY +1989, 2010, 2016WAPNIAK 2016 GAME COMPOAUTOR: TDCMUZYKA: MIKERGRAFIKA: TDCPODZIEKOWANIA I POZDROWIENIA DLA KAZA I ATARIONLINE.PLLJ'('(L]K'm'('i'm'('i 4'(LK' 9' 9  P8  Z+LKK  Z+LK K  Z+LK K ;(ILO' 2= / ' /  >0 /'('(L\L,'m'(-'i<'m'(='i 4'(LL 9'( '(LL,'m'(-'i<'m'(='i 4'(LnL 4 4 9 8  9@  ;  9>1 9!! 9 8!! 8@  ;  9 9  8 8! 9 9S(iT(i( eeU(eV(e3S(i T(i( e>2eU(eV(e3S(iT(i( eeU(eV(e3S(i!T(i( eeU(eV(e3S(iT(i( eeU(eV(e3S(i T(i>3( eeU(eV(e3S(iT(i( eeU(eV(e3S(i!T(i( eeU(eV(e3;(ILuP .' 9'" /'" 9>4# 4  P8 P8  P8  P8  P8  P8 P8  P8  P8 P8 P8  9 !! 9;(IL1Q /'  /  .' 2= 8 .4 4 4 `: Z+LQ)**>5**+P  Z+LQ/((((0Q ' & 3;(IL$R' 2=' / Z+LjQ Qg  Z+LQ Q}   9 `:  8  8'('(LR'm'('i'm'('i 4>6'(LQ . 4 4;(ILR' 9 \; \;G' ; ' .'('(LR'm'('i'm'('i 4'(LlR 8' 8 H' ;;(ILT .'('(>7L9S'm'('i'm'('i 4'(LR' 9 \; \;' 9?' ;  P8 " P8 " P8 9S(iT(i( eeU(eV(eES(iT(i( >8eeU(eV(eES(iT(i( eeU(eV(eES(iT(i( eeU(eV(eE`LTT3( w( TILKU/(iЩ w)()(LHU(m)((i>9-(K(iL(im0(iiim)(i-( w)(LTL.VU(i4V(i82H(H(iЩ wU(i5V(i 8H(H(LUH(H(LUH()()(L.V(m)((i-(K(iL(i>:mH(iiim)(i-( w)(LU`L3V/V3( w( /VILV/(iЩ w)()(LV(m)((i-(K(iL(im0(iiim)(i-( w)(LeVLWU(i4V(i81H(H(i>;Щ wU(i5V(i 8H(H(L7WH(H(LFWH()()(LW(m)((i-(K(iL(imH(iiim)(i-( w)(LKW`LW89(9(/( 8 7(0( ><88(,(LX,(LX*(7(LX*(i7(ŮLX+(i8(LX+(i8(ŮLX w;(ILfX w,(+(*( )7<( i + & æW gI L^YA(L^Y8/((?(ŮL^Y8/((?(iŬL^Y0(i>=@(ŮL^Y0(i@(iŬL^YB(A(C(D(L1Yi +D(IL^Y9(ɝL^Y9(i9( +  W gI LY 9(  æ3(LY3( T`4(LY4( 0V`K(iL(i 3( T`LY6(>>LY6(`6(ILZ6(`6(ILZ6(``LZԩ wЩ wϢ wϢ w K(L(>/ wo w`LdZ1(K1(LvZ1(`LzZ !/(7(0(8( & æK(iL(i *( i2/(+( >?i&0( T )()(LU[3( n XH3(3( 3( w83(3(3(I LL[LO[L[)(L[3(L[)()(Lw[ E)(Ld[83(3(3(3( 3( wLU[7(/(8(0(-9(8>(>( +<( +`L[ w w w>@U(iȅV(i(i(i0 ( S(eT(e&  Z+LO\level{ \G A(d( H( ( ޠI(( ޠJ(I(LT]( S(e>AT(eiiU(eV(eI(i$( S(eT(eiiU(eV(eJ(i$H(L9^( S(eT(eiiU(eV(eH(i$( S(eT(eiiU(>BeV(eI(i$( S(eT(eiiU(eV(eJ(i$H(L^I(L^( S(eT(eiiU(eV(eJ(i$`L^^^I!L_ n E^^^I ^IL^L_(L^>C /L^L_L_ NIL_ NIL _L _L^L_L^( S(eT(e& U(i/V(i + ,  w;(IL_ w w w;(IL_ w w w;(IL_ w w>D w w;(IL` wx wĢ w w;(IL6` w w w;(IL[` wx w w;(IL` w w wU(i/V(i>`L` E w(>/ w [Щ wЩ w ! >Ew w;( ZK(iL(i Щ wЩ wx0(0(,(2(3(4(6(-9(Ȍ:(<(1(>(?(@(A(ȌB(C(D(E(( I ^ ,0 F(ILaF(G((ILa F(G((ILaF( G( YM>F w2(  n(LIc NI Lb0/(Lb8/(/( #F NIL1b/(L1b/( #F NILUb0(LUb80(0( #F NI Lyb0(ɹLyb0(i0( #F NI Lb0/(Lb0(Lb8/(/(80(0( #F NI Lb0/(Lb0(>GLb8/(/(0(i0( #F NILc/(Lc0(ɹLc/(0(i0( #F NILIc/(LIc0(LIc/(80(0( #FA(Lc 񦥠)()(LcA( 񦥠?(@(B( 񦥠D( XH>(ILcLi9(Lc 1( 9(Lc,(Lc>H ,( wZ3(4(2(Ȍ:( !2(Lc82(2(%(m;(&(imF(M<(Ld n 8IK(iL(i ;(;(IL|d;(F(ȐLidF(iF(G(L|dG(iG((-9( [ I,(<( ^0 F3(4(2(,(Ld w;(>IILd w wZ,( aZ,(ILd w(LHe /ILe:(8E(E(9(LEe:(ILEe /LEe:(2( WLf NILhe:(8E(E((9(LVf:(ILVf NILVf(ILVf:(2((0 U(iȅV(i>J;(ILeU(iȅV(iU(i4V(i81/(/(Lfō/(U(i5V(i 80(0(LDf0(0(LSf0( W9(Lf:(ILf NILf(Lf((i(i0 ;(ILfU(iȅV(iLf>KU(iȅV(i6(ILf3(Lf83(3(3( w3(L(gЩ wK(iL(i 6(ILOg4(LOg84(4(4( w,(ILg 񦥠)()(G(Lg ,,(+(*( 6,(Lg,(Lg1(ILg8,(,(,(i  >LDm,(& æ,(ILg1(ILg ,(,(ILg1(ILg,(,(L0h1(I 1(I%L0h,(,(I L0h+(*( 7,( Li,(*(i+(i Z+L\h hY *(i+(i Z+S(m*(T(iii(+( ee>MiPiU(eV(eILhLh h LiLh h 4(L1iЩ wK(iL(i  gI!Li !I( gJ( I(I()(H(H(Li ԭ)()(H(Loi ԭJ(ЭILiLiLZiLa`LiM(>NI N(ILi/(i /(/(LiN(M(M(I N(ILbj8/( /(0(i0(0(Lbj7/(<0(N(M(ȌJ(Щ wЩ wK(iL(iii M(I N(ILj wЩ wЩ w'('(Lj E'(LjN(ȌM(`Lj>O TЩ ZX gT(S( w6 w w  w/ w Z+L0k# # $# $#$ $# #$ # #k  Z+Lck# # # $ $ # # $ # # #kC  Z+Lk# # # $ $#$ $# $ # # #kv  Z+Lk# # # #>P$#$ $ $ $ $#$# # # #k  Z+Lk#$#$# # $ $ # $# $ # #$#$#kܩ  Z+L&l l  Z+LQl $l9  Z+L~l #$#$#ld  Z+Ll $l>Q  Z+Ll l  Z+L m!EMLM| FDED code{ tdc msx{ mikerl  Z+L5mthanks to atarionline`plm ((0 >/ w3(4(6(7/(<0(N(ȌM(`Lvm3(Lm3( T`4(Lm4( 0V`K(iL(i>R 3( T`LmJ(Lm`  æ q+ q+ Y2( 6(ILn2(Ln82(2(3(LJn2(K(iL(i i sm4(Lyn2(K(iL(i i sm6(ILn3(Ln83(3(3( w6(IL>Sn4(Ln84(4(4( w`Ln6 wLn D1:WCITY.FNTn *Lo D:WCITY.REPo )((L0o D:WCITY.CMCo$ )((((v(8((i(i))(i(i))()((( 栍((>T(p ) j((Ȍ(H(I(J(F(G(M wJ(Lp mM(I N(ILp/(0(3(4(LpЩ /LSpI(L7p *@ )N(M( ` ! jH(I(J(Щ gILpI(L}p *@ )N(M( ` ! jH(I(J(U(i>UV(iЅILp(U(iV(iЅIU(iV(iЅIL$r(L$rS(iT(i gItLfqS(iT(i'  Z+L>q difficulty{q2  Z+L]q controller{qQ U(iV(iЅILq(ͻ(LqȌ(U(iV(iЅ>D Z,FA,FB,FC,DL=560,ADREKR,QQ BYTE ARRAY POK=0 BYTE PLA1,KON,LG,DIF,LGMPROC PO(BYTE A,B)POSITION(A,B)RETURN PROC DR(BYTE X,Y)DRAWTO(X,Y)RETURN;PROC TX(BYTE X,Y CHAR ARRAY T)BYTE Q1,Q2,Q3 Q3=T(0)FOR Q1=1 TO Q3 DO Q2=T(Q1)POKE(ADREKR+X+Y*40+Q1-1,Q2)OD*W RETURNPROC TX(BYTE X,Y BYTE ARRAY T)BYTE Q1 CARD Q3,Q4 Q1=T(0)Q3=ADREKR+X+Y*40 Q4=PEEKC(@ T)MOVEBLOCK(Q3,Q4+1,Q1)[96]PROC SZ(BYTE X,Y,W)POK(ADREKR+X+Y*40)=W[96]PROC ERT();PO(0,23)PRINTD(6,"")TX(0,23,"");PO(16,23)PRINTD(6,"lives")TX(1*X6,23,"lives");PO(33,23)PRINTD(6,"time")TX(33,23,"time")RETURNPROC MUREK(BYTE A,B,MA,MB);PO(FA,FB)PRINTD(6,"#$")TX(FA,FB,"");PO(FA,FB+1)PRINTD(6,"#$")TX(FA,FB+1,"")RETURNPROC MUREK1(BYTE A,B,MA,MB,T);PO(FA,FB)PRINTD(6,"")TX(FA,FB,""*Y);PO(FA,FB+1)PRINTD(6,"")TX(FA,FB+1,"")[96]PROC KRA(BYTE A,B,MA);PO(FA,B)PRINTD(6,"%&")TX(FA,B,"")RETURNPROC KRA1(BYTE A,B,MA);PO(FA,B)PRINTD(6,"")TX(FA,B,"")RETURNPROC OKNO(BYTE A,B,T)IF T=1 THENPO(A,B)PRINTD(6,"12223")PO(A,B+*Z1)PRINTD(6,"7 8")PO(A,B+2)PRINTD(6,"7 8")PO(A,B+3)PRINTD(6,"45556")TX(A,B,"")TX(A,B+1,"")TX(A,B+2,"")TX(A,B+3,"")ELSEIF T=2 THEN PO(A,B)PRINTD(6,"")PO(A,B+1)PRINTD(6," ")PO(A,B+2)PRINTD(6," ")PO(A,B+3)PRINTD*[(6,"")TX(A,B,"UVVVW")TX(A,B+1,"[\")TX(A,B+2,"[\")TX(A,B+3,"XVVVZ")ELSEIF T=3 THEN ;PO(A,B)PRINTD(6," ")PO(A,B+1)PRINTD(6," ");PO(A,B+2)PRINTD(6," ")PO(A,B+3)PRINTD(6,"")TX(A,B,"JKKKL")TX(A,B+1,"PQ")TX(A,B+2,"*\PQ")TX(A,B+3,"RNNNS")ELSEIF T=4 THEN ;PO(A,B+1)PRINTD(6," ")PO(A,B+2)PRINTD(6," ");PO(A,B+3)PRINTD(6," ")PO(A,B+4)PRINTD(6," ")TX(A,B+1,"PQ")TX(A,B+2,"PQ")TX(A,B+3,"PQ")TX(A,B+4,"MKKKO")FIRETURNPROC PRZ1(BYTE X*],Y);PO(X+1,Y+1)PRINTD(6,";")TX(X+1,Y+1,"");PO(X+1,Y+2)PRINTD(6,"<=")TX(X+1,Y+2,"")[96]PROC PRZ2(BYTE X,Y);PO(X+1,Y+1)PRINTD(6,">?")TX(X+1,Y+1,"");PO(X+1,Y+2)PRINTD(6,"@A")TX(X+1,Y+2," !")[96]PROC PRZ3(BYTE X,Y);PO(X+1,Y+1)PRINTD(6," *^ ")TX(X+1,Y+1,"");PO(X+1,Y+2)SZ(X+1,Y+2,34)IF POK(ADREKR+X+3+Y*40+80)=0 THEN ;PRINTD(6,"BC;")TX(X+2,Y+2,"#")ELSE ;PRINTD(6,"BC")TX(X+2,Y+2,"#")FI[96]PROC PUD(BYTE A,B);PO(A,B)PRINTD(6,")****+");PO(A,B+1)PRINTD(6,"/((((0");PO(A,B+2)PRI*_NTD(6,"/((((0");PO(A,B+3)PRINTD(6,",----.")TX(A,B," ")TX(A,B+1,"")TX(A,B+2,"")TX(A,B+3," ")RETURNPROC PLO(BYTE A,B,MA,MB);PO(FA,FB)PRINTD(6,"'")SZ(FA,FB,7)RETURNPROC PLO1(BYTE A,B,MA,MB);PLOT + 5 ATRYB.;PO(FA,FB)PRIN*`TD(6,"");SZ(FA,FB,7+128)SZ(FA,5,135)RETURNPROC ZAM(BYTE A,B,MA,MB);PO(FA,FB)PRINTD(6,"9")SZ(FA,FB,25)RETURNPROC ZAM2(BYTE A,B,MA,MB);PO(FA,FB)PRINTD(6,"S")SZ(FA,FB,51)RETURNPROC ZAM21(BYTE A,B,MA,MB);PO(FA,FB)PRINTD(6,"");SZ(FA,FB,128+51*a)SZ(FA,FB,179)RETURNPROC WLAZ(BYTE A,B);PO(A,B)PRINTD(6,"U WY[\")TX(A,B,"579;<");PO(A,B+1)PRINTD(6,"V XZZ]")TX(A,B+1,"68::=")RETURNPROC GR()GRAPHICS(0)ADREKR=PEEKC(88)RETURNPROC RYSP()IF PLA=1 THEN ;PO(30,9) PRINTD(6,"");PO(*b30,10)PRINTD(6," ");PO(30,11)PRINTD(6," ") TX(30,9,"]]]^") TX(30,10,"_") TX(30,11,"_")FIIF PLA=4 THEN;PO(32,19)PRINTD(6,")****+")TX(32,19," ");PO(32,20)PRINTD(6,"/((((0")TX(32,20,"")FIIF PLA=5 THEN;PO(0,18)PRINTD*c(6," ")TX(0,18,"");PO(0,19)PRINTD(6," ")TX(0,19,"")FIRETURNPROC LEV() ;PO(20,23)PRINTD(6,"level{ ")TX(20,23,"level{")[96]PROC REK();PO(4,0)PRINTD(6,"# # $# $#$ $# #$ # #")TX(4,0,"");PO(*d4,1)PRINTD(6,"# # # $ $ # # $ # # #")TX(4,1,"");PO(4,2)PRINTD(6,"# # # $ $#$ $# $ # # #")TX(4,2,"");PO(4,3)PRINTD(6,"# # # #$#$ $ $ $ $#$# # # #")TX(4,3,"*e");PO(4,4)PRINTD(6,"#$#$# # $ $ # $# $ # #$#$#")TX(4,4,"");PO(7,5)PRINTD(6," ")TX(7,5,"");PO(7,6)PRINTD(6," $")TX(7,6,"*f");PO(7,7)PRINTD(6," #$#$#")TX(7,7,"");PO(7,8)PRINTD(6," $")TX(7,8,"");PO(7,9)PRINTD(6," ")TX(7,9,"");PO(3*g,10)PRINTD(6,"EMLM| FDED code{ tdc msx{ miker")TX(3,10,"%-,-|&$%$code{tdcmsx{miker");PO(7,11)PRINTD(6,"thanks to atarionline`pl")TX(7,11,"thankstoatarionline`pl")RETURNPROC PRE();IF (POK(53279)=3 OR POK(53279)=5) AND KON=0 THEN ;IF *hPEEK(ADREKR+447)=116 THEN ZERO(ADREKR+440,39);PO(2,11)PRINTD(6,"difficulty{")TX(2,11,"difficulty{");PO(16,11)PRINTD(6,"controller{")TX(16,11,"controller{");FI;PO(28,11)PRINTD(6,"joystick ")TX(28,11,"joystick");ELSE PO(28,11)PRINTD(6,"light *{ wY [Lg(Lw` ( (L`(L` ( W(((Ȍ( !ͭ(L`8(((m((im(M(L}a n tB(i(i ((I LEa((ȐL2a(i((LEa(i(5)-( w6jY NC(( [0 X?((((La(iȅ(i(ILa(iȅ(i W( W(ILa(iȅ(i7)L5b /ILb(8((ʹ(L2b(IL2b /L2b(( "ULc NILUb(8(6k(9)ʹ(LIc(ILIc9)ILIc((9) n = =(i4(i81(ͪ(Lbō((i5(i 8((Lb(ͫ(Lc( "U n0 (iȅ(i(ILIc(iȅ(i6lʹ(Lc(ILc NILc9)Lc9)3)i4)i0 (ILc(iȅ(iLc(iȅ(i(ILcͮ(Lc8(((i…(i((L3d(i(iЅ(i(i (ILfdͯ(Lfd86m(((iÅ(i((ILd 񦥠(((Ld ,((( 5ͧ(Ld(Ld(ILd8(((i  $m(& )(ILd(ILd ((ILe(ILe(ͧ(LFe(I (I%LFe((I LFe(( 6n6( L(f((i(iLkeeh O)(m((iii(( eeiPi(e(eILf(i(iLee񦡥 O)L(f(i(iLff O)(Laf(i(iЅ6o(i(i I!Lf !( g(((( ((i( ԭ(((IVLfLf Lf ԭ( "?ILfLfLfLfILfLgLx^`Lg(I (IL2g(i (ͪ(L2g(((I (I6pLg8( ((i(ͫ(Lg7(<(((Ȍ((i(iЅ(i(iЅ(i(iii (I (IL2h(i…(i(i(iЅ(i(iЅ(͢(L)h =(Lh(Ȍ(`L6h T6qЩ WX g(( w6 w w  w/ wLhh O)Lhh O)L ih O)L/ w(((7(<((Ȍ(`Lj(Lj( Q`(Lj( rS`(i(i ( Q`Lk(L%k`(͸(LC6tk )(L*k TW( (ILqkͭ(Lqk8(((Lk((i(i g j(Lk((i(i g j(ILkͮ(Lk8((( w(ILlͯ(Ll8((( w`L!l6 wL:l D16u:WCITY.FNTl- SQLfl D:WCITY.REPlZ /P;):)Ll D:WCITY.CMClz /P=)<);):)v=)8<):)i;)iPP:)i;)i'P&P<))>)=)<) 栍B)B)>)p P 3h6)7)Ȍ8)(((((M w6v(LZm k(I (ILWm((((LgmЩ /Lm(Lm Q@ P(( F] ! 3h(((ILm(Lm Q@ P(( F] ! 3h(((ILm6)I ILo6)Lo(i(i gI6wtLn(i(i' L[n difficulty{nO  O)Lwn controller{nk  O)ILn8)8)Ln8)7)LnLn joystickn  O)LnLn lightgunnȢ  O)(iƅ(i`m8) w6)((ILTo(((L(o6x((ILTo(LTo PPP QLm``l  O)Lwn controller{nk  O)ILn8)8)Ln8)7)LnLn joystickn  O)LnLn lightgunnȢ  O)(iƅ(i`m8) w6)((ILTo(((L(o48 lʆ &e J Jꅆ8冨凪`ʆ ee` 9E…¥ 9` l'&&&8儨児祂*L2&&*ń8&&L2 ` Fj`NzhihiHHȱȱLڧ`膥ɠQ-ĮȐ`此į۠ŲLlȄ.70Q- Ġ7`eޠ Ȅ e _ 嘠ƍ iť +иΦ +У N|gun")TX(28,11,"lightgun");FIRETURNPROC AS()K=255GR()FA=0 FB=0 A=0 B=0 REK() B=5 B=10B=15WHILE K=255DO[173 $D40B 201 110 208 249]OD K=42RETURNjoystick ")TX(28,11,"joystick");ELSE PO(28,11)PRINTD(6,"light ( +Ж꥾ +ȑȑȑɦȘ 9`5h{DObFIcIFPODdORTOeANDFORTINT"LSHMOD RSHSETDXORBYTE!CARD#CHAR ELSEaEXITSFUNCAPROCBSTEPfTHEN`TYPEFARRAY@UNTILXWHILEQDEFINE&ELSEIFjMODULEWRETURNRINCLUDECPOINTEREiIN}^I^Lࢠ]I^+ 8+ _0)?ʈ LbACTION! (c)by Paul Lee CNomputer Services (PCS) April , 1985 6. : BLV`  B JKIHiDiELV䄦 eRU _椤E +ƣ`𑛊 0H8`L NL² 9  P t LWL,Ԇ ؠPIPP`/`"/ԭ` PLnH h:,'iԥiՠiɨɑԈȩDȩ:ɥɤ LGLʰ򅡆ԅդ800) 0 0!Nՠ eԆ ٰԦդ` LLؠ L.8e膥 'eR壐Q8SRŦQH)`h) ȭL{QI` T`TU`TU  [L_` `N 赠`eLXYT i(?E:j B VBDEH JIK V` 'Xo' '#  "%' .'#####   >'  ]' N  !"#$%|''  %% !' ' #'' !"#$$ #"$#!$'   ( !!AA@@@@AA!! D(`>>N`d(x<((H((E(( ;W1=POK(564)((W1=POK(564)-50((<8>>>>>>::::>(pppEppppApppppppppppppE=A)F W1>180 THEN W1=180 FI-)LR) F)H)I)J)(mF)(iN(G) eK)eL))H gN)M)M)iN)iJ)L)K) `ROCL) )(m)(i() ee(e(e)`L**ʹ(Lz*(i(iipi( 84N `L~* L*8  L*8  L* L*8  L*8  L* L+(i((i((i (i(e(e$m(i (i(e(eN$m(i (i(e(e$m(i(i(e(e$m(i(i(e(e$m(i(i(e(e$m(i(i(e(e$m(`L<,$ )$ ) {*LZ,,T O)Lp,livesN,j O)L,time,! O) '*`L,(IL, 񦥠('m('i('m('i(L.(IL- 񦥠(,'m(-'i(<'m(='i(L.(ILb- 񦥠(['m(\'i(z'm({'i(L.(IL-N 񦥠('m('i('m('i(L.(IL- 񦥠('m('i('m('i(L.(IL+. 񦥠('m('i('m('i(L.(ILn. 񦥠((m((i(B(m(C(i(NL.(IL. 񦥠((i(e(i((iB(eC(i(`. PL. .(. ((.I .IL/(.(.//((L//(.(.6/6/((L//.ILu/LG//D(( O)(iLd//Na( O)L/L{//x(( O)(iL//( O)(i((i(L&/(i((i(L/LQ3(.(.//((LQ3(.(.00((L,3N.IL1(m((m(m(m((e(eE(m((m(Nm(m(ii(e(eF(m((m(m(m(i(i(e(eF(m((m(m(m(i)i(e(eEL3.IL2(m((m(m(m((e(eA(m((Nm(m(m(ii(e(eB(m((m(m(m(i(i(e(eA(m((m(m(m(i)i(e(eBL3.IL3(m((m(m(m((e(eC(m(N(m(m(m(ii(e(eD(m((m(m(m(i(i(e(eD(m((m(m(m(i)i(e(eC(i((i(L0(iP((i((i((i(L/`REKRLY3 NR3(R3(T333((L3U3L3L33S3( O)L3L33S3( O)(i((i(Lp3`3L3 33ILY4L3333 O)3iL 443 O)3iL)44#3 O)3iLH44B3 O)L5N3IL4Ll4UVVVW4f33 O)3iL4[\43 O)3iL4[\43 O)3iL4XVVVZ4Ħ3 O)L53IL]5L4JKKKL433 O)3iL5PQ53 O)3iL-5PQ5'3 O)3iLL5RNNNS5FN3 O)L53IL53iLx5PQ5r3 O)3iL5PQ53 O)3iL5PQ53 O)3iL5MKKKO5Ϧ3 O)`EXL5555i5iL66 O)5i5iL(66% O)`TIL;6766666i76iLWN66T O)66i76iLz6 !6w O)`L1L6666i6iL66 O)6i6i" )(m6(iii(6 eeiPi(e(eLY76i6iLI7#7FN O)L{76i6iLn7#7l O)`+920,L7 |7(}7 (((}7(777((LB8;(|7(~777((L&8F(m((m(m(m((e(e7(д(L7(i(((i(((L7`8(LH8D8CN8LX8 8QD8C8 O)D8iLy88rC8 O)D8iL88C8 O)D8iL8 8C8 O)`12,$L8 88888 7`N8:L8 88888 7`POKEL9 99999 7`C9L89 1949339N2919 7`$06)L[9 T9W9V9U9T9 7`9L|9x9w9L9579;<9x9w9 O)x9iL968::=9w9 O)`L99(i(i (i(iq( (i(iq(9(( )`L&:(i(i (iN(iq((i(i (i(iq(`FI:L: ::I::: 7(i(i8::i(i(i:(i(i:((ͤ(L#;͏:L; 9 9" 9(L:((ͤ(LT; 96(( ) 9N?(( )(L(;(i(i8::i(i(i:(i(i:i((ͤ(L; 95(( )͏:L; 9H(( )(L;(<ͤ(L; 9 (( )(L;(i(i8::i(i(i:(i(i8N::(i(i:(:q(( ) #:A(( )(L'=`L= TX g((`L=(U͸(L= gIL=(i(i(L=`L=(͸(L3> gIL>(i(i /L >L3>IL->L3>(L=`L7>(Ni(iЅ((i(iЅ(i(ͤ(L!?b(m(c(i((i(im(im(i(e(e((m((i((i(im(im(i(e(e((Lg>`L%? ԩЩ ЩNЩЭ k Ԍ ԩЩ`L[?7)L?x((xͪ(L? g "?I! IL?x( 4>L? 4>(Lm?`L?(i(iЅ6m((i(iЅ4m((i(iЅ2m((i(iЅ0m(`L@(L@ ?((L@(m(N(i((i(im(im(i(e(e((L!@L@ ?((L@)m()i((i(im(im(i(e(e((L@`L@(ILhA(i(7)ILeA5)LeA((i(iNm(i8(e(e @(ILAͻ(LA(i(ii˅i ((ILA0ͻ(LA(8((((AA͢(LA18(( @(LA(ILB0ͻ(LB(Ȍ((IL1B(IL1B((ȌN(ͼ(LsB(iȅ(i (i(i `LwB !ʹ(L2CILB g "?(ip((i(( (e(i(e(e8((   @ {*IL"C   g "? @ N LzB !`L>C(( `LQC !(i(i ;C(ILD' 8' V3 .(7ͤ(LD  ( 񦥠(E(( )  ( 񦥠((iF( )(LC(͢(LNdD'm('i'm('i 3(L!D' 9' 9  E8LD]]]^D  O)LD_D  O)LD_D  O)(ILH' : . ' .   . 3(͢(NILqM(((Lq  Z+Lq joystick qũ Lq  Z+Lq light gunq S(iƅT(iU(eV(e`m(Ȍ(H(H(ILtrI(H(I(LHrI(I(ILtrH(Ltr )** *Lo``n(ͻ(LqȌ(U(iV(iЅ<LcE,'m(-'i<'m(='i 3(L E 9(͢(LE,'m(-'i<'m(='i 3(LuE 3 3  3  3  3L )Q )Q )S )N 7N 8@ 7! 9 9  9  8 8@  7 9 9  8  8! 9 93  )3  )3  )3 )3 )3 )3 )3 )N3 )3! )3 )3 )! ) )N  )N  ) ) )  8  8 w  7w 7w!! 7" " 7' # 7[% % 7'# 7& )(ILNH .' 9'" .'" 9# 3  E8 E8  E8  E8  E8  E8 E8  E8  E8 E8 E8  9 !! 9(ILI .'  .  .' :N 8 V3 3 3 59L[I IT O)LrIIk O)' & V3(ILHK' : 7(i(i(i(i(i(iHH hhi  9(iN(iHH hhi " 9(i(iHH hhi 6 9(i(iHH hhi ? 9' .  9 59  8  8(͢(L%K'm('i'm('iN 3(LJ . 3 3(ILL' 9 y9 y9G' 7 ' .(͢(LK'm('i'm('i 3(LK 8' 8 H' 7(ILXMN .(ͤ(LL  ( 񦥠(E(( )  ( 񦥠((iF( )(L"L(͢(LL(m((iB(m(C(i 3(LL' 9 y9 y9' 9?'N 7  E8 " E8 " E8 9E )E )E )E )(IL0O' :  7 w' 7(͢(LM(i(e(i(iB(eC(i 3(LMw 7 w N7 7 Y 7Y 7 '  7 ' 7 ('͢(LN ( )(i(LgN 7 )? ) ) ?'  7   7 & # 7' 9 y9! y9'N# 8G  7@ 7` 201 15 L/ wo w`LW(Kͬ(LW(`LNW !7)IL%X0  w(IL%X w((((& )(i(i ( i2(( i&( Q (ͤ(LX( g "? @(( ( w8(((I NLXLXLX(LXͮ(L4Y g "?8(((( ( wLX(((((ip(i' -(8(( {*( '*`LzYvY w w w w3)i4)i0 (i(i& Щ vYINLZLYlevel{Y O)(d5) ( 5) ޠ(5) ޠ((LZ(i$ )(i$ )(LZ(i$ )(i$ )(i$ )(LZ(LZ(i$N )L [LZtheendZ O)`27L[ [ [I!L[ n = [ [ [I [ILG[L[7)La[ /L^[L[L[ NIL[ n = [ [ [I [IL[L[ NIL[L[IL[L[Lo[L[IL[L[L[(i(iN& / w '* 9,  w(IL'\ w w w(ILL\ w w w(ILz\ w w w w(IL\ wx wĢ w w(IL\ w w w(IL\ Nwx w w(IL] w w w(IL<] w w w>/ w`LI] = w5)>/ w wYЩ wЩ w ! w w( W(i(i Щ wЩ wx(((((N((-(Ȍ(((((((Ȍ((((9) NC [ 9,0 X?8)ILP^((8)ILd^ ((8)ILx^( ( TWM w(  d ԭ g "?7)L ` NI L^0ͪ(L^8(( 4> NNIL^(L^( 4> NIL_ͫ(L_8(( 4> NI L:_(ɹL:_(i( 4> NI Lq_0ͪ(Lq_ͫ(Lq_8((8(( 4> NI L_0ͪ(L_(ɹL_8(((i( 4> NIL_(L_(ɹL_((iN( 4> NIL `(L `ͫ(L `(8(( 4>(LG` 񦥠((LG`( 񦥠( (( 񦥠( @(IL_` wY [Lg(Lw` ( (L`(L` ( W(((Ȍ( !ͭ(L`8(((m((iNm(M(L}a n tB(i(i ((I LEa((ȐL2a(i((LEa(i(5)-( wY NC(( [0 X?((((La(iȅ(i(ILa(iȅ(i W( W(ILaN(iȅ(i7)L5b /ILb(8((ʹ(L2b(IL2b /L2b(( "ULc NILUb(8((9)ʹ(LIc(ILIc9)ILIc((9) n = =(i4(i81(ͪ(Lbō((i5(iN 8((Lb(ͫ(Lc( "U n0 (iȅ(i(ILIc(iȅ(iʹ(Lc(ILc NILc9)Lc9)3)i4)i0 (ILc(iȅ(iLc(iȅ(iN(ILcͮ(Lc8(((i…(i((L3d(i(iЅ(i(i (ILfdͯ(Lfd8(((iÅ(i((ILd 񦥠(((Ld ,((( 5ͧ(Ld(Ld(ILd8(((iN  $m(& )(ILd(ILd ((ILe(ILe(ͧ(LFe(I (I%LFe((I LFe(( 6( L(f((i(iLkeeh O)(m((iii(( eeiPiN(e(eILf(i(iLee񦡥 O)L(f(i(iLff O)(Laf(i(iЅ(i(i I!Lf !( g(((( ((i( ԭ(((IVLfLfN Lf ԭ( "?ILfLfLfLfILfLgLx^`Lg(I (IL2g(i (ͪ(L2g(((I (ILg8( ((i(ͫ(Lg7(<(((Ȍ((i(iЅ(i(iЅ(i(iiiN (I (IL2h(i…(i(i(iЅ(i(iЅ(͢(L)h =(Lh(Ȍ(`L6h TЩ WX g(( w6 w w  w/ wLhh O)LNhh O)L ih O)L/ w((N(7(<((Ȍ(`Lj(Lj( Q`(Lj( rS`(i(i ( Q`Lk(L%k`(͸(LCk )(L*k TW( (ILqkͭ(Lqk8(((Lk((i(i g j(Lk((L