+JJJJ  / X5 ޹ lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮz"#"  1586 " 1200     !ˮ!ˮ!ˮ!ˮ"ˮ" "      ˮ ˮ ˮ!ˮ! ˮ! ˮ! ˮ  ŠũҠǠҮʠ ҮʠҮҠ ˠϠ ˮ ˮ ԮˠɠԮԠРӠ ԮĠΠ   '   ŠũҠ      ԮŠԮŠɠĠԮǠؠ ԮǠҮϠ ԮǠŠ>      11   Ϡ Š"ՠ?(Oy3f |ys U*Q"U*UANTP*P Dx{xx|gGg?~? (~(U"D DA*L0F X>~Fdg?3~P(?Q @y(`>^g:@sG @`P ?  U*@( 8[ `~Lwo??* U?(P(T  UhLy?f U oxx LFgy|gg>~? @L`?~O@ E@ ~h @os_?o_{|?@( D(@A*@ ?P(u>Gs?xpU*Q(U"@s (s?|}|gog?~? x U*@8@ ~~?Gqgy?`L#T|?"   x>~g?<~ysgOgO?`Lq@0`|ysgO?~ysg 3P @O? @D  AT "U"_ ,@0~G[oysg? 7DO?P( @T @ @ (`?f|9  @x{x<^ogy|gg>~? 0f@|sO?~|ysg T""DA"A@f~ysgO?~|ysgsg  oa~}Nyoy}oo~?@  @ <"@*@P AT `?P"A NgsxqP*U*U(BND"@ @ @ ||gg>~?@  Oy?U*D AjL0          16384,128:16368,01 n16303,0:D$"BRUN MENU"9 x: ::::255:10#1012,0/D$(4)E(D$"BRUN PICTURE"f2X(49232)(49239)(49234)<16368,0:16384,128:16368,0F:D$"BRUN MENU"P:dP16368,0:16384,128:16368,0Z:D$"BRUN MENU"d:d:x6368,0:  @yI~? Oygs`L3L?`@P"U"QbN@(**U*PU(U|y ox{8~@C'0LC>~? 3 OD*"@UA*`3( }3~E>zg?pU  @?x*`(N7~? >@*s@@~?@S P @@`~Gng?sP"? (x`3Dszp<>~_gy|gg?~?@xO@  P~ 1T? UU E@@@U_c~_~?`3`g1fL3fOys@("ET3  U*P 0(wx{x~@}d?`~pg}wg?~?  x*U*D"0~  }O~F>Fg?`W*f |y?`T ~ww? 3Nys<N20~O?~|?~| 0T*?@  @ *Q*(@`~ON=|g?`L!/ |?@]"  @qg?0^?T*  ~cOso?(>x!scP ~0  ?@ D@* @ *@@~?? xg?s@ ?*@0~O?|3f 3fL3fLs@A x{x|;~hgy|gg?~?@@p3~s"( @@`Ng?zL T? `0:4(y`C? 3~U|hL3 @0~ 0P"T?@@*U "[ !@~wc?<#D "?D"E `Lw0 f @Y*W*gLLs?Ly U@ _x{x||d?gy|gg=~?pg`?3fL3f<~"D ("P  f(T@"Dos?~~?"Q "A(  (D / L0`, ,`hhL "8"`"i"`+k l   `L L LI kl`   I Li  S  I Liڥ  I LiLҾŠĠž2"  . (P  ȱɠɍeʼn " 悦% 8 H hɠɍΩLr  .ˠР, . @(`ݺtQ. hh $% "ɍƆ)? 0  `ок%&0$惱 惠ٔ `8`Ԯ% i ((` ,ɕɊɍɈɋ ɛ  ` X?2 #ӠҠԠԠԠԠԠԠ%  #ŠԇL  d %% Ƈн%  #Π,8`%% # 0 %%ō %%ܥ%`% i ((@ɠ(@)?(` X?2 #ԠԠ2`  ΍  ҠōҠ  Ӎ #ԠҺ  ͍LR L````a %$ "hh E HH` 愱`HHh  ʰLX ʰ膊 ʰ ʰІ , Ŧ%   I Li  S  I Liڥ  I LiL?P"A NgsxqP*U*U(BND"@ @ @ ||gg>~?@  Oy?U*D AjL0 sg>~g? <?`s*Pg?>*U(U s p~? P |?@* 8~?CNs?3~ ?( ` 0 H @@??8<pC0xCC|?@ gx3DE P@~ ?P *U*(A(PD<[M"~?|c#~?@(`xT  D:xx<> _Gy|g>~?@ @(<@? D(feG>vg?pO?x *Yw~?@N *UN00~?f4  ?@@8@ Px~@n?LgD "?@(P D? |ys3f| ?0||3~<~ggy|gg?~?fC?~|3D D "@A~ 3T ? @  @ PήŠ報ά堲𠲠ήŠԠؠˍŠӶIJٯΩ΍٠ήŠҠ٧ӠōȺ報ήٺҺŠ򺍍ԠˍԠōˠԠկ̠ź̍Ԡ䮠Šծՠ믭Ս믫̍믭Ս믫̍ή󍍪ؠΠΠΠƍؠ󺍍      îŠɠĠ䧬à젲䭠ɬ嬠󮍍ɠ卍Šɠčɠ砶頱ɠ䮍笠䬠庍ɬ嬠àŮàŠԠԠ򺍠ɠ⍠󠱵Π퍍Ԯɍōՠ򠱱ԠԬɠ򮍍ɠ⠨é    ٺήǺ뮠即Ⱥ䬠ԠݮԩРҠԠ΍ȺᾠԠΠȺٺԮ䮍͠亍ҠҺҍǠ͠Р㍍Ҡ͠Ԡ͠͠Ҡᠠ͠ōԠǠҠΠ箍ĠӍìˬЬӠؠΠ̠ϱàҬԍԠڠ֠ؠٍčàˠРӠؠ㍠à箍堧ԍŠĠŮ򺍍ĠàˠРӠؠÍǠΠŠԩıݠĠ䩮ݠIJݠԠ쮍ıݠıݠҠ箍ıݠŠıݠŠӠıݠǭıݠŭıݠ宍ıݠҠҠݍ堸ķݍݠݍݍΠ򺍾ΠԠĠ˿΍νԠΠԠ٠ΠҠŠ宍Ķݠ­Ҡ䮍ij̭ݍ̭ѮĴݠҠŭ嬠ĵݠؠ٩箍ǠΠŠԠӍıĠŮԠÍIJӠŠӠŠӠΠϠōàϠРӍΠԠŠԠ̨Ԡڠ֠ԶήźΠנؠč˱ĠԠĠōǠˍẍōˠź˱άōǠˍŠԠˠ                    뮮箮宮宮堸􍠠宮󮮮򮮮宮议庍宮蠵󮩍ǍӺ宮Ӻ쮮宮報򠲠ŠҮ̠̠Ӯﮠ󡍍ŠӍ殠䮩󩬠堡Үύٍ󮍍   ĠŠǠРΠҍ殍ԠŮҠĠŮϲĠŠˮčàˠРӠؠŠ㍠Ӡà箠笠ؠᮍΠԠٿ΍٠䠠䠠򠠠堠㠠堠栠栠󠠠砠젠󠠭ҠԠؠΠ򠠠ҠԠؠΠ렠򠠠栠䠠󮠠嬍򺍍󠠠ᠨ󮠠婮󮠠󮍍Ω嬠宍堨ԩ󮠠宍ة󮍍蠨ҩ謠󮍍Ӡ󮠠󮠠󮍍Ӡ讠󮠠쮍Ӡ󮍍Ӡ󮠠뮠󠭠䍍󍭭Ӡ󮍍Ӡ󡍍󠭠󠭠󠭠󠭠󠭠宍󠭠宍󠭠󠭠堭Š̮獠卍ō򮍍󍭭󍭭󠭠󠭠󠭠砠砠Š𮍲Š𮍳Š𮍴Š𮍭蠠򠴠󮠠砠렲謠묠뮍㍭젠㠠堠卣󮍍蠠썶䍷렭占宍ɠՠԠ䍍ΠŠӠנ􍍍獭􍍱󮍍Щ箍宮렴ᠴ򮍍󍭭àȠ󮠠嬠󮠠䮠󮠠󮍍衩ͩᬠ箠宠Šӻ宍ԩ쮠䮍嬠䮍ө쮠宠嬠笠Ҡ󠭠嬠蠭󩠭󍱠򩠭捱堨欠멠嬠笠卲󩠭䬠󠳷䬠󮍍󬶠堠젠報󺍍ǩͩɩ©̩ǩ󍍠䠠󮍍򮍍󮠠󮍍ᠲ쮍젨謠嬠󮠠嬍㮍宠쮍ᠨ󮍍砨󮠠堨砳砲󮍍Πί׍ΠίԍŠïР婍ï婍ίĠίנίԠïŠïΠ̠ïЍ̠ĠïïЍΠïҠΠίč֭͠ïРïΠïΠōïЍҠԠï箍ï箍ï箍ï箍ïԠï箍ï箍ï箍ï箠ïïǠïïïΠïïïïӠïïΠïРïРïРïРȠïР箍ïР箍ïР箍ïР箍ӠïР宍ïР㮍ïР㮍ïР㮍ԠȠï箍ï箍ï箍ï箍󡍍ˠɍԠ󮍍ՠ亠ΠˮĠˮ̠򍵱卵􍍍捴却򍴷썴⍴卵㩍㩍󠽠Ҡ؍󍣠堠䠠卍덴却⍴򠫱򠫲젫젫젫젫썲썲썲썲썳썳蠫󠫱䠨㩍獲󍲳򍲴򍲵䍱䠍䠫䍹􍭭荣堠䠠卍堍䍳䠫䍵栠󠦠񭭭렠򠠠󠱠卭ɍ󍭠󍭠Ӡ􍭠젴썭Ӎ͍ԠԠɠ䍭堯㍭젳젹􍭠퍭Ӎͧ󍭠덭Ӡ덍ԠԠ󍭠젱젲젳젴ԠԠ卭獭堲젱젲Р썍ԠԠ덭젲져۠󠵮؍荭덭卭ɍ۠󠴮ԠԠӠ􍭠ۍōᠯ㍭젷򍭠ددح􍭠۠󠵮젱ԠԠ젶獭獭󍭠Ӡ荭㍭卭砶ð􍭠鍭򍭠덭۠󠴮󍍍ԠԠР덭ՠӠ䍭蠵󍭠򠳮ԠԠ젵젲쭭젳󍭠󍭠ɍ􍭠ڠԠԠ򍭠젱젴卭卍ԠԠ򠦠蠵젱젲򠲮ҍ卭󍍍ԠԠԠԠ卭젯卭ɍŮĮĮ􍭠󍭠蠵򠯯卭   ԠРӍ⠨é묠󮍍ՠ宍 ")";:Z$""?BEL(0):GOG(0):I117:L(I)BEBEL(I):GOG(I)s:37042,GO:37065:LE(37043)256(37044)1281900:Z$(13)1500@:HG,0::D$"BSAVE"N2$",A$6080,L"LE",D"N2:37042,A:37045:L(B)(37043)256(37044):G(B)A: l(16)HI(2)A5401990:LL(B):L(C)L(B)LL(C)OLL42:" B34 "L" "I(L)s2A56:B16:1990:LL(16):LL12:45:" A3 "L" "I(L)<A58:B17:1990:LL(17):LL22>" A7 "L" "I(L) TX,0:24:"RETURN: save .comp-plaatje (drive "N2L(B):L(C)L(B)LL(C)5LL18:" B32 "L" "I(L)U A28:B12:RE(8)HI(1)A361990:CB:A44:B13:RE(8)HI(2)A521990:LL(B):L(C)L(B)LL(C)LL26:" B33 "L" "I(L)A30:B14:RE(16)HI(1)A38 1990:CB:A46:B15:RE(1LL38:" B14 "L" "I(L)>A24:B8:RE(2)HI(1)A32g1990:CB:A40:B9:RE(2)HI(2)A481990:LL(B):L(C)L(B)LL(C)LL14:13:" B31 "L" "I(L):A26:B10:RE(4)HI(1)A341990:CB:A42:B11:RE(4)HI(2)A501990:L1990:LL(B):L(2)L(B)LL(2)@LL14:" B12 "L" "I(L)mA4:B4:1990:A12:B5:RE(6)HI(0)A201990:LL(B):L(4)L(B)LL(4)LL22:" B13 "L" "I(L)A6:B6:1990:A14:B7:RE(14)HI(0)A221990:LL(B):L(6)L(B)LL(6)eren";::1:"<=";:12:"=>";:25:"ESC":GI017:24576I,BY(I):nI017:L(I)65536::A0:B0:1990A8:B1:RE(0)HI(0)A161990:LL(B):L(0)L(B)LL(0)LL10:8:" B11 "L" "I(L)A2:B2:1990:A10:B3:RE(2)HI(0)A18!OHI(0):I117:RE(I)RE(I1)HI(I): ~:"boom bytes sectors byte aantal rest ":20:30256HO512" bytes bespaard":"in de eerste fase" TX,0:5:I016:HI(I)0Ė22:BY(I);:28:HI(I);:36:RE(I)*:23:"<= tekst => plaatje esc annul(37):14:N2$::"DRIVE 2"H$;:Z$:N22:Z$"1"N21:Z$p L::HG,0:N1$"PIC"ĺD$"BLOAD"N1$",D"N1",A$2000" V35584:HO((37695)64)256:ST(64096128)16128 jJ0:I25856259244:A(TS):BY(J)(I):HI(J)(I1)256(I2):JJ1:% tRE(0)HEG"6 7Z$"R"Z$"r"ĺD$"RUN DECOMPRESSOR.RELOCATOR"U <Z$"e"Z$"E"ĉ:::HI:q FZ$(21)ĹHG,0:Z$:30y Z20 :"C O M P R E S S"::"toets RETURN voor huidige hi-res page 1.":3000 N1$".COMP";:14:"";N2$:N2$""N2$N1$".COMP"9 "C)ompress een plaatje"::8:"D)ecompress een plaatje"::8:"U)itleg"::8:"R)elocator"::8:"E)inde":4000 ::8:Z$:Z$(27)Ā Z$:Z$"C"Z$"c"İ1000:20 (Z$"D"Z$"d"İ2000:20 2Z$"U"Z$"u"ĺD$"RUN PICTURE (DE)COMPRESSOR UITLi D$(4):(768)172(769)128(35585)230ĺD$"BLOAD COMPRESSOR.OBJ":D$"BLOAD DECOMPRESSOR.OBJ" L(17),G(17),HI(17),BY(17),RE(17):D$(4):H$(8):TS16336:P116300:P216299:TX16303:HG16304:16297,0:16302,0p :TX,0:34,2:12:8:h:::"_PICTURE (DE)COMPRESSOR______HANS KUIJF_":::HI(115)(116)256:8192:I(L)(L256)2 " reduceert de disk-ruimte voor plaatjes tot 35-45% van de normale 33 sektoren; i.p.v. 15 plaatjes gaan er nu ongeveer 35 op een disk!":34,8:       f ? X p X p!p Xc p^!pY"p XB p=!p8"p3#p ҌL ^hh`p `!p$p"p%p p$p!p%p L f$pg%p hi``$pf%pgh`j* p!k!pl"pm#p n 揩^  }H U  0p ?p4 & 5ۏ܏  U܏ۏe܏?`````]?  U`cd p 8`e ɀpȽppHpphppݩf8     het programma DECOMPRESSOR.RELOCATOR.":7000 ^"Deze programma's werden gepubliceerd in het tijdschrift SHIFT":(4)"RUN PICTURE (DE)COMPRESSOR": X24:1:"Druk op een toets";:16384,128:Z$:::Hste deel van de geheugenpagina vrij zijn als werkgebied. ::"De normale lokatie is $6080, maar een andere plaats halverwege een geheugen- pagina kan ook.", ::"Het DECOMPRESSOR-programma moet daarvooraangepast worden. Dat is de taak van a 1: POKE 805,32":"pagina 2: POKE 805,64 (standaard)":7000 :::"LET OP"::"Het gekomprimeerde plaatje moet in het geheugen geplaatst worden op een adres dat eindigt op $80. Dat is halverwege een 'geheugenpagina'.": "Bovendien moet het eererd plaatje om naar de oorspron-kelijke vorm."::"Het past op page 3 en wordt dan aan- geroepen met CALL 768." :"Standaard wordt het plaatje geplaatst ophires page 2. Dat kan page 1 worden door byte $325 te veranderen in $20."< ::"paginet vaak achter elkaar voorkomen van dezelfde byte." :"Welke boom (B11, B32 enz.) het beste is,hangt af van de grootte van de grootste groep en het aantal gelijkwaardig grote groepen.":7000r 5:"Het decompressor-programma zet een ge- komprimer :16300,0:16303,0:5:"Een plaatje wordt gekomprimeerd volgens een methode die is gebaseerd op 'bomen'."6 "Dat wil grofweg zeggen dat de byte die het meest voorkomt, wordt weergegeven als 1 bit. Er wordt ook gebruik gemaaktvan 'series', hoets ";:A$:oCTURE (DE)COMPRESSOR______HANS KUIJF_":::HI(115)(116)256:8192:I(L)(L256)2 " reduceert de disk-ruimte voor plaatjes tot 35-45% van de normale 33 sektoren; i.p.v. 15 plaatjes gaan er nu ongeveer 35 op een disk!":34,8:):"Er is een fout opgetreden (kode "A")."::cA(222):A4ĺ"De diskette is write-protected!"A6ĺ"Er is geen plaatje met de opgegeven naam"A8ĺ"I/O-error (deurtje open? geen disk?)A9ĺ"De diskette is vol!" 22:"Druk op een t, N1$"1"N1$"2"ĺD$"CATALOG,D"N1$:3020j (N1$,1)"."N1$N1$"COMP":(37):15:N1$:"bij unpack :"Toets RETURN voor 'default'-waarden"::N1$"PIC"ĺ"DRIVE 2"H$;:Z$:N12:Z$"1"N11:Z$ ::"Nieuwe naam? ";:.TX,0::9:A(222"=>";:25:"ESC":Pt TX,0:24:"RETURN: plaatje saven naar drive ";N2;:Z$""j 1900:Z$(13)2500( :HG,0::D$"BSAVE"N2$",A$2000,L$1FFB,D"N2: TX,0::"1 of 2 geeft CATALOG van drive 1 of 2" :"Welk plaatje? ";N1$:N1$""N1$"PIC"(N1$,5)".COMP"A$(N1$,(N1$)5):A$;F14:"";N2$:N2$""N2$A$(37):14:N2$::"DRIVE 2"H$;:Z$:N22:Z$"1"N21:Z$4::HG,0:D$"BLOAD "N1$",D"N1",A$6080":805,32:768z23:"<= tekst => plaatje esc annuleren";::1:"<=";:12:6384)128ı%Z$:Z$(21)ĹHG,0:8Z$H$ĹTX,0:JZ$(27)ġ:Pl1800:1900:Z$(27)ġr:"D E C O M P R E S S":::"Als de file eindigt op .COMP dan hoef je alleen de . (punt) te zetten.":3000:N1$"PIC"ı'A$N1$:A:768A,S::2,9,32,45,51,54,130,151,156,161:"start sourcec 76837,P:"hires page op 805=$325 18:1:"RETURN: save zoals hierboven staat"::"ESC : breek programma af, niet saven"::"anders: start programma opnieuw." V17:H1:V:H "S(A$):S4S19160\ PNA$"DECOMPRESSOR.OBJ":S96U3NA$NA$"*":"modified version Z14:1:NA$" naar welke drive? 1";H$;:DR1:A$:A$"2"DR2:2 n xI111:A:768A,U::42,61,66,72,80,83,90,95,99,102,125:"start unpack< I110:R komen (de lengte is $D0)? 3";H$;:U3:"";A$:A$""Ģ8:27:U:60_ 7U(A$):U3U19150 <10:1:"Waar wordt het '.COMP'-plaatje geladen (hier moet je ook een pagenummer geven (standaard is 96)? 96";H$;H$;:S96:"";A$:A$""Ģ12:20:S:80 AE ::255::" DECOMPRESSOR RELOCATER ":::34,2YH$(8):D$(4)D$"BLOAD DECOMPRESSOR.OBJ,A$300"(:::"Op welk hires-scherm moet het plaatje? 1";H$;:A$:P1:A$"2"P2:2E 27:1:"Op welke 'page' moet de DECOMPRESSO   `` i_ `@ `0ȹ``H h  l  LF l   ڠ&*  ``` ` ```&& H h( hh`LBA@ O  NMLKJIHGFEDCBA@ONMLKJIHGFEDCBA@ON   MLKJIHGFEDCBA@     v"! /.-,+*)('&%$#"!      '&%$#"! ' &%$#"! ' &%$#"! '& %$#"! ONMLKJIHGFEDC`ȱ^S e8_`eeT hh``MN`           /.-,+*)('&%$#"! /.-,+*)('&%$#ƔN.Zt| q^ q_ q q` q^ q_ vMm򒍳Ni8a8ye`4`M@aNy^  K ⒩ 3L K ⒥ ⒥ 3L K ʐ &` ` ` ` `````i ȱ ȝ```Ȅ`芮``M}``Ni8a `y``B`Ca=N? ,``B `i`Cy=<>? ,`}`} `8y`^td~Xj8h($LܔBv&@(`QJ4cde@5@cd4554`  eeecd`cddcꮲёrёs ` ё ґ  ``` ` `Ȧp`ȌRp0pГRpSppp`ȩ`ȩ``Ȍ``ۏ@܏LppD`9ȭ`0ȹ` ȹ` ڏL`ȭ` ȹ` ڏLз ڏei^`NOȎWXȎqrȎz{LFۏ܏` @ j}k}l}m`oo nn`SpRp?plRpə`Ȧp`ȩЙ`ȩ `ȩ`ȘiSpppSp`ȩ``ȢQp@p`Qp`Ȧp`ȌRp?pБq0phRpə`Ƚp`ȩЙ`ȩ`ȩ`Și`SpppSpȩ``Ȧ1p`Ƚ1p`Ȇo`` pj!pk"pl#pmn`0ph i i h ߦ ih0`f1pȽg1pȩhi0p0p0pʊ 02p1p1p2p0p?pL$`?p n0oA?p j@pkAplBpmCp  no?p?pа`/ `(%"0000000000(00000400000 LLL3 (`  0000000000(00000400000 L L  1000L( L `2( i d@2(000000000000(0000004000000 L} `0  x000000000000000 000000L `? EK.A4307"$ xD$"BRUN MUZIEK.A4661"? D$"BRUN MUZIEK.A4827"Z D$"BRUN MUZIEK.A4993"u D$"BRUN MUZIEK.A5159" D$"BRUN MUZIEK.A5334" D$"BRUN MUZIEK.A5472" D$"BRUN MUZIEK.A5548" :: :::::255:10%1012,01D$(4)L(10::" MUZIEK... ":g2D$"BRUN MUZIEK.A2571"<D$"BRUN MUZIEK.A2921"FD$"BRUN MUZIEK.A3091"PD$"BRUN MUZIEK.A3293"ZD$"BRUN MUZIEK.A3631"dD$"BRUN MUZIEK.A3969" nD$"BRUN MUZI tenTD$"RUN HELLO":ECOMPRESSOR RELOCATER ":::34,2YH$(8):D$(4)D$"BLOAD DECOMPRESSOR.OBJ,A$300"(:::"Op welk hires-scherm moet het plaatje? 1";H$;:A$:P1:A$"2"P2:2E 27:1:"Op welke 'page' moet de DECOMPRESSOnk 641791,169:41792,0:41793,234:41794,160:41795,U:41796,234:"BLOAD-adres is anders dan BSAVE-adres @ PRINT : PRINT CHR$ (4)"BSAVE"NA$",L$D0,D"DR",A$300"J41791,173:41792,115:41793,170:41794,172:41795,114:41796,170:"normaal terugzet^";H$;:(16384)127250T " ";:HH1:H39H1:VV2(V23):V:1:V23V17:V] 220 A$::"wacht...":A$(27)ĺD$"RUN PICTURE (DE)COMPRESSOR": A$(13)40 ,104096102567162,0:104096102567163,U:"adres unpacker te lade`K 000!!!!LjE н`! 000 dL 000dL L < < < < < < <000LD`!' 0 0 0 dȅ000000000000000000002222LD`!d2K00000000000000000000L`!ȅd00000000000000000000 L`!5ȅdn0000000000 00000 00000 LI`! `ȅ}d0000000000(00000400000 LL?!  `dF( 0000000000(00000400000 LL5!L# E000L 000`"