,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 ZARBYTE A,B,C,C1,D,E,E1,F,EE,OPE,BX,BY,B1,B2,BC,BD,BC1,BB,WYB,WY2,Q1,Q2,Q3,Q4,Q5,ZYC,LEVEL,P1,P2,P3,P4,P5,P6,ILP,ILZP,BAZA,POW,ILP1,FIRE,K=764,KON=53279,JO=$278,RND=$D20A,G9=53271,G10=53272,G0A=$D40ACARD CZAS,CZMAXBYTE ARRAY PRZECE(9),PRZECF(9),PRZECE1(30),STRX(25),STRY(25),STR1(25),PSX(22),PSY(22),PS1(22)BYTE PSM,PSI,SP,PP1,PP2,TRU,O1,O2,TB,TB1,TB2CARD DL=560,QQ,ADRB1,ADRB2,ADRB3,ADRBIG,ADRA1,ADRA2,ADRP,ADRPOBYTE ARRAY SCR=$9BAD,DISPL=[112 112 11266 $B3 $9B 66 $E1 $9B 66 $0F $9C 66 $3D $9C 66 $6B $9C 66 $99 $9C 66 $C7 $9C 66 $F5 $9C66 $23 $9D 66 $51 $9D 66 $7F $9D 66 $AD $9D 66 $DB $9D 66 $09 $9E 66 $37 $9E 66 $65 $9E66 $93 $9E 66 $C1 $9E 66 $EF $9E 66 $1D $9F 66 $4B $9F 66 $79 $9F 82 $A7 $9F 82 $D5 $9F 65 0 0]CARD ARRAY AY(27)BYTE ARRAY BO(7) $99 $9C 66 $C7 $9C 66 $F5 $9C66 $23 $9D 66 $51 $9D 66 $7F $9D 66 $AD $9D 66 $DB $9D 66 $09 $9E 66 $37 $9E 66 $65 $9E66 $93 $9E 66 $C1 $9E 66 $EF $9E 66 $1D $9F 66 $4B $9F 66 $79 $9F 82 $A7 $9F 82 $D5 $9F 65 0 0]CARD ARRAY AY(27)INCLUDE"RUNTIME.ACT"MODULE; TOM CAT; VER.1,2 2010; Z WER. 1,4 SPACE TRAVEL; BY TOMASZ CIE$LEWICZ IN MARCH 1994; ATARI MAGAZYNINCLUDE "Z.ACT"BYTE ARRAY SG(11)INCLUDE "D1:WPIS_TAB.ACT"INCLUDE "D4:PLAYER.ACT"INCLUDE "D4:WG.ACT"PROC TX(BYTE X,Y BYTE ARRAY T)BYTE Q1 CARD Q3,Q4 Q1=T(0)Q3=$9BAD+X+AY(Y)Q4=PEEKC(@ T)MOVEBLOCK(Q3,Q4+1,Q1)[96] INCLUDE "WPIS2.ACT"PROC RYSWYB(BYTE X,Y)QQ=X+AY(Y) SCR(QQ)=20 SCR(QQ+1)=19 SCR(QQ+2)=20 QQ==+46SCR(QQ)=19 SCR(QQ+1)=19 SCR(QQ+2)=19 QQ==+46SCR(QQ)=20 SCR(QQ+1)=19 SCR(QQ+2)=20[96]PROC LUDZ(BYTE X,Y)QQ=X+AY(Y) SCR(QQ)=66 SCR(QQ+1)=67 SCR(QQ+2)=68 SCR(QQ+3)=69 SCR(QQ+4)=70 SCR(QQ+5)=71 QQ==+46SCR(QQ)=72 SCR(QQ+1)=73 SCR(QQ+2)=74 SCR(QQ+3)=75 SCR(QQ+4)=76 SCR(QQ+5)=77[96]PROC RYSBAZ(BYTE X,Y,Z)QQ=X+AY(Y)IF TB=1 THEN IF Z=1 THEN ZERO($9BAD+X+AY(Y-1),5) ELSE ZERO($9BAD+X+AY(Y+6),5)FI INCLUDE "BOS1.ACT"ELSEIF TB=2 THEN IF Z=1 THEN ZERO($9BAD+X+AY(Y-1),5) ELSE ZERO($9BAD+X+AY(Y+6),5)FI INCLUDE "BOS2.ACT"ELSE IF Z=1 THEN ZERO($9BAD+X+AY(Y-1),5) ELSE ZERO($9BAD+X+AY(Y+9),5)FI INCLUDE "BOS3.ACT"FI[96]PROC SOUWY()IF SG(0)=0 THENWY2==+1 IF WY2=3 THEN WY2=0 FIIF WYB>0 & WY2=0 THEN WYB==-1 SOUND(0,51+WYB,8,WYB) IF BAZA=0 THEN SOUND(1,40+WYB,6,WYB)S OUND(2,60,12,WYB&7) ELSE SOUND(1,60+WYB,10,2)SOUND(2,62+WYB,10,2) IF WYB=0 THEN SOUND(1,0,0,0)SOUND(2,0,0,0)FI FI FIFI[96]PROC ZMOC()[173 $D40B 201 103 208 249]G0A=1 G0A=1 G9=$ACG0A=1 G0A=1 G0A=1 G10=$AA[96]PROC SCROL()DISPL(70)=O1POKE($D!404,O2)O2==-2 IF O2=0 THEN O2=4 O1==+1 IF O1=$A7 THEN O1=$A4 FI FI[96]PROC REKLAMOWKA()WHILE STRIG(0)#1 DO ODDL=DISPL POKE(710,0)POKE(709,14)POKE(756,224)TX(22,1,"4/-#!4")DISPL(70)=$A7 POKE($D404,0)IF SG(0)=1 THENCOMM(0,1,0)FIDO IF K="28 % STRIG(0)=0 THEN EXIT FI IF KON=6 THEN EXIT FIODK=255[96]PROC RUCHYJO();BONUSY:IF BO(0)>0 THEN Q1=BO(3) Q1==+1 IF Q1=5 THEN BO(1)==-1 BO(3)=0 IF BO(1)=4 THEN BO(0)=0 ELSE QQ=BO(1)+AY(BO(2)) SCR(QQ+1)=0 FI ELSE BO(3)=Q1 FI QQ=BO(1#)+AY(BO(2)) Q2=BO(0) IF Q2=1 THEN Q3=27 ELSEIF Q2=2 THEN Q3=26 ELSEIF Q2=3 THEN Q3=28 FI SCR(QQ)=Q3 FIQQ=A+AY(B)ZERO($9BAD+QQ,6)ZERO($9BAD+QQ+46,6)IF B2=0 THENIF JO=14 & B>3 THEN B==-1 FI IF JO=13 & B<20 THEN B==+1 FI IF JO=7 & A<31 THEN A==+$1 FI IF JO=11 & A>6 THEN A==-1 FIIF JO=10 THEN IF A>6 THEN A==-1 FI IF B>3 THEN B==-1 FI FI IF JO=9 THEN IF A>6 THEN A==-1 FI IF B<20 THEN B==+1 FI FIIF JO=6 THEN IF A<31 THEN A==+1 FI IF B>3 THEN B==-1 FI FI IF JO=5 THEN IF A<31 THEN A==+1 FI IF B<20% THEN B==+1 FI FIFILUDZ(A,B)[96]PROC LUDZSTR()BYTE Q1 FOR Q1=1 TO 3 DO C=STRX(Q1) D=STRY(Q1) IF STR1(Q1)=1 THEN C==+1 QQ=C+AY(D) SCR(QQ)=1 QQ==-1 SCR(QQ)=0 IF C=46 THEN STR1(Q1)=0 FI STRX(Q1)=C FI IF SP>1 THEN Q3=ST&R1(Q1+5) IF Q3=1 THEN C=STRX(Q1+5) D=STRY(Q1+5) Q2=0 IF B2=0 THEN D==-1 Q2=46 IF D=2 THEN Q3=0 QQ=C+AY(D+1) SCR(QQ)=0 FI STRY(Q1+5)=D FI IF Q3=1 THEN C==+1 QQ=C+AY(D) SCR(QQ)=2 QQ==-1+Q2 SCR(QQ)=0 IF 'C=46 THEN Q3=0 FI STRX(Q1+5)=C FI STR1(Q1+5)=Q3 FI Q3=STR1(Q1+10) IF Q3=1 THEN C=STRX(Q1+10) D=STRY(Q1+10) Q2=0 IF B2=0 THEN D==+1 Q2=46 IF D=22 THEN Q3=0 QQ=C+AY(D-1) SCR(QQ)=0 FI STRY(Q1+10)=D ( FI IF Q3=1 THEN C==+1 QQ=C+AY(D) SCR(QQ)=3 QQ==-1-Q2 SCR(QQ)=0 IF C=46 THEN Q3=0 FI STRX(Q1+10)=C FI STR1(Q1+10)=Q3 FI FI IF SP=3 THEN IF STR1(Q1+15)=1 THEN C=STRX(Q1+15) D=STRY(Q1+15) ) D==-1 STRY(Q1+15)=D QQ=C+AY(D) SCR(QQ)=4 QQ==+46 SCR(QQ)=0 IF D=2 THEN STR1(Q1+15)=0 QQ==-46 SCR(QQ)=0 FI FI IF STR1(Q1+20)=1 THEN C=STRX(Q1+20) D=STRY(Q1+20) D==+1 STRY(Q1+20)=D QQ=C+AY(D) IF D=22 THEN STR1(Q1+2*0)=0 QQ==-46 SCR(QQ)=0 ELSE SCR(QQ)=5 QQ==-46 SCR(QQ)=0 FI FI FI OD[96]PROC RYSZYC()IF ZYC<10 THEN SCR(20)=ZYC+8FI[96]PROC RYSPUN()IF P1>9 THEN P1==-10 P2==+1 FI IF P2>9 THEN P2==-10 P3==+1 FI IF P3>9 THEN IF P1>9 THEN P1==-1+0 FI IF P2>9 THEN P2==-10 FI P3=0 P4==+1 ZYC==+1 RYSZYC() FIIF P4>9 THEN P1=0 P2=0 P3=0 P4=0 P5==+1 FIIF P5>9 THEN P1=0 P2=0 P3=0 P4=0 P5=0 P6==+1 FISCR(38)=9+P1 SCR(37)=9+P2 SCR(36)=9+P3 SCR(35)=9+P4 SCR(34)=9+P5 SCR(33)=9+P6[96]PROC OPGR()TX,(6,0,"3456 !#-./0123456 -./0")TX(6,1,">?@A$%&'()*+,789:;<=>?@A789:;")SCR(17)=34FOR Q1=0 TO 45 STEP 3 DO TX(Q1,22,"")ODRYSZYC()RYSPUN()[96]PROC PRZECSTR()BYTE Q1FOR Q1=0 TO PSMDO IF PS1(Q1)=1 THEN IF PSX(Q1)->5 THEN PSX(Q1)==-1 QQ=PSX(Q1)+AY(PSY(Q1)) SCR(QQ)=6 QQ==+1 SCR(QQ)=0 ELSE PS1(Q1)=0 FI FIOD[96]PROC RYSWYB1(BYTE X,Y,L) QQ=X+AY(Y)IF E1=255 THEN RYSWYB(X,Y)FIIF E1=254 THEN SCR(QQ)=21 SCR(QQ+1)=20 SCR(QQ+2)=21 QQ==+46 SCR.(QQ)=20 SCR(QQ+1)=20 SCR(QQ+2)=20 QQ==+46 SCR(QQ)=21 SCR(QQ+1)=20 SCR(QQ+2)=21FIIF E1=253 THEN SCR(QQ)=22 SCR(QQ+1)=21 SCR(QQ+2)=22 QQ==+46 SCR(QQ)=21 SCR(QQ+1)=21 SCR(QQ+2)=21 QQ==+46 SCR(QQ)=22 SCR(QQ+1)=21 SCR(QQ+2)=22FIIF E1=252 THEN SCR(/QQ)=0 SCR(QQ+1)=22 SCR(QQ+2)=0 QQ==+46 SCR(QQ)=22 SCR(QQ+1)=22 SCR(QQ+2)=22 QQ==+46 SCR(QQ)=0 SCR(QQ+1)=22 SCR(QQ+2)=0FIIF E1=251 THEN SCR(QQ+1)=0 SCR(QQ+2)=0 QQ==+46 ZERO($9BAD+QQ,3)QQ==+46 SCR(QQ+1)=0 SCR(QQ+2)=0 PRZECE1(EE)=1 ;BONUS: IF X>015 THEN BO(4)==+1 IF BO(4)=BO(5) THEN BO(4)==-4 IF BO(0)=0 THEN BO(4)=0 BO(1)=X+1 BO(2)=Y+1 BO(3)=0 IF RND=0 THEN Q1=1 ELSE Q1=2 IF LEVEL>5 & RND<20 THEN Q1=3 FI FI BO(0)=Q1 FI FI FIFIIF L=1 THEN LUDZ(A,B)FI[96]PROC PRZECWYB(BYT1E L)FOR EE=1 TO ILP DO E1=PRZECE1(EE) IF E1>250 THEN E=PRZECE(EE)F=PRZECF(EE) RYSWYB1(E,F,L) IF PRZECE1(EE+10)=3 THEN RYSWYB1(E+3,F,L) QQ=E+AY(F)+6 SCR(QQ)=0 QQ==+46 SCR(QQ)=0 QQ==+46 SCR(QQ)=0 FI PRZECE1(EE)==-1 FIOD[96]PROC PRZECME2N()E=PRZECE(EE)E1=PRZECE1(EE)F=PRZECF(EE)IF E1=1 THEN E==-1;STRZELANIE: IF E>8 THEN IF RND>200 & RNDPSM THEN PSI=0 FI FI FI FI ;RYSPRZ(E,F): QQ=E+AY(3F) Q1=PRZECE1(EE+10) IF Q1=0 THEN SCR(QQ)=79 SCR(QQ+1)=80 SCR(QQ+2)=81 SCR(QQ+3)=0 QQ==+46 SCR(QQ)=82 SCR(QQ+1)=83 SCR(QQ+2)=84 SCR(QQ+3)=0 ELSEIF Q1=1 THEN SCR(QQ)=85 SCR(QQ+1)=86 SCR(QQ+2)=87 SCR(QQ+3)=0 QQ==+46 SCR(QQ)=88 SCR(QQ+1)=89 SCR(QQ+24)=90 SCR(QQ+3)=0 QQ==+46 SCR(QQ)=91 SCR(QQ+1)=92 SCR(QQ+2)=93 SCR(QQ+3)=0 ELSE SCR(QQ)=101 SCR(QQ+1)=102 SCR(QQ+2)=103 SCR(QQ+3)=104 SCR(QQ+4)=105 SCR(QQ+5)=106 SCR(QQ+6)=0 QQ==+46 SCR(QQ)=107 SCR(QQ+1)=108 SCR(QQ+2)=109 SCR(QQ+3)=110 SCR(QQ+4)=1151 SCR(QQ+5)=112 SCR(QQ+6)=0 QQ==+46 SCR(QQ)=113 SCR(QQ+1)=114 SCR(QQ+2)=115 SCR(QQ+3)=116 SCR(QQ+4)=117 SCR(QQ+5)=118 SCR(QQ+6)=0 FI IF Q1=3 THEN IF E=0 THEN E1=0 FI ELSE IF E=3 THEN E1=0 FI FIELSEIF E1>240 THEN E==-1QQ=E+AY(F)+3 SCR(QQ)=0 6QQ==+46 SCR(QQ)=0 QQ==+46 SCR(QQ)=0FIIF E1=0 & CZAS<(CZMAX+TRU)THEN IF (RND&1)+(RND&1)=0 THEN Q1=0 FOR Q2=1 TO ILP DO Q3=PRZECE1(Q2)Q4=PRZECE(Q2)+PRZECE1(Q2+10) IF Q3=1 & Q4>42 THEN Q1==+1 FI OD IF Q1=0 THEN IF LEVEL=1 THEN Q2=1 ELSEIF7 LEVEL=2 THEN Q2=0 ELSE IF RND65000 THEN CZAS=1000 FI TX(20,9,"levelcomplete") IF ILZP=ILP1 THEN TX(24,13,"perfect")FI IF LEVEL<100 & CZAS>260 THEN TX(21,16,"nextlevel") IF LEVEL>9 THEN SCR(32+AY(16))=Q1+7 SCR(33+AY(16))=Q2+7 ELSE SCR(33+AY(=16))=LEVEL+7 FI FI SOUWY() Q3==+1 IF Q3=4 THEN PRZECSTR() Q3=0 FIODCZAS=0 BAZA=0 IF TRU<235 THEN TRU==+14 FICZMAX==+TRU*2P2==+4 RYSPUN()IF LEVEL<20 THEN P2==+LEVEL ELSE P2==+20 FI RYSPUN()IF LEVEL>14 THEN IF LEVEL MOD 5=0 THEN PP2==+1 FI IF >LEVEL MOD 10=0 THEN PP1==+1 FIFITB==+1 IF TB=4 THEN TB=1 FIBO(0)=0 BO(4)=0 BO(5)==+1Q1=SG(10)Q1==+1IF Q1 MOD 2=0 THEN SG(4)=1 SG(8)==+1 IF SG(8)>2 THEN SG(8)=1 FI ADRPO=0 SG(5)=0 SG(6)=0 SG(7)=1ELSE SG(4)=0FISG(9)==+1 IF SG(9)>5 THEN SG(9)?=0 FISG(10)=Q1 MOVEBLOCK($9000+79*8,ADRP+SG(9)*120+8,120)ZERO($9BAD+AY(3),AY(19))ZERTAB()POKE(77,0)MOVEBLOCK($9000+101*8,ADRBIG,216)SG(2)==XOR 1IF SG(0)=1 THENKMUS() FI[96]PROC STRATAZYC(BYTE X)LUDZ(A,B) PRZECE(1)=X-1 PRZECE1(1)=255 PRZ@ECF(1)=B PRZECE1(11)=1 PRZECWYB(0)IF SG(0)=1 THEN COMM($50,0,0)FIZERTAB()IF CZAS>150 THEN CZAS==-150 FIWYB=15Q2=SG(0)Q3=BAZABAZA=0IF SG(0)=1 THEN SETV(0)COMM($40,0,0)FIQ1=50DO SOUWY()SOUND(2,0,0,0)ZMOC()Q1==+1 IF Q1=150 THEN EXIT FI ODABAZA=Q3SG(0)=Q2IF SG(0)=1 THEN COMM(0,0,0)SETV(GRAJ)FIZYC==-1 RYSZYC()OPGR()ZERO($9BAD+AY(3),AY(19))A=8 B=11SP=1BO(0)=0IF SG(0)=1 THENKMUS()FI[96]PROC TRAFBAZY()IF Q2=1 THEN STR1(Q1)=0 ELSEIF Q2=2 THEN STR1(Q1+5)=0ELSE STR1(Q1+10)=0B FIP1==+2 RYSPUN()POW==-1SCR(C+AY(D))=0 IF POW=26+TB2 & TB1=1 THEN TB1=2 IF TB=1 THEN MOVEBLOCK($9000+808,ADRB1+192,192) ELSEIF TB=2 THEN MOVEBLOCK($9000+808,ADRB2+176,176) ELSE MOVEBLOCK($9000+808,ADRB3+216,216)FI ELSEIF POW=10+TB2 & TCB1=2 THEN TB1=3 IF TB=1 THEN MOVEBLOCK($9000+808,ADRB1+384,192) ELSEIF TB=2 THEN MOVEBLOCK($9000+808,ADRB2+176,176) ELSE MOVEBLOCK($9000+808,ADRB3+432,216)FI FIWYB=15IF POW=0 THEN;CZARY(BX,BY-2) CZARY(BX,BY+(TB-1)*2)NEXTLEV()FI[96]PROC DDANEPOCZ()ZERTAB() ZYC=6 P1=0 P2=0 P3=0 P4=0 OPE=0 FIRE=0 P5=0 P6=0A=8 B=11 C1=0 ILP=6 SP=1 PP1=1 PP2=1 ILZP=0 ILP1=0 CZMAX=2000 CZAS=0 BAZA=0 TB=1 TB1=1 POW=0 B2=0 WYB=0 WY2=0 BO(0)=0 BO(4)=0 BO(5)=8SG(9)=0 SG(8)=1 SG(10)=0LEVEL=1 TRU=1O1=$A4E O2=2[96]PROC GRA()WHILE STRIG(0)#1 DO ODZERO($9BB0,24*46)POKE(709,$80)POKE(710,$8A)POKE(756,144)DL=DISPLDANEPOCZ()OPGR()LUDZ(A,B)IF SG(0)=1 THEN KMUS()FIDOSOUWY();STRZELANIE :LUDZSTR()RUCHYJO()IF STRIG(0)=1 THEN FIRE=0 FIIF STFRIG(0)=0 & FIRE=0 THEN FOR Q1=1 TO 3 DO Q2=STR1(Q1) IF Q2=0 THEN C=A+6 STRX(Q1)=C D=B STRY(Q1)=D STR1(Q1)=1 SCR(C+AY(D))=78 FIRE=1 IF SP>1 THEN IF STR1(Q1+5)=1 THEN QQ=STRX(Q1+5)+AY(STRY(Q1+5))SCR(QQ)=0 FI IF STR1(Q1+10)=1 THEN QQ=STRX(Q1+G10)+AY(STRY(Q1+10))SCR(QQ)=0 FI STR1(Q1+5)=1 STR1(Q1+10)=1 STRX(Q1+5)=C STRX(Q1+10)=C STRY(Q1+5)=D STRY(Q1+10)=D FI IF SP=3 THEN IF STR1(Q1+15)=1 THEN QQ=STRX(Q1+15)+AY(STRY(Q1+15))SCR(QQ)=0 FI IF STR1(Q1+20)=1 THEN QQ=STRX(Q1+20)+AY(HSTRY(Q1+20))SCR(QQ)=0 FI STR1(Q1+15)=1 STR1(Q1+20)=1 STRX(Q1+15)=C-4 STRX(Q1+20)=C-4 STRY(Q1+15)=D STRY(Q1+20)=D+1 FI EXIT FI ODFI;PRZECIWNICYB2==XOR 1;BAZAIF BAZA=0 THEN OPE==+1 IF OPE=1 % OPE=4 THEN PRZECSTR() FI EE=OPE PRZIECMEN() IF OPE=6 THEN OPE=0 PRZECWYB(1)FI ;ANIM. 3*3 IF SG(4)=1 THEN Q1=SG(5) Q1==+1 IF SG(8)=1 THEN IF Q1=1 THEN MOVEBLOCK($9000+680,ADRA1+ADRPO,72)FI IF Q1=5 THEN IF SG(7)=1 THEN SG(6)==+1 IF SG(6)=4 THEN SG(7)=0 FI AJDRPO==+72 ELSE SG(6)==-1 IF SG(6)=0 THEN SG(7)=1 FI ADRPO==-72 FI Q1=0 FI ELSE IF Q1=1 THEN MOVEBLOCK($9000+680,ADRA2+ADRPO,72)FI IF Q1=10 THEN SG(6)==+1 IF SG(6)=4 THEN SG(6)=0 ADRPO=0 FI ADRPO==+72 Q1=0 KFI FI SG(5)=Q1 FIELSE; BAZA: IF B2=1 THEN ;STRZELA MALYMI: IF RND>200 & RNDBY+4 THEN PSX(PSI)=BX PSY(PSI)=BY+4 PS1(PSI)=1 PSI==+1 IF PSI>PSM THEN PSI=0 FI FI IF BY=3 & B<5 THEN IF PS1(PSLI)=0 THEN PSX(PSI)=BX PSY(PSI)=B+1 PS1(PSI)=1 PSI==+1 IF PSI>PSM THEN PSI=0 FI FI FI FI PRZECSTR() IF B1=1 THEN BY==+1 RYSBAZ(BX,BY,B1) IF TB=1 THEN IF BY=16 THEN B1=2 FI ELSEIF TB=2 THEN IF BY=15 THEN B1=2 FI ELSEM IF BY=12 THEN B1=2 FI FI ELSE;B1=2 BY==-1 RYSBAZ(BX,BY,B1) IF TB=1 THEN IF BY=3 THEN B1=1 FI ELSEIF TB=2 THEN IF BY=3 THEN B1=1 FI ELSE IF BY=3 THEN B1=1 FI FI FI ELSE IF BC1=1 THEN BC==-1 BB==XOR 1 QQ=BC+AY(BDN) IF BB=0 THEN SCR(QQ)=7 ELSE SCR(QQ)=8 FI IF BC=0 THEN BC1=0 FI IF BC+5<35 THEN QQ==+5 SCR(QQ)=0 FI FI IF BC1=0 THEN IF RND>200 THEN BC1=1 BC=BX BD=BY+4 FI FI FIFI;KOLIZJE :IF BAZA=0 THEN FOR Q1=1 TO 3 DO C1=STR1(Q1)O IF C1=1 THEN C=STRX(Q1)D=STRY(Q1) FOR Q2=1 TO ILP DO E1=PRZECE1(Q2) IF E1=1 THEN E=PRZECE(Q2)F=PRZECF(Q2) IF C>E-1 THEN IF CF-1 THEN Q3=PRZECE1(Q2+10) IF Q3=0 THEN Q4=2 ELSE Q4=3 FI IF DE-1 THEN Q3=PRZECE1(Q2+10)IF Q3=3 THEN Q4=6 ELSE Q4=3 FI IF CF-1 THEN IF Q3=0 THEN Q4=2 ERLSE Q4=3 FI IF DE-1 THEN Q3=PRZECE1(Q2+10)IF Q3=3 THEN Q4=6 ELSE Q4=3 FI IF CF-1 THTEN IF Q3=0 THEN Q4=2 ELSE Q4=3 FI IF DE-1 THEN Q3=PRZECE1(Q2+10)IF Q3=3 THEN VQ4=6 ELSE Q4=3 FI IF CF-1 THEN IF Q3=0 THEN Q4=2 ELSE Q4=3 FI IF DE-1 THEN QX3=PRZECE1(Q2+10)IF Q3=3 THEN Q4=6 ELSE Q4=3 FI IF CF-1 THEN IF Q3=0 THEN Q4=2 ELSE Q4=3 FI IF DBX & CBY & DBX & CBY & DBX & CBY & D(CZMAX+TRU) & BAZA=0 THEN Q1=0 FOR EE=1 TO ILP DO E1=PRZECE1(EE)IF E1>0 THEN Q1==+1 FI OD IF Q1=0 THEN BX=35 BY=8 B1=1 BC1=0 BB=0IF SG(0)=1\ THEN COMM(0,1,0)FI CZARY(BX,BY+(TB-1)*2)POW=35+TRU/2 IF TB=1 THEN MOVEBLOCK($9000+101*8,ADRB1,192) ELSEIF TB=2 THEN MOVEBLOCK($9000+101*8,ADRB2,176) ELSE MOVEBLOCK($9000+101*8,ADRB3,216) FI TB2=TRU/7 TB1=1 BAZA=1 FIFI; KOLIZJE:FOR] Q1=0 TO PSMDO IF PS1(Q1)=1 THEN Q2=PSY(Q1) IF Q2=B+1 % Q2=B THEN Q2=PSX(Q1) IF Q2>A & Q2A THEN Q2=PRZECF(Q1) IF Q2B-Q3 THEN STRATAZYC(Q4)FI FI FI FI FI ODELSE ; Z PROMIENEM BAZY: IF BC1=1 THEN IF B+1_=BD % B=BD THEN IF A+6>BC & ABX THEN IF B>BY THEN IF B+10 THEN Q1=BO(1) Q2=BO(2) IF Q1>A & Q1B-2 & Q233 DO ZMOC()OD K=255 FIIF KON=5 THEN SG(1)=1 FIIF KON=7 & SG(1)=1 THEN SG(0)==XOR 1 SG(1)=0 IF SG(0)=0 THEN SETV(0)COMM($40,0,0) ELSE COMM(0,0,0)SETV(GRAJ) KMUS() FI FI IF K=28 THENb K=255 EXIT FIIF ZYC=0 THEN EXIT FIODZERO($9BB0,24*46)POKE(710,0)POKE(709,14)SNDRST()POKE(756,224)TX(23,11,"theend")IF SG(0)=1 THEN COMM(0,2,0)FIWHILE STRIG(0)#1 DO ODCZAS=0DO [173 $D40B 201 103 208 249] CZAS==+1 IF CZAS=900 THEN EXIcT FI IF K=28 THEN K=255 EXIT FI IF STRIG(0)=0 THEN EXIT FI IF KON=6 THEN EXIT FIODZERO($9BB0,24*46);WPISYIF SG(0)=1 THEN COMM(0,4,0)FIWHILE STRIG(0)#1 DO ODWPIS()[96]PROC MAIN()SG(0)=1ADRREP=$ADBD ADRMUS=$A040FOR Q1=0 TO 25 DO dAY(Q1)=Q1*46 ODPSM=15 PSI=0 SG(0)=1ADRBIG=$8F27ADRB1=$BCEA ADRB2=$B850 ADRB3=$BA61ADRA1=$9800 ADRA2=$9969ADRP=$B57FWG("D1:DATA1.DAT",$8F27,$C88,4,128)WG("D1:DATA2.DAT",$A040,$1EEA,4,128)COMM=ADRREP+3 TAKT=ADRREP+6 ABC=ADRMUS AND $FF BCD=ADRMeUS RSH 8 COMM($70,ABC,BCD)COMM(0,0,0)SETV(GRAJ)COMM(0,1,0)ZERO($9BB0,24*46)WHILE K<>28DO POKE(77,0) REKLAMOWKA() SG(2)=0 SG(4)=1 SG(5)=0 SG(6)=0 SG(7)=1 ADRPO=0 GRA()ODRETURN8)COMM=ADRREP+3 TAKT=ADRREP+6 ABC=ADRMUS AND $FF BCD=ADRM? S߾~???;?? ;S~22 g6AA68dt|8x!~|f<0`|`<~ 000 8bd]&k\k&.* <syp ~~~~~~w{9< h>??>UP <0 p|j*UUUU*UUUUU_AUUUUU_V~|f<0`|`<~ 000 8~`~`f~~`f~ ~`~f~~`~ff~<9@  0 ~~`0 0`~f۽~TZ0X~#vp ` p 0 0t p E#%"zE3""""hE43"hE43"zVDDC23G#""3"GVD3"""si "wVD3"""gVDDC23VE4C#"xE33"""6Y452"""E#%"E#"""""B!w463zVDDC234u  "%-.+,+,-.-.569:    #&-.$/01023?3478*  !$'=<;<;<=<=<>>)<vY]TTPTTPPPMPRMRTOTYYTYWUUURUVRVXTXTTPTTPPPMPRMRTO[MOPQRTTXY[^][X[YTTQQ[^][XO[YTzzzzzzzzzzzYQRSTVXY[]QRSTVXwY[]^b`^[^]YXVT^b`^[^]YXVT^b`^[T^]Y^b`^[T^]YMYEMYMEMKWEKWKEKIUEIUIEIJVEJVJEJMYEMYMEMMYEMYMEEYYYBBBBXXXBBBBVVVxBBBBYYYBBBB[[[BBBBXXXBBBBTTTBBBBYYYBBBBBB[[[BBBBXXXBBBBTTTBBBBMYBMBYBMMMYMMMYMMYMNNRSPMUPMUMPNM BNBNBNBNAMAMAMAMAMAMAMAMAMyKWGSFR FRFRFRFREQEQEQEQDPDPDPDPCOCOCOCOFFIKDAFIIMNKHTKKMNJFJNNPRPKWRPRKMNPRSVRNITTTSSUWUPYUPYR\ZYSSUWUPYVWYWSPMRTFHJKzMNPRLLLLLKKKKJJJJJIIII HEHGCGEB@ PPPOOONNNNMMMMLILKGKIFDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD dDDDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ OHOWVWVRQOJO{RVROJOJORVTRQQJMQVQMJQJMQVTRQOHKOTRQORKORVTRTVWVWVWVWVWVWVTRQ OJOVQJQVOHJKMPMPPPOMOOHJKMPTTUTUTRPRVWVWTRPOOHJKMPTTUTUTRPRV|WVWTR MHHTHMTHMTHMTPKWKPWKPWKPW RKWKRWKRWKRWRMYMRYMRYMRYWWCWWUCcWWCWVTCQRRC[[QC][[C[VVCV[[C[[YC[[[C[VTCQYYCYYWCeYYCYVTCQ}[[C[[YC[[[C[VTCQVVCVVTCbVVCVVTCQTTCTTTC`YYCYYYCe\\C\\\CPWWCWWWCcYYCYYYCeYYCYYYCe\\C\\\CP\\C\\\CPOJ~OVQJQVOHOWVWVRQOJOVQJQVRQOHKOTRQORKORVTRTVWVWVWVWVWVWVTRQOJORVROJOJORVTRQQJMQVQMJQJMQVTaaaaaaaaaaaaaaaaEEEEE INPSUXWSUXWSUXWSUIPSUXSUPSNPSIPSUXSUPdc_aPOMHHTHMTPKWKPWRKWKRWRMYMRYRQOJORVROJOJORVTRQQJMQVQMJQJMQVTEEEEFFFFGGGGHHHHIIIIJJJJKKKKLLLLEEEEFFFFGGGGHHHHQQQQRRRRSSSSTTTTRQOHJKMPMPPPOMOLL LxL_OBPCOBPCm& @+`PP)pJJJQORPҩLhYaO%@Kɏ T T`ʭɭ ʭ iU0Lɏ``iiiiҩƭ孈쩀`)孝識 i0Hiheiii m ȱ񭈈뭠)rsȱJJJJmi) ٭ȌL&٭ȱ)m)(٭8ܭH)hJJJJ>7 0 i߭`BإHHHHL೭ L5L"ɭLH0ʭK  ʭ ʭ ʭiUʭK7ʭLʭ3/JJJ)L1M2 [ʭUKЋKʭLLZ`fpz @`0`08`0e`0ߍ`0ӭ0Ȍ e T`0 ɏ`WR@Ki@) )?@ )? `Lɀ )?ɭ)?ɭɭʭܭ)׭(ح)Э7!.譽&ƭƭ譈LJJJJJ)ƭ٭)ܭ( = ܭƭԭ8) )(i%߭ԭ׭ح⭝Э)孽)譽 ƭ@JJJJJ}٭٭ܭ}ܭܭ0L`Эӭ) H)) ԭҽƭƭЭ(h)Эحhhhh`xrke_ZUPKGC?<852/,*'%#! οzqke_VPg`ZUQLHC?=9439-*(%$! 8 j jFAn0R"zU4w`N8'xpjd^WR2  @5?@ thBhh`$}%~$%hh8Yhhp L }$~%@L x cL_0/GzO??;761 b߿o,!$-,) !// 0??o0|.Gs1O?m? {px@?h?ýh?0?~?0~?00|>>0|08G2%U'U%2  `) PD IIUUUU )ʒ`8G='ݝ=   PD wwwwgg Ξ >~p`> `p~>~;Ý=;;>?|?>?hwπ0dh?b0?bπA0dhh?0w|??>8|>?hwπ0dh??^>b0bπA0d?0w|??> >?hG{τ0dh??^>s0ߞb}AA0dA9??Ð0O?>?}q }?qظ??p?|w<;{{;w|?<??p?}q}? q?}q }?qظ??pP?`<{;w|?WWWW >//>#``؇~g8CA+?ww߿c. }Ȼ0 WW _>/>0 g8OxCA+?w߿` }Ȼ W@}Ȼ0 WW _>/>0 g8OxCA+?w߿`G8??ý88??ýx????ý? ?ý<~~|f<0`|`<~ 000 8bd]&k\k&.* <syp ~~~~~~w{9<>??>UP <0 p|j*UUUU*UUUUU_AUUUUU_VWW SCR(QQ)=101 SCR(QQ+1)=102 SCR(QQ+2)=103 SCR(QQ+3)=104 QQ==+46;46!SCR(QQ)=105 SCR(QQ+1)=106 SCR(QQ+2)=107 SCR(QQ+3)=108 QQ==+46;46!SCR(QQ)=109 SCR(QQ+1)=110 SCR(QQ+2)=111 SCR(QQ+3)=112 QQ==+46;46!SCR(QQ)=113 SCR(QQ+1)=114 SCR(QQ+2)=115 SCR(QQ+3)=116 Q Q==+46;46!SCR(QQ)=117 SCR(QQ+1)=118 SCR(QQ+2)=119 SCR(QQ+3)=120 QQ==+46;46!SCR(QQ)=121 SCR(QQ+1)=122 SCR(QQ+2)=123 SCR(QQ+3)=124 QQ==+46;46! WW>WWWW >//>$#``؇~g8CA+?ww߿c. }Ȼ0 WW _>/>0 g8OxCA+?w߿`$ }Ȼ W@$FSCR(QQ)=0 SCR(QQ+1)=101 SCR(QQ+2)=102 SCR(QQ+3)=103 QQ==+46;46!SCR(QQ)=104 SCR(QQ+1)=105 SCR(QQ+2)=106 SCR(QQ+3)=107 QQ==+46;46!SCR(QQ)=108 SCR(QQ+1)=109 SCR(QQ+2)=110 SCR(QQ+3)=111 QQ==+46;46!SCR(QQ)=112 SCR(QQ+1)=113 SCR(QQ+2)=114 SCR(QQ+3)=115 QQ=(=+46;46!SCR(QQ)=116 SCR(QQ+1)=117 SCR(QQ+2)=118 SCR(QQ+3)=119 QQ==+46;46!SCR(QQ)=0 SCR(QQ+1)=120 SCR(QQ+2)=121 SCR(QQ+3)=122 QQ==+46;46!(?|?>?hwπ0dh?b0?bπA0dhh?0w|??>8|>?hwπ0dh??^>,b0bπA0d?0w|??> >?hG{τ0dh??^>s0ߞb}AA0dA9??Ð0,O?>,SCR(QQ+1)=101 SCR(QQ+2)=102 SCR(QQ+3)=103 QQ==+46;46!SCR(QQ+1)=104 SCR(QQ+2)=105 SCR(QQ+3)=106 QQ==+46;46!SCR(QQ)=0 SCR(QQ+1)=107 SCR(QQ+2)=108 SCR(QQ+3)=109 QQ==+46;46!SCR(QQ)=110 SCR(QQ+1)=111 SCR(QQ+2)=112 SCR(QQ+3)=0 QQ==+46;46!SCR(QQ)=113 SCR(Q0Q+1)=114 SCR(QQ+2)=115 QQ==+46;46!SCR(QQ)=116 SCR(QQ+1)=117 SCR(QQ+2)=118 SCR(QQ+3)=0 QQ==+46;46!SCR(QQ)=0 SCR(QQ+1)=119 SCR(QQ+2)=120 SCR(QQ+3)=121 QQ==+46;46!SCR(QQ+1)=122 SCR(QQ+2)=123 SCR(QQ+3)=124 QQ==+46;46!SCR(QQ+1)=125 SCR(QQ+2)=126 SCR(QQ+30)=127 QQ==+46;46!0?}q }?qظ??p?|w<;{{;w|?>0|08G2%U'U%2  `) PD IIUUUU )ʒ`8G8='ݝ=   PD wwwwgg Ξ >~p`> `p~>~;Ý=;;>~888 ? S߾~???;?? ;S~<<<<<      L  @@; PLAYER MUZYCZEK W "CMC"; BY JAKUB HUSAK Ү׮CARD ADRREP,ADRMUS,VVBLKD=$224BYTE 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 BYTE Da1,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(BYTED 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) D 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 RETURND@堎 m@DHG;kj8'S<~i4'z !c->TZ0X~#vp ` p 0 0H p E#%"zE3""""hE43"hE43"zVDDC23G#""3"GVD3"""si "wVD3"""gVDDC23VE4C#"xE33"""6Y452"""E#%"E#"""""B!w463zVDDC234H  "%-.+,+,-.-.569:    #&-.$/01023?3478*  !$'=<;<;<=<=<>>)7 0 i߭`BإHHHHL೭ L5L"ɭLHL0ʭK  ʭ ʭ ʭiUʭK7ʭLʰʭ3/JJJ)L1M2 [ʭUKЋKʭLLZ`fpz @`0`08`0e`0ߍ`0ӭ0Ȍ e T`0 ɏL`WR@Ki@) )?@ )? `Lɀ )?ɭ)?ɭɭʭܭ)׭(ح)Э7!.譽&ƭƭ譈LJJLJJJ)ƭ٭)ܭ( = ܭƭԭ8) )(i%߭ԭ׭ح⭝Э)孽)譽 ƭ@JJJJJ}٭٭ܭ}ܭܭ0L`Эӭ) LH)) ԭҽƭƭЭ(h)Эحhhhh`xrke_ZUPKGC?<852/,*'%#! οzqke_VPg`ZUQLHC?=9439-*(%$! 8 j jFALn0R"zU4w`N8'xpjd^WR2 @5?@ thBhh`$}%~$%hh8Yhhp L }$~%@L x cL_LPROC 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)PMODULE; TOM CAT; WPISY HISCORE; + LEVEL; + WYPELNIC WPIS PUSTY; + DORYSOWAC DODATKOWE ZERA DO WYNIKUPROC WPIS_W();WYPISYWANIE:FOR Q1=0 TO 5 DO ;SCR(16+AY(11)+Q1)=WPI(52+Q1)+16;SCR(16+AY(16)+Q1)=WPI(62+Q1)+16 SCR(16+TAY(16)+Q1)=WPI(62+5-Q1)+16OD SCR(22+AY(16))=16 SCR(23+AY(16))=16SCR(26+AY(16))=WPI(68)/10+16SCR(27+AY(16))=(WPI(68) MOD 10)+16[96]PROC WPIS()CARD H1,H2;TX(18,3,"'rzybsoniada")TX(17,4,"grzybsoniada");TX(21,6,"'ame#ompo")TX(20,6T,"gamecompo");TX(22,8,"estscore")SCR(21+AY(8))=34TX(20,11,"bestscore"); TEST WIEKSZEGOH1=WPI(65)*1000+WPI(64)*100+WPI(63)*10+WPI(62)H2=P4*1000+P3*100+P2*10+P1;PRINTCE(H1)PRINTCE(H2)Q1=0IF H2>=H1 THEN IF P5WPI(67)T THEN Q1=1 FI FI IF P5>=WPI(66) & P6>=WPI(67) THEN Q1=1 FIFIIF Q1=1 THEN TX(18,11,"&antasticscore");TU ZAPAMIETANIE WYNIKU ! WPI(62)=P1 WPI(63)=P2 WPI(64)=P3 WPI(65)=P4 WPI(66)=P5 WPI(67)=P6 IF LEVEL>99 THEN WPI(68)=99 ELSE WPI(68)=LEVEL FIT WPIS_W();WPIS:TX(22,14,"?")FOR Q1=0 TO 9 DO WPI(52+Q1)=0 ODQ1=0CZAS=0WHILE K#28 DO IF SG(0)=0 THEN SOUND(0,0,10,0)FI [173 $D40B 201 5 208 249];POKE(53274,10)CZAS==+1;SCR(140)=WPI(51)IF K<>255 THEN IF SG(0)=0 THEN SOUND(0,50,T10,10)FI FOR Q2=0 TO 25 DO IF K=WPI(Q2*2) THEN Q3=WPI(Q2*2+1) SCR(22+AY(14)+Q1)=Q3 SCR(23+AY(14)+Q1)=63 WPI(52+Q1)=Q3 Q1==+1 CZAS=0 FI OD IF K=33 THEN TX(22+Q1,14,"?") Q1==+1 CZAS=0 FI IF Q1>9 THEN EXIT FI IF K=52 & Q1T>0 THEN Q1==-1; SCR(30+AY(11)+Q1)=0 IF Q1<9 THEN TX(22+Q1,14,"?") ELSE TX(22+Q1,14,"?") FI CZAS=0 FI IF K=12 % K=28 THEN EXIT FI ;RETURN K=255FIIF CZAS=10000 THEN TX(21,18,"timeout")EXIT FIIF STRIG(0)=0 THEN EXIT FIODIF K=28 TTHEN K=255 FISCR(25+AY(13)+Q1)=0 IF SG(0)=0 THEN SOUND(0,0,10,0)FIIF Q1=0 THEN FOR Q1=0 TO 9 DO WPI(52+Q1)=0 OD WPI(52)=52 WPI(53)=47 WPI(54)=45 WPI(56)=35 WPI(57)=33 WPI(58)=52 FIELSE;WYSWIETLENIE STAREGOWPIS_W()FI FOR Q1=0 TO 9 DO; SCR(30+TAY(14)+Q1)=WPI(52+Q1) SCR(30+AY(16)+Q1)=WPI(52+Q1) OD;K=42[96]TF; TABLICA DO WPISOWBYTE ARRAY WPI=[47 49;Q46 5542 3740 5045 5243 5711 5313 418 4710 4863 33;A62 5158 3656 3861 3957 401 425 430 4423 58;Z22 5618 3516 5421 3435 4637 45;M0 0 0 0 0 0 0 0 0 0 00 0 0 0 0 0;PKT0 ;LEVEL]XX~|f<0`|`<~ 000 8~`~`f~~`f~ ~`~f~~`~ff~<9@  0 ~~`0 0`~f\۽~ܬ5SgE}\;n\vgVWhieکȓ;x#ڻ7vʻJu2i6[g737U蝏G6WyhͯzxcV߿ݻe7yUVEu1FwUݛ4wVWv5ݽSg5"QTXYVu|5tweUzwVwvͭZ#3i߿߻VW5"UV ?V2UWcZcy5sTB!SUf#uݙ٪Xɻ݋xۉ3gyT!Vܫvfyݭ2VxET2yGewwfCVVWS͛UT'1wyh41"sX26SSݚH"uޛW#{!34xE!˻ުݺ߼ @xサW3x߉˻x4xx53!3U3wޫxwˬWdVuhUEdF3SEtyFUxvݼxEUxE3UUuwUvxU̻yxfxVh343xfVwv̻ݫݛf݋X#SWCvgUD33SETWDewffVUUUewwF#cxfguwx5tݫWU̫VE3#C AgehfUUΚXS̚W3C̽xv͛쾉fͪxUx##SܼgV43TwfUTyUW#2DUhE!SfͻhVe̚wxxEuxUTVUexEUUEugfܼܻͻサݼxwwVE#!CU43CefUDU޻xWu̚x BfxwUugfUUgwVvhUfgeeUvgvVUD4TxU44"CuݼgUE3Sxxf̼˻ݻgvޫywxwxxWU3CUfffgECDDegfywwfgwETeVU3SuwVUUUeͻͼ CwwgVugUUUU5CewwVffgfgVU53DTDUfvVufwfxvffUUvwxwwgfvͼݼ˼ͬyvwwxxwgfxV4SUVE#"3#3Teeffݼ˼˻xwwwwwwxfhUUeffECefvyfUVUUUTvwgwYyg6UWVFVehf DjWʻ˚˺ʻڻ̙yxuheeWeeuugftEffyyiuFewgdfUfggۼ̽ݻgvUxW43uhihwVUwgVxwu53UfVSewwwVfwhVWgWeuxwvUxgVwwVu Exyy˼̫ʬݽ޻˪ܼͺxfvV3#43fffwf33SVDEESWUUUUλޫ˫xxwwgfxfhfUEDehwyewwgeUTvgwfwyUTefvgUUeUVfUVfUexgxʻ̽xxwwgxwf FxwgfewuwwhUWUxgvww˚̻̻wUfhUVUewwfvxf$2x5dwgUuxVwfUvguyUxgUUVEDvxfxwg5CuwEuVewvxyfvETfhgeۼ̻ݻ޻ݫgfUU43DEDD G3333TvwwwgfUEUUvwݻͫ˼xwgUVUfwF3UgUvWuffvfETuheVvU43UUefxU5TUUTwwUwwfxgfwv˫xewܭwݻyUUUfvwwwwݪxfwhgwxvwfVfeͫ HwxyUDeUegffwUTUUTDvxwfvfffewU4efVUvwwUUgu̫gVwwwwhe433TUVewXUuwvyhU53uݽXTVgvݼޫ˫ܬܛ̻UUV""3TuxgV4CU4!CvVU˼ͻݼޫyzfveUfEUwxfvwxVEeU IVDDU#2#32U43cfwg5ufVvxUewV˻ܻEDTE#"CuͻzhxʼݼxxV4SEU۽hgUVdVwzxEyxUUE#RފwX33UUe˻wgfUUwfhW9VUu쿫fw֘sA=oUVx! Js+*g1[xv4}b|W3]r8wuqY,WWQf_}vۖ{zjZF#2wWw!i!S|]ڊϓy}۽݋wF#1#Wܼ5ۉjHw!g!%wwww"1Bu25v2uivhvzyiSG K#!Q5C"B1wwwwwwWwwwwwWwwwqWqWwqw"!BEXgݼyvUFUG1B633cWwqwwwW"#3wwwwwwwwWqWwwwww3C!!3STwxwU˻ܫW2t&31 LUUU#24C!RUfU3s7!ww!TTUfEqwCV"2F!W"S3DSVW2S53323gV5UCUEjzͫ˫YV!uU#X5SEE!C#23#wW!3G!3TUHU6336ShUyfcGR3Uݻyyew͚iuVUλx˫ M޽V"!vvgvW33!"E!W!##2TehU3ch4U3u˫ͻˬ˻ͫ͛ޚSWhX$"#2TE%˻{˛ޫWhxwWzxefUez3yUvVVUC%%1S5#3S3U3Ui33v62D4C!3#22UEfu NwEEgU͚ߪۻܫ˽̛߻ziygU4!U53sU5SEefF333"R55"1CvW43cWS5""3cXWeUV7uサyuxwzW33"SUUiV53EUUDxTwyxfUyxͭ Oݜ۽ݻ۫zXUuwWxhiFWd233"#SF"Ee##Cw4BS"#3S33S4cVUUTS31B3vUwv7wVȫYڛۻ̫ۼ߿gIS3u334S2VUUewgwTifUEcVwxvxxwiih˩ͭۘzۼݺxIh PYzɽWdUU'ER3#12"TxwgVU2wVxiVgvCSEefgYx͘UivkxYYjۻYugfXxݻ{ɉyYX9V*c3sCUjXwUXWEwuvfW؋heۻzۧ}y˻뉼ܭ﬩jřwx̾۫V7uV8ivSDUUtTd9H6U!C5s Qc355'tRySxUGC652u3fvxvjicE뫮y~ܻ4fgfuU4%fXxfDc%V2SWujzgGVzܛhhh}ޛffVʻ{ښZg{Vx3F"Es6HfvRDgUJs41R2DU5S(wgVx͌xw RTxS޽h۪틫Yr7xhC%FedVWVʻ{hgzgXUzh뫚z[˻캈zzyֺ۩eS5YeR274fxGfzG%3c35UDT3UtuEvwYVSDS3STwHYhڛVgezxj SܻY۫˺}YtHfE9۝˶xضۼ˺jteYiVTZgXSYyhw빪ݹeXYuc5hugyYhUX5CDsc5%%c2EdfFdUS1D7VeUTwzwYȌʛxl۪VxtYiWgWuh Txxzx{WkwEGZueeFeuwyIxxi[HyڈlˈɇiiɻݪhzxxTWgWc355ffwVTSHWxU5e5Vb1$4H6uweIUeHsGGcW̩kxyh٘ixhyUwyzɫ˻i˪hUU UUxT3UTVDeuzuVuyf6C2uWɫx˻WfyVxUUUeVVEfe43vWeexxfwY#""3UuvhTwvgefwWfgʬͽVggɽyTUewɻy߬ީiX޼X4ee˪xwxwTux[SEuzgD"3evXEvvuxyu5Ue VUh꾽I3#!2giESSwxVUyuuyuWT謁ޡAbߘYfjz۶յJx%Ci6Jۺڪ޸vSE2S܈71뽘83#RVی&3Xk[:h7W!1qXYUE1Y'c믊YλyۨUU{GwsXJ2fߚ5!#UxX# WQ5lQf37Eh݊ɛ8Rxg8"u޽ܫ͋yݻG3"Ucʪv52w1bW42ۻ51"USyVStecשּRSv߉Vޫͫx5S4SE3ge6qwQweɫ8"3sYU33SfF343h!##BuW#2evyF!7CC4v XHcޛxe޽xwUk3#CޛV5EuݛQΫ5T4!yC32ݽE!3ugVF3SwwxUZ3tݛxV#SV3v%Sy5"!3b$2eU۬zv̪VۼxW"34"t{4343S#c͉xgiTwgݫh۽zUx%Bv YW5"Dvfx533e݋5!3#2CDTfgUTxW3UfvˉwwxEwϚygΪ޻X3""233۫hU5AF"޻ݛ5Uewv˛%W23g$"2CUTfF"2Tv723܋FTvVwݛWU3ewߊV5"uV4ESy#cVUU443Cx ZV4SU4CxvE3ݛyDT63ihzUyg#3SfE"CyD#!Swvxi̪ߊwܼgvwx5cyEzEeV̽UywDޫݫgV532hxV3#2Th#27s͊x5"TvWUU3Si4ewwvy5 [ܫͻ߻VV23!fvwffwxufx˫yUegݛxvxUe%B4QzUe4"SUx#""3SUvyfwVT߫yv߻޻x˫gvwvͻ˼iUwwUz5evVUvW2"3SEUf5SeWUUxgyUTuΪWUܫhfvG3Uey$ \BEehvwVxUUvݛ53TfݬW33CUUgxgv̻͛xww5T̫xYUXvYUYz65EDuޫxgVTY5G!!Sۻ͙VSxVV3Ee#34CU3SyWVexfvVUUeʭߋ͊wڋyyV4u53ȻhxgʽW ]evx۫yF"2evW"QUwW%RDDehUeVxhvܬ{vYeޫggvXUݫ&!cFUxfG"3H!#wdXDT3Cuh3#Ufv5txޚgފx˫gTuVuwfeyCWvj3ivyUgV$3XfxffxyyVVehw ^ͫۻyghThuhwfxghUܻWUw43egefxVwE#3"CU43uvUfVwUvVexVwhxͫ̚VUxhvyE3VUevxgfEEUU3CUDexVeWxͻͼܫ _۽geݝwgwhTTV6!3D3UT5332SfW42CUDxݻ˫VݛWuwgݼxwyUTffugfywwxUUefWTwffwwgVeݬx̚WdˬgUwVS޼˪yxV `hevVVevxFTv5"SUTefUEUUegEUffvwwfgUUxgTvwݻ˼˽xw޽gUvxwvgxUUvEUgxUvfewwV53"2ewhͼ̻ܻewfWUD#"2CUU#!3TU43#!3UwgUTUUxgww aw޻̼gE3ewfwwfwxVE2"3ffwU3UDCefUwwxvgwwxyxfUvݽݼwfWwwwE4SwwwVUVfvxVDDE4UevfgUUUvgVUUUvVewxwug5e̫ bxvVECUxgVexwvͫgExxVUefVgfVUݫ̫wUfvgfxxv˫yvxxxfvwwgUvgfgUUfEUxxƺٹhx{XXwY6FfwGTWS63RވHS cY]#qWQWYgDqQ:ݿ{Vegy#W3e%3ua%2DRBhyU˻zyݻߺݼォDSET4#qwWwwwWww22#2DeTw޽ͽxVTV5"qqwwwwwwwwwwww dwwwwwwwwWq23SegvݼxwfE33332WqwwwwwwwwwwwwqwwwwwwwwwwwwwwwwW"""33TUUUUUUevͻxwVUED44333""""wwwW e!"""""2""233CD3333DEE3TUUewwwwg̼ͼwwVvxVDUD332"3#"""""23#3343334DCUfVETUUevwwwwwgwffwffwxxwgfww˻̼̻ݼݻݼͻݼ fͫwgxggfUE4433#"""22"CDE33TUTTevxVefwVeUeffVewxݼͼܻxxfE43CUeU433344"233#!"#!!!323#3Cefgwwfwv̼̻ gݽݼܼͼwvxwxvwxwwxfUvwgwV5EUUewwxgwfVUufevwWvwxwxfeUEefEEUES4ETuvfWVUUeEDUUDD4Sfwggffwgxggvwgffv̼̼ݻ˻˫ q?er i BDOS SYSBZ ACTBKS ACTB fDATA1 DATB sDATA2 DATBANIM_ FNTBANIM_G FNTBBASE2 FNTBBOS1 ACTBBOS1 FNTBBOS2 ACTBBOS2 FNTBBOS3 ACTBBOS3 FNTBE FNTBF FNTBH1 FNTBPLAYER ACTBTOMCAT3 CMCBTOMCAT3 REPBWG ACTB WPIS2 ACTBWPIS_TABACTBZNAKI FNT TXT ACT T_B DATywWvgUVVUUUwggfgUUUEDTUUVE333233#33!""2332"!""#22#343C343UUfuUwx˻ʻxyvfxvfffgVudseT3dTvfx6fXgWwecg3fyhvvucUvuwڷʺ黫xjꭈ۪˫5˺xyef#wyGC3EVW2 revyiٽUhZZvUh麼Xwݫ˫wxfVEd74TgxGeUVS4UuuV3fT7exwiwfgVVSU5EEffXXuywz̫ڹˊ̪ܽ۾̭۪ʻ눇fyfuffX4!C6UTUS#eE4eSvg55UxVTVgghf sUEUDUUfvwfvgVewhvx̫ܻݻ˫λ̺xxhwgUD43#SUFD5US4CUxfE#3sf5CBSE4CCD33TvvwUEfvwwvgwfy˼ܻۻ˻˻xxfexWS4W4#2duV43UvUggxvVvyxxhvxy˺ t̫˻˻˽˻yygxUeyxvvweVxwugxuUF3E43CeWWUUfveUeugxxxygxʻۺͻܫٺzUcyvUUUUU##CUhVewUWwyjfwwwvcCVgUCdfE4TUijegwvwxܻ uͽʺ̺ܼXvuUTVxwfT3E5Uueg%UsvVUUSTE3"#3UT##34S3UeexfDeuxyyݻ̻͹;۫˻yfUhFUVf42S65343UhUUdgxi{˚zXxifzIۻοͻ̽ͽۼʪhxwT%Udw vhWUCuWvUufVzʬWVR14Xh$"3RR#SS5CTxwfgeUfU31CY}xixZSCvLqh121Uqy$q1{12VxW4!EU٩߼[CDdܻ˹X3Cdx쾫xzygtvwۉͩ'51SUWX{ w"TU4eE5#a57Uq1#Zk}y٘ig5cTI3YZsHU83!;{[민Yz%UG3UgI%۫!AǼ{7Wq!1ﭚ8311Uߋf124w޼g3C"11WW{[U3CkKFVSۚg xʊEhVziEsɽHESCk9T4T22˚iSHhyʉy25#s݊I[4V"C3IWgjwg#Au7f߭5%5DRtfhgyxk5cښkZZYebةfz#c|AܪUDRg:Euhx7hWywuۭ꯹uQDXiZתwyXu4ٜ y!bQeܽdV5S!Q2"﫥26bY#CSvꞍXk[|6VɆt6deSTxǪݪeYk7;nHV1s=v%5U%#߫&B1xih[ݛދc3bUgXyxʪ3cXzU11S2U!CED۽S1Uw޼:5SޘGWC5AQW zWC"S5fEiy4ZU͉fh#CUDSCT{ݻ۹53Ug߽vwT{߻eUTxZSkۺݺhxwۻU5UwVS۫Xjܺi3Hdtcʗ͌j5WUugۼܾݫ7T&XV3hgY6ݽx4S3VcbfjɘڋVuʛHUw3DVUev {ݾiFUUcQcjdyfI3$gEXuUwUWgyefx˪˻XۛhWUeeEeEYͻ߈izE5ޝexiHhffvFS%2"!!2ͪ߼̿{yzͫޛeh4̻wWVWC2531cڹfgwVuWuijvefi6(hXމڼ |HUVgeUSuwɘXfDwW˝VٹʨT42C5B4eUVXʼ܊ﻺފ܊ܺͭHUE#TVTvXxyW73&23hywZ[X4i}ܼXhfV$3UVڙzgd57j5Uv5weuʻyEuH4#RT'sE5Ufxʬykf3exv }꭪UUwhXgU6hZw܋3SSERStE3SsWﺙfySWREh3Sexغ޻zyVudϹ۽Zv32ESsH1f:zSyuxX2jfFݽލigtʛ˪yݬggUfGRU32u$37WWhxiwVew2E34uuwwh8eewxGXfu ~fV35Q5U5UUxyhxzvWUU2URWhݭxhͻ۬ڻi%e33D!3eu5TeewVUwfSdFevhuܻڪwgFFef3cheuWhvWFcvwgvtV̺ۺ޺߻ݚWeu523Ee!!3uS#5UuyGS3C3Vv U̪̫ڻyfv36uvzVwig53cv4%!"#223TVSVvewvXyigWܫݾͺʊyzhewXEES41"$DSHdUhwsȫxiwۼfWyzjhdwxT3T5fUC$TR3F4#DTUwdv뽊wyuzvTU%3cUyhz ޼z˻ͪxewxWCwxgvUU"#!Ac""1%S1&T!eitic5̻ݛywWwfgE53UFuzYeUEVVEEUVeWEueFTWf˙ܻݺeWs232%5SVwvufVEDevvȻ۽xgxWVF5SS2dzUWeyݪ ۽͕yu6xyTc5קډ9fS5UTVuViWfUevzxޭi{xxxfUwE5Udgxjuywzux߫wWwgxVe4cSTR"#1"SUCEE3UuvWݽUZ58QTɽ{ʙjʕm֖e{TiwxXʛɻμ̊xgSUUV gxyWTUUSFefXUiwuyVvhEUUe۽߫5vhhgݫgVT3STvܽV43CUexݚXzU9!:DZ\ZgG33CfZYVszxd͊˛w{1S&wjDWrX36Ar%UDÿAnߖHK6q3#Q]1[U 3٫;W͛{25S3q"Z4sWwqe18޽x#U!eڭ#!3!'T"US72Swwwwwww13S43!!CTiݻݚ7#!qWwqwwwwwwAEwwwwwwwWww"qW!Cq!W"BSS5Teθ ދ%QhewxhD315T!#W#3wqwwwwwwwwwwwwwwww1FcUEe!1#3gYhͻݚzi3fyVvgD3W!24uXTu3"UE2qA2wwwW1ufqwWW!V3"W%213!"6 g33Eeuhev߼싛ٙνw6x6ݜ%c8c#4Wshg26T23vwgEtWVTUGS3VFCvy6$S1X22!!FzhD3iD5$CXvXRサܫͫ˻u75wW!STee"Dt(wwWqS f5dCUTS5EW133u5cUxiΪܛxڻʋ߻ߺ4vݛڹzߺݛWxi˩F˽Uߚ˽xwwVu5BV53cgggVUTSW"RxF5aUX!3UeEfEU#"#1eWXdWTUx432c˼GvwݼݻYuʽh̚xv XgxWWS3Twf޼޽ͼ뽚vfxVeU4S##13C5!32SHvu뼜YfT5Se5VhVTu˙[U!#5RUV$225c3uڻ̛݊gxWcUyۋwi˽͛޾xg޽̻ywyghc4UUW3"Sueܻ hwWvTXTUVjٙʉWwV52Sf5C!$!3SUFERXu7#33U5#SۉݼWwzXyWUF3CwwwxxfgڭۊzefhEegVwʽiU#"3sG7WǼ{ehǿxf$"Wx6SxZ47T"!$CCU ̪yZXuݽ6۽ヌvf33Wcheg$b5ESUf'2e#"33ug3ŮvXCUVVexhtW4CW5U2CcYDej٭ʭx8#!UtwXTS#UE#1SwT5VT5eV3!!!3uUGxwz5EbW߻ܬۺ߻gXEvx eV3dyV3#S1ES3U34vguEXdEVC3"Tg7R"7Vݬy̻ݻyfxgfxw6uVwW5!#ee#Uc$E21$UREwu54SeݽݬxhWUUVUfxVfeUVC43Duvxwyxxgxݫyͽʼ UUxE5SUffwUEugwgUeWufywvVUwU53"""B25SU6uUfVEsg뽼ܾݩzݺwVUeewxvxV5Ce3#"2333#23A4eefVUS۽ܻ۝ٻݽWe3UCEUevwggE33SfxۼݽͫWWvVeWT4VcV6cfffvɫݹ U3#R"5S5#32"3SvݽifWU3"!"#""233CUfeVUv޽ʽ˺ˈYc46deWvc7U3$"2vxhwiVSfWUU3ECEUUwgًUWYGRVWS4vT#UDES5UdxwvxgvۻxvVxw˻޻˻ ݫgiu47sZvTV33244UU6UC5S3UwwhUTTFUdxwhheUUfv뭻ɋiX;38Vi͈YR%DSdxwwUwwwVwx633vgwڋyxwf#BSi묚zIAvhhxheEhe35U2"Uxxhxww 5!Cܨzi5FhC!cif4gy3CUUewxwewxweVVVUVvgfwʬhܭS#!1Uy5쮫c˻y˚U%22ffEUwfzb%QGil~~WYkŖy&S!sݶj55iu1ڏ^k؋;"ȣBK Wq۴W1cqR9{d;1a#eZ8S뉊[wHh߷Ϛw#2ɹxWs!gzU3hgUiU}y޹V[dVުׇ#sU%E2R!wU"W22!qwW3c6vE23TT5e޼yuuiU#qwWwwwwwwwwW wwwwwwwwwwwwWq"3DUu̼xgE42332!qwwwwwwwwwwwwwwwwwwwwwwwwwW3qwW1Seuf4""3DwVVUe߫ͪxeeUUugUf53dUUDwww!!w!3S3 qwwwW!CeyhUUv53332"4TCgUHT4EcFwgȋݭ̘˻޽f5D!CCEi6xuq!"2!2"3eT6C343SEvy޻xvhVe5TUfffvwwwhܸ{iyڻfghzʨܾ˼˻ݽ ޻UVugwWffUU3#""234SDUUD33#11QVhufWU35SCVUU5USDDux޻̻wVDCܫv˻ݻ̼̼ܺhE3C3TxwE422"#!"233#"!!33EfvgxWWuUV˺ܽ ݻxxۻݼ̼ffgvܻ˺ڬٝݹ˗kCISiveGu3ghfheDEwgfUvfffwwwgVeUfewgfeWfVV34A#%12Ve7ShxVUUuzhwgwUUUe̼̻ݼܻ˼ݽ۽̸˹ igSFSUvyXeT8fS5UTUVvyUEUUEUSDES4323S4343""3C33S333#33UUWUFSDEUZSixGiۻ̻̽ܽwVvxwxXeUUG3zx{&USUeze6UuxxVwfe˫YhxxghWggvvVj hYUYi[euvtu˨vVUEUvxwUwWXgugvvWhgz4i55DdWgsCYw˪v˩ʽ˺۽ʩۻɫyzyeYzv{WywȊx{uUgxefuWVeUW쫻yhͽͫxVeVDUUV hxVUewxxwvxhXf[UieiydfyW뻼wegwewwwxxwVfvVvhwxͨyxWe5UdgwwUVVUVx޼xgUETUvwwwwgfUffۚ[U{5םͦYSHeWXB3UefwxuUgvͽ۽۫ wgffeVVUfvxxyVE3EeUUeUE333EefwwwͼݽxwwwVeTVefvgvfXYhXgvw{UXuwXgffͼ˻xgeVVVwwxwyyhgxiz|vؙ{U837EguVUT3#"3SD ܼivhgvVvwwyw6'RCxhyt7ecygweUfxUwhhUUDTvvxyfguVew{hˮʙWgSEUeTUTEeUVeUVwܫۻݻݺͻhxeVwxyfzWHjfVHyb' c9[٦]QIywgXuUwfwڙjxVECUewxwfCxhyt7ecygweUfxUwhhUUDTvvxyfguVew{hˮʙWgSEUeTUTEeUVeUVwܫۻݻݺͻhxeVwxyfzWHjfVHyb' >1FLf``^ "5 CI/L` 2X * K; 5 CI.L` 2X * K; 5 CILa*+++0La8*+*+++++ 8 C O$+(+ILEa*+++0LEa*+++ 8 C O$+(+ILa8*+ ++Ů0La8*+ *+++++ 8 C O$+(+ILa*+i ++i0La*+i *+++i++ 8 C O$+(+*+@++L%b'+ILb^+i􅮭_+iL%b^+i􅮭_+i*+@++0Lkb'+ILVb^+i􅮭_+iLkb^+i􅮭_+iILb+Lb+ 5ILb+Lb+ 5I]Lb+Lb8++ {6IGLb+Lb8++ 7I%Lc FI#Lc 3G CIeL,c GI'LAc )J CI*L`dLac:nakzpamieci2/-cN "5L}c0ressecu "5 # '*ILc ?LcLcc "5Lccυ "5I*L`d++*+ s'd+ee+e++*+ s'ee * CIjLud K CI(Ld LI3Ld8 + + 5I5Ld + 5I0Ld8 + + 5I2Ld +i + 5ILe M CI Le MI=L,eiI9LDeiIL\eiILteiLeiI}Le8IyLe8IALe8IELe8I@Lf8ILfiIL2fiILJfiILbfiILzfiILf8ILf8ILf8ILf8ILf8I L g O C$+IHL!g H CItLg++*+ s'b+ec+em+i8 ^+e_+e+f+ig+i^+e_+e+I4L8hf+ig+i^+e_+e+++*+ s'd+ee+em+i8 ^+e_+e+ CI Lh w*+++*+ s'b+ec+em+i8 ^+e_+e+ CIKLh I CI-Lh jP CI+Lh 9S CILiL i7yjsciezprogramuh "5L(i0ressti  "5 # '*IL[i ?LKiI- I+L|i '*LlLii "5Lii "5ILi MIoI IL j n0X * K; 5 CInI IL>j n0X * K; 5 CILpkLhjdomyslneustawkolorowjP q+ # '*Lj0resscj "5ILj ?LjIL&k  '*^+ią_+i^+iŅ_+i ^+iƅ_+i^+iDž_+i^+iȅ_+iLBkk) q+LZkkR "5(+^+iM_+iILk(+Lkk q++ILk ++I Lk++ILk++ILk +(+ s'@eem+i^+e_+e++ +LQl++ILl(+ s'@eem+i^+e_+e+i ? '*L3YLl (%,0-%##&l  q+Llzapisywaniekolorowlע q+L m D:HELPME.CCFĢm / )^+iR_+i^+iS_+i'V](V\(``Veem+i^+e_+e+i ? '*L3YLl (%,0-%##&l  q+Llzapisywaniekolorowlע q+L m D:HELPME.CCFĢm / CmDiVDeWDeDDLmDDLn^Di0_DiiimDiVDeWDeDZDm/l[Dm0lmDiVDeWDeDDLUnDILnVDi􅮭WDi`LnUAnTAnHUAHTA!D B  HL+o o) B@X C0i1i@ CVDiڅWDi0i1iVDeWDe0i1iVDeWDe0i1iVDeWDe0i1iVDeWDe0i1iVDeWDe10 CVDiRWDiVDiSWDiVDiWDiVDi􅮭WDiVDi/WDi CTVDi6WDi k@\D]D k@^D_DVDiąWDiVDiŅWDi VDiƅWDiVDiDžWDiVDiȅWDiLGq (%,0-%##&q:  iDLoqautomwczytywkolorowqW iDLq D:HELPME.CCFĢq HDUADTA]D\D C D DD#D!"DȌDD!DDDD]D[D\DZDD D \ P hVDi/WDi"DILHr fCILHrDDLnr fCLnrD  CDLr ]CILrDD  CDILr ]CILrDILrM CLr # CDII ]CILsDILs( D k@@eem DiVDeWDeDDLs( D k@@eem DiVDeWDe8D造8 D DD DII ]CI LtDILt( D k@@eem DiVDeWDeDDLut( D k@@eem DiVDeWDe8D造 DD DII ]CI LZuDILZu( D k@@eem DiVDeWDeDDLDu( D k@@eetD]PROC 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]BYTE FUNC PTrig=*(BYTE p)%[$29$07$AA$BD$7C$02$85$A0$60]BYTE FUNC Stick=*(BYTE p)[$29$03$AA$BD$78$02$85$A0$60]BYTE FUNC STrig=*(BYTE p)[$29$03$AA$BD$84$02$85$A0$60]BYTE FUNC Rand=*(BYTE r)[$85$A2$C6$A2$A9$01$C5$A2$B0$05$38$2A$38$B0$F7$85$A3$AD$0A$D2$25$A3$C5$A2$F0$0%4$90$02$B0$F3$85$A0$60]PROC Poke=*(CARD a BYTE v)[$85$A0$86$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]PROC% SetBlock=*(CARD a, l, v)[$85$A0$86$A1$84$A2$A0$00$A5$A2$D0$04$A5$A3$F0$16$A5$A4$91$A0$C8$D0$02$E6$A1$C6$A2$A5$A2$C9$FF$D0$E7$C6$A3$38$B0$E2$60]PROC Zero=*(CARD a, l)[$48$A9$00$85$A4$68$4C SetBlock]PROC MoveBlock=*(CARD d, s, l)[$85$A0$86$A1%$84$A2$A0$00$A5$A4$D0$04$A5$A5$F0$18$B1$A2$91$A0$C8$D0$04$E6$A1$E6$A3$C6$A4$A5$A4$C9$FF$D0$E5$C6$A5$38$B0$E0$60]MODULEE7$C6$A3$38$B0$E2$60]PROC Zero=*(CARD a, l)[$48$A9$00$85$A4$68$4C SetBlock]PROC MoveBlock=*(CARD d, s, l)[$85$A0$86$A1$~em DiVDeWDe8D造8 D DD DII ]CIL)vDIL)v( D k@@eem DiVDeWDeDDLv( D k@@eem DiVDeWDe8D造 DD DI! fCL:wDIL:w( D k@@eem DiVDeWDeDD DDIT DILv( D k@@eem DiVDeWDeL2w( D k@@eem DiVDeWDeT CYIL xLOw0resszwG N # CLwkasowanieznakuwu iDILw XLwILw % C ^Lwwƅ NLww iD \IWLxL%x0resszx NLRxkasowszystznakowx9 iD # CIL|x XLlxILx  C]D\D CLxx iDLxx΅ NI8LryLy0ressfx N # CIL4y XL$yI8LNy % C )_L^yyV N \I/Ly KX C CT N \I.Ly KX C CT N \ILz"D#D0Lz8"D"D#D#D P \ hD DIL=z"D#D0L=z"D#D P \ hD DILz8"D #DŮ0Lz8"D "D#D#D P \ hD DILz"Di #Di0Lz"Di "D#Di#D P \ hD D"D@#DL{DIL{VDi􅮭WDiL{VDi􅮭WDi"D@#D0Lc{DILN{VDi􅮭WDiLc{VDi􅮭WDiIL{DL{D NIL{DL{D NI]L{DL{8DD sOIGL{DL{8DD PI%L{ _I#L| +` \IeL$| `I'L9| !c \I*LX}LY|:nakzpamieci2/-|F NLu|0resse|m N # CIL| XL|L|| NL||Dž NI*LX}#D"D k@\De]De#D"D k@ee C \IjLm} d \I(L} eI3L}8DD NI5L}D NI0L}8D D NI2L}Di D NIL} f \I L ~ fI=L$~iI9L<~iILT~iILl~iL~iI}L~8IyL~8IAL~8IEL~8I@L~8ILiIL*iILBiILZiILriIL8IL8IL8IL8IL8I L h \DIHL a \ItL#D"D k@ZDe[Dem Di8 VDeWDeD^Di_DiVDeWDeDI4L0^Di_DiVDeWDeD#D"D k@\De]Dem Di8 VDeWDeD \I L oCD#D"D k@ZDe[Dem Di8 VDeWDeD \IKL b \I-Ĺ bi \I+L 1l \ILL7yjsciezprogramu NL 0resst N # CILS XLCI- I+Lt CLL| NL NILЂ fIoI IL fIX C CT N \InI IL6 fIX C CT N \ILhL`domyslneustawkolorowH iD # CL0ressc} NIL XLIL  CVDiąWDiVDiŅWDi VDiƅWDiVDiDžWDiVDiȅWDiL:! iDLRJ N DVDiMWDiIL DL iD DILƄ D DI LՄ D DIL䄩 D)ELSEIF ERRCODE=130 THEN TX(14,15,"bladurzadznieistni")ELSEIF ERRCODE=134 OR ERRCODE=160 THEN TX(14,15,"bladniewlasciwynumer")ELSEIF ERRCODE=138 THEN TX(14,15,"bladuplynalczas ")ELSEIF ERRCODE=140 OR ERRCODE=178 THEN TX(14,=15,"bladbrakkomunik ")ELSEIF ERRCODE=143 THEN TX(14,15,"bladzlasumakontrolna")ELSEIF ERRCODE=144 THEN TX(14,15,"bladuszkodzonysektor")ELSEIF ERRCODE=162 OR ERRCODE=169 THEN TX(14,15,"bladbrakmiejsca");ELSEIF ERRCODE=163 T=HEN ;W NAZWIE JEST ? LUB * - POLACZYC Z NEWLASCIWA NAZWA PLIKU !! ; !!! ORAZ 165ELSEIF ERRCODE=172 OR ERRCODE=173 OR ERRCODE=177 OR ERRCODE=181 THEN TX(14,15,"bladUSZKODZ.SYST.PLIK.");170 JUZ MAM ??FI TX(14,15,"bladUSZKODZ.SYST.PLIK.")=;TX(14,15,"innyblad ")[96]A NAZWA PLIKU !! ; !!! ORAZ 165ELSEIF ERRCODE=172 OR ERRCODE=173 OR ERRCODE=177 OR ERRCODE=181 THEN TX(14,15,"bladUSZKODZ.SYST.PLIK.");170 JUZ MAM ??FI TX(14,15,"bladUSZKODZ.SYST.PLIK.")<2 P(709)=10 P(710)=4 P(711)=6 P(712)=0 FI TX(14,15,"")TE(14,17,7,"")K=255 FIIF TIM>20 OR P(77)=3 THEN TIM=0;TX(14,13,"") TX(14,15,"") ;TE(14,17,7,"") FIIF A=1 THEN A)=9 FIIF A=10 THEN A=2 FIIF B=8 THEN B=16 FIIF B=17 THEN B=9 FIC=P(40000+B*40+A)A1==+1IF A1>12 THEN A1=0 FIIF A1=1 THEN P(40000+B*40+A)=C+128 FISYNCH()SOUND(0,0,0,0) OD TX(14,13,"(%,0-%##&") TX(14,15,"zapisywaniekolorow") WG(")D:HELPME.CCF",708,5,8,0)GRAPHICS(0);POKE(764,42)K=255P(82)=2P(83)=39Error=TMPERR[96]A1>12 THEN A1=0 FIIF A1=1 THEN P(40000+B*40+A)=C+128 FISYNCH()SOUND(0,0,0,0) OD TX(14,13,"(%,0-%##&") TX(14,15,"zapisywaniekolorow") WG("(^ DIL D( D k@@eem DiVDeWDeDD DLIDDIL( D k@@eem DiVDeWDeDi X CL+rL (%,0-%##&  iDLzapisywaniekolorowϢ iDL D:HELPME.CCFĢ H BVDiRWDiVDiSWDi'nUAnTA``neem DiVDeWDeDi X CL+rL (%,0-%##&  iDLzapisywaniekoloroL.+^+i_+i + 'd+ '8媅m+^+i_+i+ ' "(iL~/0ress/v q+IL/L/)+`L//L/brakplikuzkolorami/ q+` QL/////A *`0SNDRL/ '/ )//// )/IL,0b *L50 b *//d *//h *)+Lb0 V䅣 ))+` Lq0m0^+i􅮭_+i Q*^+i_+iL00  q+m0IL0L0wczytywaniekAolorow0Ӣ q+m0IL,1L1nagrywaniekolorow1 q+L111/  q+  /+, )10 *^+i6_+iL1|AR1{ q+L1|AR1 q+^+i_+i,+ ,+L02L1niewlasciwanazwaplikuA1Ǣ q+L10ress1 q+IL2L2^+i6_+i`L2,+LN2.+I: /+I:LN2L2++L}28+8+,+,++LS2D-+:.+,+i,+m0Ģ+, /^+i6_+i`(L22^+i􅮭_+iA Q*^+i_+iL33  q+2ILP3LC3wczytywanieznakow3* q+2IL3Lv3nagrywanieznakow3] q+L33  q+  /+, )10 *^+i6_+iL3|AR3AҢ q+L3|AR3 q+^+i_+i,+ ,+L4L74niewlasciwanazwapliku4 q+LO40ress4G q+ILi4L\4^+i6_+i`L4,+L4.+I: /+I:L4L4++L48+8+,+,++L4D-A+:.+,+i,+2+, /^+i6_+i` OR NOSL%5 '5(5 s' 5!5+5X5X5+L5"5m+5i+@m 5m!5m5im+i8^+e_+e++LM5`15L5!+IL5*+A +( s'55 ++++ 6 6+Lx6 +m+$6$6+La6'@m5m5m+i^+e_+e+++L65i(55i5+L5`)=L~6 5( s'y6z6+m+66+L70@my6mz6m+iiA i^+e_+ey6i(y6z6iz6+L6` L 7+i( s'7 7+m+D7D7+L}7@m7m 7m+i^+e_+e+L97`7'L77~777~77~7i77i77̀777L7Q9`m7m7^+eA_+e87~777*+e7Я7L7`L8a+`+`+a+LJ8`m`+ma+^+e_+e*+`+a+L 8^+iv_+i^+ix_+i^+i_+i^+i_+i^+iȅ_+i^+iʅ_+i^+i܅_+iA^+iޅ_+i^+ik_+i^+il_+i*+^+im_+i*+i^+in_+i^+i_+i^+i_+i*+^+i_+i*+i^+i_+i^+i…_+i^+iÅ_+i*+^+ią_+i*+iA^+iŅ_+i^+iօ_+i^+iׅ_+i*+^+i؅_+i*+i^+iم_+i 7N 7k 7 7^+i}_+i^+i_+i^+i_+i^+i_+i^+ie_+i^+if_+i*+iA^+ig_+i*+i^+ih_+i^+i_+i^+i_+i*+i^+i_+i*+i^+i_+i`LN;Lz;(ũ;Q q+L;(; q+L;A(㉀;â q+L%<(; q+L^<(é<5 q+ 8Lt<|QRRRRRRRRRRRRRRXRE> q+L>>||: zerowaniezna |>* q+Lb>||ku|>N q+L>||& zamalowywanie|>r q+L>||znaku|> q+L>A|ARRRRRRRRRRRRRRRRD> q+L>|||>ޢ q+L?|ARRRRRRRRRRRRRRRRXRRRRRRRE? q+LJ?|||?. q+Lv?|ARRRRRRRWRRRRRRRRRWRRRWRRC?Z q+L?|||znak||? q+L?|ZRRRRRARRXRRRRRRRRRXRRRC? q+L?ZRRRRRRRRRRRRRRRC?آ q+`L? \'+ILH@*+@++L3@^+i _+iԅLH@^+i _+iԅ`/LN@(+ s'iI@iJ@+Ȍ++LXA@mI@mJ@m+i^+e_+eA++LRA+IL@+i++IL@+i@++IL@+i ++IL A+i++ILA+i++IL2A+i++ILEA+i++ILRA++L{@++*+ s'd+ee+em+i8 ^+e_+e+`ALAA+ie( s'@eemAiii^+e_+eT`+LB( s'BB+@mBmBii^+e_+e*+@mBmBii^+e_+e*+i@mBmBAi i^+e_+ed++*+ 'id++*+ 'IILC+@mBmBi!i^+e_+e ++*+ 'd++*+ '8媅嫅m+@mBmBi"i^+e_A+e++*+ ' "(i`LC++*+ s'CC( s'CC++LD++LD@mCmCiim+i^+e_+e+L0DCi(CCiC+L!D++LEdB,VBiWBiVBiWBiVBieWBiVBifWBi"BiVBigWBi"BiVBihWBiVBiWBiVBiWBi"BiVBiWBi"BiVBiWBi`LePLP(ũPh iBLP(P iBLQ(㉀Pڢ iBLiiUijUBȌBBLxV@miUmjUmBiVBeWBeBBLrVBILUBiBBILVBi@BBILVBi BBIL,VBiBBIL?VBiBBILRVBiBBILeVBiBBILrVBBLU#B"B k>\Be]Bem Bi8 VBeWBeB`PLVVBie( k>@eemViiiVBeWBeT`;WL=W( k>8W9WB@m8Wm9WiiVBeWBe"B@m8Wm9WiiVBeWBe"Bi@m8Wm9Wi iVBeWBed#B"B >id#B"B >IIL5XB@m8Wm9Wi!iVBeWBe #B"B >d#B"B >8媅嫅mB@m8Wm9Wi"iVBeWBe#B"B > ?i`YL Y#B"B k>YY( k>Y YBBLYBBLY@mYm Y ; WERSJA DLA PROGRAMU HELP ME; (POWYCINANE WSZYSTKO CO SIE DA! ;-)PROC _CPYPRM=*()SET $4EE = _CPYPRM[$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$60]PRO1C _CHGSGN=*()[$85$C0$86$C1$38$A9$00$E5$C0$48$A9$00$E5$C1$AA$68$60]PROC _FIXSGN=*()[$86$C2$E0$00$10$03$20 _CHGSGN $85$82$86$83$A5$85$45$C2$85$C2$A6$85$10$09$A5$84$20 _CHGSGN $85$84$86$85$60]PROC _FIXRES=*()[$A5$86$A6$87$A4$C2$10$03$4C _CHGSGN1$60]PROC _MUL=*()SET $4E8 = _MUL[$20 _FIXSGN $A9$00$85$86$85$87$A5$82$D0$04$A5$83$F0$22$A5$84$D0$04$A5$85$F0$1A$46$85$66$84$90$0D$18$A5$86$65$82$85$86$A5$87$65$83$85$87$06$82$26$83$38$B0$D6$4C _FIXRES]PROC _DIV=*()SET $4EA = _DIV[$20 _FIX1SGN $A9$00$85$86$85$87$85$C1$A9$01$85$C0$A5$82$D0$04$A5$83$F0$5F$A5$84$D0$04$A5$85$F0$57$A5$82$C5$84$A5$83$E5$85$90$0F$A5$C1$30$0B$06$84$26$85$06$C0$26$C1$38$B0$E7$A5$C0$D0$04$A5$C1$F0$36$A5$82$D0$04$A5$83$F0$2E$A5$82$C5$84$A5$83$E5$85$90$19$38$A15$82$E5$84$85$82$A5$83$E5$85$85$83$A5$86$05$C0$85$86$A5$87$05$C1$85$87$46$85$66$84$46$C1$66$C0$38$B0$C2$4C_FIXRES]PROC _MODOP=*()SET $4EC = _MODOP[$20 _DIV $A5$82$A6$83$60]PROC _RSHOP=*()SET $4E6 = _RSHOP[$A4$84$F0$0A$86$86$46$86$6A$88$D0$F1A$A6$86$60]PROC _LSHOP=*()SET $4E4 = _LSHOP[$A4$84$F0$0A$86$86$0A$26$86$88$D0$FA$A6$86$60]PROC _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]MODULECARD Error=_ERR1VECBYTE 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$0A$0A$AA$60]PROC _STONAM=*()[$18$69$01$91D$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$A0$03$84$A3$A0$FD$60];PROC _DOPRNT=*();[1$86$A3$84$A4$20 _LODCHN $A9$00$9D$49;$03$A8$B1$A3$F0$1A$9D$48$03$18$A5$A3;$69$01$9D$44$03$A5$A4$69$00$9D$45$03;$A9$0B$9D$42$03$20 _GOCIO $A5$A5$F0;$12$A9$00$9D$48$03$9D$49$03$A9$0B$9D;$42$03$A9$9B$20 _GOCIO $60];PROC _DOPRNC=*();[$48$20 _PRECON1 $20 StrC $68$A2$FD$A0;$03$4C _DOPRNT];PROC DOPRNI=*();[$48$20 _PRECON $20 StrI $68$A2$FD$A0;$03$4C _DOPRNT];PROC PrintCD=*(BYTE d CARD c);[$20 _CLREOL $4C _DOPRNC];PROC PrintC=*(CARD c);[$20 _SHFTR $4C PrintCD];PROC PrintCDE=*(BYTE d C1ARD c);[$20 _SETEOL $4C _DOPRNC];PROC PrintCE=*(CARD c);[$20 _SHFTR $4C PrintCDE];PROC PrintBD=*(BYTE d, b);[$A0$00$4C PrintCD];PROC PrintB=*(BYTE b);[$20 _SHFTR $4C PrintBD];PROC PrintBDE=*(BYTE d, b);[$A0$00$4C PrintCDE];PROC Print1BE=*(BYTE b);[$20 _SHFTR $4C PrintBDE];PROC PrintID=*(BYTE d INT i);[$20 _CLREOL $4C _DOPRNI];PROC PrintI=*(INT i);[$20 _SHFTR $4C PrintID];PROC PrintIDE=*(BYTE d INT i);[$20 _SETEOL $4C _DOPRNI];PROC PrintIE=*(INT i);[$20 _SHFTR $4C Pr1intIDE];PROC PrintD=*(BYTE d CARD s);[$20 _CLREOL $4C _DOPRNT];PROC Print=*(CARD s);[$20 _SHFTR $4C PrintD];PROC PrintDE=*(BYTE d CARD s);[$20 _SETEOL $4C _DOPRNT];PROC PrintE=*(CARD s);[$20 _SHFTR $4C PrintDE];PROC _HEXSTR=*();[$85$184$86$85$A9$FD$85$A2$A9$03$85$A3;$A0$00$A9$05$91$A2$C8$A9$24$91$A2$A9;$00$A2$04$06$84$26$85$2A$CA$D0$F8$69;$30$C9$3A$90$02$69$06$C8$91$A2$C0$05;$D0$E5$60];PROC PrintF=*(CARD s,a,b,c,d,e,f,g);[$85$82$86$83$84$A2$AD _DEVIC $0A$0A;$0A$0A$85$C1$A0$100$84$87$84$C0$B1$82;$F0$4C$85$86$E6$C0$F0$46$A4$C0$C4$86;$F0$02$B0$3E$B1$82$C9$25$D0$3E$E6$C0;$C8$C4$86$F0$02$B0$35$B1$82$C9$25$F0;$2F$C9$45$F0$29$A8$A6$87$E0$0E$B0$D4;$B5$A2$48$B5$A3$E8$E8$86$87$AA$68$C0;$43$F0$15$C0$49$F0$34$C0$48$F0$3C$C0;$531$F0$3F$38$B0$1D$60$38$B0$B2$A9$9B;$A8$A6$C1$A9$00$9D$48$03$9D$49$03$A9;$0B$9D$42$03$98$20 _GOCIO $38$B0$E4;$A0$03$84$A3$A0$FD$20 StrC $38$B0$0F;$A0$03$84$A3$A0$FD$20 StrI $38$B0$03;$20 _HEXSTR $A9$FD$A2$03$85$84$86$85;$A6$C1$A9$00$9D$49$03$A8$B1$814$F0$B5;$9D$48$03$18$A5$84$69$01$9D$44$03$A5;$85$69$00$9D$45$03$A9$0B$9D$42$03$20;_GOCIO $38$B0$98] PROC _DOINPT=*() [$86$A4$84$A5$20 _LODCHN $18$A5$A4$69 $01$9D$44$03$A5$A5$69$00$9D$45$03$A5 $A3$F0$18$9D$48$03$A9$00$9D$49$03$A9 $05$9D$42$03$120 _GOCIO $BD$48$03$F0 $03$38$E9$01$A0$00$91$A4$A5$A6$F0$07 $A5$A4$A6$A5$4C ValC $60] BYTE FUNC InputBD=*(BYTE d) CARD FUNC InputCD=*(BYTE d) INT FUNC InputID=*(BYTE d) [$48$A9$78$85$A3$A9$01$85$A6$68$A2$FD $A0$03$4C _DOINPT] BYTE FUNC Input1B=*() CARD FUNC InputC=*() INT FUNC InputI=*() [$AD _DEVIC$4C InputCD] PROC InputMD=*(BYTE d CARD s BYTE l) [$48$A9$00$85$A6$68$4C _DOINPT] PROC InputSD=*(BYTE d CARD s) [$48$A9$FF$85$A3$68$4C InputMD] PROC InputS=*(CARD s) [$20 _SHFTR $42C InputSD] CHAR FUNC GetD=*(BYTE d) [$20 _LODCHN $A9$00$9D$48$03 $9D$49$03$A9$07$9D$42$03$20 _GOCIO $85$A0$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 $82A$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 Graphics=*(BYTE m)[$48$A2$60$A9$0C$9D$42$03$20$56$E4$68$9D$4B$03$49$10$09$0C$9D$4A$03$A9$53$85$A0$A9$3A$85$A1$A9$A0$9D$44$03$A9$00$9D$45$023$A9$03$9D$42$03$20 _GOCIO$60]PROC Position=*(CARD x BYTE y)[$85$55$86$56$84$54$60] BYTE FUNC Locate=*(CARD x BYTE y) [$20 Position $A9$06$4C GetD]; ... !!!PROC Sound=*(BYTE c, p, d, v)[$C9$04$B0$25$86$A1$0A$AA$A9$00$8D$08$D2$A9$03$8D$0F$2D2$A5$A3$29$0F$85$A3$98$29$0E$0A$0A$0A$0A$05$A3$9D$01$D2$A5$A1$9D$00$D2$60]; SOUND RESET: PROC SndRst=*() [$A9$00$A2$07$9D$00$D2$CA$10$FA$60]; PRZYC. FIRE: BYTE FUNC PTrig=*(BYTE p)[$29$07$AA$BD$7C$02$85$A0$60]BYTE FUNC Stick=*(BYTE p)[2$29$03$AA$BD$78$02$85$A0$60]; PRZYC. FIRE (Z PARAMETREM):BYTE FUNC STrig=*(BYTE p)[$29$03$AA$BD$84$02$85$A0$60];INT FUNC SCompare=*(CARD s1, s2);[$85$A4$86$A5$84$A2$A0$00$84$A0$84$A1;$B1$A4$85$A6$B1$A2$85$A7$C4$A6$F0$15;$C4$A7$F0$11$C8$B1$A4$2D1$A2$F0$F1$90;$03$E6$A0$60$C6$A0$C6$A1$60$A5$A6$C5;$A7$F0$F9$B0$F0$90$F1];PROC SCopy=*(CARD d, s);[$85$A0$86$A1$84$A2$A0$00$B1$A2$A8$B1;$A2$91$A0$C0$00$F0$04$88$38$B0$F4$60];PROC SCopyS=*(CARD d, s BYTE b, e);[$85$A0$86$A1$84$A2$A0$00$84$A6$2B1$A2;$C5$A5$B0$02$85$A5$A5$A4$F0$15$C5$A5;$F0$02$B0$0F$A4$A4$E6$A4$B1$A2$E6$A6;$A4$A6$91$A0$38$B0$E7$A5$A6$A0$00$91;$A0$60];PROC SAssign=*(CARD d, s BYTE b, e);[$85$A0$86$A1$84$A2$A5$A4$F0$3B$C5$A5;$F0$02$B0$35$85$A7$C6$A7$A0$00$84$A8;$B1$A0$285$A9$B1$A2$85$AA$A5$A7$C5$A5;$B0$15$A5$A8$C5$AA$B0$0F$E6$A8$A4$A8;$B1$A2$E6$A7$A4$A7$91$A0$38$B0$E5$A5;$A7$C5$A9$90$04$A0$00$91$A0$60]BYTE FUNC Rand=*(BYTE r)[$85$A2$C6$A2$A9$01$C5$A2$B0$05$38$2A$38$B0$F7$85$A3$AD$0A$D2$25$A3$C5$A2$F0$04$90$022$B0$F3$85$A0$60]PROC Poke=*(CARD a BYTE v)[$85$A0$86$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]PROC SetBlo2 ck=*(CARD a, l, v)[$85$A0$86$A1$84$A2$A0$00$A5$A2$D0$04$A5$A3$F0$16$A5$A4$91$A0$C8$D0$02$E6$A1$C6$A2$A5$A2$C9$FF$D0$E7$C6$A3$38$B0$E2$60]PROC Zero=*(CARD a, l)[$48$A9$00$85$A4$68$4C SetBlock]PROC MoveBlock=*(CARD d, s, l)[$85$A0$86$A1$84$A2$2 A0$00$A5$A4$D0$04$A5$A5$F0$18$B1$A2$91$A0$C8$D0$04$E6$A1$E6$A3$C6$A4$A5$A4$C9$FF$D0$E5$C6$A5$38$B0$E0$60]MODULEE7$C6$A3$38$B0$E2$60]PROC Zero=*(CARD a, l)[$48$A9$00$85$A4$68$4C SetBlock]PROC MoveBlock=*(CARD d, s, l)[$85$A0$86$A1$84$A2$0wiimBiVBeWBeBLPYYi(Y Yi YBLAYBBLZ\BmY]BmYmBiVBeWBeBB)LZ8B逍B VB)@L2Z8B@B VB) LNZ8B B VB)LjZ8BB  VB)LZ8BB VB)LZ8BB VB)LZ8BB VB)LZ8BB VBLY :W J`ZNLZ#B"B k>ZZBBLN[\BmZ]BmZmBiVBeWBeBL [`14LT[#B"B k>O[P[BBL[\BmO[]BmP[mBiVBeWBeBLr[`I=L[#B"B k>[[ ( ABBLP\\Bm[]Bm[mBiVBeWBeB^BmB_BiVBeWBeBBL[`N LV\#B"B k>Q\R\ ( ABBL\^BmB_BiVBeWBeB\BmQ\]BmR\mBiVBeWBeBBL\`L\BBL(]^BmB_BiVBeWBeBL\`2]ODL2]( k>i)]i*]B#B"B k>+],].]-]BBL^BBL^@m)]m*]mBim-]m.]VBeWBeBBIT BIL|^BIL]BiBBIL^Bi@BBIL#^Bi BBIL6^BiBBILI^BiBBIL\^BiBBILo^BiBBIL|^BBL]\Bm+]]Bm,]mBiVBeWBeBB-]i(-].]i.]BL~]`ELL^#B"B k>^^BBLD_ oABZBm^[Bm^mBiVBeWBeBBL^`D40BLL_(  k>iE_iF_B#B"B k>G_H_BBL`BBL`@mE_mF_mBi(B k>eeVBeWBeBB BIL`BIL"`BiBBIL5`Bi@BBILH`Bi BBIL[`BiBBILn`BiBBIL`BiBBIL`BiBBIL`BBL_\BmG_]BmH_mBiVBeWBeBBBL_`L` # ALa7szystkieznakiz2/-` 9JL+a0ressea# 9JILQa ULAaL\aaT 9JLaap 9JI*La`]B\B A`LaBLaBLasynchronizacjaprostokaa΅ 9J J`BIL:bBL(bbezsynchronizacjib 9J``L>bBLzbBLhbnoweznakitylkodolbN 9J`BILbBLbcalyekrannoweznakib 9J``Lb AILbVBi󅮭WBi` AILcVBi󅮭WBi``IGL c#B"B k>c cBBBBBLc\Bmc]Bm cmBiVBeWBeB^Bi_BimBiVBeWBeBBL4cBBBL3d^Bi_BimBiVBeWBeB\Bmc]Bm cmBiVBeWBeB8BBBLc`75L9d#B"B k>4d5dBBLd^Bi_BimBiVBeWBeB\Bm4d]Bm5dmBiVBeWBeBBLWd`Ld#B"B k>ddBBLge\Bmd]BmdmBiVBeWBeB^Bi_BimBiVBeWBeBBLd`Lke^Bi0_Bi A`eLeVBi WBiԅ]ѮLfVBi WBiԅɀLfBILf"B@#BLeVBi WBiԅLfVBi WBiԅ#B"B k>eeVBi WBiԅ]ѮLfVBi WBiԅɀLfBILf"B@#BLfVBi WBiԅLfVBi WBiԅBILhBBLhVBi WBiԅ]ѮL'gVBi WBiԅɀL'gBIL'g"B@#BLgVBi WBiԅL'gVBi WBiԅZBme[BmemBiVBeWBeBVBi WBiԅ]ѮLgVBi WBiԅɀLgBILg"B@#BLgVBi WBiԅLgVBi WBiԅ^Bi_BimBiVBeWBeBVBi WBiԅ]ѮL{hVBi WBiԅɀL{hBIL{h"B@#BLfhVBi WBiԅL{hVBi WBiԅBLfBBLbjVBi WBiԅ]ѮLiVBi WBiԅɀLiBILi"B@#BLhVBi WBiԅLiVBi WBiԅZBme[BmemBiVBeWBeBVBi WBiԅ]ѮLiVBi WBiԅɀLiBILi"B@#BLiVBi WBiԅLiVBi WBiԅ^Bi _BimBiVBeWBeBVBi WBiԅ]ѮL\jVBi WBiԅɀL\jBIL\j"B@#BLGjVBi WBiԅL\jVBi WBiԅBLhBLuj8BB heBBLelVBi WBiԅ]ѮLjVBi WBiԅɀLjBILj"B@#BLjVBi WBiԅLjVBi WBiԅ^Bi_BimBiVBeWBeBVBi WBiԅ]ѮLkVBi WBiԅɀLkBILk"B@#BLkVBi WBiԅLkVBi WBiԅ^Bi0_BimBimBiVBeWBeBVBi WBiԅ]ѮL_lVBi WBiԅɀL_lBIL_l"B@#BLJlVBi WBiԅL_lVBi WBiԅBL}jBBLSnVBi WBiԅ]ѮLlVBi WBiԅɀLlBILl"B@#BLlVBi WBiԅLlVBi WBiԅ^Bi0_BiiimBiVBeWBeBVBi WBiԅ]ѮLmVBi WBiԅɀLmBILm"B@#BLmVBi WBiԅLmVBi WBiԅZBme[BmemBiVBeWBeBVBi WBiԅ]ѮLMnVBi WBiԅɀLMnBILMn"B@#BL8nVBi W BiԅLMnVBi WBiԅBLjl`NDLYnVBi WBiԅ]ѮLnVBi WBiԅɀLnBILn"B@#BLnVBi WBiԅLnVBi WBiԅ#B"B k>TnUnVBi WBiԅ]ѮLboVBi WBiԅɀLboBILbo!"B@#BLMoVBi WBiԅLboVBi WBiԅBILMqBBLMqVBi WBiԅ]ѮLoVBi WBiԅɀLoBILo"B@#BLoVBi WBiԅLoVBi WBiԅZBmTn[BmUnmBiVBeWBe"BVBi WBiԅ]ѮLpVBi WBiԅɀLpBILp"B@#BLpVBi WBiԅLpVBi WBiԅ^Bi_BimBiVBeWBeBVBi WBiԅ]ѮLGqVBi WBiԅɀLGqBILGq"B@#BL2qVBi #WBiԅLGqVBi WBiԅBLqoBBL.sVBi WBiԅ]ѮLqVBi WBiԅɀLqBILq"B@#BLqVBi WBiԅLqVBi WBiԅZBmTn[BmUnmBiVBeWBeBVBi WBiԅ]Ѯ$LrVBi WBiԅɀLrBILr"B@#BLjrVBi WBiԅLrVBi WBiԅ^Bi _BimBiVBeWBeBVBi WBiԅ]ѮL(sVBi WBiԅɀL(sBIL(s"B@#BLsVBi WBiԅL(sVBi %WBiԅBLRqBL;sB heBBL+uVBi WBiԅ]ѮLsVBi WBiԅɀLsBILs"B@#BLsVBi WBiԅLsVBi WBiԅ^Bi_BimBiVBeWBeBVBi WBiԅ]ѮLntVBi &WBiԅɀLntBILnt"B@#BLYtVBi WBiԅLntVBi WBiԅ^Bi0_BimBimBiVBeWBeBVBi WBiԅ]ѮL%uVBi WBiԅɀL%uBIL%u"B@#BLuVBi WBiԅL%uVBi' WBiԅBLCsBBLwVBi WBiԅ]ѮLuVBi WBiԅɀLuBILu"B@#BLuVBi WBiԅLuVBi WBiԅ^Bi0_BiiimBiVBeWBeBVBi WBiԅ]ѮLhvVBi (WBiԅɀLhvBILhv"B@#BLSvVBi WBiԅLhvVBi WBiԅZBmTn[BmUnmBiVBeWBeBVBi WBiԅ]ѮLwVBi WBiԅɀLwBILw"B@#BLvVBi WBiԅLwVBi WBiԅ)BL0u`THLwU?wT?wDU?DT?!B @  DLMw wK @@X A0i1i@ A0i1iVBeWBe0i1iVBeWBe0i1iVBeWBe0i1iVBeWBe0i*1iVBeWBe10 AVBiRWBiVBiSWBiVBiWBiVBi􅮭WBiVBi/WBi bPVBi6WBi k>\B]B k>^B_BVBiąWBiVBiŅWBi+ VBiƅWBiVBiDžWBiVBiȅWBiLTy (%,0-%##&yI  iBL|yautomwczytywkolorowyd iBLy D:HELPME.CCFĢy EBU?BT?]B\B A B BB#B!"BȌBB!BBBB-+mCe+mCm+i^+e_+e++)LD8+逍+ A+)@LE8+@+ A+) L.E8+ + A+)LJE8++ A+)LfE8++ A+)LE8++ A+)LE8++ A+)BB]B[B\BZBB B Y M dVBi/WBi"BILUz fAILUzBBL{z fAL{zB  ABLz ]AILzBB  ABILz ]AILzBILzM ALz # ABII ]A.IL{BIL{( B k>@eem BiVBeWBeBBL{( B k>@eem BiVBeWBe8B造8 B BB BII ]AI L|BIL|( B k>/@eem BiVBeWBeBBL|( B k>@eem BiVBeWBe8B造 BB BII ]AI Lg}BILg}( B k>@eem BiVBeWBe0BBLQ}( B k>@eem BiVBeWBe8B造8 B BB BII ]AIL6~BIL6~( B k>@eem BiVBeWBeBBL&~( B k>@e1em BiVBeWBe8B造 BB BI! fALGBILG( B k>@eem BiVBeWBeBB BBIT BIL~( B k>@eem BiVBeWBe2L?( B k>@eem BiVBeWBeT kUILL\0resszT 9J # ALkasowanieznaku iBIL ULIL % A ZLӅ 9JL3 iB YIWLL20ressz* 9JL_kasowszystznakowF iB # AIL ULyIL  A]B\B ALˀ iBLۅ4 9JI8LL0ressf 9J # AILA UL1I8L[ % A Q[Lkc 9J YI/L GX A bP J YI.LӁ GX A bP J YIL"B#B0L85"B"B#B#B M Y dB BILJ"B#B0LJ"B#B M Y dB BIL8"B #BŮ0L8"B "B#B#B M Y dB BIL"Bi #Bi0L"Bi "B#Bi#B M Y dB B"B@#6BL*BILVBi􅮭WBiL*VBi􅮭WBi"B@#B0LpBIL[VBi􅮭WBiLpVBi􅮭WBiILBLB JILBLB JI]LӃBLӃ8BB KIGLBL87BB !LI%L [I#L S\ YIeL1 \I'LF I_ YI*LeLf:nakzpamieci2/-S 9JL0ressez 9J # AIL ULL 9JL8ԅ 9JI*Le#B"B k>\Be]Be#B"B k>ee A YIjLz ` YI(L aI3L8BB JI5LB JI0Lׅ8B B JI2L9Bi B JIL c YI L bI=L1iI9LIiILaiILyiLiI}L8IyL8IAL׆8IEL:8I@L8ILiIL7iILOiILgiILiIL8IL8ILLJ8IL߇8;IL8I L 6d YBIHL& /] YItL#B"B k>ZBe[Bem Bi8 VBeWBeB^Bi_BiVBeWBeBI4L=^Bi_BiVBeWBe<B#B"B k>\Be]Bem Bi8 VBeWBeB YI L oAB#B"B k>ZBe[Bem Bi8 VBeWBeB YIKLʼn ^ YI-Lډ e= YI+L Vn YILˊL7yjsciezprogramu 9JL-0resst% 9J # AIL` ULPI- I+L ALݍL 9JL 9JIL>݊ ;bIoI IL EX A bP J YInI ILC EX A bP J YILuLmdomyslneustawkolorowU iB # AL0ressc 9JIL ULIL+  AVBi?WBiVBiŅWBi VBiƅWBiVBiDžWBiVBiȅWBiLG. iBL_W 9J BVBiMWBiIL匠 BL  iBL،@ iB BIL B BI L B BIL B BIL! B( B k>@eem BiVBeWBeBB BLwBBILʍ( B k>@eem BiVBeWBeBiA U AL8zL (%,0-%##&  iBLzapisywaniekolorow iBL1 D:HELPME.CCFĢ$ E @VBiRWBiVBiSWBi'wU?wT?``w@eem BiVBeWBeBiʥLE8++ A+LD B 5`10LE++*+ s'EE++L.Fd+mEe+mEm+i^+e_+e+LE`D L4F++*+ s'/F0F++LFd+m/Fe+m0Fm+i^+e_+e+LRF`O LFBC++*+ s'FF ( '*++L0Gd+mFe+mFm+i^+e_+e+f+m+g+i^+e_+e++LF`UL6G++*+ s'1G2G ( '*++LGf+m+g+i^+e_+e+d+m1Ge+m2BDGm+i^+e_+e++LaG`LG++LHf+m+g+i^+e_+e+LG`IG#-LH( s'i Hi H+++*+ s' H HH H++LI++LbI@m Hm Hm+im HBEmH^+e_+e++IT +IL\I+ILH+i++ILH+i@++ILI+i ++ILI+i++IL)I+i++ILj n0X * BK; 5 CILpkLhjdomyslneustawkolorowjP q+ # '*Lj0resscj "5ILj ?LjIL&k  '*^+ią_+i^+iŅ_+i ^+iƅ_+i^+iDž_+i^+iȅ_+iLBkBk) q+LZkkR "5(+^+iM_+iILk(+Lkk q++ILk ++I Lk++ILk++ILk +(+ s'@eem+i^+eB_+e++ +LQl++ILl(+ s'@eem+i^+e_+e+i ? '*L3YLl (%,0-%##&l  q+Llzapisywaniekolorowlע q+L m D:HELPME.CCFĢm / B)^+iR_+i^+iS_+i'V](V\(``Veem+i^+e_+e+i ? '*L3YLl (%,0-%##&l  q+Llzapisywaniekolorowlע q+L m D:HELPME.CCFĢm / @C