,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 ZARfwxxVVUvwGTUeVDeV4RU4USSEUC4SD3ED4CTUUSEV3evEWhx˚ڬ̻ݻݼޮͻؚ̽yjG{Ufٿ3$fbiv:b W171|jR彩v߻W41cUޮU$2"0fUwr5gSx͚FTXUi3CSix[dΫʺ͛XEU1VV3!1"1"#c߽xVݻz#"CwwAevE2ewFSUVvެ5RgE#SUE!22"!ewgv̪UuxXx5"bDE#!C"!#S"#SevF#CUT%2fhgVdvVCSdugߪhghx߽hfiUeUuV61"B5!cVT#S!VD#333e5cg6BTvUhyVwfwXegW#cW5tgfTUU3ezhXܻ۽˼˻iΪʭ߻޻˽ͪxvEwxUXTGUD$6!3#3eU4!!222A3c&C15"SgSify۽˽ݬޫyvxfz۫ͪݾ{ܬ·ygwwWUEu5S4#B3UR61#2!!5!!ST$"2USxv#5eݫܪݻݚ۽뽛h݋܋VʋVͬ̽˭͚y޼훻vWvW3uyewv9uWgUXwvg3uWzyhvuV!uxXXSFTc'3S143c5e%BeUe55bvgɪYkxݫˊyxUji޻鿘뽻gꋇwgڛTjvfhUUfEwe3'R7FV51TV32143 %2"31425"S#RwDd8XEھھ޺WWUUXe73St41333TBWSE"3fUFajei{w۪xwٮ˺د9~xZkY:x9JIIeuf6{y׌Yylyݻy_݊V֮WvzSuZ[w2RTEgxzw˽ݘ離H7%hQRX1f!W5wkxyxI6EdhZZwhW2zcfSgɆXߗykYڈ튫ۇ[WHeXUVxeyhyhxy5[Vuux5#Sgfh4uTUwUyziyڽ۽ۼݭݽݻܛۛVxu%Xuy#eDeV54!"u4T1515!UC33E!#Cgf5zw޻콼ݽ߆|mcvZ{3zdgzsYtWffeYsfVgl3}u3E9uUxۋ؛ۼ蟇݋Yzy띷ͺxh[ǭ5VXUge{!tzyYɽi{x K}Uxfuch35V8U5Tu3Gw3CxsheuV7vX{y˻ڝΆe˛jzވYgXY3WfVUv4huvUU8R3ev$sd3V6vHTUX5WF{ݨߚ܊ͬ˻͉|ۛ۩{fyVwuV442u!u"3CC2E#S!V!u53cgu6hgiɫڌmپڮٮߊvxz鮩xg݊gYSD3Z4uxSUUXthuUWVZtw{UZHxixwڝݪ{ިٯ뫩XݚkɭfzWXUUxVYy|wھ5ٿwjyWhw6Di3UfD$CUUX1Xw$U5X3U6eyFff"zzcݫEۛ齈ܪィڽɫϚ̛hUhˋgUȍUxUVXUTCffUuUgUZ5|ej5hyëڛXxڭɋ컊܉͛ɮ۫xޭ뚇yVXzuixs:UbCWx%uEUe62e42&T#%S32c5SBE#VWwފ߽ܺ뿫̻#˫틘싨ɉvgWfviWv3Ti5xFtYufhtUUvgfydVugugxVhwjVȋ˹̚ڮܺ{fzufeȫۼیzUGUfWefUx˪YvhdݲVmY6hiw֖{Sٶתgxy׶hCUVWug͝{ؘ$Zwijc5Uyq59XYxXzYgGؕw{Ryv'ii6TZixH[ueƎ{k{݉νݙݫz{φYhUŊS&SJG#sS5S5e%1dUSF31WgUsܦ۬TfR8jzWhHvcSh24VSUEGUU52aXggxcvg{˽ۼ%ۭݝ˺vGwYWHeeUuy˫ۼɪyVwgCu53u"13#!2B!!32D2"#ASW"V#fej۫߯˾ܚFAeCED!y#Wuxgvx٫ߚκܼ݉yww{u8ew5U%SGe#ViY14UVCVhVUV̬&ݙʫhx͗gwh5ewh޻ͼ˛yzEzCuU!UGSgWSvxC3eg5hE3iSWve3e#TCWSUXcfZeWuwWhʺۼ޽ۍ͛wy특͈vKhUWEeu6uU#SE32"!!#!34351S36Dhۈ'ݻڭ꽻̚gVVUUug5SuwwDVɜʧ̫WeUiUFfhSU5UETdwWehUUT4U6Eyۛxjٛ˻ʙxfډ9DvggΉܻ˽뜽|꛷wZew5x5XUuwjGgWxGVevuZsXSehdF(WuVwYw{ڻފɾދݖjezXhhuyxvyuiUevg4Ut&2w%16235C#32f34TRY2'sysyvw͙yʺۺݻgXwgv4UXD3eVUeU4TvUUefyxu˻XxxzfyFx4fugUvzgegwyU)VUWVyTUwXxxʻۉiݽ̛ܽ˫gzvWwxfiY{iۻHHUVfwww3jU335CYRhUUwWSgxejfyVz͈{jhywgWțzx5XwgUE#F1&1!x41cUTqwC*ˈݪhhޘگ]߉߶GxeqS3"'VhAZCW5c&cV5eSvg4jueJZeWhyTxi̪ڍewXeh4z#vv{S8vh82[W%FTgD~Se8ZVuVhߙxvX˪v튻wWU˚3W޹j̻Eٮ4h+VxVWUVT5SeR43C:qUUCx"eeSEuxg˭yhx효hWǼxgxXf3XZif3w6e6e3yeWeUGgDhdx%tgTg3{ͻ9XݽޭϺzݪhXʙhUXhhx7SuUWvwviRXbgwxvgWyVV6WeWʉʪTٻ,YwڋE3UUeGsEj2gYUwzehxVxvxxvZu7Sz̫ZHHuU{hezyڻ˻ݚ۬޻jx{5t6ESE4#c33fcDU3VhevVYtSeihyzvwۼݪݚꭉhe5eS6e43#T4ESWVcg6Uuw-WfwW8cTgWdxvyz쫽ݪۿ۽ݽݼx몫˪xu:6sygVGUSWw3gThEuWD:RZcYxwizzvڋwˈۼͺyۺf5yeVwVXcGwcwUU3iwUxgVUIyFVfwVSy33xUgeu۫xۭwvgxˬ.˻ު˼fVUvXSfU5U3fSU3u#vUWs57VixiwxyɚvǝvY5XefwcVU5ye3EwEye˚j{ۋz˪ifxfVywW3Eu7xWeVV$ugfUwhVj3fixwh؛/yۻީʚ{髻hjhuX3U5RUgSCe62e%2v#3ewDUeVD7XUUux5YuwWuxVuhۻݻ޽ڼܙʬۭ݊꾇ˬyYXGyfu3S525CSu̚ji7S˪%!1ihh(!A홻g3e&ܝ4ewWC55h0݊yye53ŭG5SyXv۬}73߿#U 1nß݈%B!uq07"1Se\͝D!!a1D1!sUߛyWu5vj2xt7 xD1!$!2U߼ݽ6T0UR! 2RzdUguܭݺEsCʼWA3X632hR#3USTewV2ݺܬ۾ݽ5E"SVuixU22#!QE5!32v1vxeW3!3##Cd컫{xgx6cyUhd41#S5CvD1BECdFUUU5B3"75vdXU3##13etwh34cWTDEduUguyVcV4vܻݫݫw۬ݻݽ˫ݺܫ뽉xxVuzUxDedW"S5!#b523U523V!vEewvf3UEfgHwy3ExHueyy{jxiɛyeWzXY߽ݽފ۽weg4hYexUE33T!e5!#"#52!C13SU344Tgx˫h۽틹˫˼ݬx﹪ݽʽ͘{ygxugVVX4AVU3CV3#3244213#217S323"8eeWwyWeuvigfVɊX5uheWWUfyDeXSW5u3vwfWhȋEzݼݻ˭۬ۻۚۙxgxUfVWcf5ueV%UT5uT4uEE32RfEAU!3S$3C$SW#326U"3TvCwxCV2X"SeuUUTgwyfۋ̺ܩܻ닺ghYux6VsuSTeUw553F3Uv3C4i'HfycwTWxuSVySuUevdحzH{FyΦkhEZuBc8W&UȹX۫W7uuTiuw7tUqIcjSߘiʪ˪̻ˋ˽ywVU52UXeVwcUucTuWgyTeUFwd54S33U#24uU3fUzgVfμ7۽̻ݻzVexFwxxiVVVeEWUUeXU޺߻ݫ˫κۭVxWUUf4UU4VTUUeUueg4CvU#uVffUEfVTugUuxvEewgxywyfUvxUxV5ugUUUguxgwxfwvwgfxwgvͻ߼ݽۊۭ8λܻiyWvxdxwEuEfwfTvg3UWfF2tWDUETESTTSx4SeVT4wUffFvwgwhͻzUUgwgfwEfgVgV3h3SUvVeͻݽ޼ݺڻܫzixwVU4fET5cg4BEeti6UWwXSFwT3uFfTySUvWSEei3VUyUy9gvx5twxxwxwUggvfxxUwUffWexͻ޼˽̬۫xigfhffhTfhxhvxvgUWTUUVUfV5SffgfUvVeUvfhwwܫۺz{xyVfVwevxUeVuhT%SFSE5CgUtxVewUwʪ:߻޻yvxgUVVUVUVSEuUfvwFSvegfvfgVvUwwjfefwfvxvvggxvYuxV{zyhhvvxxxWehxwvhxxgY̻̼ܻ̻gWxwwwWugguxvVexUxgvyhUU6uwfwWxUwhXVXwUVz;g٫xwzwUfx6SugUvgWufVvvwywګ˽˚͚˚x˙xyxgxvU3%#S8sxWeffw5dyUSxUxw|hy!U%vxxwxwxy{w˪iISvux݈WfwgwfZ8uD<7;-kZG:ZC3RDSU!1$TuxV2gwVyxVvEVuܪ޽޽yXtW4UUC3#233U5e534T#343ehxwxݻ̻xxuWevhxUwWuyexyܼ˻̫ۻfxwgfw5dggUSFTggwxfUUUVeEwgVUUfUeUffwfE˻۽޻?˼wwxVwgdxgexEuUxwUETUWEE!!SU#SUUvfݽܼ͚ݻۼh˫xxeVeUVTyUehd4T5RhUe5CETUg˪exVXvgwVgESVuvwxfvVgWUUEeWD޻̛ܽiegwUwewx@Uf5SUeVexeWeww˻zfhUwegxvVvVVUwxffVffUUvV4TE3D$3SUfvwgfʽܼͫ˽ݻ˻̫xvfUVUfUTE3eUUUUUDDTuwyESfvfgwwwvxfvxwgfVTU43STegUw4UTDfuUVWf43EdUUDDTefAͻ˭wywxfyxUgEUUxwxwygfveWTfDUvgUUwfvWegvwhuwXdfEe5egE33"C#S435"Svvݫ˻ͻ˫ۻ̻̻˼۫xgvVTfUfUUE3TfV4eESVTUDuxUvgTvVeWUeeVUffeV3V33UD4dWvswWcBgUESdT3SUSUgfwWfvܭݾͻ˛{GXzgguhTwxxwzhy{fVfWuhhVvgfv6%eWS&ufSeUiUTVuyxgSD4e%3S33cESTUeVv˻˻߬޽ݻۋxuxfxUUugUuWEugUTwxfwggETUUgwCygvgxewfXwXVVg43533TU4D3CCUE323433433SUexvﻻ˼yxxfwwgffxwwxxxvgUUuVUFSV333DU5UeVfUvUwifEUUTvVVUgwVffvwݼݽ̻ݻ˺zhwDxguUvfEUTUDuvwfeUvwgxwwgeTvWeVUUV4eF342UVVeVeU334"3D33SEDUffff˻ͻͻxwywxexhufwwgxexUhewgfxvwxwwwfvxeffwxvFufxvguwWUUETUeEvuxvwxfݽEͼݻݛxgxwEuE5SUe3EDUevVVuxwgf̼xheUWtWED4T433324333S433$13T4ETUEey˻޼hvxfwggwxxgwwgffwfwvhffWUvVeXUfUwESUUvFxwgwxxfFufweWuyx۽ݽݼxhvxgvwvFUeVUgUggVvgfVfvxwhvyyxxۻxxvwVfED34T4333S5"33C4C#32433DS4TVeܻݼ˪̼ͺ˫xwwwfwxGvwxwwxgffVWfgUfUUUUvfwxUwxyyxxwfwxxxewgwwUxfUUwgwxyxvUfwxfwxfxxxwxxfgy۫wgHUhu˛9exeTzwwzUdؚ{ſHWa+ɍS$6ga}%71Swڼ#2S뚪iSʋ1egV3#BHyeUi߻{f޽yy53xWTUUU1fvE!#RTf#1U3#S5!TxxwIwxͽޫXuWe4TU523"23TefWVv޽gVUUUUESD3!"""#"2#3SUwJ޼gwgeUDUUDUDTE43#"C3DU#"!3#333DdgwwgwͼxwwgxwgWUfUefvWUUD3333E33"""23323"3!233SUEUUUUefKxw˻ݽgvWUefvgUE43#2#!""2333E3TTfgwww˻̼ݼwheLxfUVEUESU33233#2333D33DUUDETUuVffUeUfugUUETUETUTvUfvxwfww̼ݼݼܼ̻ܫ˼۽ܼxwfUVUUUUU533#"2!"23#""23433333CDefVUvvwgVvgfvMw˼˻ͼ̻xxwxwwwwwwVVDUUUvxfUTDUDUUwwwxwyEUwwEeF33#SiEE4CU435SwjU޻YDSVuݼWSEuv͋W5WX˪X5TuWVS3TshUTVdښhV3N4u뻩yvEUUݽYVRRݪTF"33xyU2#XȘuf2QBߊ"!kjEx޽6"RݫISu۽j3GdX3#UE4Us51ehj4#R܉EUi3CUEUY"SU5uVSݼUfwxV4TuˊޚOޭݻͻgUEUfxW3SuhEvxUͫvfSTUuwwV532TeU3"Sfx53CUuv45Uewwffw۫yh˻fvxwfffwwgUefV52dw323SUewETewvwλͫͻܻͻݻPWE3UUUU4CE3SefU53333TUEUexgVuxwfxwwwwgxfwwwwffwwfVefUUUUfvͻݼgwvwx˼ݫ˫wgfgfVEDuffVD33SewwVE3SUvwgUEUeQxxxxvwwwwwwvgffwwwxgfuxfv̼̼xxfvwgfUUUD3C333433"33434UUVeUUUfvw˻̻wxwxwwwgUvwwvRfvwfvVexwxwgwxxx˻˫˻wxegUffUUUUVUeVTEeUUvfUwxwvfVUfwwxwwwgefwgUegevWwfwwxwwgfvwwxͻSxxxxxVfwwwxgffwwwxxwxxxwwwX3ޫ7j3:**D[%y!u~mչya(1kAY{s9X13ݹw1cؿ~Zd3kx]%BTV܌#DSk7"1RI꿘쬝fYލWݽUhWayWfhux{c؛޻x%!ezXCzݪU74UZAS˺Οx2|VtEf2UABR4yuZcS{u1cκxWX1adXBERZ3FuۻvfiE#"SfFxhugxUcUhWzdܼ̚F3Tgvexwxzf6bFWEsv{UTx5cvyiUww˻UvUݫywUEDeweuxyUUvVfewvݻwffgvwwxvxwwgEuxvwVwxxwwwwgwxxxxwxwwwwxgfwxwwxwxxwwWxwxwxxwwgvwwwxwxxxfwxxwwxwxwwwwwwwvxxwXgwxxwxwvwxwwxgvxwwwwwxxxwwwxxwYxwwwwgUvޛ63czEDvxVvw52uj#3cܫZ6#U{6#ewxX2Rݚ5Ai3#ch3R܋%s޺xxVTzV!QCU41SUVhve˼ݚX˼Xex52UX4eeWvfe6SZUwfVVuܼzhμVfeFCxwxwwW5yYg̽ۺxi#!3SgVuvV2ehh6Ug3#3E3ShUG2ۛVuXeܚfvX#1ݼgY5ݚevigݫyܽxVgF333U3UfxE#"2#"exEC4UUvxxfVUU[xfUUxU5#!3eyfffw޽w˻xw˻xwwݫhUUUyUUUUܼݼwwW4#3SUwWUEUVgV4efeUvg533exwwWU33Cvw̻ͼ̫wvwxW533T72TUUUfwwwVUDTe\WEDTUffUUDTUU4DDUUfxfUUv̻̫ͼͼwgfUUTUUUUUffVUDUUewwwfffffffwwgUUfffxfVUfffwfvwxww˻̼hvwwhUUffEETvܼwwwxVfe]wwxwwwxgffvgVuwwwgfUffwwwfVeETeVETUvgvVUeffv˻ݻͫxffvgwVEUUUfUUfUwfxwgfUwgwvwgUUUUUUUUvwxͼ˻wwwwvgUfUUUDUTDTUD43UUffVefwg^feVUUfUUETDUUUUefffwVfvxfww˻ͻͻ˻˫wwVeVUETECUfegfwͼ˼gwxwgfgffwgfvwgvwwvxFTvgffgfUUETffVUUffvwxUvW!u۽{B8!Z"s߽XTzDZSY3U5e[cޜ#Sxw˼_XTvݛ%2޽82d{DDݫ1e[c˛˛53Svw$3cy5TTx51U9azܽa;5%0yٮA1úQR[13Z2e!q^1{ctߜݿ}'UR517c5&Rj鬝dY`˺zVϹ٭yψɻi&4eRTy!S##S2EUwݜxUDT1!"125thh߽ۜܽܫxyVsfWS#!a!"!3S3CEeݻݫݫ˚ywwU5cfgVe3142#CU3"!343##1!!#312323C22uyffwvgvWewݫ߻ܫ4syWb#42v3SwV!!!3SVTU31#Tb24C3uVU2Stx6eG4CU3UE#w53uyXVܽxxUV3!3#23UEC4C#!#!313CTE!33CCDSgeX43"SfvxuVݭٽʛ˝޽۽ˬݼc۬xV̼xUۼʛgxVfxwVghUU51$23"C4C4"S3C4"""3""SU3CeW2eWuxuwwWw{ݻ͚ܽ˪ʫܻ̚ګλtwyUuzuhExgUUggdyugvhUv5TUVfUxVTxuwgUd3huyG3SUFEETxewgw5USfuuFUTVuwxxUfxwUxܺ˼̛̛̪ݼ̻ܫݛݽiwg5CUwXUugvWvETDVuhwTVu˚gwfxVey5efUgV3"RUV432"eUE3ETSg#egwTݚۚޫﻻeۺܬ˼xhUUUUufwwwvfVgyvWUCjIVzgzxgxYwWwWu8xZyxWUxgۈkܫu|ۚۻ۪əzYXܭe۪XU5UiXgiyvȈuyxVvx5vS#ecU5TxGuvz˪ˋvE5vTgXVDuVxvwwfhwh%5VVܛʛhUf޼ͺ˫̺xvfVxuwgVwWUCT1TdgV31TuwUefUTF4UuxfhwxvVEUCTUVVee̪̻ݻͻwVDfxxUw5CEUT5Uev5411UTT5TTfwxuggfwVgUVxghygweUUUgwyxʽ˽ݻxgxxugvUEeDffwwxvgUUwwwwvwwvwxfwwgfwvxwxgfwwxxvxgfwͼxwxfgwVefUffUfVUUUewvwWhUuwgvgvwwwgewwU44SUUD#23UfwwfVv̫˻̻˻ݻ޼̻xVUUeVeVUfwgweVU433efgE35DUeFUvWeUfUVeVwgefVvwwxvw˻˻˼ͫݻxwwgvffwgUUUUUUvxwwwiwVfffvxwwwgeffwgffvwwwfegUvgUfffvwvxwwwwxw˻˽̻VfwgvfffewgfxewwwvwgvxwwfVUDffUfVUUUUUew̼˼̼xxvxwgwgvVUfUUUETUUVUUjeVUUUeffffffffUUUUeUefUUUUegVfwwwwwwww̼˻̻̻̻wwxfUUUUUUfw̻xwwffVefffUUVUUUUUUUUUeUUUUUfffVUvwwVUefvxwgfvwwx˼kxwxwwgwwwxwwxwwhnvȵ4vxFȵ6:{g[;z[WVxZ[MhzỷwʇwkثڕiejYkvXyjefxXwEvkwbFxkں߫wwVUVueeIXwZ5gSVlghzxwWUVuwvhhdyzVݭzVxwܭj3͚$!eF53sCE4!5uy52:3̼43ݼZ2!3UݍwV\Qۼ9!Bޫ5!c߬%!2U#23Cw#!uFDR7"CݽhvݼzުݬޛVVivESܼy#mCU3ehW2uW#2eνyVuy%SwweU##"UE#2UxfE"23TX3S43e͉xݽ콉fz#3UV#!23y$"2CD33SwfwW423e̽63uwfV4"3TeWeUDUh5""2TEegf͚wェnݽW4Tew̻xwwxgfUUU43TgwwͼݼwV4DD3CEUUUevwvVfVUUUUUUUUffvgfwVUUfwgUUUEUUEDTUfwww̻ͻxwxxwwwwwwgVevgfwxwwwwwwfffUUUUUUUUUUTUE3333333#3CU433CoUUUevwݼwwwfffUUfgU4CUUTE43DUeUDUffxxwfvgvwVvwgVUewfUUUvwffffwxxwww̻xwwwfpUU4DUDDDCUUUfUevfvwwwwwwwxVevVUUevfUUETeffgewݻ̻wgUffvwffVeVETUUUfUD33C43333CTUUDDUeffvwwxݻwUexfEEEqUUE333UE43#33CUUevwfwgVewxxgVUvwfwwgffVUxfvxyxxںۻ˫ZUڹ$cVhܛ5q˛E11RˮKݙfuvUyUgTuWweSUU4Te3DuYESSTeWT{gwxhwrgu˜۽xwxwwuwEi1ݼXDDFU43Sh"3eX!2UUVUVfEDi#2x߽xx߬ެ73eWDuͼWTu$2˼i""SV33Ue51i#2SxVVVUu͊fewͫyE4T͛hUvsgVfxUDeݻE4TEUugvxVUݽxwxgwxw޽gUevwݽ̼ͫݛhVevffwwwVDTxfvxxޫh53TfvwxVEUUUE4""cxV433egU33TvfUUu̼W4CUͻxw޼gUuxwwwtxwwwWDTUwwgfeW4"3SewwwwxwwwgffwͫݼxwgEDTefVUDDUUUE3#2333333CDDDD43DDTUUUefvxwxݽY#Sݛ5"3uggwwxfewx5SufUvgUegffuxwgVUeffgfUD3D43TUEDDE33CDUefVUUfwfwwgvxwwwwfVefffffvvfwfffffefefVffUUUefwwwwx̼̻̼v̼wwwwgUUUUffVDCEE3C4334D43C4CUEDTUeUfvf˼̻xwwwwwwwvgwvwgfVUUUUUUffffU4SUefUTevxgfvwwx̼˻ݼwwxwwfxfUevxgffffwxVTy#1Sfvwx&sX1j2Tx4ޛfXEh#cE&Bw723'1Wvg#3&1V5&!QH2S9cߋSU3cVSUwH#3#m2]:{c !t11iɺZ!am8jQbU1xȫh8eU5Q6CUu[3uHeYUU3e]$4dWfʼhe߻ܻ﫚VˋXxU3!#24#3E243STefwxE#1323SuwfVUUvy޽ͫwVfvgV5233"3TwݼwfVUUUU433CDU433"""23#22"#"333333333"""""33333UUfwwwz̻xwwwwwwwwwVD3TUefVUUUE33CewwgfUUffwwffVED4333#""""233DUEDDUUUefwݼxwwgVUUUUTU433C3#333""""!33333""333DUUUf{fffffffwgUUUUfVUeffffwfffffgfvwwͻͻxgvwfvgfVUUUD3333""2"""""""!"!""33CDTUUUvwwxwxwwwݼ|wxwwwgUETE43333"23333333C43333333CETUfVUEDDDUUUUUUUvwfUfffwwݼ̻xwwwwwwwwfUE4TUUE3233C323"23333333D433UUUUUUe}ffUevwwwwwgfv˼ݼ̼iZ{xxXuuivuSVgE374Gycffxܙ۽zHfvWjW6uy6"FeE2WWWEjv{WzhʘxeGWhYSVx۩ڻ˺܊ˉxf~ګˉvyfwwvVh5EugSTUTfgwfwxygwfdvwUD5fW71EUU2335233VfVVuUU˻߽˻̽ۺ޼˻ͫ˻̻vxuvxfVvvywUuwfvwxV423S3432UE33CTT434Texvfgfvw̼̻ݻiUxxggUUfvUE3"22###3"!33#23"##3EU433Ux˻˻gvxffvwwwwVUvxwgVVvwwvvxwwwwwwgfwwfVUUUUUUUTUUETUUUUUUUewgfffwwwwwxgfvxwwwwxwwvwwgwgUUUffUUUUfVEUevww̻̻xwgffwgffUeffVUUUUUUUUUUUDDDEUUUUUeffffw̼̻̼xwwwwxgUefwgVUUUUUUUevwwwwwx̼wwxwwwwwfUUUUUUE4333D433CUUUDEUUfwwww̻wwwwxwwwgffffwxwwwxwwwwwwwffvwwwwwwwwwxwffwwwwwwfUUfwwvwVeffVUefwwxffVUUvwwfwwfwwxwڕZȆyjȻi٤յZ7fSZˋvkyxvHبTfZzfyVwxxȊZiˋ[ڹwcucewUg5[Jx66:vvxGhgujy9UiJivzsxVi޽XiW[#bdFSɽyVv7#SuQeuSvuekSTTVCuU%Cee߽͚۽xVw#SyxyydV3WDbU4323xTeuTU43we̻ͪwߍhUe͚ܽ5CY"3TfUefwf63UެyeݼHCSwwvgU$2F!132D41XBexλ߽yUVegݼ%2vw6#TUUߚU3eݼh5Si"!Sug53"2Ty$3dUegyUeyUeݼyVUx3CG3Txifߚ͚xxVUffVUUUUevwVUwxWUefgE#2Sx5"2TVE33CTUUfwgVe޻̻̼xVewwwwxgVU43333DD4#""23333333DUUUUfffvw̻wfffvxgffVUUUefwwwwwwwwwfVUfffVUUE433DUUUUUUUfwwgfwxwwxwwwwwwwwwwwgfUUeffVUUUUfffVUefwwwxgwwffffUUUTD43333D4333CDDDEDUUefffv̻xwgUUUfffffffwgVUfvwwwffvxwwwwwwgUUUeffUUUUewwfvxwgffvwwwwwwwwwxw̼̻xwfvgfffUU43TUUDCD4TUVUUUffUUfvxffvwyxxjxhhwz3TYSxCugE3323E13U$3$U53UiGuzVߩywfuwvGTUe3!353E"WU3vEVwgh۩i$gUVwwȽXyvuVhUxhfWx#SUVvgEVcV7B3Ywwxvvڬg˽˚ʘxzzwww۽̺޹̫̋۫ٛvwyxwW5fWgvW"CDUwgfUVT4UVd7SEefeyxfwfwxgvwwUeVgwwWhUVUfUfgfvxwܫ˫̻ݼ˻yxfgUU3TUfVEUUewVgEUETUegfwxxfewgffffvwwxwwxwwgfwwfUUUfffvwwfwwfffv̻̫xgffwgUUevwwVE33333DUUfVUDDTUfvgfffeffffwxgffgggffffVUUUUefVefUUUUUUewwwwwww̻̼wwwgUUDDUUUUUUUUUTDUUffffvxgUffwwwfUUUUfwwVUETUUUUefUffffwwffvwwwwwwwwxwfw̼̻xwfffvgVUDDTUU433DUUETUUUUfffeUUUfvwxwwxwxxwwwwgffwxwgVUffffffffffvwxwwwwwxwwwxwxwwxwfwfwgwxwiyc8Q19ŗS?2;ZS]:!h!ZPXI)Z5SQ_aXZSE2#Y{!Q5gۻͷ{5&j11R!s"2x14315c޿vG"!tx&32!#!SCxUߗ߻﫻ߍ߼HwyE"15VRwE2ݛxλW223ev5!yW!3U$C1t6TvUVh4"31#22CUU"Te3Uuxye̛۽˻ye2#Rwʭf%"1e3#!#!S1!#13E#UT݊ͻܫXdٽޫʚ˼߼˺ۼͻVv5SEVefU5"33!!""3$""34e5f3vX23Sy5!Uٛͽ۽z˚yڽݪXFwEuhSgU3uWuxTxwwfxeXE4dh7Sw43TuVU5C&R"3DC3eW3#eVfgUTxxejx5whuwwUWDDEUeUUUfTEuffܻݾ޻ܫheygfUeVUDUCf3U4!"344!4!3#2"#1B5#!bUUUU3vFcyfGUCwygGUEcxxwgUyyݼݼݫͻݫݽܺxgwxywefgUUxuyTvywvWgXfEuxVuf5cU53"2ED!"""!!1!!34TT4uxvͼ߻˛wwhfgesusEwYuUCCv5WigEheG5vejfwWwz|{yVwuW͊zsuݩ5ǥvݻ{mڻټ˫̋wZXv83UsV2W3S$c!2CSRUVWVuxixgiwz̙WݪwgwffwefCTgD3UwuV5DEexVvwUw̙ͭhywʪxwwgWSuevxvwf5UcVUWUwfUfUVwe5cwUVffvv5UeufwvDGufvffvfwv˻ʻzͻݫͻWfUDchuvwwgvffywxvUuVwgeexffUeweUxxfgwfwfweffUeUUUEETTUfgUDDevgUUUvwwg˽̻̽ۼݻͻyewxxxffyVTefVvgUvVefvxefgfvwfxxwvwfgvxfvgvyxwwxywxf˼ݼ̻wvwwxxvxwxwxgwwwfVvgUffVUUUUfUUUUUUuwffgvwvxwwwgvvwxwwfwwwgfwvvwgvwfffwwwwwvgwwwxwww̼̻̻̻xwxgeffewgfUUefffvVugfvwfwwxwwwwwwwxwwwwfvVUevwgvgxwwxwwwwfxwfwxfffwvxwwfwwhewwwxfvۉ}UX31ӥ楧cYZvFk;uTBvV٭KZmݿՈߛyV6E[ȆwVhhEW8hxWWXwuXWzgVX7kVʪ5uwff5gSwZwޚhͫﻹݮW۩UYgiUUSWuʽ82UgSךȻ3eY6#7GCg4#33SXCD4"12R3"!25uyxT#U۽Yd2콉43Zdg5TݼzxxLax2fWS9#13"zE31xݼi"t{U2cuVU133Y5ev6UɻݛxeeW1޼VyV#172ڪiWg݉GSʫk&!4CVCUU%E߻޻͜Vމ5VϭwfVxE323vgDU3#1s53euWCdDDVWE3v켩VU3tvX#tZݻۻXeUuWU322uV32Ux˼WCESfeh˫xwUfVv۪ʽ޻w5STVE"""SewxhCgVw۽ܛxxyWUUX2UEݫ̻fwvxewe˼wVUETvxE33e53"CDUUxwxʼ˼xw߫ޛ̫wVT5"3"!!""333SfVvxf˻y˼ݭܽͻ˻VegfVUgUVegUVTeUUfVeVTefwVfVUxVUxfwgUUgVEETxgwUvvyUfvwxfw˽ۼfxxwgw̫̫xfvWUwWUfVEC3"!33C3TDUUefwfxwfwfvwݼۼݫݽݼxUeVehUvwVUfUDugVEUUewwfVUUUECUexfUDUUTUEUvwfvwfexwwwfv޻ݽݬxwxVgvwwxUfVefgwgU4"""3""33"233SUvgVUvwwxܼ̻۽ݚyggvWuhvwffUuex{izGUfhuhvvffVwVvfjXxhXfUSfhvVS#UVcVwf˽뿻˪ʻʚ˻wvxV432#"TUeUV4222C4#"1SwgfVfffvwwwhVVfw̻˽ܻxxvܼwgfVxgvxwVUUUuxgggwvfvfwwxuwWfUD33Uegwwffvͻ˻˼˼wgfwwxwgwwwvfwxwwxwwxvwWeVTffVefffUfVe5T4CfvwxwwwvwwwwwwwxfVUeUxwgew˼̫xxWUffxgfefVUUeffwwfffUffEDUUUUUETUUwܼxxwxwwwwwwxgwVeVfVefUTUU4TUUUvgvxfgUUefVfwxwgffUvwwfwܼgwgfffvwwxxxvwݼ̻wwwffvwfwVfffffffVfffwVV4TDUUUUTUUfwx̻xxwwwwwwgfVefx˼wwwwwwxgvgvwxwwxwvwVfVUUUUUE34SVUgegffUeUUUUevܼݻ̼xxwwfVUUVUVUUUUUU4TETUDUDUUUUUewwwxhvwxwwvwxgwxwwxwwvwwwwwwwxxwwxwxwwxgffvwwz—Whh{zj{gݪ6W&h};ASx[ =UU"ϥ}ϊS-sw5ݭ%r&AF5#"dv1Ue5#dWB7UFH2μ۪ޛ%Qx!3!S333EegFT龎zxViVufffx5T4!2#"Cuwfwvܼͻ̻wfVEDUUU32UUE33Uvݻ̻xfeUUfgfE3333#"""!""!""333DUfvwwfffUUeeUvwwwfvwfw̻wfvfwgffUUUEU43"33CUffݼݼ̼ͼ̻̻̻̻xwwVUE43#"2#"33333DUUUE3CUUUUUevwwwwww˼̼̻̼ͼwUUeUUE3DTUUUUD3CUffUDUUfwwgxwxwwwVeVUUUUUUUUfgU43333UEUUTUefffUfvxwwwfE3TUVUUDUefUUUUUUfffwݼͼwxwwxwwwxfffwwfUUUUU433CED43""223333#"33333DUUUUUffffffvwVUUvxwfwwxwwͼ̻̼wwwwxwwxgwwgffvwgUfwwwfvwwwVUvgVUefvwffffVUeffVDTDTDTUD333C3#""33""!"""33D333333DUUev̯۬ݼٷxxgffvfhfhihXUVge'gUdSeddcSTex4XHhGWZwiiUyxXwhyiihxuw˻ښxxxwgefUgvhgyjz˻hxxxgugUfVUVveVfffUUUSTSexhyx˪ݺͫxwxiffUTUSeE5E5UeUT43DTUwwwwݼwvwwgwwxxwwgfvgxwgfvvfvxfgwwgfVfvfevwwffvvfgeUewwxxwwwgwxwͻxwwvfVffgefffUUUVUeUvwwwgffwggwxwxwxgwwfUUVUeUefVEUUUUEDTUUUeffffefwͻ̻˻wwwgfVUfffffwwwgwwwwwwwxwwgfVUewwwwwwwvwwgUevwwwwwgffvwwwxwwgfwwxͼxxwxwfvwgUUfgUfexwwxwwwwwgwwxwwwffffVUUUffUVUUE3TUUDUUUefvwfwݻ̼xwwwwwwVfwwwffwwxwwxwxwxwwwwffwwwwwwwvwwwwfUUfvwwxwwwwwwwwww̻̻̼xwwwwwwwwwwgfffvwgwwwwfUfvwfwgfvwgffvwgvwwwwwwfwwwwxgvxgvwwwwxwfwf4ҥ󘪷GZ;Ǘz9Ɂã[yHclk8xohkWvډ#VsCsTScCbc'Y8kuYFYui֗ekkʹٻڷڊܦȊkعux6UxUw64gDdu[YgkVS5f#S%uVUUfFejxvWYzjݻ{xȪʨ˭k[6fXw{ڞ{}ywxyXDfvWdXFixjxWX;uvsYzff5#4yVigeUvuzxXXXyGSSƚzxiey꩸ݚgfʫxeiu8vxYfvDjxhfxuygyi}VXfSXgvWugfyyݚUHjwZxhZ5V76vSG}{zYyYhh}SxehyeVzVxeZkYHFzyhizZixUeuUxyUfuwɕȇewXggWiGy7TzںًɚxgxwwvXz[Z[VyY{zywvgy{xxfZgJkexhiWZ{whijwgYxvgwwhzhʜʙizjxwzzxjWHgUVy{Wxxyzyyfyxwxgyh׸ivxexiXxfzxxxwfyxvwyzYXixhyXxXxyxyvvhxxizyy{zxxWiuwzzyiyvwYzyzhzwyz[i|yzjyvgxgxxxyxxizYyywZkyhwywygxhywxvyxwxyzzfxxvj{yhwjjXyyyixxVUTVfufwhyVeeefhwvwxgwxxgwwhjHyWvWwyʙezxwweYhxiEUXftew۫ʫںezyxX7gUUTfeXuw4U33F5Vc4TSuwxWEcUwdcETgʭyyμ켽̨̫ۺ˨gxyfUTWfuvuUU42CUVu5UT4UuTegUUWeXugwgvufvuwgwyuxwww͛y˨WVUuxvUUSUWUuUxiEgzxWwWywxwU5ewUe3UEfTUwwgfx˾޼̾UvwxwVedwfVUUxEvUSW5UeuxVgUdVTUETE#SSB44#5EtVfVxy˺weghxhV735TfUfT3##%SE5T%CUSUTUSTuvVfgeVwyyvȉyǚ|xwi뻻ۼxzwwvvXTWewxUTWuxfhwhvvwfgVUUFEFUT5U9UiffUUUgiwv̻ܻܼ˻xeFEueuVUTeeefUUgUgfxhweVwwgWEETUfC3334eUfUewxڻʬʪ˫ݻ˽ͽͻ˻xevfVWUUUUUDE3##D3U3533233C333"33UES3U3eUvvwxugYwνݻܽyvwxwWV5VvuTEUfvfUgwUhuhugvgwVUEgeEU4UeeUVUWG6FgwwܻfxvwgfVfeUveeefxwWUxxeyUWfeUVeeUD53UTdUvwxˬ˻ݽ˫vwvVeVUdf5C3TwUT33UUEeESTCCSeUUDESVeeUffUVfvgwwww˻˚hwxF"32mq'xQQ9hIߗPX|!1AAaHhߵzͿUUY#3sHcc!u:zUdݻݺ:xZ%yk5C!!EsWx޻jUdZvVU12$2cEfx߯ʾۺZexEG7!3#6!2R2ufxw۽݉xEh52433uU3U2#1332U3"!U!C"!2311F53!33Tuv#!2UvexuݚݫʽެכּgWxhgc5bC83sXu"515E2##"#2#QX4cT6!!3c%3135c7TfE5TBUyfyEuXWxhu߻̫ܿޭ˫EeeiwgUUSE"315C1U#!2UuFB""#E1"3#S3EU3SV2E3fTWg3fe˻x˻뫪ݺݬݺ̼۫zuyyx˭ܽ틺޽zuuxgUwYD5STehGu3egxuyf3U3i2ECT52#!T!$SeD325"2fTV62R5fWwhug{˻ʫ˙ܻ݋۽۽ۼ̼ۻ۽ʪݺܻϩ۽͚ݚiyVUxze3cewWU6C#SD5dV3Ued3S56eUU33UwhxU3#vD4uexFUUhcgyVEzU934cxfvVxxhvxgݭ˻ͻﻚλ˽ͺ˻{G63eVTSXivi3ugxgWeT3uXE"SvVef#c5333SwU3SU5D33TU3"1UV3ST5Xt7exwڭݽ̫ﺼݬݛz˫ݩYwxUehwWwgwgXewwwxyw8cvyVi˻tVeYewxwDseu5CvˬWwgVyXUwUɪfxgV˙fʻhefxVfgfG2DvxhugU5TvWDsi5335Deex633fVUwhvwvVvݽ˻ݫݼ̫۬wxͫګ˫xUTWUxV3SVE2!3#33UCeggewͽͻyWdywͼݼܽڬVgUE#S45!"2""!#22efx̛͚ffxxݫͫګ˫xUTWUxV3SVE2!3#33UCeggewͽͻyWdywͼݼܽڬVgUE#S45!"2""!#22efx̛͚ffx"m,ӢÎ))ϩ0#1ȅ" Q( © \b \"/ & 1' F+ҩ$)$ӽ/ )ꪽ$ $ 81 h'"i'" L~"3934%-'/4/79$/02!#9ppPB$#PPA##2934!,3/5.$BYY٭YـYYVQRRRRRRRRRRRRRRRRWRRRRRRRRRRRRRRRRRRRRRE|0oziomsygnalu|!"#$%&|ARRRRRRRRRRRRRRRRXRRRRRRRRRRRRRRRWRRRRRD|ّY:wiekszbuforaobajtow|"5&/2||ْY:mniejsz ||ARRRRRRRRWRRRRRRRRRRRRRRWRRRRRRRRXRRRRRD|ٓY:apis|ٔY/dtwarzanie|٢Y0owrot|ARRRRRRRRXRRRRRRRRRWRRRRXRRRRRRRRRRRRRRD|ٕY:erowaniebuf|ٖY#zestotlk(z|ARRRRRRRRRRRRRRRRRRSRRRRRRRRRRRRRRRRRRRD|ٗY#zytaniedanych|٘Y:apisdanych|ARRRRRRRRRRRRRRRRRRXRRRRRRRRRRRRRRRRRRRD|ٙY3piszawartoscidyskietki$  |ARRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRD||||||||||ZRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRC//////// / / / / /?//`ԥ ؠ$00)_$(`'z'++++b)**``Uf*wpic^ZUQNKHEB@><H&h3&%'Ow%&æé&`~ L4(&L4(X(Y(H) 'X(Y(h`#:94!.)%:!0)30/$!*.!:7%52:!$:%.)!)0,)+5Z}( Q(H  'L~"hɛ!~ ܈ 'L()/ U) '/ 'BD/EK/E S V` F) /) Q(L~"2)/+#/3*%34.)%4!+H B Vh`` `i@`l( Q( (RT/UXY V0// F))LQ(.)%7,!3#)790,)+I/ĭ/ F+)0)XY V0xԢӹ/ө@X 1'))؍)й F)L)v( Q( (///ĥ/ RT/UXY VL)v*0w*xԢӹ/ө@XXY Vw*w*؍w*м F)L)D:*.**/Z (RXY Vɛ '  U) 'L* F)L)¥`ũ0xԢӘň ؅ө@X`` '%%'&%`xԍҍԩө(ҩҥ 'ҽ'`ũ0ƥĢ` W+ + Ҏҩ,Gō ҩҎҩ,Jjjj ҩҎƥ؅дӥҩ@X` W+ & + Ҏҩ,ӹ/ō ҩҎҩ,ӹ/ ҍ őũҎвƥ؅Т"'ҽ'`ũ0ƥĢ` W+ + Ҏҩ,Gō ҩҎҩ,Jjjj ҩҎ Q=4 THEN TX(14,15,"wczytywanieznakow")FIIF Q=8 THEN TX(14,15,"zapisznakow")FITX(14,13,"")PO(14,13)INPUTS(NOS) MOVEBLOCK(DL,1536,31);QQ9=LOCATE(15,13)P(566)=146;KL.BR.WL.TX(12,14,"|AR")TX(12,16,"|AR")P(752)=1;IF QQ9=32 4THEN ; TX(14,15,"")[96]FI IF NOS(0)=0 OR NOS(0)>16 THEN TX(14,15,"niewlasciwanazwapliku") TX(14,17,"0ress") WHILE K=255 DO OD K=255 P(566)=158;WYL. KL.BREAK ;TX(14,15,"") [96]ELSE4IF NOS(0)>2 AND (NOS(2)=': OR NOS(3)=': ) THEN ELSE FOR Q1=0 to 16 DO NOS(19-Q1)=NOS(17-Q1)OD NOS(1)='D NOS(2)=': NOS(0)==+2 ;PO(0,0)PRINTE(NOS) FIFI;WG("D: .FNT",$9000,$400,Q,0) WG(NOS,$9000,$400,Q,0);TX(14,15,"4")P(566)=158;WYL. KL.BREAK[96]PROC TE(BYTE A,B,D BYTE ARRAY E)CARD Q9Q9=B*40FOR C=1 TO D DO Q1=E(C)P(40000+Q9+A+C-1)=Q1 OD[96]PROC RKW()CARD Q9IF Z2=1 THEN Z1=ZN FIQ9=6*40Q3=Z1FOR Q2=0 TO F DOFOR Q1=31 TO 31+E DO P(40000+Q9+Q1)=Q43Q3==+1 OD Q9==+40 OD[96]PROC RKW1()CARD Q9 RKW()Q9=5*40FOR Q1=5 TO 6+F DO ;POKE(40000+(Q1*40)+E+32,0)ODP(40000+Q9+E+32)=0Q9==+40OD[96]PROC RKW2()CARD Q9Q9=(F+7)*40FOR Q1=31 TO 31+E DO ;POKE(40000+((F+7)*40)+Q1,0)ODP(40000+Q9+Q1)=0 O4D[96]PROC RZN1(CARD QW)CARD QW1FOR QW1=QW TO QW+7 DO P(40800+QW1)=ZN+(QW1-QW)OD[96]PROC RZN()FOR X=0 TO 135 DO P(40800+X)=ZN ODP(40800+22)=0 P(40800+24)=0 P(40800+70)=0 P(40800+72)=0 P(40800+104)=0 P(40800+106)=0 P(40800+124)=0P(40800+126)=40 P(40800+11)=0 P(40800+12)=ZN P(40800+13)=ZN+1 P(40800+14)=0 P(40800+59)=0 P(40800+60)=ZNP(40800+61)=ZN+1 P(40800+62)=0 P(40800+98)=0 P(40800+99)=ZN P(40800+100)=ZN+1 P(40800+101)=0P(40800+118)=0 P(40800+119)=ZN P(40800+120)=ZN+1 P(40800+121)=0RZN1(430)RZN1(78)RZN1(107)RZN1(127)P(40800+29)=0 P(40800+38)=0 P(40800+77)=0 P(40800+86)=0P(40800+5)=0 P(40800+6)=ZN+128 P(40800+7)=ZN+129 P(40800+8)=0P(40800+53)=0P(40800+54)=ZN+128P(40800+55)=ZN+129P(40800+56)=0[96]PROC OPGR()TX(0,0,"4")TX(0,1,"")TX(0,2,"㉀")TX(0,3,"")TX(0,4,"")RZN()TX(1,5,"")4TX(1,6,"")TX(1,7,"")TX(1,8,"ё")TX(1,9," ")TX(1,10," ")TX(1,11," ")TX(1,12," ")TX(1,13," ")TX(1,14," ")TX(1,15," ")TX(1,16," ")TX(1,17,"")4TX(12,5,"QRRRRRRRRRRRRRRRE")TX(12,6,"|/04)/.3|")TX(12,7,"|QRRRRRRRRRRRRRRXRE")TX(12,8,"||: zerowaniezna |")TX(12,9,"||ku|")TX(12,10,"||& zamalowywanie|")TX(12,11,"||znaku|")TX(12,12,"|ARRRRRRRRRRRRRRRRD")TX(124,13,"|||")TX(12,14,"|ARRRRRRRRRRRRRRRRXRRRRRRRE")TX(12,15,"|||")TX(12,16,"|ARRRRRRRWRRRRRRRRRWRRRWRRC")TX(12,17,"|||znak||")TX(12,18,"|ZRRRRRRRXRRRRRRRRRXRRRC")TX(12,19,"ZRRRRRRRRRRRRRRRC")[946]PROC SYNCH()[173 $D40B 201 92 208 249]IF I=1 THEN;POKE(53274,128) IF ZN>=64 THEN P($D409)=146 ELSE P($D409)=144 FIFI[96]PROC BITY()CARD Q1Q1=B*40+1Q4=0FOR Q2=1 TO 8 DOQ3=P(40000+Q1+Q2)IF Q3<>0 THEN IF Q2=1 THEN Q4==+128 FIIF Q24=2 THEN Q4==+64 FIIF Q2=3 THEN Q4==+32 FIIF Q2=4 THEN Q4==+16 FIIF Q2=5 THEN Q4==+8 FIIF Q2=6 THEN Q4==+4 FIIF Q2=7 THEN Q4==+2 FIIF Q2=8 THEN Q4==+1 FIFIODP(ADR144+ZN*8+B-9)=Q4[96]PROC RPU(BYTE OP)P(40000+(8+(D+1))*40+OP+2)=84[96]PROC R4YZN()CARD Q9Q9=17*40Q1=16P(40000+Q9+27)=ZNP(40000+Q9+29)=ZN+128P(40000+Q9+32)=ZN/100+16IF ZN/100=1 THEN Q1=7 FIP(40000+Q9+33)=ZN/10-ZN/100+Q1P(40000+Q9+34)=(ZN/1 MOD 10)+16[96]PROC RLI()CARD Q9,QAQ9=ZN*8QA=9*40FOR C=0 TO 7 DO FOR D=0 TO 47 DO ;P(40000+(C+9)*40+2+D)=0P(40000+QA+2+D)=0OD QA==+40 ODFOR D=0 TO 7 DOQ1=P(ADR144+Q9+D)IF Q1&128 THEN Q1==-128 RPU(0)FIIF Q1&64 THEN Q1==-64 RPU(1)FIIF Q1&32 THEN Q1==-32 RPU(2)FIIF Q1&16 THEN Q1==-16 RPU(3)FIIF Q1&8 THEN Q1==-8 RPU(4)FI4IF Q1&4 THEN Q1==-4 RPU(5)FIIF Q1&2 THEN Q1==-2 RPU(6)FIIF Q1&1 THEN Q1==-1 RPU(7)FIODRYZN()RKW()[96]PROC ZE()CARD Q9Q9=ZN*8FOR C=0 TO 7 DOP(ADR144+Q9+C)=0 OD[96]PROC ZE1()CARD Q9Q9=ZN*8FOR C=0 TO 7 DOP(ADR144+Q9+C)=255 OD[96]PROC 4MEM()CARD Q9Q9=ZN*8SOUND(0,40,10,10)FOR Q1=0 TO 7 DOQ2=P(ADR144+Q9+Q1)P(ADR143+Q1)=Q2OD[96]PROC MEM1()CARD Q9Q9=ZN*8SOUND(0,40,10,10)FOR Q1=0 TO 7 DOQ2=P(ADR143+Q1)P(ADR144+Q9+Q1)=Q2OD[96]PROC MEM2()FOR Q1=0 TO 7 DO P(ADR143+Q1)=0 O4D[96]PROC ODB()CARD Q1,Q9,QAQ1=9*40+1 Q4=0 Q9=ZN*8 QA=0FOR Q5=0 TO 7 DO FOR Q2=1 TO 8 DO ;Q3=P(40000+Q1+Q2+Q5*40)Q3=P(40000+Q1+Q2+QA)IF Q3=84 OR Q3=212 THEN IF Q2=8 THEN Q4==+128 FI IF Q2=7 THEN Q4==+64 FIIF Q2=6 THEN Q4==+32 FI IF Q2=5 THEN Q44==+16 FI IF Q2=4 THEN Q4==+8 FI IF Q2=3 THEN Q4==+4 FI IF Q2=2 THEN Q4==+2 FIIF Q2=1 THEN Q4==+1 FI FI OD P(ADR144+Q9+Q5)=Q4 Q4=0 QA==+40 OD[96]PROC LOS()CARD Q9Q9=ZN*8 FOR Q1=0 TO 7 DO Q2=RAND(0)P(GR+Q9+Q1)=Q2 OD [96]P4ROC UNI()CARD Q1,Q9Q1=9*40+1 Q4=0 Q9=ZN*8FOR Q5=0 TO 7 DO FOR Q2=1 TO 8 DO Q3=P(40000+Q1+Q2+Q5*40)IF Q3=0 OR Q3=128 THEN IF Q2=1 THEN Q4==+128 FI IF Q2=2 THEN Q4==+64 FI IF Q2=3 THEN Q4==+32 FI IF Q2=4 THEN Q4==+16 FIIF Q2=5 THEN Q4==+8 FI IF Q2=6 4THEN Q4==+4 FI IF Q2=7 THEN Q4==+2 FI IF Q2=8 THEN Q4==+1 FI FI ODP(ADR144+Q9+Q5)=Q4 Q4=0 OD[96]PROC ZEST()SOUND(0,35,10,2)TE(14,15,21,"7szystkieznakiz2/-")TE(14,17,7,"0resse")K=255 WHILE K=255 DO SYNCH() ODTE(14,17,7,"")TE(14,15,214,"")IF K<>42 THEN [96]FIMOVEBLOCK(ADR144,57344,1024)[96]PROC STER()IF Z2=0 THEN Z2=1 TE(14,15,24,"synchronizacjaprostoka")RKW()[96]FIIF Z2=1 THEN Z2=0 TE(14,15,24,"bezsynchronizacji")[96]FI[96]PROC TRYB()IF I=04 THEN I=1 TE(14,15,24,"noweznakitylkodol");POKE(756,144)[96]FIIF I=1 THEN I=0 TE(14,15,24,"calyekrannoweznaki");POKE(756,224)[96]FI[96]PROC ODW1()IF PEEK(755)=2 THEN P(755)=6[96]FIIF PEEK(755)=6 THEN P(755)=2[96]FI[96]PROC ODW4()CARD Q9Q9=ZN*8Q1=0 Q2=0 Q3=0FOR Q1=0 TO 7 DO Q2=P(ADR144+Q9+Q1)P(ADR143+16+Q1)=Q2 ODQ3=7FOR Q1=0 TO 7 DO Q2=P(ADR143+16+Q3)P(ADR144+Q9+Q1)=Q2 Q3==-1 OD[96]PROC BUF1()CARD Q9Q9=ZN*8FOR Q1=0 TO 7 DOQ2=P(ADR143+8+Q1)P(ADR144+Q9+Q1)=Q2 O4D[96]PROC BUF()CARD Q9Q9=ZN*8FOR Q1=0 TO 7 DO Q2=P(ADR144+Q9+Q1)P(ADR143+8+Q1)=Q2 OD[96]PROC POMA();ZERO(ADR143+48,8*3)ZERO(ADR143+48,24)[96]PROC ANIG()CARD Q9 IF I=1 THEN IF ZN>=64 THEN P($D409)=146 P(756)=146 ELSE P($D409)=144 P(4756)=144FI FIQ9=ZN*8IF G=8 THEN FOR Q1=0 TO 7 DO Q2=P(GR+Q9+Q1)P(ADR143+8+Q1)=Q2 OD FIFOR Q1=0 TO 7 DO Q2=P(GR+Q9+Q1)P(ADR143+32+Q1)=Q2 ODIF G>0 THEN G==-1 FIPOMA()FOR Q1=0 TO 7 DO Q2=P(ADR143+8+Q1)P(ADR143+48+G+Q1)=Q2 OD FOR Q1=0 TO 7 DO Q2=P(AD4R143+48+8+Q1)P(GR+Q9+Q1)=Q2 ODIF I=1 THEN P(756)=224 FI [96]PROC ANID()CARD Q9 IF I=1 THEN IF ZN>=64 THEN P($D409)=146 P(756)=146 ELSE P($D409)=144 P(756)=144FI FIQ9=ZN*8IF G=8 THEN FOR Q1=0 TO 7 DO Q2=P(GR+Q9+Q1)P(ADR143+8+Q1)=Q2 OD FI4FOR Q1=0 TO 7 DO Q2=P(GR+Q9+Q1)P(ADR143+32+Q1)=Q2 ODIF G<16 THEN G==+1 FI POMA()FOR Q1=0 TO 7 DO Q2=P(ADR143+8+Q1)P(ADR143+48+G+Q1)=Q2 OD FOR Q1=0 TO 7 DO Q2=P(ADR143+48+8+Q1)P(GR+Q9+Q1)=Q2 ODIF I=1 THEN P(756)=224 FI [96]PROC AS()CARD TMPERRTM4PERR=ErrorError=BLAD_KONFIGERR2=0GRAPHICS(0) PO(14,13)PRINT(" ")POKEC(88,40000)POKEC(DL+4,40000);POKE(39996,7)POKE(39995,6)POKE(39994,20)POKE(39993,21)P(730)=3;<- TAK JAK W ACTION;POKE(730,1)P(DL+25)=21 P(DL+26)=20 P(DL+27)=6 P(DL+28)=7P(DL+1)4=0MOVEBLOCK(1536,DL,31)P(82)=14 P(83)=29P(752)=1 P(756)=144 P(559)=0 OPGR()P(566)=158;WYL. KL.BREAKADR144=144*256ADR143=143*256;COLORSP(708)=8P(709)=10P(710)=4P(711)=6P(712)=0 TX(14,13,"(%,0-%##&") TX(14,15,"automwczytywkolorow") 4WG("D:HELPME.CCF",708,5,4,0)Error=BLADMOVEBLOCK(ADR144,57344,1024)A=2 B=9 A1=0 ZN=33 E=1 F=1 Z1=33 Z2=0 FIR=0 JO=0 GR=ADR144 G=8 TIM=0RLI()RZN()BUF()P(559)=34;WHILE PEEK(764)<>28 DOIF FIR=2 AND STRIG(0)=1 THEN FIR=0 FIIF FIR=0 AND STRIG(0)=0 T4HEN FIR=1 SOUND(0,22,10,10)FIIF JO=0 AND STICK(0)<>15 THEN JO=1 A1=0 SOUND(0,20,10,10)FIIF JO=2 AND STICK(0)=15 THEN JO=0 FIIF K<>255 THEN IF PEEK(77)=0 THEN SOUND(0,35,10,10)FI A1=0 FIIF K=14 OR K=142 OR(STICK(0)=14 AND JO=1)THEN C=P(40000+B*404+A)IF C>127 THEN P(40000+B*40+A)=C-128 FI B==-1 K=255 JO=2 TIM==+1 FIIF K=15 OR K=143 OR(STICK(0)=13 AND JO=1)THEN C=P(40000+B*40+A)IF C>127 THEN P(40000+B*40+A)=C-128 FI B==+1 K=255 JO=2 TIM==+1 FIIF K=6 OR K=134 OR(STICK(0)=11 AND JO=1)THEN C=P(400040+B*40+A)IF C>127 THEN P(40000+B*40+A)=C-128 FI A==-1 K=255 JO=2 TIM==+1 FIIF K=7 OR K=135 OR(STICK(0)=7 AND JO=1)THEN C=P(40000+B*40+A)IF C>127 THEN P(40000+B*40+A)=C-128 FI A==+1 K=255 JO=2 TIM==+1 FIIF K=33 OR(STRIG(0)=0 AND FIR=1)THEN C=P(40000+B*440+A)FIR=2 TIM==+1IF C=84 OR C=212 THEN P(40000+B*40+A)=0 ELSE P(40000+B*40+A)=84 FI BITY() K=255 FIIF K=23 THEN TE(14,17,7,"0ressz")K=255 SOUND(0,35,10,2)TX(14,15,"kasowanieznaku") WHILE K=255 DO SYNCH()OD IF K=23 THEN SOUND(0,37,10,10)ZE()FI K4=255 TE(14,17,7,"")TX(14,15,"")RLI()FIIF K=87 THEN K=255 TE(14,17,7,"0ressz")TX(14,15,"kasowszystznakow")SOUND(0,35,10,2) WHILE K=255 DO SYNCH() OD IF K=23 THEN SOUND(0,30,10,10)ZERO(ADR144,1024)FI TX(14,15,"4")TE(14,17,7,"")K=255 FIIF K=56 THEN TE(14,17,7,"0ressf")K=255 SOUND(0,35,10,2)WHILE K=255 DO SYNCH() OD IF K=56 THEN SOUND(0,37,10,10)ZE1()FIK=255 TE(14,17,7,"")RLI()FIIF K=47 THEN K=255 WGR(8) ZERO(40200,600)4OPGR()RKW()RLI()FIIF K=46 THEN K=255 WGR(4) ZERO(40200,600)OPGR()RKW()RLI()FIIF K=31 AND ZN>0 THEN ZN==-1 RZN()RLI()BUF()K=255 G=8 TIM==+1 FIIF K=30 AND ZN<127 THEN ZN==+1 RZN()RLI()BUF()K=255 G=8 TIM==+1 FIIF K=26 AND ZN-10>0 THEN ZN==-10 RZN()R4LI()BUF()K=255 G=8 TIM==+1 FIIF K=24 AND ZN+10<127 THEN ZN==+10 RZN()RLI()BUF()K=255 G=8 TIM==+1 FIIF ZN>=64 THEN IF I=1 THEN P(756)=224 ELSE P(756)=146 FI FIIF ZN<64 THEN IF I=1 THEN P(756)=224 ELSE P(756)=144 FI FIIF K=29 AND E<7 THEN E==+1 4RKW()K=255 FIIF K=27 AND F<7 THEN F==+1 RKW()K=255 FIIF K=93 AND E>1 THEN E==-1 RKW1()K=255 FIIF K=71 AND F>1 THEN F==-1 RKW2()K=255 FIIF K=37 THEN MEM()K=255 FIIF K=35 THEN MEM1()K=255 RLI()FIIF K=101 THEN MEM2()K=255 FIIF K=39 THEN UNI()K=255 R4LI()FIIF K=42 THEN TE(14,15,18,":nakzpamieci2/-") TE(14,17,7,"0resse") SOUND(0,35,10,2) K=255 WHILE K=255 DO SYNCH()OD TE(14,17,7,"") TE(14,15,18,"") IF K=42 THEN MOVEBLOCK(ADR144+ZN*8,57344+ZN*8,8) RLI()K=255FI4 FIIF K=106 THEN ZEST()RLI()K=255 FIIF K=40 THEN STER()K=255 FIIF K=51 THEN Z1==-1 RKW()K=255 FIIF K=53 THEN Z1==+1 RKW()K=255 FIIF K=48 THEN Z1==-10 RKW()K=255 FIIF K=50 THEN Z1==+10 RKW()K=255 FIIF K=8 THEN ODW()RLI()K=255 FIIF K=10 THEN ODW41()K=255 FIIF K=61 THEN K1==+2 K=255 FIIF K=57 THEN K2==+2 K=255 FIIF K=1 THEN K3==+2 K=255 FIIF K=5 THEN K4==+2 K=255 FIIF K=0 THEN K5==+2 K=255 FIIF K=125 THEN K1==-2 K=255 FIIF K=121 THEN K2==-2 K=255 FIIF K=65 THEN K3==-2 K=255 FIIF K=69 TH4EN K4==-2 K=255 FIIF K=64 THEN K5==-2 K=255 FIIF K=189 THEN K1==+16 K=255 FIIF K=185 THEN K2==+16 K=255 FIIF K=129 THEN K3==+16 K=255 FIIF K=133 THEN K4==+16 K=255 FIIF K=128 THEN K5==+16 K=255 FIIF K=253 THEN K1==-16 K=255 FIIF K=249 THEN K2==-416 K=255 FIIF K=227 THEN K3==-16 K=255 FIIF K=229 THEN K4==-16 K=255 FIIF K=224 THEN K5==-16 K=255 FIIF K=13 THEN BUF1()RLI()K=255 G=8 FIIF K=72 THEN ODB()RLI()K=255 FIIF K=116 THEN Q1=P(GR+ZN*8+B-9)P(ADR143+24)=Q1 K=255 FIIF K=52 THEN Q1=P(ADR1453+24)P(ADR144+ZN*8+B-9)=Q1 K=255 RLI()FIIF K=11 THEN Q1=RAND(0)P(GR+ZN*8+B-9)=Q1 K=255 RLI()FIIF K=75 THEN LOS()RLI()K=255 FIIF K=45 THEN ANIG()K=255 RLI()FIIF K=43 THEN ANID()K=255 RLI()FIIF K=28 THEN TE(14,15,20,"7yjsciezprogramu")TE(14,17,7,5"0resst")K=255 SOUND(0,35,10,2) WHILE K=255 DO SYNCH() OD IF K=45 OR K=43 THEN SOUND(0,0,0,0)EXIT FI K=255 TE(14,15,20,"")TE(14,17,7,"")FIIF K=22 THEN TRYB() K=255 FIIF K=111 OR K=175 OR K=239 THEN WGR_K(8) ZERO(402005,600)OPGR()RKW()RLI()FIIF K=110 OR K=174 OR K=238 THEN WGR_K(4) ZERO(40200,600)OPGR()RKW()RLI()FIIF K=18 THEN K=255 TX(14,15,"domyslneustawkolorow")SOUND(0,35,10,2) TE(14,17,7,"0ressc")WHILE K=255 DO SYNCH() OD IF K=18 THEN SOUND(0,30,10,10)P(7508)=8 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 T5HEN 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")5 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")4c'imhihiHHȱȱ`8Hh` 5'E…¦ 5'`L5'` F'"Ff ee&8Lg' F'_Wń児0 &&86.ń児8A充FfFf8Lg' '` Fj` &`p B V8l H( Vhhl\(HHJJJJhh`hhl\( `iDiE`Hh^(`Hh`Hh`Hh` (IHiDiE B _(HI BA _(`H ( LhL(H ( [hL( (L( (L ) (iDiEHIB _(H8L`HxhL,)^(Ln)HhL,)HhL) (L) (HIB _(` ( (JKB _(JJJJ` ( B _(`H` B VhKI A JS:DEB _(`UVT` *L)% ҩҥ)) ҥ``)|`)x`)`ƢŢ8*8 %Ţ`` *ȥ`ȱ`Ƣƣ8`HhL*A Ƥƥ8`adzlasumakontroa")2J+ELSEIF ERRCODE=144 THEN,++u+$TX(14,15,"blazapisniemozliwyLt+ 'h+j+k+l+@mh+i(i+ s'em+en++j *p+o+o+ip+il+n+m+ *`=A 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-blaA dbrakkomunikacji, q+Ls/+ILK-L;-bladzlasumakontrolna-" q+Ls/+IL-Lq-bladzapisniemozliwy-X q+Ls/+I +IL-L-bladbrakmiejsca- q+Ls/+I +IL-L-bladniewlasciwanazwa-A Ң q+Ls/+IL1.L!.bladpliknieistnieje. q+Ls/+I+I+I +IL|.Ll.bladuszkodzsystplik.S q+Ls/L.innyblad . q+^+i_+id+ 'i+d+ 'IAL+++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+m0IL0L0wczytywaniekolorow0Ӣ q+m0IL,1L1nagrywaniekolorow1 q+L111/  q+  /+, )10 *^+i6_+iL1|AR1{ q+L1|AR1 q+^+i_+i,+ ,+L02L1niewlasciwanazwapliku1Ǣ 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܅_+ir;SET 14=$4000MODULE; "HELP ME" VER. 1,8 T.C. AS 1991,2009; VER. 1,8;1,7;1,6 Z 2009 R. ;INCLUDE "RT_HM1.ACT" INCLUDE "RT_HM.ACT"BYTE A,B,C,D,K=764,A1,E,F,Q1,Q2,Q3,Q4,Q5,Z1,Z2,K1=708,K2=709,K3=710,K4=711,K5=712,FIR,JO,G,H,QQ9,I=[0],TIM,ERR2IN)T ZNBYTE ARRAY NOS(50)BYTE ARRAY P=0CARD X,GR,DL=560CARD ADR144,ADR143PROC TX(BYTE X,Y BYTE ARRAY T)BYTE Q1 CARD Q3,Q4 Q1=T(0)Q3=40000+X+Y*40 Q4=PEEKC(@ T)MOVEBLOCK(Q3,Q4+1,Q1)[96]PROC BLAD(BYTE ERRCODE)IF ERRCODE=128 THENTX(14,15,"bladprzer) wano ")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 TH)!EN TX(14,15,"bladbrakkomunikacji")ELSEIF ERRCODE=143 THEN TX(14,15,"bladzlasumakontrolna")ELSEIF ERRCODE=144 THENTX(14,15,"bladzapisniemozliwy")ELSEIF ERRCODE=162 OR ERRCODE=169 THEN TX(14,15,"bladbrakmiejsca")ELSEIF ERRCO)"DE=163 OR ERRCODE=165 THEN TX(14,15,"bladniewlasciwanazwa")ELSEIF ERRCODE=170 THEN TX(14,15,"bladpliknieistnieje")ELSEIF ERRCODE=172 OR ERRCODE=173 OR ERRCODE=177 OR ERRCODE=181 THEN TX(14,15,"bladuszkodzsystplik")ELSE TX(14,15,"in)#nyblad ") P(40625)=ERRCODE/100+16 Q1=16 IF ERRCODE/100=1 THEN Q1=7 FI P(40626)=ERRCODE/10-ERRCODE/100+Q1 P(40627)=(ERRCODE/1 MOD 10)+16FITX(14,17,"0ress")WHILE K=255 DO OD K=255ERR2=1[96]PROC BLAD_KONFIG(BYTE ERRCODE)TX(14,)$15,"brakplikuzkolorami")[96]PROC PO(BYTE X,Y)POSITION(X,Y)[96]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)IF ERR2=0 THEN [162 32 32 $56 $E4 133 $A3])%FICLOSE(2)ERR2=0RETURNPROC WGR_K(BYTE Q)P(756)=224SNDRST()P(752)=0 K=255TX(14,13,"")IF Q=4 THEN TX(14,15,"wczytywaniekolorow")FIIF Q=8 THEN TX(14,15,"nagrywaniekolorow")FITX(14,13,"")PO(14,13)INPUTS(NOS) MOVEBLO)&CK(DL,1536,31)P(566)=146;KL.BR.WL.TX(12,14,"|AR")TX(12,16,"|AR")P(752)=1IF NOS(0)=0 OR NOS(0)>16 THEN TX(14,15,"niewlasciwanazwapliku") TX(14,17,"0ress") WHILE K=255 DO OD K=255 P(566)=158;WYL. KL.BREAK [96]ELSEIF NOS(0)>2 AND (NOS(2)=)'': OR NOS(3)=': ) THEN ELSE FOR Q1=0 to 16 DO NOS(19-Q1)=NOS(17-Q1)OD NOS(1)='D NOS(2)=': NOS(0)==+2 FIFIWG(NOS,708,5,Q,0)P(566)=158;WYL. KL.BREAK[96]PROC WGR(BYTE Q)P(756)=224SNDRST()P(752)=0 K=255TX(14,13,"")IF Q=4 )(THEN TX(14,15,"wczytywanieznakow")FIIF Q=8 THEN TX(14,15,"nagrywanieznakow")FITX(14,13,"")PO(14,13)INPUTS(NOS) MOVEBLOCK(DL,1536,31);QQ9=LOCATE(15,13)P(566)=146;KL.BR.WL.TX(12,14,"|AR")TX(12,16,"|AR")P(752)=1;IF QQ9=32 THEN )); TX(14,15,"")[96]FI IF NOS(0)=0 OR NOS(0)>16 THEN TX(14,15,"niewlasciwanazwapliku") TX(14,17,"0ress") WHILE K=255 DO OD K=255 P(566)=158;WYL. KL.BREAK ;TX(14,15,"") [96]ELSEIF N)*OS(0)>2 AND (NOS(2)=': OR NOS(3)=': ) THEN ELSE FOR Q1=0 to 16 DO NOS(19-Q1)=NOS(17-Q1)OD NOS(1)='D NOS(2)=': NOS(0)==+2 ;PO(0,0)PRINTE(NOS) FIFI;WG("D: .FNT",$9000,$400,Q,0) WG(NOS,$9000,$400,Q,0);TX(14,15,")+")P(566)=158;WYL. KL.BREAK[96]PROC TE(BYTE A,B,D BYTE ARRAY E)CARD Q9Q9=B*40FOR C=1 TO D DO Q1=E(C)P(40000+Q9+A+C-1)=Q1 OD[96]PROC RKW()CARD Q9IF Z2=1 THEN Z1=ZN FIQ9=6*40Q3=Z1FOR Q2=0 TO F DOFOR Q1=31 TO 31+E DO P(40000+Q9+Q1)=Q3Q3=),=+1 OD Q9==+40 OD[96]PROC RKW1()CARD Q9 RKW()Q9=5*40FOR Q1=5 TO 6+F DO ;POKE(40000+(Q1*40)+E+32,0)ODP(40000+Q9+E+32)=0Q9==+40OD[96]PROC RKW2()CARD Q9Q9=(F+7)*40FOR Q1=31 TO 31+E DO ;POKE(40000+((F+7)*40)+Q1,0)ODP(40000+Q9+Q1)=0 OD[96)-]PROC RZN1(CARD QW)CARD QW1FOR QW1=QW TO QW+7 DO P(40800+QW1)=ZN+(QW1-QW)OD[96]PROC RZN()FOR X=0 TO 135 DO P(40800+X)=ZN ODP(40800+22)=0 P(40800+24)=0 P(40800+70)=0 P(40800+72)=0 P(40800+104)=0 P(40800+106)=0 P(40800+124)=0P(40800+126)=0 P(4).0800+11)=0 P(40800+12)=ZN P(40800+13)=ZN+1 P(40800+14)=0 P(40800+59)=0 P(40800+60)=ZNP(40800+61)=ZN+1 P(40800+62)=0 P(40800+98)=0 P(40800+99)=ZN P(40800+100)=ZN+1 P(40800+101)=0P(40800+118)=0 P(40800+119)=ZN P(40800+120)=ZN+1 P(40800+121)=0RZN1(30)RZ)/N1(78)RZN1(107)RZN1(127)P(40800+29)=0 P(40800+38)=0 P(40800+77)=0 P(40800+86)=0P(40800+5)=0 P(40800+6)=ZN+128 P(40800+7)=ZN+129 P(40800+8)=0P(40800+53)=0P(40800+54)=ZN+128P(40800+55)=ZN+129P(40800+56)=0[96]PROC OPGR()TX(0,0,")0")TX(0,1,"")TX(0,2,"㉀")TX(0,3,"")TX(0,4,"")RZN()TX(1,5,"")TX(1,)16,"")TX(1,7,"")TX(1,8,"ё")TX(1,9," ")TX(1,10," ")TX(1,11," ")TX(1,12," ")TX(1,13," ")TX(1,14," ")TX(1,15," ")TX(1,16," ")TX(1,17,"")TX(1)22,5,"QRRRRRRRRRRRRRRRE")TX(12,6,"|/04)/.3|")TX(12,7,"|QRRRRRRRRRRRRRRXRE")TX(12,8,"||: zerowaniezna |")TX(12,9,"||ku|")TX(12,10,"||& zamalowywanie|")TX(12,11,"||znaku|")TX(12,12,"|ARRRRRRRRRRRRRRRRD")TX(12,13,")3|||")TX(12,14,"|ARRRRRRRRRRRRRRRRXRRRRRRRE")TX(12,15,"|||")TX(12,16,"|ARRRRRRRWRRRRRRRRRWRRRWRRC")TX(12,17,"|||znak||")TX(12,18,"|ZRRRRRRRXRRRRRRRRRXRRRC")TX(12,19,"ZRRRRRRRRRRRRRRRC")[96]P)4ROC SYNCH()[173 $D40B 201 92 208 249]IF I=1 THEN;POKE(53274,128) IF ZN>=64 THEN P($D409)=146 ELSE P($D409)=144 FIFI[96]PROC BITY()CARD Q1Q1=B*40+1Q4=0FOR Q2=1 TO 8 DOQ3=P(40000+Q1+Q2)IF Q3<>0 THEN IF Q2=1 THEN Q4==+128 FIIF Q2=2 TH)5EN Q4==+64 FIIF Q2=3 THEN Q4==+32 FIIF Q2=4 THEN Q4==+16 FIIF Q2=5 THEN Q4==+8 FIIF Q2=6 THEN Q4==+4 FIIF Q2=7 THEN Q4==+2 FIIF Q2=8 THEN Q4==+1 FIFIODP(ADR144+ZN*8+B-9)=Q4[96]PROC RPU(BYTE OP)P(40000+(8+(D+1))*40+OP+2)=84[96]PROC RYZN())6CARD Q9Q9=17*40Q1=16P(40000+Q9+27)=ZNP(40000+Q9+29)=ZN+128P(40000+Q9+32)=ZN/100+16IF ZN/100=1 THEN Q1=7 FIP(40000+Q9+33)=ZN/10-ZN/100+Q1P(40000+Q9+34)=(ZN/1 MOD 10)+16[96]PROC RLI()CARD Q9,QAQ9=ZN*8QA=9*40FOR C=0 TO 7 DO FOR D=0 TO 7 DO )7;P(40000+(C+9)*40+2+D)=0P(40000+QA+2+D)=0OD QA==+40 ODFOR D=0 TO 7 DOQ1=P(ADR144+Q9+D)IF Q1&128 THEN Q1==-128 RPU(0)FIIF Q1&64 THEN Q1==-64 RPU(1)FIIF Q1&32 THEN Q1==-32 RPU(2)FIIF Q1&16 THEN Q1==-16 RPU(3)FIIF Q1&8 THEN Q1==-8 RPU(4)FIIF Q1)8&4 THEN Q1==-4 RPU(5)FIIF Q1&2 THEN Q1==-2 RPU(6)FIIF Q1&1 THEN Q1==-1 RPU(7)FIODRYZN()RKW()[96]PROC ZE()CARD Q9Q9=ZN*8FOR C=0 TO 7 DOP(ADR144+Q9+C)=0 OD[96]PROC ZE1()CARD Q9Q9=ZN*8FOR C=0 TO 7 DOP(ADR144+Q9+C)=255 OD[96]PROC MEM())9CARD Q9Q9=ZN*8SOUND(0,40,10,10)FOR Q1=0 TO 7 DOQ2=P(ADR144+Q9+Q1)P(ADR143+Q1)=Q2OD[96]PROC MEM1()CARD Q9Q9=ZN*8SOUND(0,40,10,10)FOR Q1=0 TO 7 DOQ2=P(ADR143+Q1)P(ADR144+Q9+Q1)=Q2OD[96]PROC MEM2()FOR Q1=0 TO 7 DO P(ADR143+Q1)=0 OD[96):]PROC ODB()CARD Q1,Q9,QAQ1=9*40+1 Q4=0 Q9=ZN*8 QA=0FOR Q5=0 TO 7 DO FOR Q2=1 TO 8 DO ;Q3=P(40000+Q1+Q2+Q5*40)Q3=P(40000+Q1+Q2+QA)IF Q3=84 OR Q3=212 THEN IF Q2=8 THEN Q4==+128 FI IF Q2=7 THEN Q4==+64 FIIF Q2=6 THEN Q4==+32 FI IF Q2=5 THEN Q4==+1);6 FI IF Q2=4 THEN Q4==+8 FI IF Q2=3 THEN Q4==+4 FI IF Q2=2 THEN Q4==+2 FIIF Q2=1 THEN Q4==+1 FI FI OD P(ADR144+Q9+Q5)=Q4 Q4=0 QA==+40 OD[96]PROC LOS()CARD Q9Q9=ZN*8 FOR Q1=0 TO 7 DO Q2=RAND(0)P(GR+Q9+Q1)=Q2 OD [96]PROC U)")IF K<>42 THEN [96]FIMOVEBLOCK(ADR144,57344,1024)[96]PROC STER()IF Z2=0 THEN Z2=1 TE(14,15,24,"synchronizacjaprostoka")RKW()[96]FIIF Z2=1 THEN Z2=0 TE(14,15,24,"bezsynchronizacji")[96]FI[96]PROC TRYB()IF I=0 THEN)? I=1 TE(14,15,24,"noweznakitylkodol");POKE(756,144)[96]FIIF I=1 THEN I=0 TE(14,15,24,"calyekrannoweznaki");POKE(756,224)[96]FI[96]PROC ODW1()IF PEEK(755)=2 THEN P(755)=6[96]FIIF PEEK(755)=6 THEN P(755)=2[96]FI[96]PROC ODW()CA)@RD Q9Q9=ZN*8Q1=0 Q2=0 Q3=0FOR Q1=0 TO 7 DO Q2=P(ADR144+Q9+Q1)P(ADR143+16+Q1)=Q2 ODQ3=7FOR Q1=0 TO 7 DO Q2=P(ADR143+16+Q3)P(ADR144+Q9+Q1)=Q2 Q3==-1 OD[96]PROC BUF1()CARD Q9Q9=ZN*8FOR Q1=0 TO 7 DOQ2=P(ADR143+8+Q1)P(ADR144+Q9+Q1)=Q2 OD[96)A]PROC BUF()CARD Q9Q9=ZN*8FOR Q1=0 TO 7 DO Q2=P(ADR144+Q9+Q1)P(ADR143+8+Q1)=Q2 OD[96]PROC POMA();ZERO(ADR143+48,8*3)ZERO(ADR143+48,24)[96]PROC ANIG()CARD Q9 IF I=1 THEN IF ZN>=64 THEN P($D409)=146 P(756)=146 ELSE P($D409)=144 P(756)=)B144FI FIQ9=ZN*8IF G=8 THEN FOR Q1=0 TO 7 DO Q2=P(GR+Q9+Q1)P(ADR143+8+Q1)=Q2 OD FIFOR Q1=0 TO 7 DO Q2=P(GR+Q9+Q1)P(ADR143+32+Q1)=Q2 ODIF G>0 THEN G==-1 FIPOMA()FOR Q1=0 TO 7 DO Q2=P(ADR143+8+Q1)P(ADR143+48+G+Q1)=Q2 OD FOR Q1=0 TO 7 DO Q2=P(ADR143+)C48+8+Q1)P(GR+Q9+Q1)=Q2 ODIF I=1 THEN P(756)=224 FI [96]PROC ANID()CARD Q9 IF I=1 THEN IF ZN>=64 THEN P($D409)=146 P(756)=146 ELSE P($D409)=144 P(756)=144FI FIQ9=ZN*8IF G=8 THEN FOR Q1=0 TO 7 DO Q2=P(GR+Q9+Q1)P(ADR143+8+Q1)=Q2 OD FIFOR Q)D1=0 TO 7 DO Q2=P(GR+Q9+Q1)P(ADR143+32+Q1)=Q2 ODIF G<16 THEN G==+1 FI POMA()FOR Q1=0 TO 7 DO Q2=P(ADR143+8+Q1)P(ADR143+48+G+Q1)=Q2 OD FOR Q1=0 TO 7 DO Q2=P(ADR143+48+8+Q1)P(GR+Q9+Q1)=Q2 ODIF I=1 THEN P(756)=224 FI [96]PROC AS()CARD TMPERRTMPERR=)EErrorError=BLAD_KONFIGERR2=0GRAPHICS(0) PO(14,13)PRINT(" ")POKEC(88,40000)POKEC(DL+4,40000);POKE(39996,7)POKE(39995,6)POKE(39994,20)POKE(39993,21)P(730)=3;<- TAK JAK W ACTION;POKE(730,1)P(DL+25)=21 P(DL+26)=20 P(DL+27)=6 P(DL+28)=7P(DL+1)=0MO)FVEBLOCK(1536,DL,31)P(82)=14 P(83)=29P(752)=1 P(756)=144 P(559)=0 OPGR()P(566)=158;WYL. KL.BREAKADR144=144*256ADR143=143*256;COLORSP(708)=8P(709)=10P(710)=4P(711)=6P(712)=0 TX(14,13,"(%,0-%##&") TX(14,15,"automwczytywkolorow") WG("D)G:HELPME.CCF",708,5,4,0)Error=BLADMOVEBLOCK(ADR144,57344,1024)A=2 B=9 A1=0 ZN=33 E=1 F=1 Z1=33 Z2=0 FIR=0 JO=0 GR=ADR144 G=8 TIM=0RLI()RZN()BUF()P(559)=34;WHILE PEEK(764)<>28 DOIF FIR=2 AND STRIG(0)=1 THEN FIR=0 FIIF FIR=0 AND STRIG(0)=0 THEN F)HIR=1 SOUND(0,22,10,10)FIIF JO=0 AND STICK(0)<>15 THEN JO=1 A1=0 SOUND(0,20,10,10)FIIF JO=2 AND STICK(0)=15 THEN JO=0 FIIF K<>255 THEN IF PEEK(77)=0 THEN SOUND(0,35,10,10)FI A1=0 FIIF K=14 OR K=142 OR(STICK(0)=14 AND JO=1)THEN C=P(40000+B*40+A)IF)I C>127 THEN P(40000+B*40+A)=C-128 FI B==-1 K=255 JO=2 TIM==+1 FIIF K=15 OR K=143 OR(STICK(0)=13 AND JO=1)THEN C=P(40000+B*40+A)IF C>127 THEN P(40000+B*40+A)=C-128 FI B==+1 K=255 JO=2 TIM==+1 FIIF K=6 OR K=134 OR(STICK(0)=11 AND JO=1)THEN C=P(40000+B*4)J0+A)IF C>127 THEN P(40000+B*40+A)=C-128 FI A==-1 K=255 JO=2 TIM==+1 FIIF K=7 OR K=135 OR(STICK(0)=7 AND JO=1)THEN C=P(40000+B*40+A)IF C>127 THEN P(40000+B*40+A)=C-128 FI A==+1 K=255 JO=2 TIM==+1 FIIF K=33 OR(STRIG(0)=0 AND FIR=1)THEN C=P(40000+B*40+A))KFIR=2 TIM==+1IF C=84 OR C=212 THEN P(40000+B*40+A)=0 ELSE P(40000+B*40+A)=84 FI BITY() K=255 FIIF K=23 THEN TE(14,17,7,"0ressz")K=255 SOUND(0,35,10,2)TX(14,15,"kasowanieznaku") WHILE K=255 DO SYNCH()OD IF K=23 THEN SOUND(0,37,10,10)ZE()FI K=255 )LTE(14,17,7,"")TX(14,15,"")RLI()FIIF K=87 THEN K=255 TE(14,17,7,"0ressz")TX(14,15,"kasowszystznakow")SOUND(0,35,10,2) WHILE K=255 DO SYNCH() OD IF K=23 THEN SOUND(0,30,10,10)ZERO(ADR144,1024)FI TX(14,15,")M")TE(14,17,7,"")K=255 FIIF K=56 THEN TE(14,17,7,"0ressf")K=255 SOUND(0,35,10,2)WHILE K=255 DO SYNCH() OD IF K=56 THEN SOUND(0,37,10,10)ZE1()FIK=255 TE(14,17,7,"")RLI()FIIF K=47 THEN K=255 WGR(8) ZERO(40200,600)OPGR()N)RKW()RLI()FIIF K=46 THEN K=255 WGR(4) ZERO(40200,600)OPGR()RKW()RLI()FIIF K=31 AND ZN>0 THEN ZN==-1 RZN()RLI()BUF()K=255 G=8 TIM==+1 FIIF K=30 AND ZN<127 THEN ZN==+1 RZN()RLI()BUF()K=255 G=8 TIM==+1 FIIF K=26 AND ZN-10>0 THEN ZN==-10 RZN()RLI()B)OUF()K=255 G=8 TIM==+1 FIIF K=24 AND ZN+10<127 THEN ZN==+10 RZN()RLI()BUF()K=255 G=8 TIM==+1 FIIF ZN>=64 THEN IF I=1 THEN P(756)=224 ELSE P(756)=146 FI FIIF ZN<64 THEN IF I=1 THEN P(756)=224 ELSE P(756)=144 FI FIIF K=29 AND E<7 THEN E==+1 RKW())PK=255 FIIF K=27 AND F<7 THEN F==+1 RKW()K=255 FIIF K=93 AND E>1 THEN E==-1 RKW1()K=255 FIIF K=71 AND F>1 THEN F==-1 RKW2()K=255 FIIF K=37 THEN MEM()K=255 FIIF K=35 THEN MEM1()K=255 RLI()FIIF K=101 THEN MEM2()K=255 FIIF K=39 THEN UNI()K=255 RLI()F)QIIF K=42 THEN TE(14,15,18,":nakzpamieci2/-") TE(14,17,7,"0resse") SOUND(0,35,10,2) K=255 WHILE K=255 DO SYNCH()OD TE(14,17,7,"") TE(14,15,18,"") IF K=42 THEN MOVEBLOCK(ADR144+ZN*8,57344+ZN*8,8) RLI()K=255FI FI)RIF K=106 THEN ZEST()RLI()K=255 FIIF K=40 THEN STER()K=255 FIIF K=51 THEN Z1==-1 RKW()K=255 FIIF K=53 THEN Z1==+1 RKW()K=255 FIIF K=48 THEN Z1==-10 RKW()K=255 FIIF K=50 THEN Z1==+10 RKW()K=255 FIIF K=8 THEN ODW()RLI()K=255 FIIF K=10 THEN ODW1()K=)S255 FIIF K=61 THEN K1==+2 K=255 FIIF K=57 THEN K2==+2 K=255 FIIF K=1 THEN K3==+2 K=255 FIIF K=5 THEN K4==+2 K=255 FIIF K=0 THEN K5==+2 K=255 FIIF K=125 THEN K1==-2 K=255 FIIF K=121 THEN K2==-2 K=255 FIIF K=65 THEN K3==-2 K=255 FIIF K=69 THEN K4)T==-2 K=255 FIIF K=64 THEN K5==-2 K=255 FIIF K=189 THEN K1==+16 K=255 FIIF K=185 THEN K2==+16 K=255 FIIF K=129 THEN K3==+16 K=255 FIIF K=133 THEN K4==+16 K=255 FIIF K=128 THEN K5==+16 K=255 FIIF K=253 THEN K1==-16 K=255 FIIF K=249 THEN K2==-16 K=)U255 FIIF K=227 THEN K3==-16 K=255 FIIF K=229 THEN K4==-16 K=255 FIIF K=224 THEN K5==-16 K=255 FIIF K=13 THEN BUF1()RLI()K=255 G=8 FIIF K=72 THEN ODB()RLI()K=255 FIIF K=116 THEN Q1=P(GR+ZN*8+B-9)P(ADR143+24)=Q1 K=255 FIIF K=52 THEN Q1=P(ADR143+24))VP(ADR144+ZN*8+B-9)=Q1 K=255 RLI()FIIF K=11 THEN Q1=RAND(0)P(GR+ZN*8+B-9)=Q1 K=255 RLI()FIIF K=75 THEN LOS()RLI()K=255 FIIF K=45 THEN ANIG()K=255 RLI()FIIF K=43 THEN ANID()K=255 RLI()FIIF K=28 THEN TE(14,15,20,"7yjsciezprogramu")TE(14,17,7,"0res)Wst")K=255 SOUND(0,35,10,2) WHILE K=255 DO SYNCH() OD IF K=45 OR K=43 THEN SOUND(0,0,0,0)EXIT FI K=255 TE(14,15,20,"")TE(14,17,7,"")FIIF K=22 THEN TRYB() K=255 FIIF K=111 OR K=175 OR K=239 THEN WGR_K(8) ZERO(40200,600))XOPGR()RKW()RLI()FIIF K=110 OR K=174 OR K=238 THEN WGR_K(4) ZERO(40200,600)OPGR()RKW()RLI()FIIF K=18 THEN K=255 TX(14,15,"domyslneustawkolorow")SOUND(0,35,10,2) TE(14,17,7,"0ressc")WHILE K=255 DO SYNCH() OD IF K=18 THEN SOUND(0,30,10,10)P(708)=8); PROGRAM "HELP ME"; TOMASZ CIE$LEWICZ 1991, 2009PROC _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]PROC _CHGSGN=*()[$85%Z$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 _CHGSGN$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 _FIXSGN $A9$00$85$86$8%\5$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$A5$82$E5$84$85$82$A%]5$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$FA$A6$86$60]PRO%^C _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=_ERRVECBYTE device=_D%_EVICPROC _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$9D$44$03$98$69$00$9%`D$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=*() [$86$A3$84$A4$20 _L%aODCHN $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 _PRECON $20 StrC $68$A2$F%bD$A0 $03$4C _DOPRNT] PROC DOPRNI=*() [$48$20 _PRECON $20 StrI $68$A2$FD$A0 $03$4C _DOPRNT] PROC PrintD=*(BYTE d CARD s) [$20 _CLREOL $4C _DOPRNT] PROC Print=*(CARD s) [$20 _SHFTR $4C PrintD] PROC _DOINPT=*() [$86$A4$84$A5$20 _LODCHN $1%c8$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$20 _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%d FUNC InputID=*(BYTE d) [$48$A9$78$85$A3$A9$01$85$A6$68$A2$FD $A0$03$4C _DOINPT] BYTE FUNC InputB=*() 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] PR%eOC InputSD=*(BYTE d CARD s) [$48$A9$FF$85$A3$68$4C InputMD] PROC InputS=*(CARD s) [$20 _SHFTR $4C 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,%f 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 Graphics=*(BYTE m)[$48$A2$60$A9$0C$9D$42%g$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$03$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 G%?j i BDOS SYSBMAB1 B CRYSTAL SND&ERUNTIME ACTkPRGR15 ACTHHELPME XEXHELPME CCF1 COLHM_KOLORKOLYRT_HM ACT>HM185 ACT;HM184 ACTRT_HM1 ACT>HM19 ACTLRT_HM BAKqBAD ACTH1 XEXGG DATGD DAT#P10 ACT#WPF ACTM@1 XEXM?1BEZMIN XEX#P11 ACT TXT ACT T_B DATMODULEBYTE ARRAY P=0PROC TX(BYTE X,Y BYTE ARRAY T)BYTE Q1 CARD Q3,Q4 Q1=T(0)Q3=40000+X+Y*40 Q4=PEEKC(@ T)MOVEBLOCK(Q3,Q4+1,Q1)[96]PROC AS()BYTE ERRCODEERRCODE=130IF ERRCODE=128 THENELSEIF ERRCODE=144 THEN TX(14,15,"bladprzerwano "=^+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*+is^+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*+it^+ig_+i*+i^+ih_+i^+i_+i^+i_+i*+i^+i_+i*+i^+i_+i`LN;Lz;(ũ;Q q+L;(; q+L;u(㉀;â q+L%<(; q+L^<(é<5 q+ 8Lt<|QRRRRRRRRRRRRRRXRE> q+L>>||: zerowaniezna |>* q+Lb>||ku|>N q+L>||& zamalowywanie|>r q+L>||znaku|> q+L>x|ARRRRRRRRRRRRRRRRD> q+L>|||>ޢ q+L?|ARRRRRRRRRRRRRRRRXRRRRRRRE? q+LJ?|||?. q+Lv?|ARRRRRRRWRRRRRRRRRWRRRWRRC?Z q+L?|||znak||? q+L?|ZRRRRRyRRXRRRRRRRRRXRRRC? q+L?ZRRRRRRRRRRRRRRRC?آ q+`L? \'+ILH@*+@++L3@^+i _+iԅLH@^+i _+iԅ`4LN@(+ s'iI@iJ@+Ȍ++LXA@mI@mJ@m+i^+e_+ez++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+`{LAA+ie( s'@eemAiii^+e_+eT`$TLB( s'BB+@mBmBii^+e_+e*+@mBmBii^+e_+e*+i@mBmB|i i^+e_+ed++*+ 'id++*+ 'IILC+@mBmBi!i^+e_+e ++*+ 'd++*+ '8媅嫅m+@mBmBi"i^+e_}+e++*+ ' "(i`QLC++*+ s'CC( s'CC++LD++LD@mCmCiim+i^+e_+e+L0DCi(CCiC+L!D++LEd~+mCe+mCm+i^+e_+e++)LD8+逍+ A+)@LE8+@+ A+) L.E8+ + A+)LJE8++ A+)LfE8++ A+)LE8++ A+)LE8++ A+)LE8++ 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`DOLF++*+ 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+m2Gm+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 HmH^+e_+e++IT +IL\I+ILH+i++ILH+i@++ILI+i ++ILI+i++IL)I+i++ILj 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