(\:RVIHCp SY26V#61} *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."}H:DATA "Maak uw recorder schoon, speel eens wat met volume en toonhoogte, controleer de kabels, er kunnen vele redenen zijn dat het niet meteen goed gaat. *P,*Se$: PROGRAMMA'S ******************. FCTUUR ' MCM's Facturering,18 SAVPIC ' Cassette Screensaver,1ҠB SAVKRT ' Alleen DATA-regels,1L SHOW2C ' Cassette Screenloader,1V SHOW8C ' Idem,11` HONDRD ' Kort & Krachtig!,1Sa KLAAR ' Kort & Krachtig!,1ub TYPMAC ' Kort & Krachtig!,1c LCKR26 ' Kort & Krachtig!,1d LCKRDT ' Kort & Krachtig!,1ۡe LCKRLG ' Kort & Krachtig!,1f LCKRSB ' Kort & Krachtig!,1#j TVDP24 ' Lezers Helpen Lezers,1Ik CLRSPR ' Lezers Helpen Lezers,1ol PKCLR ' Lezers Helpen Lezers,1m SCLWLM ' Lezers Helpen Lezers,1 ICP6 ' Invoer Controle Programma,1΢ OP=OP,0c4.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"( )ڊ: : FACTUUR:>: MSX/MS-DOS Computer MagazineZ(: Door P. H. Oliemansb2:<: PC & MSX-2 Versie (80 kolommen)F:P: initialisatie *************************************************************Z:d : P: $n C$(X$)(((X$))X$Px AR(2,),AR$(2),BW(),KL$(,),TB()u  : naar besturingsroutineB1$"COMPUGROSS" : bedrijfsnaam 1сB2$" Uw winst is onze zaak" : bedrijfsnaam 2AD$"Factureringsstraat 56a" : adres-PL$"1000 BA AMSTERDAM" : postcode/plaatsUTL$"(020) - 11 22 33" : telefoontPB$"1234567" : postbankBR$"Rabobank: 32.97.92.989" : bankrelatieKV$"Inschrijving K.v.K. A'dam Nr.: 123456" : KvKnummer6: tekstregels onder factuur ************************************************vTE$()"Gelieve te betalen binnen 8 dagen na factuurdatum."TE$()""σTE$()"Van toepassing zijn onze voorwaarden voor verkoop en levering"TE$()"gedeponeerd ter griffie der Arrondissementsbank te Amsterdam">TE$()"onder nummer 9999/1988."wIE% : prijzen excl. BTW; IE%=1 prijzen incl. BTW"D4: KN: G,P1 : aantal copiefacturen̄6BW() : BTW nul tarief@BW() : BTW laag tarief JBW() : BTW hoog tatief5TKL$(,)"Klantnaam : "]^KL$(,)"T.a.v : "hKL$(,)"Adres en huisnummer : "rKL$(,)"Postcode en plaats : "Յ|KL$(,)"Land : "KL$(,)"Ordernummer klant : "FF$( ) : formfeedr: ja/nee *******************************************************************JN: : B$" [J/N] ";: L$$(): ("JjNn",L$)   : ("Jj",L$)  JN : ("Nn",L$)  JN: A: schermkop ****************************************************************i: C$(" MCM-Facturering - "KP$) DT$"" C$("Factuurdatum: "DT$): KS% : : "Klantnr.: ######";KN: "Klant : ";KL$(,): "Regels : ##";TR%d: "Regel Artikel Omschrijving Prijs Aantal Bedrag BTW": j: factuurdatum *************************************************************KP$"Ingeven factuurdatum": KS%: : "Factuurdatum (dd,mm,jj): ";D1,D2,D30& D1 D3 XK0 D1 D1 f: D2 D2 D D3X D3c NH$(D1): DT$(H$,(H$))" ": H$("JanFebMrtAprMeiJnuJulAugSepOktNovDec",D2): DT$DT$(H$,): DT$DT$(D3l): D4D3D2dD1Xpb: factuurnummer ************************************************************lKP$"Factuurnummer": KS%: ڊv "Laatst gebruikte factuurnummer: ";F: F FF l3: klantnummer **************************************************************r "Klantnummer (stop = 0): ";KN: KN KNF xˋ: zoek klant ***************************************************************.KG%:  : AK%: KT% AK%: KA,KL$(,),KL$(,),KL$(,),KL$(,),KL$(,),KL$(,)S KAKN  : KG%: ] KT%c: klantgegevens ************************************************************ DC: KL$(D,);: "";KL$(D,): (KL$(D,)) KL$(D,)(KL$(D,),)b: naw schoon *************************************************************** I% : KL$(I%,)"": I%: ۍ : naw opvoeren ************************************************************* KP$"Klantgegevens": KS%: KZ >S TR%: : : : : KN  : KG% >m* C : : C4: correctie ****************************************************************ӎ> KN ݎH  R );"Code Omschrijving Inhoud"\\:  );"0 Gegevens accoord":  );"1 Klantnummer :";KNf C : );C;);KL$(C,);KL$(C,): Cp  );"9 Opnieuw"z: );: "Uw keuze: ";SK$: : ("012345679",SK$) H : C(SK$)  C  : klantnummer@ C C  : nawR C  e C Hk: artikelnummers ***********************************************************': "Artikelnummer (geen = -1 stop = 0): ";AR(RG%,): AR(RG%,) AR(RG%,)F  : z: zoek artikel *************************************************************AG%:  : AA%: AT% AA%: AN,AO$,AP,AB͑ ANAR(RG%,) AG%: AR$(RG%)AO$: AR(RG%,)AP: AR(RG%,) AB8 "Omschrijving artikel (20 tekens) : ";AR$(RG%)n "Prijs per eenheid :";AR(RG%,) "BTW-Codes";: J% : J%;"=";BW(J%);"%";: J%: ":";AR(RG%,): ˒ AT%ђ#$: omschrijving ************************************************************v. "Omschrijving artikel (20 tekens) : ";AR$(RG%): AR$(RG%)(AR$(RG%),): ȓ8: prijs *******************************************************************B "Prijs per eenheid : ";AR(RG%,): AR(RG%,) B : mL: btw code ****************************************************************ٔV "BTW-Codes";: J% : J%;"=";BW(J%);"%";: J%: ": ";H: H H V : AR(RG%,)H: +`: aantal eenheden *********************************************************~j "Aantal besteld : ";AR(RG%,): AR(RG%,) j : Еt: bedrag + btw-bedrag *****************************************************~AR(RG%,)AR(RG%,)AR(RG%,) : aantal * prijs<AR(RG%,)AR(RG%,)BW(AR(RG%,))d : excl. btwd IE%  : IE%=1 incl. btwAR(RG%,)AR(RG%,)BW(AR(RG%,))(dBW(AR(RG%,))): afronden op centen ******************************************************AR(RG%,)(AR(RG%,)d@P)d?AR(RG%,)(AR(RG%,)d@P)dE: afdruk regel scherm ***************************************************** );RN%;ؗ AR(RN%,) ); "######";AR(RN%,); );AR$(RN%); &); "#,###,###.##";AR(RN%,);5 5); "######";AR(RN%,);\  <); "#,###,###.##";AR(RN%,);HAR(RN%,): K); "## %";BW(H)ۘ(: invoer factuurregels ****************************************************2KP$"Factuurregels"< KN FKS%:  : kop3P TR% dWZRN%TR%:  : regel scherm~dRG%TR%:  : artikelnummern AR(RG%,) x : AG% Ι . : omschrijving B : prijs per eenheid  V : btw-percentage  j : aantal5 ~ : bedragATR%RG%UTFTFAR(RG%,)j TR%2 Ft z̚: geef factuur op scherm ************************************************** TR% KN DKP$"Fact. nr"(F): KS%!  : kop3 RN%D DI" RN%TR% 6d,  : regel schermn6 RN%@ );"Totaal factuur";J IE% " excl. btw";ǛT IE% " incl. btw";^ <); "#,###,###.##";TFh (N,"-")Ur "0-Einde 1-Vooruit 2-Achteruit 3-Wijzig 4-Toevoegen 9-Verwijder: ";Q: Q DDi| DTR% DTR%{ Q DD D D Q Q : regel te wijzigen *******************************************************: "Regelnummer: ";RG%3 RG% RG%TR% S Q  : correctiep Q 2 : invoer Q v : verwijder Q TR% : Wijzigen ****************************************************************)KP$"Wijzig regel"(RG%): KS%3 FRN%RG%: V (N,"-")& "0-Stop 1-Artikelnummer 2=Omschrijving 3-Prijs 4-BTW 5-Aantal: ";C: : TFTFAR(RG%,)ܞ0 C  : artikelnummer: C . : omschrijving'D C B : prijs per eenheidLN C V : btw-percentagerX C j : aantal eenhedenb ~: TFTFAR(RG%,): C  : l: verwijderen *************************************************************NvKP$"Verwijderen": KS%: : RN%RG%: : (N,"-"): B$"zeker weten": a JN TFTFAR(RG%,): RG%TR% ߠ I%RG% TR%: AR$(I%)AR$(I%): J% : AR(I%,J%)AR(I%,J%): J%: I%RN%RN%: RN% RN%TR%TR%: TR% TR%#u: print factuurkop ********************************************************١ : );B1$;" "B2$;: );AD$" - "PL$" - telefoon "TL$:  );"postbank: "PB$" - "; "bankrelatie: "BR$: );KV$: T: sluit factuur af met bedragen excl. btw ********************************* ;);"----------": );"Subtotaal ";9);: "#,###,###.##";T9: : RG%RG%+T8: I% : TB(I%) T9T9TB(I%): T8T8TB(I%): RG%RG%: );: "BTW ## % = ###,###.##";BW(I%);TB(I%);4 I%_ T8 ;);: "###,###.##";T8  ;);"----------": );"Factuurbedrag";9);: "#,###,###.##";T9ң ;);"==========": RG%RG%: $ : sluit factuur af met bedragen incl. btw *********************************q* ;);"----------": );"Factuurbedrag";9);: "#,###,###.##";T94 ;);"==========": : );"Inbegrepen BTW"; >T8: I% : TB(I%) T8T8TB(I%): );: "## % = Fl. ###,###.##";BW(I%);TB(I%)^H I%: ));( ,"-"): );: "Totaal Fl. ###,###.##";T8: RG%RG%: R: einde van de factuur ****************************************************֥\ RG%9 HRG% 9: : H f II% : );TE$(II%): II% : tekstregelspez: naar printer ************************************************************B$"Staat de printer aan ": : JN ( ٦L$"Origineel": G G: FF : factuurnummer + 1 Y P1 : aantal copieen! Y L$"Duplicaat"(Y)ET9: TB()O: TB(): TB()V I% TR% I% I%(I%)   I%  ;);"----------": #);"Transport";9);: "#,###,###.##";T9: RG%RG% \ FF$  : print kopd: adres van de klant ****************************************************** J% : : J% : opschuiven  );KL$(,) : naam klantϨ  );KL$(,) : t.a.v.$  );KL$(,); : adres en huisnr. 4);"Factuur - ";L$?8  );KL$(,) : postcode/woonplaats]B  );KL$(,); : landL 4);"Factuurnr.: ";F : factuurnummerV ϩ` 4);"Datum: Klantnummer:": 4);DT$;C);KN!j 4);"Bij betaling svp vermelden":  );"Uw referentie: ";KL$(,): : wt 3);"Prijs": );"Aantal Omschrijving";4);"per";: ?);"Bedrag BTW"~ "--";2);"Eenheid";ê IE% @);"Incl."; : @);"Excl."; N);"--": " ";(N,"-"): : RG% I%  / );"Transport";>Z);A$: RG%RG% : factuurregels afdrukken ************************************************* );AR(I%,); );AR$(I%);ϫ AR(I%,) ));AR(I%,); /);: "###,###.##";AR(I%,); : prijs6 9);: "#,###,###.##";AR(I%,); : bedragg HAR(I%,): I);: "## %";BW(H) : btw T9T9AR(I%,): TB(H)TB(H)AR(I%,): RG%RG% I% IE% , Ĭ \̬ YҬ( $2 : nieuw factuurnummer *****************************************************5< KS%: UF B$"Factuurnummer ophogen "_P qZ JN Gwd ɭn : factuur afdrukken *******************************************************ڭx KS%:  B$"Wilt u deze factuur afdrukken ":  JN " t : Hoofdmenu *************************************************************** KP$"Hoofdmenu": KS%  : kopD : : );"1 Startwaarden vullen": : );"2 Nieuwe klant/nieuwe factuur": : );"3 Zelfde klant/nieuwe factuur": : );"4 Factuur wijzigen" : );"5 Klant wijzigen": : );"6 Factuur afdrukken": : );"0 Einde programma" : );"Uw keuze: ";: "";KZ$: ("0123456",KZ$)  : KZ(KZ$) D4 KZ   l : stuurmodule *************************************************************  : initialisatie  : menu KZ , ʰ  : factuurdatum" l : factuurnummer, KZ KZ h ,6 G x : factuur afdrukken?@@ KZ T \J  : klantgegevenseT TF^ G: TR%: 2 : factuurh KZ  : factuur correctieֱr KZ  : naw-correctie| KZ KZ   G < : factuurnummer + 19 KZ  : printenM KZ  v G x : factuur afdrukken : : ֲ : dataregels klant - nummer,naam,t.a.v.,adres,pc/plaats,land,ordernummer **( : data beginnen met aantal klanten ****************************************0 2 100,"De Computerboer","H. P. Lezerjet","Floppyweg 21","1003 FG AMSTERDAM","NL","100/001/HPL" 200,"Het Compjoeterkeldertje","B. Itteneter","Basicweg 4","0101 FF AMSTERDAM","200/011/BI"H : dataregels artikelen - nummer,omschrijving,prijs,btw-code *************** : data beginnen met aantal artikelen ************************************** 3Ǵ 1000,"MSX-1 & Diskdrive",599,3 1001,"Diskettes 3.5 DS/DD",49,2  1002,"Kettingpapier",39,1 P$: I;6 @: P$ AS 1:: P$@ ,: "DIT PROGRAMMA STAAT NIET OP FLOPPIE!";: "M3000S1T255L64CDEFG"J I : I:T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: SAVPICI Een programma om plaatjes naar cassette te schrijven en weer in te lezen. Voor MSX1 en MSX2. LANGE VERSIE(2 MSX/MS-DOS Computer Magazine<ĀF : %: P "Ogenblik. Machinetaal wordt"Z "gePOKEd..."d (n "SAVPIC klaar voor gebruik.".xbAD : startadres MLk A$ (A$,)"*" AD,("&h"A$): ADAD: 䁪: Schrijf L! bytes VRAM vanaf adres S! naar cassette: S! S!S!EeS`' ,S!(S!): ,S!@ L! L!L!EeS`h ,L(L!): ,L~  : A(): Lees een cassettebestand naar VRAMł S SSEeS` ,S(S): ,S  =: A():;: Hier begin de ML:i: SETRD equ 50H: NSETRD equ 16EHƃ: SETWRT equ 53H: NSTWRT equ 171H$:,.: TAPION equ 0E1H[8: TAPIN equ 0E4HB: TAPIOF equ 0E7HL: TAPOON equ 0EAHV: TAPOUT equ 0EDH`: TAPOOF equ 0F0HFj: STMOTR equ 0F3HNt:~: org 0F9F5HɅ: stadr defw 0 ;startadres in VRAM : len defw 0 ;aantal bytes:` 2A,F5,F9 : :save ld HL,(stadr) ;zet de videochip klaar 3A,2D,00 : : ld A,(2DH) ;voor continu lezen B7 : : or A ;vanaf VRAM-adres [HL]! 20,05 : : jr nz,save2_ CD,50,00 : : call SETRD ;voor MSX1 18,03 : : jr save3ʇ CD,6E,01 : :save2 call NSETRD ;voor MSX2҇: 3E,01 : :save3 ld A,1 ;schrijf een lange headera CD,EA,00 : : call TAPOON ;naar cassettei : 3E,FE : : ld A,0FEH ;stuur byte $FE voor CD,ED,00 : : call TAPOUT ;herkenning9( 3A,F7,F9 : : ld A,(len) ;lage byte van lengteg2 CD,ED,00 : : call TAPOUT< 3A,F8,F9 : : ld A,(len+1) ;hoge byte van lengteމF CD,ED,00 : : call TAPOUTP:'Z ED,4B,F7,F9: : ld BC,(len) ;aantal bytes/d:mn C5 : :save1 push BC ;bewaar BCux: 3A,06,00 : : ld A,(6) ;leesregister van de 4F : : ld C,A ;VDP naar C-registerL ED,78 : : in A,(C) ;haal byte uit VRAM CD,ED,00 : : call TAPOUT ;schrijf naar cassette:݋ C1 : : pop BC ;herstel BC  0B : : dec BC ;verlaag tellera 78 : : ld A,B ;test op BC=0 B1 : : or Cˌ 20,F0 : : jr nz,save1 ;nee: opnieuwӌ:ی:$ CD,F0,00 : : call TAPOOF ;schakel cassette uith 3E,00 : :terug ld A,0 ;en zet de motor CD,F3,00 : : call STMOTR ;af:" C9 : : ret ;klaar!,:56 2A,F5,F9 : :load ld HL,(stadr) ;zet de videochip klaar@ 3A,2D,00 : : ld A,(2DH) ;voor continu schrijven͎J 20,05 : : jr nz,load2 ;vanaf adres [HL] in VRAM T CD,53,00 : : call SETWRT ;voor MSX18^ 18,03 : : jr load3vh CD,71,01 : :load2 call NSTWRT ;voor MSX2~r:Ə| CD,E1,00 : :load3 call TAPION ;wacht op een header  CD,E4,00 : : call TAPIN ;lees eerste byteP FE,FE : : cp 0FEH ;herkenningsbyte? 20,2B : : jr nz,fout ;nee: stoppen:ܐ CD,E4,00 : : call TAPIN ;lees lage byte! 32,F7,F9 : : ld (len),A ;van aantal bytesZ CD,E4,00 : : call TAPIN ;lees 32,F8,F9 : : ld (len+1),A ;hoge byte: ED,4B,F7,F9: : ld BC,(len) ;aantal bytes:' C5 : :load1 push BC ;bewaar BCi CD,E4,00 : : call TAPIN ;lees een byte 57 : : ld D,A ;bewaar byte in D 3A,07,00 : : ld A,(7) ;register voor schrijven5 4F : : ld C,A ;naar Cv& 7A : : ld A,D ;herstel byteÓ0 ED,79 : : out (C),A ;en schrijf het naar VRAM˓:: D C1 : : pop BC ;herstel BC4N 0B : : dec BC_X 78 : : ld A,Bb B1 : : or CДl 20,EE : : jr nz,load1 ;niet klaar: opnieuwؔv: AF : : xor A ;signaleer OKJ 32,F5,F9 : : ld (stadr),A CD,E7,00 : :terug2 call TAPIOF ;schakel cassette uit 18,B5 : : jr terugȕ:  3E,FF : :fout ld A,0FFH ;signaleer FOUT< 32,F5,F9 : : ld (stadr),Aj 18,F4 : : jr terug2 * : :einde***************** 3Ǵ 1000,"MSX-1 & Diskdrive",599,3 1001,"Diskettes 3.5 DS/DD",49,2  1002,"Kettingpapier",39,1 P$: I;6 @: P$ AS 1:: P$@ ,: "DIT PROGRAMMA STAAT NIET OP FLOPPIE!";: "M3000S1T255L64CDEFG"J I : I:T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ:` SAVPICIj Een programma om plaatjes naar cassette te schrijvent en weer in te lezen. Voor MSX1 en MSX2. KORTE VERSIE~ MSX/MS-DOS Computer Magazine À׀: Laad de ML:AD : d : startadres ML A$E (A$,)"*" AD,("&h"A$): ADAD: K: Schrijf L! bytes VRAM vanaf adres S! naar cassette: S! S!S!EeS`ʁ ,S!(S!): ,S! L! L!L!EeS` ,L!(L!): ,L!#  : A())T(: Lees een cassettebestand naar VRAMj2 S SSEeS`< ,S(S): ,SF  =: A()PZ: de ML-data:d 2A,F5,F9,3A,2D,00,B7,20,05,CD,50,00,18,03,CD,6E-n 01,3E,01,CD,EA,00,3E,FE,CD,ED,00,3A,F7,F9,CD,EDcx 00,3A,F8,F9,CD,ED,00,ED,4B,F7,F9,C5,3A,06,00,4F ED,78,CD,ED,00,C1,0B,78,B1,20,F0,CD,F0,00,3E,00σ CD,F3,00,C9,2A,F5,F9,3A,2D,00,20,05,CD,53,00,18 03,CD,71,01,CD,E1,00,CD,E4,00,FE,FE,20,2B,CD,E4; 00,32,F7,F9,CD,E4,00,32,F8,F9,ED,4B,F7,F9,C5,CDq E4,00,57,3A,07,00,4F,7A,ED,79,C1,0B,78,B1,20,EE AF,32,F5,F9,CD,E7,00,18,B5,3E,FF,32,F5,F9,18,F4 *-1 & Diskdrive",599,3 1001,"Diskettes 3.5 DS/DD",49,2  1002,"Kettingpapier",39,1 P$: I;6 @: P$ AS 1:: P$@ ,: "DIT PROGRAMMA STAAT NIET OP FLOPPIE!";: "M3000S1T255L64CDEFG"J I : I:T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ:9 SHOW2C - laad een cassette-plaatje in op scherm 2\ MSX/MS-DOS Computer Magazinebl( 2 "Druk op een toets en start de cassette!"<A$$()F : ,,: ۀPS!: (: : A$$()Z : ,,7d Hierachter de regels 60000 en verder van de korte versie van SAVPIC$@ ,: "DIT PROGRAMMA STAAT NIET OP FLOPPIE!";: "M3000S1T255L64CDEFG"J I : I:T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ:> SHOW8C - laad een cassette-plaatje in op MSX2-scherm 8a MSX/MS-DOS Computer Magazinegq( 2 "Druk op een toets en start de cassette!"<A$$()€F : ,,: ߀PS!: (: : A$$()Z : ,,;d Hierachter de regels 60000 en verder van de korte versie van SAVPIC@ ,: "DIT PROGRAMMA STAAT NIET OP FLOPPIE!";: "M3000S1T255L64CDEFG"J I : I:T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: : HONDRD<: MSX/MS-DOS Computer Magazine KK26-1y: ingezonden door Peter van de Werken, tel 04185 - 358(:2 AZ:  ,,: : : "grp:"AS#<(,): #, "Dit is normaalschrift. Let ook op de 26 regels per schermbeeld."FX: Y PA$"Deze listing zorgt ervoor dat er precies 100 letters op 1 regel kunnen, (by Peter van de Werken 1987)."Z (,)(,),d T eɁn ((T),Y): #, (A$,T,)сx T$: veranderen kleur en y-as *************************************************;KK: K KTYY: Y Y pL( ()): K,Lz d op een toets en start de cassette!"<A$$()€F : ,,: ߀PS!: (: : A$$()Z : ,,;d Hierachter de regels 60000 en verder van de korte versie van SAVPIC@ ,: "DIT PROGRAMMA STAAT NIET OP FLOPPIE!";: "M3000S1T255L64CDEFG"J I : I:T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: : KLAAR4: MSX/MS-DOS Computer MagazineC: KK26-2f(: ingezonden door Jan Broezen2:< , : T FT$"klaar": T,"P X (T$)πZ P$(T$,X,): XT,(P$)׀d Xn XT,: T x X  A$: TX,("&H"A$)! X8 ,: , E ,c 21,00,E2,E5,2A,DC,F3,2C CD,C6,00,3E,0D,CD,A2,00 E1,CD,24,4A,C3,31,41T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: : TYPMAC5: regelprinter als typemachineZ: MSX/MS-DOS Computer Magazinei(: KK26-32: ingezonden door Daniel Rutten<FI$$()PA(I$)ԀZ A A A : Fd A ();: ()( );: TT: 5n A : ( )( );: T: F?x I$;P I$;( );hTT: TP T TF "O7CCC" T); F31,41T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: : LCKR265: MSX/MS-DOS Computer MagazineD: KK26-4g(: ingezonden door: R. Rosema2: vrijwel ongewijzigd<:F ,,: : PƀZ ,: "** LICHTKRANT **"΀d .nA$()" Dit is de ietsje gewijzigde versie van de Lichtkrant van A.M. Mol, MCM nr5."Ax L (A$)] , : (A$,L,)s T 2: T{ L x); F31,41T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ:! : LCKR26 verder verbeterdF: MSX/MS-DOS Computer MagazineU: KK26-7x(: ingezonden door: R. Rosema2: versie met gebruik van subroutine en dataregels<:ԀF ,,: : : ڀPZ ,: "** LICHTKRANT **"d n A$(N)1x A$(N) "**" NN: nA M N^ Z$()A$(M): f Mp Á: subroutine toon een string ***********************************************ց L (Z$) , : (Z$,L,) T 2: T Li: data regels om de strings in op te geven: ******************************** " Nu beschikken we over data regels om de strings in op te geven." "Wanneer je meer dan 10 strings wil tonen, komt er nog een DIM commando bij... "A "lees de begeleidende teks voor meer uitleg."c "**": markeren einde dataT 2: T{ L x); F31,41T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: : LCKR26 verlengd>: MSX/MS-DOS Computer MagazineM: KK26-5p(: ingezonden door: R. Rosema2: uitgebreide versie<:F ,,: : : PՀZ ,: "** LICHTKRANT **"݀d 9nA$()"Dit is de ietsje gewijzigde versie van de Lichtkrant van A.M. Mol, MCM nr5."Lx L (A$)h , : (A$,L,)~ T 2: T LсB$"........Nu hebben wij middels regel 150-190 een regel toegevoegd."䁪 L (B$) , : (B$,L,) T 2: T LC$"........Zo kun je maar verder, deze derde regel wordt in regel 200-240 getoond........enz...." L (C$) , : (C$,L,)ʂ T 2: T҂ L܂ Pl tonen, komt er nog een DIM commando bij... "A "lees de begeleidende teks voor meer uitleg."c "**": markeren einde dataT 2: T{ L x); F31,41T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: : LCKR26 verbeterd?: MSX/MS-DOS Computer MagazineN: KK26-6q(: ingezonden door: R. Rosema2: versie met gebruik van subroutine<:F ,,: : : ĀPZ ,: "** LICHTKRANT **"d LnA$()" Dit is de ietsje gewijzigde versie van de Lichtkrant van A.M. Mol, MCM nr5."xB$"........Nu benoemen we een tweede string, die door dezelfde routine getoond gaat worden."ԁC$"........Enz,...........Enz,."偌Z$A$: Z$B$: Z$C$:  Pd: subroutine toon een string ***********************************************w L (Z$) , : (Z$,L,) T 2: T L T 2: T҂ L܂ Pl tonen, komt er nog een DIM commando bij... "A "lees de begeleidende teks voor meer uitleg."c "**": markeren einde dataT 2: T{ L x); F31,41T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ: TVDP241 MSX/MS-DOS Computer MagazineZ ingezonden door P.C. de Maat, Lith`(n2 : (< "welke sprongwaarde voor VDP (0-255)";VF "welk scherm (0 t/m 8) ";SǀP (S)߀Z S  : dd ,: "sprong ",Vn , : "scherm ",Sx 3"grp:" AS #P (,): #, "sprong"f (,<): #, V (,d): #, "scherm" (,): #, S IV: ()I: IӁ Z  :  IV  : ()I: I Z  : 3A$: A$""  : D S #N 2*******************w L (Z$) , : (Z$,L,) T 2: T L T 2: T҂ L܂ Pl tonen, komt er nog een DIM commando bij... "A "lees de begeleidende teks voor meer uitleg."c "**": markeren einde dataT 2: T{ L x); F31,41T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ:5 CLRSPR sprite geheugen wissen met machinetaalX MSX/MS-DOS Computer Magazine ingezonden door SuperSoft, Lelystad(2 : AD u: AD׀< A$: A$"##" AD,("&H"A$): ADAD: <FA()P 21,00,D4: : LD HL,&HD400 ; laad HL met begin adresVZ 01,FF,2B: : LD BC,&H2BFF ; laad BC met lengted 3A,EA,F3: : LD A,(&HF3EA) ; wordt gevuld met achtergrondkleur؁n CD,56,00: : CALL &H0056 ; FILVRM, vul video RAMx C9,##,00: : RET ; terug naar BASIC3A$: A$""  : D S #N 2*******************w L (Z$) , : (Z$,L,) T 2: T L T 2: T҂ L܂ Pl tonen, komt er nog een DIM commando bij... "A "lees de begeleidende teks voor meer uitleg."c "**": markeren einde dataT 2: T{ L x); F31,41T:EN GEEF RETURN WANNEER GEREED" "t255l64s8m5000cfacfacfacfacfacfa"( )ڊ:H PKCLR het schoonmaken van het normaal onzichtbare schermgedeeltek MSX/MS-DOS Computer Magazine ingezonden door Alex Wulms, Horn(2 eerst de poke's voor screen 2 en 4 **************************************< : of screen 4F X  : X,: XIP X 8 8: X,(( )): XOZd nu voor screen 3 *******************************************************n Ɓx X : X, : X X  : X,(( )): X( )ڊ: SCLWLM1 MSX/MS-DOS Computer MagazineX ingezonden door Alex Wulms, Horn^(y2 ER : AZ̀<: de variabelen die tijdens de scrollroutine worden gebruikt moeten integersF: zijn want de afwerking van andere variabelen duurt te langPBZ()() : : sprites uitschakelend (,)(,,), (,),: : sprite-videogeheugen wissenn PAGE 0,: x"grp: "AS#: (,)ց#," De scroll die dadelijk komt"#," wordt door de interrupt"!#," routine verzorgd want anders"G#," krijg je een onregelmatige"Z#," scroll."e#,""p#,""{#,""#," Nu gaat er eerst een tekening"͂#," op pagina 1 gemaakt worden en"#," die wordt dan naar deze pagina"#," gekopieerd en gescrolld."A (6,): #,"1988 by XelaSoft"e(<,): #,"EVEN GEDULD AUB"S: : het aantal beeldlijnen dat moet worden gescrolld per interrupt : dit moet tussen -10 en 10 zijn want anders duurt de copy te langO" : S moet 1,2,4,8 of -1,-2,-4,-8 zijn, anders komt de scroll niet uit\, |: p6 X  @ (,i),X,: (,i),X,J (}X,i),X,: (X,i),X,̈́T X: PAGE 0,ׄ^ |h: A$$(): r: scrol routine opstarten&|S2S: YS2: ER 0 v: de Basic moet direct op de interrupt kunnen reageren, dus hij: mag niet met een lang commando bezig zijn.SS: : eigenlijke scroll-routine ************************************************3()Y: (,Y)(,S), (,Y),YYYS: YS2 ER : _ Magazine ingezonden door Alex Wulms, Horn(2 eerst de poke's voor screen 2 en 4 **************************************< : of screen 4F X  : X,: XIP X 8 8: X,(( )): XOZd nu voor screen 3 *******************************************************n Ɓx X : X, : X X  : X,(( )): X( )ڊ: : 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,C9e's voor screen 2 en 4 **************************************< : of screen 4F X  : X,: XIP X 8 8: X,(( )): XOZd nu voor screen 3 *******************************************************n Ɓx X : X, : X X  : X,(( )): X( )ڊ:  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 ********< : of screen 4F X  : X,: XIP X 8 8: X,(( )): XOZd nu voor screen 3 *******************************************************n Ɓx X : X, : X X  : X,(( )): X( )ڊ: