JVC KT2p SY26V#61} "Postbus 9943HH "1006 AP AmsterdamR:DATA *L,"waarna wij uw cassette zullen omruilen voor een ander exemplaar."S *L,"waarna wij uw diskette zullen omruilen voor een ander exemplaar."\ *L,"Telefonische vragen over de Programma Service - maar geen technische vragen - kunt u kwijt op 020-5182828. Leg zo kort en bondig mogelijk uit wat er aan de hand is en wij zullen proberen het te verhelpen.gf *P,*C,"Vragenuurtje",*N,*L,"Technische vragen kunt u namelijk alleen stellen tijdens het telefonisch vragenuurtje van de redactie van MSX/MS-DOS Computer Magazine.p *L,"De redactie beschikt continu over een zogenaamde vragenlijn, telefoon: 020-860743. Meestal zult u op dit nummer een antwoordapparaat treffen,jz "dat u op vriendelijke toon mededeelt wat er in het laatste nummer aan eventuele fouten is gevonden.ᢄ *L,"Tot slot volgt er een mededeling wanneer er weer mensen van vlees en bloed aan de andere kant zullen zitten.l "Meestal zal dat donderdagmiddag van 17.00-19.00 zijn, mogelijk aangevuld met gespecialiseerde uurtjes. Wij spreken het allemaal in! *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 ****************** MISAT ' Missile Attack - actiespel,1 ML23 ' sorteren in ML,0= TAOOPL ' oplossing TAO puzzle,1\ TAO1 ' TAO voor MSX1,1 ALARM ' test Digiprop I/O module,1 BATRUN ' LHL buffer1,0 BUFFER ' LHL buffer2,0ݥ SHELL ' LHL buffer3,0 Y-Z ' Y/Z toetsverwisselaar,1/$ ICP6 ' Invoer Controle Programma,1=. OP=OP,0 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: KXX: Z: omhoogyP1A(Y,X): P2A(Y,X)؇ P1 : P1 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y MISAT, Missile Attack#F MSX/MS-DOS Computer MagazineL(q2 Winnaar grote Konami wedstrijd< Bart CorthoutsF ZELEM - BELGIEPZ , ۀd SP() : WA: LE$"A"n CI(I)(I)((I)(I)(((I))=x ,,: ( -) ,, : ,,XBA( ()( ))uI(): "GRP:" AS # ( ){ (P,<): #,"LOADING ...": "MISAMC": ,{с :  恪 :   :  A :  D (X()IX(): X(): PI()o (,),2,,,,@%: (,), (,)(,),,BFۂ "C13BM120,187R16M-4,-11L8M-4,+11": (,), : (,),,: (,),9 I ` (: (I,),,,,PI>: (I,),: (I,)(I,), ,BF:  I  (: (I,),,,,PI>: (I,),: (I,)(I,), ,BF: X()ƒ" ER j: ER փ, W : W'6  ,:  ,:  , : ,: ,: ,: ,: ,<: ,: ,I@A$"MISSILE ATTACK ": X()JX: CH: Y : (X,Y),: Y  CH,(X ,Y),CH,((A$,CH,)): CHCHTXX@P: Y^X: Y& : (X,Y),: Y  CH,(X,Y),CH,((A$,CH,)): CHCH1hXX@%: Y\r "BM8,18R22M104,165L22": ( ,),| "BM188,38R20M177,165L20": (,'),A$"Press any key": ܅ I (A$): (2I ,): #,(A$,I,):   ,:  ,:  ,   : $ _ (,)(,),,BF: I : I,(,),,: } (Z,P)(,Z),,BF:  : (d,P): #,"LEVEL ";LE$ () () LE$"A" LE$"B":  : LE$"A":  () () () ! ,: X()> I A F: I,: Z I q : I,: v I @: I,:  I : I,: & a,: H,0 b,: c,ɇ: d,D e,`: f,yN h,X l,b ,(y,`),,'l ,(,),, I NSHCI(("231405231405",I,))R (IX) ( ACI) /\ IX,()(#: IX,CI: IX,: IX,y: IX,: IX,Pf IX,(CI(CI))xkp I,(y,),I,z CI IX, : IX,ċ (IX)- IX ,&B1100 : IX ,&B11000ԋIXIX : 狘  [X(): : (T,(): #,"W A V E ";WA: (<,P): #, "## MISSILES COMING";NM: W : W: X() WA I : BAI,SP(I): X(): ,&B11100: X()X() I : SP(I)(BAI): BAI,: SR( H): H,SD( a): a,LCL: I A F: (I) CLCL: : x : ((,(): #,"OLD SCORE ";SC : ((,<): #,"SAFE RETURNS +";SR;"x 100"ۍ ((,F): #,"CITY BONUS +";CL;"x 100" : ((,P): #,"SHIPS LOST -";SD;"x 200"+SCSCdSRSDdCLW$ : ((,d): #,"NEW SCORE ";SC_.|8 CL WAWA: B : (8,): #,"G A M E O V E R"L "" LV "" () ()  V`,j "" () () ER :  : XX: V2: KXX: Z: omhoogyP1A(Y,X): P2A(Y,X)؇ P1 : P1 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y ` ` 0 0 @0 @``???????????@@ @@ @   @ @ 0  @ 0???<<< <00  0``0 `` `` `` @@@0@MZp}Ó*S ~G8#z 8O! ~(! ~ 2*[&\!>V! >V![&\!>V!">V2͓>2͓>2!">2!I>ݾ( c :m`2m0&!q>͇"o>2ͣ ####:n 2n0>͇######G>G> 2j:jշ /2j!qݶh :hG:gՀ2g0*G>G 2i:i<2i>0>@2h>͇! ~݆w ####:k 2k0W!  ~(~(( ( (:lՁ,0%8!2l>͇##G''Mx<''####M:2!I!6~((~8w :Gַ( *b+| ö>2͐V~݆w^>s~݆w0 ~݆wNGJM!G56N^/GJM~ݖw0yݖO:dշ(%=2dR>͇##[zM####{MZWS!I~ȷ(~( N!A ʢw>d2d>͇~O>M#yM###">͇>M####*^!#^#V! >V >!V!!\â~ ݆w 5 f~݆w05~݆w~0݆ w~M#M~ 0#M!~W~_ ŗ(Vz0N{0F6@6 6>2> ͓*o>M:O! 6*o ~M~#M>#M >M6>_!6*o~_M~W#M>#M> _> W!I~ȷ(~(z 0{ 066 < 8G>'' M!I~~6Ģ ++>M[ex0x0x0x=0x  > > > Se*({M#zM6y666 >2> ͓:fwW8>w =_66:eG>=w6\:eG>_w6\!'Gx?0Ry~fʖ! Q ʘ ( (~ (>''##M 46(~(>''#M46(N!A 66P~(>''##M46(~=wM~ (>''##M46(~=wM#~ ݆w 0 ~ݖwM~ (>''#M 46(~=wM>yw#M~ (>''#Mw6(!H4N!A w~M!a4!5 Z:(%(4>͓!4:G>????2.>͓>2>2>͓2:G>??2:ȷ(,G>_>͓>͖_>͓{8:=2 > ͓:ȷ_>͓{=2> ͓0Xȷ:! V`,j "" () () ER :  : XX: V2: KXX: Z: omhoogyP1A(Y,X): P2A(Y,X)؇ P1 : P1 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y MCCRE, Missile attack#E SPRITE & MACHINECODE LOADER^( Behorend bij MISAT2 Lees de gebruiksaanwijzing!<F Bart Corthouts, BelgiePZ , ̀d ,,,: %: n: : " Even geduld ....": : Kx L v: C: I  : A$: A("&h"A$): CCIA: L I,A: I A: CA "Data error in ";L : : Ĺ: "Indien alles klaar om te saven, druk dan op de spatiebalk ...."ށ "" A$$(): A$" "  "MISAMC", , h 0,0,0,0,0,0,0,D,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,60,0,0,0,0,0,0,0,0, 2429 2,1,0,0,8,6,1,0,20,18,6,1,80,60,18,7,80,0,0,0,20,C0,0,0,8,30,C0,0,2,C,30,C0, 25927 0,0,4,3,0,0,10,C,3,0,40,30,C,3,0,0,0,0,40,80,0,0,10,60,80,0,4,18,60,80,0,0, 18789 2,7,7,F,F,1F,1F,3F,3F,7F,7F,FF,FF,7F,1F,7,80,C0,C0,E0,E0,F0,F0,F8,F8,FC,FC,FE,FE,FC,F0,C0, 103437΃ 0,0,0,0,0,0,1,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80,0,0,0,0,0,0,0,0, 3112 0,0,0,0,0,0,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,80,80,80,0,0,0,0,0,0,0, 9288o 0,0,0,0,0,3,7,7,7,3,0,0,0,0,0,0,0,0,0,0,0,80,C0,C0,C0,80,0,0,0,0,0,0, 20184Ä 0,0,0,0,3,7,F,F,F,7,3,0,0,0,0,0,0,0,0,0,80,C0,E0,E0,E0,C0,80,0,0,0,0,0, 32008 0,0,0,3,7,F,1F,1F,1F,F,7,3,0,0,0,0,0,0,0,80,C0,E0,F0,F0,F0,E0,C0,80,0,0,0,0, 44536{ 0,0,7,F,1F,3F,3F,3F,3F,3F,1F,F,7,0,0,0,0,0,C0,E0,F0,F8,F8,F8,F8,F8,F0,E0,C0,0,0,0, 64616ޅ" 0,7,F,1F,3F,7F,7F,7F,7F,7F,3F,1F,F,7,0,0,0,C0,E0,F0,F8,FC,FC,FC,FC,FC,F8,F0,E0,C0,0,0, 80568H, 7,1F,3F,7F,7F,FF,FF,FF,FF,FF,7F,7F,3F,1F,7,0,C0,F0,F8,FC,FC,FE,FE,FE,FE,FE,FC,FC,F8,F0,C0,0, 1031926 0,0,0,0,3,4,1,3,1,0,0,0,0,0,0,0,0,0,0,0,80,40,0,80,0,0,0,0,0,0,0,0, 7247@ 0,0,0,0,0,0,1,3,1,0,0,0,0,0,0,0,0,0,0,0,0,40,20,A0,20,40,0,0,0,0,0,0, 84887J 0,0,0,0,0,0,1,3,1,4,3,0,0,0,0,0,0,0,0,0,0,0,0,80,0,40,80,0,0,0,0,0, 8305T 0,0,0,0,0,4,9,B,9,4,0,0,0,0,0,0,0,0,0,0,0,0,0,80,0,0,0,0,0,0,0,0, 3368ڇ^ 0,0,0,0,0,1,7,1E,13,1F,4,8,0,0,0,0,0,0,0,0,0,0,C0,F0,90,F0,40,20,0,0,0,0, 235561h 0,0,0,0,1,9,7,1E,13,1F,5,8,0,0,0,0,0,0,0,0,0,20,C0,F0,90,F0,40,20,0,0,0,0, 24324r 0,0,0,0,0,1,7,1E,13,1F,4,8,18,0,0,0,0,0,0,0,0,0,C0,F0,90,F0,40,20,30,0,0,0, 25260| 0,0,0,0,1,9,7,1E,13,1F,5,8,18,0,0,0,0,0,0,0,0,20,C0,F0,90,F0,40,20,30,0,0,0, 26028F 3,7,F,F,F,1F,1F,1F,3F,3F,3F,7F,7F,7F,0,0,80,C0,E0,E0,E0,F0,F0,F0,F8,F8,F8,FC,FC,FC,0,0, 84591 FF,FE,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 2939㉚ 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,FF,7F,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 66221 E0,FE,3C,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 912 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7F,3C,0,0,0,0,0,0,0,0,0,0,0,0,0, 3545͊ C0,F0,3C,C,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 900 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,F,3C,30,0,0,0,0,0,0,0,0,0,0,0,0, 2421j C0,E0,30,18,C,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 940 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,7,C,18,30,0,0,0,0,0,0,0,0,0,0,0, 1893  C0,C0,60,60,30,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 1584U 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,6,6,C,8,0,0,0,0,0,0,0,0,0,0, 767 C0,C0,C0,60,60,20,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 2208 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,3,6,6,4,0,0,0,0,0,0,0,0,0,0, 496C C0,C0,60,60,20,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 1408 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,6,6,4,0,0,0,0,0,0,0,0,0,0,0, 423ݍ C0,60,60,20,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 800(& 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,6,4,0,0,0,0,0,0,0,0,0,0,0,0, 353v0 C0,C0,40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 768: 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0, 143D C0,40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 320XN 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 87X 40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 64b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 349l 80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 128v 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 17̐ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0 30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0, 191e C0,40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 320ϑ C3,12,C0,C3,4D,C0,C3,5A,C0,C3,70,C0,C3,7D,C0,C3,93,C0,2A,4,0,11,0,B0,ED,53,20,F9,7E,47,CB,38, 639273 B0,12,23,13,7A,FE,B8,20,F3,CD,38,1,7,7,E6,3,4F,6,0,21,C1,FC,9,CB,7E,28,E,21,C5,FC,9,7E, 52486 7,7,7,7,E6,C,B1,CB,FF,32,1F,F9,C9,2A,4,0,ED,5B,26,F9,1,0,8,C3,5C,0,21,0,0,1,0,18, 33783 3E,0,CD,56,0,21,0,20,1,0,18,3E,F1,C3,56,0,21,0,BA,ED,5B,26,F9,1,0,8,C3,5C,0,21,0,2, 36081T 1,0,14,3E,0,CD,56,0,21,0,22,1,0,14,3E,F1,C3,56,0,97,32,D3,C8,1E,96,CD,93,0,3E,1,32,D4, 49996 C8,1E,0,CD,93,0,3E,C9,32,9F,FD,21,4,C8,22,A0,FD,3E,C3,32,9F,FD,DD,21,49,D6,3E,FF,DD,BE,4,28, 69616" A,CD,63,C2,1,9,0,DD,9,18,EF,3A,6D,D5,C6,60,32,6D,D5,30,26,DD,21,71,D5,3E,14,CD,87,0,6,4, 50267 C5,E5,22,6F,D5,3E,4,90,32,CD,C8,CD,A3,C3,1,C,0,DD,9,E1,23,23,23,23,C1,10,E5,3A,6E,D5,C6,A, 56919 32,6E,D5,30,1C,3E,18,CD,87,0,23,23,11,A1,D5,6,4,C5,D5,E5,CD,D2,C4,E1,D1,C1,13,23,23,23,23,10, 57679Z F0,97,CD,D8,0,47,C5,3E,1,CD,D8,0,C1,B0,47,C5,3E,3,CD,D8,0,C1,B0,20,5,32,6A,D5,18,1E,3A,6A, 53369• D5,B7,20,18,2F,32,6A,D5,DD,21,71,D5,6,4,97,DD,B6,4,CA,68,C5,11,C,0,DD,19,10,F2,3A,68,D5,47, 56736+  3A,67,D5,80,32,67,D5,30,2A,97,CD,D5,0,47,C5,3E,1,CD,D5,0,C1,B0,47,20,5,32,69,D5,18,15,3A,69, 50586 D5,3C,FE,18,32,69,D5,3E,FF,30,2,3E,40,32,68,D5,CD,17,C5,3E,8,CD,87,0,DD,21,A5,D5,6,C,C5,E5, 61535  DD,7E,0,DD,86,1,DD,77,0,DC,15,C6,1,D,0,DD,9,E1,23,23,23,23,C1,10,E5,3A,6B,D5,C6,A,32,6B, 52068Z* D5,30,57,DD,21,A5,D5,11,D,0,6,C,E,1,DD,7E,1,B7,28,12,DD,7E,3,B7,28,12,FE,1,28,E,FE,A, 44523—4 28,A,FE,B,28,6,DD,19,10,E4,E,FF,3A,6C,D5,81,81,FE,2C,30,25,FE,15,38,21,32,6C,D5,F5,3E,6,CD, 59481,> 87,0,23,23,F1,47,CB,27,CB,27,CD,4D,0,78,3C,CB,27,CB,27,23,23,23,23,CD,4D,0,3A,CE,C8,C6,14,32, 51175H CE,C8,DC,D7,C2,DD,21,49,D6,21,D1,C8,36,0,DD,7E,4,FE,FF,28,11,B7,28,7,DD,7E,1,BE,38,1,77,1, 53504R 9,0,DD,9,18,E8,3A,47,D6,B7,28,B,2A,62,D5,2B,7C,B5,20,FB,C3,B6,C0,3E,C9,32,9F,FD,CD,90,0,CD, 72847`\ 56,1,C9,DD,7E,6,DD,86,4,DD,77,6,D0,DD,5E,1,3E,AD,BB,C8,1C,DD,73,1,DD,7E,5,DD,86,2,DD,77, 65280f 5,30,9,DD,7E,0,DD,86,3,DD,77,0,DD,4E,0,6,0,16,0,CD,11,1,CD,14,1,47,CD,4A,0,B0,CD,4D, 45515#p 0,C9,21,47,D6,35,DD,36,4,0,DD,4E,0,DD,5E,1,16,0,6,0,CD,11,1,CD,14,1,2F,47,CD,4A,0,A0, 39253z CD,4D,0,1D,C8,DD,7E,5,DD,96,2,DD,77,5,30,E0,79,DD,96,3,4F,18,D9,3A,64,D5,B7,28,25,3D,32,64, 55074 D5,CA,52,C3,3E,1,CD,87,0,23,23,ED,5B,AF,C8,7A,CD,4D,0,23,23,23,23,7B,CD,4D,0,5A,57,ED,53,AF, 54924Z C8,C9,DD,21,49,D6,DD,7E,4,FE,FF,C8,B7,28,7,DD,7E,1,FE,AD,28,7,11,9,0,DD,19,18,E9,DD,4E,7, 55131 6,0,21,41,D6,9,97,BE,CA,A2,C2,77,3E,64,32,64,D5,3E,1,CD,87,0,DD,7E,0,D6,7,4F,6,3,3E,AD, 51107$ CD,4D,0,23,79,CD,4D,0,23,23,23,10,F1,DD,22,CF,C8,C9,3E,1,CD,87,0,6,3,3E,CF,CD,4D,0,23,23, 47253 23,23,10,F7,DD,2A,CF,C8,DD,5E,7,16,0,21,B1,C8,CB,23,19,5E,23,56,D5,21,0,20,19,E5,3E,11,1,10, 40658윶 0,CD,56,0,E1,1,0,1,9,1,10,0,3E,21,CD,56,0,D1,21,0,1,19,EB,21,BD,C8,1,10,0,CD,5C,0, 38352Q C3,A2,C2,DD,7E,A,DD,86,4,DD,77,A,D0,DD,35,9,CA,66,C4,DD,7E,6,DD,86,5,DD,77,6,30,3,DD,35, 59478 3,DD,7E,8,DD,86,7,DD,77,8,DD,7E,2,30,6,DD,86,B,DD,77,2,F5,DD,7E,3,CD,4D,0,23,F1,CD,4D, 61141 0,DD,7E,9,E6,C,C6,30,23,CD,4D,0,FD,21,A5,D5,DD,7E,2,C6,8,57,DD,7E,3,C6,8,5F,6,C,D5,C5, 58446~ 97,FD,BE,1,28,56,7A,FD,96,4,FE,11,30,4E,7B,FD,96,5,FE,11,30,46,FD,36,1,40,FD,36,3,C,DD,36, 53349 4,0,3E,3,32,D2,C8,3E,9,1E,F,CD,93,0,2A,6F,D5,3E,CF,CD,4D,0,3A,CD,C8,4F,6,0,21,A1,D5,9, 51466B 36,0,2A,6F,D5,1,10,0,9,DD,7E,3,CD,4D,0,DD,7E,2,23,CD,4D,0,3E,10,23,CD,4D,0,1,D,0,FD, 39968 9,C1,D1,10,99,C9,3E,CF,CD,4D,0,DD,36,4,0,3E,4,90,5F,16,0,21,A1,D5,19,36,0,2A,6F,D5,11,10, 40463  0,19,DD,7E,1,5F,CD,4D,0,DD,7E,0,57,23,CD,4D,0,3E,10,23,CD,4D,0,3E,D,83,5F,3E,C,82,57,FD, 46047u 21,49,D6,FD,7E,4,FE,FF,C8,B7,28,1F,FD,7E,1,FE,AD,28,18,7A,FD,96,0,FE,B,30,10,7B,FD,96,1,FE, 66540נ B,30,8,FD,36,4,0,FD,36,8,FF,1,9,0,FD,9,18,D1,1A,FE,10,D0,3C,12,FE,10,CA,F,C5,F5,FE,9, 61233>$ 38,4,47,3E,10,90,CB,27,CB,27,C6,C,CD,4D,0,F1,FE,8,C0,DD,21,49,D6,DD,7E,4,FE,FF,C8,DD,7E,8, 74239. B7,DD,36,8,0,C4,A2,C2,1,9,0,DD,9,18,E8,2B,2B,3E,CF,CD,4D,0,C9,ED,5B,65,D5,78,D6,2,FE,3, 621098 30,1,14,78,D6,6,FE,3,30,1,15,78,D6,4,FE,3,30,1,1C,78,3D,FE,2,30,1,1D,78,FE,8,20,1,1D, 37422lB 97,B2,20,1,14,3E,F0,BA,20,1,15,3E,8,BB,20,1,1C,3E,A4,BB,20,1,1D,ED,53,65,D5,2A,28,F9,7B,CD, 54866ҢL 4D,0,23,7A,CD,4D,0,C9,DD,36,2,79,DD,36,3,A8,DD,36,4,FF,DD,36,A,FF,3E,1F,32,D5,C8,3E,A,1E, 548148V F,CD,93,0,1E,FF,3A,66,D5,DD,77,0,C6,7,57,FE,80,38,7,3E,FF,92,3C,57,1E,1,DD,73,B,3A,65,D5, 55806` DD,77,1,D6,28,38,28,BA,38,25,3E,81,92,DD,77,9,3D,5F,DD,36,7,FF,DD,36,8,FF,3A,65,D5,47,3E,A8, 60638 j 90,CD,F3,C5,3D,DD,77,5,DD,36,6,FF,C3,5C,C1,3A,65,D5,47,3E,A8,90,5F,3C,DD,77,9,DD,36,5,FF,DD, 68080nt 36,6,FF,3E,80,92,CD,F3,C5,DD,77,7,DD,36,8,FF,C3,5C,C1,16,0,E,0,21,0,0,6,10,CB,27,CB,15, 43989פ~ CB,14,C5,47,E7,78,C1,3F,F5,CB,11,F1,30,3,B7,ED,52,10,E9,79,C9,DD,7E,3,FE,1,CA,66,C6,FE,3,CA, 74552= 96,C6,FE,5,CA,F1,C6,FE,7,CA,21,C7,FE,9,CA,51,C7,FE,B,CA,98,C7,FE,C,CA,E2,C7,6,10,FE,2,28, 71587 6,FE,A,28,2,6,12,DD,7E,A,3C,DD,77,A,DD,A6,C,28,1,4,78,CB,27,CB,27,23,23,CD,4D,0,DD,35, 47976 6,C0,DD,34,3,C9,DD,7E,5,3C,DD,77,5,F5,CD,4D,0,DD,7E,A,3C,DD,77,A,DD,A6,C,3E,10,28,2,3E, 48625k 11,CB,27,CB,27,23,23,CD,4D,0,F1,FE,20,C0,DD,34,3,DD,36,6,28,C9,DD,7E,5,3C,DD,77,5,CD,4D,0, 55495Φ 23,F5,DD,7E,B,DD,86,7,DD,77,B,30,C,DD,7E,4,DD,86,8,DD,77,4,CD,4D,0,DD,7E,A,3C,DD,77,A, 548454 DD,A6,C,3E,10,28,2,3E,11,CB,27,CB,27,23,CD,4D,0,F1,FE,98,C0,DD,34,3,DD,36,6,28,DD,4E,2,6, 51599 0,21,41,D6,9,97,BE,C0,DD,36,3,8,DD,36,6,50,C9,DD,7E,5,3C,DD,77,5,F5,CD,4D,0,DD,7E,A,3C, 57412 DD,77,A,DD,A6,C,3E,12,28,2,3E,13,CB,27,CB,27,23,23,CD,4D,0,F1,FE,B0,C0,DD,34,3,DD,36,6,28, 54554e C9,DD,7E,5,3D,DD,77,5,F5,CD,4D,0,DD,7E,A,3C,DD,77,A,DD,A6,C,3E,12,28,2,3E,13,CB,27,CB,27, 48367˨ 23,23,CD,4D,0,F1,FE,98,C0,DD,34,3,DD,36,6,28,C9,DD,7E,5,3D,DD,77,5,F5,CD,4D,0,23,DD,7E,B, 58699. DD,86,7,DD,77,B,30,C,DD,7E,4,DD,96,8,DD,77,4,CD,4D,0,DD,7E,A,3C,DD,77,A,DD,A6,C,3E,10, 52702 28,2,3E,11,CB,27,CB,27,23,CD,4D,0,F1,FE,20,C0,DD,34,3,DD,36,6,28,C9,DD,7E,5,3D,DD,77,5,F5, 61531 CD,4D,0,3E,79,DD,77,4,23,CD,4D,0,DD,7E,A,3C,DD,77,A,DD,A6,C,3E,10,28,2,3E,11,CB,27,CB,27, 46231a  23,CD,4D,0,F1,B7,C0,DD,77,3,DD,36,6,28,21,48,D6,34,DD,4E,2,6,0,21,41,D6,9,97,BE,C0,DD,77, 57444Ū 1,C9,DD,7E,1,3C,DD,77,1,DD,7E,5,3C,DD,77,5,CD,4D,0,FE,B0,D8,DD,36,1,0,3E,CF,CD,4D,0,21, 55422- 61,D5,34,C9,21,D4,C8,35,20,5A,3A,D3,C8,FE,1,28,25,FE,3,28,34,3E,8,1E,F,CD,93,0,21,D3,C8,34, 50156( 3A,D1,C8,47,3E,B9,90,CB,3F,CB,3F,CB,3F,CB,3F,C6,2,32,D4,C8,18,2E,3E,8,1E,0,CD,93,0,3E,2,32, 449312 D3,C8,3E,5,32,D4,C8,18,1B,3E,8,1E,0,CD,93,0,97,32,D3,C8,3A,D1,C8,47,3E,B9,90,CB,3F,CB,3F,C6, 66051c< 2,32,D4,C8,3A,D2,C8,B7,28,2C,47,3E,4,90,5F,3E,3,CD,93,0,3E,2,CD,96,0,C6,5,5F,3E,2,CD,93, 49817ʬF 0,7B,FE,FB,38,10,3A,D2,C8,3D,32,D2,C8,20,7,3E,9,1E,0,CD,93,0,3A,D5,C8,B7,C8,5F,3E,6,CD,93, 59280/P 0,7B,3D,32,D5,C8,C0,3E,A,1E,0,CD,93,0,C9,4,8,8,16,30,16,58,16,98,16,C0,16,E8,16,0,80,80, 42118Z C0,F0,F8,FE,FF,0,1,1,3,F,1F,7F,FF,0,0,0,0,0,0,0,0,0,17,C8,B7,C2,E9,C8,3A,B6,D4,FE, 57760 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y ALARM testprogramma!9 voor AMX-ingangen[( van I/O module DIGIPROP 3.0}2 ALARM werkt alleen met deze< module aangesloten!!FP MSX Computer MagazineZd: initialisatie *****************n : ,,x "grp:" AS 1:  AZ4ALARM: AL(BB)BBJ VAST(): A()T \:: hoofdprogramma ***************:AMX: reset , Ձ: sturing van de AMX-ingangen ,AMX: ophalen van de ingangen AMX*: alarmschakelaars uit poort A=A()E:O" Y, c6 m@ RwJ TAMXAMX^:h AMX  : r:ւ|: einde hoofdprogramma **********ނ::subroutines:: scherm normaal:2 (,)(i,),,BM (-,)(P,-),,B] (#,@),o#, "ALARM-" (#,R),#, "scanning":: scherm bij alarmƒ:ԃ A b& (,)(,),,B0(, ),: ,D#,"amx";" max."ANALARM: BBAMX: VAST(AMX)BBNXA(AMX)ATb\l:v:drukt de alarmschakelaar af: (2,)(K,(),,BF Ą (2,),: #,AMXʄ҄:: drukt het alarm nul t/m zeven: en de spanning op de0: alarmschakelaar af8:S ALARM  : *[:e , (,AMX)(,(AMX)),AMX,BF  (,AMX),AMX˅#,VAST(AMX););A(AMX)ׅ ALARM݅*4:>: alarmsignaalH:R A(AMX) : p;\ (,d)(,),AMX,BFZf (  ,d)(d,),BB,BF`phz:: de alarmschakelaar kan in de: betreffende ruimte op eenԆ: sirene, zwaailicht of video-: camera worden aangesloten: A(AMX) , AL(BB)",80, 42118Z C0,F0,F8,FE,FF,0,1,1,3,F,1F,7F,FF,0,0,0,0,0,0,0,0,0,17,C8,B7,C2,E9,C8,3A,B6,D4,FE, 57760 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y ML232 Machinetaalcursus deel 13N( MSX Computer MagazineT2e< : %: F ': AZ : veel string-ruimteP"Ogenblik, ML wordt gePOKEd..."ZAD : startadres ML,d A$: (A$,)"*" AD,("&h"A$): ADAD: dbn : startadres programmaxMXd : aantal stringsҁ IND(MX), ST$(MX) : declareer de arrays: "Vul"MX"strings willekeurig:" I MXD G (): G  : kies een bovengrens 0-9 J G : bovengrens niet 0: maak string҂ ST$(I)ST$(I)(A()) : kies willekeurige hoofdletter݂ J IND(I)I : initialiseer index-array+ ,` "####: &";I,ST$(I); : druk de string afp ( )x I: "Array gevuld. Hoe sorteren? M=ML, B=basic: ";ރA$$(): ("BbMm", A$)  A$: A$"M" A$"m" : sorteren in Basic3""sorteren in Basic";,I6SIZEMX]@ HL SIZEmJ EERSTEHL|T KLEINHL^ DEHL SIZEƄh ST$(IND(DE))ST$(IND(KLEIN)) KLEINDEфr DE| IND(EERSTE), IND(KLEIN) HL : sorteren in ML:2"sorteren in ML":A: W! : gebruik de variabelen VOOR varptrA : W!(ST$()): & : STRINGՅA : W!(IND()): & : INTA : W!MX: & : SIZE7I() : roep de ML aan]"Het sorteren duurde "2"sec.""Druk op een toets om de strings te zien:": A$$() I MXن "####: #### &";I,IND(I),ST$(IND(I)) I,& W! W!W!EeS` : corrigeer voor negatieve adressen{0: POKE een 16-bits getal (adres) op twee opeenvolgende geheugenplaatsen:: A,W!(W!) : POKE het lage byteD A,W! : POKE het hoge byteNX:b: Hier begint de machinecode:$l:Pv: org 0F9F5HX:: STRING defw 0 ;0F9F5HΈ: INT defw 0 ;0F9F7H : SIZE defw 0 ;0F9F9H:H: ; het programma begint op 0F9FBHP: 2A,F9,F9: :start ld HL,(SIZE) ;aantal elementenщ 2B : : dec HL ;verlaag met 1  22,F9,F9: : ld (SIZE),HL ;en sla op:= 21,00,00: : ld HL,0E:~: ; start van de buitenste lus (HL): : E5 : :forHL push HL :*: ; voorbereidend werk voor de binnenste lus:4:&> E5 : : push HL.H:UR E5 : : push HL\ D1 : : pop DE ;kopieer HL naar DEf:܋p D5 : : push DE ;bewaar DEz:- D5 : : push DE ;bereken index-waarde...x C1 : : pop BC ;van index-nummer DE (=HL): CD,72,FA: : call index ; via BC 22,B9,FA: : ld (eerste),HL ;bewaar index-adres van HLQ 22,B7,FA: : ld (klein),HL ;start met kleinste=eersteY: D1 : : pop DE ;herstel DE؍ 13 : : inc DE ;begin met DE=HL+1 E1 : : pop HL:T: ; start van de binnenste lus (DE): DE begint als HL+1,: ; HL bevat steeds het index-nummer van de grootste string:ӎ D5 : :forDE push DE E5 : : push HL$:). E5 : : push HLP8 D5 : : push DEwB C1 : : pop BCL CD,72,FA: : call index ;bereken index van DEV 22,B5,FA: : ld (indDE),HL ;bewaar index-adresC` E1 : : pop HL ;herstel index HLKj:rt E5 : : push HLz~: D5 : : push DE:А E5 : : push HL C1 : : pop BC! CD,72,FA: : call indexK EB : : ex DE,HLr D1 : : pop DEz: D5 : : push DE CD,88,FA: : call DEmetHL ;vergelijk string DE( D1 : : pop DE ; met string HL0:W E1 : : pop HL_ : E1 : : pop HL D1 : : pop DE(:2 28,0A : : jr z,nextDE ;gelijk? verder;< 30,08 : : jr nc,nextDE ;niet kleiner? verderCF:P 2A,B5,FA: :kleiner ld HL,(indDE) ;geef aan dat deze stringœZ 22,B7,FA: : ld (klein),HL ; wasd D5 : : push DE9n E1 : : pop HL ;HL := DE: index vd kleinsteAx:y: ; test van de binnenste lus (DE):: E5 : :nextDE push HL ;bewaar HLĔ: 2A,F9,F9: : ld HL,(SIZE) ;bereken SIZE-DE+ AF : : xor Ar ED,52 : : sbc HL,DE ;vergelijk HL met SIZEz: E1 : : pop HL ;herstel HL 13 : : inc DE ;verhoog alvastD 20,CC : : jr nz,forDE ;niet klaar: terug naar forDEL:: ; verwissel nu de indices max en eerste: E5 : :verwiss push HL D5 : : push DE":., 2A,B7,FA: : ld HL,(klein) ;index-adres kleinster6 ED,5B,B9,FA: : ld DE,(eerste) ;index-adres eerste@ 1A : : ld A,(DE) ;lage byte eerste indexJ 4E : : ld C,(HL) ;lage byte maximale indexET 77 : : ld (HL),A ;en verwissel zem^ 79 : : ld A,Ch 12 : : ld (DE),Ar 13 : : inc DE| 23 : : inc HL. 1A : : ld A,(DE) ;hoge byte eerste indexx 4E : : ld C,(HL) ;hoge byte maximale index 77 : : ld (HL),A ;verwisselۙ 79 : : ld A,C 12 : : ld (DE),A:5 D1 : : pop DE\ E1 : : pop HLd:: ; test van de buitenste lus: bereken SIZE-(HL+1): ; en controleer zo of de grens HL=SIZE-1 bereikt is:C E1 : :nextHL pop HL ;herstel lusteller HL| 23 : : inc HL ;verhoog E5 : : push HL E5 : : push HL ;kopieer naar...& C1 : : pop BC ; BCI0 2A,F9,F9: : ld HL,(SIZE)o: AF : : xor AD ED,42 : : sbc HL,BC ;vergelijk HL met SIZEݜN E1 : : pop HL X 20,94 : : jr nz,forHLIb C9 : : ret ;gelijk: klaarQl:v: ; haal het index-nummer uit het array. Invoer: BC is het: ; index-nummer. Resultaat: HL is het adres van de index in5: ; het index-array; DE is de index-waarde zelf=: 2A,F7,F9: :index ld HL,(INT) ;HL=VARPTR(index-array) 09 : : add HL,BC ;HL=HL+BC 09 : : add HL,BC ;nog eens: HL=HL+2*BC :S 5E : : ld E,(HL) ;haal index uit arrayz 23 : : inc HL 56 : : ld D,(HL) ; in twee stappen 2B : : dec HL ; naar DE:$ C9 : : ret,:| : ; haal de informatie over element BC uit het string-arrayʠ: ; resultaat: DE wijst naar de string, B bevat de lengteҠ :* 2A,F5,F9: :straddr ld HL,(STRING) ;begin string-arrayR4 09 : : add HL,BC ;HL=HL+3*BC|> 09 : : add HL,BCȡH 09 : : add HL,BC ;bereken adres stringdescr.R 46 : : ld B,(HL) ;lengte van de string5\ 23 : : inc HLvf 5E : : ld E,(HL) ;lage byte adresp 23 : : inc HLޢz 56 : : ld D,(HL) ;hoge byte adres C9 : : ret:P: ; vergelijk string nummer DE met string nummer HLX: E5 : :DEmetHL push HL ;breng HL over...֣ C1 : : pop BC ; naar BCޣ:" D5 : : push DE ;bewaar DE op stackf CD,7C,FA: : call straddr ;bereken informatie EB : : ex DE,HL ;verwissel DE en HL 48 : : ld C,B ;breng de lengte naar C. D1 : : pop DE ;herstel DE6:x E5 : : push HL ;stel HL en BC... C5 : : push BC ; veilig op de stackǥ :$ D5 : : push DE0. C1 : : pop BC ;breng DE naar BCt8 CD,7C,FA: : call straddr ;bereken informatie|B :æL 78 : : ld A,B ;bewaar de lengte in AV C1 : : pop BC ;herstel BC...<` E1 : : pop HL ; en HLj 47 : : ld B,A ; en de tweede lengtet :Χ~ : ; nu heeft HL de eerste string, lengte in C : ; en DE de tweede string, lengte in B :g : ; vergelijk twee strings, waarvan de beginadressen in DE : ; en HL staan en de lengtes in B resp. C.ꨰ : ; Resultaat: Z-vlag gezet als strings gelijk% : ; anders: C-vlag gezet als (DE)>(HL)- :k AF : :strCP xor A ;vergelijk... B8 : : cp B ; B met 0 28,0C : : jr z,Bis0 ; ja: klaar B9 : : cp C ;nu C...\ 28,0D : : jr z,Cis0 ; ja: klaard : 05 : : dec B ;verlaag B... 0D : : dec C ; en C met 1  1A : : ld A,(DE) ;vergeljk (DE)]( BE : : cp (HL) ; met (HL)2 23 : : inc HL ;verhoog de...٫< 13 : : inc DE ; pointersF 28,F1 : : jr z,strCP ;gelijk? verder\P C9 : : ret ;ongelijk: stop NZdZ :d B9 : :Bis0 cp C ;B is al 0. C ook?n C8 : : ret Z ;ja: toch gelijk. stop Z7x 37 : : scf ;anders: zet carryvlagr C9 : : ret ;en stop Cz : B8 : :Cis0 cp B ;C is al 0. B ook? C8 : : ret z ;ja dus, 37 : : scf ;zet Cx 3F : : ccf ;en keer hem meteen weer om C9 : : ret ;stop NC : : indDE defw 0 : klein defw 04 : eerste defw 0< :D *1,1,3,F,1F,7F,FF,0,0,0,0,0,0,0,0,0,17,C8,B7,C2,E9,C8,3A,B6,D4,FE, 57760 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y BATRUN, start DOS-bat "naam" op2U( MSX/MS-DOS Computer Magazinez2 ingezonden door R. den Breejen<F : P: : ,,: : "naam.bat is loading"ŀP F,ZT$"call system"( )"naam"( )d I% : I%,: I%+n , : , `x (T$) , (T$): , :  ,((T$)): , I% (T$): I% ,((T$,I%,)): I%ԁ: "opdracht uitgevoerd"ځYY: : omlaagQ1A(Y BUFFER2 vraagt de naam van de .BAT ofB .COM fileH(k2 MSX/MS-DOS Computer Magazine< ingezonden door A. WulmsFÀP "Typ de naam van de .com of de .bat": A$ӀZY(A$,".")d Y A$(A$,Y)nA$(A$,)( ): L(A$)(x , : , C , L: , Q T Ln T,((A$,T,))v T F,: SYSTEM(T$): I% ,((T$,I%,)): I%ԁ: "opdracht uitgevoerd"ځYY: : omlaagQ1A(Y SHELL/ vraagt om het uit te voerenB DOS commandoH(k2 MSX/MS-DOS Computer Magazine< ingezonden door M. SchipperFP dit programma verwacht eenҀZ file die "D.BAT" heetd en de volgende tekst bevat:en %1 %2 %3 %4 %5 %6 %7 %8 %90x basic xxxx.bas6N : %: ,,k "type DOS-commando : "x DOS$DOS$"D "DOS$( ) V: A()AD( )( )ʁD AD, ((DOS$,D,))ADAD: DD: ADEdSP ADEdI`0 D(DOS$)  : P ,("&H"((AD),))p ,("&H"((AD),))} SYSTEMr A. WulmsFÀP "Typ de naam van de .com of de .bat": A$ӀZY(A$,".")d Y A$(A$,Y)nA$(A$,)( ): L(A$)(x , : , C , L: , Q T Ln T,((A$,T,))v T F,: SYSTEM(T$): I% ,((T$,I%,)): I%ԁ: "opdracht uitgevoerd"ځYY: : omlaagQ1A(Y Y-Z# toetsverwisselaar)L( MSX/MS-DOS Computer Magazinek2 ingezonden door A. Wulmsq<F : (P "Waar moet de routine komen te staan?"ՀZ "Ik adviseer u FA75, tenzij u een"d "PLAY commando wilt gebruiken"n "(Hexadecimaal opgeven)";A$4xA$("000"A$,)cLS("&h"(A$,)): MS("&h"(A$,))ADMSLS: AD( )( ) "Adres is te laag": P X 遠 A$: A("&h"A$): CSCSA: ADX,A X3 CS "U heeft een fout in de data regels gemaakt": k , : ,LS: ,MS: , : , FE,2E,28,05,FE,2F,28,05,C9 3E,2F,4F,C9,3E,2E,4F,C9om of de .bat": A$ӀZY(A$,".")d Y A$(A$,Y)nA$(A$,)( ): L(A$)(x , : , C , L: , Q T Ln T,((A$,T,))v T F,: SYSTEM(T$): I% ,((T$,I%,)): I%ԁ: "opdracht uitgevoerd"ځYY: : omlaagQ1A(Y TAOPZ, Tao-puzzles H:MSX-1 versie door Rini SchildersN(2: initialiseren *************************************************************< : %: hF "spel 1 of 2";SP%: SP% SP% FP ,: A(,): AZ: "grp:" AS #'Z : :kaderBd F: :zet schijven^n : :stel array opsx : :cursor ,(X ,Y ),COǁ "bm182,50": #,"MCM's": "bm182,60": #,"Tao" "bm182,70": #,"schuif-": "bm182,80": #,"puzzle";SP= "bm190,110": #,TL: "bm184,120": #,"zetten"X (,j)(,),,B: hoofdlus ***************************************************************** : : resets ZF I$$(): RI(I$) : I$: RI(I$) (I$) ( RI RI W RI V1 V1: CO : V1:COr RI h,,, ,(X ,Y ),CO V1 V2 P0 TLTL: (,n)(,x),,BF: "bm190,110": #,TL: RI D,,, :   ]: resetten vlaggen en hulpvariabelen ***************************************"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>1JT: cursor beweging **********************************************************^: naar rechtshP5A(Y,X): P9A(Y,X)r XL P4 : P4 XX: CCP4: : : YL (YL P8) XX: V2: | 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: KXX: Z: omhoogyP1A(Y,X): P2A(Y,X)؇ P1 : P1 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y,X): Q2A(Y,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-correctie} CC YY : CC YY: XX : CC XX&։0: array bijwerken **********************************************************:: blok naar rechts D P0 N,X,b,l: 0N R: A(Y,X),A(Y,X):bX f: R: z: A(Y,X),A(Y,X): vb f: R: l R: v: blok naar links P0 ,,,: ͊ f: z:  f: z: A(Y,X),A(Y,X): A(Y,X),A(Y,X)4 f: A(Y,X),A(Y,X): A f: U: blok omhoogs P0 ,,,:  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: A H: \: s  H: \: p: A(Y,X),A(Y,X): * \: A(Y,X),A(Y,X): 4 \: Č>: meest voorkomende swaps݌H 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): Ep A(Y,X),A(Y,X): bz A(Y,X),A(Y,X): : beweeg de schijven *******************************************************ōC1: C2KL㍘ RI ,,,: X1X : X2X1F1: Y1Y 3 RI (P0 P0) Y2Y1?: T_ RI (P0 P0) Y2Y1: T RI (P0 P0) Y2Y1?: T RI (P0 P0) Y1Y1 : Y2Y1: TΎ K  (X1,Y1TK)(X2,Y1TK),C2 (X1,Y2TK)(X2,Y2TK),C1 DY1Y : Y2Y1F2: X1X 'y RI (P0 P0) X1X1 : X2X1: T RI (P0 P0) X2X1?: TЏ$ RI (P0 P0) X2X1: T. RI (P0 P0) X2X1?: T 8 K .B (X1TK,Y1)(X1TK,Y2),C2QL (X2TK,Y1)(X2TK,Y2),C1WV]`kj: eindetTLTL: (,n)(,x),,BF: "bm190,110":#,TLҐ~X1X : X2X1F1: Y1Y 5: Y2Y1=ᐈ K \ KA KF C1 : KF C10 (X1,Y1K)(X2,Y1K),C2O (X1,Y2K)(X2,Y2K),C1Ui I : :  "bm182,140": #," ": W 2:  "bm182,140": #,"gelukt!"đ "bm182,150": #,"verder": "BM182,160":#,"spelen?".K$: K$"j" : K$"n" : 4: kader-opbouw ************************************************************  (,)(,),,BF: ( ,)(,),,BFՒ (',)(,),,BF SP (',)(g,),,BF( SP (G,)(,),,BF;2X: Y: V1: CO: <: blok-opbouw *************************************************************F SP EE:  : EE : ГP I EE: G1,G2,KLZ SP I F1>: F2> : I I I I F1>: F2 : I I F1: F2> : F1: F2”d 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 : J J : I : A(J,I): :  SP A(,) : A(,)ڕ J : I : R1: A(J,I)R1: : 2: maak cursor *************************************************************< ^e I : P$: S$S$((P$)): r$()S$x: aanvangs-positie en kleur van de schijven tao 1 40,25,8,104,25,2,104,57,12,40,89,7,72,89,7 40,121,11,72,121,11,104,121,2,104,153,12H: aanvangs-positie en kleur van de schijven tao 2z 40,25,3,40,89,12,72,25,6,136,25,3,136,89,12" 72,89,11,72,121,7,104,121,7,40,153,9,136,153,9ȗ,: 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 2=J 1,2,6,1,5,5,7,5,1,3,6,1,5,4,4,5,4,0,0,4XT: sprite data cursoru^ 0,224,192,160,16,8,4,2h: uitleg en bedieningr | 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."7 "Door op de spatiebalk te drukken wordt de cursorpijl wit en bewegen de blokjes niet meer mee."x "Door nogmaals te drukken verschijnt de blauwe pijl weer."ƚ "Na het indrukken van de select-toets zal de puzzle zichzelf oplossen.":oplossingen **************************************************************M "bm15,192": #,"oplossing in volgende nummer"{ W  : : (,)(,),,BF: P1 : P1 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y 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 spelenZF: TL:  : F: ݚ SP  : b: oplossing tao 1 in 84 zetten?: ingezonden door Sermon Smitshuysen, Maastricht 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 5,2,2,5,1,4,2,3,3,1,4,2,5,1,1,5,2,4,1,3,2,4,1,3,2,4,1,3,2,2,5,1W 1,1,5,2,2,3,1,4,5,3,3,5,4,2,3,1,1,4,2,3,5,4,4,5,3,2,4,1,3,2,4,1& 3,2,4,1,3,3,5,4,4,4,5,3,3,2,4,1,3,2,4,4,1,3,3,2,4,1,1,3,2,2,4,10 1,3,2,4,1,1,1,5,2,2,2,5,1,1,3,2,4,1,3,2,4,1,1,3,2,4,1,1,5,2,2,5): 1,4,2,3,3,1,4,4,2,5,1,1,5,2,3,1,4,4,5,3,3,3,5,4,4,2,3,1,3,1,5,2kD 2,5,1,4,2,3,3,1,4,2,5,1,1,4,5,2,3,5,4,4,5,3,2,4,1,1,3,2,4,4N: oplossing tao 2 in 119 zettenX: ingezonden door Jan de Geus, Den Haagb 1,1,4,4,2,5,1,3,5,4,2,3,1,4,2,4,2,3,1,4,2,3,5,4,1,5,2,3,1,4,1,3Ml 2,2,5,1,4,5,3,1,5,4,2,4,5,3,3,5,4,2,5,1,5,2,2,5,1,4,5,3,3,5,4,1v 3,2,2,5,1,1,1,5,2,2,5,1,4,5,3,1,4,3,5,4,2,2,5,1,1,5,2,2,2,5,1,1۞ 5,2,3,5,4,5,3,3,1,5,4,2,5,1,1,5,2,5,1,1,5,2,5,1,3,5,4,4,2,3,1,5" 2,2,5,1,4,2,3,3,5,4,4,4,5,3,3,5,4,1,5,2,3,3,1,4,4,1,3,2,4,1,1,3i 3,5,4,2,5,1,4,2,3,3,1,4,2,3,5,4,2,5,1,1,5,2,3,5,4,2,4,1,1,3,2,2 5,1,3,5,4,2,3,1,1,4,2,3,1,4,5,2,4,5,3,3,5,4,4,4,5,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,2,4,1,5> 2,3,5,4,4,5,3,3,3,5,4,2,3,1,4,2,3,5,4,4,5,3,5,4,1,5,2,5,1,3,5,4 1,3,2,5,1,3,5,4,4,5,3,2,5,1,5,2,2,5,1,5,4,2,5,1,5,2,2,5,1,4,2,3̠ 3,1,4,2,5,1,3,5,4,4,5,3,3,3,5,4,4,1,3,2,4,1,3,3,2,4,4,1,3,5,4,4 5,3,5,4,2,5,1,1,5,2,2,2,5,1,1,3,2,4,1,3,2,2,5,1,1,1,5,2,2,5,1,46 5,3,5,4,4,5,3,1,5,2,2,5,1,4 in volgende nummer"{ W  : : (,)(,),,BF: P1 : P1 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y : ICP/6 voor MSX :E: MSX/MS-DOS Computer Magaziner(: copyright MBI Publications B.V. 19852:*********************************Ā<: PAS TOP OF BASIC MEMORY AAN ****F ,(( J)( K)) PB( J)( K): BM3Z: STEL SCHERM IN *****************Pd : %: ,,: xn: GEEF INSTRUCTIE OP SCHERM *****x ,: "MSX/MS-DOS COMPUTER MAGAZINE"ρ ,: "INVOER CONTROLE PROGRAMMA/6"3 ,: "Dit programma maakt het mogelijk om de listings uit dit blad foutloos in te voeren." "Bij het intikken van programma-regelsverschijnt, nadat u op 'RETURN' of 'ENTER' gedrukt heeft een getal linksop de onderste regel."V "Dit getal moet gelijk zijn aan de bijde listing afgedrukte checksumwaarde.Als dit niet zo is, dan is er een fout gemaakt bij het intikken." "Let op, Basic-woorden moeten met hoofdletters geschreven worden!"˃: INSTALLEER MACHINECODE ********ڃ R  A$CSCS(((A$,))((A$,)))(R)@ (A$,)"*" BR,("&H"A$):  A$"**" A$: ABB("&H"A$): BR,AB((AB)): RR: BR,(AB):  A$"*1" A$: ABB("&H"A$): BR,AB((AB)):  A$"*2" BR,(AB):  RC: CONTROLEER DATA-WAARDES ******* CSG3 : "U heeft een fout gemaakt in de data- regels!": : "Eerst verbeteren!": ҅": ZET CHECKSUMROUTINE AAN *******ޅ,A()6: "Begint u maar met intikken" @2J: MACHINECODE *******************T 21,5E,F5,7E,23,FE,20,20,FA,7E,23,FE,20,28,FA,FE,27,28,D,FE,52,20,D,7E,FE,45,C0,23,7E,FE,4D,C0,E1,C3,**,9F,FE,72,C0,7E&^ FE,65,C0,23,7E,FE,6D,28,EF,C9,36,27,1,6,0,21,**,47,11,7F,F8,ED,B0,3E,C9,32,DB,FD,C3,**,CB,63,6F,6C,6F,72,20,1,6,0h 21,7F,F8,11,**,47,ED,B0,21,7F,F8,36,27,21,83,F8,36,27,23,36,D,21,DB,FD,36,C3,23,36,*1,71,23,36,*2,C9,1E,0,CD,**,00,21,5Er F5,6,1,7E,4F,FE,27,28,B1,18,1,4E,3E,0,B9,28,16,C5,16,7,CB,39,30,1,80,15,28,4,CB,20,18,F4,83,5F,C1,4,23,18,E4,6B| 11,80,F8,26,0,1,64,0,CD,**,B9,1,A,0,CD,**,B9,1,1,0,CD,**,B9,18,12,37,3F,3E,0,ED,42,FA,**,C5,3C,18,F8,C6,30,12 13,9,C9,CD,C9,0,C94,4,1,3,2,4,1,3,3,2,4,4,1,3,5,4,4 5,3,5,4,2,5,1,1,5,2,2,2,5,1,1,3,2,4,1,3,2,2,5,1,1,1,5,2,2,5,1,46 5,3,5,4,4,5,3,1,5,2,2,5,1,4 in volgende nummer"{ W  : : (,)(,),,BF: P1 : P1 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y  pause PLAATS UW FLOPPIES copy c:*.* a: del a:c4.bat copy c:*.* b: del b:c4.bat copy c:*.* d: del d:c4.bat c:c4 1,1,5,2,2,2,5,1,1,3,2,4,1,3,2,2,5,1,1,1,5,2,2,5,1,46 5,3,5,4,4,5,3,1,5,2,2,5,1,4 in volgende nummer"{ W  : : (,)(,),,BF: P1 : P1 YY: CCP1: : : XL (XL P2 ) YY: V2: YY: : omlaagQ1A(Y