, 8( ;B ; SYS 019 TBASI cE q0 \ C)CC8`DCeECi D` RP
h1 $E
ȍ @y
b Y)hܭ]L]`
q
DM D u j)` 0
,p0i2
&28jJ1f02 9 g iJf0i1)x ԍӭ232002
|}
|~~|p`@@ TTTTTT 8||88(D 8l`8 l8 8| ||8| TTTTTTTTTTTTTTTTTTTTT 888|||88 ~
pP @@00 `` ,&*RVl8 W9AMV4bi){ 8,4, <> >~~> @px aRMT4@.rr ՠ*Z'Cg Т
9xC\c&dO(,C n w D D 3 3 3 "" w f f U U - - f
f
f
f
U
U
U
U
D
D
D
-- f
f
f
f
U
U
U
U
D
D
D
%% wU333 %% wwwfUD3" ::
w
w
f
U
U
D
D
D
D
D
D
3
=
w
f
f
f
w
w
f
f D 3 !!
w
U
D
3
"
CC `
w
w
w
f
f
f
f
w
`
w
U
D
"
:: @
w
U
D
3
"
U
f
U
U
D
3
"
?>>>>= >1 ''''''''''~'''''''~'~ ;~;~;~;~;;~;;;;~;;~;;;~;~;;~;~;~;~;;~;;;;~;;~;;;~;~;~ X X X >&~ ~~ ~ ~~ ~ ~~ ~ ~ ~F ~~ ~ ~~ ~ ~~ ~ ~ ~~`/~!.~!-~/~=/~=/~/~&-/~$-/~#-~#-~/~/~!-~!-~/~ -~/~ -~/~/~-~+~+~++%6%77777 ~~ ~ ~~ ~ ~~ ~ ~ ~ ~/~!.~!-~/~ -/~!-/~/~&-/~(-/~/~(-/~+-/~/~&-/~$-/~/~#-/~$-/~/~!.~!-~/~ .~ -~++~+ ~~ ~ ~~ ~ ~~ ~ ~ /~!.~!-~/~#-/~$-/~/~+-~/~)-~/~(-~/~/~$/~$.~$-~/~/~#-/~$-/~/~(-/~&-/~&/~&.~&-~f,~>/=//~/=///~/!/!.!->
#5c5~c55~5~%6~g66 ~~ ~ ~~ ~ ~~ ~ ~ ~~~C`#>###>#~###~#>##~##~###~77 ~~ ~ ~~ ~ ~~ ~ #>###>#~###~#>##~##~###~77 ~~ ~ ~~ ~ ~~ ~K >>> ~~ ~ ~~ = >?C
r @ @
οzqke_\VPMGD><852/-*(%#!
yspfaZURKHC?<9730-*(%$!
yrlf`[UQLHD@<952/-*(%#!
LLLۯLOLⰆӄHi ߪӍϯȱӍә hH
eхh)
**(e҅ d ҠҠ ҈` ͯ-͝ϝ䪩 誩쪩 ٥iѐL ߠѪȱх҆Ѣ Bઅӽ䪅Լ誱)?=5ȱJ)~ 쪼誱JfJf٥)дHLW?)
**LȱӝL0 ȱӍLˮ ȱӝLˮLdLۯ0 0˝ȱ˝ؠםȱםȱם,<ם ם$ȱר(
ם8i 4ם0LT HͯLLdLѰ֢ԽӼ ӅȱӅȱӅȘ
) ܥ)եD$ (y(LS$8
0<%4 44ؼ4ם0,8< } )pLΰe}0= D?}@0Lᯢ 㰎㰩`@D ҎҭAEҎҭBFҎҭCGҎҌ` < INCLUDE"H1:RT_MIR2.ACT"MODULE; SAMOLOT II VER 5; BY TOMASZ CIESLEWICZ MAY 1992,2012; MIRAGE SOFTWARE LTD.BYTE A,B,A1,Q1,Q2,Q3,Q4,Q5,C,D,STR,P1,P2,P3,P4,P5,P6,A9,E,F,PR1,E1,G,H,PR2,G1,TR,ZY,QQ1,QQ2,QQ3,ZZ1,ZZ2,ZZ3,AAA1,AAA2,AAA 3,AAA4,AAA6,AAA8,GGG1=53256,GGG2=53257,GGG3=53258,GGG4=53259,GGG5=53266,GGG6=53267,GGG7=53268,GGG8=53269,GGG9=53248,GGGA=53249,GGGB=53250,GGGC=53251,GGGD=$D40A,K=764,JO=$278,LO=$D20ABYTE ARRAY I(15),P=0, DIS=[112 112 112 112 112 112 112 66 64 156 2 !2 65]CARD Z,GRDU=[$8C00],GRZN=[$9000],DL=560,ADRDI=[$8000],AAA5,AAA7,AA1,AA2,T;WOLNA PAMIEC OD $8100-$8C00 !!!!!!!!CARD ARRAY FM(25)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)[96]PROC TX(BYTE X,Y BYTE ARRAY T)BYTE Q1 CARD Q3,Q4 Q1=T(0)Q3=40000+X+FM(Y) Q4=PEEKC(@ T)MOVEBLOCK(Q3,Q4+1,Q1)[96]PROC DU()P(54279)=128 P(53277)=3 P(559)=253 Z=128*256+768 P(623)=17 ZERO(Z,256#*5)P(53260)=0[96]PROC OPDU();GGG1=3 GGG2=3 GGG3=3 GGG4=3P(704)=12 GGG9=64;SETBLOCK(Z+256+73,8,2)P(705)=14 GGGA=96;SETBLOCK(Z+512+73,8,2)P(706)=10 GGGB=128;SETBLOCK(Z+768+73,8,2)P(707)=8 GGGC=160;SETBLOCK(Z+1024+73,8,2)[96]PROC ZXCV()IF AAA1=0 $THEN AAA1=1[96]FI IF AAA1=1 THEN AAA1=0[96]FIPROC RYSEK()P(ADRDI)=112 P(ADRDI+1)=112 P(ADRDI+2)=0 P(ADRDI+3)=112 P(ADRDI+4)=68 P(ADRDI+5)=64 P(ADRDI+6)=156 P(ADRDI+7)=112[96]PROC RYSEKR1()AAA5=40240[96]PROC RYSEKR2()AAA5=$96A0[96]PROC RYSOWA()IF AA%A8>21 THEN[96]FI Q1=20-AAA8 IF AAA1=0 THEN AAA5=AA1 MOVEBLOCK(AA1+FM(Q1+2),AA2+FM(Q1+1),32)FI IF AAA1=1 THEN AAA5=AA2 MOVEBLOCK(AA2+FM(Q1+2),AA1+FM(Q1+1),32)FI AAA8==+1[96]PROC RYSLINE1()IF QQ3>15 THEN;QQ1=RAND(30) QQ1=LO&31 IF QQ1>29 THEN QQ1==-L&O&3 FIIF QQ1=7 % QQ1=8 THEN QQ3=5 QQ2=A/4-15 FIIF QQ1=6 THEN QQ3=1;QQ2=RAND(30)QQ2=LO&31 IF QQ2>29 THEN QQ2==-LO&3 FIFIIF QQ1<6 THEN QQ3=3;QQ2=RAND(30)QQ2=LO&31 IF QQ2>29 THEN QQ2==-LO&3 FIFI FI;Q1=RAND(31)Q1=(LO&31)+(LO&1) IF AAA1=0 THEN AAA5'=AA2 ;RYSOWANIE LINJI GORNEJ;MOVEBLOCK(AAA5,AAA7,32)ZERO(AAA5,32);Q2=RAND(31)Q2=(LO&31)+(LO&1)P(AAA5+Q2)=5;Q2=RAND(31)Q2=(LO&31)+(LO&1)P(AAA5+Q2)=6;QQ1=RAND(6)QQ1=(LO&3)+(LO&1)+(LO&1)IF QQ1=1 THEN ;Q2=RAND(31)Q2=LO&31P(AAA5+Q2)=42 FI(IF QQ3=1 THEN P(AAA5+QQ2)=3 P(AAA5+QQ2+1)=4 QQ3=2 FIIF QQ3=5 THEN P(AAA5+QQ2)=46 P(AAA5+QQ2+1)=47 QQ3=6 FIIF QQ3=3 THEN P(AAA5+QQ2)=12 P(AAA5+QQ2+1)=13 QQ3=4 FIIF QQ3>12 & QQ3<20 THEN P(AAA5+QQ2)=14 P(AAA5+QQ2+1)=15 QQ3==+1 FIFI ;RYSOWANIE LINJI GO)RNEJIF AAA1=1 THEN AAA5=AA1 ;MOVEBLOCK(AAA5,AAA7,32)ZERO(AAA5,32);Q2=RAND(31)Q2=(LO&31)+(LO&1)P(AAA5+Q2)=5;Q2=RAND(31)Q2=(LO&31)+(LO&1)P(AAA5+Q2)=6;Q2=RAND(31)Q2=(LO&31)+(LO&1)P(AAA5+Q2)=7;QQ1=RAND(60)QQ1=LO&63 IF QQ1>59 THEN QQ1==-(LO&*3)FIIF QQ1=1 THEN ;Q2=RAND(31)Q2=LO&31P(AAA5+Q2)=8 FI;Q2=RAND(31)Q2=LO&31P(AAA5+Q2)=53IF QQ3>12 & QQ3<20 THEN P(AAA5+QQ2)=14 P(AAA5+QQ2+1)=15 QQ3==+1 FIIF QQ3=6 THEN P(AAA5+QQ2)=44 P(AAA5+QQ2+1)=45 QQ3=13 FIIF QQ3=4 THEN P(AAA5+QQ2)=10 P(AAA5++QQ2+1)=11 QQ3=21 FIIF QQ3=2 THEN P(AAA5+QQ2)=1 P(AAA5+QQ2+1)=2 QQ3=13 FIFI[96]PROC ANIMACJA()DL=ADRDI P($D405)=7-AAA2RYSOWA()RYSEK()P(ADRDI+8)=112 P(ADRDI+9)=68+$20IF AAA1=0 THEN ;P(ADRDI+10)=48 P(ADRDI+11)=157P(ADRDI+10)=32 P(ADRDI+11)=157EL,SEP(ADRDI+10)=160 P(ADRDI+11)=150 FIFOR AAA3=0 TO 21 DO P(ADRDI+12+AAA3)=4+$20 ODP(ADRDI+13+AAA3)=112 P(ADRDI+14+AAA3)=112 P(ADRDI+15+AAA3)=65 AAA6==+1 IF AAA6=3 THEN AAA6=0 AAA2==+1 FI;P($D405)=7-AAA2 IF AAA2=8 THEN AAA2=0 ZXCV()AAA7==-32 RYSLIN-E1()AAA8=0 IF T<65535 THEN T==+1;ST. TRUD. IF (T MOD 200=1) AND TR<255 THEN TR==+1 FI FIFI;P(ADRDI+21)=112[96]PROC RYSCO()IF P1>25 THEN P2==+1 P1==-10 FI IF P2>25 THEN P3==+1 P2==-10 FIIF P3>25 THEN P4==+1 P3==-10 FI IF P4>25 THEN P5==+1 P4.==-10 FIIF P5>25 THEN P6==+1 P5==-10 FI IF P6>25 THEN P6=25 FI;P(40040)=(P3/10 MOD 10)+16P(40041)=(P3/1 MOD 10)+16;P(40042)=(P2/10 MOD 10)+16P(40043)=(P2/1 MOD 10)+16;P(40044)=(P1/10 MOD 10)+16P(40045)=(P1/1 MOD 10)+16P(40008)=P6 P(40009)=P5 P(4001/0)=P4P(40011)=P3 P(40012)=P2 P(40013)=P1P(40014)=16 P(40015)=16[96]PROC RYSZ()BYTE L;P(40000+30)=ZYSETBLOCK(40018,5,9)IF ZY>0 THEN IF ZY<5 THEN L=ZY ELSE L=5 FI;SETBLOCK(40018,ZY,31)ELSE SETBLOCK(40018,5,31)FISETBLOCK(40018,L,31)FI[96]PRO0C OPGR()TX(2,0,"")RYSZ();TX(10,0,"")TX(10,1,"")TX(10,2,"
")TX(10,3,"
");TX(20,2,"! #")P(40000+21+2*32)=34 TX(20,3,"$%&")TX(20,4,"'()");TX(25,0,"")TX(25,1,"")TX(25,2,",-")TX(25,3,"./")[96]PROC RYSLU()IF A9=1 THEN MOVEBLOCK(Z1+256+B,GRDU+98,27)MOVEBLOCK(Z+513+B,GRDU+124,26)[96]FIIF A9=2 THEN MOVEBLOCK(Z+256+B,GRDU+454,27)MOVEBLOCK(Z+513+B,GRDU+481,26)[96]FIIF A9=3 THEN MOVEBLOCK(Z+256+B,GRDU+505,27)MOVEBLOCK(Z+513+B,GRDU+532,26)[96]FI[96]PROC RYSPR(BYTE V1,V2)CARD O IF2 V1=1 THEN O=Z+$300ELSE O=Z+$400 FI;V1=2MOVEBLOCK(O+V2,GRDU+222,12)ZERO(O+43,14);SETBLOCK(O+45,12,255)[96]PROC WYB(BYTE V1,V2,V3)CARD O IF V1=1 THEN O=Z+$100+V2 ELSE O=Z+$200+V2 FI;V1=2 ZERO(O+$200,21) IF V3=2 % V3=4 THEN MOVEBLOCK(O+$204,G3RDU+400,12)FIIF V3=3 THEN MOVEBLOCK(O+$201,GRDU+412,20)FIIF V3=5 THEN MOVEBLOCK(O+$207,GRDU+429,12)FI;IF V3=6 & V3=7 THEN MOVEBLOCK(O+$207,GRDU+439,12)FIIF V3=6 THEN MOVEBLOCK(O+$207,GRDU+439,12)FI[96]PROC PARST()A=120 A1=1 B=170 D=0 STR=0 PR1=04 PR2=0[96]PROC ZNIK(CARD Q)Q1=LO&31 Q2=P(Z+Q+B+Q1)Q3=LO&7 IF Q3=7 THEN Q3=128ELSEIF Q3=6 THEN Q3=64 ELSEIF Q3=5 THEN Q3=32 ELSEIF Q3=4 THEN Q3=16 ELSEIF Q3=3 THEN Q3=8 ELSEIF Q3=2 THEN Q3=4 ELSEIF Q3=1 THEN Q3=2 ELSE Q3=1 FIP(Z+Q+B+Q1)=(255-Q3)&Q25[96]PROC JOY()A9=1IF A1=1 THENIF (JO=10 OR JO=9 OR JO=11) & A>65 THEN A==-1 A9=2 FIIF (JO=6 OR JO=5 OR JO=7) & A<176 THEN A==+1 A9=3 FIIF (JO=10 OR JO=6 OR JO=14) & B>74 THEN B==-2 FIIF (JO=9 OR JO=5 OR JO=13) & B<207 THEN B==+2 FIRYSLU()ELSE6; STR. ZYCIAA1==+1IF A1=3 THEN IF PR1=1 THEN IF PR2=1 AND LO>192 THEN IF LO>128 THEN PR1=2 ELSE PR2=2 FI FI FI IF ZY=0 THEN ;MOVEBLOCK(Z+256+99,GRDU+558,6);END;MOVEBLOCK(Z+256+60,GRDU+558,6);MOVEBLOCK(Z+512+60,GRDU+564,6);^WYWALIC TEGO IFAF7IFIQ2=A1/80IF A1<150 THEN;IF PR1=0 THEN PR1=2 E=A+(LO&3) F=B+(LO&7)-16 FI;IF PR2=0 AND LO>172 THEN PR2=2 G=A+(LO&3)+2 H=B+(LO&7)-16 FI IF PR1=0 THEN PR1=2 E=A+(LO&7)-2 F=B+(LO&15)-16 FI IF PR2=0 AND LO>172 THEN PR2=2 G=A+(LO&7)+2+Q2 H=B+(LO&185)-16 FI;IF PR1=0 OR PR1>6 THEN PR1=2 E=A+(LO&3) F=B+(LO&7)-16 FI;IF (PR2=0 OR PR2>6) AND LO>172 THEN PR2=2 G=A+(LO&3)+2 H=B+(LO&7)-16 FIFI;IF A1 MOD 10 =1 THEN Q2=A1/10 FIGGG9=A-Q2 GGGA=A+8+Q2 IF A1=185 THEN ZERO(Z+255+B,27)ZERO(Z+511+B,27) 9ZERO(Z+$300+F,14)ZERO(Z+$400+H,14) PARST() ZY==-1;GAME OVER TEST !!!!! IF ZY=255 THEN K=28 ELSE RYSZ() FI Q2=0 FOR Q1=0 TO 3 DO IF I(Q2)>0 THEN ZERO(Z+I(Q2+2),2)I(Q2)=0 FI Q2==+3 ODFIZNIK(256);Q1=LO&31;Q2=P(Z+256+B+Q1);Q3=LO&7 IF Q3=7 T:HEN Q3=128;ELSEIF Q3=6 THEN Q3=64 ELSEIF Q3=5 THEN Q3=32 ELSEIF Q3=4 THEN Q3=16 ELSEIF Q3=3 THEN Q3=8 ELSEIF Q3=2 THEN Q3=4 ELSEIF Q3=1 THEN Q3=2 ELSE Q3=1 FI;P(Z+256+B+Q1)=(255-Q3)&Q2ZNIK(513);Q1=LO&31;Q2=P(Z+513+B+Q1);Q3=LO&7 IF Q3=7 THEN Q3=12;8;ELSEIF Q3=6 THEN Q3=64 ELSEIF Q3=5 THEN Q3=32 ELSEIF Q3=4 THEN Q3=16 ELSEIF Q3=3 THEN Q3=8 ELSEIF Q3=2 THEN Q3=4 ELSEIF Q3=1 THEN Q3=2 ELSE Q3=1 FI;P(Z+513+B+Q1)=(255-Q3)&Q2;P(Z+513+B+Q1)=0 IF LO>222 THEN P(Z+513+B+(LO&31))=0 FI;MOVEBLOCK(Z+2<56+B,GRDU+98,27)MOVEBLOCK(Z+513+B,GRDU+124,26)FISETBLOCK(Z+256+234,10,255)SETBLOCK(Z+512+234,10,255)SETBLOCK(Z+768+234,10,255)SETBLOCK(Z+1024+234,10,255);MASKOW.[96]PROC KASSTR();IF C<80 & D=6 THEN STR=0 ZERO(Z+$108+C,20)ZERO(Z+$208+C,20)FIIF C=<56 THEN STR=0 ZERO(Z+$100+C,10) ZERO(Z+$200+C,10)FI[96]PROC STRZALY()IF STR=0 & STRIG(0)=0 & A1=1 THEN STR=1 IF D=6 THEN C=B-19 ELSE C=B-5 FI FIIF STR=1 THEN IF D=0 THEN IF JO=15 % JO=14 % JO=13 THEN MOVEBLOCK(Z+$100+C,GRDU+356,6)MOVEBLOCK(Z+$2>00+C,GRDU+362,6)FIIF JO=10 % JO=11 % JO=9 THEN MOVEBLOCK(Z+$100+C,GRDU+368,8)MOVEBLOCK(Z+$200+C,GRDU+384,8)FIIF JO=9 % JO=7 % JO=5 THEN MOVEBLOCK(Z+$100+C,GRDU+376,6)MOVEBLOCK(Z+$200+C,GRDU+392,6)FI C==-2;ZERO(Z+$106+C,5)ZERO(Z+$206+C,5)ZERO(Z+$108+?C,5)ZERO(Z+$208+C,5)FI;IF D=1 THEN MOVEBLOCK(Z+$100+C,GRDU+152,1)MOVEBLOCK(Z+$200+C,GRDU+153,1)ZERO(Z+$101+C,3)ZERO(Z+$201+C,3)C==-3 FI;IF D=2 THEN MOVEBLOCK(Z+$100+C,GRDU+154,3)MOVEBLOCK(Z+$200+C,GRDU+157,3)ZERO(Z+$103+C,3)ZERO(Z+$203+C,3)C==-3 FI;@IF D=3 THEN MOVEBLOCK(Z+$100+C,GRDU+160,3)MOVEBLOCK(Z+$200+C,GRDU+163,3)ZERO(Z+$103+C,3)ZERO(Z+$203+C,3)C==-3 FI;IF D=4 THEN MOVEBLOCK(Z+$100+C,GRDU+166,6)MOVEBLOCK(Z+$200+C,GRDU+172,6)ZERO(Z+$106+C,4)ZERO(Z+$206+C,4)C==-4 FI;IF D=5 THEN MOVEBLOCK(Z+$A100+C,GRDU+178,6)MOVEBLOCK(Z+$200+C,GRDU+184,6)ZERO(Z+$106+C,4)ZERO(Z+$206+C,4)C==-4 FI;IF D=6 THEN MOVEBLOCK(Z+$100+C,GRDU+234,15)MOVEBLOCK(Z+$200+C,GRDU+253,15)ZERO(Z+$113+C,8)ZERO(Z+$213+C,8)C==-8 FIFIIF STR=1 THEN KASSTR()FI[96]PROC AS()P(532B78)=1;GRAPHICS(12+16)DU()OPDU()P(711)=$F8 P(756)=144 P(708)=$C8 P(709)=$CA P(710)=$C2 P(712)=$00QQ1=0 QQ2=0 QQ3=20 ZZ1=0 ZZ2=1 ZZ3=0 AA1=$96A0 AA2=40224 AAA1=0 AAA2=0 AAA6=0 AAA7=$FA00 AAA8=0;FOR AAA3=0 TO 191 DO P(40000+AAA3)=0 ODZERO($96A0,$70C0)FOR Q1=0 TO 14 DO I(Q1)=0 OD;END ANIM EKRP1=16 P2=16 P3=16 P4=16 P5=16 P6=16;TR=1 ;TR=250 TR=10 TR=5ZY=4FOR A=0 TO 96 DO P(40000+A)=9 ODOPGR()RYSCO()FOR A=0 TO 79 DO;Q2=RAND(22)Q2=(LO&15)+(LO&7);AAA5=AA2+RAND(31)+FM(Q2)AAA5=AA2+(LO&31D)+FM(Q2)IF LO>128 THEN P(AAA5)=7 FIIF LO>192 THEN P(AAA5)=5 ELSE P(AAA5)=6 FIOD ;TX(0,0," !@#$%^&*()")FOR A=0 TO 11 DO;Q1=RAND(28)Q2=RAND(15)Q1=LO&31 IF Q1>27 THEN Q1==-(LO&7)FIQ2=LO&15TX(Q1,7+Q2,"
")TX(Q1,8+Q2," 12")TX(Q1+1,9+Q2,"34"E)ODTX(20,10,"!%#")TX(20,11,"$%&")TX(20,12,"'()")PARST()DO;P(53274)=2Q2=0 FOR Q1=0 TO 3 DO IF I(Q2)>0 THEN ZERO(Z+I(Q2+2),2)FI Q2==+3 ODQ2=0 FOR Q1=0 TO 3 DO Q3=I(Q2)IF Q3>0 THEN IF Q3>1 AND Q3<5 THEN I(Q2+2)==+2 ELSE I(Q2+2)==+1 FI IF Q3F=1 OR Q3=2 THEN I(Q2+1)==-1 IF I(Q2+1)<64 THEN I(Q2)=0 FI FI IF Q3=5 OR Q3=4 THEN I(Q2+1)==+1 IF I(Q2+1)>189 THEN I(Q2)=0 FI FI Q4=I(Q2+2);237 IF Q4<231 AND I(Q2)<>0 THEN P(53252+Q1)=I(Q2+1) IF Q1=0 THEN Q5=1 ELSEIF Q1=1 THEN Q5=4 ELSEIF Q1=2 THENG Q5=16 ELSE Q5=64 FI Q3=P(Z+Q4) P(Z+Q4)=Q3+Q5 Q3=P(Z+Q4+1) P(Z+Q4+1)=Q3+Q5 ELSE I(Q2)=0 FIFI Q2==+3 ODIF LO128 THEN;STRZELAJA W KIER GRACZA IF PR1=1 THEN IF E>AH+8 THEN Q3=(LO&1)+1 ELSE Q3=5-(LO&1)FI ELSEIF PR2=1 THEN IF G>A+8 THEN Q3=(LO&1)+1 ELSE Q3=5-(LO&1)FI FI ELSEIF LO<96 THEN Q3=3 FIQ4=0IF PR1=1 THEN Q4=1ELSEIF PR2=1 THEN Q4=2ELSE EXIT FIIF Q4=1 AND PR2=1 AND LO>128 THEN Q4=2 FIIF Q4=1 ANDI F<190 THEN I(Q2)=Q3 I(Q2+1)=E+3 I(Q2+2)=F+13 EXIT FIIF Q4=2 AND H<190 THEN I(Q2)=Q3 I(Q2+1)=G+3 I(Q2+2)=H+13 EXIT FIFI Q2==+3 OD FI;P(53274)=0; MIGANIE DZIURYZZ1==+1 IF ZZ1=2 THEN ZZ1=0 ZZ2==+1 IF ZZ2=8 THEN ZZ2=1 FI IF ZZ2=1 % ZZ2=6 % ZZ2=7 TJHEN;MOVEBLOCK(GRZN+44*8,GRZN+124*8,32)FI IF ZZ2=2 % ZZ2=5 THEN MOVEBLOCK(GRZN+44*8,GRZN+120*8,32)FI IF ZZ2=3 % ZZ2=4 THENMOVEBLOCK(GRZN+352,GRZN+992,32)FI IF ZZ2=2 % ZZ2=5 THEN MOVEBLOCK(GRZN+352,GRZN+960,32)FI IF ZZ2=3 % ZZ2=4 THEN;MOVEBLOCK(GRZN+44K*8,GRZN+116*8,32)FI FIMOVEBLOCK(GRZN+352,GRZN+928,32)FI FI[173 $D40B 201 85 208 249] [$20 $AE03];P(53274)=10 GGGD=1 P(53274)=0;MASKOWANIE GRFIKI[173 $D40B 201 115 208 249]GGGD=1 GGGD=1 GGGD=1 GGG5=0 GGG6=0 GGG7=0 GGG8=0GGG9=64 GGGA=96 GGGB=L128 GGGC=160GGG1=3 GGG2=3 GGG3=3 GGG4=3GGGD=1;END OF ANIMACJA()GGG1=0 GGG2=0 GGG3=0 GGG4=0 ;P(53274)=2;******IF PR1>0 THEN GGGB=E FIIF PR2>0 THEN GGGC=G FI;ñIF PR1=0 & A1=1 THEN IF LO
231 THEN PR1=0 FIIF PR1<6 & PR1>1 THEN F==+1 IF F>218 THEN PR1=7 FI E1==+1 IF E1=9 THEN E1=0 PR1==+1 FI WYB(1,F,PR1)FIIF PR1>5 THEN ZERO(Z+$100+$200+F,20)PR1=0 FI;àIF NPR2=0 & A1=1 THEN IF LO
231 THEN PR2=0 FIIF PR2<6 & PR2>1 THEN H==+1IF H>218 THEN PR2=7 FIG1==+1 IF G1=9 THEN G1=0 PR2==+O1 FIWYB(2,H,PR2)FIIF PR2>5 THEN ZERO(Z+$200+$200+H,20)PR2=0 FI; KOLORY SPRITESOW:IF A1=1 THEN;GGG5=$BF GGG6=$BFGGG5=$0D GGG6=$0DELSE GGG5=$0A GGG6=$09;Q1=LO&15 GGG5=Q1+$A GGG6=Q1+9FI IF PR1>1 THEN IF PR1>3 THEN GGG7=$F2 ELSE GGG7=$F4 FIELPSE GGG7=$98 FI IF PR2>1 THEN IF PR2>3 THEN GGG8=$F2 ELSE GGG8=$F4 FIELSE GGG8=$BA FI;$F2GGG9=A GGGA=A+8STRZALY()JOY();JOY()P(53274)=0IF K=33 THEN K=255;D==+1 WHILE K=255 DO [173 $D40B 201 85 208 249] [$20 $AE03] [173 $D40B 201 115 208Q 249]GGGD=1 GGGD=1 GGGD=1 GGG5=0 GGG6=0 GGG7=0 GGG8=0 GGG9=64 GGGA=96 GGGB=128 GGGC=160 GGG1=3 GGG2=3 GGG3=3 GGG4=3 GGGD=1 FOR Q1=0 TO 30 DO GGGD=1 OD GGG1=0 GGG2=0 GGG3=0 GGG4=0 ;KOLORY PAUSE:IF A1=1 THENGGG5=$0D GGG6=$0DELSE GGG5=$0A GGG6R=$09 FI IF PR1>1 THEN IF PR1>3 THEN GGG7=$F2 ELSE GGG7=$F4 FIELSE GGG7=$98 FI IF PR2>1 THEN IF PR2>3 THEN GGG8=$F2 ELSE GGG8=$F4 FIELSE GGG8=$BA FIGGG9=A GGGA=A+8IF PR1>0 THEN GGGB=E FIIF PR2>0 THEN GGGC=G FI OD K=255 FI;[173 $D40B 201 40 2S08 249];GGGD=1 GGG1=0 GGG2=0 GGG3=0 GGG4=0 ;P(53274)=2IF K<>33 & K=28 THEN EXIT FI; PUKTY;***********************IF PR1=1 & STR=1 & A+11>E & A-4F & C-6G & A-4H & C-63 AND A1=1 THEN IF (P(53260)&4)=4 AND PR1=1 AND B3 AND A1=1 THEN IF (P(53261)&4)=4 AND PR1=1 AND BB THEN A1=2 FI;P3==+1 RYSCO()FIIF P(53257)=1 OR P(53257)=2 THEN IF I(5)>B THEN A1=2 FI;P3==+1 RYSCO()FIIF P(53258)=1 OR P(53258)=2 THEN IF I(8)>B WTHEN A1=2 FI;P3==+1 RYSCO()FIIF P(53259)=1 OR P(53259)=2 THEN IF I(11)>B THEN A1=2 FI;P3==+1 RYSCO()FI FI;P(Z+255+B)=255;;;P(53278)=1;P(53274)=0P(77)=0ODK=255P(704)=$FF P(705)=$FF P(706)=0 P(707)=0 P(708)=$C2 P(709)=0 P(711)=$0MOVEBLOXCK(Z+256+115,GRDU+558,6)MOVEBLOCK(Z+512+115,GRDU+564,6)MOVEBLOCK(Z+768+115,GRDU+558,6)MOVEBLOCK(Z+1024+115,GRDU+564,6);ZERO(Z+256+234,10)ZERO(Z+512+234,10)ZERO(Z+768+234,10)ZERO(Z+1024+234,10)WHILE STRIG(0)=1 DO[173 $D40B 201 85 208 249] [$20 $AEY03] [173 $D40B 201 115 208 249]GGGD=1 GGGD=1 GGGD=1 GGG5=0 GGG6=0 GGG7=0 GGG8=0 GGG9=64 GGGA=96 GGGB=128 GGGC=160 GGG1=3 GGG2=3 GGG3=3 GGG4=3 GGGD=1 FOR Q1=0 TO 30 DO GGGD=1 OD GGG1=0 GGG2=0 GGG3=0 GGG4=0 GGG9=120 GGGA=128GGGB=121 GGGC=129Z IF K=28 THEN EXIT FIODWHILE STRIG(0)=0 DO ODK=255 ZERO(53248,8)[96]PROC MAIN(); WG("D:DUHSAM.DAT",GRDU,$400,4,0); WG("D:ZNASAM.FNT",GRZN,$400,4,0);WG("H1:DUHSAM.DAT",GRDU,$400,4,0)WG("H1:ZNASAM.FNT",GRZN,$400,4,0);WG("H1:RMT.DAT",$A000,$1[400,4,0) WG("D:DUHSAM.DAT",GRDU,$400,4,0)WG("D:ZNASAM.FNT",GRZN,$400,4,0)WG("D:RMT.DAT",$A000,$1400,4,0) ;WG("H1:RMT.DAT",$A000,$1400,8,0)FOR Z=0 TO 24 DO FM(Z)=Z*32 ODZERO($96A0,$700)WHILE K=255 DOTX(19,1,"4edecujace starcie")TX(34,2,""\)P(77)=0 P(559)=34 P(756)=224 P(710)=0 P(709)=14 DL=DISIF P($D01F)=6 THEN WHILE P($D01F)=6 DO OD;INIT: [$A2 0 $A0 $A0 $A9 0 $20 $AE00]AS() [$20 $AE09]ZERO($96A0,$700)FIIF STRIG(0)=0 THEN WHILE STRIG(0)=0 DO OD [$A2 0 $A0 $A0 $A9 0 $20 $AE00]A]S() [$20 $AE09]ZERO($96A0,$700)FIODGRAPHICS(0)K=42[96] ?'PZ8 冨 凪`ʆ
ee` 'E
¥ ' ` :'ʆ
&e ' 'L'` :''&&&8儨児祂* &&*ń8&&8 儨 兪` ' _`
Fj`
&`hihi HHȱȱ l
`p B V8l
T( Vhhlh(HHJJJJhh`hhlh(
`iDi E`Hhj(`H h`Hh`Hh` ( (JKB k(JJJJ ` ( B ` k(` ƥĤ` ƣĢ`112 LS) (L)O) N)M)L) ')`%
ҩҥ))
ҥ ` ` )ȥ` ȱ`)`2,T), )%;WOLNA PAMIEC OD $8100-$8C00 ! !!!) a*C pppppppB@A)) * *s *lPROC WG(QZ2 ARRAY TL8* (-* (3*4*.*-* (3*ILn*b )Lw* b )0*/*d )2*1*h ) V䅣 (`OKEC($368L* (*** *@m*i *
m)* *(m**q*q b** )***i*i *** )`L/+)i)iԅ )i )iЅ)i/)i ^'i
*i*)io)i ^'*
* P))i )iЅ `L+)i)i @ c )i)i`)i
)i
)iÅ)i`LA,)LO,)`)IL_, )`Lb,)m*)m*p *i*i )e)ep*i*i )e)e *i*i )e)ep*i*i d)e)eD*i*i )e)e@*i*i )e)e*i*i )e)ep`Lk-*0*`Ly-**`L-)L-`8)))L. ** **)i
m)* *(m** * q *q)i
m)* e *(m**!*q"*q ))IL."**!**)i
m)* *(m**!* q"*q)i
m)* *(m** *q *q ))`L.)L^/
) ) )L.8)
҅)))I
)IL.) f) '8))IL-/)
) ) )L-/8)
҅)))L^/)
) ) )L^/8)
҅))
)
)e))L1"**!** ** P)
)
)e)*m)*i )e)e
)
)e g)*m)*i )e)e
)
)e
)e))ILd0
) )*m)*i )e)e*)IL0*m)*i )e)e *m)*i ii )e)e))IL,1*m)*i h)e)e. *m)*i ii )e)e/))IL1*m)*i )e)e *m)*i ii )e)e
) )L1)L1*m)*i )e)e *m)*i i ii )e)e))IL4 ** ** ** P)
)
)e)*m)*i )e)e
)
)e)*m)*i )e)e
)
)e)*m)*i )e)e
)?);)L j2
)8)宍))IL'3
) )*m)*i )e)e
) )*m)*i )e)e5 )L3)L3*m)*i )e)e *m)*i ii )e)e))IL$4*m)*i k)e)e, *m)*i ii )e)e-
))IL4*m)*i )e)e
*m)*i ii )e)e ))IL4*m)*i )e)e *m)*i ii ) le)e
)`L4*1*0)i)iԅ8) - _,*i*i )e)ep *i *i )e)ed)L5*i
*i )e)e *i *i )e)eL5*i
*i )e)e m*i *i )e)e ))L;6*i *i m)i )e)e$ )L5*i
*i m)i )e)ep *i*i m)i )e)ep*i*i m)i )e)eA) n)IL6)))ILU7 ) >,8* ** * . )%*&*LU7%*&* ȅ&*%* 'II LU7)LU7)`LY7)Lo7)8)
))L7)8)
))L7)8)
))L7)8)
))L7)8)
))L o7))iH)i) )iI)i))iJ)i))iK)i))iL)i))iM)i))iN)i)iO)i`8L{8 R ') )L8)L8)w8L8w8 w8R ')`L8L8 p8Ǣ * x8`L8)ILf9
*i *im)i *ib*i )
*i*im)i *i|*i )`)IL9
*i *im)i *iƅ*i )
*i*im)i q*iᅢ*i )`)ILp:
*i *im)i *i*i )
*i*im)i *i*i )``[96]Lx:r:q:q:IL:
*i s:*it:L:
*i s:*it:s:mr:t:i *iޅ r*i )s:i+t:i P)`LSE LL; (::IL4;
*i *im::i :LS;
*i *im::i ::i :i P):I
:IL;:i:i*i*i ):IL;:i s:i*i*i ):IL!<:i:i*i*i ):ILZ<:i:i*i*i )`L^x uI
xI
xI L=A)L=8)))xIxI
xIL>)ɰL>))xI
xI
xIL@>J)L@>8))xI xI
xI
Lk>)ϐLk>)i) 8L A))IL>)IL>)IL>
ҐL>
ҐL>)L>))L v> P) '))ɖL`?)L?)
))e8)
))e8))L`?
ҐL`?)
))eim))
))e8)8)) )im)Э)IL@
*i*i m)i P)
*i w*im)i P)
*i *im)i P)
*i *im)i P) [<8)))ILK@ LN@ x8 )))L@ ))L@)i
*})*i P) )))i))LV@ }< x }<
ҐL A
*i*im)i
) ei )e)e
*i *iiꅠi
')
*i *iiꅠi
')
*i *iiꅠi
')
*i *iiꅠi y
')`LA)8L$B )
*i *im)i
P)
*i *im)i
P)`L(B)LjB )LjB)ILjB))ILaB8))LjB8)))ILD)LDxIxI
xI
LC
*i *im)i z *id*i )
*i *im)i *ij*i )xI
xI
xI LC
*i *im)i *ip*i )
*i *im)i *i*i )xI xI {
xIL2D
*i *im)i *ix*i )
*i *im)i *i*i )8))
*i*im)i P)
*i*im)i P))ILD A`LD)i |)iЅ ,+ +)iDž)i )i)i)ią)iȑ)iŅ)iʑ)iƅ)i)iȅ)i ))))Ȍ)) * *"* !*)))* *) P) ))LE )))LE)) }))))
))) )`)LE@m)i )e)e )LE 8 V7 )O)LF
)
)e)
) !*e"*i )
m)* *(m** q*q*
ҐLF)m*)m*
ҐLF)m*)m* ~ LF)m*)m* )L F ) )LaG
) ))LF
)8)宍)
))m)L
G
G
) *m)L*G 12G&) *)i m)LNG34GK *)LFLhG!%#Gd
*L|G$%&Gx *LG'()G * [ < )))LG ))LG)i
*})*i P))i))LG )))L(J))) )LJ)LFH)LFH)i)i)LSH)i))I
)ILH)i8)))i)@LH )))I
)ILH)i))i)LH )))i)))LJ))LJm)i )e)e)i) )L1IȌ)LZI)ILCI)LZI)ILUI)LZI@)
*m)*i )e)e )
*m)*i )e )e)m)
*m)*i ii )e)e)
*m)*i ii )e)e)m)LJ )))i))LG
)LK)ILK )))LK))LK
)
)ei)
ҐLK)ILJ)i )LJ
)i)LJ
)8宍)LJ)ILJ)i)LJ
)i)LJ
)8宍)LK
`LK) ))IL&KȌ)L;K)IL8K)L;KLK)IL^K)IL^K
ҐL^K))ILK)ɾLK))))i)i))i )i
)LK)ILK)ɾLK))))i)i))i)i
)LK)i))LEJ))ILL )))IL LȌ))I)I
)ILcL*i`*i*i*i ))I
)ILL*i`*i*i*i ))I
)ILL*i`*i*i*i ) U s
Ԍ
Ԍ
ԈЌЌЌЩ@ Щ`ЩЩЩЩ Щ
Щ Ȍ
4 Ќ Ќ
Ќ Щ )LYM)Щ )LiM)Э)LM)ILM
)LM)
)?
) e
)e))iK)))) u:)ILM)) u:)ILM)LM ))L9N)L9N))LN)))I L.N )))) :)LN
*i *ii im)i P) ))LN) ILN
)LN)
)?
) e
)e))iK)))) u:)ILN)) u:)IL O)L O ))LOO)LOO))L/O)))I LDO )))) :)LO
*i *ii im)i P) ))ILO
Щ
LO
Щ Щ)LO)LOLOLOЩ)LP)LOL PLPЭ) )i %B =)i)iЅ I!LqQILlQ U s
Ԍ
Ԍ
ԈЌЌЌЩ@ Щ`ЩЩ ЩЩ Щ
Щ Ȍ
Ԉ) )LP
)LP Ќ Ќ
Ќ Э)ILP
Щ
LP
Щ Щ)L Q)LQL QLQЩ)L5Q)L-QL2QL:QЭ) )iЩ )LYQ)Щ )LiQ)LAPI!LQI LQLU)ILfR)ILfR)i )ŮLfR8))LfR)i)ŮLfR8))LfR))i) V7 ))
*i *im)i P)
*i *im)i P))i )iЅ )ILDS)ILDS) i )ŮLDS8))LDS)i)ŮLDS8))LDS))i) V7 ))
*i *im)i P)
*i *im)i P))i )iЅ )i )iЅ ѮLS)ILS)i )iЅ )ILS)ILS)i )ŮLS)))i )iЅ )ILS)ILS)i )ŮLS)))i
)iЅ ѮLT)ILT)i
)iЅ )IL^T)IL^T)i )ŮL^T)))i
)iЅ )I LT)ILT)i )ŮLT)))ILU)i)iЅ I)i)iЅILT))LT))i )iЅ I)i )iЅIL,U))L,U))i
)iЅ I)i
)iЅILkU))LkU))i )iЅ I)i )iЅILU))LU))i )iЅ )iM)i LG)i)i )i)i)i
)i )iÅ)i )ią)i)iŅ)i )iDž)i
*i *i isi *i.*i )
*i *iisi *i4*i )
*i *iisi *i.*i )
*i *iisi *i4*i ) )ILW U s
Ԍ
Ԍ
ԈЌЌЌЩ@ Щ`ЩЩЩЩ Щ
Щ Ȍ
Ԉ) )LW
)LW Ќ Ќ
Ќ Щx ЩЩyЩЭI LWLWLQW )LXLW Щ P)`L$XL4X D:DUHSAM.DAT* *X' 5*LcX D:ZNASAM.FNT* *XV 5*LX D:RMT.DAT X 5* *
*
* *LY
*
m)***(m** *
* ^'
*й*LX P)ILEZL.Y4edecujace starcieY *L@YY>" *)iM)i )i/ )i")i)i)iƅ)i )iŅ)i *1 *0)i )iЅIL Z)i )iЅ ILYLY D P) )LBZ )L&ZLZ D P)LY T*``!X _[ZZhԨVTTThThT(0?? ٦jchjTDDDDDDTTT@@@TTTTDDDTT@@TTT@@TDDDTTDDTDDTDDDTTDDTT<< <<<< 0dd0 TT fffcD4 ffffttttwww 4Dp ml?3 3?j 竗S ffff< cckwc ff< 8pp8 ? ww <~~~< x`x`~ <~ ~< 0~0 ~ <~~< <>f> ``|ff| <```< >ff> >ff>| ``|fff 8< < ``lxlf 8< fkc |ffff ff> |f``` >`<| ?3 3?? @ #??# #? XԦ` *' } *(L
`( L l pL[,L] C
i0
p gފދLh ( LD 0 PC
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 ; y y B ' |L[ "E(
% H$ H #`L]B 0 G
LO< (
d lH۪!A3 A jA !B EIC Y$E0 F <
7
JN8 Nd â!,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[IL3GDIɛ ɜ DI ,
JȊGм
G
I )
GȦ= *G G
ȄI 1200820I H1E 1h0hIGI2Ȣ I`FE 0 ɛ rɛ $ l '蚦TTUVD`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] E GȽGȽG | E` 8 , }EG)݀G)ȱGȱG `"!L] l!i栠 $8 (Iƭ I p
h,g+ j? 8 ii(Lq)!
S S0$} ) E9`H)N,L]8GH Lq `g Ngfj**** 8jHi
h`
2J
&e2i `"%?&;^ $IM ! ! < u hh`$Ev옝^!
1EH FHjm GHm
H`u$Ev`L=? +`!,p FE ȄD 8 q D&E`I0` i`+DOS SYSMOC.I
J
ٍ = ) F ) 8`Ll T!U<; Ln <JM -1 8
HH =D 1 : /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` O IH`hhXhh nL Free Fil-DBreakI/O-Error 128Disk fullWrte protectedFile MismatchBad Filename DOS II+/D - Version 6.4 RUN:(c) '87 by S.D.Br`č LLockedDevice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD1:+DOS SYSMOC.I
J
ٍ ? B DUHSAM DATB
RMT DATB? SE ACTB4 ^ TEDECUJ XEXB ZNASAM FNTB DOS SYS