,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 ZAR'imhihiHHȱȱ`8Hh` 5'E…¦ 5'`L5'` F'"Ff ee&8Lg' F'_Wń児0 &&86.ń児8充FfFf8Lg' '` Fj` &`p B V8l H( Vhhl\(HHJJJJhh`hhl\( `iDiE`Hh^(`Hh`Hh`Hh` (IHiDiE B _(HI B _(`H ( LhL(H ( [hL( (L( (L ) (iDiEHIB _(H8L`HxhL,)^(Ln)HhL,)HhL) (L) (HIB _(` ( (JKB _(JJJJ` ( B _(`H` B VhKI  JS:DEB _(`UVT` *L)% ҩҥ)) ҥ``)|`)x`)`ƢŢ8*8 %Ţ`` *ȥ`ȱ`Ƣƣ8`HhL*Ƥƥ8`zlasumakontrolna"*2LSEIF ERRCODE=144 THEN(++q+$TX(14,15,"bladzisniemozliwy")Lt+ 'h+j+k+l+@mh+i(i+ s'em+en++j *p+o+o+ip+il+n+m+ *` L+++IL/,L,bladprzerwano , q+Ls/+ILe,LU,bladurzadznieistni,< q+Ls/+I +IL,L,bladniewlasciwynumer,y q+Ls/+IL,L,bladuplynalczas , q+Ls/+I +IL-L-bladbrakkomunikacji, q+Ls/+ILK-L;-bladzlasumakontrolna-" q+Ls/+IL-Lq-bladzapisniemozliwy-X q+Ls/+I +IL-L-bladbrakmiejsca- q+Ls/+I +IL-L-bladniewlasciwanazwa-Ң q+Ls/+IL1.L!.bladpliknieistnieje. q+Ls/+I+I+I +IL|.Ll.bladuszkodzsystplik.S q+Ls/L.innyblad . q+^+i_+id+ 'i+d+ 'IL.+^+i_+i + 'd+ '8媅m+^+i_+i+ ' "(iL~/0ress/v q+IL/L/)+`2L//L/brakplikuzkolorami/ q+`/L///// *`SNDRST()L/ '/ )//// )/IL,0b *L50 b *//d *//h *)+Lb0 V䅣 ))+`NLq0m0^+i􅮭_+i Q*^+i_+iL00  q+m0IL0L0wczytywaniek!olorow0Ӣ q+m0IL,1L1nagrywaniekolorow1 q+L111/  q+  /+, )10 *^+i6_+iL1|AR1{ q+L1|AR1 q+^+i_+i,+ ,+L02L1niewlasciwanazwapliku"1Ǣ q+L10ress1 q+IL2L2^+i6_+i`L2,+LN2.+I: /+I:LN2L2++L}28+8+,+,++LS2D-+:.+,+i,+m0Ģ+, /^+i6_+i`,L22^+i􅮭_+i# Q*^+i_+iL33  q+2ILP3LC3wczytywanieznakow3* q+2IL3Lv3nagrywanieznakow3] q+L33  q+  /+, )10 *^+i6_+iL3|AR3$Ң q+L3|AR3 q+^+i_+i,+ ,+L4L74niewlasciwanazwapliku4 q+LO40ress4G q+ILi4L\4^+i6_+i`L4,+L4.+I: /+I:L4L4++L48+8+,+,++L4D-%+:.+,+i,+2+, /^+i6_+i`NOS(0)>L%5 '5(5 s' 5!5+5X5X5+L55m+5i+@m 5m!5m5im+i8^+e_+e++LM5`L5!+IL5*+& +( s'55 ++++ 6 6+Lx6 +m+$6$6+La6 @m5m5m+i^+e_+e+++L65i(55i5+L5` gL~6 5( s'y6z6+m+66+L7P@my6mz6m+ii' i^+e_+ey6i(y6z6iz6+L6`(NL 7+i( s'7 7+m+D7D7+L}7@m7m 7m+i^+e_+e+L97`7 PRL77~777~77~7i77i77̀777L7*4`m7m7^+e(_+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܅_+i)^+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*+i*^+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*+i+^+ig_+i*+i^+ih_+i^+i_+i^+i_+i*+i^+i_+i*+i^+i_+i`LN;Lz;(ũ;Q q+L;(; q+L;,(㉀;â q+L%<(; q+L^<(é<5 q+ 8Lt<|QRRRRRRRRRRRRRRXRE> q+L>>||: zerowaniezna |>* q+Lb>||ku|>N q+L>||& zamalowywanie|>r q+L>||znaku|> q+L>/|ARRRRRRRRRRRRRRRRD> q+L>|||>ޢ q+L?|ARRRRRRRRRRRRRRRRXRRRRRRRE? q+LJ?|||?. q+Lv?|ARRRRRRRWRRRRRRRRRWRRRWRRC?Z q+L?|||znak||? q+L?|ZRRRRR0RRXRRRRRRRRRXRRRC? q+L?ZRRRRRRRRRRRRRRRC?آ q+`L? \'+ILH@*+@++L3@^+i _+iԅLH@^+i _+iԅ`4LN@(+ s'iI@iJ@+Ȍ++LXA@mI@mJ@m+i^+e_+e1++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+`2LAA+ie( s'@eemAiii^+e_+eT`$TLB( s'BB+@mBmBii^+e_+e*+@mBmBii^+e_+e*+i@mBmB3i i^+e_+ed++*+ 'id++*+ 'IILC+@mBmBi!i^+e_+e ++*+ 'd++*+ '8媅嫅m+@mBmBi"i^+e_4+e++*+ ' "(i`QLC++*+ s'CC( s'CC++LD++LD@mCmCiim+i^+e_+e+L0DCi(CCiC+L!D++LEd5+mCe+mCm+i^+e_+e++)LD8+逍+ A+)@LE8+@+ A+) L.E8+ + A+)LJE8++ A+)LfE8++ A+)LE8++ A+)LE8++ A+)6LE8++ A+LD B 5`16LE++*+ s'EE++L.Fd+mEe+mEm+i^+e_+e+LE`)+L4F++*+ s'/F0F++LFd+m/Fe+m0Fm+i^+e_+e+LRF`DOLF7++*+ s'FF ( '*++L0Gd+mFe+mFm+i^+e_+e+f+m+g+i^+e_+e++LF`IFL6G++*+ s'1G2G ( '*++LGf+m+g+i^+e_+e+d+m1Ge+m28Gm+i^+e_+e++LaG`LG++LHf+m+g+i^+e_+e+LG`)HIFLH( s'i Hi H+++*+ s' H HH H++LI++LbI@m Hm Hm+im H9mH^+e_+e++IT +IL\I+ILH+i++ILH+i@++ILI+i ++ILI+i++IL)I+i++IL "5``LM *ILM^+i󅮭_+i` *ILM^+i󅮭_+i``THLM++*+ s'MM+++++LNd+mMe+mMm+i^+e_+e+f+ig+im+i^+e_+e++LN?+++LOf+ig+im+i^+e_+e+d+mMe+mMm+i^+e_+e+8+++LN`j n0X * [K; 5 CILpkLhjdomyslneustawkolorowjP q+ # '*Lj0resscj "5ILj ?LjIL&k  '*^+ią_+i^+iŅ_+i ^+iƅ_+i^+iDž_+i^+iȅ_+iLBk\k) 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 / C'3l8冨凪`ʆ ee` 'E…¥ '` :'ʆ &e ' 'L'` :''&&&8儨児祂*&&*ń8&&8儨兪` '`` Fj` &`hihiHHȱȱl `p B V8l T( Vhhlh(HHJJJJhh`hhlh( `iDiE`Hhj(`Hh`Hh`Hh` ( (JKB k(JJJJ` ( Ba k(`ƥĤ`ƣĢ`)RLS) (L)O)N)M)L) ')`% ҩҥ)) ҥ`` )ȥ`ȱ`2 SS4=82 S3=84 SS3=84 S2=86 SS2=86 S1=88 SS1=88 G1=0 G2=0 G3=b0 G4=0 G5=0 SETD()})9D*2CSTAR4lFpppB@A**2=1 *Z*AD=1 *)F000D* e*[96]Z*l*e*~* PROC BLUN()l/1.7*%(2-4+9 5 )/ 0?!>3:$8&='9(*+,:8#6"#.%-3502"B* TL****m{**im*ic m**(m*qqL*eM*e*`L4+)()LQ+)R*)L9+ R*DS*:T*DU*UV*SW*ZX*KY*IZ*.[*D\*A]*T^*_*R*{*R*}*`EL++)}*++)L++m)8{*8)R* *)L++IL d,m)8{* *` L, ,*m{**im ,i m**(m*qqL*eM*e`TLm,i,i,IL, ,))L,8)逍)) *L, ,))i *`L,R*{*{*}*~* +IL/ IL/e~* 2 o)|*)&)L-) ^')*m)*iQL-{*LP-{*{*}*La-{*}*)i*e*i)) *)i {*R* ,))ɀL-)i *|*)L -IL-L/I4L .{*L . {*fR*8{*{* * j,L/IIF ILi.{*Li.8{*{* ,))L\.8)逍)) * j,L/IIG IL.{*}*L. ,))L.8)逍)) *{* j,L/Iw IL9/)8)))ig)R*R*)M{*L/L/L.{*i R*}*}*L%/}* + *L/It IL/{*i))iR*)Z) ).Ly/ )))R*))I(L/L/LS/ + j,L/I I,L/L/L/|*L/ o)~*~*IhL/ o)L,)}*00)L00 )R*I L*08)}*L00)L0}*L@0 1+ +R*L^0T*I: U*I:L^0L0))L08)8)R*R*)Lc0DS*:T*R*iR*}*i}*}*R*}*iR* o)IL0`L0i`>127L0 (000)Ȍ))11;)L1A0m)0i)0 m**(m**q*qm0im)i8L*eM*e))L1`)+A)L1 (11)111)L2F*m1*i) m*j*(m*qqL*eM*e1)L1`L2L'2 4hanksto2 0L>2-iker27 0LV2)nsert2N 0`Lg2L2QRRRRRRRRRRRRRRRRRRRRRRRRRRRE2j 0L2|򎀑|2 0L2|k|2Ƣ 0L3|逳倀|2 0L@3ZRRRRRRRRRRRRRRRRRRRRRRRRRRRC3" 0LZ3 kold3P 0Lt3 kold3j 0L3 kold3 0L3 kold3 0L3 kolst3  0L3 koltlal3Ң  0L3ZRRRRRRRRRRRRRRRRC3 0| 1| 1 2`L-4))Lf4m)LS4 4G 0)L24`RLk4g4 *4L4nastapilbladwewy4t 0g4IL4L4przerwano 4 0LF8g4IL4L4urzmadznieistni4Ԣ 0LF8g4I g4IL.5L5niewlasciwynumer5  0LF8g4IL^5LN5uplynalczas 5; 0LF8g4I g4IL5L5brakkomunikacji5r 0LF8g4IL5L5zlasumakontrolna5 0LF8g4IL5L5zanpisniemozliwy5Ң 0LF8g4I g4IL,6L6brakmiejsca6  0LF8g4I g4ILc6LS6niewlasciwanazwa6@ 0LF8g4IL6L6pliknieistnieje6p 0LF8g4Ig4Ig4I g4IL6L6uszkodzsystplik6o 0LF8L6innyblad 6ۢ 0 m**(m**q*qi *i *L*m *M*m *dg4 'i)dg4 'IL7)L7dg4 'IL7) *i *iL*eM*e pg4 'dg4 '8媅m) *i *iL*eM*eg4 ' 'iLQ80ress8I 0ILp8Lc8 m**(m**q*q' P) d2*`=29 THENL8 (8 (8q888 (8IL8L*ibM*iL9L*ibM*i 88d )88h )*L?9 V䅣 (*`LLN9J9*RJ9**R 8`Lz9L*iM*iԅL*iM*iЅL*i/M*i>L*ioM*ir ^'i*i*`=2L9) m**(m**q*qi 9i9)))L;9m)9iL*eM*e))L ;)Ly:)i)L ;)IL:)i@)L ;)IL:)i )L ;)IL:)i)L ;)IL:s)i)L ;)I L:)i)L ;)I L:)i)L ;)IL ;))i)L-:*m**m*m)im)i8L*eM*e)`;Ll;h;g;))L<*m **m *m)img;mh;L*eM*et))IT )IL{<)IL;)i)L{<)I L<)i@)L{<)I L<)i )L{<)IL.<)i)L{<)ILD<)i)L{<)ILZ<)i)L{<)ILp<)i)L{<)L{<))i)Lw;`)FL< m**(m*i *ȱi *<<)u)L;=)<< i;*m**m*m)im)iiiL*eM*e)= ') )L=)L=)L*m *M*m *)vm)>=)) )L=)L=) *i *iL*eM*e)m)`L>& ?=& ?=& ?=& ?= & ?==* & ?=`LZ>V>*mV>*iL*eM*eT*mV>*iiiL*eM*eT`L> wm**(m**q*qi *i *);)L? * * P) *i( * *i *)L>*m**m*m)ii *i * m**(m**q*qi *i*)Ϳ)Lc@ *m) *iL*eM*e))x)L? W>))@L? W>)) L? W>))L@ W>))L@ W>))L&@ W>))L9@ W>))LL@ W>*i(**i*)L?`DULi@ m**(m**q*qid@ie@)))LA)y)LAd@m)e@i) m**(m*qqL*eM*e)) )ILA)IL(A)i))IL;A)i@))ILNA)i ))ILaA)i))ILtA)i))ILA)i))ILA)i))ILA))L@*zm**m*m)im)iL*eM*e)))L@`LALB kasowanieB 0L,B wszystkichB! 0LDBduszkowB< 0L_B pressdel BT 0LwBcontrolBo 0ILBLBILBR** P)`FL{BBBILBa`LCBILBa`LCBILBa`LCBIL Ca`LCa`LCCCIL0CE`L{CCILFC5`L{CCIL\C%`L{CCILrC`L{C`C- FLC ({C{CILC)LC))))LC|))))LCL*iM*i)L*iM*i))))CC)L F{CILDL*iM*i8}C*L*iM*i|CL*iM*i)L*iM*i)*m}C*m~C8**HH) Bhhe *e *) C*} * *|C ** * )LFL*iM*i))LE)LEL*iM*i*q*iHHH) Bhhhe *e * * *LE * *阐LE) C8鰍 ** *) ** * )) C* **)~ * * * )* * * *) C8鰍 ***) * * * )LF *4LF brakdanychE 0*&*L F)LC`L$F*m**m* )`LJF*m**m* )`LtF)Э)Э)Э)Э)Э)Э)Э)Э)Э) Э) Э) Э) Щ`LFLF 3calanieF΢  0)LF.)LF4)*i'*i m**(m*qqL*eM*e)LNG od_do_GD 0*i!*i m**(m*q *q *L*m *M*m *)i *i * *i *L*m *M*m *)i`LG d o)`LGI9LH))LH) FL$HI9L$H GIy ILSH)LSH8)) FLlHIy ILlH GILH)LH) FLHILH GIA ILH))LH8)) FLHIA ILH G`LH) >`LH=*)L*iƅM*i)L*iȅM*i)))))LWIL*iŅM*iLjIL*iŅM*i`LnI=*   H )) B**x)2Щ2):Щ:)BЩB)JЩJ)RЩR)TЩT)VЩV)XЩX)))))) qFO*N*Q*P*))Ȍ)))**`L?J)ILfJ*mQ**iP* CLJ*m)*iii C`LJLJ parametrowJ 0LJ progduchJ 0`LJJJILK*m)*im)i8 CL9KJIL6K*i*i CL9K > !FIL M # o)I IL3M ]K8)))I ILTM ]K))I IL{M ]K8)))I ILM ]K)i))I!LN)) m**(m**q*qm) *i *L*m *M*m *))IT )ILINL*m *M*m * *i *iL*eM*eLNL*m *M*m *T *i *iL*eM*eT 9ILN8)) HILN)i) HIN ILN8)) HIO I LN) HILO B**) H !FIL2O B**) H !FILVO B**) H !FILzO B**) H !FILO B**) H !FI_LOi >I^I IuLOi >IZLOi >IXLPi >I]LPi >IL0P8 >ILFP8 >IL\P8 >ILrP8 >ILP8 >ILPi >ILPi >ILPi >ILPi >ILPi >ILyQ J)))QQ)LvQG) B*e*em)im)i8L*eM*e)LQ HIWL,R J)))QQ)L)R,)ILQ) B*e*emQ* *i *P* * * P)L#R) B*e*em)ii *i * * * P))LQ HILR J)))RRRR)LRP) B*e **e * * * P))LGR HILR)))))))))*i*i C)))))) A H *4ILS*i*i C GF HLS J)))*S*S)LSZ) B*e*em)im)i8L*eM*e )LS HI@LT J)))SS)LTa)IL'T) B*e*emQ* *i *)8P*SS)L$T *m) *iL*eM*e Ҡ)LSLT))LT) B*e*em)iiim)iL*eM*e Ҡ)L,T)LS HILU J)))TT)LUK) B*e **e *))LU *m) *iL*eM*e Ҡ)LT)LT HILU J)))AUAU)LU6) B*e*em)im)i8L*eM*e)L6U HIVLV J)))UU)LVF)ILI7L[ *4Lr[ zapis[f 0L[ danychduch[ 0** ,IL[ K9I/L[) qFI.L[) qFI*L[) qFI(L[) qFI-L\) qFI+L\) qFI L$\) qFI L4\) qFIoLJ\8)) qFInL`\8)) qFIjLv\8)) qFIhL\8)) qFImL\8)) qFIkL\8)) qFIKL\8)) qFIML\8)) qFI?L\) qFI>L]) qFI:L]) qFI8L$]) qFI=L4]) qFI5L]*m)*im)i8N*O*)m)8Q*)L])I0L])m)8i)Q*)L]8)Q*P*L]P*)IL])I2L_)IL_*m)*im)i8P* C)L^8*煠**mN**mO*P* )*m**m*m)im)i88*煢*P* )L_)))^^)L_) B*e*emQ* *i *8*煠* *P* * )) B*e*em)im)i8 * *8*煢*P* * * ))L^ HL_I2L_ GILc**8*煮*L*eM*e8*慮*L*eM*e8*兮*L*eM*e8*䅮*L*eM*e8*ㅮ*L*eM*e8*Ⅾ*L*eM*e)8*ᅮ*L*eM*e)8**L*eM*e)8*߅*L*eM*e)8*ޅ*L*eM*e)8*݅*L*eM*e)8*܅*L*eM*e)8*ۅ*L*eM*e)8*څ*L*eM*e)8*م*L*eM*e)8*؅*L*eM*e)8*ׅ*L*eM*e)8*օ*L*eM*e)8*Յ*L*eM*e)8*ԅ*O*N* )8*҅*L*eM*eQ*8*х*L*eM*eP*8*Ѕ*L*eM*e)8*υ*L*eM*e)8*΅*L*eM*e)))L\c8*ͅ*L*eM*e)=*)L$cLkc zapisc_ 0 JLc D:EDUCHOW.DAT8*煢*+c~ 8ILgLc ladowaniecƢ 0 J**Lc D:EDUCHOW.DAT8*煢*+c 88*煮*L*eM*e8*慮*L*eM*e8*兮*L*eM*e8*䅮*L*eM*e8*ㅮ*L*eM*e8*Ⅾ*L*eM*e)8*ᅮ*L*eM*e)8**L*eM*e)8*߅*L*eM*e)8*ޅ*L*eM*e)8*݅*L*eM*e)8*܅*L*eM*e)8*ۅ*L*eM*e)8*څ*L*eM*e)8*م*L*eM*e)8*؅*L*eM*e)8*ׅ*L*eM*e)8*օ*L*eM*e)8*Յ*L*eM*e)8*ԅ* )O*N*8*҅*L*eM*eQ*8*х*L*eM*eP*8*Ѕ*L*eM*e)8*υ*L*eM*e)8*΅*L*eM*e)))Lg8*ͅ*L*eM*e)=*)Lg F > qFILh *4Lg kasowanieg 0Lhustawienh 0L*h press h  0LBhshift h: 0LZhcontrolhR 0ILthLghILh kI F > H *4IuIpI ILh)O*N*Q*P* HILh)I) F GI&Lh=*i=* > HIf ILi8=*=* > HIL6i=*i=* > H)ILEi))ILTi))ILci))ILri)) Li))ILi ))ILi))ILi)) m**(m**q*qm)*i*L*m*M*m*)) )L j))ILj) m**(m**q*qm)*i*L*m*M*m*)i*i*iL*eM*e)i G**Lj***I *ILj *4 2**)ILk *4Ljwyjsciejۢ 0Lj zprogramuj 0Lkpressk 0L,ktynk% 0LCkexit k< 0IL~kI- I+L{k)LkL~kLkLUk**)ILkLkLLЩ P)( ^'** P)*1*0L*iƅM*iL*iŅM*iʑL*iȅM*iL*i6M*iKi(Kh(``Kexit k< 0IL~kI- I+L{k)LkL~kLkLUk**)ILkLkLLЩ P)( ^'** P)*1*0L*iƅM*iL*iŅM*iʑL*iȅM*iL*i6M*iKi(K ; 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 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]BYTE FUNC STrig=*(BYTE p)[$29$03$AA$BD$84$02$85$A0$60]MODULE86$A1$98$A0$00$91$A0$60]PROC PokeC=*(CARD a, v)[$20 ;PART OF RUNTIME BY MIRAGEPROC 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 SETBLOCK=*(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 $E6 $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)RETURN6 $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) SETBLOCKMODULE; MUCHBLASTESZ INCLUDE "D:RT_MIR2.ACT"BYTE A,B,B1,A9,E,F,E1,T,GT,G1,G2,GI,GS,GX,G3,G4 ,PRZ9 ,Q,Q1,Q2,Q3,Q6;,Q4,Q5,Q7,Q8BYTE ARRAY S(4),SX(4),SY(4) INCLUDE "D:ZM.ACT" INCLUDE "D:PROC1.ACT";PROC TX(BYTE X,Y BYTE ARRAY T)BYTE Q1 CARD Q3,Q4 Q1=T(0)Q3=EKR+X+Y*40 Q4=PEEKC(@ T)MOVEBLOCK(Q3,Q4+1,Q1)[96];INCLUDE"D:MOVEZERO.ACT"PROC RMT(BYTE S)IF S=0 THEN ;INIT:;[$A2 0 $A0 $60 $A9 0 $20 $6600]ELSEIF S=1 THEN;PLAY;[$20 $6603]ELSEIF S=2 THEN;END;[$20 $6609]FI[96]PROC OPGR()P(40887)=16 P(40888)=16P(40895)=ZYC+16[96]PROC TIT()P(708)=40 P(709)=8 P(710)=15 P(712)=$02DL=$9000DOIF STRIG(0)=0 OR P($D01F)=6 THEN EXIT FIIF K=28 OR K=33 THEN K=255 EXIT FIP(77)=0ODP(708)=$C2 P(709)=$E6 P(710)=0 P(711)=$8F P(712)=0[96]PROC STA()ZYC=5 LEV=1 A=70 B=140 A9=0PU1=16 PU2=16 PU3=16 PU4=16 PU5=16L=4 M=15;PT1=0 PT2=0 PT3=0LE=40 TI=0LE1=0;ADR=$7000GT=100 GA=$2800RMT(0)[96]PROC SZY()ZYC==-1IF ZYC<10 THEN P(40895)=ZYC+16 FIA9=75AD1=$7C00 P1=1 C=5;!IF ZYC<>255 THEN AD2=$7C00+R P2=1 D=5ELSE;GAME OVER: AD2=$8600 P2=1 D=10 FOR Q1=0 TO 250 DO VSYNC() OD ZERO(Z-256,256*5) STA() FOR Q=0 TO 6 DO PRZ(Q)=0 PR1(Q)=8 PR2(Q)=0 PRX(Q)=250 PRY(Q)=30 OD FOR Q=0 TO 3 DO S(Q)=0 SX(Q)=0 SY(Q)=0 ODFI[96]PROC GRA()P(559)=0;P($D400)=0;FOR Q=0 TO 27 DO FY(Q)=Q*40 ODFOR Q=0 TO 35 DO P(40840+Q)=DIS(Q)OD;WG("D:DL.DAT",$9B72,40,4) WG("D:DU.DAT",DUA,$250,4);ZERO(EKR,1040) ZERO(40880,79)DU() WG("D:ZNAC64.FNT",FNT,$200,4) P(756)=$98;MOVEBLOCK(Z-255+80,DUA+98,150) PRZA(0)=DUA+355 PRZA(1)=DUA+394;39 PRZA(2)=DUA+433 PRZA(3)=DUA+472 PRZA(4)=DUA+511 PRZA(5)=DUA+550 ;PRZA(6)=DUA+143 PRZA(7)=DUA+200 PRZA(8)=DUA+249 PRZD(0)=DD(3) PRZD(1)=DD(2) PRZD(2)=DD(1) PRZD(3)=DD(3) PRZD(4)=DD(2) PRK(0)=$18 PRK(1)=$86 PRK(2)=$EA PRK(3)=$B8 PRK(4)=$16 PRK(5)=$24 PRK(6)=0 PRK(7)=$FA PRK(8)=$26 PRK(9)=$24 FOR Q=0 TO 6 DO PRZ(Q)=0 PR1(Q)=8 PR2(Q)=0 PRX(Q)=250 PRY(Q)=30 OD FOR Q=0 TO 3 DO S(Q)=0 SX(Q)=0 SY(Q)=0 ODSETBLOCK($8100,$F00,16) WG("D:TAKI1.DGT",$8600,$1000,4) WG("D:TAKI4.DGT",$8100,$500,4) WG("D:MAD1.DGT",$7C00,$500,4) WG("D:REKL2.DGT",$7700,$500,4);WG("D:ANI.DAT",$7000,$131F,4);WG("D:MUZ.DAT",$6000,$9DF,4);WG("D:TITLE.DL",$986C,130,4);IF P($A060)#131 THEN; WG("D:TITLE.MIC",$A060,$C08,4)FI;TIT() DL=40840P(710)=0P(711)=$28AD1=$8600 AD2=$8600P1=0 P2=0C=0 D=0;A=80 B=120B1=0 E1=0 T=0PRZ9=0STA()OPGR()P(559)=62;WHILE K#28DOIF A9>0 THEN A9==-1 P(704)=A9ELSE P(704)=12FIT==+1 IF T=10 THEN T=0 B1==+11 IF B1>37 THEN B1=0 FIFI;GRACZ:;GG=$08 HMOV();GG=$19 MOVEBLOCK(Z+B,DUA+98+B1,12)D1=A AD1==+P1 S1=P(AD1) AD2==+P2 S2=P(AD2);GG=0;PU1==+1 PU() IF STRIG(0)=0 AND E1=0 THEN E1=1 E=A+5 F=B+5 IF A9=0 THEN AD1=$7C00 P1=1 C=5 FI QQ=DD(4)+F P(QQ)=P(QQ)%3;P(QQ)=255FIIF E1=1 THEN E==+7 P(53252)=E IF E>209 THEN E1=0 QQ=DD(4)+F P(QQ)=P(QQ)&252 FIFIIF S(0)=1 THEN P(53253)=SX(0) SX(0)==-2 IF SX(0)<30 THEN S(0)=0 QQ=DD(4)+SY(0) P(QQ)=P(QQ)&243 FIFI;PRZECIWNICY:;GG=$28PRZ9==+1 IF PRZ9>4 THEN PRZ9=0 FIIF PRZ9<3 THEN P(707-PRZ9)=PRC(PRZ9)FIIF PR1(PRZ9)<>8 THEN IF PR1(PRZ9)=7 THEN PR2(PRZ9)==+12 IF PR2(PRZ9)>50 THEN ;KAS: IF PR2(PRZ9)=24 THEN PRC(2)=$22; IF PRZ9<3 THEN P(707-PRZ9)=PRC(PRZ9)FI FI PR2(PRZ9)=0 PRZ(PRZ9)=0 PRX(PRZ9)=255 PR1(PRZ9)=8 FI ELSE PR2(PRZ9)==+13 IF PR2(PRZ9)>30 THEN PR2(PRZ9)=0 FI FIFIIF PR1(PRZ9)<8 THENIF PRZ9<>2 THEN IF PR4(PRZ9)>0 THEN PR4(PRZ9)==-1 ELSE Q=P(PRA(PRZ9)) PRA(PRZ9)==+1 PR4(PRZ9)=(Q&7)+3 Q=P(PRA(PRZ9)) PRA(PRZ9)==+1 PR5(PRZ9)=(Q&7) FI Q=PR5(PRZ9) IF PRZ9<2 AND PR1(PRZ9)<7 THEN;STRZELA: IF S(0)=0 AND PRS(PRZ9)=1 AND PRX(PRZ9)>55THEN IF P(PRA(PRZ9))<70 THEN PRA(PRZ9)==+1 S(0)=1 SX(0)=PRX(PRZ9)-8 SY(0)=PRY(PRZ9)+5 QQ=DD(4)+SY(0) P(QQ)=P(QQ)%12 AD2=$7700 P2=1 D=5 FI FI IF Q=1 THEN IF PRY(PRZ9)>60 THEN PRY(PRZ9)==-2 ELSE PR5(PRZ9)=4 FI FI IF Q=2 THEN IF PRY(PRZ9)>60 THEN PRY(PRZ9)==-1 ELSE PR5(PRZ9)=3 FI FI IF Q=3 THEN IF PRY(PRZ9)<129 THEN PRY(PRZ9)==+1;129 ELSE PR5(PRZ9)=2 FI FI IF Q=4 THEN IF PRY(PRZ9)<129 THEN PRY(PRZ9)==+2;129 ELSE PR5(PRZ9)=1 FI FI FI IF PRZ9>2;THEN AND PR1(PRZ9)<7 THEN;STRZELA: IF S(0)=0 AND PRS(PRZ9)=1AND PRX(PRZ9)>55 THEN IF P(PRA(PRZ9))<70 THEN PRA(MODULE; DIGITALIZACJE; TESTOWANIE I KONWERTOWANIE;INCLUDE "D:RT_MIR2.ACT"BYTE S1=$D201,S2=$D203 ,A=$AF,B=$AE,P1=$A9,P2=$A8,C=$A7,D=$A6 ,D4A=$D40ACARD X,AD1=$AC,AD2=$AABYTE Q,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,ZYC,LEV,PU1=40526,PU2=40525,PU3=40524,PU4=40523,PU5=40522,K=764,JO1=$278,R=$D20A,GG=53274,NMI=$D403,PORTB=$D301,L,M,LE,LE1,PT1,PX1,PY1,PS1,PT2,PX2,PY2,PS2,PT3,PX3,PY3,PS3,PA1,PA2,PA3CARD QQ,QQ1,DL=560,ADR,TI,FNT=[$9000],ANI=[$9400],Z,EKR=[40000],DUA=[$8320]BYTE ARRAYP=0CARD ARRAY FY(28),DD(7);BYTE ARRAY DLIBIN=[72 173 254 6 77 255 6 141 254 6 234 141 9 212 104 64];ORYGINALBYTE ARRAY DLIBIN=[72 173 254 6 77 255 6 141 254 6 234 234 141 9 212 104 64];INCLUDE"D:MOVEZERO.ACT"PROC WG(CHAR ARRAY TX CARD G,I BYTE A)CLOSE(2)OPEN(2,TX,A,128)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)RETURNPROC VSYNC()[173 $D40B 201 0 208 249][96]PROC GRA();P(559)=0;P($D400)=0FOR Q=0 TO 27 DO FY(Q)=Q*40 OD;WG("D:ANIM.FNT",ANI,$400,4);WG("D:DL.DAT",$9B72,40,4);GRAPHICS(0) P(756)=$90;P(709)=12 P(710)=0 P(712)=0ZERO(EKR,1040);WG("D:F.FNT",$9000,$400,4);WG("D:F2.FNT",$9400,$400,4);WG("D:DU.DAT",DUA,$200,4);MOVEBLOCK(Z-255+80,DUA+98,150)WHILE K#28DO[173 $D40B 201 0 208 249];VSYNC()P(53278)=1;GG=$08;HMOV();GG=$19;WHILE K#33 DO OD K=255P(77)=0ODK=42ZERO(53256,5) GRAPHICS(0)[96]PROC PLAY();FOR X=$4000 TO $9000 DO;A=PEEK(X) S2=A OR $10 ;D3=A +$60 ;D3=A +$60 FOR AD1=$4000 TO $9000 DO A=P(AD1) S1=A OR $10 D4A=1;IF CON<>7 THEN EXIT FIOD[96]PROC CONVERT() QQ=$9000 FOR X=$5000 TO $5000+1250 STEP 1 DO P(QQ)=P(X) QQ==+1 OD;WG("D:PER3.DGT",$9000,$4E2,8)[96]PROC TEST();PROCEDURY 2 KANALOW:BYTE ARRAY DIS=[112 112 112 66 64 156112 112 112 112 112 112 112 112 112 112112 112 112 112 112 112 112 112 112 112112 112 112 112 65 0 0]FOR X=0 TO 50 DO P(40700+X)=DIS(X) ODDL=40700AD1=$5000 AD2=$4010P1=1 P2=1C=3 D=3DO IF STRIG(0)=0 THEN AD1=$8000 P1=1 C=5 FI;IF STRIG(0)=0 THEN AD1=$7500 P1=5 C=5 FI;IF STICK(0)=7 THEN AD2=$6000 P2=2 D=25 FI IF STICK(0)=7 THEN AD2=$5000 P2=1 D= 5 FI IF C>0 THEN C==-1 ELSE P1=0 FI IF D>0 THEN D==-1 ELSE P2=0 FI [173 $D40B 201 28 208 249] D4A=1;[234][234][234][234][234][234][234][234] GG=8FOR Q=0 TO 250 DO;D4A=1 AD1==+P1 S1=P(AD1);OR $10;GG=4 AD2==+P2 S2=P(AD2);OR $10;GG=0ODGG=14D4A=1 GG=0ODGRAPHICS(0)[96]PROC MAIN();WG("D:SZCZEK.DGT",$4000,$5000,4);WG("D:LAS.DGT",$4000,$5000,4) WG("D2:PERK*.DAT",$4000,$5000,4) FOR AD1=$4000 TO $9000 DO P(AD1)=P(AD1) OR $10 GG=AD1 OD;WG("D: .DGT",$8A00,$4E2,8);CONVERT() TEST()AD1=$4000 AD2=$4010 X=$4001P1=1 P2=1WHILE K#28DO [173 $D40B 201 8 208 249] D4A=1 D4A=1GG=8 AD1==+1 S1=P(AD1);OR $10 GG=4 AD2==+1 S2=P(AD2);OR $10GG=0 D4A=1;[234][234][234][234][234][234][234][234]GG=8 AD1==+P1 S1=P(AD1);OR $10GG=4 AD2==+P2 S2=P(AD2);OR $10GG=0;D4A=1 D4A=1;GG=14 X==+1 Q=PEEK(X) S2=Q OR $10 GG=0;PLAY()ODK=42[96]=     yt0sWxWwxvRtT5VWST2RwwٖR35wU304YܼvT0tW}۹uTTUSUVwx۽ݺxuU4TU5TUVw56xwwwwwwwwwwwwxwwz34ڸ5xRSp8x}v44S0{{$ݛ34tvy؛ؗuXwP2wݾWsP3ZڻwuxtvVvTUrWݼ؛[VsyyvV}STTSTp{޼3xܻڻ67Tt20306V{ܻxzyvtu{ڽܻwsT145wwݽؕvWvu0WۻwvTS}06wܚwvT9$yܛuuUT224Xܾܺuvy1VxܺVuSTR0VxyܼݺܙwVwVUxTwxUvWx}|uzۗzڼxVwu:sVWsws6wwy۴78~wSu{VxwVXWUwvWWUYwyxwv140 THEN PRY(PRZ9)==-2 ELSE PR5(PRZ9)=4 FI FI IF Q=2 THEN IF PRY(PRZ9)>140 THEN PRY(PRZ9)==-1 ELSE PR5(PRZ9)=3 FI FI IF Q=3 THEN IF PRY(PRZ9)<216 THEN PRY(PRZ9)==+1;216 ELSE PR5(PRZ9)=2 FI FI IF Q=4 THEN IF PRY(PRZ9)<216 THEN PRY(PRZ9)==+2;216 ELSE PR5(PRZ9)=1 FI FI FIFIFIIF PRX(PRZ9)<30 THEN PRZ(PRZ9)=0 PR1(PRZ9)=8 PR2:BJXVTR& A P P 0+2(PRZ9)=0 FIIF PRZ9<>2 THEN IF PR1(PRZ9)=7 THEN Q=11 ELSE Q=12 FIMOVEBLOCK(PRZD(PRZ9)+PRY(PRZ9),PRZA(PR1(PRZ9))+PR2(PRZ9),Q)ELSE;PRZEC 3: IF PR4(2)>0 THEN PR4(2)==-1 ELSE Q=P(PRA(2)) PRA(2)==+1 PR4(2)=(Q&15)+3 Q=P(PRA(2)) PRA(2)==+1 PR5(2)=(Q&7) FI Q=PR5(2) IF PR1(PRZ9)<7 THEN;STRZELA: IF S(0)=0 AND PRS(PRZ9)=1AND PRX(PRZ9)>55 THEN IF P(PRA(PRZ9))<70 THEN PRA(PRZ9)==+1 S(0)=1 SX(0)=PRX(PRZ9)-8 SY(0)=PRY(PRZ9)+5 QQ=DD(4)+SY(0) P(QQ)=P(QQ)%12 AD2=$7700 P2=1 D=5 FI FI IF Q=1 THEN IF PRY(2)>60 THEN PRY(2)==-2 ELSE PR5(2)=4 FI FI IF Q=2 THEN IF PRY(2)>60 THEN PRY(2)==-1 ELSE PR5(2)=3 FI FI IF Q=3 THEN IF PRY(2)<216 THEN PRY(2)==+1 ELSE PR5(2)=2 FI FI IF Q=4 THEN IF PRY(2)<216 THEN PRY(2)==+2 ELSE PR5(2)=1 FI FI FI;GG=$2D IF PR1(PRZ9)=7 THEN Q=11 ELSE Q=12 FIMOVEBLOCK(PRZD(2)+PRY(2),PRZA(PR1(2))+PR2(2),Q);GG=0FIFOR Q=0 TO 4 DO IF PRZ(Q)>1 THEN PRZ(Q)==-1 FI IF PRZ(Q)=1 THEN PRX(Q)==-PRS(Q) IF Q<3 THEN; P(53251-Q)=PRX(Q) FI; Q=0 D4=PRX(Q)FI; 1 D3=PRX(Q)FI; 2 D2=PRX(Q)FI FIODD4=PRX(0)D3=PRX(1)D2=PRX(2);D4=180;MOVEBLOCK(DD(3)+80,PRZA(0),10);GG=$0;P(40895)=E1;GENERAT:;GG=$FFIF GT>0 THEN GT==-1ELSE;GT=90+80 GT=145+80FIIF GT<80 THEN IF GT=79 THEN Q=P(GA)GA==+1 G1=(Q&3) IF G1>2 THEN G1==-1 FI ;G1=2 GI=255 Q=P(GA)GA==+1 GX=220 IF Q<60 THEN G2=0 ELSE G2=1 FI IF G1>0 THEN Q=P(GA)GA==+1 GS=1+(Q&1) G3=88 FI IF G1>1 THEN Q=P(GA)GA==+1 G3=60+(Q&63) GS=2 Q=P(GA)GA==+1 IF Q<128 THEN G2=1 GA1=GA GA==+15 FI FI FI IF GT<78 THEN GI==+1 IF GI>4 THEN GI=0 IF G1<2 THEN GT=1 G1=9 FI; IF (G1=2 OR G1=4) AND GI>2 THEN GI=0; GT=1 G1=9 FI FIQ1=GI;FOR Q1=0 TO 4 DOIF G1=0 THEN;LOSOWO IF PRZ(Q1)=0 THEN PRA(Q1)=GA Q=P(GA)GA==+1 PRZ(Q1)=1+(Q&63) Q=P(GA)GA==+1;Q2=(GA)GA==+1 ;PR1(Q1)=0;PR1(Q1)=(Q&3)+(Q2&3) IF Q>5 THEN Q=(Q&3)+2 FI PR1(Q1)=Q PR2(Q1)=0 PRX(Q1)=GX Q=P(GA)GA==+1 Q2=P(GA)GA==+1 PRY(Q1)=60+(Q&127)+(Q2&31) IF Q1<2 THEN PRY(Q1)=60+(Q&31)+(Q2&15)FI IF Q1>2 THEN PRY(Q1)=140+(Q&31)+(Q2&15)FI Q=P(GA)GA==+1 PRS(Q1)=1+(Q&1) IF PR1(Q1)>3 THEN PRS(Q1)==+1 FI Q2=PR1(Q1)PRC(Q1)=PRK(Q2);PRC(Q1)=PRK(PR1(Q1)) Q=P(GA)GA==+1 PR4(Q1)=Q&63 IF G2=0 THEN PR4(Q1)=250 FI Q=P(GA)GA==+1 PR5(Q1)=4+(Q&3) IF Q1<2 THEN PR5(Q1)=Q&7 FI IF Q1>3 THEN PR5(Q1)=Q&7 FI;PRA(Q1)=GA GA==+15 ELSE GA==+(7+15) FIFIIF G1=1 THEN;PION IF PRZ(Q1)=0 THEN PRA(Q1)=GA PRZ(Q1)=1 PR1(Q1)=GS-1 PR2(Q1)=0 PRX(Q1)=GX GX==-GS PRY(Q1)=G3 G3==+25 PRS(Q1)=GS IF PR1(Q1)>3 THEN PRS(Q1)==+1 FI Q2=PR1(Q1)PRC(Q1)=PRK(Q2);PRC(Q1)=PRK(PR1(Q1)) PR4(Q1)=250 PR5(Q1)=0 FIFIIF G1=2 AND GI<3 THEN;1>2 IF PRZ(Q1)=0 THEN PRA(Q1)=GA PRZ(Q1)=1 PR1(Q1)=G1 PR2(Q1)=0 PRX(Q1)=GX IF GX>30 THEN GX==+17 FI PRY(Q1)=G3 PRS(Q1)=GS IF PR1(Q1)>3 THEN PRS(Q1)==+1 FI Q2=PR1(Q1)PRC(Q1)=PRK(Q2);PRC(Q1)=PRK(PR1(Q1))IF G2=1 THEN PR4(Q1)=4+Q1+Q1 PR5(Q1)=0 PRA(Q1)=GA1ELSE PR4(Q1)=250 PR5(Q1)=0 FIFI;PRA(Q1)=GA;GA==+15IF G1=3 THEN;1>2 IF PRZ(Q1)=0 THEN PRA(Q1)=GA ELSE GA==+0 FIFIIF G1=4 THEN;1>2 IF PRZ(Q1)=0 THEN PRA(Q1)=GA ELSE GA==+0 FIFIIF G1=5 THEN;1>2 IF PRZ(Q1)=0 THEN PRA(Q1)=GA ELSE GA==+0 FIFIFI;OD IF GA>$4F00 THEN GA=$2800 FI;GT=150 FI FI;GG=0;PROCEDURY Z POCZATKU KODU; PLIK PROC1.ACTPROC WG(CHAR ARRAY TX CARD G,I BYTE A)CLOSE(2)OPEN(2,TX,A,128)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)RETURNPROC DU()P(54279)=$90 P(532= 77)=3;P(559)=62 P(623)=17;P(704)=14 P(705)=$0F P(706)=$0F P(707)=$16 Z=$90*256+1024 ZERO(53256,5)ZERO(Z-256,256*5)P(53260)=255DD(0)=Z DD(1)=Z+256 DD(2)=Z+512 DD(3)=Z+768 DD(4)=Z-256[96]PROC HMOV()Q=0 Q1=0IF JO1=14 THEN Q=2 FIIF JO1=10 THEN= Q=2 FIIF JO1=6 THEN Q=2 FIIF JO1=13 THEN Q=1 FIIF JO1=9 THEN Q=1 FIIF JO1=5 THEN Q=1 FIIF JO1=7 THEN Q1=4 FIIF JO1=6 THEN Q1=4 FIIF JO1=5 THEN Q1=4 FIIF JO1=11 THEN Q1=3 FIIF JO1=10 THEN Q1=3 FIIF JO1=9 THEN Q1=3 FIIF Q=1 AND B<216 THEN = B==+3 FIIF Q=2 AND B>60 THEN B==-3 FIIF Q1=3 AND A>48 THEN A==-2 FIIF Q1=4 AND A<160 THEN A==+2 FI;P(53252)=A+6 P(53253)=A+4 P(53254)=A+2 P(53255)=A+0[96]PROC PU()IF PU1>25 THEN PU2==+1 PU1==-10 FIIF PU2>25 THEN PU3==+1 PU2==-10 FIIF PU3>25 T=ffffffff>`<|bf 0fFf<00`0~~p  p25 THEN IF PU5<25 THEN PU5==+1 FI PU4==-10 FI[96]PROC VSYNC() IF C>0 THEN C==-1 ELSE P1=0 FI IF D>0 THEN D==-1 ELSE P2=0 FI[173 $D40B 201 26 208 249] D4A=1;[234];GG=2;FOR Q=0 TO 215 DO;D4A=1FOR Q=0 TO 71 DO;D4=A=1 AD1==+P1 S1=P(AD1);OR $10 AD2==+P2 S2=P(AD2);OR $10OD;GG=14D3=PRX(4) D4=PRX(3) P(53268)=PRC(4)P(53269)=PRC(3);P(53268)=$FF P(53269)=$FF ;GG=2D4A=1FOR Q=0 TO 150 DO;D4A=1 AD1==+P1 S1=P(AD1) AD2==+P2 S2=P(AD2)OD;GG=14 D4A=1 GG=0[96]=PROC SPLW(BYTE Q5)IF C>0 THEN Q6=2 FIIF D>0 THEN Q6=1 FIIF Q5=0 THEN IF Q6=1 THEN AD1=$8100 P1=1 C=5 ELSE AD2=$8100 P2=1 D=5 FIFIIF Q5=1 THEN IF Q6=1 THEN AD1=$8600 P1=1 C=5 ELSE AD2=$8600 P2=1 D=5 FIFIIF Q5=2 THEN IF Q6=1 THEN AD1=$8B0=;ZMIENNE - ZM.ACT;SAMPLE:BYTE S1=$D201,S2=$D203;,A=$AF,B=$AE ,P1=$A9,P2=$A8,C=$A7,D=$A6 ,D4A=$D40A,D1=53248,D2=53249,D3=53250,D4=53251,PU1=40886,PU2=40885,PU3=40884,PU4=40883,PU5=40882,ZYC,LEV,K=764,JO1=$278,R=$D20A,GG=53274,NMI=$D403,PORTB9=$D301,L,M,LE,LE1BYTE ARRAY P=0,PRZ(7),PR1(7),PR2(7),PRX(7),PRY(7),PRS(7),PRC(7),PR4(7),PR5(7),PRK(10)CARD ARRAY ;FY(28),DD(7),PRZA(9),PRZD(5),PRA(7)CARD AD1=$CA,AD2=$CCBYTE ARRAY DIS=[112 112 112 66 176 159 65 0 0];112 112 112 112 112 112 1192 112 112 112;112 112 112 112 112 112 112 112 112 112;112 112 112 112 65 0 0]CARD QQ,QQ1,DL=560,ADR,TI,FNT=[$9800];,ANI=[$9400],EKR=[40000],DUA=[$8F9F],Z,GA,GA1,AD2=$CCBYTE ARRAY DIS=[112 112 112 66 176 159 65 0 0];112 112 112 112 112 112 1180 P1=1 C=5 ELSE AD2=$8B00 P2=1 D=5 FIFIIF Q5=3 THEN IF Q6=1 THEN AD1=$8600 P1=2 C=5 ELSE AD2=$8600 P2=2 D=5 FIFIIF Q5=4 THEN IF Q6=1 THEN AD1=$8100 P1=1 C=5 ELSE AD2=$8100 P2=1 D=5 FIFIIF Q5=5 THEN IF Q6=1 THEN AD1=$8100 P1=1 C=5 ELSE AD= ;IF STRIG(0)=0 THEN AD1=$8600 P1=1 C=10 FI ;IF STRIG(0)=0 THEN AD1=$7C00 P1=1 C=5 FI; IF STICK(0)=7 THEN AD2=$8100 P2=1 D= 5 FIVSYNC();KOL:QQ=DD(4)+FIF (P(53256)&2)=2 THEN ;TRAFIENIE 2 DUSZKA PRZEZ GRACZA IF PRZ(2)=1 AND PR1(2)<7 THEN SPLW(PR1(2)) PRZ(2)=255 PR1(2)=7 PR2(2)=0 PRC(2)=PRK(7) PU1==+1+PR1(2);P(705)=PRC(2) P(QQ)=P(QQ)&252 E1=0FI FIIF (P(53256)&4)=4 THEN IF F<140 THEN Q=1 ELSE Q=4 FI IF PRZ(Q)=1 AND PR1(Q)<7 THEN SPLW(PR1(Q)) PRZ(Q)=255 PR1(Q)=7 PR2(Q)=0 PRC(Q)=PRK(7) PU1==+1+PR1(Q);IF Q<3 THEN P(707-Q)=PRC(Q)FI P(QQ)=P(QQ)&252 E1=0 FI FIIF (P(53256)&8)=8 THEN IF F<140 THEN Q=0 ELSE Q=3 FI IF PRZ(Q)=1 AND PR1(Q)<7 THEN SPLW(PR1(Q)) PRZ(Q)=255 PR1(Q)=7 PR2(Q)=0 PRC(Q)=PRK(7) PU1==+1+PR1(Q);IF Q<3 THEN P(707-Q)=PRC(Q)FI P(QQ)=P(QQ)&252 E1=0 FI FIIF A9=0 THENIF P(53260)>1 THEN SZY();ZYC==-1FIQ=0IF (P(53257)&1)=1 THEN Q=1 FIIF (P(53258)&1)=1 THEN Q=2 FIIF (P(53259)&1)=1 THEN Q=3 FIIF Q=1 THEN SZY();ZYC==-1 S(Q-1)=0 QQ=DD(4)+SY(Q-1) P(QQ)=P(QQ)&243FIFIP(53278)=1;WHILE K#33 DO OD K=255P(77)=0OD;K=42ZERO(53256,5)ZERO(53248,8)RMT(2);GRAPHICS(0)[96]1 FIIF (P(53258)&1)=1 THEN Q=2 FIIF (P(53259)&1)=1 THEN Q=3 FIIF Q=1 THEN SZY();ZYC==-1 S(Q-1)=0 QQ=DD(4)+SY(Q-12=$8100 P2=1 D=5 FIFI[96]1 D=5 FIFIIF Q5=3 THEN IF Q6=1 THEN AD1=$8600 P1=2 C=5 ELSE AD2=$8600 P2=2 D=5 FIFIIF Q5=4 THEN IF Q6=1 THEN AD1=$8100 P1=1 C=5 ELSE AD2=$8100 P2=1 D=5 FIFIIF Q5=5 THEN IF Q6=1 THEN AD1=$8100 P1=1 C=5 ELSE AD<'yN8冨凪`ʆ ee` 'E…¥ '` :'ʆ &e ' 'L'` :''&&&8儨児祂*&&*ń8&&8儨兪` 'A` Fj` &`hihiHHȱȱl `p B V8l T( Vhhlh(HHJJJJhh`hhlh( `iDiE`Hhj(`Hh`Hh`Hh` ( (JKB k(JJJJ` ( BA k(`ƥĤ`ƣĢ`PLAYLS) (L)O)N)M)L) ')`% ҩҥ)) ҥ`` )ȥ`ȱ`)`))P(40887)=16 P(40)P(40895)=ZYC+16A!) * "OC )*'P(=4009)(71 5 P(71NNN zNpppBAZ*DO_*o@*(IF STRIG(0)=0 ORL* (* (*** (*IL*b )L* b )**d )**h ) V䅣 (`L*A")i*iԅ)i*iЅ)io*i ^'is*it*Щ P)8s*t* ^' P))i *iЅJ*K*t*ȑs* mJ**(mK*s*it*iȑ mJ**(mK*A#s*it*iȑ mJ**(mK*s*it*iȑ mJ**(mK*8s*t*ȑ`L\,))xILs,)xI L,)xIL,)xI L,)xI L,)xIL,)xIL,)xIL,)xIL,)xI A$L,)xI L -)xI L-))IL5-)ؐL5-)i))ILR-<)LR-8)))ILo-0)Lo-8)))IL-)ɠL-)i)`L-ͶL-8 ͵L-8 ʹL-8 ͳL-L-8A% `L-ŧL .8L .ŦL .8L$.  Ԉ)G)L.eʥi)eʅ*e˅e̥i)e̅*eͅ)L4.*Э*)i*iЅ/*)i*iЅ.*Ȍ Ԉ))L/eʥi)eʅ*eA&e̥i)e̅*eͅ)L.`9L//ŧL0/)ŦL>/)/Ls/)ILc/˩ʠLs/̠ͩ/IL/)IL/˩ʠL/̠ͩ/IL/)IL/˩ʠL/̠ͩ/IA'L0)IL0˩ʩL0̩ͩ/ILO0)IL?0˩ʠLO0̠ͩ/IL0)ILv0˩ʠL0̠ͩ`3L000L0L00IL0L00IL0`L0)i*i)i*i)iA(*i)i`L0)ią*i()iŅ*i)iƅ*i)iȅ*i10 ))i*iЅILu1L1I I!L1L1)iM*iLO1)ią*i )iŅ*i摮)iƅ*iA))iDž*i)iȅ*i`L 2))F)))))()l*k*)d)(x*w* 0`Ll28))) L2)i*i)iK)|˩ʠ)IL2m ̩҅|ḯL3ͩ̄ A*))L2 -)L28s*t* ^' P) 2))L`3)*)*)*)*)*)L(3))L3)))))))Le3`L3)i/*i)#)L3m)i)e*ec*m)dA+*i)L3L3D:DU.DATr*Pq*3 *O P) *L34 D:ZNAC64.FNTn*m*4& *)i􅮭*iN*O*q*icr*iȑ mN**(mO*q*ir*iȑ mN**(mO*q*ir*iȑ mA,N**(mO*q*i؅r*iȑ mN**(mO*q*ir*iȑ mN**(mO*q*i&r*iȑ mN**(mO*q*iȅr*iȑ mN**(mO*q*ir*iȑR*S* mJ**(mK*ȱ mR**(mS*A- mJ**(mK*ȱ mR**(mS* mJ**(mK*ȱ mR**(mS* mJ**(mK*ȱ mR**(mS* mJ**(mK*ȱ@*A*B*C*D*$E*F*G*&H*$I*))L6)*)*A.)*)*)*)L6))L7)))))))L6 ')L;7 D:TAKI1.DGT7/ *Lc7 D:TAKI4.DGT7W *L7 D:MAD1.DGT|7 *L7 D:REKL2.DGTw7 *1A/0)iƅ*i)iDž*i(˩ʩͩ̄)))) 2 0)i/*i>)Lh88)))i*i)L}8)i*i ))I L8))i )%)L8) Y,s*m)t*iq*ibr*imA0)i ))eʥi)eʅ*e˅e̥i)e̅*eͅ - )L9)L9))i))i))Lt9|˩ʄ mJ**(mK*m)e*ȱif*)me**mf*)me**mf* )IA1LF:)i))i*iЅ))LF:) mJ**(mK*m)e*ȱif*)me**mf*)me**mf*))IL:)i*iЅ)8)))L:) mJ**(mK*m)e*ȱif*)me**mf*)me**mf*A2)))L:))L;8))e*e)+*)*IL;)*ILy;)*i )*2)*Lv;)*ILV;"-*)*)*)*)*L;)*i )*)*L;)*)*L%@)IL%@)2*L;8A3)2*)2*L<) mV**(mW*)q*q)) mV**(mW*iȱi))i)2*) mV**(mW*)q*q)) mV**(mW*iȱi)))9*)9*))La>)*La>)L=)A4$*IL=7)*L=) mV**(mW*)q*qFL=) mV**(mW*iȱi)8)*))*i) mJ**(mK*m)e*ȱif*)me**mf*)me**mf* wͩȄ)IL=<)*L=A58)*)*L=)9*)IL><)*L>8)*)*L>)9*)IL0>)*ɁL(>)*L0>)9*)ILa>)*ɁLY>)*i)*La>)9*)L%@)*L%@)Lj?)$*ILj?7)*Lj?) mV**(mW*)qA6*qFLj?) mV**(mW*iȱi)8)*))*i) mJ**(mK*m)e*ȱif*)me**mf*)me**mf* wͩȄ)IL?)*L?8)*)*L?)9*)IL?)*L?8)A7*)*L?)9*)IL?)*ؐL?)*L?)9*)IL%@)*ؐL@)*i)*L%@)9*)*LJ@)*)*)*)IL@)*ILi@ )Ln@ )) mR**(mS*)}*ȱi)* mN**(mO*)A8}*ȱi) )LC4*L@84*4*LA mV**(mW*)q*q) mV**(mW*iȱi))i4* mV**(mW*)q*q) mV**(mW*iȱi));*;*))*A9L5C)LB)$*ILB7)*LB) mV**(mW*)q*qFLB) mV**(mW*iȱi)8)*))*i) mJ**(mK*m)e*ȱif*)me**mf*)me**mf* wͩȄ)IA:LB<*LB8**LB;*)ILB<*LB8**LB;*)ILC*ؐL C*LC;*)IL5C*ؐL0C*i*L5C;*)*ILJC )LOC ) mR**(mS*m*ȱi * mN**(mO*m*ȱi) )A;))LD)*LC8)*)*)*ILC8)*)$*)*)LC)LC*Э*Э*Щ)L,D8))L1D))PLJ)IOLE)mw**mx*)w*x*))))LD8))))mw**mx*)w*x*܍A<))<LD)LDȌ))LD)mw**mx*)w*x*))e)X))LE)mw**mx*)w*x*))?)w*x*))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