(\4KxIHCp SY26V#61} "Zet uw machine even uit, wacht een half uurtje en probeer het nogmaals. Vaak is warmte de oorzaak van de problemen.H "Want hoewel de disk een betrouwbaar medium is, kan het gebeuren dat uw drive niet helemaal juist afgesteld is.R *L,"Als de moeilijkheden daardoor echter niet op te lossen zijn, stuurt u dan de diskette, met een beschrijving van de problemen, naar:",*LƘ\ *P,"Tijl Tijdschriftenf "Afd. MCM Lezersservicep "Postbus 9943z "1006 AP Amsterdam^ *L,"waarna wij uw cassette zullen omruilen voor een ander exemplaar."5 *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.ߚ *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.ۛ *L,"De redactie beschikt continu over een zogenaamde vragenlijn, telefoon: 020-860743. Meestal zult u op dit nummer een antwoordapparaat treffen, 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. 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:M *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,*S5: PROGRAMMA'S ******************Q DRWMS2 ' Drawmuis 2,1o BALWRP ' Balwerp spel,1 STACKP ' Houdt stack in de gaten,0 SUBTST ' Test nestdiepte GOSUB's,0ܞ STKFT1 ' Stackfout,0 STKFT2 ' Schijnstackfout,0  SCORE ' score op screen 2,0K ICP6 ' Invoer Controle Programma,1Y OP=OP,0T NIET OP FLOPPIE!";: "M3000S1T255L64CDEFG"J I : I:T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ:# DRWMS2, drawmuis versie 2.0)E MSX Computer MagazineK(z2 aangevuld door Hr. A.M.L. Croes, Heerlen<F: P: : ,,: P ĀZA$: A$"" Zd "GRP:" AS #: : : ,nXU: Yd: KL: SC: KL6x$()(,)()(,)()j$()(,()()()()(,()()}$()(, )  ( ) Ł () XX( ): YY() () XX( ( ))( ( ))% () YY( ())( ())H Y Y : Y Yk X X : X X ,(X,Y),: ,(X,Y), () () (X,Y):  () () N 2: N: () + () () N 2: N: () J5 [: start- en eind-punten bepalenu: st=start; ei=eind" () A ,(X,Y),,: ,(X,Y),,: XSTX: YSTY: , () A , : () A: : B6 () A ,(X,Y),,: ,(X,Y),,: XEIX: YEIY: y@ () A @ : () A: : J: opdracht selecterenT: kol=x-positie selectie-vlakjeń^KOL܄h ( ) hr () () : (|KOLKOL( ())( ())Q KOL KOL : KOL KOL ,(,KOL),: ,(,KOL),: hօ () ()  : (KOL) ,,,,X,,,: 녤: lijn tekenen (XST,YST)(XEI,YEI): : 4: 1: cirkel tekenenB: r=straalzR((YEIYST)(XEIXST)): (XST,YST),R: Ɇ XSTR YSTR (,)(,),,BF: (,)(,),,BF:  : 4: : blok tekenen'(XST,YST)(XEI,YEI),,B: : 4: I: zet coordinaten op scherm(,): #," ": (,): #," "ԇ(,): #, "### ###";XST,YST: (,): #, "### ###";XEI,YEI: : gesloten vlak vullen&: vk=vlakkleur, rk=randkleur&0VK(XST,YST)\: NXST : (N,YST)VK RK(N,YST) : ND RK: (,): "R170D200L170U200": KLN(XST,YST),KL,RK: 4: ňX: kleur selecterenۈb: kl=tekenkleurl () () : (v N  : N: () KL KLKLW N  : N: () KL KLKL KL: (,P): #,();(): lω () ()  : 4: (,): "R170D200L170U200": 鉞:beeldscherm wissen : : : 4: ':scherm van disk lezenV:vdp(9)=sprite disable vlag, N$=filenaamh R: N$,S : : ()() : 4: :scherm naar diskette:vdp(9)=sprite disable vlag, N$=filenaam R: N$,,ET',S' : : ()() : 4: 3:hulpY  (,)(,) "screen8.tmp"t : : :   "screen8.tmp" (,)* "screen8.tmp": ׋4:start-, en eind-sprites verwyderen> N : N,(,),,: N#HXST: YST: XEI: YEI: A: AR: filenaam samenstellent\: vdp(9)=sprite diasable vlag, SC=filenummerf : (,): #, ( , ): ()() Ќp(,): #,"SCREEN";SC;"SELECTEREN"z () () : ' N : N: () () SC SCSC_ N : N: () () SC SCSC|(0,): #,SC: zSCSC: N$"SCREEN"(SC)".PIC": SCSC鍬 : : (,)(,),,BF: (,)(,),,BF: : start-scherm opbouwen((,): "R170D200L170U200"ю : (,): #,();();" Lynen": (,): #,();();" Cirkels": (,(): #,();();" Blokken": (,<): #,();();" Vullen"(,P): #,();();" Kleur ?"(,d): #,();();" Wissen": (,x): #,();();" Laden": (,): #,();();" Saven": (,): #,();();" Hulp"֏(,): #,"Coordinaat": (,): #," X Y" KL: (,P): #,();(): : hulp-scherm "Met DRAWMUIS kan men lynen, cirkels, blokken en figuren in 255 kleuren tekenen": "------------------------------------------------------------------------------":  "LYNEN: met R begin en eindpunt vastleggen, kies met L code LIJNEN en druk R+L.": v "CIRKELS: met R m.p. en omtrek vastleggen, kies met L code CIRKELS en druk R+L.": Α$ "BLOKKEN: met R de diagonaal vastleggen, kies met L code BLOKKEN en druk R+L.": '. "FIGUREN: met R+L kan geschreven of een willekeurige tekening getekend worden.": 8 "KLEUR: kies met L code KLEUR, druk R+L en dan R/L voor de kleurkeuze, druk R+L.": ܒB "INKLEUREN: met R 'n punt in de fig. vastleggen, met L code VULLEN en druk R+L.": /L "WISSEN: kies met L de code WISSEN, druk R+L en het scherm wordt gewist.": V "LADEN: met code LADEN en R+L laden tek. van disk. Voor een ander (Basic)progr."ߓ` " laden met: 10 SCREEN 8 / 20 BLOAD";(");"naam.PIC";(");",S / 30 GOTO 30": 2j "SAVEN: met code SAVEN en R+L wordt de tekening naar disk weggeschreven.": t "R = rechter en L = linker muisknop. VOOR VERVOLG DRUK EEN TOETS."~A$: A$"" ~ nestdiepte GOSUB's,0ܞ STKFT1 ' Stackfout,0 STKFT2 ' Schijnstackfout,0  SCORE ' score op screen 2,0K ICP6 ' Invoer Controle Programma,1Y OP=OP,0T NIET OP FLOPPIE!";: "M3000S1T255L64CDEFG"J I : I:T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: balwrp7 MSX/MS-DOS Computer Magazine=(r2 wedstrijdinzending van T. van Dooren, Steenselx<F: : (: ,P " ++++++++++++++++++++++++++ހZ " ++ ++d " ++ BAL WERPEN ++,n " ++ ++Sx " ++ door ++z " ++ ++ " ++ THEO VAN DOOREN ++ȁ " ++ ++ " ++++++++++++++++++++++++++: : : : / "====================================="] "BAL WERPEN MET SPATIEBALK OF VUURKNOP" "=====================================" T x: T ,,: ,: XC: SCڂ "GRP: " AS # (,d) #, " een ogenblikje2: inlezen sprites ***************< L I _a" A: 8I,Au, CHCHA(I)}6 Iƒ@ CHGP5U : "fout geconstateerd in DATA-regels!": ߃J: (,)(,),,BT ,((,),, ^ ,(n,),,h ,(,),,Fr: snelheid kiezen ***************T| ( ,)~ #, "KIES SNELHEID MET F1..t/m..F5"(): (): (): (): ()„ ,,,,߄  : wacht op keuzeS@P: S: SA: #S: 2S: Z: start spel ********************v: (,)(,),,B(): (): (): (): ()Y: X XC ҅(): () , &: bal heen en weer rollen *******)0 ,(X,Y), ,: XXSE: ,(X,Y), ,: XXSaD ,(X,Y), ,: XXS}N X 0 : X lb(): ()l ,(X,Y), ,: XXS҆v ,(X,Y), ,: XXS ,(X,Y), ,: XXS  X l :  0;:als vuurknop wordt geactiveerd *P() : () n ,(X,Y), ,: YYS :  Y  : fć:subroutine bij raak ************݇ :  :geluid (XC,), XP X  : [ #, ()(B);()(B);()(B): XCXC2: SCSC:  w XP   :   #, ()(B);()(B): XCXC2: SCSC:  ߈ #, ()(B): XCXC2: SCSC  ,, : T : T: FF* ,(X ,Y ),,34 T : TQ> ,,: T : TlH ,(X ,Y ), ,R T : T\ F   : ĉf:subroutine bal mist (lachen) ***ډp : : geluidz L   ,((,),, ,(n,),,/ ,(,),, E T 2: T\ ,((,),,s ,(n,),, ,(,),, T : T L (XC,),ъ #, "I": XCXC2 ,,: F: T F: T: Y: X: -:subroutine eindstand **********LX12: Y1K: X2: Y2_w (<,R),: #, "AANTAL PUNTEN:";SC (X1,Y1)(X2,Y2), ,B$X1X1: Y1Y1: X2X2: Y2Y2Ջ. X1  : 88 (,)(,),,BFB (,),.L SC #, " JE BENT EEN GROTE NUL"eV SC SC #, " TOCH NOG EVEN OEFENEN"` SC SC #," DAT WAS NOG NIET ZO GEK"܌j SC SC #, " GAAF ZEG, JE BENT GEWELDIG "t SC #, " JE BENT EEN KEI "&~ T : TV: (,)(,),,B: XC: SC: rs:sprite 0 smalle fig. 000,001,001,001,001,001,001,003,001,002,001,001,001,001,000,000 000,192,192,192,192,192,192,224,192,160,192,192,064,192,128,000:sprite 1 medium fig.b 000,001,003,003,003,015,015,003,006,007,003,002,003,001,000,000 000,192,224,224,248,248,224,224,176,112,224,032,224,192,000,000Ď:sprite 2 dikke fig.  000,007,031,015,031,061,250,253,255,255,119,058,060,031,007,000P 000,224,248,240,248,220,175,223,255,255,238,156,060,248,224,000g:sprite 3 bal 1 056,092,250,238,254,190,116,056,000,000,000,000,000,000,000,000 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000 :sprite 4 BAL 2P 056,108,254,234,254,190,108,056,000,000,000,000,000,000,000,000 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000(:sprite 5 BAL 32 056,116,254,190,234,254,092,056,000,000,000,000,000,000,000,0009< 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000RF:sprite 6 explosieP 008,065,002,016,066,011,006,139,039,021,067,009,128,002,040,001ޑZ 016,066,016,037,128,072,226,224,085,224,210,032,133,016,064,004d:sprite 7 explosie=n 000,000,002,016,002,010,005,010,007,021,003,009,000,002,000,000x 128,200,096,208,164,080,176,096,128,016,000,000,001,000,001,000:sprite 8 smalle fig.met lach풌 001,001,001,001,001,001,003,000,001,002,001,001,001,001,001,0003 192,192,192,192,192,192,224,000,192,160,192,192,064,064,192,128X:sprite 9 medium fig. met lach 001,003,003,003,015,015,003,003,006,007,003,002,002,002,003,001䓴 192,224,224,224,224,248,248,224,176,112,224,032,032,032,224,192:sprite 10 grote fig.met lachN 007,031,000,015,031,063,248,255,255,255,119,050,056,060,031,007 224,248,000,240,248,252,143,255,255,255,238,140,028,060,248,224:geluid bij raak ***************8 ,?: ,: ,: ,]: ,: ,: ,: ,: ,: ,:  ,:  ,:  ,D:  ,: ,: _:geluid bij mis ****************֕ ,?: ,: ,: ,F: ,: ,: ,: ,: ,:  ,:  ,j:  ,6:  ,: ,8: 5000cfacfacfacfacfacfa"( )ڊ: STACKPD Een programma om de stack in de gaten te houdenJf( MSX Computer Magazinel2< AZ: %: FAD : ADπP A$: (A$,)"*" AD,("&h"A$): ADAD: PZ"STACKP klaar voor gebruik. Stack"d"op dit moment: "(())"."nMx: org 0F9F5HU:: param equ 0F7F8H: ED,73,F8,F7::entry ld (param),SP: 21,8F,F8: : ld HL,0F87FH+16# 3A,F9,F7: : ld a,(param+1)M CD,0E,FA: : call print{ 3A,F8,F7: : ld a,(param) CD,0E,FA: : call print˂ AF : : xor a 77 : : ld (hl),a CD,CF,00: : call 0CFHA C9 : : retI:p F5 : :print push af" CB,3F : : srl a, CB,3F : : srl a6 CB,3F : : srl a@ CB,3F : : srl a0J CD,1D,FA: : call pr2WT F1 : : pop af~^ E6,0F : : and 15h C6,30 : :pr2 add a,48΄r FE,3A : : cp 58| 38,02 : : jr c,pr3  C6,07 : : add a,7K 77 : :pr3 ld (hl),ar 23 : : inc hl C9 : : ret *: ,:  ,:  ,j:  ,6:  ,: ,8: 5000cfacfacfacfacfacfa"( )ڊ: SUBTST7 Test van de nest-diepte van GOSUBs=Y( MSX Computer Magazine_2i< AZFSP: : teller op 0PSPSP: : verhoog tellerπZA(): : laat stackpointer ziend P:: roep opnieuw aan c,pr3  C6,07 : : add a,7K 77 : :pr3 ld (hl),ar 23 : : inc hl C9 : : ret *: ,:  ,:  ,j:  ,6:  ,: ,8: 5000cfacfacfacfacfacfa"( )ڊ: STKFT4 Een fout in de stack-huishouding:V( MSX Computer Magazine\2f< AZF "Stack VOOR: "(())P "Geef een positief getal:"ƀZ : :vraag om een getal׀d "Goed zo!"n"Stack NA: "(())x A: A # "Verkeerd!": n 77 : :pr3 ld (hl),ar 23 : : inc hl C9 : : ret *: ,:  ,:  ,j:  ,6:  ,: ,8: 5000cfacfacfacfacfacfa"( )ڊ: STKFT2) Een schijn-stackfout/K( MSX Computer MagazineQ2p< "Stack VOOR: "(())zF dP "Stack NA: "(())Zd I  ̀n "Stack in FOR: "(())݀x I 倂 I "Stack na FOR: "(()) "Verkeerd!": n 77 : :pr3 ld (hl),ar 23 : : inc hl C9 : : ret *: ,:  ,:  ,j:  ,6:  ,: ,8: 5000cfacfacfacfacfacfa"( )ڊ: scoreD netjes een score afdrukken op screen2, MSXJ(m2 MSX/MS-DOS Computer Magazines<F ingezonden door: Ch. W. Brederode, LissePZ AZd Ҁn "grp:" AS #x ,,: Xd: YdG G(G) '&  : ga afdrukken0 6U: netjes afdrukken scorenN$(" "(G),)P$"": Q$"" T  A$(N$,T,) B$(O$,T,) A$B$ P$P$" ":Q$Q$" " : P$P$A$: Q$Q$B$ T : (X,Y): #,Q$- : (X,Y): #,P$7"O$N$=,er MagazineQ2p< "Stack VOOR: "(())zF dP "Stack NA: "(())Zd I  ̀n "Stack in FOR: "(())݀x I 倂 I "Stack na FOR: "(()) "Verkeerd!": n 77 : :pr3 ld (hl),ar 23 : : inc hl C9 : : ret *: ,:  ,:  ,j:  ,6:  ,: ,8: 5000cfacfacfacfacfacfa"( )ڊ: : 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,C9  ̀n "Stack in FOR: "(())݀x I 倂 I "Stack na FOR: "(()) "Verkeerd!": n 77 : :pr3 ld (hl),ar 23 : : inc hl C9 : : ret *: ,:  ,:  ,j:  ,6:  ,: ,8: 5000cfacfacfacfacfacfa"( )ڊ:  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  I "Stack na FOR: "(()) "Verkeerd!": n 77 : :pr3 ld (hl),ar 23 : : inc hl C9 : : ret *: ,:  ,:  ,j:  ,6:  ,: ,8: 5000cfacfacfacfacfacfa"( )ڊ: