(\0QwIHCp SY26V#61}KALEND 9u*<LASERB Su/OTAOOPL u7!MANGA1 v@ MANGA2 wCMANGA3 wIPRSTAT |wPSETDRV xQ'KONDEM dG/Rf KONAMUS1MUSzSUKONAMUS2MUSIU8WKONAMUS3MUS O8X!KONAPIC1SC8T8aKONAPIC2SC8?KONAPIC3SC896KONAPIC4SC8]8ICP5 8.MSXBIOS VARa1MSXBIOS LIBa2 GRAPH VARa5GRAPH TYP'a6GRAPH LIB a7DEMO PASa;4 BATB,= ::(:::A$(2)( 2 ,A( N1 2̕::(((A$(N1))),:A$(N1):,:"wordt opgezocht en gestart."<: PRINT "Starten met RUN of de F5"ˀF N (A$(N1))P (A$(N1),N,)"'" N(A$(N1)): d+Z (A$(N1),N,)" " F$F$(A$(N1),N,)3d NBn (F$,)Hxp: PRINTROUTINE ******************z A$A$"*P"ڍ:A$"*L"ڑ:A$"*S"ڎҁA$"*C"C:A$"*N"C:(A$))B$A$:A$"": N(  Z (A$,N,)" " B$(A$,N):A$(A$,(A$)N):Nb NqڍC(((B$)),:B$:A$"":B$:A$"":,:"DRUK SPATIEBALK VOOR VERVOLG";"" ""::,: MENU **************************+6 :N7@: |J A$(N):A$(N)"OP=OP"ڑ"## &";N,A$(N):NN:Nڍ:|::^T J^:"Nummer programma (0=opnieuw)";h N1: N1 N1N "Onmogelijke keuze!":N :N:,r|:"MENU MCM-D20"::=: TEKSTEN ********************** *C,MSX COMPUTER MAGAZINE PROGAMMA'S,*L,DISKETTE MCM-D20,*L,*L,*N0 "Wat laat, dit maal, maar daar is dan de MCM-cassette/diskette. Met weer van alles en nog wat. Spellen, toepassingen, utility's en - alleen op disk - de KONAMI-demo.  *L,"Dat laatste is een voorbeeld van wat men allemaal zelf kan doen met een digitaliserende MSX2 - de Philips NMS 8280 - en de nodige fantasie. Overigens, deze demo was een inzending in onze programmeer-wedstrijd. *P,"Daar is deze demo buiten de prijzen gevallen, want het is nu eenmaal geen programma. Maar wel mooi, vandaar dat we hem op de disk gezet hebben.) *L,"We hebben er zelfs wat prentjes vanaf moeten snoepen, aangezien de zaak anders niet op een enkelzijdige disk zou passen. *P,*C,"OPGELET!",*N,*L,"Op deze cassette/diskette staan programma's die u niet zonder meer kan of mag gebruiken. Zonder meer eventjes uitproberen kan tot allerlei problemen leiden. "Altijd eerst de handleiding lezen, is het devies. Daarmee zult u in bijna alle gevallen die moeilijkheden kunnen omzeilen, zodat het programma het wel blijkt te doen.YL,"De Pascal-voorbeelden, om maar wat te noemen, hebben alleen maar zin als u weet wat ermee gedaan kan worden. Dus eerst het artikel uit MCM nummer 21 lezen, voor u besluit dat het niet werkt.  *L,"En zeer zeker niet meteen terugsturen! De laatste tijd krijgen we zo nu en dan diskettes en cassettes retour, omdat volgens de kopers de programma's niet zouden werken.̊ "Soms is dat inderdaad zo. We kunnen jammer genoeg niet voorkomen dat er soms materiaal in de post beschadigd raakt, door de magneetvelden waarmee de sorteer-machines van de PTT werken. *L,"Ook kan het gebeuren dat er bij het dupliceren van een cassette of diskette - wat we buiten de deur laten doen - een foutje gemaakt wordt. Het is nu eenmaal onbegonnen werk om ze allemaal te controleren. *L,"We ruilen dergelijke foute exemplaren dan ook onmiddelijk om, als iemand daar om vraagt. *L,"Minder geslaagd vinden we het echter als mensen de zaak maar terugsturen 'omdat het niet werkt', terwijl alles helemaal in orde is.t *P,*C,"PASCAL",*N,*L,"De Pascal-bestanden - waarmee men vanuit Turbo toch de BIOS kan gebruiken - zijn pure ASCII, en dus nooit in te laden onder Basic. Ze staan dan ook niet in de inhoudsopgave van deze disk of tape.> *L,"We hebben ze voor de volledigheid inderdaad ook maar op de cassette gezet, zodat u ze desgewenst kunt overzetten naar disk. Want bij ons weten werkt Turbo-Pascal alleen maar met een schijfje.Ɏ& *L,"Kortom, eerst het artikel even lezen of desnoods het vragenuurtje bellen, voordat u besluit dat de zaak niet naar behoren werkt.]0 *P,*C,"De Programma's",*L,*N,"Na deze waarschuwende woorden dan nu: de programma's. Er is weer heel wat te beleven op deze diskette/cassette.#: *P,*C,"DSORT",*N,*L,"Directory's hebben nu eenmaal de eigenschap om binnen de kortst mogelijke keren volkomen onoverzichtelijk te worden. 112 bestanden kris-kras door elkaar is een rommeltje.ĐD *L,"Tenzij u DSORT gebruikt, MCM's sorteer-programma voor directory's. Snel, makkelijk en vooral vol met mogelijkheden. Lees het artikel in MCM nummer 21.N "DSORT is er trouwens in twee smaken, allebei Basic-loaders, die het uiteindelijke ML-programma op disk aanmaken. De ene versie, DSORTB, maakt een .BIN programma dat u onder Basic kunt runnen met:X *L,"BLOAD CHR$(24)DSORT.BINCHR$(34),Rb *P,"De tweede versie, DSORTC, maakt een .COM file aan. Een DSORT-programma dat men onder MSX-DOS kan gebruiken, met het simpele commando DSORT. Zo'n .COM is voor DOS namelijk een extern commando. l *P,*C,"KALEND",*N,*L,"Een heel prettig werk-programma, waarmee u in een wip keurige jaarkalenders op de printer uitdraaien kan.fv *L,"Als het moet zelfs de kalender voor 2001! Daar kan geen zak-agenda aan tippen... *P,*C,"Laserbikes",*N,*L,"De eerste van de vele spellen uit onze grote programmeerwedstrijd die we in samenwerking met Konami-importeur HomeSoft Benelux hebben georganiseerd. *L,"Een prima en snel spel, waarbij u echter wel een tegenstander nodig heeft. Laserbikes is een twee-spelers spel.3 *P,*C,"TAO-oplossing",*N,*L,"Ons TAO-puzzeltje uit het vorige nummer heeft heel wat reacties teweeg gebracht, in de vorm van oplossingen en commentaar.ԕ *L,"Sommigen zijn er bijna gek van geworden, maar hier is de oplossing. Deze versie van TAO speelt zichzelf. Overigens, TAO voor MSX1 komt ook binnenkort.n *P,*C,"MANGA 1, 2 en 3",*N,*L,"In de algoritme-cursus stond dit keer een heel leuk bordspel, Mangala. Zaaien en oogsten, wordt het ook wel genoemd.1 *L,"Op deze diskette/cassette treft u alledrie de versies aan. Manga1 is dom, die speelt slechts random-zetten. De tweede versie is al heel wat verder ontwikkeld, dat geeft fors tegenspel. *L,"Manga3 is zelfs heel lastig om te verslaan op het hoogste niveau. De minmax-methode van zetbepaling blijkt prima te werken. *P,*C,"PRSTAT",*N,*L,"Het kleine routinetje uit de trukendoos, waarmee u even kunt kijken of de printer wel gereed is. Dat spaart dan weer een foutmelding, als men vergeten was de printer klaar te zetten.5 *P,*C,"SETDRV",*N,*L,"Eveneens uit de trukendoos, een programma om vanuit Basic de default-drive tew wisselen. Kortom, voor twee-drive bezitters, een ware uitkomst. *P,*C,"KONDEM",*L,*N,"De Konami-demo. Alleen voor MSX2, maar bloedmooi. Gaat u er maar even rustig voor zitten maar vergeet niet dat u met de spatiebalk het volgende plaatje oproept.& *L,"Petje af voor de maker, Maarten Brouwers. *P,*C,"ICP5",*N,*L,"Zoals altijd, ons invoer controle-programma. Voor de programma's op deze diskette/cassette heeft u het niet meer nodig, maar als het volgende nummer uitkomt is het weer heel handig.d *L,"Met het ICP kunt u namelijk de listings foutloos overnemen, hetgeen een hoop zoekwerk kan besparen. *P,*C,"Later",*N,*L,"Een veelgehoorde vraag over de cassette/diskette service is waarom de bestellers eventjes moeten wachten, als ze meteen na het uitkomen van het blad bestellen.  Vele lezers blijken namelijk te verwachten dat de MCM-diskette of cassette gelijk met het blad verschijnt, hetgeen juist niet zo is. *P,"We durven namelijk nooit helemaal uit te sluiten dat we - ondanks nauwkeurig controleren - ergens een foutje in een programma hebben laten zitten. Als dat zo is, dan horen we dat echter altijd heel snel via het vragenuurtje.F  "Door nu eventjes te wachten met het aanmaken van de cassettes en diskettes kunnen we dergelijke foutjes nog corrigeren. Vandaar dat u altijd eventjes geduld moet hebben.0* *L,"Gelukkig gebeurt het bijna nooit dat we echte fouten maken, maar het kan nu eenmaal gebeuren dat er eens iets niet goed blijkt te funktioneren als vele duizenden mensen het gaan uitproberen, op allerlei verschillende MSXen.4 "Temeer daar het bij sommige programma's bijna ondoenlijk is om werkelijk alle mogelijkheden uit te testen.k> *P,"Vandaar ook dat geen enkele programmeur - ook onze redactie-leden niet - ooit zijn of haar hand in het vuur zal durven steken als het erom gaat of een bepaald programma helemaal foutloos is. H *P,*C,PROBLEEMPJES?,*N,*L,"Mocht u problemen ondervinden met het laden van een of meer van de programma's op deze diskette, geef het dan niet meteen op."R "Maak uw drive schoon, met een speciale schoonmaak-diskette. Controleer de kabels, er kunnen vele redenen zijn dat het niet meteen goed gaat.\ "Even uitzetten en een half uurtje laten rusten kan ook wonderen doen, als u een wat warme computer heeft.f *L,"Als de moeilijkheden daardoor echter niet op te lossen zijn, stuurt u dan de diskette, met een beschrijving van de problemen, naar:",*Lp *P,"MBI Publications bvݢz "MCM Programma Service "POSTBUS 1392  "1000 BJ AMSTERDAMW *L,"waarna wij uw diskette zullen omruilen voor een ander exemplaar."9 *L,"Telefonische vragen over de Programma Service - maar geen technische vragen - kunt u kwijt op 020-681081, toestel 25. Leg zo kort en bondig mogelijk uit wat er aan de hand is en wij zullen proberen het te verhelpen.ब *P,*C,"Vragenuurtje",*N,*L,"Die technische vragen kunt u namelijk alleen stellen tijdens het telefonisch vragenuurtje van de redactie van MSX Computer Magazine.ƥ *L,"Elke dinsdag tussen vier uur in de middag en zeven uur s'avonds kunt u terecht op telefoon: 020-931263. Op andere dagen kunnen we u echter niet te woord staan. Per slot van rekening moeten we ook nog een blad schrijven!  *P,"Dat vragenuurtje is echter niet bestemd voor vragen zoals:= *L,"Hoe werkt de MCM database uit nummer 2? *L,"Dergelijke vragen kunt u namelijk zelf beantwoorden, door het betreffende nummer er op na te slaan. Bezit u dat nummer niet, dan kunt u dat nabestellen bij de uitgeverij. *P,*S%: PROGRAMMA'S ******************I DSORTB ' DirSort - BIN-versiem DSORTC ' DirSort - COM-versie KALEND ' Kalender-printer LASERB ' Laserbikes: SNEL SPEL֧ TAOOPL ' Oplossing TAO-puzzle$ MANGA1 ' Mangala - algoritme. MANGA2 ' cursus<8 MANGA3 ' 3 versies`B PRSTAT ' Printer-status checkL SETDRV ' Basic drive-wisselV ICP5 ' Invoer Controle ProgrammaϨ` KONDEM ' De grote KONAMI-demoۨj OP=OPX Ab I,Al I#v:SPEELT ER EEN SPELER? *********7 JAJB 4?:`A(): A WN: A(): A WN: A() :EEN SPELER VALT AF ************ȏ ҏ   I   A I,A I&" DSORT versie 1.00 (BLOAD)(K directory sorteer programmaQ(n2 MSX Computer Magazinet<F door RWLP januari 1988Zd : %: : ,,: ,EI: AZ: : AD : X()nD(X$)("&h"X$) x "DSORT";( );( );"=====": "DSORT is een programma dat geschikt is voor alle MSX 1 en 2 computers met minstens 32Kb geheugen.": ; "Het is een programma waarmee u de directory van uw MSX-disks kunt sorteren. Na een 'FILES' of 'DIR' staan de namen dan in de volgorde dieu bepaalt.": ۂ "DSORT is helemaal in Machinetaal ge- schreven, en is dus erg snel. Dit programma maakt de machinetaal-versievan DSORT op disk en/of cassette aan.": ! "Eerst programma inlezen:": " regels nog te gaan";( );@ F : F;( );I A$b G : H  AD,D((A$,GH,)): X(H)X(H) (AD): ADAD H,G܃ G : X(G)X(G)D((A$,9G,)): G" (X() X() X()) "FOUT GEVONDEN IN DATA REGEL ";F: 3 F: ,DAD *: T! "Nu de tekst voor de HELP-pagina:": " regels nog te gaan ";( ); F : F;( ); A$: (A$) G (A$): AD,((A$,G,)): T!T!(AD): ADAD: G!" AD,: ADAD: FY, T!EW "FOUT IN DATA VOOR HELP PAGINA!": e6 ,@ "DSORT staat nu helemaal in het ge- heugen, druk een toets. >";مJ "" J : A$$(): 6T "DSORT staat van &hC000 t/m &hCF15 in het geheugen. Het startadres is ook &hC000.": I^ "U kunt nu:"h "1) DSORT op cassette wegschrijven": "2) DSORT op disk wegschrijven": "3) DSORT starten (eerst wegschrijven!"چr "Maak uw keuze: ";| "" | : A$$()" A$"3"  : T() : NM$""A A$"1" NM$"cas:dsort"` A$"2" NM$"dsort.bin"x NM$"" : |~ "DSORT wordt nu weggeschreven! DSORT kan geladen en gestart worden met: BLOAD ";(");NM$;(");",R":  NM$, , $ "Klaar! Druk een toets: ";L ""  : A$$(): : TRo Nu komt de DATA met de eigenlijke Machinetaal (iets meer dan 3 Kb)"C303C4 292929 2929C9 292929 D5E529 29D119 D1C9FD 7E00DD B9D71D"9"BE00C0 FD7E01 DDBE01 C0FD7E 02DDBE 02C0FD 7E03DD BE03C0 9E20E0"&"FD7E04 DDBE04 C0FD7E 05DDBE 05C0FD 7E06DD BE06C0 FD7E07 DD5E27"ʼn0"DDBE07 C0FD7E 08DDBE 08C0FD 7E09DD BE09C0 FD7E0A DDBE0A FD9E27" :"C9FD7E 08DDBE 08C0FD 7E09DD BE09C0 FD7E0A DDBE0A C0FD7E E9DD5E"QD"00DDBE 00C0FD 7E01DD BE01C0 FD7E02 DDBE02 C0FD7E 03DDBE 23FD9E"N"03C0FD 7E04DD BE04C0 FD7E05 DDBE05 C0FD7E 06DDBE 06C0FD 23E0DD"݊X"7E07DD BE07C0 FD7E08 DDBE08 C9CD14 C03FC0 B7C9CD 14C0C9 4A3BCD"#b"CD61C0 3FC0B7 C9CD61 C0C9E9 CDD2C8 0670C5 054806 002115 356EE1"il"CF0909 7EE603 FE02C1 280510 ECC337 C405C5 3EFF32 48C205 39131E"v"480600 2115CF 09097E E603FE 022072 C1AF32 48C2C5 487990 452D5A""6F2600 291115 CF197E E603FE 022058 E52B6E 2600E5 FDE1E1 53C7A7";"E52323 CB4E28 FACB46 20F6E5 110090 2B6E26 00CD03 C019E5 0EEAF8""DDE1FD 29FD29 FD29FD 29FD29 FD192A 4DC2CD CBC0DD E1FDE1 BA2EDB"nj"301D3E FF3248 C2DD56 FFFD5E FFFD72 FFDD73 FFDD56 00FD5E 0D0F77" "00FD72 00DD73 001095 C13A48 C2B7CA 34C405 C2E9C0 C334C4 36A417"S"01A000 11E8D0 217FF8 EDB001 A00011 7FF821 8ACBED B03AAF 398E5B""FC3238 C23AAE F33239 C23E28 32AEF3 3AE9F3 323AC2 3E0F32 0B7677"ߍ"E9F33A EAF332 3BC23E 0132EA F33ADE F3323C C2CDCC 00FBCD FBCE3F"%"6C00FB CD6200 FBC93A C1FC21 0600CD 0C0032 3DC23A C1FC21 6D6904"k"0700CD 0C0032 3EC22A B7F311 080019 CD5EC2 3A3EC2 4F0608 3257D5""3E07ED 7910FC 2AB7F3 CD4FC2 06003A 3DC24F 2192D1 110004 ABBF80""ED7877 231B7A B320F7 2AB7F3 110004 19D5CD 5EC2D1 3A3EC2 3BDDD3"="4F2192 D17E23 2FED79 1B7AB3 20F6FB C90028 0F01FF 989802 D4A755""000055 593032 200000 000500 F80000 F5DDE5 FDE5CD 5000FB D90DB4"ɏ "FDE1DD E1F1C9 F5DDE5 FDE5CD 5300FB FDE1DD E1F1C9 01A000 5A98D3""117FF8 21E8D0 EDB03A 39C232 AEF33A 3AC232 E9F33A 3BC232 A2E520"U "EAF33A 3CC232 DEF33A 38C23D 2009CD 6F00FB CDC900 FBC9CD 4909F4"*"6C00FB CD6200 FBCDC9 00FBC9 06004D 6C2600 CD09C0 09ED4B F4963D"4"B3F309 CD5EC2 3A3EC2 4F1A13 ED791A B720F9 FBC921 000011 AA19C9"'>"30C3CD ACC221 170311 58C3CD ACC221 170511 68C3CD ACC221 AC07EC"mH"160711 78C3CD ACC221 170911 8AC3CD ACC221 180B11 9AC3CD 71C6DC"R"ACC221 190D11 A9C3CD ACC221 190F11 B6C3CD ACC221 1B1111 A8D130"\"C3C3CD ACC221 1B1311 CCC3CD ACC221 1C1511 D4C3CD ACC2C9 700704"?f"205468 697320 697301 E46972 F3EFF2 F42031 2E3030 206279 CDA0B1"p"01D2D7 CC2028 455343 3D6865 6C7029 0001F3 617665 01E669 B9280F"˒z"6C656E 616D65 730001 EC6F61 6420E6 696C65 6E616D 657300 943985""01F36F 727401 E46F77 6E2028 5A3E3E 412900 01F36F 727401 915861"W"F57020 28413E 3E5A29 00736F 727401 E57874 2E01E4 6F776E 3562A7""00736F 727401 E57874 2E01F5 700061 6C6C01 EE616D 657301 2E00E3"㓢"F57000 3201E3 6FEC75 6D6E00 01F56E EC6F63 6B0001 F1F569 B29CF3")"74000E 19CD7D F33249 C2C95F 32C3C3 D63032 3FC27B F511C3 72162C"o"022AB3 F319CD 5EC23A 3EC24F F1ED79 FBC337 C4CD80 C1CD5C 9E1D99""C8CDDA C3CDD2 C8CDD0 C1CDF9 C7CDD6 C7CDE2 C7CD91 C7CD81 020005""C63E02 323FC2 3E3232 C3C3CD 5CC8CD 07C8CD CCC2CD 89C6CD 17F43F"A"37C8FE 53CADA C8FE44 CADAC8 FE4CCA DAC8FE 45CADA C8FE4E CF9608""CADAC8 FE51CA DAC8FE 55CADA C8FE4C CADAC8 FE43CA DAC8FE 9D2696"͕"46CADA C82143 C23600 FE0328 91FE0C 28B2FE 323805 FE3ADA C7909C""E3C3FE 1ECAAC C5FE1F CAE3C5 FE1CCA 47C6FE 1DCA1D C6FE0B 90FAAA"Y"CA78C6 FE20CA BCC7FE 18CABC C7FE08 CAA8C8 FE7FCA A8C8FE CBB4BA""15CAA8 C8FE12 CA74C8 FE09CA 74C8FE 0DCA74 C8FE1B C237C4 9A82ED""180021 2ACC11 EA0201 000078 864779 AE4F23 1B7AB3 20F43E CB489E"+"40B9C2 37C43E D4B8C2 37C4CD 5CC82A B3F3CD 5EC23A 3EC24F 1B3A61"q$"161821 2ACC06 281528 127EB7 20093E 20ED79 10FC23 18EEED 0E4931"."792310 EECD37 C8CDD2 C8C32B C4CDC0 00FB11 4EC521 1915CD 0406E3"8"ACC2CD 37C8FE 59CA46 C5FE4A CA46C5 115BC5 211915 CDACC2 3096E8"CB"CDD2C8 C337C4 CD6DC2 0E00CD 7DF359 6F7527 726520 737572 DE1E2F"L"653F00 202020 01F1F5 697420 202020 00DDE5 D5E5DD E1DD56 395FBB"ϘV"FFDD5E 01DD73 FFDD72 01DD56 00DD5E 02DD72 02DD73 00D1DD 000C8B"`"E1C9DD E5D5E5 DDE1DD 56FFDD 5EFDDD 73FFDD 72FDDD 56FEDD 860338"[j"5E00DD 7200DD 73FED1 DDE1C9 3A40C2 B72006 CDCAC5 C334C4 0181DD"t"3D3240 C22141 C2BED2 34C435 CDCAC5 C334C4 2115CF 0670CB 20F2E3"~"462805 232310 F8C905 2323CB 46C48A C510F7 C93A40 C2FE6F 36F189"-"2006CD 04C6C3 34C43C 3240C2 2141C2 96FE13 DA34C4 34CD04 7B02E1"s"C6C334 C421F3 CF0670 CB4628 052B2B 10F8C9 052B2B CB46C4 DD1C92""68C510 F7C9CD 6EC63A 40C2B7 CA34C4 D61330 01AF32 40C23A EC42AC""41C2D6 133001 AF3241 C2C334 C40613 C5CD04 C6C110 F9C9CD 01C068"E"3DC63A 40C2FE 6FCA34 C4C613 FE7038 023E6F 3240C2 3A41C2 2247B4""C613FE 5E3802 3E5D32 41C2C3 34C406 13C5CD CAC5C1 10F9C9 1A89CE"ћ"CD81C6 CDD6C7 C334C4 AF3240 C23241 C2C93A 41C23C 2146C2 0C2E00""362021 45C236 20FE0A 380936 2F34D6 0A30FB C60AC6 302144 B83A84"]"C2773A 3EC24F 0613C5 3E1390 573A41 C28257 3A40C2 BA3E00 D173F4""20023E 803247 C2D5DD 2147C2 3E1690 6F2600 CD09C0 2323ED FCB8DB""5BB3F3 19CD5E C23A46 C2DDB6 00ED79 3A45C2 DDB600 ED793A 48FEDC"/"44C2DD B600ED 79CD70 C73E20 DDB600 ED79E1 6C2600 291114 39C995"u"CF19E5 FDE13E 20FDCB 014628 023E3E DDB600 ED79FD CB014E EAB3B5" "200D06 0C3E20 DDB600 ED7910 F71829 FD6E00 2600CD 03C011 334AC3""009019 06087E DDB600 23ED79 10F73E 2EDDB6 00ED79 06037E C00791"G"23DDB6 00ED79 10F73E 20FDCB 014628 023E3C DDB600 ED793E 208D10"("20C105 C2B0C6 FBC921 44C27E 3C77FE 3AD836 302145 C27E3C A98A2D"Ӟ2"77FE21 2809FE 3AD83E 307721 46C236 31C906 706826 002911 5212C7"<"14CF19 2BE568 26002B CD03C0 110090 197E5F E17EE6 FD777B C05EC8"_F"FEE528 05B728 02CBCE 10D8C9 3A40C2 6F2600 291115 CF193E 5A2FEE"P"01AE57 E603FE 01CA37 C472C3 34C421 15CF06 70CB86 232310 50F6EC"Z"FAC921 009011 019001 FF0D36 00EDB0 CDF9C7 CDD6C7 CD91C7 C99770"1d"C92114 CF0670 3E7090 772323 10F8C9 3E49F5 3EC3F5 D1F15F 8EF741"wn"D513D5 13D5DD E1FDE1 E1AFDD AE00AE FDAE00 FEC920 0DAFDD 665C67"x"8600FD 860086 FE7520 01C9F3 C333C8 3A43C2 3242C2 0E07CD 3A89AD""7DF3FE 3E2002 3E55FE 3C2002 3E44FE 613806 FE7B30 02D620 E277E8"I"3243C2 C92AB3 F3CD5E C23A3E C24F11 C00306 20ED41 1B7AB3 F345F4""20F9FB C90670 21F3CF CB4E28 072B2B 10F8C3 37C405 2B2B3A 087EBB"ա"40C290 D237C4 ED4416 0047CB 4E2802 16FFCD 68C52B 2B10F3 64F49E""7A3CCC D6C7C3 34C43A 40C26F 260029 1115CF 19CB4E C237C4 341436"a"E5CDD6 C7E13A 40C247 3E6F90 CA34C4 47CD68 C52323 10F9C3 04A277""34C4AF 3242C2 3243C2 C93A42 C2FE4C CA13C9 FE53CA 1EC9FE 15885C""45CA33 C9FE51 CA43C9 FE55CA 4EC9FE 43CA59 C9FE4E CA64C9 B6BB41"3"B7CA37 C4CDC0 00FBCD C000FB CDD2C8 FBC337 C43A43 C2FE46 83293B"y"C204C9 C34DCA 3A43C2 FE55CA CBCAFE 44CAD4 CAFE46 CA6FC9 4ACEAE""C304C9 3A43C2 FE55CA DDCAFE 44CAE6 CAC304 C93A43 C2FE55 5F15CB""CA1DC5 C304C9 3A43C2 FE4CCA 12CBC3 04C93A 43C2FE 4CCA1B D41C18"K"CBC304 C93A43 C2FE55 CAEFCA C304C9 CDD2C8 01000E 1114AC 142A7B""210090 EDB0CD 84CA38 630100 0E1114 AC210A 9E1ABE C2E5C9 D5B40C"פ"0B2313 78B1C2 8BC906 701100 90C53E 70904F 060021 14CF09 7AD08E""096E26 00CD03 C0010A 9E0901 2000ED B0C110 E2CD1A CACD04 EF6ACD"c""CAD2D5 C90100 0E1100 90210A 9EEDB0 CD04CA C3E5C9 CDD6C7 C039AB","CDF9C7 CD91C7 CD81C6 FBC334 C4CDC0 00FBCD C000FB CDC000 FFDC04"6"FBCDC0 00FB01 000E11 009021 14ACED B0FBC3 37C43A 4CC24F 24F9AA"5@"210090 ED5B4A C20607 3A49C2 37CD44 01FBC9 067011 200021 2452A2"{J"E09D7E B7ED52 B72815 FEE520 14E5C5 AF060A 23B610 FCC1E1 7A2927"T"B7C23E CA3600 10E2C9 057EB7 200236 E5ED52 10F6C9 CDD2C8 70A325"^"CD84CA DA70CA 01000E 110090 210A9E EDB0CD F9C7CD D6C7CD E44ECD"Mh"91C7CD 81C6C3 34C4CD C000FB CDC000 FBCDC0 00FBCD C000FB 1233CE"r"FBC337 C43A49 C2211E BA1100 000601 0EF8B7 CD4401 FBD83A 7FABED"٧|"33BA32 4CC24F 110300 FEFA28 141313 FEFB28 0EFEF8 280A13 5C9D85""13FEFC 37C8FE FE37C8 ED534A C2210A 9E0607 3A49C2 B7CD44 E6F10B"e"01FBC9 21B5C0 224DC2 C3CCC0 21BCC0 224DC2 C3CCC0 21C0C0 203209""224DC2 C3CCC0 21C7C0 224DC2 C3CCC0 CDD2C8 CDD6C7 066F21 27ACEE""15CFC5 CB4E20 0BE5CD 68C523 2310F9 E12B2B 2323C1 10EBC3 4C52DB"7"34C4CD D2C8CD D6C7C3 34C4CD D2C8CD D6C701 E00011 FECF21 1ECFF2"}"14CFED B021F3 CF0670 CB4E20 072B2B 10F8C3 34C416 003A3F 838B8F"é"C25F78 149330 FC835F DD21FE CF3A3F C247C5 3A3FC2 906F26 5043F7" "002901 14CF09 E5FDE1 1BD542 151428 1B2A3F C22600 29EBDD 0F3D61"O"7E00FD 7700DD 7E01FD 7701DD 23DD23 FD1910 ECD1C1 10CAC3 22DF31""34C453 460000 000000 000000 000000 000000 4C4600 000000 3E8253"۪"000000 000000 000000 005344 000000 000000 000000 000000 005344"!"000053 550000 000000 000000 000000 000000 454400 000000 104453"g"000000 000000 000000 004555 000000 000000 000000 000000 004555""00004E 550000 000000 000000 000000 000000 434C00 000000 164C4E""000000 000000 000000 00554C 000000 000000 000000 000000 00554C"9"000051 550000 000000 000000 000000 000000 205477 65652D 10310B"?&`0 De volgende 24 data-regels: bevatten de tekst voor deD HELP-pagina.N DEZE TEKST MOET EXACT ZOϬX WORDEN GETYPT ALS HIERb STAAT! ANDERS ZAL DSORTl NIET GOED WERKEN! v:" Twee-letter commando's/functietoetsen:"_" SF/F1 Bewaar bestandsnamen"" LF/F2 Laad bestandsnamen"" SD/F3 Sorteer aflopend"ĭ" SU/F4 Sorteer oplopend"" ED/F5 Sorteer op extensie aflopend"" EU/F6 Sorteer op extensie oplopend"G" NU/F7 Schuif alle namen omhoog"v" CL/F8 Maak kolommen (zie onder: 2-9)"" UL/F9 Haalt alle '> <' weg"" QU/F10 Quit, stop DSORT"ۮ" Een-toets commando's:"" INS/RET invoegen lege regel")" DEL/BS wissen LEGE regel"X " SPATIE vastzetten naam met '> <'"" CURSOR pagina/regel verder/terug" " HOME naar begin van de lijst"ܯ*" ESC naar deze help pagina" 4" 2-9 instellen aantal kolommen"2>" CTRL-STOP start DSORT opnieuw"^H" SHIFT-HOME drukt scherm opnieuw af"fR""\" Druk op een toets..."f""e ProgrammaϨ` KONDEM ' De grote KONAMI-demoۨj OP=OPX Ab I,Al I#v:SPEELT ER EEN SPELER? *********7 JAJB 4?:`A(): A WN: A(): A WN: A() :EEN SPELER VALT AF ************ȏ ҏ   I   A I,A I&# DSORT versie 1.00 (MSXDOS))K direcory sorteer programmaQ(n2 MSX Computer Magazinet<F door RWLP januari 1988Zd : ͷ: : %: n "DSORT";( );( );"=====": x "Deze versie van DSORT loopt op alle MSX 1 en 2 computers waar MSXDOS op loopt. Er is dus 64Kb geheugen en eendiskdrive nodig. Deze versie start dan ook uit MSXDOS.": @ "Het is een programma waarmee u de directory van uw MSX-disks kunt sorteren. Na een 'FILES' of 'DIR' staan de namen dan in de volgorde dieu bepaalt.": ʂ "DSORT is helemaal in Machinetaal ge- schreven, en is dus erg snel. Dit programma maakt het 'DSORT.COM' file op uw disk aan.": + "Steek een diskette voor 'DSORT.COM' in drive A en druk op een toets";: I$$(): , "Naar disk schrijven DSORT.COM: regels nog te gaan ";( ); "dsort.com" AS #  : T #, AS A$ă F ރI$"": F;( ); G  : I: I$I$(I): TTI: G! A$I$: #,F, F: e TFA "FOUT IN DATA!!!!!!": "dsort.com": : "DSORT staat nu op uw disk. Deze versie werkt ALLEEN UIT MSXDOS.": : "Om uit MSXDOS DSORT te starten typt u achter de prompt (de drive-letter met het '>' teken) DSORT en drukt op return.": r "Dus: A>dsort":  "DSORT zal dan geladen en gestart worden."" , 195,123,5,41,41,41,41,41,201,41,41,41,213,229,41,41,209,25,209,201,253,126,0,221,190,0,192,253,126,1,221,1906 1,192,253,126,2,221,190,2,192,253,126,3,221,190,3,192,253,126,4,221,190,4,192,253,126,5,221,190,5,192,253,126@ 6,221,190,6,192,253,126,7,221,190,7,192,253,126,8,221,190,8,192,253,126,9,221,190,9,192,253,126,10,221,190,10~J 201,253,126,8,221,190,8,192,253,126,9,221,190,9,192,253,126,10,221,190,10,192,253,126,0,221,190,0,192,253,126,1T 221,190,1,192,253,126,2,221,190,2,192,253,126,3,221,190,3,192,253,126,4,221,190,4,192,253,126,5,221,190,5,192e^ 253,126,6,221,190,6,192,253,126,7,221,190,7,192,253,126,8,221,190,8,201,205,20,1,63,192,183,201,205,20,1,201Έh 205,97,1,63,192,183,201,205,97,1,201,233,205,86,10,6,112,197,5,72,6,0,33,53,17,9,9,126,230,3,254,25r 193,40,5,16,236,195,175,5,5,197,62,255,50,108,3,5,72,6,0,33,53,17,9,9,126,230,3,254,2,32,114,193| 175,50,108,3,197,72,121,144,111,38,0,41,17,53,17,25,126,230,3,254,2,32,88,229,43,110,38,0,229,253,225,225 229,35,35,203,78,40,250,203,70,32,246,229,17,0,64,43,110,38,0,205,3,1,25,229,221,225,253,41,253,41,253,41 253,41,253,41,253,25,42,113,3,205,203,1,221,225,253,225,48,29,62,255,50,108,3,221,86,255,253,94,255,253,114,255 221,115,255,221,86,0,253,94,0,253,114,0,221,115,0,16,149,193,58,108,3,183,202,172,5,5,194,233,1,195,172,5j 1,160,0,17,8,19,33,127,248,237,176,1,160,0,17,127,248,33,170,13,237,176,58,175,252,50,92,3,58,174,243,50؋ 93,3,62,40,50,174,243,58,233,243,50,94,3,62,15,50,233,243,58,234,243,50,95,3,62,1,50,234,243,58,222,243O 50,96,3,245,58,193,252,245,253,225,221,33,204,0,241,205,28,0,251,245,58,193,252,245,253,225,221,33,108,0,241,205 28,0,251,245,58,193,252,245,253,225,221,33,98,0,241,205,28,0,251,201,58,193,252,33,6,0,205,12,0,50,97,3! 58,193,252,33,7,0,205,12,0,50,98,3,42,183,243,17,8,0,25,205,142,3,58,98,3,79,6,8,62,7,237,121 16,252,42,183,243,205,115,3,6,0,58,97,3,79,33,178,19,17,0,4,237,120,119,35,27,122,179,32,247,42,183,243 17,0,4,25,213,205,142,3,209,58,98,3,79,33,178,19,126,35,47,237,121,27,122,179,32,246,251,201,0,0,0,0[ 0,0,0,2,0,0,0,0,0,0,0,0,0,0,5,0,248,0,0,245,221,229,253,229,245,58,193,252,245,253,225,221Վ 33,80,0,241,205,28,0,251,253,225,221,225,241,201,245,221,229,253,229,245,58,193,252,245,253,225,221,33,83,0,241,205E 28,0,251,253,225,221,225,241,201,1,160,0,17,127,248,33,8,19,237,176,58,93,3,50,174,243,58,94,3,50,233,243 58,95,3,50,234,243,58,96,3,50,222,243,58,92,3,61,32,33,245,58,193,252,245,253,225,221,33,111,0,241,205,28. 0,251,245,58,193,252,245,253,225,221,33,201,0,241,205,28,0,251,201,245,58,193,252,245,253,225,221,33,108,0,241,205 28,0,251,245,58,193,252,245,253,225,221,33,98,0,241,205,28,0,251,245,58,193,252,245,253,225,221,33,201,0,241,205 & 28,0,251,201,6,0,77,108,38,0,205,9,1,9,237,75,179,243,9,205,142,3,58,98,3,79,26,19,237,121,26,183r0 32,249,251,201,33,0,0,17,168,4,205,36,4,33,23,3,17,208,4,205,36,4,33,23,5,17,224,4,205,36,4,33ґ: 22,7,17,240,4,205,36,4,33,23,9,17,2,5,205,36,4,33,24,11,17,18,5,205,36,4,33,25,13,17,33,55D 205,36,4,33,25,15,17,46,5,205,36,4,33,27,17,17,59,5,205,36,4,33,27,19,17,68,5,205,36,4,33,28N 21,17,76,5,205,36,4,201,32,84,104,105,115,32,105,115,1,228,105,114,243,239,242,244,32,49,46,48,48,32,98,121X 1,210,215,204,32,40,69,83,67,61,104,101,108,112,41,0,1,243,97,118,101,1,230,105,108,101,110,97,109,101,115,0b 1,236,111,97,100,32,230,105,108,101,110,97,109,101,115,0,1,243,111,114,116,1,228,111,119,110,32,40,90,62,62,65l 41,0,1,243,111,114,116,1,245,112,32,40,65,62,62,90,41,0,115,111,114,116,1,229,120,116,46,1,228,111,119,110rv 0,115,111,114,116,1,229,120,116,46,1,245,112,0,97,108,108,1,238,97,109,101,115,1,245,112,0,50,1,227,111,236ߔ 117,109,110,0,1,245,110,236,111,99,107,0,1,241,245,105,116,0,14,25,205,5,0,50,109,3,201,95,50,59,5,214P 48,50,99,3,123,245,17,195,2,42,179,243,25,205,142,3,58,98,3,79,241,237,121,251,195,175,5,205,128,2,205,224 9,205,82,5,205,86,10,205,244,2,205,125,9,205,90,9,205,102,9,205,21,9,205,5,8,62,2,50,99,3,62,50$ 50,59,5,205,224,9,205,139,9,205,68,4,205,13,8,205,187,9,254,83,202,94,10,254,68,202,94,10,254,76,202,94 10,254,69,202,94,10,254,78,202,94,10,254,81,202,94,10,254,85,202,94,10,254,76,202,94,10,254,67,202,94,10,254 70,202,94,10,33,103,3,54,0,254,3,40,145,254,12,40,178,254,50,56,5,254,58,218,91,5,254,30,202,48,7,254s 31,202,103,7,254,28,202,203,7,254,29,202,161,7,254,11,202,252,7,254,32,202,64,9,254,24,202,64,9,254,8,202 44,10,254,127,202,44,10,254,21,202,44,10,254,18,202,248,9,254,9,202,248,9,254,13,202,248,9,254,27,194,175,5R 24,0,33,74,14,17,234,2,1,0,0,120,134,71,121,174,79,35,27,122,179,32,244,62,64,185,194,175,5,62,212,184 194,175,5,205,224,9,42,179,243,205,142,3,58,98,3,79,22,24,33,74,14,6,40,21,40,18,126,183,32,9,62,323 237,121,16,252,35,24,238,237,121,35,16,238,205,187,9,205,86,10,195,163,5,245,58,193,252,245,253,225,221,33,192,0 241,205,28,0,251,17,210,6,33,25,21,205,36,4,205,187,9,254,89,202,202,6,254,74,202,202,6,17,223,6,33,25 21,205,36,4,205,86,10,195,175,5,205,169,3,14,0,205,5,0,89,111,117,39,114,101,32,115,117,114,101,63,0,32 32,32,1,241,245,105,116,32,32,32,32,0,221,229,213,229,221,225,221,86,255,221,94,1,221,115,255,221,114,1,221,86  0,221,94,2,221,114,2,221,115,0,209,221,225,201,221,229,213,229,221,225,221,86,255,221,94,253,221,115,255,221,114,253o 221,86,254,221,94,0,221,114,0,221,115,254,209,221,225,201,58,100,3,183,32,6,205,78,7,195,172,5,61,50,100,3ڛ  33,101,3,190,210,172,5,53,205,78,7,195,172,5,33,53,17,6,112,203,70,40,5,35,35,16,248,201,5,35,35,203I* 70,196,14,7,16,247,201,58,100,3,254,111,32,6,205,136,7,195,172,5,60,50,100,3,33,101,3,150,254,19,218,1724 5,52,205,136,7,195,172,5,33,19,18,6,112,203,70,40,5,43,43,16,248,201,5,43,43,203,70,196,236,6,16,247"> 201,205,242,7,58,100,3,183,202,172,5,214,19,48,1,175,50,100,3,58,101,3,214,19,48,1,175,50,101,3,195,172H 5,6,19,197,205,136,7,193,16,249,201,205,193,7,58,100,3,254,111,202,172,5,198,19,254,112,56,2,62,111,50,100R 3,58,101,3,198,19,254,94,56,2,62,93,50,101,3,195,172,5,6,19,197,205,78,7,193,16,249,201,205,5,8,205e\ 90,9,195,172,5,175,50,100,3,50,101,3,201,58,101,3,60,33,106,3,54,32,33,105,3,54,32,254,10,56,9,54Ҟf 47,52,214,10,48,251,198,10,198,48,33,104,3,119,58,98,3,79,6,19,197,62,19,144,87,58,101,3,130,87,58,100 7,43,43,16,248,195,175,5,5,43,43,58,100,3,144,210,175,5,237,68,22,0,71,203,78,40,2,22,255,205,236,6 43,43,16,243,122,60,204,90,9,195,172,5,58,100,3,111,38,0,41,17,53,17,25,203,78,194,175,5,229,205,90,9 225,58,100,3,71,62,111,144,202,172,5,71,205,236,6,35,35,16,249,195,172,5,175,50,102,3,50,103,3,201,58,102 3,254,76,202,175,10,254,83,202,186,10,254,69,202,207,10,254,81,202,223,10,254,85,202,234,10,254,67,202,245,10,254 $ 78,202,0,11,183,202,175,5,245,58,193,252,245,253,225,221,33,192,0,241,205,28,0,251,245,58,193,252,245,253,225,221{. 33,192,0,241,205,28,0,251,205,86,10,251,195,175,5,58,103,3,254,70,194,136,10,195,37,12,58,103,3,254,85,2028 235,12,254,68,202,244,12,254,70,202,11,11,195,136,10,58,103,3,254,85,202,253,12,254,68,202,6,13,195,136,10,58aB 103,3,254,85,202,149,6,195,136,10,58,103,3,254,76,202,50,13,195,136,10,58,103,3,254,76,202,59,13,195,136,10˨L 58,103,3,254,85,202,15,13,195,136,10,205,86,10,1,0,14,17,20,92,33,0,64,237,176,205,140,12,56,99,1,07V 14,17,20,92,33,10,78,26,190,194,129,11,11,35,19,120,177,194,39,11,6,112,17,0,64,197,62,112,144,79,6,0` 33,52,17,9,9,110,38,0,205,3,1,1,10,78,9,1,32,0,237,176,193,16,226,205,242,11,205,208,11,210,113,11 j 1,0,14,17,0,64,33,10,78,237,176,205,208,11,195,129,11,205,90,9,205,125,9,205,21,9,205,5,8,251,195,172t 5,245,58,193,252,245,253,225,221,33,192,0,241,205,28,0,251,245,58,193,252,245,253,225,221,33,192,0,241,205,28,0~ 251,245,58,193,252,245,253,225,221,33,192,0,241,205,28,0,251,245,58,193,252,245,253,225,221,33,192,0,241,205,28,0` 251,1,0,14,17,0,64,33,20,92,237,176,251,195,175,5,58,112,3,79,33,0,64,237,91,110,3,6,7,58,109,3ӫ 55,245,58,193,252,245,253,225,221,33,68,1,241,205,28,0,251,201,6,112,17,32,0,33,224,77,126,183,237,82,183,40E 21,254,229,32,20,229,197,175,6,10,35,182,16,252,193,225,183,194,22,12,54,0,16,226,201,5,126,183,32,2,54,229 237,82,16,246,201,205,86,10,205,140,12,218,72,12,1,0,14,17,0,64,33,10,78,237,176,205,125,9,205,90,9,205( 21,9,205,5,8,195,172,5,245,58,193,252,245,253,225,221,33,192,0,241,205,28,0,251,245,58,193,252,245,253,225,221 33,192,0,241,205,28,0,251,245,58,193,252,245,253,225,221,33,192,0,241,205,28,0,251,245,58,193,252,245,253,225,221 33,192,0,241,205,28,0,251,251,195,175,5,58,109,3,33,30,106,17,0,0,6,1,14,248,183,245,58,193,252,245,253| 225,221,33,68,1,241,205,28,0,251,216,58,51,106,50,112,3,79,17,3,0,254,250,40,20,19,19,254,251,40,14,254 248,40,10,19,19,254,252,55,200,254,254,55,200,237,83,110,3,33,10,78,6,7,58,109,3,183,245,58,193,252,245,253Z 225,221,33,68,1,241,205,28,0,251,201,33,181,1,34,113,3,195,204,1,33,188,1,34,113,3,195,204,1,33,192,1Ư 34,113,3,195,204,1,33,199,1,34,113,3,195,204,1,205,86,10,205,90,9,6,111,33,53,17,197,203,78,32,11,2296 205,236,6,35,35,16,249,225,43,43,35,35,193,16,235,195,172,5,205,86,10,205,90,9,195,172,5,205,86,10,205,90 9,1,224,0,17,30,18,33,52,17,237,176,33,19,18,6,112,203,78,32,7,43,43,16,248,195,172,5,22,0,58,99  3,95,120,20,147,48,252,131,95,221,33,30,18,58,99,3,71,197,58,99,3,144,111,38,0,41,1,52,17,9,229,253u 225,27,213,66,21,20,40,27,42,99,3,38,0,41,235,221,126,0,253,119,0,221,126,1,253,119,1,221,35,221,35,253α 25,16,236,209,193,16,202,195,172,5,83,70,0,0,0,0,0,0,0,0,0,0,0,0,0,0,76,70,0,0,0,0( 0,0,0,0,0,0,0,0,0,0,83,68,0,0,0,0,0,0,0,0,0,0,0,0,0,0,83,85,0,0,0,0b2 0,0,0,0,0,0,0,0,0,0,69,68,0,0,0,0,0,0,0,0,0,0,0,0,0,0,69,85,0,0,0,0< 0,0,0,0,0,0,0,0,0,0,78,85,0,0,0,0,0,0,0,0,0,0,0,0,0,0,67,76,0,0,0,0F 0,0,0,0,0,0,0,0,0,0,85,76,0,0,0,0,0,0,0,0,0,0,0,0,0,0,81,85,0,0,0,0aP 0,0,0,0,0,0,0,0,0,0,32,84,119,101,101,45,108,101,116,116,101,114,32,99,111,109,109,97,110,100,111,39ֳZ 115,47,102,117,110,99,116,105,101,116,111,101,116,115,101,110,58,0,32,32,83,70,47,70,49,32,32,66,101,119,97,97Hd 114,32,98,101,115,116,97,110,100,115,110,97,109,101,110,0,32,32,76,70,47,70,50,32,32,76,97,97,100,32,98,101n 115,116,97,110,100,115,110,97,109,101,110,0,32,32,83,68,47,70,51,32,32,83,111,114,116,101,101,114,32,97,102,1085x 111,112,101,110,100,0,32,32,83,85,47,70,52,32,32,83,111,114,116,101,101,114,32,111,112,108,111,112,101,110,100,0 32,32,69,68,47,70,53,32,32,83,111,114,116,101,101,114,32,111,112,32,101,120,116,101,110,115,105,101,32,97,102,108% 111,112,101,110,100,0,32,32,69,85,47,70,54,32,32,83,111,114,116,101,101,114,32,111,112,32,101,120,116,101,110,115 105,101,32,111,112,108,111,112,101,110,100,0,32,32,78,85,47,70,55,32,32,83,99,104,117,105,102,32,97,108,108,101 32,110,97,109,101,110,32,111,109,104,111,111,103,0,32,32,67,76,47,70,56,32,32,77,97,97,107,32,107,111,108,111 109,109,101,110,32,40,122,105,101,32,111,110,100,101,114,58,32,50,45,57,41,0,32,32,85,76,47,70,57,32,32,72 97,97,108,116,32,97,108,108,101,32,39,62,32,32,60,39,32,119,101,103,0,32,32,81,85,47,70,49,48,32,81,117d 105,116,44,32,115,116,111,112,32,68,83,79,82,84,0,32,69,101,110,45,116,111,101,116,115,32,99,111,109,109,97,110ظ 100,111,39,115,58,0,32,32,73,78,83,47,82,69,84,32,32,32,32,105,110,118,111,101,103,101,110,32,108,101,103,101H 32,114,101,103,101,108,0,32,32,68,69,76,47,66,83,32,32,32,32,32,119,105,115,115,101,110,32,76,69,71,69,32 114,101,103,101,108,0,32,32,83,80,65,84,73,69,32,32,32,32,32,118,97,115,116,122,101,116,116,101,110,32,110,97) 97,109,32,109,101,116,32,39,62,32,32,60,39,0,32,32,67,85,82,83,79,82,32,32,32,32,32,112,97,103,105,110 97,47,114,101,103,101,108,32,118,101,114,100,101,114,47,116,101,114,117,103,0,32,32,72,79,77,69,32,32,32,32,32 32,32,110,97,97,114,32,98,101,103,105,110,32,118,97,110,32,100,101,32,108,105,106,115,116,0,32,32,69,83,67,32 32,32,32,32,32,32,32,110,97,97,114,32,100,101,122,101,32,104,101,108,112,32,112,97,103,105,110,97,0,32,32,50 45,57,32,32,32,32,32,32,32,32,105,110,115,116,101,108,108,101,110,32,97,97,110,116,97,108,32,107,111,108,111,109k 109,101,110,0,32,32,67,84,82,76,45,83,84,79,80,32,32,115,116,97,114,116,32,68,83,79,82,84,32,111,112,110߼" 105,101,117,119,0,32,32,83,72,73,70,84,45,72,79,77,69,32,100,114,117,107,116,32,115,99,104,101,114,109,32,111K, 112,110,105,101,117,119,32,97,102,0,0,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,68,1146 117,107,32,111,112,32,101,101,110,32,116,111,101,116,115,46,46,46,0,0,99,112,32,39,76,39,13,9,106,112,32,122&@ 44,76,69,84,84,69,82,49,76,13,9,99,112,32,39,83,39,13,9,106,112,32,122,44,76,69,84,84,69,82,49,83J 13,9,99,112,32,39,69,39,13,9,106,112,32,122,44,76,69,84,84,69,82,49,69,13,9,99,112,32,39,81,39,13..."f""e ProgrammaϨ` KONDEM ' De grote KONAMI-demoۨj OP=OPX Ab I,Al I#v:SPEELT ER EEN SPELER? *********7 JAJB 4?:`A(): A WN: A(): A WN: A() :EEN SPELER VALT AF ************ȏ ҏ   I   A I,A I& : KALENDER9: voor alle MSX 1 en 2 computersA:_(: MSX Computer Magazineg2:o<:F: februari 1988P: door: RWLZ:dQ1(Q): Q2( ): Q3( ): Q4(" ): Q5(P )n : %: :  ,1x S(X)((X ) (X  X d))_ C$(X$)((%(X$)))X$()"K" MN$( ,),MN( ),MD(,,): F  : MN$(F,),MN$(F,),MN(F): F: KZ: KM\ januari,1,0,februari,2,31,maart,3,59,april,4,90,mei,5,120,juni,6,151,juli,7,181,augustus,8,212,september,9,243,oktober,10,273,november,11,304,december,12,334MN: (-) DATE I$: I((+) 8): I(I): MN((I$,I,))JR: (-) DATE I$: I((+) 8): I(I): JR((I$,I,))lA: C$("KALENDER"): C$("========"):  "Met de pijltoetsen kunt u de huidigemaand veranderen, (Select veranderd de maandaanduiding) als de gewenste maand geselecteerd is kunt u een functie kiezen met de functietoetsen:"8TP$"MSX": TP( ): TP TP$"GEEN MSX" TP U1$"": U2$"": D1$"": D2$"" : U1$()"X": U2$()"Y": D1$()"!": D2$()(")ڄ , : C$("F1=maandkalender op scherm"): C$("F2=maandkalender op printer")1: C$("F3=jaarkalender op printer")W: C$("F4=printer type: "TP$){: C$("F5=stop kalender"):  ,l,,,: () : () : () : () : () &: C$(((MN$(MN,KM)),(KZ))" "(,(KZ))((KZ)));( );();K" C$(MN$(MN,KM)(JR));( );c,I$: I$"" ,6I(I$): I KMKM: @ I I ,ƆJ I KZKZ(KZ): T I KZKZ(KZ): ^ KZ ,'h I MNMN( (MN )): @rMNMN( (MN))J| p I JR JRJR : " I JR JRJR : " ,Ň I JR JRJR: "ꇮ I JR JRJR: " ,: ------ Maandkalender op scherm1: "crt:" AS # #,"Nu kunt u met de cursortoetsen jaren en maanden door of terug. (op/neer voor jaar, links/rechts voor maand)": #,: #,ӈ #,);MN$(MN,KM);JRNR: : #, F  NR: #,);: : #,. F #,7& FN0: F: I(I$)s: I JR JRJR: D I JR JRJR: N I (JR MN ) JRJR(MN ): MNMN (MN ): )X I (JR MN) JRJR(MN): MNMN (MN): 3b Zl: ----- Maandkalender op printeru: "Even geduld...." "lpt:" AS #: #, #,);U1$;MN$(MN,KM);(JR);U2$͊NR: : #,܊ F  NR: #,);: : #, F #, F' #,: 1 X: ------ Jaarkalender op printerz : "Even geduld....": MOMN "lpt:" AS #: #,ԋ  #,);D1$;"JAARKALENDER";(JR);D2$: #,: #,: #,* R F4 #,);: K : MNKR: #,U1$;MN$(MN,KM);U2$;(MN$(MN,KM)));: NRK: : KX> #,: #,hH F R #,);: K : NRK: : K: #,\ F #,f Fӌp #,: #,: #,܌z R錄: MNMO : ---------------- Printer type, TP TP< ,,,,TPF m: --- Stop Kalender (herstel...) Q1: Q5: Q2,Q3 Q4 :  Ǎ "KALENDER is gestopt": : ---- Eigenlijke rekenroutines8 F : G : MD (NR,F,G): G,F8BDG: MN  DGML MN DGDGiVDGDG: MN j`DG: S(JR) DGjDT(JR)mގtDTDT(JR)(JR)d(JR@): WKDT: DJDTS(JR)~DTDTMN(MN) S(JR) MN DTDT: WKWK?WK(((DT(WK(WK)))WK))fDTDT(DT): DJDJ(DJ){ DJ WKWKCL F DG MD(NR,CL,DT)F: DTDT DT DT: MD(NR,CL,)WK: WKWK: CLCL F DT MD(NR,CL,)WK:: ------- Printen regel naar #1s #,("week ma di wo do vr za zo",F,); G ( MD(NR,G,F) #, "###";MD(NR,G,F); : #," ";א2 G: #," ";ݐ<F: ---- Wacht op toets (naar I$)dI$: I$"" d4nI$: I$"" n:x`A(): A WN: A(): A WN: A() :EEN SPELER VALT AF ************ȏ ҏ   I   A I,A I& laserb, laserbikes A *************************b( * *2 * LASER BIKES *< * *ŀF * MSX COMPUTER MAGAZINE *P * *Z * Copyright 1988 *'d * *Gn *** (c) EESO ***gx * * * by M.C. v/d Kooij * * *ǁ *************************ށ ,,: : :MACHINETAAL+CONTROLE ***********  " I - A$A A("&H"A$)O CHCHA[ I,Ac Iz CHEC " : : ,,: % "DATA FOUT IN REGELS 2710 TOT 3190"ǂӂ" ߂, 6 @ J V+T:INITIALISATIE ******************9^ , Ch AZZrJ$()"Cursor "q|J$()"Joystick 1"J$()"Joystick 2"JA: JB I  NM$(I)"M.S.X."Ճ SC(I)(I)݃ I   I  A$"" II  B$= A$A$(("&H"B$))H IIX SP$(I)A$` I:OPENINGSSCHERM *****************& 0A():D  N I  7ɄX I$߄b I,("&H"I$)l IvI$"" I  I$I$(I) I+  , ;  , M I@ G[ I, Uc Iu I  I,  I " Copyright by ";I$ͅ " ( (( ((( (((( (((  " ( ( ( (( ( ( ( " ( ( ( (( (((( (((-  " ( (((( ( ( ((M* " ( ( ( ( ( ( (n4 " (((( ( ( ((( (((( ( (t>H " !!! !!!! ! ! !!!! !!!R " ! ! !! ! ! ! !ӆ\ " !!! !! !! !!!! !!f " ! ! !! ! ! ! !p " ! ! !! ! ! ! !5z " !!! !!!! ! ! !!!! !!!F  , V I b ,Ir ( );z I , "Speler 1:";J$(JA) ,‡ "Speler 2:";J$(JB)͇ , "Starten met vuurknop"A() I dL () () () , , , , , , , r () () ()   II d: II$ ,. "Speler 1:";J$(JA)8 ,ڈB "Speler 2:";J$(JB)L IV I ` ,Ij ( );t I!~ ,/ I ^ " \ \ : #####";NM$(I);SC(I) () () ()   I I ‰ () () ()  ʉ Iԉ JAJA: JA JA: : JBJB: JB JB: : >JAJA: JA JA: : bJBJB: JB JB: : h :SPEL SCHERM/SPRITES *********** , (,)(,),,BNJ( "GRP:" AS #֊2 ( ,),< #,"SC:00000"F (!,), P #,"SC:00000"Z %d (,),Bn #, "HI:#####";SC()Jx Y (,),v #, "HI:#####";SC()  (,), #, "HI:#####";SC() ‹ (,),ߋ #, "HI:#####";SC() #  I  $(I)SP$(I) I$  4 I ? I$\" I,("&H"I$)d, Ix6 I  @ II J p III, 1T p III, !Ԍ^ p III, h p III, r IA : IA| II I, I 8 I,@ IUR(())aAD! ]:SPELER 1 ********************** ,(d,P),,R AD!,JA ::JOYSTICK؍ AD!,R ::RICHTING AD!,d ::X-AS  AD!,P ::Y-AS0:SPELER 2 **********************ER(())[ ,(,}),,Rx AD!,JB ::JOYSTICK& AD!,R ::RICHTING0 AD!, ::X-ASŎ: AD!,} ::Y-ASώD  ގN I  X Ab I,Al I#v:SPEELT ER EEN SPELER? *********7 JAJB 4?:`A(): A WN: A(): A WN: A() :EEN SPELER VALT AF ************ȏ ҏ   I   A I,A I&: ANDERE SPELER GAAT VERDER ****M A(): A(WN): A *W  ~ :ANDERE SPELER VALT AF ********** : V 4: 1 SPELER SPEL ****************א>A(): A WN: pHA(): A WN: pRA()\ >5f:DE EERSTE KEER AF *************?p Iz  X I  b An I,Av IA(): I : I: A(WN): A * ޑ:DOOD **************************   I   A  I,A I  ,7- NWN A I  M ,,I[$ N,,Is. II : II{8 IB L :SPEL UIT **********************V A()` ,ʒj A()Ԓt ,~ "SPELER"WN" WINT !!!!!" :SCORE UITLEZEN+PRINTEN ********& SC$""8 I S SC$SC$((I)0)[ Ij SC(SC$)p "Uw score: #####";SC :HI SCORE TABEL? ***************˓ SCSC() x ѓ "Wat is uw naam:"; II$"" I  I$$(), I$( ) Z |( I$() I II: II$(II$,I): I, : " ";();:  2 I$" " I$"A" I$"z"  < I$;ÔF II$II$I$˔P IٔZ I d SC(I)SC SC,SC(I): II$,NM$(I) n I"x I  : I, &S :MACHINE TAAL ******************w C3,0C,D0,C3,16,D0,C3,8E,D0,C3 69,D1,06,04,C5,CD,16,D0,C1,10 F9,C9,11,8D,D0,06,05,1A,3C,12㕴 FE,0A,20,05,AF,12,1B,10,F4,06 05,11,37,00,DD,21,89,D0,C5,21+ 86,D1,DD,7E,00,FE,00,28,3B,21O 8E,D1,FE,01,28,34,21,96,D1,FEs 02,28,2D,21,9E,D1,FE,03,28,26 21,A6,D1,FE,04,28,1F,21,AE,D1 FE,05,28,18,21,B6,D1,FE,06,28ߖ 11,21,BE,D1,FE,07,28,0A,21,C6 D1,FE,08,28,03,21,CE,D1,01,08' 00,D5,CD,5C,00,D1,06,08,13,10K FD,C1,DD,23,10,A8,C9,00,00,00o" 01,01,DD,21,5D,D1,3A,F8,F7,FE, 02,CC,D9,D0,CD,A7,D0,CD,DE,D06 CD,32,D1,CD,0D,D1,C9,DD,7E,00ۗ@ CD,D5,00,FE,00,C8,FE,01,28,0DJ FE,03,28,0F,FE,05,28,11,FE,07#T 28,13,C9,3E,01,DD,77,01,C9,3EG^ 02,DD,77,01,C9,3E,03,DD,77,01kh C9,3E,04,DD,77,01,C9,DD,21,63r D1,C9,DD,7E,01,FE,01,28,10,FE| 02,28,14,FE,03,28,18,DD,7E,02ט 3D,DD,77,02,C9,DD,7E,03,3D,DD 77,03,C9,DD,7E,02,3C,DD,77,02 C9,DD,7E,03,3C,DD,77,03,C9,DDC 4E,02,06,00,DD,5E,03,16,00,CDg 0E,01,CD,11,01,CD,1D,01,FE,0F 20,05,3E,05,32,F8,F7,3E,0F,CD 1A,01,CD,20,01,C9,3A,F8,F7,21ә 00,1B,FE,02,CC,59,D1,DD,7E,03 3D,3D,3D,3D,CD,4D,00,DD,7E,02 3D,3D,3D,23,CD,4D,00,DD,7E,01? 23,CD,4D,00,C9,21,04,1B,C9,00c 00,00,00,00,00,00,00,00,00,00 00,3A,AF,FC,FE,01,C0,21,00,00 11,00,08,CD,4A,00,47,CB,2F,B0Ϛ CD,4D,00,23,CD,20,00,20,F0,C9 :KARAKTERS VAN DE CIJFERS ******& 00,30,48,58,78,68,48,30,00,20>0 60,20,20,20,20,70,00,20,50,10b: 20,40,40,70,00,20,50,10,20,10D 50,20,00,40,40,50,50,70,10,10N 00,70,40,40,60,10,50,20,00,20ΛX 50,40,60,50,50,20,00,70,10,10b 30,10,10,10,00,20,50,50,20,50l 50,20,00,20,50,50,30,10,50,20v 00F :EESO **************************d FF,C0,60,3F,30,18,18,0F 8F,0C,06,83,03,01,01,F8 F8,00,00,F8,00,80,80,FF FF,C0,00,3F,30,18,18,8Fܜ 8F,CC,C6,E3,03,01,19,F8 F8,0C,0C,06,06,83,81,FF 00,00,00,00,00,00,80,80? :SPRITE'S **********************] 10,10,38,28,10,00,00,00{ 00,00,18,2E,18,00,00,00 00,00,10,28,38,10,10,00 00,00,30,E8,30,00,00,00ޝ :SOUND VOOR IN HET VELD ******** 0,24,0,23,0,25,0,29,16,15,13,0,10,140 :SOUND VOOR ALS MEN DOOD GAAT **M 29,63,16,0,0,106,100,1(,}),,Rx AD!,JB ::JOYSTICK& AD!,R ::RICHTING0 AD!, ::X-ASŎ: AD!,} ::Y-ASώD  ގN I  X Ab I,Al I#v:SPEELT ER EEN SPELER? *********7 JAJB 4?:`A(): A WN: A(): A WN: A() :EEN SPELER VALT AF ************ȏ ҏ   I   A I,A I& TAOPZ, Tao-puzzles < MSX COMPUTER MAGAZINEB(2: initialiseren *************************************************************< : F: h܀F "spel 1 of 2";SP%: SP% SP% FP ,: A(,): AZ: "grp:" AS #Z : :kader6d F: :zet schijvenRn : :stel array opgx : :cursor ,(X ,Y ),CO "bm182,50": #,"MCM's": "bm182,60": #,"Tao" "bm182,70": #,"schuif-": "bm182,80": #,"puzzle";SP1 "bm190,110": #,TL: "bm184,120": #,"zetten"L (,j)(,),,B: hoofdlus ***************************************************************** : : resets ZF I$$(): RI(I$) : I$: RI(I$) (I$)  RI RI K RI V1 V1: CO : V1:COf RI h,,, ,(X ,Y ),CO݃ V1 V2 P0 TLTL: "bm190,110": #,TL: RI D,,, :  :: resetten vlaggen en hulpvariabelen ***************************************c"CC: XL: YL: V2: F1: F2,P0A(Y,X): P4A(Y,X): P7A(Y,X): P8A(Y,X)6KL(X ,Y )@ P0 YL: F2> : P0 XL: YL: F1>: F2> : P0 XL: F1>JaT: cursor beweging **********************************************************u^: naar rechtshP5A(Y,X): P9A(Y,X)r XL P4 : P4 XX: CCP4: : : YL (YL P8) XX: V2: i| XL P5 : P5 V1 XX: CCP5: : : YL (YL P9) XX: V2:  XL XX: : XX: : naar linksP3A(Y,X): P6A(Y,X) P3 : P3 XX: CCP3: : : YL (YL P6) XX: V2: (XX: 7: omhoogVP1A(Y,X): P2A(Y,X) P1 : P1 YY: CCP1: : : XL (XL P2 ) YY: V2: ‡YY: ч: omlaagQ1A(Y,X): Q2A(Y,X)X YL P7 : P7 YY: CCP7: : : XL (XL P8) YY: V2:  YL Q1 Q2 P0 j : : Q1 V1 YY: CCQ1: : : XL (XL Q2) YY: V2:  YL YY: : YY: : cursor-correctieZ CC YY : CC YY: XX : CC XX`&0: array bijwerken **********************************************************̉:: blok naar rechtsD P0 N,X,b,l: N R: A(Y,X),A(Y,X):?X f: R: z: A(Y,X),A(Y,X): Sb f: R: `l R: xv: blok naar links P0 ,,,:  f: z: 銔 f: z: A(Y,X),A(Y,X): A(Y,X),A(Y,X) f: A(Y,X),A(Y,X):  f: 2: blok omhoogP P0 ,,,: r H: A(Y,X),A(Y,X):  H: A(Y,X),A(Y,X): p: A(Y,X),A(Y,X)ˋ H: p: ؋ H: : blok omlaag  P0 , ,*,4:  H: \: P  H: \: p: A(Y,X),A(Y,X): t* \: A(Y,X),A(Y,X): 4 \: >: meest voorkomende swapsH A(Y,X),A(Y,X): ӌR A(Y,X),A(Y,X): \ A(Y,X),A(Y,X): f A(Y,X),A(Y,X): "p A(Y,X),A(Y,X): ?z A(Y,X),A(Y,X): : beweeg de schijven *******************************************************C1: C2KL RI ,,,: 䍢X1X : X2X1F1: Y1Y  RI (P0 P0) Y2Y1?: T< RI (P0 P0) Y2Y1: Tg RI (P0 P0) Y2Y1?: T RI (P0 P0) Y1Y1 : Y2Y1: T K Ύ (X1,Y1TK)(X2,Y1TK),C2 (X1,Y2TK)(X2,Y2TK),C1!Y1Y : Y2Y1F2: X1X &V RI (P0 P0) X1X1 : X2X1: T RI (P0 P0) X2X1?: T$ RI (P0 P0) X2X1: Tُ. RI (P0 P0) X2X1?: T8 K  B (X1TK,Y1)(X1TK,Y2),C2.L (X2TK,Y1)(X2TK,Y2),C14V:`Hj: eindejtTLTL: "bm190,110":#,TL~X1X : X2X1F1: Y1Y 5: Y2Y1= K \א KA KF C1 : KF C1 (X1,Y1K)(X2,Y1K),C2 (X1,Y2K)(X2,Y2K),C1/ I : : a "bm182,140": #," ": W 2:  "bm182,140": #,"gelukt!" "bm30,194": #,"verder spelen ?"K$: K$"j" : K$"n" : 8: kader-opbouw ************************************************************l  ( ,)(,),,BF: (!,)(,),,BF (&,)(,),,BF SP (&,)(f,),,BFђ( SP (F,)(,),,BF2X: Y: V1: CO: ?<: blok-opbouw *************************************************************hF SP EE:  : EE : P I EE: G1,G2,KZ SP I F1>: F2> : I I I I F1>: F2 : I I F1: F2> : F1: F2td SP I I I I F1: F2> : I F1>: F2> : I F1>: F2 : F1: F2n (G1,G2)(G1F1,G2F2),K,BFx: : besturings-array invoeren *********************************************** SP 6 : J8 J : I : A(J,I): : \ SP A(,) : A(,) J : I : R1: A(J,I)R1: : 䕾: maak cursor ************************************************************* ^ I : P$: S$S$((P$)): $$()S$*b: aanvangs-positie en kleur van de schijven tao 1 39,25,8,103,25,2,103,57,12,39,89,7,71,89,7– 39,121,11,71,121,11,103,121,2,103,153,12: aanvangs-positie en kleur van de schijven tao 2, 39,25,3,39,89,12,71,25,6,135,25,3,135,89,12a" 71,89,11,71,121,7,103,121,7,39,153,9,135,153,9z,: celwaarden tao 16 2,6,3,6,5,7,3,6,4,4,0,0,1,1,3,6,5,5,3,6@: celwaarden tao 2J 1,2,6,1,5,5,7,5,1,3,6,1,5,4,4,5,4,0,0,4 T: sprite data cursor'^ 0,224,192,160,16,8,4,2Ch: uitleg en bedieningMr p| I : T$: T$: : :  "MCM biedt u twee moeilijke schuifpuzzles." "Het is de bedoeling het grote blok de grijze balk te laten passeren." "De blokjes kunnen - indien mogelijk - bewogen worden door ze met de blauwe cursor-pijl aan te wijzen en de gewenste richting te kiezen."除 "Door op de spatiebalk te drukken wordt de cursorpijl wit en bewegen de blokjes niet meer mee."* "Door nogmaals te drukken verschijnt de blauwe pijl weer."x "Na het indrukken van de select-toets zal de puzzle zichzelf oplossen."ʚ: data-regels voor zelf spelen ********************************************ZF: TL:  : F:   SP  : X':oplossing tao 1m 4,1,1,1,5,2,2,2,5,1,1,3,2,4,1,3,2,2,4,1,3,5,4,4,5,3,1,5,2,2,5,1 4,2,3,3,1,4,2,5,1,1,5,2,4,1,2,5,1,3,3,5,4,4,5,3,3,3,5,4,4,2,3,1 4,2,3,1,4,2,3,3,1,4,2,4,1,2,5,1,1,5,2,3,5,4,2,5,1,1,3,2,4,1,3,2? 2,5,1,1,1,5,2,2,5,1,3,5,4,5,3,3,5,4,5,3,2,5,1,1,4,2,3,5,4,4,5,3 5,4,2,5,1,3,2,4,1,3,2,4,1,3,3,5,4,4,4,5,3,3,5,4,2,5,1,5,2,3,5,4˜& 4,5,3,1,5,2,3,5,4,1,1,5,2,2,5,1,5,3,4,5,3,2,5,1,1,5,2,2,2,5,1,10 4,2,3,1,4,2,2,5,1,3,5,4,1,5,2,2,5,1,3,1,4,4,2,3,3,5,4,1,5,2,5,1W: 1,5,2,5,1,3,5,4,4,5,3,3,3,5,4,4,5,3,2,5,1,3,1,5,2,2,5,1,4,2,3,3D 5,4,1,5,2,5,1,4,1,5,2,3,5,4,4,5,3,5,4,2,5,1,1,5,2,3,5,4N: oplossing tao 2X 4,4,1,3,3,2,4,1,3,2,5,1,4,5,3,1,4,2,3,1,4,2,3,1,4,2,3,1,4,2,3,1;b 4,4,2,3,1,4,5,3,2,2,5,1,1,4,2,3,2,5,1,4,4,5,3,3,1,4,2,5,1,1,5,2l 4,5,3,3,5,4,2,3,1,1,5,2,2,2,5,1,1,4,2,3,2,4,3,5,4,1,1,5,2,2,5,1ɞv 1,1,5,2,2,5,1,3,5,4,5,3,3,5,4,1,5,2,2,5,1,4,2,3,3,2,4,1,3,5,4,1 5,2,2,5,1,1,3,5,4,2,3,1,4,4,2,3,1,5,2,2,5,1,5,4,2,5,1,5,2,2,5,1W 3,2,4,4,1,3,2,5,1,4,4,5,3,3,5,4,4,4,5,3,3,5,4,4,4,5,3,3,1,4,2,3 5,4,2,5,1,1,5,2,2,3,5,4,1,4,5,3,3,5,4,1,3,2,2,5,1,1,4,5,3,2,5,1埞 4,4,5,3,3,5,4,2,5,1,4,2,3,3,1,4,2,5,1,1,5,2,4,5,3,3,5,4,5,3,3,1, 5,4,2,5,1,1,5,2,5,1,4,4,5,3,3,5,4,2,5,1,5,2,3,5,4,5,3,3,5,4,2,3s 1,4,2,3,5,4,4,5,3,5,4,1,5,3,5,4,1,5,2,2,5,1,3,5,4,2,3,1,1,4,2,3 1,5,2,3,5,4,4,5,3,3,3,5,4,4,1,3,2,5,1,1,5,2,4,1,3,3,2,4,1,3,5,4 4,5,3,5,4,2,5,1,1,5,2,3,5,4,2,5,1,3,3,5,4,4,1,3,2,5,1,3,5,4,4,5H 3,3,3,5,4,4,5,3,3,2,5,1,5,2,2,5,1,5,2,2,5,1,4,2,3,3,5,4,1,5,2,5 1,4,1,5,2,3,5,4,4,5,3,5,4,2,5,1,1,5,2,2,2,5,1,1,5,2,3,5,4,1,3,2ȡ 2,5,1,1,1,5,2,2,5,1,4,5,3,5,4,4,5,3,1,5,2,2,5,1,4   I   A I,A I& MANGA1. MANGALA-Spel met deG( Random-Zet-MethodeM2i< MSX Computer MagazineoFyP AZZ BR( ),SC()d:n: functie om te testen ofрx: een kommetje leeg is耂 EMP (I)BR(I):: functie om te testen of.: het spel afgelopen isN KLR(X) (SC()SC())bV:n : $: X() ER ER B:Á: interval timing routine؁ T1 T1T1ށ: : initialisatie van het bord" I  &, BR(I).6 IT@SC(): SC() :scores op nulZJbT:^: het afdrukken van het bordh :eerst een schoon schermr:̂|: de computer-kommetjesۂ " /--\" " |##| COMPUTER"; SC()  " \--/": ( I  > " ## "; I;F IL` I  q "/--\ ";y I I   "|##| "; BR(I); Iσ& I  0 "\--/ ";: ID: N:X: en nu de speler kommetjes)b I :l "/--\ ";Bv IHV I p "|##| "; BR(I);x I~ I  "\--/ "; I I τ "## "; I;ׄ I:  : "/--\"  : "SPELER |##|"; SC()* : "\--/"0 8*:[4: een kommetje "Z" uitzaaienh>LAATSTZtHNBR(Z)RBR(Z)\ I Nf LAATST(LAATST)Džp BR(LAATST)BR(LAATST)υz Iׅ:: score van de "WIE" bepalen BR(LAATST) # I  G BR(I) BR(I) e SC(WIE)SC(WIE)BR(I)u BR(I)} I:: controleren of een speel-Æ: helft leeg is؆FWIE: LEEG IF F LEEGLEEG EMP(I)  I$.:48: Het hoofdprogrammaPB  : bord opzettenuL KLR()  :einde spel!}V:`: speler aan zetj: controleren of niet alle؇t: speler kommetjes leeg zijn~WIE :speler aan de beurt  :kommetjes leeg?) LEEG F ^ : bord afdrukkenN:m: de speler zet opvragen ,: "Uw Zet"; Z Z(Z) Z Z : ψ EMP(Z) :  * :zaaien + score testen:: computer aan zet6: controleren of niet alle[ : computer kommetjes leeg zijn~WIE :computer aan de beurt  :kommetjes leeg?( LEEG L2:ԉ< ^ :bord afdrukken܉F:P: de computer zet bepalenZ Z(())*d EMP(Z) ZNn ,: "Ik zet ##..."; Zlx T1 :even wachten... T1 : * :zaaien + score testen L׊: einde van het spel... ^ :bord afdrukken4,4,5H 3,3,3,5,4,4,5,3,3,2,5,1,5,2,2,5,1,5,2,2,5,1,4,2,3,3,5,4,1,5,2,5 1,4,1,5,2,3,5,4,4,5,3,5,4,2,5,1,1,5,2,2,2,5,1,1,5,2,3,5,4,1,3,2ȡ 2,5,1,1,1,5,2,2,5,1,4,5,3,5,4,4,5,3,1,5,2,2,5,1,4   I   A I,A I& MANGA2. MANGALA-Spel met deD( MINIMAX-methodeJ2f< MSX Computer MagazinelFvP AZZ BR( ),SC()d STK(d)n:x: functie om te testen of܀: een kommetje leeg is EMP(I) BR(I):: functie om te testen of9: het spel afgelopen isY KLR(X) (SC()SC())ba:: functie voor maximum en: minimum van (x,y) MX(X,Y)(XY)X(XY)Y݁ MN(X,Y)(XY)Y(XY)X: : $: X() ER r ER (:@": niveau opvragenF,Q6  ,b@ "MINI-MAX"mJ , T "Kies het niveau (1,2,3)"; NIVO^ NIVO NIVO : Jh  Ƃr:|: interval timing routine T1 T1T1 :,: initialisatie van het bord; I  I BR(I)Q IwSC(): SC() :scores op nul}:: het afdrukken van het bordʃ :eerst een schoon scherm҃:: de computer-kommetjes " /--\"  " |##| COMPUTER"; SC()/& " \--/"80: L: I  bD " ## "; I;jN IpXb I  l "/--\ ";v I I  ф "|##| "; BR(I);ل I߄ I   "\--/ ";  I: :?: en nu de speler kommetjesM I ^ "/--\ ";f Il z I   "|##| "; BR(I);* I4> I H "\--/ ";ɅR Iυ\݅f I p "## "; I;z I:  : "/--\"; : "SPELER |##|"; SC()N : "\--/"T\:: een kommetje "Z" uitzaaienLAATSTZNBR(Z)BR(Z) I N͆ LAATST(LAATST) BR(LAATST)BR(LAATST) I:: score van de "WIE" bepalen:$ BR(LAATST) `I. I  m8 BR(I) BR(I) VB SC(WIE)SC(WIE)BR(I)L BR(I)V I`j:Ӈt: controleren of een speel-~: helft leeg isFWIE: LEEG IF F( LEEGLEEG EMP(I)0 I6>:`: de variable-stack-routine: =========================: een speciale routine dieň: de volgende variabelen op: een stack bewaard -: : - MNX, de minimax score' : - ZMX, de zet bij MNXH: - Z, de onderzochte zetP:r(: B geeft het begin van het2: huidige deel van de stack<: S geeft de eerste vrijeщF: plek in de stackىP:ZSTK(S)B: BS: SSdSTK(B )MNXnSTK(B)ZMX%xSTK(B)Z+3:R: de var-unstack-routineq: ======================: maakt de gegevens van de: vorige var-stack aanroep̊: weer beschikbaarԊ:Z STK(B)ZMXSTK(B)MNXSTK(B )SS: BSTK(S)!):G: de bord-stack-routinee: =====================": een speciale routine die,: het bord en de score op‹6: een stack bewaard -ʋ@:J: B geeft het begin van hetT: huidige deel van de stack0^: S geeft de eerste vrijeKh: plek in de stackSr:o|STK(S)B: BS: SS~ I   STK(BI)BR(I) ISTK(B)SC()ÌSTK(B)SC()Ɍь:: de bord-unstack-routine: =======================2: maakt de gegevens van deT: vorige bord-stack aanroepm: weer beschikbaaru:SC()STK(B)SC()STK(B) I  & BR(I)STK(BI)ɍ0 Iލ:SS: BSTK(S)DN: X: de zet-onderzoek-routine.b: ========================Ll: dit is een recursievepv: routine, hij roept zichzelf: aan zolang de variabele: NIVO groter is dan 0.:Վ: de routine levert op -ݎ:: NSC - nieuwe score afhankelijk: van "WIE"C: 0- de laagste score voor]: "speler": 1- de hoogste score voor: "computer": NIVO *ӏ NSCSC()SC()  KLR() NSCb(NSC)  :*: de variabele MNX?4: een startwaarde geven.a> WIE MNXc : MNXcnH ZMXvR:\ ZWIE WIEf NIVO, Z("0")p:ڐz: als het kommetje leeg is,: hoeft er niet te worden : gezaaid.# EMP (Z) j +:G  :bord stackO:m  :zaai + scoreu:: recursie voorbereiden NIVONIVO WIEWIEՑ  :stack vars N :zichzelf  :unstack vars! WIEWIE5 NIVONIVO=$ :b. : het beoordelen van de score8 WIE MNXMX(NSC,MNX) : MNXMN(NSC,MNX)B NSCMNX ZMXZL :ْV  :unstack bord` :j Zt NSCMNX~  :" : Het hoofdprogramma=  :bord opzettenE :a : dit is de hoofd-lus KLR()  :einde spel! : : speler aan zetƓ : controleren of niet alle : speler kommetjes leeg zijn WIE :speler aan de beurt' j :kommetjes leeg?: LEEG P X  :bord afdrukkenw : de speler zet opvragen ,: "Uw Zet"; Z( Z(Z)2 Z Z :  ٔ< EMP(Z) :  F  :zaaien + score uitrekenenP : computer aan zet0: R: I  hD " ## "; I;pN IvXb I  l "/--\ ";v I I  ׄ "|##| "; BR(I);߄ I儨 I    "\--/ "; I: #:E: en nu de speler kommetjesS I d "/--\ ";l Ir  I   "|##| "; BR(I);* I4> I DžH "\--/ ";υR IՅ\f I p "## "; I;z I :  : "/--\"A : "SPELER |##|"; SC()T : "\--/"Zb:: een kommetje "Z" uitzaaienLAATSTZNBR(Z)BR(Z) I Nӆ LAATST(LAATST) BR(LAATST)BR(LAATST) I:$: score van de "WIE" bepalen@$ BR(LAATST) `O. I  s8 BR(I) BR(I) VB SC(WIE)SC(WIE)BR(I)L BR(I)V I`j:هt: controleren of een speel-~: helft leeg isFWIE: LEEG IF F/ LEEGLEEG EMP (I)7 I=E:g: de variable-stack-routine: =========================: een speciale routine dië: de volgende variabelen op: een stack bewaard -:: - ALPHA, de alpha-score. : - BETA, de beta-scoreS: - ZAB, de zet bij ALPHA-BETAt: - Z, de onderzochte zet|(:2: B geeft het begin van het‰<: huidige deel van de stackF: S geeft de eerste vrijeP: plek in de stackZ: dSTK(S)B: BS: SS3nSTK(B )ALPHAExSTK(B)BETAVSTK(B)ZABeSTK(B)Zks:: de var-unstack-routine: ======================Ҋ: maakt de gegevens van de: vorige var-stack aanroep : weer beschikbaar:'Z STK(B):ZAB STK(B)MBETA STK(B)`ALPHASTK(B )tSS: BSTK(S)z":,: de bord-stack-routine6: =====================ߋ@: een speciale routine dieJ: het bord en de score opT: een stack bewaard -#^:Eh: B geeft het begin van hetir: huidige deel van de stack|: S geeft de eerste vrije: plek in de stack:ȌSTK(S)B: BS: SS׌ I  쌮 STK(BI)BR(I) ISTK(B)SC()STK(B)SC()"*:J: de bord-unstack-routinej: =======================: maakt de gegevens van de: vorige bord-stack aanroepƍ: weer beschikbaar΍:&SC()STK(B)0SC()STK(B): I  D BR(I)STK(BI)"N I7XSS: BSTK(S)=bEl:fv: de zet-onderzoek-routine: ========================: dit is een recursieveɎ: routine, hij roept zichzelf鎞: aan zolang de variabele: NIVO groter is dan 0.:.: de routine levert op -6:]: NSC - nieuwe score afhankelijku: van "WIE": 0- de beta score voor: "speler"؏: 1- de alpha score voor: "computer" : NIVO H'  NSCSC()SC()H* KLR() NSCb(NSC)P4 X>:eH ZABmR:\ ZWIE WIEf NIVO, Z("0")p:ѐz: als het kommetje leeg is,: hoeft er niet te worden: gezaaid... EMP(Z)  : " :bord stackX  :zaai + score`:~: recursie voorbereiden NIVONIVO WIEWIE  :stack varsܑ l :zichzelf  :unstack vars  WIEWIE  NIVONIVO( :L : het beoordelen van de scored$ WIE ` l. :8 : hier voor de "speler"B : beta-minimum uitrekenenђL NSCBETA BETANSC: ZABZV  ` : j : hier voor de "computer"*t : alpha-maximum uitrekenenS~ NSCALPHA ALPHANSC: ZABZ[ :~ : als ALPHA groter of gelijk : BETA willen we de FOR-loopƓ : afbreken. Dit gaat door Z(!)哰 : groter te maken dan de : eindwaarde van de loop... : een truuk dus.; ALPHABETA ZY  :unstack borda :k Z WIE NSCALPHA : NSCBETA : : Het hoofdprogrammaՔ  :bord opzettenݔ( :2 : dit is de hoofd-lus< KLR()  F :.P : speler aan zetOZ : controleren of niet allerd : speler kommetjes leeg zijnn WIE :speler aan de beurtx j :kommetjes leeg?Õ LEEG  ᕌ  :bord afdrukken镖 : : de speler zet opvragen$ ,: "Uw Zet"; Z2 Z(Z)O Z Z :  j EMP(Z) :   :zaaien + score uitrekenen : : computer aan zetՖ : controleren of niet alle : computer kommetjes leeg zijn WIE :computer aan de beurt: j :kommetjes leeg?M LEEG < k"  :bord afdrukkens, :6 : de computer zet bepalen@ ALPHAc: BETAALPHAӗJ l: ZZAB: Z | ۗT :^ : don't-care zet, neem randomh Z(())2r EMP(Z) h Y| ,: : "Ik zet ##..."; Zw T1 :even wachten... T1   :zaaien + score uitrekenen˜ < : einde van het spel...  :bord afdrukken  3,3,3,5,4,4,5,3,3,2,5,1,5,2,2,5,1,5,2,2,5,1,4,2,3,3,5,4,1,5,2,5 1,4,1,5,2,3,5,4,4,5,3,5,4,2,5,1,1,5,2,2,2,5,1,1,5,2,3,5,4,1,3,2ȡ 2,5,1,1,1,5,2,2,5,1,4,5,3,5,4,4,5,3,1,5,2,2,5,1,4   I   A I,A I&/ P: A% "Klaar" : "Niet klaar"9  S: Subroutine PRSTATf(: resultaat:2: A% =0: printer niet klaar<: a%<>0: printer klaarF:P Z: I% : A$: uI%,("&h"A$): :  u: A%(): Z CD,A8,00,21,F8,F7,77,C9,2,5,1,5,2,2,5,1,5,2,2,5,1,4,2,3,3,5,4,1,5,2,5 1,4,1,5,2,3,5,4,4,5,3,5,4,2,5,1,1,5,2,2,2,5,1,1,5,2,3,5,4,1,3,2ȡ 2,5,1,1,1,5,2,2,5,1,4,5,3,5,4,4,5,3,1,5,2,2,5,1,4   I   A I,A I&: "Welke drive";D$: D%(D$)A: D% D%D% D PT: :  n(: Subroutine SETDRV2: Invoer: D% (nummer van de drive)<: 0= A, 1=B, enz.F:P Z: I% : A$: uI%,("&h"A$): :  u: A%(D%): %Z 21,F8,F7,5E,0E,0E,C3,7D,F3,1,5,2,2,5,1,4,2,3,3,5,4,1,5,2,5 1,4,1,5,2,3,5,4,4,5,3,5,4,2,5,1,1,5,2,2,2,5,1,1,5,2,3,5,4,1,3,2ȡ 2,5,1,1,1,5,2,2,5,1,4,5,3,5,4,4,5,3,1,5,2,2,5,1,4   I   A I,A I& : KONADEMO:8: MSX Computer Magazine@(:2: ingezonden in de grote Konami/MCM programmeerwedstrijd<:ÀF:-------- THE GREAT KONAMI DEMO 1987/1988 !! --------P:----- DESIGNED BY MAARTEN BROUWERS (VERHOEVEN) -----;Z:----------------------------------------------------Cd:n:******************* INITIALISATIE *******************************'x ,, A: D: :******************* KONAMI LOGO *******************************'A()9"konapic1.sc8"(, )n , : :"konamus1.mus":"konamus2.mus" , : , :A():()łI:A():J:JЂA()߂J:JIA()  ,: ,:A()f":******************* Maze Of Gallious *****************************'q,A()6PAGE0,:"konapic2.sc8",S@ , : , J:A()ɃT:()^(,)(,),(,),hI:A():J:JrA()|J:J&I2A()>Z[(,)(N,),(,Z),bZoZ/?(,/)(N,?),(,Z),ZZ?/„(,/)(N,?),(,Z),ɄZ؄Z(,)(N,),(,Z),Z ,: ,:A()9& ,: ,:A()0:******************* Nemesis II *******************************':A()хDPAGE0,:A():"KONaPIC3.sc8",S:A():PAGE0,:A()N , : , X:A() b:()(l(,)(,),(,),FvI:A():J:JQA()`J:JgIsA()(,)(,-),(,)(,)(,#),(,)І(,<)(,#),(,<)(,<)(,A),(,<)IF:(,)(,-),(,);(,)(,#),(,)Z(,<)(,#),(,<)y(,<)(,A),(,<)IF:  ,: ,:A() :******************* The Pinguin *******************************'*A()4PAGE0,1>PAGE0,:"konapic4.sc8",SSH"konamus3.mus": ,,: -,kRA():, :,~\:()f(,)(,),(,),pI:A():J:JňzA()ԈJ:JۈI爘A()(,)(,*),(,),T:T8(,)(,*),(,),GT:TQ d ,,:A(),4,2,5,1,1,5,2,2,2,5,1,1,5,2,3,5,4,1,3,2ȡ 2,5,1,1,1,5,2,2,5,1,4,5,3,5,4,4,5,3,1,5,2,2,5,1,4   I   A I,A I&X ز 0 P P-0 P0 P0 @0" @0 P P-0 P0 P0 @0"   0 @ 252  0 @ 25210 P0 P0 @0 P0 P0 10 P0 P0 @0 P10 P0 P0 @0 P0 P0 @0 P0 P0 @0 P0 P0 @0   .)0 P0 @0   .)0 P!0 ( "  .$2"  .$p  1PP`PP`P@PPPp  1PP`PP`P@PPPp  1   1 1   1 9 .$9 .H@P @P@P$PP@@P @P@P$PP@@P @P"@@P @P"@0 P` PЏ@0 P` PЏ@0 P` PЏ@0 P@p @Р0 P` PЏ@0 P` PЏ@0 P` PЏ@0 P` PО@0 @ЏP`P0 PО@PР0 PО`P@Р0 @ЏP`P0 PО@PРP@0 )(,*),(,),T:T8(,)(,*),(,),GT:TQ d ,,:A(),4,2,5,1,1,5,2,2,2,5,1,1,5,2,3,5,4,1,3,2ȡ 2,5,1,1,1,5,2,2,5,1,4,5,3,5,4,4,5,3,1,5,2,2,5,1,4   I   A I,A I& <  s kNNv6W'];}hS@. xqke_ZUPLGC@<9520-*(&$" ##~0*:!>w#>͓<2:(!>2!"!w#!:_^#Vnf"nf"nf""#~ !nf|~ݶ~Oc#~ʌ0660 6r0#^s0 #^s860#^s0#^s0O#^{0C0>H#^k %{(>͓>26>_>͖_>͓>26>@w{H0 #^> ͓#^<͓#&iJ>^#Vz('~(!0 = la| #>͓  _> ͓> ͓nf+utšT:T8(,)(,*),(,),GT:TQ d ,,:A(),4,2,5,1,1,5,2,2,2,5,1,1,5,2,3,5,4,1,3,2ȡ 2,5,1,1,1,5,2,2,5,1,4,5,3,5,4,4,5,3,1,5,2,2,5,1,4   I   A I,A I& ÍË:5(!5ގ:3(!5-!5ŏ:4(!5֏!5Z*|> >!###!$5~l̎̈́!a>#>27!>rV!XY6~!X@(x=x= ̎ x ֚:0w!~~!ݐ!~ (=w >(>w2&ԕ:&2:2>w :1w!~(P!ݐ!~ (=w >(>w2&>ԕ:&2:2>w  (! (!4V>(ywsrxԕq~tww:2w!!Ü:2w!$! Ü~s~s2!|G(!~w~F #~F>8>#~F +~F>8>w>2!X~ƕ (:( <2~w~<<w~ ~ 4~Fw~Fw>ԕ!ͻ(2!ͻ2~F0D >~F0D >=~ ~ ~twƕ 4ɯ2~ͣ ~!v #~G_!9~!a >2&HxXͦG{ͳO!ˑ~.K'O0O~#~#!9>!'!0~!>O ^~!9O s ##y!'!0^~Wo##;͟hy(q2x!Cy(Q_!\>2x!\x(32y!ux(_!>2y!ɯ222 x=O_!"!9~_~W!a~({ Zz y(u#{(m̈́'>2*~ #Ž*~ #Ž*:6__!~O!a 6!9 (6 #u:o x=O_!-"!!92~_~W!a~(z :<2~*w#"( 2!-"#>2$:.(Kʹ>͓<͓ !-~ #Ž!-~#Ž>2,2.>22>2%͍!6!X!6#q!6!a"O!_^#V!!9Y*^V{ :z(:ƀGM#xMxGM#xɷ!\O ~w~==M#~M#F񀇇M#~M~_~W~w~wJ (Mɯ27>d2%:6=_!H^#V"ͫ y( *$!"]!!!~#_^#V >GOȗ!w(>  (`M#| x= r>͓> ͓>͓>2͓>͓3>͓Fx 888(8.y͟ y >͓> ͓Ď>͓> ͓Ďh:22!K:8=_^#V^#V#{z=l_>W!>w#w w#w>r!M#>rM >rM#>rMy_!^#V!x@w#w~! >V!&>V!>V!ͫ!\!>͘!8\!ͫ ͫ!0ͫ ͫ!$>͘!%>͘!$>͘!%>͘!#>a͘!p# >@͘\ \ \V!e&! >w!abw!9:=w:6=?_!m"*F#"|0_!9~ q y !""!> wW::::GG_2:,ͼ!"w!̞"!"!*_~!_~!e_~2G'g."!"Ț+++Ț! ~ š! 0M#!S \: >2:!G>zM> #Mx0#M> #M:G<2!:w POINT :%w*}.'o|&'g"!Ț+++Ț!~ š!0M#*| }P :.(>2.͍>w#~w#w:: :2Gg( _>͓x> ͓!o_>͓}>͓!5~S> ͓>͓>͓S> ͓>͓! yM>AW>>Ag>>Aw>>AW>ȯ>A>ȯ>2>2!"V22:!{5>w*y~ *w~!4 ~_> O#"y~#"y ;! O! ~#8 >O :_>O+^O#<^O:_> O2{>O(()(L!ž͟> 2>22>2> 2:-L!ž͟> 2>2>2>2> 2:.%!>22>2> 2> 2:r2u"w"yCCSS>2}2{22=2v:_> O:_> O:}=(2}: =2֛Tͮ:u2}2͓:!5>w*~ *~#" 3! O! ~#8 > O :_> O+>^O#<^O2:!v4!5>w*~ *~#" 3! O! ~#8 > O :_> O+>^O#<^O2|5}g<~x- UYj_YPG?<qdUKC"oRt DE/H + d ^852/-*(&#! 8888 8 8              8 8 8     #8#8888   8888! ! ! ! !   $  $  $  $  $ ! ! ! ! !   #  #  #   888888888888888888888888888888888888888888888888888888888888888888888888 8 8 88888888888888888888888888 88 88 88 88 88 88 88 8888888888888888888888888888888885252525252525252::::5252525263:52888844444444::63888                  }1TuYtȥ =`*                                                                                                                                                                             ˧            dhlptdhlptdhlpt !yM\({( !"bG!8\!ب\PpP**JJ[CHGET CHP9??'<89??``9??8889??0 8 `p???>x8????|p `p????_?;8<????/`plx``xlp pȘp  p`@@` p   xp@`@@`''61`@6/  66/00xظxn 76. 00xظxH  h php 6llp ?;vllp?߿????vv????????xmmyylﶶsslnn???8ll88x888||p|<|<\<@|8888||||~xLVVVVDDDDDLBDHPLBDBRLTT^D|888|nn|nn||nnnnn|||88888|>x|||v|||888888|\\8ގ\8\|8888p``oz`p=~==>???~|>kA""**)*UTGREAuUuPT~~]UPT8ma9 m8㶶ۙ|``x``|l88lp`&%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%J%%%%%%%%%%%%%%%%%%%%%%J%%%%%%%%%%%%%%%%%%%%%%%J%%%%%%%%%%%%%%%%%%%%%%%J%%%%%%%%%%%%%%%%%%%%%%%J%%%%%%%%%%%%%%%%%%J%%%%%%J%%J%%%%%%%%%%%%%%J%%%%%%%J%%J%%%%%%%%%%J%%%%%J%%%%%%%%J%%J%%%%%%%%%%%%%%o%%%%%%%%J%%J%%%%%%%%%%%%%%J%%%%%%%%J%%J%%%%%%%%%%J%%%%%%J%%%%J%%%%J%%J%%%%%%%%%%%%%%%o%%%J%%%%%J%%%%%%%%%%%%%J%%%%%JJ%%%J%%%%%J%J%%%%%%%%%%%%%%%%%%%J%%%%%J%J%%%%%%%%%%%%%%%%o%%%J%%%%%J%J%%%%%%%%%%J%%%%%JJ%%%J%%%%%J%JJ%%%%%iiiiiiiiiii%%%%%%%%%%%%J%%%%%J%J%%%%%%%nnnnnnnnnnn%%%J%%%%%o%%%J%%%%%oJ%%%%%%%nnnnnnnnnnnn%J%%%%%o%%%%%%%%%JoJ%%%%%%%%nnnnnnnnnnn%%%%%%%%%%%%J%%%JoJ%%%%%%%%%%nnnnnnnnnnn%%%J%%%%%%o%%%o%%%JoJ%%%%%%%%%%%%%%%%%o%%%%o%%%JoJ%%%%%%%%%%%%%%%%J%%%%%%%%%o%%%JoJ%%%%%%%%%%%%%%%%%%%%%J%%%%%%o%%%o%%%Joo%%%%J%%%%%%%%%%%%%%%%%%o%%%%o%%%Jooo%%%%%%%%%%%%%%%%%%J%%%%J%%%oJ%Joo%J%%%%%%%%EEEEEEEEEEE%%%%%%%%%%J%%%%J%o%%%o%%%Jo%J%J%%J%%%%%%iiiiiiiiiii%%%%%%%%%%%%%%J%%%Jo%%%%o%%%JoJ%J%%%J%%%%iiiiiiiiiiii%%%%%%%%%%JJ%%%J%%%o%%%%J%o%%%%%%%%%iiiiiiiiiii%%%%%%%%%%%%%%%%%%JJJ%%%o%%%%oo%%J%%%%%%%iiiiiiiiiii%%%%%%%%%%%%J%%%%J%%%oJ%%o%J%%J%%%%%nnnnnnnnnnn%%%%%%%%%%%%%%%JJ%%%J%%%oJ%%oJ%%%J%%%%%%nnnnnnnnnnn%%%%%%%%%%%%%%%%%%J%%%JJJ%Jo%J%oo%%%%%%%%%%nnnnnnnnnnnn%%%%%%%%%%%%%%%%%%%%%J%%%J%%%o%%%%%Jo%%J%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%JJ%%%J%Jo%%%%J%o%%J%%%%%%%%%%%%%%%%%%%%%%%%%%%%J%%%JJJ%%%oJ%%JJJ%%%%%%%%%%%%%%%%%J%%%%%%%%%%%%%%%JJ%%J%%%oJ%%oJ%%%J%%%%%%%%%%%%%%%J%%%%%%%%%%%%%%o%%%J%J%J%J%oo%%J%%%%%%%%%%%%%%%%%J%%%%%%%%%%%%%%J%%%JJJ%%%o%J%oo%%J%%%%J%%%%%%%%%%%%%%%%%JJ%%%%%%%%%%%%JJ%%%J%Joo%oo%%%J%%%%%%%%%%%%%%%%%%%%%%JJ%J%%%%%%%%%%%o%%%J%%o%J%%%%J%%%J%%%%%JJJ%%%%%%%%%%%JJJ%%%%%%%%%%J%%%JoJJoJ%J%%J%%%%J%%%%%%%%%%%%%%%JJJJ%%%%%%%%%%%%%%JJ%J%%%%J%%%%Jo%%J%JoJ%oo%%%J%%%%%%%%%%%%%%%%%%%%%%%%JJJJ%%%%%%%%%%%%J%JJJJ%%%%J%%%o%%%J%JooJo%%J%%%%%%%%%%%%%%%%%%%%%%%%JJJJJ%%%%%%%%%%%%J%JJJJ%%%J%%%%JJ%%J%JooJ%%o%%%J%%%%%%%%%%%%EEEE%%%%%%%%%J%%%JJJJJ%%%%%%%J%%JJJoJ%J%J%%%%o%%JJoJJ%%%J%%J%%%%%%%%%%EEEE%%%%%%%%JJJJJJJJJ%%%%%%J%JoJoJJJJ%%%oJ%Jo%%oJ%J%%J%%%%%%%%%%iiiiiiiiii%%JJJJooooJJJJJ%%%%%JJJooooJJ%%JJo۷JoJJJ%J%%%%%%%%%%%iiiiiiiiiiEEEEE%%JJJJJoooJJJJ%%%JJooJ%%%oJJJ%J%%%%%%%%%iiiiiiiiiiEEEEEEEiiiiiiiiiiiiiiii%JJJJooJJ%%%JJ%oJJoJ%%%%%%%nnnnnnnnniiiiiiiiiiiiiiiii%%%%%%%%%%%%%%%%%nnnnn%JJoJ%%%%nnnnnnnnnnniiiiiiiiiiinnnnnnnnnnnnnnnn%%%%%%nnnnnnnnnnnnnnnnnnnnnnnnnnnn%%%%%%%%%%%JJJJ۷ooo%%nnnnnnnnnnnn%%%%%%%%%%%%%%%%%%%JJJےۓ%%%JJoo%%%%%%%%%%%%%%%%%JJ%oooJ%%%%JJJo%%%%%%%%%%%%%%%%%JJJJײ%ooJo%%%%%JJJJJ%%%%%%%ײJJ%%%%%o%%o%%%%%%JJJJ%%%%%%%%%%ײײJJo%%JJ%%%%JJJJ%%%%%%%%%%%JJJ%JoJ%%o%%%%%%JJJJ%%%%%%%%%%JJ%JJooJ۷oo%JJ%%%%%%JJJ%nnnnnnnnnnn%%%%%JJ%%Joo%oJ%%J%%%%%%%JJ%%nnnnnnnnnn%%%J%%%JJJJoooJoJ%%J%%%%%%%%%nnnnnnnnnnn%%%%%%JJ%J%%o%%%J%JoooJoJ%JJ%%%%%%%%nnnnnnnnnnn%%%%%JJ%%%JJJ%%Jo%oo%%%%%%%%iiiiiiiiii%JJ%%J%%J%%%oo%JJ%%%%%%iiiiiiiiiii%%%%%%JJoo%J%ooJJoJo%%%%%%%%%%iiiiiiiiiii%%%%Jo%%JJ%Jo%%o%oJ%%%%%%%%iiiiiiiiii%%%%%%J%%oJo%oJ%%J%%%%%%%EEEEEEEEEEE%%%J%%J%oJ%ooJ%%%%%%%%EEEEEEEEEEE%J%o%%J%%%%oJ%Jo%o%oJ%%%%%%%%EEEEEEEEEE%%%JJJoJ%J%%%Jo%o%%J%J%%%%%%%nnnnnnnnnn%%ײJoJ%%%J%%%Jo%Jo%%ooJ%%%%%%%nnnnnnnnnnn%ײJ%J%%%%%Joo%%JJoJ%%%%%%nnnnnnnnnnn%%ے%ײ%%ײ%J%%oJ%Jo%o%JJ%%%%%%%%iiiiiiiiii%%Jے%%۷%J%%%%Jo%%o%%%oJJ%%%%%%iiiiiiiiiiinnnnnnnnnnnn%JJ%%۷%J%%%Jo%%oJo%JJ%%J%%%%%%iiiiiiiiiiinnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnJJnnnnnJonnnnnn%%nn%Jnۓ%%%%o%%%o%%o%%%J%%%%%%%iiiiiiiiiinnnnnnnnniiiiiiiiiiiinnnnnnnnnnnnnnnJnnnonnnnn%Jnnn%Jnnۓ%%%oJ%JJJJ%%%oJJ%%%EEEEEEEEEEEnnnnnnnnnniiiiiiiiiiiiiiiiiiiiiiiii%Jiiinnnn%Jnn%%nnۓ%%%Jo%%o%%JJJJ%%EEEEEEEEEEEiiiiiiiiiEEEEEEEEEiiiiiiiiiiiiiiiJ%iiiiiiii%i%%ii%%ii׎%%%Jo%JJ%%o%JJ%%%%EEEEEEEEEEiiiiiiiiiEEEEEEEEEEEEEEEEEEEEEEEEEiiii%%J%iiiJii%%%JJ%%%o%JJ%%J%JJ%%EEEEEEEEJEEEE%EEEEE%%%jEj%%%EEEjJEEjE%%%oJ%JJ%%JJ%%JJJ%EEEEjJ%%J%EEjj%EEjE%%%oJ%JJ%JJ%o%%%JJJJ%%%%%%%%%%%%%J%%%Jo%%J%%%JJJJJJ%%J%%J%%J%J%%%JJ%%o%%%J%J%JJ%%J%%J%%%%%%J%J%%%%JJ%%o%%%%%J%JJ%J%%%%%%J%%%%J%%%%oJ%%%%%%%J%%JJ%%J%%%%%%%J%%%%Jo%JJ%%%%%%J%%JJ%%%%%%%%%JJ%%%%JJ%%%%%%%J%%%JJ%%%%%%%%%JJ%%%%J%J%J%%%%%%%J%JJ%%J%%%%%%%J%%%%oJ%J%%%%%%J%JJ%%%%%%J%%%%%%%%%J%%%%%%%%%J%%J