(])&sIHCp SY26V#61} NF(F$,): PRINTROUTINE ******************! )A$@A$"*P"ڍ:TA$"*L"ڑ:c&A$"*S"ڎy0A$"*C"C::A$"*N"C:D(A$)&B$A$:A$"":vÁN N%  X (A$,N,)" " B$(A$,N):A$(A$,(A$)N):N b NlڍDvC(%(B$)),:B$:A$"":D\B$:A$"":D,:"DRUK SPATIEBALK VOOR VERVOLG";" "::Ă: MENU ************************** :: ,:"MENU MCM-C1":,N+  A$(N):A$(N)"OP=OP"ڑ"## &";N,A$(N):NN: R:"Nummer programma (0=opnieuw)"; N1: N1 N1N "Onmogelijke keuze!":N :N: ƒ: TEKSTEN ********************** *C,MSX COMPUTER MAGAZINE PROGAMMA'S,*L,DISKETTE MCM-D1,*L,*L,*N "Het gaat goed met MSX, uitstekend zelfs. Er zijn steeds meer goede programma's in omloop voor de nieuwe standaard."9 "En gelukkig niet alleen in de winkels, waar een beetje programma toch al gauw een paar tientjes moet kosten, ook via allerlei andere kanalen komt er steeds meer beschikbaar."υ *L,"MSX COMPUTER MAGAZINE werkt daar graag aan mee, met onder meer onze Programma Service, waarvan u op het moment het eerste product bekijkt."d *P,*C,VAN DE REDAKTIE,*N,*L,"Deze eerste diskette bevat alle progamma's die in de nummers 1 en 2 van MSX COMPUTER MAGAZINE gepubliceerd zijn."$ "Alle wijzigingen uit de OEPS-rubrieken tot en met nummer drie zijn al aangebracht, evenals diverse andere, kleine verbeteringen.. "Tot onze spijt echter hebben we het programma 'CRTDUMP', dat wel voor deze MCM-D1 diskette aangekondigd was, wegens ruimtegebrek in het tijdschrift naar nummer drie moeten verschuiven."3 "Vandaar dat het pas op de volgende MCM diskette zal verschijnen."8 *P,*C,OPBOUW,*N,*L,"De programma's op deze diskette zijn op twee manieren te laden. Op het laatste scherm verschijnt een menu, waaruit u kunt kiezen welk programma u wilt runnen."B "Dit programma zal dan automatisch worden geladen en gestart, zodat u ermee kunt werken."L *L,"Maar u kunt natuurlijk ook rechtstreeks laden, door met het 'FILES' commando de inhoudsopgave van de diskette op te vragen. Daarna kunt u alle programma's rechtstreeks laden en eventueel kopieren."yV *P,"Voor veelgebruikte programa's, zoals 'MCMBASE', of het 'ICP/2', is het zelfs wel zo handig om ze op een eigen diskette of cassette te zetten."[ *L,"Met de in MSX COMPUTER MAGAZINE meegeniete cassette-hoesjes bouwt u dan een keurige (cassette) programma-bibliotheek op."` *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."Ij "Laadproblemen bij diskette zijn zeldzaam, en vaak wilt een tweede of derde poging opeens wel slagen. Dit houdt overigens in dat uw drive niet goed afgesteld staat."یt *L,"Als de moeilijkheden daardoor echter niet op te lossen zijn, stuurt u dan de diskette, met een beschrijving van de problemen, naar:",*L~ MSX COMPUTER MAGAZINE  POSTBUS 1392# 1000 BJ AMSTERDAMo *L,"waarna wij uw diskette zullen omruilen voor een ander exemplaar."Ѝ *L,"Op telefoniese vragen over de Programma Service kunnen we tot onze spijt niet ingaan."܍ *P,*S: PROGRAMMA'S ******************v blue & pink,lampjes,botsauto's,wijnglas,invoer controle programma/2,een per huis,appel,gokkast,mcmdata,OP=OPLOPPIES copy c:*.* a: del a:c4.bat copy c:*.* b: del b:c4.bat copy c:*.* d: del d:c4.bat c:c4 , ,,: K$;" ... EEN OGENBLIKJE";: I K: P$: I;6 @: P$ AS 1:: P$@ ,: "DIT PROGRAMMA STAAT NIET OP FLOPPIE!";: "M3000S1T255L64CDEFG"J I : I:T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: d SCHUIFPUZZEL BLUE & PINK&nBx MSX Computer MagazineQ nummer 1Wd A(,)yX : Y : C I  :A(,I)I : I I  :A(,I)I : IĀA(,) I  :A(I,) : A(I,) : I "GRP:" AS # ,, ,, :. J 8S$""G I  P R$jS$S$(("&H"R$))r" I,$(J)S$6 J@ ( ,)(,),,BFJ ( ", )( C,),,BF܁T ( I, )(j,),,BF^ (p, )(,),,BFh ( D,B)( H, b),,BF0r (k,c)(o,),,BF>| I W I,(#,!I),,I_ Im I  I,(q,!(I)), ,I I ,(J,), ,Ă (,)(,f),,B :"BM180,35":#,"BLUE"  :"BM197,50":#,"&"!  :"BM188,65":#,"PINK"C :"BM180,90":#,"PUZZEL"b"BM170,120":#,"zetten:": INPUT ************************ 8XX$: XX$" " ۃ () 0,0,N,b,b,b,v,0& 0 Y : . :YY: 8:DYY: 8+N X DX . :XX: 8:Rb Y kl . :YY: 8:yv X  . :XX: 8:: TESTEN ***********************΄ A(X,Y)  A(X,Y) A(X,Y) H1 A(X,Y) A(X,Y) H1} ((X Y) (X Y)) A(X,Y) H1  : A(X,Y)  : : H݅ ((X Y) (X Y)) A(X,Y) H1  : A(X,Y)  : : H A(X,Y) z: H A(X,Y) : H' N: SCHUIVEN *********************bC: 8: C () ,, ,*,*,*,4,   A(X,Y) : H : >  A(X,Y)  : ((X Y) (X Y)) A(X,Y) : H : > : >F* A(X,Y) z: H : >4 A(X,Y)  : ((X Y) (X Y)) A(X,Y) : H : > : >̇>: KLAAR? ***********************HZZ : A(,ZZ)ZZ ZZ : \!RZZ : A(,ZZ)ZZ ZZ : Lq\ A(X,Y)MM MMA(X,Y):TTTT:(,x)(,),,BF:"BM225,120" :#,TTf 8 : p: BEWEGEN **********************وz A(X,Y),A(X,Y): .:YY: : :舄 L ! A(X,Y),('X,!Y!L),CC,A(X,Y)  L:P A(X,Y),A(X,Y): .:YY: : :_ L ! A(X,Y),('X,!Y!L),CC,A(X,Y) L:lj A(X,Y),A(X,Y): .:XX: : :։ L ' A(X,Y),('X'L,!Y),CC,A(X,Y) L:> A(X,Y),A(X,Y): .:XX: : :M L '{ A(X,Y),('X'L,!Y),CC,A(X,Y) L: A(X,Y) CC : A(X,Y) CC : CC $.('X,Y!)('X!,Y!!),,BF:8('X,Y!)('X!,Y!!),C,BF:DB: SPELEINDE ********************bL"BM170,140":#,"KLAAR!"V"BM170,165":#,"nog een":"bm170,175":#,"keer (j/n)?"`XX$:XX$"" `j XX$"n" : XX$"j" : `t: SPRITEDATA ******************n~ ff,ff,e0,e0,e7,e7,e7,e0,e0,e7,e7,e7,e0,e0,ff,ff,ff,ff,3f,1f,8f,cf,8f,1f,0f,c7,e7,c7,0f,1f,ff,ffԌ ff,ff,f3,f3,f3,f3,f3,f3,f3,f3,f3,f3,f0,f0,ff,ff,ff,ff,ff,ff,ff,ff,ff,ff,ff,ff,ff,ff,0f,0f,ff,ff: ff,ff,e7,e7,e7,e7,e7,e7,e7,e7,e7,e3,f0,fc,ff,ff,ff,ff,e7,e7,e7,e7,e7,e7,e7,e7,e7,c7,0f,3f,ff,ff ff,ff,e0,e0,e7,e7,e7,e0,e0,e7,e7,e7,e0,e0,ff,ff,ff,ff,0f,0f,ff,ff,ff,3f,3f,ff,ff,ff,0f,0f,ff,ff ff,ff,f0,f0,f3,f3,f3,f3,f0,f0,f3,f3,f3,f3,ff,ff,ff,ff,3f,1f,8f,cf,cf,8f,1f,3f,ff,ff,ff,ff,ff,ffl ff,ff,fc,fc,fe,fe,fe,fe,fe,fe,fe,fe,fc,fc,ff,ff,ff,ff,3f,3f,7f,7f,7f,7f,7f,7f,7f,7f,3f,3f,ff,ffҎ ff,ff,e7,e3,e1,e0,e0,e4,e6,e7,e7,e7,e7,e7,ff,ff,ff,ff,e7,e7,e7,e7,67,27,07,07,87,c7,e7,e7,ff,ff8 ff,ff,e7,e7,e7,e7,e6,e4,e0,e0,e2,e7,e7,e7,ff,ff,ff,ff,e7,c7,8f,1f,3f,7f,ff,7f,3f,1f,87,c7,ff,ff ff,ff,fc,fb,fb,fb,fd,fe,fd,fb,f7,ef,ef,f0,ff,ff,ff,ff,7f,bf,bf,bf,7f,ff,7b,b7,cf,cf,b7,7b,ff,ffT:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ:d PUZZEL LAMPJESn8x MSX Computer MagazineG nummer 1Mt: opzetten spelscherm ********** L():CC I  L(I) I"GRP:" AS #ʀ ,,؀ ,,: X1,Y1 ZZ  X2,Y2 (X1,Y1)(X2,Y2). X1X2 : Y1Y27 ZZց" 0,50,20,50,20,37,45,37,45,70,55,70,60,60,65,60,65,50,70,50,70,60,80,60,80,45,90,30,115,30,125,45,125,50,130,50,140,40,155,55,155,65,175,65,175,45,195,45, 195,55,205,55,215,25,220,40,240,40,245,50,245,65,255,65#6(,),,8@ I  HJ (I,),aT (I,s)(I,)z^ (I,s)(I,)h (I,)(I,)r (I,)(I,)ł| (I,)(I,)ނ (I,)(I,) (I,)(I,) (I,g)(I,g)) (I,`)(I,`)B (I,`)(I,g)[ (I,`)(I,g)m (I,d),,} (I,l), (I,l),,  I(,), , ,AA,APփ(,), , ,AC,A(,), ,  ZZ  YY (ZZ ,YY), "& ZZm0 10,0,18,15,2,10,40,28,1,17,20,1,5,26,35,8,48,14,6,40,37,0,20,34,5,39v: D I N (I,),X #,Ib Iʄl"BM90,00":#,"LAMPJES"v: hoofdlus spel ****************A$: A$"" * (A$)1 (A$)9 eCCCC:(S,<)(,B),,BF:"BM83,60":#,CC;"KEER"rN(A$) N L(N)  N  ZZ Nͅ L(ZZ) օ ZZ L(N) (N,l), , :  (N,l),,)(N,l),,9L(N)L(N)t  L()L()L()L()L()L()L()L()L() *} : speleinde ********************І*"BM70,71":#,"Alle lampjes zijn aan!" 4 CCU "BM70,82":#,"UITSTEKEND GEDAAN!": RF> CCU CCh "BM70,82":#,"PRIMA WERK": RjH "BM70,82":#,"DAT KAN BETER"R "BM65,140":#,"nog een keer (j/n)?"\A$: A$"" \ԇf A$"n" : A$"j" : \8m5000cfacfacfacfacfacfa"( )ڊ:d SPEL BOTSAUTOSn8x MSX Computer MagazineG nummer 1Mu: INITIALISATIE ***************** , : ,, :  :  C(,)̀SC : HS : STڀ 2  "GRP:" AS # "BM60,60"" #,"EVEN GEDULD AUB"+ #5 GCA : FU[" SCHS HSSCd,SCy6X :Y : F@TX : TY :TFJ "GRP:" AS#T "BM198,25"^ #,"BOTSҁh "BM208,45"r #,"AUTOS"| (,x)(,),,BF "BM195,120"$ #,"AUTO:";CA6 "BM195,150"J #,"TOPSCORE"\ "BM195,165"k #,"";HSt # ,(,Y),, ,( , ),,Ȃ: HOOFDLUS SPEL ****************߂K$: K$""  J    I 2: I! ,(J,Y),,) J1 C& :KK(ST)X0 C(X,Y) by:C(X,Y) :SCSC : FGFGDSXX : SYY N(SX,SY)(SX,SY),,BFÃX FGFX ؃b : KK l KK RXX:RYY:RFv KK RYY:RXX:RF2 KK RXX:RYY:RFP KK RYY:RXX:RF_DC(RX,RY)RRFRF: RRF RRFRRF FRF FRRF  C(X,Y)  D ӄ RF RXX RF RYY RF RXX RF RYY f2 D FRF : fJ F RXX:RYYb  F RYY:RXXz F RXX:RYY  F RYY:RXX*DC(RX,RY)4 D f>FUFU ȅHFFڅR F FF\ f D D p D z,,/zY : ()@P YBX:F: QY : `Y : nXRX:YRYzFUFU ,(X,Y),,F C(TX,TY) ӆTFTF: ()@P TFTF TF TFTF TF TFTF TF XRXTX:YRYTY7 TF YRYTY:XRXTXT TF XRXTX:YRYTYq TF YRYTY:XRXTXDC(XRX,YRY) D L$TFTF: ()@P TFTFˇ. TF TFTF8 TF TFTFB L D D V D `,t,~7`TY : ()@P TYLjTX:TF: ]tTY : jn~TY : jTXXRX: TYYRY ,(TX,TY),,TF &Ј: SPEL EINDE ******************눰 ((,<)(,),,BF "BM40,70" "GRP:" AS #( #,"GEFELICITEERD!"5SCSCFUE "BM50,85"[ #,"SCORE =";SCl "BM35,120" #,"NOG EENS(j/n)?"  #K$: K$"n"  K$"j" : lj( ω2 3 C(X,Y) <4C(X,Y): SCSC : FGFG5SXX : SYY ;6(SX,SY)(SX,SY),,BFJ< J  ZF I |P ,(X,Y),JI,IZ K  : Kd In Js FGFX ҊxCACA: CA 劂 "GRP:" AS # ((,<)(,),,BF   6:: SPRITE OPBOUW ***************D "R J _ SP$""o I  | D$ D$(("&H"D$)) SP$SP$D$ Iċ $(J)SP$̋ Jڋ:RECHTS" 00,00,00,00,1f,1f,04,1f, 1f,1f,04,1f,1f,00,00,0046 00,00,00,00,00,38,10,fcR@ ec,fc,10,38,00,00,00,00`J:OMLAAG~T 00,00,00,1b,1b,1f,1b,1b^ 03,03,0b,0e,0b,03,00,00h 00,00,00,b0,b0,f0,b0,b0،r 80,80,a0,e0,a0,80,00,00|:LINKS 00,00,00,00,00,1c,08,3f! 37,3f,08,1c,00,00,00,00? 00,00,00,00,f8,f8,20,f8] f8,f8,20,f8,f8,00,00,00k:OMHOOG 00,00,03,0b,0e,0b,03,03 1b,1b,1f,1b,1b,00,00,00ō 00,00,80,a0,e0,a0,80,80 b0,b0,f0,b0,b0,00,00,00: SCHERMDATA INLEZEN ********** N( J 3 D$D I _ D((D$,I,))p& C(I,J)Dz0 I: JD: 12345678901234567890123ÎN 99999999999999999999999X 9 222 9b 9 9999999911199999999 9l 9 9 222 9 9;v 9 9 999999111999999 9 9Y 9 9 94 222 9 9 9w 9 9 9999991119999 9 9 9 9 9 222 9 9 9 9 999999991119999 9 9 9я 93 222 59 9 9 9 9 999999991119999 9 9 9  93 222 222 313139+ 9 999911199999999 9 9 9I 9 9 222 69 9 9 9g 9 9 9911199999999 9 9 9 9 9 222 9 9 9 9 99991119999999999 9 9 93 222 9 9ߐ 9 9999111999999999999 9  9 222 9 99999999999999999999999A : SCHERM OPBOUWEN *************M* :V4 D$m> D$"EIND"  H D$"P" pR X1,Y1,C1,K1\ (X1,Y1),C1,K1f 4ɑp X1,Y1,X2,Y2,Cz D$"L" (X1,Y1)(X2,Y2),C D$"B" (X1,Y1)(X2,Y2),C,B7 D$"F" (X1,Y1)(X2,Y2),C,BFA 4W B,8,7,190,174,3o B,11,10,187,171,3 P,11,8,3,2 B,187,88,254,108,3 B,191,91,251,105,3Œ P,200,89,3,2ޒ F,186,92,250,104,1 L,26,26,172,26,2 L,172,26,172,156,2' L,172,156,26,156,2= L,26,26,26,74,2T L,26,74,138,74,2l L,138,74,138,90,2$ L,138,90,26,90,2. L,138,58,42,58,28 L,42,58,42,42,3ǓB L,42,42,155,42,2L L,155,42,155,138,2V L,155,138,26,138,2` L,42,122,138,122,2,j L,138,122,138,106,2Et L,138,106,26,106,2]~ L,26,106,26,138,2s F,42,42,45,58,9 F,135,106,138,122,10 F,135,74,138,90,10 EIND FX: FGє J   I  XXI :YYJ  C(I,J)  1 "BM=xx;,=yy;"A FXFXR "C8R1"u C(I,J) C(I,J)  (XX,YY)(XX,YY),,BF (XX,YY)(XX,YY),,BFɕ Iѕ( Jו2 000cfacfacfacfacfacfa"( )ڊ:  : ,,% X()0( Y()@2 Z(!,,)N< Q ^F X(Q),Y(Q)fP QuZ D  d"bm125,170"nS(D@ )xC(D@ ) A ̀Z(D,A,)SX(A)Z(D,A,)CX(A) (Z(D,A,)},Y(A)), A : (},), : D; B@P A @0AR (},),fN(B):J(B)u D  (},), A PXZ(D,A,)PYY(A)NZ(D,A,)J Y(A)O (PX},PY), : (PX},PY), A : D " BL, 40,0,4,6,4,-30,10,-45,4,-55,4,-70,30,-80,35,-106,55,-150,106,26,138,2s F,42,42,45,58,9 F,135,106,138,122,10 F,135,74,138,90,10 EIND FX: FGє J   I  XXI :YYJ  C(I,J)  1 "BM=xx;,=yy;"A FXFXR "C8R1"u C(I,J) C(I,J)  (XX,YY)(XX,YY),,BF (XX,YY)(XX,YY),,BFɕ Iѕ( Jו2 000cfacfacfacfacfacfa"( )ڊ:) : MSX Computer Magazine checker/21:^: copyright MBI Publications B.V. 1985(:*************************************2: INITIALISATIE ****************< ʀF ,,,ЀP׀Zd T%(,)n: INVOER PARAMETERS ************3x ,: "MSX COMPUTER MAGAZINE"^ ,: "INVOER CONTROLE PROGRAMMA/2" ,: "Gebruikt u tape of disk? (t/d): ";D$: D$"" D$ "d" D$"t"  ,: "Geef naam te controleren bestand "; F$ , : F$" wordt geopend"= D$"t" O$"cas:"F$ : O$F$P O$ AS #w: BEREKENING CHECKSUMS ********* ,: "Programma: " F$ " wordt gelezen" () ,: "regelnummer" () "wordt verwerkt." () r #, A$L$"": CS%: V+ N (A$)? T$(A$,N,) L$"" T$" " L$(A$,,N):  ,: L$: (A$,N,)"'" (A$,N,)"REM" N(A$): CS%: ,׃" CS%(CS%(T$)N)߃, N6CT%(CT%CS%)@T%(RL,)CS%JT%(RL,)(L$)&TRLRL0^ Wh: TONEN CHECKSUMS **************r ,: "Checksums programma "F$(): ,: "Druk spatiebalk voor volgend scherm"݄| ,: "checksum totaal:" CT% ()焆 ,V N RLU "######: ###;"; T%(N,), T%(N,);: VV: V V: () " ": LPLP LP I$: I$" "  : LP: V: ,:  N V (V ):LPLP߅ NLP : ($): N ,: "Klaar. Nogmaals bekijken? (j/n)";cI$: I$"j" , : (#);: LP:  : I$"n" : ̕: : 42,42,45,58,9 F,135,106,138,122,10 F,135,74,138,90,10 EIND FX: FGє J   I  XXI :YYJ  C(I,J)  1 "BM=xx;,=yy;"A FXFXR "C8R1"u C(I,J) C(I,J)  (XX,YY)(XX,YY),,BF (XX,YY)(XX,YY),,BFɕ Iѕ( Jו2 000cfacfacfacfacfacfa"( )ڊ: EEN PER HUIS6 MSX Computer MagazineE( nummer 2K2t<: INITIALISATIE ******************F H()PMZVTd ,,n ,x "grp:" AS #ʀ Ԁ ‖ J  S$"" I  A$* S$S$(("&H"A$))4 IC $(J)S$K Js: START SPEL ******************** (,h)(A,`),,BF: #," NUMMER?" A$"O" A$"o" сA$: A$""  (A$) (A$) B(A$)" M,(,),, ,MMG6 B ,,&,0,:,D,N,X\@ ,(X,Y),,oJ H(B) T (,h)(A,`),,BF: #,"WAARHEEN?"^Ch B Âr B ӂ| B ݂   () ,,,,,,, C () ,,,,,,,M { () ,,,,,,,  () ,,,,,,,  B *,>,R,f,z,,,B(B): ( B ,j,V,B,.,,,ABB: B BBk B l,v,,,,,, ,(X,Y),, ZZ ,: ZZ& ,(X,Y),, 0 H(B) : (HX,HY)(HX,HY), ,BF D (HX ,HY)(HX ,HY),-N (HX,HY)(HX,HY),8XH(B)Hb M *Rl zv: FLITSEN RAAM ****************** I  (HX,HY)(HX,HY),,BF : ̅ ZZ 2: ZZ (HX,HY)(HX,HY), ,BF (HX ,HY)(HX ,HY),C (HX,HY)(HX,HY),: [ ZZ 2: ZZc Iz ZZ ,: ZZMM M,((M) ,(M)), , ߆: HUIS IS BEZET *****************  B l,v,,,,,,  ,(X,Y),, ( U : LOPEN VOORUIT *****************list.s*DI: ": : CC4 C >DI: : : CCH C ҇RDI: : DI: r: CC\ C fDI: r: ": CC p C ,zDI: ": : CC: C YDI: : : CCg C DI: : DI: r: CC C DI: r: ": CCƈ C Ј *: LOPEN ACHTERUIT **************DI: ": r: CC$ C IDI: r: DI: : CCW C uDI: : : CC C DI: : ": CC$ C ͉.DI: ": r: CCۉ8 C BDI: r: DI: : CCL C -VDI: : : CC;` C ZjDI: : ": CCht C r~ : SCHERMOPBOUW ***************** (e,c),4, (e,`),,ъ (e,c),(,㊰ (e,`),,튺 P J  X,Y" (X,Y)(X,Y),A (X,Y )(X,Y),` (X,Y )(X,Y ),{ (X,Y)(X,Y ), (X,Y),,  (X,Y )(X,Y),,BFً (X,Y)(X,Y),,BF (X,Y)(X,Y),,BF ( (X ,Y)(X ,Y),A2 (X,Y)(X,Y),j< (X,Y),: : #,J: rF JP 86,5,140,27,162,81,140,135,86,157,32,135,10,81,32,27Z I d I,((I) ,(I)), ,n I x (,)(,), ,BF$"bm212,10": #,"EEN"?"bm212,25": #,"PER"["bm208,40": #,"HUIS"w"bm208,90": #,"OVER""bm204,100": #,"NIEUW""bm200,109": #," ='O' ": LOPEN VERTICAAL ************** I   ,(X,YIDI),,DI: . ZZ VT: ZZS ,(X,YIDIDI),,DI: k ZZ VT: ZZs IYYDI: : LOPEN HORIZONTAAL ************" I  , ,(XIDI,Y),,DI: 6 ZZ VT: ZZ@ ,(XIDIDI,Y),,DI: 5J ZZ VT: ZZ=T IN^XXDI: uh: LOPEN DIAGONAAL LO/RB ********r I  | ,(XIDI,YIDI),,DI: Ǐ ZZ VT: ZZ ,(XIDIDI,YIDIDI),,DI:  ZZ VT: ZZ I0XXDI: YYDI: W: LOPEN DIAGONAAL LB/RO ********j I   ,(XIDI,YIDI),,DI:  ZZ VT: ZZ֐ ,(XIDIDI,YIDIDI),,DI:  ZZ VT: ZZ IXXDI: YYDI: 9: COORDINATEN START MANNETJE ***KX] :Y( :\X:Y6 :m&X:YX :}0X:Yz::X] :Y:DX; :Yz:NX- :YX :ÑXX; :Y6 :b: COORDINATEN RAAM *************lHXV :HY :vHX:HY :$HX:HYQ :6HX:HY:IHXV :HY:\HX :HY:pHX :HYQ :HX :HY :: SPRITEDATA ******************* 03,07,05,07,01,03,07,0F,1B,33,03,03,06,06,0C,0C,80,C0,C0,C0,80,C0,F0,FC,CC,C0,C0,C0,F8,78,00,00w 03,07,05,07,01,03,07,07,0F,0F,0B,03,06,06,03,03,80,C0,C0,C0,80,C0,E0,E0,F0,F0,D8,C0,C0,60,60,60ݓ 01,03,03,03,01,03,0F,3F,33,03,03,03,1F,1E,00,00,C0,E0,A0,E0,80,C0,E0,F0,D8,CC,C0,C0,60,60,30,30C 01,03,03,03,01,03,07,07,0F,0F,1B,03,03,06,06,06,C0,E0,A0,E0,80,C0,E0,E0,F0,F0,D0,C0,60,60,C0,C0 03,07,05,07,03,07,0F,1F,1B,03,03,03,03,03,03,03,80,C0,40,C0,80,C0,E0,F0,B0,90,C0,E0,F0,30,00,00 01,03,02,03,01,03,07,0F,0D,09,03,07,0F,0C,00,00,C0,E0,A0,E0,C0,E0,F0,F8,D8,C0,C0,C0,C0,C0,C0,C0u 03,07,07,07,03,07,0F,1F,1B,03,03,03,03,03,03,03,80,C0,C0,C0,80,C0,E0,F0,B0,90,C0,E0,F0,30,00,00ە  01,03,03,03,01,03,07,0F,0D,09,03,07,0F,0C,00,00,C0,E0,E0,E0,C0,E0,F0,F8,D8,C0,C0,C0,C0,C0,C0,C0A 03,07,05,07,03,07,0F,0F,0F,0F,0F,07,03,03,03,03,80,C0,40,C0,80,C0,E0,E0,E0,E0,E0,C0,80,80,80,80h : SPELEINDE ********************* (,h)(A,`),,BF: #," BRAVO!!"4 ZZ : ZZז> (,h)(A,`),,BF: #,"NOG EENS?"HI$: I$"J" I$"j" : I$"N" I$"n" ,,: $R Hxx;,=yy;"A FXFXR "C8R1"u C(I,J) C(I,J)  (XX,YY)(XX,YY),,BF (XX,YY)(XX,YY),,BFɕ Iѕ( Jו2 000cfacfacfacfacfacfa"( )ڊ: APPEL/ MSX Computer Magazine>( nummer 2D2Y< :  ,,: lF "grp:" AS #P "bm40,100": #,"EET 'N"Z "bm40,150": #,"APPEL"d I : : ؀n (0,)(7,),x (0,0),, (0,0),# (0,0),, ,A1@,A1@4 (7,0), M (0,)(-,I), e (7,7)(7,-),z Y  ( X  2 DX 2 ׁ Xi YA DX " (XDX,Y)(XDX,YDX) (X2,Y)G (XDX,Y)(XDX,YDX),a (X2,Y),p DX{ X Y" (0,0),,, (0,0),,6 "M10S10C"ɂ@ (7,0),J (0,0),, ,A1@,A1@T (7,0), ^ (0,)(-,I), 3h (7,7)(7,-),`rCTCT: CT 6 : () @q| "M1000S8C" (d,(): I : : (d,() (},#): I : : (},#)郚 (,): I : : (,) (,#): I : : (,#)9 (,(): I : : (,()a (,-): I : : (,-) (,2): I : : (,2)CNCN: CN 6 : () ք "BM10,100": #,"LEKKER" "BM10,150": #,"APPELTJE"  I : I: $R Hxx;,=yy;"A FXFXR "C8R1"u C(I,J) C(I,J)  (XX,YY)(XX,YY),,BF (XX,YY)(XX,YY),,BFɕ Iѕ( Jו2 000cfacfacfacfacfacfa"( )ڊ: MSX GOKMACHINE8 MSX Computer MagazineG( nummer 2M2l< \: : riedel bij flopF z: : riedel bij scoreP : : schermĀZ : : kleur/sprite arrayd : : sprites inlezen n: spelen ************************x () x2 () B  : KXw: tijd dat wielen draaien wordt random gekozenT0(())T1T0(())T2T1(()): beginstand van de wielen wordt ook random gekozenP0(())(P1(())?P2(())g: hoofdlus **********************{ NT2   T0T0: T1T1: eerste wiel T0 @ς P0(P0)" ,(%,>),CO(P0,),CO(P0,): >", K KX: K: KXKXA66: tweede wielJ@ T1 r^J P1(P1)T ,(p,>),CO(P1,),CO(P1,): >^ K KX: K: KXKXAăh: derde wiel؃r P2(P2)| ,(,>),CO(P2,),CO(P2,): >+ K KX: K: KXKXA3 N9Y : : SCORE-BEREKENINGc x: het speelscherm ***************: , CO(,): SCĄ "grp:" AS#Ԅ ,,:  ( , )(,), ,BF  (#,<)(F,a),,B$ (n,<)(,a),,B> (,<)(,a),,BX (d,})(,),,Br (,7)(K,g),,B& (i,7)(,g),,B0 (,7)(,g),,B: (2,F)…D (s,F)ЅN (,F)X"bm37,20": #,"MSX COMPUTER MAGAZINE'S"b"bm100,35": #,"JACKPOT"6l"bm116,135": #,SCUv"bm105,145": #,"SPELEN"[a: inlezen van de sprites ********   J : S$""؆ I  : P$:S$S$(("&h"P$)): Iꆼ$(J)S$: J: inlezen van het kleur-array ***" Q I : L : CO(I,L): L: Iy: data letters en kleur *********Ç 1,3,2,5,3,7,4,11,1,5,2,7,3,9,5,13,1,7,2,9,3,3,4,11,1,9,2,3,3,5,5,13ɇ : huiltoon ********************** K   ,K: ,: , !* K'4O>: tikken van de raderen *********H,: ,: ,: ,:  ,:  ,:  ,:  ,R\: muziek bij flop ***************fM1$"v15t255o4gr16g8r16g8r16ar8grbo5r8c"pz: muziek bij score **************_M2$"v15t255o4g8r16g8r16a8r16b8r8g8r16b8r16ar16g8r16g8r16a8r16b8r8gr8f+"M3$"r8g8r16g8r8a8r8b8r8o5c8o4r16b8r16a8r16g8r16f+8r16d8r6e8r16f+8r8gr8g2"܉: scoreberekening ***************: letters M,S,X, eventueel joker CO(P0,) J03 CO(P1,) J1K CO(P2,) J2 (CO(P0,) J0) (CO(P1,) J1) (CO(P2,) J2) SCSC:M:gelijke kleuren CO(P0,)CO(P1,) CO(P1,)CO(P2,) SCSC: M:gelijke lettersZ CO(P0,)CO(P2,) CO(P0,) (CO(P1,)CO(P2,) J1) SCSC: M{: twee jokers naast elkaar (J0 J1) (J1 J2) SCSC: M֋ M M2$M3$ : M1$: SCSC$(t,)(,), ,BF . "bm116,135": #,SC%8M: J0: J1: J2=B SC : ~eL"bm85,182": #,"nog eens? (j/n?)"}VK$: K$"" V` K$"j"  : K$"n" : Vj xt~: game over ******************** X  "bm95,170": #,"game over"* Y : YH (_,)(,), ,BFP XV}: verder spelen na verlies *****(_,)(,), ,BF(U,)(,),,BF΍(t,)(,), ,BF׍SC "bm116,135": #,SC : data sprite 1 = M ************ E0,F0,F0,F8,FC,EE,E7,E3,E1,E0,E0,E0,E0,E0,E0,E0,0E,1E,1E,3E,7E,EE,CE,8E,0E,0E,0E,0E,0E,0E,0E,0E: data sprite 2 = S ************( 7F,FF,E0,E0,E0,E0,FF,FF,7F,00,00,00,80,FF,FF,FF,FF,FF,01,00,00,00,FE,FF,FF,07,07,07,07,FF,FF,FE82: data sprite 3 = X ************< E0,70,38,1C,0E,07,07,03,07,07,07,0E,1C,38,70,E0,0E,1C,38,70,E0,C0,C0,80,C0,C0,C0,E0,70,38,1C,0EŏF: data sprite 4 = joker ********+P 03,0C,10,20,40,46,86,80,80,88,4C,46,23,10,0C,03,C0,30,08,04,02,62,61,01,01,11,32,62,C4,08,30,C0RZ: data sprite 5 = dummy ********d 03,0C,10,20,40,46,86,80,80,83,46,4C,28,10,0C,03,C0,30,08,04,02,62,61,01,01,C1,62,32,14,08,30,C0 "BM10,100": #,"LEKKER" "BM10,150": #,"APPELTJE"  I : I: $R Hxx;,=yy;"A FXFXR "C8R1"u C(I,J) C(I,J)  (XX,YY)(XX,YY),,BF (XX,YY)(XX,YY),,BFɕ Iѕ( Jו2 000cfacfacfacfacfacfa"( )ڊ: MCM DATABASE6 MSX Computer MagazineE( nummer 2K2l< (c) AJMO WITKOP 21/03/1985rFP: : ,: ,,,,: (: X: MRc: A$(,), NV$(,): Z:QUICKSORT MODULE **************** dS: ST(,): ST(,)RN+nLST(S,): RST(S,): SSKxJL: KR: A$A$((LR),SV)l A$(J,SV)A$ JJ:  A$(K,SV)A$ KK:  JK JJ: KK:  JK N NV: A$(J,N),A$(K,N): N: JJ: KK:  JR SS: ST(S,)J: ST(S,)R0RK: LR xE S n : m:START SCHERM *******************I9$"mcmdata1.0" ST(,) ,: ((,);ӂ N : () ') ();: N ((,);0 ,: () (X);: N : () (W);: N: () (Y)s ,: () (V) "MCMDATA 1.0 ... 1984/1985" () (V) ,: () (Z);: N : () (W);: N: () ([)" , : "A.J.M.O. WITKOP (c)1985",  ,: "DRUK EEN TOETS"6V1"@ "" @JJ:HOOFDMENU **********************|T &,,,,,P,,@,, ^ ,"invoer": ,"kijken": ,"sorteer": ,"help": ,"printen": ,"defin.": ,"laden": ,"saven": ,"opbouw":  ,"stoppen",h N  : (N) : N: _r: ,: "F1.......START INVOEREN GEGEVENS"| ,: "F2..............BESTAND BEKIJKEN" ,: "F3..............BESTAND SORTEREN" ,: "F4..........................HELP"  , : "F5.......................PRINTEN"Q , : "F6............BESTAND DEFINIEREN" ,: "F7.................BESTAND LADEN" ,: "F8.................BESTAND SAVEN" ,: "F9............DEFINITIE BEKIJKEN" ,: "F10......................STOPPEN",V2: : TT:FUNCTIES UIT ******************* N  : (N) : N,"": N: : :DEFINITIE? ********************* V1 ,: "NOG GEEN BESTANDSDEFINITIE": V2:  : :GEGEVENS? **********************\ V1 ,: "NOG GEEN GEGEVENS IN BESTAND": V2:  : :INVOER *************************&: : ,: "INVOER": : V1 + RNMR ,: "BESTAND VOL": V2: : L0 ,,,,: ,"menu": ,"ruimte": ,"opnieuw": () : () : () : ~: ,: "maximum alfa veldlengte: 27 tekens"D ,: "Record:" RN0N N NV: ,N: (NV$(N,)".......",) ":";: NV$(N,)"a" MS: V2 : ,N: "(numeriek ";NV$(N,)")": MS(NV$(N,)): V2X  ,N: : NV$(N,)"a" A$(RN,N)I1$ : A$(RN,N)(" "(I),(NV$(N,)))b NlRNRN: RN V1 : V1Ɗv &: menu ************************** N (I1$) T : 9: geheugen ********************** N (I1$) : ,: "nog" ("") " tekens vrij": V2: : ,: (): N̋: opnieuw ***********************㋲ N : & :KIJKEN *************************N: : ,: "BEKIJKEN": : : V1 V2:  , , ,f,z,,,,.,V: ,"first": ,"next": ,"change": ,"jump": ,"group": ,"last": ,"prev.": ,"erase": ,"search":  ,"menu"# N  : (N) : N: :V2: : b:first **************************y ~: PR: j:next ***************************΍  ~: PRRN PRPR: j : :change *************************k  ~: ,: "Geef nummer van wijzigen record: ";: MS: V2: : ,: (&): IRN I Ȏ*PRI: j: ,: "Welk veld? (0=niet) ";: V2: MS: : ,: (&): HI4 H ~: : H HNV ~: > ,: "Geef nieuwe inhoud (max. ";: NV$(H,)"a" "27 ";: MS: V2 : (NV$(H,));: MS(NV$(H,)): V2ӏH "tekens)": : NV$(H,)"a" I1$(" "(I),(NV$(H,)))RA$(PR,H)I1$: ,: (F): ~'\:jump ***************************f ~: ,: "Geef nummer van te tonen record:";: MS: V2: : ,: (&): IRN I  : PRI: jҐp:group **************************Tz: : ,,,,: ,"next": ,"prev.": ,"menu": () : () : () : : H((NV)): H1: kV2: : : H2H1H: H2RN H2RN: NH1 H2: ,((NH1)(NV)): " record: ###";N: N1 NV: ,N1((NH1)(NV)): "## \ \:&";N1;NV$(N1,);A$(N,N1): N1: N: ^ H1HRN H1H1H: : next *h  H1H H1H1H: : prev **  : : menu **************:last *************************** ~: PRRN: j":previous **********************L ~: PR PRPR: j : s:erase ************************* ~: ,: "Geef nummer te verwijderen record:";: MS: V2: : ,: (&): IRN I DPRI: j: ,: "Dit record verwijderen? (j/n)": V2: : ,: (&) ~: I1$"n" : NPR RN: N1 NV: A$(N,N1),A$(N,N1): N1: N: RNRN: RN V1 : V1: $:search ************************K. ~: ,: "Geef zoektekst (max. 8 tekens)";: MS: V2: : H$I1$: ,: (&)8 N2 RN: N1 NV: (A$(N2,N1),H$) PRN2: j: ,: "Verder zoeken? (j/n)": V2: : ,: (&): ~: I1$"n" AB N1: N2: ,: "Zoektekst niet gevonden": V2: : ,: (&): ~: hL:menu **************************rV T`:show present record *********** j  ,: "record nummer";PR: " veld": " # naam inhoud": : N NV: "## \ \:&";N;NV$(N,);A$(PR,N): N: Gt:wissen veld *******************p~ N  : ,N: ((): N: :MELDINGEN *********************ݗ , : "record bestaat niet": V2: : , : (&): ! , : "veld bestaat niet": V2: : , : (&): H:SORTEER ***********************: : ,: "SORTEREN": : : V1 V2:  : ,: "Op welk veldnummer sorteren? ";: MS: V2: : ,: ('): INV I ~: : : SVI: d: A:HELP **************************`: : ,: "HELP"ߙ ,: "De volledige gebruiksaanwijzing voor de MSX Computer Magazine database is te vinden in het tweede nummer van" "MSX Computer Magazine."G "Desgewenst kunt u zelf op dit scherm wat uitleg zetten."`V2: : V2: :PRINTEN ***********************ɚ: : ,: "PRINTEN": : : V1 V2: k ,: "Nummer startrecord: ";: V2: MS: : SI: SRN S ,: "FOUT! nummer startrecord onmogelijk": V2: : ,: (&):  ( ,: "Nummer eindrecord: ";: V2: MS: : EI: ERN ES ,: "FOUT! nummer eindrecord onmogelijk": V2: : ,: (&): (K2 ,: "maak printer gereed": V2: : ,: (&)՜< ,: "PRINTEN...": NS E: "RECORD NUMMER:" N: N1 NV: "## \ \:&";N1;NV$(N1,);A$(N,N1): N1: : N: F:DEFINIEER *********************P: : ,: "DEFINIEREN": V1 ,: "De reeds aanwezige definitie zal worden overschreven. Akkoord? (j/n)": V2: : I1$"n" Z ,: (P): A$,NV$: V2xd ,: "Aantal velden (max. 10) per record? ";: MS: V2: : NVI: NV NV ,: ((): d : A$(MR,NV),NV$(NV,): ,: "Veldnamen maximaal 8 tekens"n N NVޞx ,N: "naam veld" (()(N),) ":";: V2: MS: : NV$(N,)I1$D ,N: "type (a/n)";: V2@: &,N: MS: : NV$(N,)I1$: I1$: I1$"a"  ,N: "lengte (max. 8)";: &,N: MS: V2: : I I  : NV$(N,)(I) N۟ ,: N  : (');: NKV1: : ,: "Bestandsdefinitie akkoord? (j/n)": V2: : I1$"n" V1: P : RN: r:LADEN *************************: : ,: "LADEN BESTAND": V1 ,: "REEDS AANWEZIGE DATA GAAN VERLOREN": ,: "is dit akkoord? (j/n)" : DV2: : I1$"n" T : ,: (): ,: (#) ,: "laden van disk? (j/n)";: V2: : OP$"": I1$"n" OP$"CAS:" ,: "tik bestandsnaam in (max. 6 tekens)": ,: V2: MS: : FL$I1$: OP$OP$I1$ (OP$,)"CAS:"  , : "positioneer tape op juiste tellerstand": , : "druk spatie als tape klaarstaat": : V2: :  , : "druk de play toets in" (): , : "druk daarna de spatie in ": V2: : , : (&): , : (&) , : FL$ " wordt geladen": OP$ AS #: #,I8$: I9$I8$ , : FL$ " is geen MCMDATA bestand": #: V2: : TT #,NV: A$,NV$: A$(,NV),NV$(NV,): N NV: #,NV$(N,),NV$(N,): N: #,RN: N RN: N1 NV: #,A$(N,N1): N1: N: V1: # N NV: NV$(N,)"a" N1 RN: A$(N1,N)(" "A$(N1,N),(NV$(N,))): N1" N,: : ,: RN "records geladen": V2: : '6:SAVEN *************************o@: : ,: "SAVEN BESTAND": : : V1 V2: ĥJ ,: "saven naar disk? (j/n)";: V2: : OP$"": I1$"n" OP$"CAS:"'T ,: "tik bestandsnaam in (max. 6 tekens)": ,: V2: MS: : FL$I1$: OP$OP$I1$E^ (OP$,)"CAS:" |h , : "positioneer tape op juiste tellerstand": , : "druk spatie als tape klaarstaat": : V2: : Ur , : "druk de play en record toetsen in ": , : "druk daarna de spatie in ": V2: : , : (&): , : (&)| , : FL$ " wordt gesaved": OP$ AS #: #,I9$ #,NV: N NV: #,NV$(N,) ( ) NV$(N,): N: #,RN: N RN: N1 NV: #,A$(N,N1): N1: N: V1: #: D:OPBOUW ************************: :  ,: "DEFINITIE BESTAND": : V1 V2:  : V2: : ɨ:  ,: "DEFINITIE BESTAND"C ,: ) "veld" ) "veld" ) "veld" !) "veld": ,: ) "nummer" ) "naam" ) "type" !) "lengte": Ʃ N NV: ) (" "(N),))NV$(N,);: NV$(N,)"a" ) "alfa" !)  : ) "numeriek" ") NV$(N,)Ω Nԩ:STOPPEN ***********************: : ,: "STOPPEN"U V1  "De gegevens zijn nog niet opgeslagen" , : "Programma beeindigen? (j/n)": V2: : I1$"n" : Ϊ: INPUT ************************ߪX: Y()& V4 V2 V4:  :  0 !,: "MCMDATA"*: ,D V1 "Bestand: " FL$ ((FL$)): : V1  "Bestand nog niet weggeschreven": : V1  "Nog geen gegevens ingevoerd ": : V1  "Nog geen bestandsdefinitie "N ,X V2 ()?b V2 "Voer getal in "pl V2 "Voer tekst in "v V2 "Kies gewenste functie "Ҭ V2 "Voer getal in of kies functie " V2 "Voer tekst in of kies functie "4 V2 "Druk spatiebalk in "f V2 "Kies j of n " V2 "Kies letter voor functie "ʭ V2@ "Kies a of n "ԭ Y,X V2  V2  ();: I1$""$I$: V2 : I$"" 5 V2 c V2 I$" " V2: : :  V2 I$"j" I$"n" V2: I1$I$: : :  V2@ I$"a" I$"n" V2: I1$I$: : : : I$ () (I1$)  : I1$(I1$,(I1$)): (,) ();:   V2  I$( ) (I1$) V2: ();: : : ٯ V2  I$( ) (I1$) V2: I(I1$): ();: : :   V2  I$"0" I$"9" * I$" " I$"}" F4 (I1$)MS I1$(I1$,MS): p> () I$ ();: I1$I1$I$: 83,46,4C,28,10,0C,03,C0,30,08,04,02,62,61,01,01,C1,62,32,14,08,30,C0 "BM10,100": #,"LEKKER" "BM10,150": #,"APPELTJE"  I : I: $R Hxx;,=yy;"A FXFXR "C8R1"u C(I,J) C(I,J)  (XX,YY)(XX,YY),,BF (XX,YY)(XX,YY),,BFɕ Iѕ( Jו2 000cfacfacfacfacfacfa"( )ڊ:  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 10,150": #,"APPELTJE"  I : I: $R Hxx;,=yy;"A FXFXR "C8R1"u C(I,J) C(I,J)  (XX,YY)(XX,YY),,BF (XX,YY)(XX,YY),,BFɕ Iѕ( Jו2 000cfacfacfacfacfacfa"( )ڊ: