JVC KT2p SY26V#61} "Ook foutjes in de programma's - die er volgens ons niet meer inzitten - geven geen recht op verhaal, niet bij MSX Computer Magazine en niet bij de maker van dit fraais, de heer van Son.+ *L,"Deze lezer heeft vorig jaar ook al zijn programma's ter beschikking gesteld, waar we hem - mede namens onze lezers - heel dankbaar voor zijn. Ook op deze uitgave - althans op disk - staat Schaats, eveneens van de heer van Son. "Dit programma kon echter niet op de cassette gezet worden, aangezien het gebruik maakt van het bestand 'records.new'. Maar aangezien Schaats alleen met een drive werkt lijkt ons dat niet zo'n probleem. *P,*C,"OPGELET!",*N,*L,"Op deze cassette/diskette staan programma's die u niet zonder meer kan of mag gebruiken. Zonder meer eventjes uitproberen kan tot allerlei problemen leiden.e "Altijd eerst de handleiding lezen, is het devies. Daarmee zult u in bijna alle gevallen die moeilijkheden kunnen omzeilen, zodat het programma het wel blijkt te doen.)L,"De ML-voorbeelden, om maar wat te noemen, hebben alleen maar zin als u weet wat ermee gedaan kan worden. Dus eerst de ML-cursus uit MCM nummer 20 lezen, voor u besluit dat het niet werkt.܋ *L,"En zeer zeker niet meteen terugsturen! De laatste tijd krijgen we zo nu en dan diskettes en cassettes retour, omdat volgens de kopers de programma's niet zouden werken. "Soms is dat inderdaad zo. We kunnen jammer genoeg niet voorkomen dat er soms materiaal in de post beschadigd raakt, door de magneetvelden waarmee de sorteer-machines van de PTT werken.r *L,"Ook kan het gebeuren dat er bij het dupliceren van een cassette of diskette - wat we buiten de deur laten doen - een foutje gemaakt wordt. Het is nu eenmaal onbegonnen werk om ze allemaal te controleren.Ս *L,"We ruilen dergelijke foute exemplaren dan ook onmiddelijk om, als iemand daar om vraagt.c *L,"Minder geslaagd vinden we het echter als mensen de zaak maar terugsturen 'omdat het niet werkt', terwijl alles helemaal in orde is.A *P,*C,"OUT OF MEMORY",*N,*L,"Zo zullen de beide FISC-programma's op een MSX met diskdrives de bovenvermeldde fout opleveren. Tenzij u eerst eventjes reset met de Control-toets ingedrukt, want dan werkt het feilloos. *L,"Daarmee koppelt u namelijk een van de beide logische drives af, waardoor er wel genoeg geheugen beschickbaar komt.I *L,"Kortom, eerst het artikel even lezen of desnoods het vragenuurtje bellen, voordat u besluit dat de zaak niet naar behoren werkt.ݐ *P,*C,"De Programma's",*L,*N,"Na deze waarschuwende woorden dan nu: de programma's. Er is weer heel wat te beleven op deze diskette/cassette.% *P,*C,"TEKEN",*N,*L,"Een in eigen keuken ontwikkeld teken-programma, dat echter alleen voor MSX2 met drive geschikt is. Muisbestuurd, en met truukjes waar andere teken-programma's slechts van kunnen dromen.u' *P,*C,"TAO",*N,*L,"Alweer, alleen MSX2, maar het is een werkelijk dolmakend puzzeltje. Lastig, maar wie een snellere oplossing weet te vinden dan wij, die krijgt een prijsje. Zie het blad.( *L,"Overigens, we zullen onze oplossingen binnenkort publiceren. U hoeft niet aan frustratie ten prooi te vallen, er is hulp onderweg...) *P,*C,"ML21, 22 en 22A",*N,*L,"De voorbeelden behorende bij de ML-cursus. Niet gebruiken, tenzij u die cursus ook inderdaad volgt.]+ *P,*C,"ICP5",*N,*L,"Zoals altijd, ons invoer controle-programma. Voor de programma's op deze diskette/cassette heeft u het niet meer nodig, maar als het volgende nummer uitkomt is het weer heel handig.˔, *L,"Met het ICP kunt u namelijk de listings foutloos overnemen, hetgeen een hoop zoekwerk kan besparen.- *P,*C,"FISC40 en FISC80",*N,*L,"De belasting-programma's van de heer van Son, Uitgeest. Met deze programma's wordt het invullen van uw jaarlijkse fiscale bezoeking - de aangifte - een stukje makkelijker.M. *L,"FISC40 is er voor MSX1-bezitters, het werkt op een 40-kolomsscherm. FISC80 is er voor hen met een MSX2, de schermen worden veel overzichtelijker in 80-koloms opmaak./ "Voor beide programma's geldt: eerst resetten met CONTROL, anders krijgt u geheid een out of memory-fout. En nogmaals: we garanderen de goede werking niet, hoewel we denken dat ze beiden foutloos zijn.0 *P,*C,"SCHAATS",*L,*N,"Schaats werkt alleen op MSX2 met een drive, het gebruikt het bestand records.new, dat ook op deze disk staat.W1 *L,"De werking wijst zich vanzelf, als u eenmaal wat wedstrijd-resultataen hebt opgeslagen zult u ongetwijfeld al snel een overzicht krijgen over de vele mogelijkheden.2 *L,"Weliswaar is Schaats voor dit seizoen wat laat, maar zet het programma gerust in de ijskast tot de volgende winter. Dan zal het zijn kunnen graag bewijzen. *P,*C,"Later",*N,*L,"Een veelgehoorde vraag over de cassette/diskette service is waarom de bestellers eventjes moeten wachten, als ze meteen na het uitkomen van het blad bestellen.C Vele lezers blijken namelijk te verwachten dat de MCM-diskette of cassette gelijk met het blad verschijnt, hetgeen juist niet zo is.. *P,"We durven namelijk nooit helemaal uit te sluiten dat we - ondanks nauwkeurig kontroleren - ergens een foutje in een programma hebben laten zitten. Als dat zo is, dan horen we dat echter altijd heel snel via het vragenuurtje.ߛ "Door nu eventjes te wachten met het aanmaken van de cassettes en diskettes kunnen we dergelijke foutjes nog korrigeren. Vandaar dat u altijd eventjes geduld moet hebben.ɜ  *L,"Gelukkig gebeurt het bijna nooit dat we echte fouten maken, maar het kan nu eenmaal gebeuren dat er eens iets niet goed blijkt te funktioneren als vele duizenden mensen het gaan uitproberen, op allerlei verschillende MSXen.; "Temeer daar het bij sommige programma's bijna ondoenlijk is om werkelijk alle mogelijkheden uit te testen. *P,"Vandaar ook dat geen enkele programmeur - ook onze redaktie-leden niet - ooit zijn of haar hand in het vuur zal durven steken als het erom gaat of een bepaald programma helemaal foutloos is. *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."9" "Zet computer en drive even uit, om het na een half uurtje nog eens te proberen. Gaat het dan wel, copieer de hele disk naar een eigen schijf.ğ, "En lees vooral nog eens aandachtig de gebruiksaanwijzing. Heeft u misschien vergeten om te resetten met de Control-toets ingedrukt?V6 *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,"AKTU bv, MCM Programma ServiceJ "POSTBUS 1392T "1000 BJ AMSTERDAM^ *L,"waarna wij uw diskette zullen omruilen voor een ander exemplaar."ۡh *L,"Telefonische vragen over de Programma Service - maar geen technische vragen - kunt u kwijt op 020-681081, toestel 25. Leg zo kort en bondig mogelijk uit wat er aan de hand is en wij zullen proberen het te verhelpen.r *P,*C,"Vragenuurtje",*N,*L,"Die technische vragen kunt u namelijk alleen stellen tijdens het telefonisch vragenuurtje van de redaktie van MSX Computer Magazine.h| *L,"Elke dinsdag tussen vier uur in de middag en zeven uur s'avonds kunt u terecht op telefoon: 020-931263. Op andere dagen kunnen we u echter niet te woord staan. Per slot van rekening moeten we ook nog een blad schrijven!} *P,"Dat vragenuurtje is echter niet bestemd voor vragen zoals:ߣ~ *L,"Hoe werkt de MCM database uit nummer 2? *L,"Dergelijke vragen kunt u namelijk zelf beantwoorden, door het betreffende nummer er op na te slaan. Bezit u dat nummer niet, dan kunt u dat nabestellen bij de uitgeverij. *P,*SǤ: PROGRAMMA'S ******************줚 TEKEN ' MSX2-tekenprg, super! SAL88 ' Salarisberekeningen4 TAO ' Een gekmakende puzzelT ML21 ' Uit de ML-cursush ML22 ' idem ML22A ' Nog een voorbeeld ICP5 ' Invoer Controle Programma٥ FISC40 ' 40-koloms belastingprg. FISC80 ' 80-koloms belastingprg." SCHAATS' Competitie-standen. OP=OP:"TER BEREKENENING AOW/AWW PREMIE{:"BENT U TUSSEN 15 EN 65 JAAR";A$A$"J"ډӖA$"N"ڑ:"U HOEFT GEEN AOW/AWW PREMIE TE BETALEN":NV::"BEREKENING PREMIE-INKOMEN + AOW/AWW:wAZ$"N"ڑ:"BENT U EEN ONGEHUWDE VROUW OUDER DAN 45 JAAR(per 31-12-86) EN HEEFT U GEEN RECHTOP KINDERBIJSLAG";OV$:"ALS PERSOONLIJKE VERPLICHTING":"AFGETROKKEN PREMIES AOW/AWW":"(niet de andere premies!)")"F ";(G9):"ONTVANGEN AOW/AC TEKEN, een menugestuurd tekenprogramma voor MSX2 (128 Vram)Ie MSX Computer Magazinek(2: ͷ: AZ: () : () ŀ< : (,,,): ,,: : "grp:" AS # FFF: F: N: AK: RE: VA: D$"a:": RA: BB: VX: ST]PS$( )( )( )( w)( )( )( )( ): $()S$gZ |od:n: hoofdlus ****************************************************************Ɂx:D( ): X2( ): Y2(): XXX2: YYY2* () ",,,6,@,J,T,^,rY X X: X2 : X X: X2 Y Y: Y2 : Y Y: Y2 ,((X),Y),, |,,,, Ԃ XY BB (()()RE)V3VFڕFF,,X,,p,, ,8 ,L ,` ,~ , , , , ,2 ,Z ,d ,n , ,r ,r ,r ,r ,| , ,X , ,4 ,4 ,> ,R ,f ,z , , () V3 |:: hoofdmenu () V3 : : menu verwijderen (() ()) V3 VS D: : zoek funkties (() ()) VF V3 F ,*,,,F,: : ga naar submenu} :ׄ: einde hoofdlus **********************************************************߄:"YYST: ,XXST: YY: 6XXST: %@XXST: YY: 3JYYST: GTXXST: YY:U^XXST: irXXST: YY:||: hoofd menuV3V3: VF:() : () : () : VXօ ,((X),Y),,: XY  (,)(,), (,),: ( ,)(2,),,BF: ,5"c15bm10,0r40d211l40u211"Q (,),: #,"GEO."m (,),: #,"TEK." (,#),: #,"Kpal" (,-),: #,"cass" (,7),: #,"disk"݆ (,A),: #,"ALGM":kleur kiesmenu N  2 (,K(N))(,U(N)),N,BF\ (,K(N))(,U(N)),,B (!,K(N))(.,U(N)),N,BF (!,K(N))(.,U(N)),,B& N0 (,Z)(,d),,B,: (,\)(,b),,BF,: VF: () () :: :wachtBD: zoek in het hoofd(kleur)menuN (() ()) X X. YK Y KL(X,Y)X (,K)(.,U),KL,BF: (,K)(.,U),,B҈b: zoek in het hoofdmenul VF VS v N 9 (() ()) X X. Y N YK FN: VFI N: N: [: submenu`s (() ()) FG V3  (,),: #,"GEO."Љ (,)(-,H),,BF: (,)(,),,B쉼 (,)(, ),,BF (,'),,,,,@2 (,1),,,,,@: (,1),c (,7),: #,"+ ": (,:)(',:), (,A),: #,"x-y ": FG: VS N NJ X X. Y N YK FFNڊ N: N: F  X X. YK Y KL (X,Y)# (,L)(-,T),KL,BFR  (, FF)(-,( ( FF))),,BF,: y* (() ()) FT V3 4 (,),: #,"TEK."ŋ> (,)(-,H),,BF: (,)(',),H (,)(',),,BFR (,#),: #,"... "\ (,-),: #,()()Af (,7),: #,()()hp (,D)(',H),,BF: FT: VSz X X. YK Y KL (X,Y) (,L)(-,T),KL,BF N   X X. Y (N) YK FFN N: N: F9 (,( (FF)))(-, ( (FF))),,BF,: ` (() ()) FK V3 { (,),: #,"Kpal" (,),: #,"- + " (,),: #,"R";R͍ (,#),: #,"G";G (,-),: #,"B";B (,7),: #,"OK ", (,A),: #,"NEW ": FK: VSY X X. YK Y KL (X,Y)u (,L)(-,T),KL,BF N $ X X. Y (N ) YK FFNȎ. N: N: F8 (,( (FF )))(-, ( (FF ))),,BF,%B X X Y Y7 PKL X X. Y Y7 PV FF ()  : (,),: #,"R";R` FF ()  : (,#),: #,"G";Gj FF () 2 : (,-),: #,"B";Bt FF (KL,R,G,B)~ () () ~%L (() ()) FC V3 g (,),: #,"CASS" (,),: #,"laad" (,),: #,"save" (,#),: #," "א (,-),: #," " (,7),: #,"1200" (,A),: #,"2400": FC: VSH X X. YK Y KL (X,Y)d (,L)(-,T),KL,BFu N  X X. Y (N) YK FFN  N: N: F FF (,( (FF)))(-, ( (FF))),,BF, FF FF YK DDDDK( DD BR: (,7)(-,>),,BF,}2 DD BR: (,A)(-,H),,BF,: DD<F (() ()) FD V3 ŒP (,),: #,"DISK"Z (,),: #,"laad"d (,),: #,"save"n (,#),: #,"kill"5x (,-),: #,"form"Q (,7),: #,"A: "y (,A),: #,"B: ": FD: VS X X. YK Y KL (X,Y)“ (,L)(-,T),KL,BFғ N  X X. Y (N) Y7 FFN N: N: F] FF FF (,( (FF)))(-, ( (FF))),,BF, FF FF Y7 DDDD DD D$"A:": (,7)(-,>),,BF,: DD DD D$"B:": (,A)(-,H),,BF,: DD (() ()) FI V3 4 (,),: #,"ALGM"P (,),: #,"cls "l (,),: #,"rand"" (,#),: #,"fill", (,-),: #,"rast"6 (,7),: #,"gum "@ (,A),: #,"curs": FI: VSJ X X. YK Y KL (X,Y)1T (,L)(-,T),KL,BFA^ N $rh X X. Y (N) YK FFNr N: N: F| (,( (FF)))(-, ( (FF))),,BF,: ؖ: menu's verwijderenUV3V3: VF: VS: ,((X),Y),,: RE: VA: CA:() : () : () : VX: (,)(,), (,),i () o: open rechthoeken maken VA (() ()) XAX: YAY: VA: RE: ,((XA),YA),,:  (X,Y)(XA,YA),AK KL,B,: T : T2 (X,Y)(XA,YA),AK KL,B,r (() ()) VA (X,Y)(XA,YA),KL,B: VA: RE (() ()) VA ,((XA),YA),,ǘ () () ͘: volle rechthoeken makenA VA (() ()) XAX: YAY: VA: RE: ,((XA),YA),,: q (X,Y)(XA,YA),AK KL,B,: T : T& (X,Y)(XA,YA),AK KL,B,Й0 (() ()) VA (X,Y)(XA,YA),KL,BF:VA:RE : (() ()) VA ,((XA),YA),,%D () () D+NDX: cirkel of ellipsb CA (()()) XAX: YAY: CA:RE: ,((XA),YA),,: ƚlXR(XXA): YR(YYA): XBXRXA: YBYRYAv (XA,YA)(X,Y),AK KL,B,: T  : T (XA,YA)(X,Y),AK KL,B,. (XR) XRE (YR) YRoEE(XR): GG(YR): EEGG RREE EEGG RRGG XB XB : XB XBϛ YB YB : YB YBM (() ()) CA (XB,YB),RR,KL,,,GGEE: CA: RE: RR: XB: YB: XR: YR: ,((XA),YA),,i () () o: volle cirkel of ellips CA (() ()) XAX: YAY: CA: RE: ,((XA),YA),,: XR(XXA): YR(YYA): XBXRXA: YBYRYAD (XA,YA)(X,Y),AK KL,B,: T  : Td  (XA,YA)(X,Y),AK KL,B,{ (XR) XR  (YR) YR*EE(XR): GG(YR): EEGG RREEН4 EEGG RRGG> XB XB : XB XBH YB YB : YB YBR (()()) CA (XB,YB),RR,KL,,,GGEE: (XB,YB),KL: CA: RE: RR: XB: YB: XR: YR: ,((XA),YA),,\ () () \Ǟfp: rechte lijnen trekken7z VA (()()) RE: XAX: YAY: VA: ,((XA),YA),,: g (X,Y)(XA,YA),AK KL,,: T  : T (X,Y)(XA,YA),AK KL,,럘 (() ()) VA (X,Y)(XA,YA),KL: XAX: YAY: ,((XA),YA),,: VA: RE () ()  B: drukt x- en y-coordinaten af in tekenfunktiey XY (() () ()) XY : XY:  () VX XY:  FF: Fà X Y(   BB XY (,)(,#), (,),: BB8(,),: #,"###";X:(,),: #,"###";Y>t BB (,)(,#), (,),: BBz  : dunne lijn$ XY . (XX2,YY2)(X,Y),KL: ա8 : grafische lijn B L : (XLX2,YLY2)(XL,YL),KL: L: L : punten,V (X,Y),KL: =` : spuitbusj (X,Y),KL: (X,Y),KL: (X,Y),KL: (X,Y),KLt ~ : dikte afhankelijke lijnǢ (X,Y)(XX2,YY2),KL,BF: ޢ : gekleurde lijn좜 L  (XL,Y)(XX2L,YY2),(LKL)@ (XL,Y)(XX2L,YY2),(LKL)j (XL,Y)(XX2L,YY2),(LKL)u L: : kleurenpallet RRP R R R R ˣ GGPۣ G G G G( 2 BBP < B BF B B!P 'Z ?d : (,,,): gn : laden vanaf de cassette-recoderux  (,)(,), (,), : : ,,: ڤ ,: "LAAD FILE cassette": LR : LR,: ()(W): LR,: ()(W): LR,: ()(W): LRf , : "zet de recorder op afspelen" ,: "filename ";: B$ ,,,BR: (,,,): ,,: I: ͥ "cas:"B$ AS# #,DO: I,DO: II (())   #: B$"": +  : 2I : save file op cassetteW h x (,)(,), (,), : : ,,: " ,: "SAVE FILE cassette"C, LR : LR,: ()(W): LR,: ()(W): LR,: ()(W): LR: , : "zet de recorder op opnemen"d6 ,: "filename ";: B$@ ,,,BR: (,,,): ,,: ħJ "cas:"B$ AS#: (,)(,), (,),T I ET': DO(I): #,DO: I^ #: B$"": h  : 2 r @| : laden tekening van diska (,)(,), (,),| : : ,,:  ,: "LAAD FILE drive ";D$) LR : LR,: ()(W): LR,: ()(W): LR,: ()(W): LR: ,: D$"*.PIC"R ,: "filename ":  ,: B$ : (,,,): ,,: : B$D$B$ B$".PIC" (,): FF: F: |: Ʃ 5 : 2۩ :save tekening (,)(,), (,), : : ,,: $ N N ,: "SAVE FILE drive ";D$ê LR : LR,: ()(W): LR,: ()(W): LR,: ()(W): LR: ,: D$"*.PIC" ,: "filename ";: B$& : (,,,): ,,: : B$D$B$F0 (,)(,), B$".PIC": B$"": FF: Fq: (,)(,), (,),: |: wD N 5 : 2X :kill fileëb (,)(,), (,),ݫl : : ,,: v   ,: "KILL FILE drive ";D$ LR : LR,: ()(W): LR,: ()(W): LR,: ()(W): LR: ,: D$"*.PIC" ,: "filename ":  ,: B$ଞ ,: "zeker weten? J/N ";: K$$() K$"n" : (,,,): ,,: :  A : (,,,): ,,:: B$D$B$c B$".PIC": B$"": FF: F (,)(,), (,),: |: 5 : 2 :formateer disk (,)(,), (,), : : ,,:  ,: "Formateren!!"A ,: "zeker weten? J/N ";: K$$()v K$"n" : (,,,): ,,: : *  : ,: FORMAT : (,,,): ,,:ڮ* (,)(,), (,),: |: 4 > : maak het scherm schoon$H (,)(,),KL,BF: AKKL: @R : randkleur instellenW\ ,,KL: KRKL: mf : fill of paintp (X,Y),KL,KR: z : raster RX   : RYRX篎 (,RY)(,RY),KLAK,,: : raster x-lijnen$ (RX@p,)(RX@p,),KLAK,,: : y-lijnen0 RX: < : gum_ (X,Y)(X,Y),KL,BF: v : cursorsnelheid ST ST : ST: : haal vorig plaatje terugذ (,)(,), (,),: "BEREKENING PREMIE-INKOMEN + AOW/AWW:wAZ$"N"ڑ:"BENT U EEN ONGEHUWDE VROUW OUDER DAN 45 JAAR(per 31-12-86) EN HEEFT U GEEN RECHTOP KINDERBIJSLAG";OV$:"ALS PERSOONLIJKE VERPLICHTING":"AFGETROKKEN PREMIES AOW/AWW":"(niet de andere premies!)")"F ";(G9):"ONTVANGEN AOW/A SAL88/ MSX Computer Magazine5(h2:Berekening maandsalaris 1988 (witte tabel).<:Geschikt voor bruto- en netto-berekeningen.F:P :**************̀Z : doord:J.van der Jagtn: GOES x:**************1:Initialisatie ******************G : : (: x:Op MSX2 kan ook WIDTH 80 gebruikt worden.:Invoer ************************* "LOONBEREKENING"΁ "==============" "Voert u een bruto of een nettobedrag in?" "Kies b of n: ";C$ :8 ("BbNn",C$) B H "ZW = ";ZW,"WW = ";WW,"WA = ";WA,"ZF = ";ZF,"FR = ";FR͂ "Zijn deze percentages en de franchise juist?" "Voor niet-ZFW gevallen percentage ZF op 0 stellen!"D "Franchisebedragen WAO voor vacantiebongerechtigden:"{  " f. 94.60 voor ten hoogste 10 vacantie dagen."  " f. 96.50 voor mr dan 10 maar minder dan 20 vacantiedagen."  " f.103.70 voor 20 of mr vacantiedagen." : "Kies j of n: ";P$ :/ ("JjNn",P$) H" ("Jj",P$) ^, "Wijzig de percentages en/of de franchise in onderstaande regel."6 "Tik daarna ENTER en RUN."@J DŽT̈́^߄h "Naam: ";A$r "Tariefgroep 1;1a;2;3;4;4d: ";B$'| ("11a2344d",B$) rN "Bedrag beschikking Insp.: ";CCt "Aantal gewerkte dagen: ";F ("Bb",C$) XL:  "Nettoloon per maand: ";XLʅYL:  "Brutoloon per maand: ";YLEAXL YL EYL::Berekenen **********************D kFRFRF: AA: AB: ACE: ADE ACABF ACABF ADAAF ADAAFZWZWd: ZW(ZWACd)d݆WWWWd: WW(WWACd)dWAWAd: WA(WA(ACFR)d)d& WA WA60ZFZFd: ZF(ZFADd)dK:EEEZWWWWAZFX<EFEECCo>IN(EF <)<DK((?@INd@P)d)N K  K X K KȇbN: P@߇l B$"1" D {v B$"1a" D !  B$"2" D," B$"3" D[;8 B$"4" D5N B$"4d" D GV:^: IN Eu6 IN(EF ) INFD IN(EF )YN(P(INKN))و YN  YN  YN YN YM(YN  ) G(INKNYND)H G  A  :B:C q G % A % :B:C G  G B A B :B :C <  G 5{ A 5{ :B):C Q  G EDR@ A EDR@ :B3:C 3* G Ee A Ee :B<:C \94 G E@ A E@ :BB:C E96 a> G Fa AFa :BE:C EXPH G F"% AF"% :BH:CF8RRXN((GA)BdC)W XN XNˊ\XM(XN  ) ފfSVZWWWWAZFpESESVzYXYMXM BLESVCCZFSYSVYX%NLESYX+> YL S NLXL {:Afdrukken scherm *************** A$ "Tariefgroep ";B$ CC ΋ "Bedrag besch.Inspect."; ) "#####.##";CC& "===============================",U "Bruto loon" ) "#####.##";E "Inh.premie ZW" ) "#####.##";ZW$ "Inh.premie WW" ) "#####.##";WWӌ. "Inh.premie WAO") "#####.##";WA8 ZF LB "Inh.premie ZFW") "#####.##";ZF;L ) "--------"eV ) "#####.##";SV|` "Bedr. voor AOW"j "en LB" ) "#####.##";BLЍt "Inh.premie AOW") "#####.##";YM~ "Inh.loonbel." ) "#####.##";XM% ) "--------"O ) "#####.##";SYz ) "--------" "Netto loon" ) "#####.##";NLώ ) "========"⎺ YL  NLXL EE(XLNL) NLXL EE(NLXL)* NLXL 4 Q "Uitprinten j/n: ";Q$n ("JjNn",Q$)  ("Jj",Q$)  :  :Afdrukken printer ************* A$؏ "Tariefgroep ";B$( CC F 2 "Bedrag besch.Inspect.";4< ) "#####.##";CCbF "==============================="hPZ "Bruto loon" ) "#####.##";Ed "Inh.premie ZW" ) "#####.##";ZWn "Inh.premie WW" ) "#####.##";WWx "Inh.premie WAO") "#####.##";WA" ZF L "Inh.premie ZFW") "#####.##";ZFw ) "--------" ) "#####.##";SV "Bedr. voor AOW"⑴ "en LB" ) "#####.##";BL  "Inh.premie AOW") "#####.##";YM6 "Inh.loonbel." ) "#####.##";XMa ) "--------" ) "#####.##";SY ) "--------" "Netto loon" ) "#####.##";NL  ) "========" <:Percentages en franchise: *****tZW  : WW AP : WAB0 :ZF AQ :FR[z":"ALS PERSOONLIJKE VERPLICHTING":"AFGETROKKEN PREMIES AOW/AWW":"(niet de andere premies!)")"F ";(G9):"ONTVANGEN AOW/A 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."ʚ:oplossingen ************************************************************** "bm15,192": #,"oplossing in volgende nummer"- W  : : (,)(,),,BF: chise: *****tZW  : WW AP : WAB0 :ZF AQ :FR[z":"ALS PERSOONLIJKE VERPLICHTING":"AFGETROKKEN PREMIES AOW/AWW":"(niet de andere premies!)")"F ";(G9):"ONTVANGEN AOW/A ml214( MSX Computer MagazineU2 Kursus machinetaal deel 12[<hF , P "Dubb. precisie-lus [toets]";: A$$()Z: T%d I 0u: IԀnD%T%: D%2"sec."x "Integer-lus [toets]";: A$$(): T% I% 0u: I%:D%T%: D%2"sec."FAD% A$: (A$)* AD%,("&h"A$): AD%AD%:  Á "Machinetaal-lus [toets]";: A$$(): T%؁A%(): D%T% D%2"sec." 01,30,75: : LD BC,300005 0B: :LUS: DEC BCU 78: : LD A,Bs B1: : OR C 20,FB: : JR NZ,LUS C9: : RET ************* "bm15,192": #,"oplossing in volgende nummer"- W  : : (,)(,),,BF: chise: *****tZW  : WW AP : WAB0 :ZF AQ :FR[z":"ALS PERSOONLIJKE VERPLICHTING":"AFGETROKKEN PREMIES AOW/AWW":"(niet de andere premies!)")"F ";(G9):"ONTVANGEN AOW/A ml222 Machinetaalkursus deel 12N( MSX Computer MagazineT2j< 2, : F "[1] Integers": "[2] Enkele precisie": "[3] Dubbele precisie"ŀP: "Keuze: ";ZK%($()): K% K% Zd K% n K% @,J,T.x N%"elementen,"B%"bytes elk.": A(N%)KZ: A(N%)h "ML wordt gePOKEd...";tAD% A$: (A$)* AD%,("&h"A$): AD%AD%: ́: "Basic [toets] ";فA$$() I% N%: A(I%)Z  : I%: "Index: "I%SAD% : D: BA: EA :alvast gebruiken VOOR Varptr{BA(A())EeS`: EA(A(N%))EeS` AD%,BA((BA)): AD%,(BA) AD%,EA((EA)): AD%,(EA) "ML [toets] ";A$$()Z(Z)&"D(Z(A()))B%;,: "Index: ";DA6\@ A,Z: B%: N%L: wJ A,Z: B%: N%: T A,Z: B%: N%S: : De ML-data:ԃ: data equ 0F7F6H: type equ 0F663H :8: org 0D000H@:y$ 00,00 : :ba defw 0 beginadres. 00,00 : :ea defw 0 eindadres8:B 2A,00,D0: : ld hl,(ba) eerste waardes3L 11,F6,F7: : ld de,data van HL en DEoV 3A,63,F6: : ld a,(type) integer-type?` FE,02 : : cp 2Åj 20,02 : : jr nz,hfdlust 13 : : inc de ja: verhoog DE6~ 13 : : inc de met 2>:| E5 : :hfdlus push hl bewaar HL en DE D5 : : push de voor straks: 3A,63,F6: : ld a,(type) haal aantal bytes? 47 : : ld b,a naar B (DJNZ!)G: 1A : :byte ld a,(de) vergelijk BE : : cp (hl) (HL) met (DE) 20,08 : : jr nz,nietgl* 23 : : inc hl gelijk! volgende_ 13 : : inc de byte 10,F8 : : djnz byte proberen : D1 : :gelijk pop de alle bytes gelijk!" E1 : : pop hl verwijder DE en HLg( 18,1C : : jr klaar van de stack en stopo2:< D1 : :nietgl pop de verschil gevondenF E1 : : pop hl herstel DE/HL*P 3A,02,D0: : ld a,(ea) al bij het eind?jZ BD : : cp l verg. HL met (ae)d 20,0B : : jr nz,niet2 via A-reg.Ҋn 3A,03,D0: : ld a,(ea+1)x BC : : cp h% 20,05 : : jr nz,niet2-:l 21,00,00: : ld hl,0 ja, klaar. niets 18,09 : : jr klaar gevonden (HL=0): 06,00 : :niet2 ld b,0 nee, niet klaar/ 3A,63,F6: : ld a,(type) verhoog HL metp 4F : : ld c,a het aantal bytes 09 : : add hl,bc via BCҌ 18,D2 : : jr hfdlusڌ: 3E,02 : :klaar ld a,2 terug naar BasicX 32,63,F6: : ld (type),a type=2 (integer) 22,F8,F7: : ld (data+2),hl res. is HL (evt. 0)ҍ C9 : : ret en terug. * : : laatste byte.00005 0B: :LUS: DEC BCU 78: : LD A,Bs B1: : OR C 20,FB: : JR NZ,LUS C9: : RET ************* "bm15,192": #,"oplossing in volgende nummer"- W  : : (,)(,),,BF: chise: *****tZW  : WW AP : WAB0 :ZF AQ :FR[z":"ALS PERSOONLIJKE VERPLICHTING":"AFGETROKKEN PREMIES AOW/AWW":"(niet de andere premies!)")"F ";(G9):"ONTVANGEN AOW/A ml22a3 Machinetaalkursus deel 12O( MSX Computer MagazineU2rx B%"bytes per element." A( ,,)Z: A(,,) I1%  : I2% : I3% : A(I1%,I2%,I3%)Z  : I3%,I2%,I1%: "Index ("I1%","I2%","I3%")"DBA(A(,,))EeS`: EA(A( ,,))EeS`]"D(Z(A(,,)))B%v,: "Index "D" = ";-I3(D(( )())).DDI3(( )())/I2(D( ))ԁ0DDI2( )݁1I1D2 "("I1","I2","I3")"EN AOW/A) : MSX Computer Magazine checker/51:^: copyright MBI Publications B.V. 1985(:*********************************2: PAS TOP OF BASIC MEMORY AAN ****Ҁ< ,(( J)( K))FB( J)( K): BMP: STEL SCHERM IN *****************7Z : %: ,,_d: GEEF INSTRUCTIE OP SCHERM *****n ,: "MSX COMPUTER MAGAZINE"x ,: "INVOER CONTROLE PROGRAMMA/5" ,: "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."6 "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): DŽ A$"*1" A$: ABB("&H"A$): BR,AB((AB)):  A$"*2" BR,(AB):  R: KONTROLEER DATA-WAARDES ******* CSG3cb : "U heeft een fout gemaakt in de data- regels!": : "Eerst verbeteren!": : ZET CHECKSUMROUTINE AAN *******"A(),: "Begint u maar met intikken"6@: MACHINECODE *******************J 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,7ET 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,0^ 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,5Eh 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,6Bkr 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,C9Z: A(,,) I1%  : I2% : I3% : A(I1%,I2%,I3%)Z  : I3%,I2%,I1%: "Index ("I1%","I2%","I3%")"DBA(A(,,))EeS`: EA(A( ,,))EeS`]"D(Z(A(,,)))B%v,: "Index "D" = ";-I3(D(( )())).DDI3(( )())/I2(D( ))ԁ0DDI2( )݁1I1D2 "("I1","I2","I3")"EN AOW/A" Edh0,: ,( )( )K:(::():():̍,:AZA9:B9:C9:D9:E9:F9:G9:H9:I9:J9:K9:X9:T1:T2:T3O:T4(RT5Ѐ2H:"ACCOORD";A$:A$"J"P <"WELKE TARIEFGROEP-INDELING WENST U: (1,2,3,4)";T1FT1T1<5PA$"":B$"":C$""|ZVNVڅ"HEEFT PARTNER EEN LAGER ARBEIDSINKOMEN DAN UZELF";AI$ dNVVAI$"J"ڟ:"I.V.M. BEREKENING VOETOVERHEVELING BIJ TWEEVERDIENERS, STARTEN WE NOGMAALS;VOEREERST DE GEGEVENS VAN PARTNER IN":NVRnNVGG$"J"IN$"J"ڑ"TIP: vul ieder een eigen biljet in":ڂxNVAZ$"J"ڑ:"VULT UW ECHTGENOOT ZELF EEN BILJET IN":"let op! teruggave alleen mogelijk indieneigen biljet wordt ingevuld";VU$"HEEFT U EEN BAAN ";A${T1(A$"J"A$"N")ڑ"ER IS GEEN BELASTINGVRIJE SOM E/0 TOESLAGEN. VUL ALLEEN DE IN NEDERLAND BELAST- BARE BEDRAGEN IN.":A$"J"T2僠T1ڋA$"J"څ"HEEFT U MINSTENS 1 KIND,DAT OP 31-12-86 JONGER WAS DAN 12 JAAR";B$B$"J"ڋA$"J"T3"`T1ڋA$"J"څ"HEEFT U EEN THUISWONEND KIND DAT OP 31-12-86 JONGER WAS DAN 13 JAAR";C$ՄT1ڋA$"J"ڋC$"J"څ"HEEFT U EEN THUISWONEND KIND (OUDSTETOT 27 JAAR) DIE U IN BELANGRIJKE MATE ONDERHOUD";D$ D$"J"څ"UW TOT. JAARLIJKSE ARBEIDSINKOMEN";VV,D$"J"T4VV:T4T42T2ڑ"U HEEFT RECHT OP ARBEIDSTOESLAG";:T3ڑ" EN OOK OP AANVULLENDE ARBEIDSTOESLAGɅT4ڑ"EN OP AANVULLENDE ALLEENSTAANDE-OUDER-TOESLAGمT2T0T2T3T0T2T3T4T0T2T4 :"TOTAAL VAN TOESLAG F";T0y"VT5ڑ:"BEDRAG VOETOVERHEVELING PARTNER:F";T5;" KOMT BIJ UW BELASTINGVRIJE SOM,R6T5R@T1(T1):A$"":B$"":C$""džJT1T,^,h,r׆TT12:|^T1+:|hT1d::|rT14 |$T1T1:I4T1T2T3T4T5WT2T3T4I3I4T1I3T5dI5I3I4wI5Z:I5&Z@I5:ÇI5&ڋI5pCZ(I5&)@%:I5pCڋI5}Z(I5pC)@2m :#I5}ڋI5EE1Z(I5})@B :XI5EE1ڋI5EfPZ(I5EE1)@R5:I5EfPڋI5EqpZ(I5EfP)@a_:ĈI5EqpڋI5F%Z(I5Eqp)@gE@w:I5F%ڋI5F#$xZ(I5F%)@pE`rp:Z(I5F#$x)@rFw$Z(Z)O&:"BELASTBAAR INKOMEN 1987: F";(I3)t0"BELASTINGVRIJE SOM: F";I4:"BELASTBARE SOM: F";(I5)ljDI3I4T2T3I5(I3(dI4U))0NI5VT5(I5)::"U KUNT OVERHEVELEN NAAR DE BELASTING- VRIJE VOET PARTNER")"F ";(I5)fX:"VERSCHULDIGDE":"INKOMSTENBELASTING")"F";Ztb:lNVڍvϊNVڟ:"OOK DE GEGEVENS VAN UZELF";A$:NV:A$"J":؊ኔ:"NOGMAALS";Q$:NVQ$"J"::c:"VOORHEFFINGEN EN VOORLOPIGE TERUGGAAF VOETOVERHEVELING 1987::"BEDRAG INGEH. LOONBELASTING")"F ";Z2:"BEDRAG INKOMSTENBELASTING BETAALD VIA VOORLOPIGE AANSLAG")"F";:Z1T12e:"HOEVEEL IS TERUGGEKREGEN AAN LOONBELAS- TING I.V.M. AANVRAAG VOETOVERHEVELING IN 1987")"F";:Z3vZZZ1Z2Z3ƌ :Zڑ:"U KRIJGT TERUG AAN":"INKOMSTENBELASTING 1987 F";(Z)ZZڑ:"EEN T-BILJET AANVRAGEN VOOR BELASTINGTE-RUGGAVE HEEFT GEEN ZIN Zڑ:"KNIP HET HOEKJE VAN HET E-BILJET AF":"KRIJGT U GEEN BILJET TOEGESTUURD? VRAAGDAN EEN T-BILJET AAN!Ӎ*Zڑ::"NOG TE BETALEN AAN":"INKOMSTENBELASTING 1987 F";(Z)(4Z Zڑ"DE TE BETALEN INKOMSTENBELASTING AD F ";Z;"WORDT NIET GEHEVEN.>]H"TARIEFGROEP INDELING:":A$"":B$"":C$""|R"WOONT U IN NEDERLAND";A$\A$"N"څ"BELGIE, SURINAME OF NED. ANTILLEN";A$fA$"N"څ"WORDT BIJNA U GEHELE WERELDINKOMEN (90% OF MEER) IN NEDERLAND BELAST";A$pA$"N"T1:>z"WAS U IN 1987 GEHUWD";AZ$AZ$"J"څ"BENT U IN 1987 GETROUWD OF DUURZAAM GE- SCHEIDEN GAAN WONEN";GG$ƏAZ$"J"څ"WAS U IN 1987 MINSTENS 6 MND GEHUWD";AA$AZ$"N"څ"MINSTENS 6 MND SAMENWONEND MET EEN ONGEHUWDE BELASTINGPLICHTIGE, DIE OP 31-12-86 TEN MINSTE 18 JAAR IS EN VOOR NIET MEER DAN 50% DOOR ZIJN/HAAR OUDERS WORDT ONDERHOUDEN";SA$ܐAZ$"J"SA$"J"څ"HAD UW PARTNER IN 87 EEN INKOMEN";IN$:IN$"N"T1:A$"J"ڋIN$"J"T1:V:R"HEEFT U RECHT OP KINDERBIJSLAG/ VERVAN- GENDE BUITENGEWONE LASTEN AFTREK";A$A$"J"څ"VOERT U ALLEEN EEN HUISHOUDEN";B$:B$"J"T1:!A$"J"ڋB$"N"څ"VOERT U EEN HUISHOUDEN UITSLUITEND MET KINDEREN DIE OP 31-12-86 ALLEN JONGER ZIJN DAN 27 JAAR";C$:C$"J"T1:GA$"J"ڋB$"N"ڋC$"N"ڍ$:"WAS U OP 31-12-85 27 JAAR OF OUDER";A$:A$"J"څ"VOERT U ALLEEN EEN HUISHOUDEN";B$A$"J"ڋB$"J"T1:MA$"J"ڋB$"N"ڑ"VOERT U EEN HUISHOUDEN UITSLUITEND MET KINDEREN DIE OP 31-12-86 ALLEN JONGER ZIJN DAN 27 JAAR";:C$:C$"J"T1:sA$"J"ڋB$"N"ڋC$"N"ڍ$:|T1:"U BENT INGEDEELD IN TARIEFGROEP";T1ē$A$"":B$"":C$""."ONGEHUWDE HULPBEHOEVENDE BEJAARDEN EN GEHANDICAPTENEN HUN NAASTE FAMILIELEDEN DIE HEN VERZORGEN, KUNNEN ONDER BEPAALDEVOORWAARDEN VOOR INDELING IN TARIEFGROEP2 OF 4 IN AANMERKING KOMENϔ8"ZIJN ALLE ANDEREN WAARMEE U DUURZAAM EENHUISHOUDEN VOERT GEHUWD";A$BA$"J"T1:0L"HEEFT UW HUISGENOOT EEN INKOMEN IN 87";A$:A$"J"T1:V: xV"LEEFTIJD OP 31-12-86 VAN UW HUISGENOOT DIE GEEN INKOMEN HEEFT";L`LT1:jLT1:tLڋLڑ:"WORDT DEZE PERSOON GROTENDEELS OP KOSTENVAN DE (PLEEG)OUDERS ONDERHOUDEN";A$:A$"J"T1:~T1"+S:"TER BEREKENENING AOW/AWW PREMIE{:"BENT U TUSSEN 15 EN 65 JAAR";A$A$"J"ډӖA$"N"ڑ:"U HOEFT GEEN AOW/AWW PREMIE TE BETALEN":NV::"BEREKENING PREMIE-INKOMEN + AOW/AWW:wAZ$"N"ڑ:"BENT U EEN ONGEHUWDE VROUW OUDER DAN 45 JAAR(per 31-12-86) EN HEEFT U GEEN RECHTOP KINDERBIJSLAG";OV$:"ALS PERSOONLIJKE VERPLICHTING":"AFGETROKKEN PREMIES AOW/AWW":"(niet de andere premies!)")"F ";(G9):"ONTVANGEN AOW/AWW UITKERINGEN")"F";:P3LMI3G9(G4(G4 B&@0)):MEdUMEdU:"PREMIE-INKOMEN(max.f 64.550)")"F ";(M)MMWA@M:A@@M˜ OV$"J"AA(@ @A)ӘA A :"VERSCHULDIGDE PREMIE AOW/AWW")"F ";(A)D(AP2ڑ:"TE BETALEN PREMIE IS GELIJK AAN BETAALDEPREMIEO2HP2A<AP2ڑ:"TEVEEL BETAALDE AOW/AWW")"F ";(H)FHHڑ:"F 140,- OF LAGER WORDT NIET TERUGBETAALDәPFA1(AP2)ZOV$"J"F@p(AP2)dF!F!3nFڑ:"TE BETALEN AWBZ/AKW/AWW")"F "(F)qxAP2ڑ:"TOT. NOG TE BETALEN PREMIES")"F ";(FAP2)w:"VR.3 INKOMSTEN UIT ARBEIDA3:A4:A6:P2:Z2yNVVU$"N"ڑ"Antwoorden op vraag 3 en 4 invullen bij 6c en 6d op het biljet van uw echtgenootBlijkt uit het programma dat u in aanmerking komt voor teruggave, vul dan zelf een biljet in.P4::"3a INGEHOUDEN AOW/AWW")"F";:P4ߛZ4::"3a INGEHOUDEN LOONBELASTING")"F";:Z4.A2::"3a LOON,PENSIOEN,AOW/AWW, SOCIALE UITKERINGEN,LIJRENTE etc.["incl. loonbel. en premies")"F";:A2zA3A3A2:Z2Z2Z4:P2P2P4:"NOG MEER OPTELPOSTEN";A$A$"J"N1N1:ڜ:"TOTAAL 3a AOW/AWW")"F ";P2:"TOTAAL 3a LOONBELASTING")"F ";Z2.:"TOTAAL 3a LOON etc.")"F ";A37:"HAD U IN 1987 EEN PERSONENAUTO VAN UW WERKGEVER TER BESCHIKKING";:AU$" AU$"N"ם,:"GEBRUIKT U DE AUTO VOOR WOON-WERK VERKEER";WW$$6:"REED U PRIVE MINDER DAN 2000 KM (OF 10% TOT. AANTAL GEREDEN KM)";PR$`@WK:PR$"J"ڑ:"VUL WERKELIJKE KOSTEN IN")"F";:WKJW1::"CATALOGUS WAARDE AUTO")"F ";:W1TW2::"AANTAL MAANDEN "):W2^W3::"EIGEN BIJDRAGE")"F ";:W3hW4O:W4(((W1)(W2 ))W3):W4W4 rWKW4WK`|:"BELASTBAAR BEDRAG VOOR":"PRIVEGEBRUIK AUTO")"F ";W4mA3A3W4:"3a1 + 3a3 =")"F ";A3Ɵ:"Vr.3b ANDERE BRUTO INKOMSTEN UIT ARBEID"lesgeven,schrijven van boeken,":"verrichten van karweitjes")"F";:A46:"3a + 3b =")"F ";A3A4?o:"Vr.3c AFTREKBARE REISKOSTEN WONING-WERK:"KOMT U VOOR AFTREK WOON-WERKVERKEER IN AANMERKING";A$A$"N"+AU$"J"WW$"J"W3ڑ:"U MAG ALLEEN HET VASTE BEDRAG AD F200 VOOR REISKOSTEN AFTREKKEN":A5:AU$"J"W3ڑ:"DOOR UW EIGEN BIJDRAGE MAG U REISKOSTEN VOLGENS DE TABEL AFTREKKEN:"REIST U DOORGAANS 1 OF MEER DAGEN PER WEEK":"het gehele afgelopen jaar en met dezelf-de afstand";A$yA$"N"ڑ:"ZIE VOOR BEREKENING AFTREKBAAR BEDRAG TOELICHTING AANGIFTEBILJET"::"VUL AFTREKBAAR BEDRAG IN")"F";:A5:ע:"HOEVEEL DAGEN REIST U PER WEEK (halve dagen afgerond naar boven)";RD:RDRDRDRD&:"REIST U BINNEN 1 VAN ONDERSTAANDE GEBIE-DENC0:"AMSTERDAM,DIEMEN OF DUIVENDRECHTˣ:"ROTTERDAM(BEHALVE HOEK Van HOLLAND EN WESTELIJK DE OUDE MAAS),SCHIEDAM, VLAAR-DINGEN,RHOON,POORTUGAAL EN CAPELLE AAN DE IJSSEL6D"DEN HAAG, RIJSWIJK, VOORBURG, EINDHOVEN EN HEEFT U IN DEZE GEBIEDEN GEEN 3 STER-ABONNEMENT NODIG";A$TNA$"J"A5:A$"J"X:"AFSTAND WOON/WERKGEBIED IN KM (enkele reis)";K1bK1 A52lK1 K1A5ѤvK1K1A5c준K1K1A5CPuK1K1(A5K1(K12A5/0K12A5W=A5RDA5l:"1 KOSTEN REIZEN WOON/ WERK")"F ";A5:"2 ONTVANGEN BELASTINGVRIJE VERGOEDING VOOR REISKOSTEN (indien de vergoeding ruimschoots de aftrekbare kosten over- treft zie toelichting)")"F";:A6,A7A5A6:A7A7T:"3 AFTREKBAAR BEDRAG")"F ";A7]:"Vr.3d ANDERE AFTREKBARE KOSTEN (uit hoofde tegenwoordige of vroegere arbeid):"BESTAAT UW TOT. INKOMEN UIT":"TEGENWOORDIGE ARBEID";A$ A$"J"TAA3: [TA::"WAT IS HET TOT. INKOMEN UIT":"TEGENWOORDIGE ARBEID")"F";:TAk A8?@TAyA8> A8 A8 *A8A84:"4% REGEL VAN DEZE INKOMSTEN":"(MIN f200 / MAX f800)")"F ";A8.>A$"N"K2ڑ:"HEEFT U ALLEEN INKOMEN UIT VROEGERE ARBEID";B$hHB$"J"A8::"VAST BEDRAG VOOR AFTREK")"F ";A8R:"WERKELIJKE KOSTEN HOGER DAN 4%REGEL OF VAST BEDRAG";A$ר\A$"J"ڑ:"VUL HET BEDRAG IN")"F";:A8f:"3c + 3d =")"F ";A7A8 pA9A3A4A8A7zM5:M5(A9)O:"TOT.:3-INVULLEN BIJ 18 A")"F ";(A9)X|:"Vr.4 PERIODIEKE UITKERINGENB2::"4a TERMIJNEN VAN LIJFRENTE")"F";:B2B3::"4b PERIODIEKE UITKERINGEN":"TER ZAKE VAN STUDIE")"F";:B3:"4a + 4b =")"F ";B2B3OB4::"4c AF:AFTREKBARE KOSTEN")"F";:B4nB9:B9B2B3B4:M6(B9):"TOTAAL:4-INVULLEN BIJ 18 B")"F ";(B9)Ū:AZ$"J"IN$"J":"U BEHOEFT DE VRAGEN 5 T/M 7 NIET IN TE VULLEN"::P  NVVU$"N" ] :"Vr. 5 BEREKENING VAN UW PERSOONLIJK ARBEIDSINKOMENn GG$"J"8 { M2A9B9$ :"UW PERSOONLIJK ARBEIDSINKOMEN")"F ";M2:NVM3M2«. t 8 M1::"HOEVEEL MAANDEN BENT U GEHUWD GEWEEST";M1B M2(M1(A9B9)) :NVM3M2oL ::"PERSOONLIJK ARBEIDSINKOMEN OVER":"DE HUWELIJKSE PERIODE")"F ";(M2)V :"ALS U HET HOOGSTE PERSOONLIJKE ARBEIDS- INKOMEN HEBT, MOET U DE NIET-PERSOON- LIJKE INKOMSTEN ALS VOLGT OPGEVEN:L` :"over de niet-huwelijkse periode DE NIET-PERSOONLIJKE INKOMSTEN EN AFTREKPOSTEN VAN UZELFj :"over de huwelijkse periode IDEM, ECHTER VAN U ZELF EN UW ECHTGENOOTt M3M2ڟ:"U HEEFT NIET HET HOOGSTE ARBEIDSINKOMEN.HET PROGRAMMA WORDT OPNIEUW GESTART":::2~ NVM3M2ڑ"BENT U JONGER";:A$:A$"N" NVAI$"N"ڑ:"VUL OP HET BILJET 'T PERSOONLIJK ARBEIDSINKOMEN VAN UW ECHTGENOOT (VRAAG 6) IN"::P VU$"J"GG$"J"ڍ: ʮ 殦 "TOTAAL 6c")"F ";M5 :"TOTAAL 6d ")"F ";M6R M9M5M6::"6e PERSOONLIJK ARBEIDSINKOMEN":"ECHTGENOOT")"F ";(M9)g I3M9:PAM9:Q5p ~ NV :"Vr.7 PREMIES VOLKSVERZEKERINGEN̯ :"7a PREMIES AOW/AWW")"F";P2 AB::"7b PREMIES AWBZ,AAW EN AKW":"VERHAALD OP UW WERKGEVER")"F";:ABd AC::"7c VORIG JAAR OP AANSLAG":"BETAALDE PREMIES")"F";:AC :"TOTAAL")"F ";P2ABACǰ AD::"7d VORIG JAAR TERUGONTVANGEN":"PREMIES")"F";:ADڰ G9P2ABACAD( :"TOT.7-INVULLEN BIJ 18 G")"F ";G9`2 :"VUL ALLEEN NOG VRAAG 17 IN (+ ECHTGENOOTDIENT EIGEN BILJET IN TE VULLEN":X9A9B9i< rF P :"Vr.8 INKOMSTEN UIT ONDERVERHURINGȱZ C2::"a BRUTO INKOMSTEN")"F";:C2d C3::"b AF:AFTREKBARE KOSTEN")"F";:C3 n C9:C9C2C3h F3:F4::"Vr.11 INKOMSTEN UIT EIGEN WONINGr :"HAD U/UW ECHTGENOOT AFGELOPEN JAAR (EEN)EIGEN WONING(EN)";:A$:A$"N" ٶ| :"WOONT U ZELF IN DE WONING(GEEN VAKANTIE-WONING)";A$:A$"N" :"VRIJE VERKOOPWAARDE WONING")"F";:F0 F1@`F0"  R :"VRIJE VERKOOPWAARDE WONING")"F";:F0 :"HOEVEEL MAANDEN WAS U BEWONER cq EIGENAAR VAN DE WONING";BBȷ A$"J"ڑ:"FISCALE WAARDE")"F ";F1 A$"N"ڑ:"FISCALE WAARDE")"F ";F0:F1F0 F1:F2% F1:F10uF2B F10uF1E`F2a F1E`F1EF2  F1EF1FF2 F1FF1FF2 F1FF1F$F2$ ݸ F1F$F1F0F20  F1F0F1F6F2<& F1F6F1FEF2H:0 F1FEF1FTF2O: F1FTF2laD A$"J"Q9F2sN F2(BBF2) X F3F3F2b :"HEEFT U NOG MEER WONING(EN)";B$l B$"J"A$"N": ɹv  :"d HUURWAARDE VOLGENS TABEL")"F ";F3$ :"BEDRAG VAN DE SCHULDEN")"F";:Z6C Z7?Z6:Z7Z7 :"MAXIMUM AFTREKBAAR VOOR":"AFSLUITPROVISIE")"F ";Z7 :"VOORUITBETAALDE RENTE EN KOSTEN VAN LE- NINGEN, DIE NA 30 JUNI AFLOPEN, ZIJN TOTMAX. f 4000 AFTREKBAAR F Z8::"RENTE VAN SCHULDEN EN":"KOSTEN VAN HYP. LENINGEN")"F";:Z8S F4F4Z8u :"NOG MEER RENTE/KOSTEN";A$ A$"J" :"e TOTAAL RENTE EN KOSTEN")"F ";F4׻ F5::"f ERFPACHT")"F";:F5 F6::"g ONDERHOUD")"F";:F6 F8:F8F4F5F65 :"11 e + f + g =")"F ";F8T F9:F9F8F3:F9F9(F9) ::"TOT. 11-INVULLEN BIJ 18F")"F ";(F9)* 4 :"Vr.12 PREMIES VOLKSVERZEKERINGEN> :"a AOW/AWW VOLGENS 3a1")"F ";P2H G3::"b VERHAALDE AWBZ/AAW/AKW(3a1)")"F";:G3SR G4::"c OP AANSLAG BETAALDE PREMIES")"F";:G4h\ G5:G5P2G3G4f :"12a + b + c =")"F ";G5p :"d AF:TERUGONTVANGEN PREMIES")"F";:G6ͽz G9:G9G5G6 :"TOT.:12-INVULLEN BIJ 18 G")"F ";(G9) . H9::"Vr.13 RENTE VAN SCHULDENd H8::"a RENTE/KOSTEN VAN LENINGEN")"F";:H8q H9H9H8 :"NOG MEER RENTE/KOSTEN";A$ A$"J" վ :"b BEDRAG SCHULDEN OP 31 DEC.")"F";:H7 :"TOT.:13-INVULLEN BIJ 18 H")"F ";(H9) 0 :"Vr.14 RENTEVRIJSTELLINGE J5:J5D5D6D7i :"a GENOTEN RENTE")"F ";J5:"b AF:BETAALDE RENTE/KOSTEN":"LENINGEN")"F ";H9ǿJ9:J9J5H9:J9J9:VؿAZ$"N".)$AZ$"J"ڑ:"HEEFT U HET HOOGST PERSOONLIJKE ARBEIDS-INKOMEN";A$:A$"J"B<.J9J9E8LXBJ9xJ9xLKN:KI:D7ڑ:"AANTAL MINDERJARIGE KINDEREN";KI:(KI)(KID7)KNKI:KNKID7V:"14c BEDRAG VAN DE VRIJSTELLING":"INVULLEN BIJ 18 I")"F ";(J9KN)`%j:"Vr.15 GIFTEN"gtI6::"a GIFTEN VIA TERMIJNEN":"VAN LIJFRENTE")"F";:I6~I7::"b OVERIGE GIFTEN")"F";:I7XX:XXA9B9C9D9E9F9I8?XX:I8xI8xœ:"c AF:1% VAN UW ONZUIVER":"INKOMEN.(min.f 120)")"F ";(I8)-¦V6I7I8:V7@XX`°V6ڑ:"OVERIGE GIFTEN TE GERING VOOR AFTREKqºV6V7V6V7V6V6:"15 b - c = (MAX.10% VAN":"UW ONZUIVER INKOMEN)")"F ";(V6)I9:I9I6V6:I9I9:"TOT.:15-INVULLEN BIJ 18 J")"F ";(I9) B:"Vr.16 BUITENGEWONE LASTEN:"16a ALS U HET AFGELOPEN JAAR MEER DAN 6 MND ALS ONGEHUWDE EEN GEZAMENLIJKE HUIS-HOUDING VOERDE MET EEN ANDERE ONGEHUWDE VAN 18 JAAR EN OUDER MAG U DE BUITENGE- WONE LASTEN SAMENVOEGEN. :"b IDEM, ECHTER ALS U AANSLUITEND GEHUWD BENT, MAG U DE TIJD WAARIN U SAMENWOONDEIN AANMERKING NEMEN ALS TIJD WAARIN U GEHUWD WAS. :"16c UITGAVEN VOOR ZIEKTE etc.(K0::"ZIEKENFONDSPREMIE WERKNEMERSDEEL OF":"PREMIE ZIEKTEKOSTENVERZ.")"F";:K0E2K1::"WERKGEVERSDEEL ZF")"F";:K1<K2::"MEDICIJNEN, EIGEN BIJDRAGE,":"HUISAPOTHEEK etc.")"F";:K2FK3::"DOKTERS, TANDARTS OF":"ZIEKENHUISKOSTEN")"F";:K3PK4::"DIEETKOSTEN, KOSTEN":"KRAAMHULP, BRIL etc.")"F";:K4XZK5::"EXTRA KOSTEN KLEDING":"EN BEDDEGOED")"F";:K5dK6::"KRUISVERENIGING")"F";:K6nK7::"OVERIGE KOSTEN":"bv. adoptiekosten, kosten igv":"overlijden, vervoerskosten")"F";:K7}x::"1-IS EEN PARTNER JONGER DAN 65 JAAR, ARBEIDSONGESCHIKT EN VERDIENT U MINDER DAN 55% DAN GEZONDE MENSEN IN DEZELFDE OMSTANDIGHEDENǂ:"2-IDEM VOOR TWEE PARTNERSnj:"3-IS EEN PARTNER IN 1987 65 OF OUDERǖ:"4-IDEM VOOR TWEE PARTNERS"<Ƞ:"5-IS DE ENE PARTNER 65 JAAR OF OUDER EN DE ANDER ARBEIDSONGESCHIKTwȪ:"6-BENT U/UW PARTNER IN 1987 65 JAAR GEWORDENȴ:"7-IDEM VOOR TWEE PARTNERSȾ:"8-GEEN VAN ALLEN IS VAN TOEPASSING:"DRUK NUMMER VAN KEUZE IN";A$A$"1"K87A$"2"K8n"A$"3"K875A$"4"K8)HA$"5"K8nA$"6"ڑ:"HOEVEEL MAANDEN WAS U IN 1987":"65 JAAR";L0A$"7"ڑ:"HOEVEEL MAANDEN WAREN U+UW PARTNER IN 1987 65 JAAR";L1A$"6"K8((L07) ) "A$"7"K8((L1))),A$"8"K8e6:"AFTREK WEGENS ARBEIDSONGESCHIKTHEID":"EN/OF OUDERDOM")"F ";K8@K9:K9K0K1K2K3K4K5K6K7K8J:"TOTAAL UITGAVEN TER ZAKE":"VAN ZIEKTE etc.")"F ";(K9)TM8A9B9C9D9E9F9M9^M95h:"UW ONZUIVER INKOMEN")"F ";(A9B9C9D9E9F9)vr:"PERSOONLIJK ARBEIDSINKOMEN":"VAN ECHTGENOOT")"F ";M9|:"TOTAAL")"F ";(M8)D̆SA$"J"ڑ:"INDIEN U UITGAVEN VAN UW PARTNER BIJ UW AANGIFTE HEEFT OPGETELD VUL DAN HET ARBEIDSINKOMEN (OVER DE BETROKKEN MAANDEN cq JAAR) HIER IN")"F";:MMQ̐M8M8MMa̚L3@M8y̤L4(?0M8)̮L5̸L6M8EHL6L3M8EHM8FL6L4M8FL6L5:"AF: DREMPEL BIJ ONZUIVER":"INKOMEN VAN F "M8"=")"F ";(L6)(L7K9L6[L7ڑ:"UITGAVEN TE GERING VOOR AFTREK":v:"A 16c1 - 16c2 =")"F ";(L7):"-HAD U IN 1987 VOOR MEER DAN 4 KINDEREN RECHT OP KINDERBIJSLAG"<:"-OF VOOR MEER DAN 4 KINDEREN JONGER DAN 27 JAAR, RECHT OP AFTREK WEGENS BUITEN- GEWONE LASTEN&:"-OF KWAMEN U/UW ECHTGENOOT DE AFGELOPEN 2 JAREN IN AANMERKING VOOR AFTREK BUI- TENGEWONE LASTEN";A$0A$"J"O1AP*::"-KWAMEN U/UW ECHTGENOOT DE AFGELOPEN 3 JAREN IN AANMERKING VOOR AFTREK BUITEN- GEWONE LASTEN";A$?DA$"J"O1AhN:"VERMENIGVULDIGINGSFACTOR");O1XO1O2O1L7:O2L7bOO?0M8:OO OO l(O2L7)OOO2L7OO::"MAX. VERSCHIL TUSSEN A EN B")"F "(OO)v:"INVULLEN BIJ 16c ")"F ";(O2)ЀFЊ:"16d UITGAVEN VOOR LEVENSONDERHOUDДO3::"1 VAN KINDEREN JONGER DAN":"27 JAAR WAARVOOR U GEEN RECHT":"HEBT OP KINDERBIJSLAG")"F";:O3ўO4::"2 VAN KINDEREN VAN 27 JAAR":"EN OUDER EN OVERIGE NAASTE":"VERWANTEN")"F";:O43ѨO5? M8:O5 O5 hѲO4ڑ:"NIET AFTREKBAAR BEDRAG")"F ";(O5)ѼO6O4O5:O6O6:"IN TE VULLEN BIJ 16b2")"F ";(O6):"16e UITGAVEN VOOR STUDIE OF OPLEIDING VOOR EEN BEROEP VAN U EN/OF UW PARTNER<O7::"WERKELIJKE UITGAVEN")"F";:O7mO8::"VERGOEDINGEN WERKGEVER")"F";:O8O7O8ڑ:"NIET AFTREKBAAR BEDRAG")"F ";(O5)O9O7O8O5:O9O9 :"IN TE VULLEN BIJ 16e")"F ";(O9)L :"16f UITGAVEN VOOR GEZINSHULP EN KINDER- DAGVERBLIJF BIJ EEN GEZIN MET 1 OUDERz*Q1::"WERKELIJKE UITGAVEN")"F";:Q14Q2@M8:Q2\+Q2\+>Q1ڑ:"NIET AFTREKBAAR BEDRAG")"F ";Q2HQ3Q1Q2:Q3Q3RQ3E30Q3E30"\:"IN TE VULLEN BIJ 16f")"F ";Q35fK9O2O6O9Q3hp::"TOTAAL+INVULLEN BIJ 18 K")"F ";(K9)qzԄ:"17 PREMIEHEFFING VOLKSVERZEKERINGENՎ:"17a VRIJSTELLING O.A MOGELIJK VOOR":"-GEMOEDSBEZWAREN":"-BIJ EEN DIENSTBETREKKING IN HET BUITENLANDu՘:"17b VERMINDERING IS O.A MOGELIJK VOOR":"-ECHTPAREN MET MEER DAN F 9100,- PREMIE AOW/AWWբ"-VOOR DE GEHUWDE VROUW MET EEN MAN OUDER DAN 65 JAARլն:"18 BEREKENING VAN UW BELASTBAAR INKOMEN:"A INKOMSTEN UIT ARBEID")"F ";(A9)I:"B PERIODIEKE UITKERINGEN")"F ";(B9):"C INKOMSTEN UIT":" ONDERVERHURING")"F ";(C9):"D RENTE")"F ";(D9):"E OVERIGE PERIODIEKE":" UITKERINGEN")"F ";(E9)SU(A9B9C9D9E9):)"subtotaal")"F ";SUS:"F INKOMSTEN UIT EIGEN WONING")"F ";(F9)`X9SUF9:)"ONZUIVER INKOMEN")"F ";(X9)$.::"G PREMIES VOLKSVERZEKERINGEN")"F ";(G9)8:"H RENTE VAN SCHULDEN")"F ";(H9)%B:"I RENTEVRIJSTELLING")"F ";(J9)FL:"J GIFTEN")"F ";(I9)tV:"K BUITENGEWONE LASTEN")"F ";(K9)`Q4G9H9I9J9K9j:)"subtotaal")"F ";(Q4)tQ5X9Q4~:)"INKOMEN")"F ";(Q5)وQ6::"L TE VERREKENEN VERLIEZEN")"F";:Q6JْI3Q5Q6::)"BELASTBAAR INKOMEN")"F ";(I3)Xٜ:٦,:"druk SPATIEBALK in":"F1 + return keuzescherm / F2 screendumpٰZ$:Z$""ٺ():():̍,e:" 1-OPNIEUW STARTEN":" 2-VRAAG 3":" 3-VRAAG 4":" 4-VRAAG 5":" 5-VRAAG 7":" 6-VRAAG 8":" 7-VRAAG 9":" 8-VRAAG 10":" 9-VRAAG 11""10-VRAAG 12":"11-VRAAG 13":"12-VRAAG 14":"13-VRAAG 15 ":"14-VRAAG 16":"15-VRAAG 18:"KEUZE";KEKE,, ,,,(,2,<,F,P,Z,d,n,x,"+4 = F O(P X2 a< jFh sP4 |Z d njxۂیR:T':C(()R(T):(C);::::")"F ";(G9):"ONTVANGEN AOW/A Edh0,: ,( ) GP::():():̍,:AZ:A9:B9:C9:D9:E9:F9:G9:H9:I9:J9:K9:X9:T1:T2:T3O:T4(RT52\Ҁ<"ACCOORD";A$:A$"J"Z F"WELKE TARIEFGROEP-INDELING WENST U: (1,2,3,4)";T1PT1T1F3ZA$"":B$"":C$""|dVNVڅ"HEEFT UW PARTNER EEN LAGER ARBEIDSINKOMEN DAN UZELF";AI$ nVNVAI$"J"ڟ:"I.V.M. BEREKENING VOETOVERHEVELING BIJ TWEEVERDIENERS, STARTEN WE NOGMAALS; VOEREERST DE GEGEVENS VAN PARTNER IN":NVYxNVGG$"J"IN$"J"ڑ"GOEDE RAAD: vul ieder een eigen biljet in":₂NVAZ$"J"ڑ:"VULT UW ECHTGENOOT ZELF EEN BILJET IN":"let op! teruggave alleen mogelijk indien eigen biljet wordt ingevuld";VU$"HEEFT U EEN BAAN ";A$wT1ڑ"ER IS GEEN BELASTINGVRIJE SOM EN/0F TOESLAGEN. VUL ALLEEN DE IN NEDERLAND BE- LASTBARE BEDRAGEN IN.":A$"J"T2⃪T1ڋA$"J"څ"HEEFT U MINSTENS 1 KIND, DAT OP 31-12-86 JONGER WAS DAN 12 JAAR";B$B$"J"ڋA$"J"T3"YT1ڋA$"J"څ"HEEFT U EEN THUISWONEND KIND DAT OP 31-12-86 JONGER WAS DAN 13 JAAR";C$T1ڋA$"J"ڋC$"J"څ"HEEFT U EEN THUISWONEND KIND WAARVAN HET OUDSTE KIND JONGER IS DAN 27 JAAR EN ONDERHOUDT U DEZE IN BELANGRIJKE MATE";D$,D$"J"څ"WAT IS UW TOTALE JAARLIJKSE ARBEIDSINKOMEN";VVOD$"J"T4VV:T4T4UT2ڑ"U HEEFT RECHT OP ARBEIDSTOESLAG":T3ڑ"EN OOK OP AANVULLENDE ARBEIDSTOESLAGT4ڑ"EN OP AANVULLENDE ALLEENSTAANDE-OUDER-TOESLAGT2T0T2 T3T0T2T3T4T0T2T4A":"TOTAAL VAN TOESLAG F";T0,VT5ڑ:"BEDRAG VOETOVERHEVELING PARTNER:F";T5;" KOMT BIJ UW BELASTINGVRIJE SOM6R@T5RІJT1(T1):A$"":B$"":C$""TT1^,h,r,|^T12:hT1+:rT1d::#|T14,5ET1T1[I4T1T2T3T4T5xT2T3T4I3I4T1I3T5I5I3I4I5Z:&I5&Z@I5:&I5&ڋI5pCZ(I5&)@%:&I5pCڋI5}Z(I5pC)@2m :&DI5}ڋI5EE1Z(I5})@B :&yI5EE1ڋI5EfPZ(I5EE1)@R5:&I5EfPڋI5EqpZ(I5EfP)@a_:&I5EqpڋI5F%Z(I5Eqp)@gE@w:&I5F%ڋI5F#$xZ(I5Fw)@pE`rp:&9Z(I5F#$x)@rFwE&Z(Z)q0:"BELASTBAAR INKOMEN 1987: F";(I3):"BELASTINGVRIJE SOM: F";I4D"BELASTBARE SOM: F";(I5)NI3I4T2T3I5(I3(dI4U))PXI5VT5(I5)::"U KUNT OVERHEVELEN NAAR DE BELASTINGVRIJE VOET PARTNER"<)"F ";(I5)b:"VERSCHULDIGDE INKOMSTENBELASTING"<)"F ";Zl:vNVڍ튊NVڟ:"OOK DE GEGEVENS VAN UZELF";A$:NV:A$"J"::"NOGMAALS";Q$:NV,Q$"J":4:::"VOORHEFFINGEN EN VOORLOPIGE TERUGGAAF VOETOVERHEVELING 1987::"BEDRAG INGEHOUDEN LOONBELASTING"<)"F ";Z2:"BEDRAG INKOMSTENBELASTING BETAALD VIA VOORLOPIGE AANSLAG"<)"F";:Z1T12:"HOEVEEL IS VOORLOPIG TERUGGEKREGEN AAN LOONBELASTING I.V.M. AAN-":"VRAAG VOETOVERHEVELING IN 1987"<)"F";:Z3ZZZ1Z2Z3  Zڑ::"U KRIJGT TERUG AAN INKOMSTENBELASTING 1987 F";(Z)A*ZZڑ:"EEN T-BILJET AANVRAGEN VOOR BELASTINGTERUGGAVE HEEFT GEEN ZIN4Zڑ:"KNIP HET HOEKJE VAN HET E-BILJET AF":"KRIJGT U GEEN BILJET TOEGESTUURD? VRAAG DAN EEN T-BILJET AAN!>Zڑ::"NOG TE BETALEN AAN INKOMSTENBELASTING 1987 F";(Z)XHZ Zڑ"HET TE BETALEN BEDRAG AAN INKOMSTENBELASTING AD F ";Z;"WORDT NIET GEHEVEN^Rz\"TARIEFGROEP INDELING:fA$"":B$"":C$""p"WOONT U IN NEDERLAND ";A$zA$"N"څ"BELGIE, SURINAME OF DE NEDERLANDSE ANTILLEN";A$DA$"N"څ"WORDT BIJNA U GEHELE WERELDINKOMEN (90%OF MEER) IN NEDERLAND BELAST";A$[A$"N"T1:.{"WAS U IN 1987 GEHUWD";AZ$ɏAZ$"J"څ"BENT U IN 1987 GETROUWD OF DUURZAAM GESCHEIDEN GAAN WONEN";GG$AZ$"J"څ"WAS U IN 1987 TEN MINSTE 6 MND GEHUWD";AA$ɐAZ$"N"څ"TEN MINSTE 6 MND SAMENWONEND MET EEN ONGEHUWDE BELASTINGPLICHTIGE, DIE OP 31-12-1986 18 JAAR OF OUDER IS EN VOOR NIET MEER DAN 50% DOOR ZIJN/HAAR OUDERS WORDT ONDERHOUDEN";SA$AA$"J"SA$"J"څ"HAD UW PARTNER IN 1987 EEN INKOMEN";IN$:IN$"N"T1:.FA$"J"SA$"J"ڋIN$"J"T1:V:."HEEFT U RECHT OP KINDERBIJSLAG OF VERVANGENDE BUITENGEWONE LASTEN AFTREK";A$A$"J"څ"VOERT U EEN VOOR U ALLEEN EEN HUISHOUDEN";B$:B$"J"T1:.sA$"J"ڋB$"N"څ"VOERT U EEN HUISHOUDEN UITSLUITEND MET KINDEREN DIE OP 31-12-86 ALLEN JONGER ZIJN DAN 27 JAAR";C$:C$"J"T1:.A$"J"ڋB$"N"ڋC$"N"ڍB:."WAS U OP 31-12-86 27 JAAR OF OUDER ";A$:A$"J"څ"VOERT U VOOR U ALLEEN EEN HUISHOUDEN";B$A$"J"ڋB$"J"T1:.A$"J"ڋB$"N"ڑ"VOERT U EEN HUISHOUDEN UITSLUITEND MET KINDEREN DIE OP 31-12-86 ALLEN JONGER ZIJN DAN 27 JAAR";:C$:C$"J"T1:.͓A$"J"ڋB$"N"ڋC$"N"ڍB:.֓$T1.:"U BENT INGEDEELD IN TARIEFGROEP";T18BA$"":B$"":C$""L"ONGEHUWDE HULPBEHOEVENDE BEJAARDEN EN GEHANDICAPTENEN HUN NAASTE FAMILIELEDEN DIE HEN VERZORGEN, KUNNEN ONDER BEPAALDE VOORWAARDEN VOOR INDELING IN TARIEF- GROEP 2 OF 4 IN AANMERKING KOMEN0V"ZIJN ALLE ANDEREN WAARMEE U DUURZAAM EEN HUISHOUDEN VOERT GEHUWD";A$F`A$"J"T1:j"HEEFT UW HUISGENOOT EEN INKOMEN IN 1987";A$:A$"J"T1:V: ڕt"LEEFTIJD OP 31-12-86 VAN UW HUISGENOOT DIE GEEN INKOMEN HEEFT";L~LT1:LT1:}LڋLڑ:"WORDT DEZE PERSOON GROTENDEELS OP KOSTEN VAN ZIJN/HAAR (PLEEG)OUDERS ONDERHOUDEN";A$:A$"J"T1:T1:"TER BEREKENENING AOW/AWW PREMIE:"BENT U TUSSEN 15 EN 65 JAAR";A$A$"J"<A$"N"ڑ:"U HOEFT GEEN AOW/AWW PREMIE TE BETALEN":NV:i:"BEREKENING PREMIE-INKOMEN + AOW/AWW:AZ$"N"ڑ:"BENT U EEN ONGEHUWDE VROUW OUDER DAN 45 JAAR (PER 31-12-1986) EN HEEFT U GEEN RECHT OP KINDERBIJSLAG";OV$U:"ALS PERSOONLIJKE VERPLICHTING AFGETROKKEN PREMIES AOW/AWW":"(niet de andere premies!)"<)"F ";(G9):"ONTVANGEN AOW EN AWW UITKERINGEN"<)"F";:P3 MI3G9(G4(G4 B&@0)):MEcuMEdU:"PREMIE-INKOMEN (maximaal f 64.550 )"<)"F ";(M)MMWA@M:A@@M8(OV$"J"AA(@ @A)I2A A }<:"VERSCHULDIGDE PREMIE AOW/AWW"<)"F ";(A)FAP2ڑ:"TE BETALEN PREMIE IS GELIJK AAN BETAALDE PREMIEƙPHP2AZAP2ڑ:"TEVEEL BETAALDE AOW/AWW PREMIE"<)"F ";(H)>dHHڑ:"F 140,- OF LAGER WORDT NIET TERUGBETAALDQnFA1(AP2)mxOV$"J"F@p(AP2)~F!F!Fڑ:"VERSCHULDIGDE PREMIES AWBZ, AKW EN AWW"<)"F "(F)AP2ڑ:"TOTAAL NOG VERSCHULDIGDE PREMIES"<)"F ";(FAP2) +:"VR.3 INKOMSTEN UIT ARBEIDNG9:A3:A4:A6:P2:Z2:NVVU$"N"ڑ"Antwoorden op vraag 3 en 4 invullen bij 6c en 6d op het biljet van uw echtgenootBlijkt uit het programma dat u in aanmerking komt voor teruggave, vul dan zelf een biljet in.IP4::"3a INGEHOUDEN PREMIES AOW/AWW"<)"F";:P4Z4::"3a INGEHOUDEN LOONBELASTING"<)"F";:Z4ɜA2::"3a LOON,PENSIOEN,AOW/AWW, SOCIALE UITKERINGEN,LIJRENTE etc.""zonder aftrek loonbelasting en premies"<)"F";:A2"A3A3A2:Z2Z2Z4:P2P2P4C:"NOG MEER OPTELPOSTEN";A$\A$"J"N1N1::"TOTAAL 3a AOW/AWW"<)"F ";P2:"TOTAAL 3a LOONBELASTING"<)"F ";Z2֝":"TOTAAL 3a LOON etc."<)"F ";A3ߝ,.6:"HAD U IN 1987 EEN PERSONENAUTO VAN UW WERKGEVER TER BESCHIKKING";:AU$A@ AU$"N"ډwJ:"GEBRUIKT U DE AUTO VOOR WOON-WERKVERKEER";WW$ĞT:"REED U PRIVE MINDER DAN 2000 KM (OF 10% TOT. AANTAL GEREDEN KM)";PR$^WK:PR$"J"ڑ:"VUL DE WERKELIJKE KOSTEN IN"<)"F";:WK4hW1::"CATALOGUS WAARDE AUTO"<)"F ";:W1ZrW2::"AANTAL MAANDEN "<):W2|W3::"EIGEN BIJDRAGE"<)"F ";:W3W4O:W4(((W1)(W2 ))W3):W4W4ßWKW4WK:"BELASTBAAR BEDRAG VOOR PRIVEGEBRUIK AUTO"<)"F ";W4 A3A3W4-:"3a1 + 3a3 ="<)"F ";A36f:"Vr.3b ANDERE BRUTO INKOMSTEN UIT ARBEID"lesgeven,schrijven van boeken, verrichten van karweitjes"<)"F";:A4Ӡ:"3a + 3b ="<)"F ";A3A4ܠ :"Vr.3c AFTREKBARE REISKOSTEN WONING-WERKJ:"KOMT U VOOR AFTREK WOON-WERKVERKEER IN AANMERKING";A$ZA$"N"šAU$"J"WW$"J"W3ڑ:"U MAG ALLEEN HET VASTE BEDRAG AD F200 VOOR REISKOSTEN AFTREKKEN":A5:!AU$"J"W3ڑ:"DOOR UW EIGEN BIJDRAGE MAG U REISKOSTEN VOLGENS DE TABEL AFTREKKEN:"REIST U DOORGAANS 1 OF MEER DAGEN PER WEEK":"het gehele afgelopen jaar en met dezelfde afstand";A$&A$"N"ڑ:"ZIE VOOR BEREKENING AFTREKBAAR BEDRAG TOELICHTING AANGIFTEBILJET"::"VUL AFTREKBAAR BEDRAG IN"<)"F";:A5:k0:"HOEVEEL DAGEN REIST U PER WEEK (halve dagen afgerond naar boven)";RD:RDRD0z:RDRDD:"REIST U BINNEN 1 VAN ONDERSTAANDE GEBIEDEN֣N:"AMSTERDAM,DIEMEN OF DUIVENDRECHT]X"ROTTERDAM(BEHALVE HOEK VAN HOLLAND EN WESTELIJK DE OUDE MAAS),SCHIEDAM, VLAAR- DINGEN,RHOON,POORTUGAAL EN CAPELLE AAN DE IJSSELȤb"DEN HAAG, RIJSWIJK, VOORBURG, EINDHOVEN EN HEEFT U IN DEZE GEBIEDEN GEEN 3 STER-ABONNEMENT NODIG";A$lA$"J"A5:A$"J"v:"AFSTAND WOON/WERKGEBIED IN KM (enkele reis)";K10K1 A52HK1 K1A5aK1K1A5c|K1K1A5CPuK1K1(A5K1(K12A5/K12A5WͥA5RDA5 :"1 KOSTEN VAN REIZEN TUSSEN WONING EN WERK"<)"F ";A5:"2 ONTVANGEN BELASTINGVRIJE VERGOEDING VOOR UW REISKOSTEN":"(indien de vergoeding ruimschoots de aftrekbare kosten":"overtreft zie toelichting)"<)"F";:A6˦A7A5A6:A7A7:"3 AFTREKBAAR BEDRAG (MIN.F200)"<)"F ";A7\:"Vr.3d ANDERE AFTREKBARE KOSTEN (uit hoofde tegenwoordige of vroegere arbeid) :"BESTAAT UW TOT. INKOMEN UIT TEGENWOORDIGE ARBEID";:A$A$"J"TAA3:* TA::"WAT IS HET TOT. INKOMEN UIT TEGENWOORDIGE ARBEID"<)"F";:TA *A8?@TA4A8\.>A8 A8 ?HA8A8R:"4% REGEL VAN DEZE INKOMSTEN (MIN f200 / MAX f800)"<)"F ";A8ɨ\A$"N"K2ڑ:"HEEFT U ALLEEN INKOMEN UIT VROEGERE ARBEID";B$fB$"J"A8::"VAST BEDRAG VOOR AFTREK"<)"F ";A8Bp:"WERKELIJKE KOSTEN HOGER DAN 4%REGEL OF VAST BEDRAG";A$qzA$"J"ڑ:"VUL HET BEDRAG IN"<)"F";:A8:"3c + 3d ="<)"F ";A7A8A9A3A4A8A7M5:M5(A9)멢:"TOTAAL:3-INVULLEN BIJ 18 A"<)"F ";(A9):"Vr.4 PERIODIEKE UITKERINGENRB2::"4a TERMIJNEN VAN LIJFRENTE ETC."<)"F";:B2B3::"4b PERIODIEKE UITKERINGEN TER ZAKE VAN STUDIE"<)"F";:B3:"4a + 4b ="<)"F ";B2B3B4::"4c AF: AFTREKBARE KOSTEN"<)"F";:B4 B9:B9B2B3B4:M6(B9)@:"TOTAAL:4-INVULLEN BIJ 18 B"<)"F ";(B9)Id :AZ$"J"IN$"J"  :"U BEHOEFT DE VRAGEN 5 T/M 7 NIET IN TE VULLEN"::n  NVVU$"N" $ :"Vr. 5 BEREKENING VAN UW PERSOONLIJK ARBEIDSINKOMEN. GG$"J"V 8 M2A9B9VB :"UW PERSOONLIJK ARBEIDSINKOMEN IS"<)"F ";M2:NVM3M2_L  V M1::"HOEVEEL MAANDEN BENT U GEHUWD GEWEEST";M1` M2(M1(A9B9)) :NVM3M2 j ::"PERSOONLIJK ARBEIDSINKOMEN OVER DE HUWELIJKSE PERIODE"<)"F ";(M2)~t :"ALS U HET HOOGSTE PERSOONLIJKE ARBEIDSINKOMEN HEBT, MOET U DE NIET-PERSOON-LIJKEINKOMSTEN ALS VOLGT OPGEVEN:~ :"over de niet-huwelijkse periode DE NIET-PERSOONLIJKE INKOMSTEN EN AFTREKPOSTEN VAN UZELF, :"over de huwelijkse periode IDEM, ECHTER VAN U ZELF EN UW ECHTGENOOT M3M2ڟ:"U HEEFT NIET HET HOOGSTE ARBEIDSINKOMEN. HET PROGRAMMA WORDT OPNIEUW GESTART":::Ů NVM3M2څ"BENT U JONGER";A$:A$"N" 6 NVAI$"N"ڑ:"VUL OP HET BILJET HET PERSOONLIJK ARBEIDSINKOMEN VAN UW ECHTGENOOT (VRAAG 6) IN"::n U VU$"J"GG$"J"ڍ: ^ z "TOTAAL 6c"<)"F ";M5 :"TOTAAL 6d "<)"F ";M6 M9M5M6::"6e PERSOONLIJK ARBEIDSINKOMEN ECHTGENOOT"<)"F ";(M9) I3M9:PAM9:Q5  NV7 :"Vr.7 PREMIES VOLKSVERZEKERINGEN] :"7a PREMIES AOW/AWW"<)"F";P2 AB::"7b PREMIES AWBZ,AAW EN AKW VERHAALD OP UW WERKGEVER"<)"F";:AB AC::"7c VORIG JAAR OP AANSLAG BETAALDE PREMIES"<)"F";:AC( :"TOTAAL"<)"F ";P2ABACO2 AD::"7d VORIG JAAR TERUGONTVANGEN PREMIES"<)"F";:ADb< G9P2ABACADF :"TOTAAL:7-INVULLEN BIJ 18 G"<)"F ";G9P :"VUL ALLEEN NOG VRAAG 17 IN (+ ECHTGENOOT DIENT EIGEN BILJET IN TE VULLEN)":X9A9B9Z d )n :"Vr.8 INKOMSTEN UIT ONDERVERHURINGUx C2::"a BRUTO INKOMSTEN"<)"F";:C2 C3::"b AF: AFTREKBARE KOSTEN"<)"F";:C3 C9:C9C2C3̲ :"TOTAAL:8-INVULLEN BIJ 18 C"<)"F ";(C9)ղ ޲ D5 :"Vr.9 RENTEF :"TIP: VUL HIER NEGATIEVE RENTE IVM DOORLOPENDE LENINGEN IN i.p.v bij vraag 13w D4:,:"RENTE SPAARTEGOEDEN"<)"F";:D4 D5D5D4 :"NOG MEER RENTEBEDRAGEN";A$ A$"J" D6::"RENTE SPAARBEWIJZEN"<)"F";:D6) D7::"RENTE SPAARTEGOEDEN MINDERJARIGE KINDEREN"<)"F";:D7M :"9a + 9b ="<)"F ";D5D6D7} D8::"AF: AFTREKBARE KOSTEN"<)"F";:D8 D9:D9D5D6D7D8ȴ" :"TOTAAL:9-INVULLEN BIJ 18 D"<)"F ";(D9)Ѵ, 6 :"VRAAG 10: OVERIGE PERIODIEKE UITKERINGENb@ E5::"UITKERINGEN VOOR LEVENSONDERHOUD ONTVANGEN VAN VROEGERE":"ECHTGENOOT"<)"F";:E5J E6::"IDEM VAN ECHTGENOOT VAN WIE U DUURZAAM GESCHEIDEN LEEFT"<)"F";:E6T E7::"PERIODIEKE BIJDRAGEN VAN DE OVERHEID VOOR DE EIGEN WONING"<)"F";:E7@^ E8::"ANDERE PERIODIEKE UITKERINGEN"<)"F";:E8Xh E9:E9E5E6E7E8r :"TOTAAL:10-INVULLEN BIJ 18 E"<)"F ";(E9)| ȶ F3:F4::"Vr.11 INKOMSTEN UIT EIGEN WONING :"HAD U/UW ECHTGENOOT AFGELOPEN JAAR (EEN) EIGEN WONING(EN)";:A$:A$"N"4 d :"WOONT U ZELF IN DE WONING (GEEN VAKANTIEWONING)";A$:A$"N" :"VRIJE VERKOOPWAARDE WONING"<)"F";:F0 F1@`F0  ݷ :"VRIJE VERKOOPWAARDE WONING"<)"F";:F0! :"HOEVEEL MAANDEN WAS U BEWONER cq EIGENAAR VAN DE WONING";BBL A$"J"ڑ:"FISCALE WAARDE"<)"F ";F1} A$"N"ڑ:"FISCALE WAARDE"<)"F ";F0:F1F0 F1:F2 F1:F10uF2Ƹ F10uF1E`F2 F1E`F1EF2  F1EF1FF2# F1FF1FF2B& F1FF1F$F2$ a0 F1F$F1F0F20 : F1F0F1F6F2<D F1F6F1FEF2HN F1FEF1FTF2ӹX F1FTF2lb A$"J"Q9F2l F2(BBF2) v F3F3F2, :"HEEFT U NOG MEER WONING(EN)";B$D B$"J"A$"N": s :"d HUURWAARDE VOLGENS TABEL"<)"F ";F3 :"BEDRAG VAN DE SCHULDEN"<)"F";:Z6 Z7?Z6:Z7Z7 :"MAXIMUM AFTREKBAAR VOOR AFSLUITPROVISIE"<)"F ";Z7P :"VOORUITBETAALDE RENTE EN KOSTEN VAN LENINGEN ZIJN TOT MAX. f 4000 AFTREKBAAR"Y  Z8::"RENTE VAN SCHULDEN EN KOSTEN VAN HYP. LENINGEN"<)"F";:Z8 F4F4Z8ѻ :"NOG MEER RENTE/KOSTEN";A$ A$"J"  :"e TOTAAL RENTE EN KOSTEN"<)"F ";F43 F5::"f ERFPACHT"<)"F";:F5Y F6::"g ONDERHOUD"<)"F";:F6n F8:F8F4F5F6 :"11 e + f + g ="<)"F ";F8* F9:F9F8F3:F9F9(F9)4 ::"TOTAAL 11-INVULLEN BIJ 18F"<)"F ";(F9)> H :"Vr.12 PREMIES VOLKSVERZEKERINGENIR :"a PREMIES AOW/AWW VOLGENS 3a1"<)"F ";P2\ G3::"b VERHAALDE PREMIES AWBZ, AAW EN AKW m.b.t. 3a1"<)"F";:G3˽f G4::"c OP AANSLAG BETAALDE PREMIES"<)"F";:G4p G5:G5P2G3G4z :"12a + b + c ="<)"F ";G53 :"d AF:TERUGONTVANGEN PREMIES"<)"F";:G6E G9:G9G5G6y :"TOTAAL:12-INVULLEN BIJ 18 G"<)"F ";(G9)  H9::"Vr.13 RENTE VAN SCHULDEN޾ H8::"a RENTE/KOSTEN VAN LENINGEN"<)"F";:H8 H9H9H8 :"NOG MEER RENTE/KOSTEN";A$ A$"J" V :"b BEDRAG VAN DE SCHULDEN OP 31 DEC."<)"F";:H7 :"TOTAAL:13-INVULLEN BIJ 18 H"<)"F ";(H9)  :"Vr.14 RENTEVRIJSTELLINGȿJ5:J5D5D6D7:"a GENOTEN RENTE"<)"F ";J5J60$:"b AF:BETAALDE RENTE EN KOSTEN LENINGEN"<)"F ";H9S.J9:J9J5H9:J9J9:td8AZ$"N"LBAZ$"J"ڑ:"HEEFT U HET HOOGST PERSOONLIJKE ARBEIDSINKOMEN";A$:A$"J"`LJ9J9Vj`J9xJ9xBjKN:KIO:D7ڑ:"AANTAL MINDERJARIGE KINDEREN";KI:(KI)(KID7)KNKI:KNKID7t:"14c BEDRAG VAN DE VRIJSTELLING INVULLEN BIJ 18 I"<)"F ";(J9KN)~:"Vr.15 GIFTENI6::"a GIFTEN VIA TERMIJNEN VAN LIJFRENTE"<)"F";:I6œI7::"b OVERIGE GIFTEN"<)"F";:I74¦XX:XXA9B9C9D9E9F9Q°I8?XX:I8xI8xº:"c AF:1% VAN UW ONZUIVER INKOMEN.(min.f 120)"<)"F ";(I8)V6I7I8:V7@XXV6ڑ:"OVERIGE GIFTEN TE GERING VOOR AFTREKV6V7V6V7V6V6F:"15 b - c = (MAX.10% VAN UW ONZUIVER INKOMEN)"<)"F ";(V6)cI9:I9I6V6:I9I9:"VRAAG:15-INVULLEN BIJ 18 J"<)"F ";(I9) :"Vr.16 BUITENGEWONE LASTEN:"16a ALS U HET AFGELOPEN JAAR MEER DAN 6 MND ALS ONGEHUWDE EEN GEZAMENLIJKE HUIS-HOUDING VOERDE MET EEN ANDERE ONGEHUWDE VAN 18 JAAR EN OUDER MAG U DE BUITENGE- WONE LASTEN SAMENVOEGEN. (:"b IDEM, ECHTER ALS U AANSLUITEND GEHUWD BENT, MAG U DE TIJD WAARIN U SAMENWOONDEIN AANMERKING NEMEN ALS TIJD WAARIN U GEHUWD WAS.2 <<:"16c UITGAVEN VOOR ZIEKTE etc.FK0::"ZIEKENFONDSPREMIE WERKNEMERSDEEL OF":"PREMIE ZIEKTEKOSTENVERZEKERING"<)"F";:K0PK1::"WERKGEVERSDEEL ZF"<)"F";:K1ZK2::"MEDICIJNEN, EIGEN BIJDRAGE, HUISAPOTHEEK etc."<)"F";:K2PdK3::"DOKTERS, TANDARTS OF ZIEKENHUISKOSTEN"<)"F";:K3nK4::"DIEETKOSTEN, KOSTEN KRAAMHULP, BRIL etc."<)"F";:K4xK5::"EXTRA KOSTEN KLEDING EN BEDDEGOED"<)"F";:K5ǂK6::"CONTRIBUTIE KRUISVERENIGING"<)"F";:K6unjK7::"OVERIGE KOSTEN":"bijv. adoptiekosten, kosten igv overlijden, extra":"vervoerskosten"<)"F";:K7~ǖ Ƞ::"1-IS EEN PARTNER JONGER DAN 65 JAAR, ARBEIDSONGESCHIKT EN VERDIENT U MINDER DAN 55% DAN GEZONDE MENSEN IN DEZELFDE OMSTANDIGHEDEN.Ȫ:"2-IDEM VOOR TWEE PARTNERSwȴ:"3-IS EEN PARTNER GEDURENDE HET GEHELE AFGELOPEN JAAR 65 OF OUDERȾ:"4-IDEM VOOR TWEE PARTNERS:"5-IS DE ENE PARTNER 65 JAAR OF OUDER EN DE ANDER ARBEIDSONGESCHIKT$:"6-BENT U/UW PARTNER HET AFGELOPEN JAAR 65 JAAR GEWORDENF:"7-IDEM VOOR TWEE PARTNERSq:"8-GEEN VAN ALLEN IS VAN TOEPASSING:"UW KEUZE";A$A$"1"K87A$"2"K8nA$"3"K87A$"4"K8)"A$"5"K8n,A$"6"ڑ:"HOEVEEL MAANDEN WAS U IN 1987 65 JAAR";L0f6A$"7"ڑ:"HOEVEEL MAANDEN WAREN U+UW PARTNER IN 1987 65 JAAR";L1@A$"6"K8((L07) )JA$"7"K8((L1)))TA$"8"K8^:"AFTREK WEGENS ARBEIDSONGESCHIKTHEID EN/OF OUDERDOM"<)"F ";K8#hK9:K9K0K1K2K3K4K5K6K7K8dr:"TOTAAL UITGAVEN TER ZAKE VAN ZIEKTE etc."<)"F ";(K9)|M8A9B9C9D9E9F9M9ˆM9ː:"UW ONZUIVER INKOMEN"<)"F ";(A9B9C9D9E9F9)̚:"PERSOONLIJK ARBEIDSINKOMEN VAN ECHTGENOOT"<)"F ";M9&̤:"TOTAAL"<)"F ";(M8)̮SA$"J"ڑ:"INDIEN U UITGAVEN VAN UW PARTNER BIJ UW AANGIFTE HEEFT OPGETELD,":"VUL DAN HET ARBEIDSINKOMEN (OVER DE BETROKKEN MAANDEN cq JAAR)":"HIER IN"<)"F";:MM̸M8M8MML3@M8L4(?0M8)L5L6/M8EHL6L3MM8EHM8FL6L4bM8FL6L5:"AF: DREMPEL BIJ ONZUIVER INKOMEN VAN F "M8"="<)"F ";(L6)L7K9L6L7ڑ:"UITGAVEN TE GERING VOOR AFTREK":&:"A 16c1 - 16c2 ="<)"F ";(L7)0_::"-HAD U IN 1987 VOOR MEER DAN 4 KINDEREN RECHT OP KINDERBIJSLAGD:"-OF VOOR MEER DAN 4 KINDEREN JONGER DAN 27 JAAR, RECHT OP AFTREK WEGENS BUITEN- GEWONE LASTEN4N:"-OF KWAMEN U/UW ECHTGENOOT DE AFGELOPEN 2 JAREN IN AANMERKING VOOR AFTREK BUI- TENGEWONE LASTEN";A$IXA$"J"O1APb:"-KWAMEN U/UW ECHTGENOOT DE AFGELOPEN 3 JAREN IN AANMERKING VOOR AFTREK BUITEN- GEWONE LASTEN";A$lA$"J"O1Av:"VERMENIGVULDIGINGSFACTOR"();O1 ЀO1O2O1L7:O2L7+ЊOO?0M8:OO OO sД(O2L7)OOO2L7OO::"MAX. VERSCHIL TUSSEN A EN B"<)"F "(OO)О:"INVULLEN BIJ 16c "<)"F ";(O2)Шв:"16d UITGAVEN VOOR LEVENSONDERHOUD=ѼO3::"1 VAN KINDEREN JONGER DAN 27 JAAR WAARVOOR U GEEN RECHT HEBT":" OP KINDERBIJSLAG"<)"F";:O3O4::"2 VAN KINDEREN VAN 27 JAAR EN OUDER EN OVERIGE NAASTE":" VERWANTEN"<)"F";:O4O5? M8:O5 O5 O4ڑ:"NIET AFTREKBAAR BEDRAG"<)"F ";(O5)O6O4O5:O6O66:"IN TE VULLEN BIJ 16b2"<)"F ";(O6)?:"16e UITGAVEN VOOR STUDIE OF OPLEIDING VOOR EEN BEROEP VAN U EN/OF UW PARTNER O7::"WERKELIJKE UITGAVEN"<)"F";:O7O8::"VERGOEDINGEN WERKGEVER"<)"F";:O8+ O7O8ڑ:"NIET AFTREKBAAR BEDRAG"<)"F ";(O5)F*O9O7O8O5:O9O9s4:"IN TE VULLEN BIJ 16e"<)"F ";(O9)|>H:"16f UITGAVEN VOOR GEZINSHULP EN KINDERDAGVERBLIJF BIJ EEN GEZIN MET 1 OUDERRQ1::"WERKELIJKE UITGAVEN"<)"F";:Q1\Q2@M8:Q2\+Q2\+NfQ1ڑ:"NIET AFTREKBAAR BEDRAG"<)"F ";Q2fpQ3Q1Q2:Q3Q3}zQ3E30Q3E30Ԅ:"IN TE VULLEN BIJ 16f"<)"F ";Q3ԎK9O2O6O9Q3Ԙ::"TOTAAL+INVULLEN BIJ 18 K"<)"F ";(K9)Ԣ!լ:"17 PREMIEHEFFING VOLKSVERZEKERINGENն:"17a VRIJSTELLING O.A MOGELIJK VOOR":"-GEMOEDSBEZWAREN":"-BIJ EEN DIENSTBETREKKING IN HET BUITENLAND:"17b VERMINDERING IS O.A MOGELIJK VOOR":"-ECHTPAREN MET MEER DAN F 9100,- PREMIE AOW/AWW+"-VOOR DE GEHUWDE VROUW MET EEN MAN OUDER DAN 65 JAAR4d:"18 BEREKENING VAN UW BELASTBAAR INKOMEN:"A INKOMSTEN UIT ARBEID"<)"F ";(A9)"B PERIODIEKE UITKERINGEN"<)"F ";(B9)"C INKOMSTEN UIT ONDERVERHURING"<)"F ";(C9)"D RENTE"<)"F ";(D9)L"E OVERIGE PERIODIEKE UITKERINGEN"<)"F ";(E9)fSU(A9B9C9D9E9)$()"subtotaal"<)"F ";SU."F INKOMSTEN UIT EIGEN WONING"<)"F ";(F9)8X9SUF9B()"ONZUIVER INKOMEN"<)"F ";(X9)$L"G PREMIES VOLKSVERZEKERINGEN"()"F ";(G9)OV"H RENTE VAN SCHULDEN"()"F ";(H9)y`"I RENTEVRIJSTELLING"()"F ";(J9)j"J GIFTEN"()"F ";(I9)t"K BUITENGEWONE LASTEN"()"F ";(K9)~Q4G9H9I9J9K9؈()"subtotaal"<)"F ";(Q4) ْQ5X9Q4-ٜ()"INKOMEN"<)"F ";(Q5)_٦Q6:"L TE VERREKENEN VERLIEZEN"<)"F";:Q6lٰI3Q5Q6ٺ()"BELASTBAAR INKOMEN"<)"F ";(I3):,:"druk SPATIEBALK in":"F1 + return voor keuzescherm / F2 voor screendumpZ$:Z$""*():():̍,0:" 1-OPNIEUW STARTEN":" 2-VRAAG 3":" 3-VRAAG 4":" 4-VRAAG 5":" 5-VRAAG 7":" 6-VRAAG 8":" 7-VRAAG 9":" 8-VRAAG 10":" 9-VRAAG 11"10-VRAAG 12":"11-VRAAG 13":"12-VRAAG 14":"13-VRAAG 15 ":"14-VRAAG 16":"15-VRAAG 180 :"UW KEUZE";KEtKE,(,2,<,F,P,Z,d,n,x,,,,,}(2<$ F Pn Z d6 n xH ۂ ی ۖ۠ܪVR:6ܴR:TO:C(()RPT):(C);:::::" 7-VRAAG 9":" 8-VRAAG 10":" 9-VRAAG 11""10-VRAAG 12":"11-VRAAG 13":"12-VRAAG 14":"13-VRAAG 15 ":"14-VRAAG 16":"15-VRAAG 18:"KEUZE";KEKE,, ,,,(,2,<,F,P,Z,d,n,x,"+4 = F O(P X2 a< jFh sP4 |Z d njxۂیR:T':C(()R(T):(C);::::")"F ";(G9):"ONTVANGEN AOW/A :PT1I$T1ڎ@(T1(T1):T2(I)T1[2T5:T3T2:T4T3T1݀<P(T3,SO)P(T4,SO)ڤNA$(T3),NA$(T4):P(T3,),P(T4,):P(T3,),P(T4,):P(T3,),P(T4,):P(T3,),P(T4,):P(T3,),P(T4,):T5F:T52:P: :::P,T:I,J,N,Z0Z( ):()KdN()():N,:nY:N()Y ()Y :N,:::()xN :N,""::K1:K2:K1,K2ρ:P:Edh0,: ,( ) ,:"** SCHAATS-STANDEN **",:"copyright Sunshine software"x, :"LET OP ==> ALLE TIJDEN MOETEN ZONDER PUNTEN OF SPATIES INGETOETST WORDEN":::ЂNA$(*),P(*,),AF$(),ST$( ),RE( ,),ST( ),SA(),SM():R:K1,K2::̍D:,"KLEURINST":():̕? ,:"TOETS HET AANTAL TE VERRIJDEN AFSTANDEN IN (max 4)"[:KK:RNKAF$()" 500 M.":AF$()" 1000 M.":AF$()" 1500 M.̓AF$()" 3000 M.":AF$()" 5000 M.":AF$()"10000 M.:( )&B11110001:():,:"AFSTANDEN INVOEREN',:"==================D,:"1 = 500 METERa,:"2 = 1000 METER~,:"3 = 1500 METER",:"4 = 3000 METER,,:"5 = 5000 METERՄ6,:"6 = 10000 METER@NRN J, :"TE VERRIJDEN AFSTAND "N;:4TKKJ:ST$(N)AF$(K):ST(N)Ka^, N:"AFSTAND "N;ST$(N)::^:TEh:R,:"SCHAATSTOURNOOI VOOR:rR,:"1= MANNEN|R, :"2= VROUWENȅR, :"UW KEUZE ";酐:KK:KVR ::R,:"EEN OGENBLIK A.U.B.%BT$"RECORDS"".NEW4BT$AS#GN:I W#,RE(I,N)c::#:̍:,"F1=MENU":,"CONT"( ):():()::߆:( )&B00011111:():R,:"HOOFDMENUR,:"=========R,:"1= INVOEREN DEELNEMERS6R,:"2= STAND BIJWERKENYR,:"3= SNEL STAND OP SCHERM|R,:"4= TUSSEN- OF EINDSTAND&R, :"5= BIJHOUDEN RITSCHEMA"0R, :"6= SCHAATSRECORDS؇:R,:"7= CORRIGERENDR,:"8= DISKNR,:"9= STOPPENXR,:"UW KEUZE ";3b:KKX:l̕evK,,,,6,," , ,n:():,:"INVOEREN NAAM DEELNEMERZ*ڍ:,:"* MAXIMUM AANTAL DEELNEMERS BEREIKT *"::+:"NIEUWE DEELNEMER TOEVOEGEN (J/N)";P:A$"J":A$"N"ڎ:[:, :"TOETS AFSTANDSNUMMER IN ";:ROK:RORO:܉:()::,:"STANDEN BIJWERKEN":l<,:" N.R. ";:"#####.##";RE(ST(RO)VR,);:<,:" E.R. ";:"#####.##";RE(ST(RO)VR,);:<,:" W.R. ";:"#####.##";RE(ST(RO)VR,)KR$">":::"NUMMER DEELNEMER "; :DE(Q$):DEDEZ:::"VERREDEN TIJD "; :P(DE,RO)(Q$)*[4:"AFSTAND: "ST$(RO)" DEELNEMER: "NA$(DE)" TIJD: ";:"####.##";P(DE,RO)d|> ,:"AKKOORD J/N ";:ՋHA$"J"KR$"X"::P$(P(DE,RO)):R:A$"N"KR$" ":P(DE,RO):::>ERP(DE,RO)dRE(ST(RO)VR,)ڍ::"*** NIEUW WERELDRECORD ***":RE(ST(RO)VR,)P(DE,RO)d:N:{\(ST$(RO))(AF$())P(DE,)P(DE,)(P$)df(ST$(RO))(AF$())A1((P$,))<:A2((P$,,)):A3((P$,))d:A4(A1A2A3):P(DE,)P(DE,)A4ip(ST$(RO))(AF$())A1((P$,))<:A2((P$,,)):A3((P$,))d:A4(A1A2A3):P(DE,)P(DE,)A4z(ST$(RO))(AF$())A1((P$,))<:A2((P$,,)):A3((P$,))d:A4(A1A2A3):P(DE,)P(DE,)A4X(ST$(RO))(AF$())A1((P$,))<:A2((P$,,)):A3((P$,))d:A4(A1A2A3) :P(DE,)P(DE,)A4Ў(ST$(RO))(AF$())A1((P$,))<:A2((P$,,)):A3((P$,))d:A4(A1A2A3):P(DE,)P(DE,)A4᎘:H7ڎ:"NOG MEER STANDEN BIJWERKEN (J/N)";_:A$"J":A$"N"ڍ::"EEN OGENBLIK A.U.B.":SO:::mTI::R,:"TUSSEN- OF EINDSTANDR,:"GESORTEERD OP:"R,:"1= ";ST$()؏R,:"2= ";ST$()R,:"3= ";ST$()R,:"4= ";ST$()$R,:"5= PUNTENTELLING"MR, :"6= SORTERING NIET WIJZIGEN"cR,:"UW KEUZE"y:KK$KKR,:"EEN OGENBLIK A.U.B.".KSO:ɐ8KSO:ܐBKSO:LKSO:VKSO:`:R,:"UITVOER NAAR:"3jR,:"1= SCHERMGtR)"2= PRINTER_~, :"UW KEUZE";|:KZK:KZKZ~KZ,:h:()ڎۑ:V1::,:"OPGAVE TIJDSVERSCHIL OVER:", :"UW KEUZE";:TIK:TITI:#KZK:():,:"STAND NA:"ST$(RO):)ST$();:)ST$();:)ST$();:)ST$();:>)"TOTAAL";:TIڑF)"VERSCHIL"::T9:NZْP(N,RO)x:TIV1HON:V1 :T9T9"L$"#######.##":M$"######.###"S"##";T9;:" ";:"\ \";NA$(N);(P(N,)ڑ" ";:L$;(P(N,)d);2P(N,)ڑ" ";:L$;(P(N,)d);<P(N,)ڑ" ";:L$;(P(N,)d);FP(N,)ڑ" ";:L$;(P(N,)d);>PP(N,)ڑ" ";:M$;P(N,);TZTId::n}dP(N,)ڑ" ":M$;P(N,)nCU:CUڍ:::x::锂:(): , :"SCHAATS-TOERNOOI: "BE$" WORDT NU GEPRINT L$"#######.##":M$"######.###"+:)"STAND NA "ST$(RO)G)"=================:)ST$();:)ST$();:)ST$();:)ST$();:>)"TOTAAL";:TIڝF)"VERSCHIL"::T9:NZՕP(N,RO),:TIV1HON:V1:T9T9+"##";T9;:" ";:"\ \";NA$(N),[P(N,)ڝ" ";:L$;(P(N,)d);P(N,)ڝ" ";:L$;(P(N,)d);P(N,)ڝ" ";:L$;(P(N,)d);P(N,)ڝ" ";:L$;(P(N,)d);P(N,)ڝ" ";:M$;P(N,);,TI"::,U"P(N,)ڝ" ":M$;P(N,)],:p6:():@, :"TOETS AFSTANDSNUMMER IN ";:JROK:RORO@:TT:()::,:"BIJHOUDEN RITSCHEMA":!^KR$">":::"NUMMER 1e DEELNEMER ";Oh:DE(Q$):DEDEZ^::DLDEr::"NUMMER 2e DEELNEMER (geen = 0)";|:DE(Q$):DE:DEDEZr::^瘆:K2,K2:R,:"RITSCHEMA OVER ";ST$(RO)(P,())(ST$(RO))'SC/(ST$(RO))SC I(ST$(RO)) SCc(ST$(RO))SC}(ST$(RO))SC(ST$(RO))ڎϙSCM1:M2:SCM1,:M2,:M1:M2 ,:NA$(DL):DE: ),:NA$(DE)"NSC:N ,N:M1;"M."@N ,N :M1;"M."PM1M1:^DE0NSC:N ',N:():(,N:M2;"M."N <,N :M2;"M."š&M2M2:0C1:C2:H3:H4:H5:H6:SCM1:M2:SCM1,:M2,:M1:M2nDK1,K2:,:"TIJD NA ";M1;"M. ";::,:" ":M1M1͛NVE$"":A1:A2:A3:A4:A5:A6:A7:C1C1:SM(C1)(Q$):C1 H3 :H3:H5 XSM$()(SM(C1)):LN(SM$()):L1LN:L2LN:L1l'bA1((SM$(),L1))<elA2((SM$(),L2,)):A3((SM$(),))d:A4A1A2A3vC1:SM$()(SM(C1)):LN(SM$()):L3LN:L4LN:L3̜A1((SM$(),L3))< A2((SM$(),L4,)):A3((SM$(),))d:A5A1A2A31H3,C1H5:"#####.##";SM(C1)deC1:A6A4((A4A5)(SCC1)):A6A7rA6A6<A6A6A6<HA6RVE$(A7)":"\C2=,:"RONDETIJD:";:"###.##";A4A5:=,:"================"Rf=,:" ":),:"VERWACHTE EINDTIJD:";:VE$;:"##.##";A6:zepC1SCC2C1zC2SCڍ:,:" ":,:"UITPRINTEN (J/N)"::DA$"N":A$"J":z*:h:()ڎl:"RITSCHEMA OVER ";ST$(RO)::NA$(DL);:DEڝ))NA$(DE):zDEڝ:SCM1:M2:SCM1,:M2,:M1:M2NSC:"TIJD NA ";M1;"M. ";:"#####.##";SM(N)d;-DEڝ))"TIJD NA ";M2;"M. ";:"#####.##";SA(N)d:GM1M1:M2M2::H7:DTDE:DEDL:P(DE,RO)SM(SC):P$(P(DE,RO)):R:DEDT:DEP(DE,RO)SA(SC):P$(P(DE,RO)):R,:"EEN OGENBLIK A.U.B.":H7O:SO:::():L$"############.###R,:"RECORDSKR,:"1= RECORDS INVOEREN/WIJZIGENg R,:"2= RECORDS TONEN R,:"3= RECORDS SAVEN R, :"4= HOOFDMENU$ R, :"UW KEUZE ";ʤ. :KK$ 8 KL ,P , , B L :R,:"RECORDS INVOEREN/WIJZIGEN+V R,:"1= 500 METERE` R,:"2= 1000 METER_j R,:"3= 1500 METERyt R,:"4= 3000 METER~ R,:"5= 5000 METER R,:"6= 10000 METERť R, :"UW KEUZE ";⥜ :RIK:RIRI :R,:"RECORDS INVOEREN/WIJZIGEN) R,:"1= NEDERLANDS RECORDG R,:"2= EUROPEES RECORDc R,:"3= WERELD RECORD R,:"4= OLYMPISCH RECORD" R,:"UW KEUZE "; :NWK:NWMW ͦ R, :"1= MANNEN R, :"2= VROUWEN R,:"UW KEUZE "; :KK :KRIRIT RINWKR,:"NIET MOGELIJK":^:| R,:"VOER NIEUW RECORDTIJD IN ";( :RE(RI,NW)(Q$)dħ2 RE(RI,)RE(RI,NW)RE(RI,)RE(RI,NW)< RE(RI,)RE(RI,NW)RE(RI,)RE(RI,NW)F P :():R ,:"RECORDS"wZ ,:"MANNEN";:)"NED. RECORD";:)"EUR. RECORD";:)"WER. RECORD";:)"OLYMP. RECORD"Ǩd ,:" 500 METER";:L$;RE(,);:L$;RE(,);:L$;RE(,);:L$;RE(,)n ,:" 1000 METER";:L$;RE(,);:L$;RE(,);:L$;RE(,);:L$;RE(,)gx ,:" 1500 METER";:L$;RE(,);:L$;RE(,);:L$;RE(,);:L$;RE(,) ,:" 3000 METER";:L$;RE(,);:L$;RE(,);:L$;RE(,) ,:" 5000 METER";:L$;RE(,);:L$;RE(,);:L$;RE(,);:L$;RE(,)I ,:"10000 METER";:L$;RE(,);:L$;RE(,);:L$;RE(,);:L$;RE(,)] , :"VROUWEN ,:" 500 METER";:L$;RE(,);:L$;RE(,);:L$;RE(,);:L$;RE(,) ,:" 1000 METER";:L$;RE(,);:L$;RE(,);:L$;RE(,);:L$;RE(,)P ,:" 1500 METER";:L$;RE(,);:L$;RE(,);:L$;RE(,);:L$;RE(,) ,:" 3000 METER";:L$;RE( ,);:L$;RE( ,);:L$;RE( ,);:L$;RE( ,) ,:" 5000 METER";:L$;RE( ,);:L$;RE( ,);:L$;RE( ,);:L$;RE( ,) :$ R,:"EEN OGENBLIK A.U.B4 BT$AS#G N:I X #,RE(I,N),f ::#:o " :():, ,:"CORRIGEREN":ʬ6 ::"TOETS NUMMER DEELNEMER IN: ";@ :NU(Q$):NUNUZ6 :J J TET :():L$"#########.##C^ R,:"1= NAAM DEELNEMER: "NA$(NU)th R,:"2= TIJD OVER "ST$();:L$;P(NU,)dr R,:"3= TIJD OVER "ST$();:L$;P(NU,)d֭| R,:"4= TIJD OVER "ST$();:L$;P(NU,)d R, :"5= TIJD OVER "ST$();:L$;P(NU,)d TEb  H R, :"UW KEUZE ";Q ^ K Kڍ:R,:"NAAM DEELNEMER: ";::NA$(NU)Q$:(NA$(NU)) :X  KKڍ:P1$(P(NU,K)):R,:"VOER JUISTE TIJD IN: ";::P(NU,K)(Q$):FK:DENU:SO P(DE,F)dRE(ST(F)VR,)ڍ:R,:"*** NIEUW WERELDRECORD ***":RE(ST(F)VR,)P(DE,N)d:N:ʯ (ST$(F))(AF$())P(DE,)P(DE,)(Q$)d(P1$)d@ (ST$(F))(AF$())A1((Q$,))<:A2((Q$,,)):A3((Q$,))d:A4(A1A2A3):P(DE,)P(DE,)A4 (ST$(F))(AF$())C1((P1$,))<:C2((P1$,,)):C3((P1$,))d:C4(C1C2C3):P(DE,)P(DE,)C4/ (ST$(F))(AF$())A1((Q$,))<:A2((Q$,,)):A3((Q$,))d:A4(A1A2A3):P(DE,)P(DE,)A4 (ST$(F))(AF$())C1((P1$,))<:C2((P1$,,)):C3((P1$,))d:C4(C1C2C3):P(DE,)P(DE,)C4 (ST$(F))(AF$())A1((Q$,))<:A2((Q$,,)):A3((Q$,))d:A4(A1A2A3):P(DE,)P(DE,)A4 (ST$(F))(AF$())C1((P1$,))<:C2((P1$,,)):C3((P1$,))d:C4(C1C2C3):P(DE,)P(DE,)C4& (ST$(F))(AF$())A1((Q$,))<:A2((Q$,,)):A3((Q$,))d:A4(A1A2A3) :P(DE,)P(DE,)A40 (ST$(F))(AF$())C1((P1$,))<:C2((P1$,,)):C3((P1$,))d:C4(C1C2C3) :P(DE,)P(DE,)C4: (ST$(F))(AF$())A1((Q$,))<:A2((Q$,,)):A3((Q$,))d:A4(A1A2A3):P(DE,)P(DE,)A4yD (ST$(F))(AF$())C1((P1$,))<:C2((P1$,,)):C3((P1$,))d:C4(C1C2C3):P(DE,)P(DE,)C4N R,:"EEN OGENBLIK A.U.B."::X TE:T b l R, :"NOG MEER WIJZIGINGEN (J/N)";v :A$"J" :A$"N" :l  # K2,K2::()7 ,:(P,)v (,:"VRIJE GEHEUGENRUIMTE ";:"####";("");:" BYTES ,:"HUIDIGE NAAM BESTAND: "BE$ص (,:"VRIJE RUIMTE DISK ";:"####";();:" KB R,:"DEELNEMERS-BESTAND R,:"1= LADEN R)"2= SAVEN/ R)"3= KILLENA R)"4= NIEUWZ R, :"UW KEUZE ?";e K1,K2{ :KK K , ,,t ʶ VL:R, :"deelnemers-bestand LADEN (J/N)";* :A$"J"4 :A$"N"ڎ: N4 ::"NAAM VAN TE LADEN SCHAATS TOERNOOI (zonder .SCH): ";::BE$Q$:BS$BE$".SCH]> BS$AS#kH #,NR,ROsR X\ #,NA$(X)f N:#,P(X,N):p XXz ()\ ӷ #:XX:ZX:IX:NUNRٷ  R, :"deelnemers-bestand SAVEN (J/N)";+ :A$"J" :A$"N"ڎ: VLR,:"NAAM SCHAATS-TOERNOOI: "BE$:R,:"AKKOORD (J/N)"::A$"J" :BE$"": R,:"NAAM SCHAATS-TOERNOOI: ":R,:"(geen '.' of spatie en max 8 pos.): ";::BE$Q$ (BE$,".")(BE$) + BS$BE$".SCH"; BS$AS#I #,NR,ROT IZc #,NA$(I){ N:#,P(I,N)::#:R, :"schaats-toernooi KILLEN (J/N)";ع:A$"J"$:A$"N"ڎ:$0.:"WELK SCHAATS-TOERNOOI WILT U 'KILLEN' (zonder .SCH): ";::KL$Q$B8KM$KL$".SCHKBL:"KILLEN SCHAATS-TOERNOOI: "KL$" AKKOORD (J/N) V:A$"J"KM$:A$"N".:L`::"NOG MEER SCHAATS-TOERNOOIEN 'KILLEN' (J/N)j:A$"J".:A$"N"ڎ:`DtR, :"Nieuw schaats-toernooi OPZETTEN (J/N)";i~:A$"J":A$"N"ڎ:tNA$,P,AF$,ST$,RE,ST,SA,SM:Z:I:NR:VL:TE$"":BE$"黒NA$(*),P(*,),AF$(),ST$( ),RE( ,),ST( ),SA(),SM()(:( )&B00110110:R, :"STOPPEN, AKKOORD (J/N)B:A$"J":():Edh0,: ,( ) @: >:X1():̕:::,:()::ZZɼ,:(,): ,:"NAAM DEELNEMER: ";:NA$(Z)Q$:Q$"":(NA$(Z))ڍ:K2,K2;X1O:X1,:():X1,:():dY:,Y:():O,Y:():j s,H1:H2:H38(IZ2IH1:H2:H37ɽ<)()H1)I;NA$(I);ڽFZIZxPIIZH2)I;NA$(I);dII!n(NA$(I))ڑH3)I;NA$(I).x:K1,K24@R,:M ,:Y,:,:" ,:" <,:"** DRUK EEN TOETS IN **PL$:L$""V:,:"VERVOLG STAND NA: ";ST$(RO)߿:)ST$();:)ST$();:)ST$();:)ST$();:>)"TOTAAL";:TIڑF)"VERSCHIL"::K1,K2*Fڟ:R, :"GEEN DISK IN DRIVE":^:h]5> ڑ"BESTAND NIET GEVONDEN":^:4 "52ڑ"BESTAND NIET GEVONDEN":^:$,5<>BDEFڟ:R, :"DISK-FOUT":^:'6ڟ:R, :"TE WEINIG GEHEUGENRUIMTE; SCHAKEL B-DRIVE AF":^:j@ 28ڟ:R, :"INVOERFOUT":^:Jڟ:R, :"PRINTER NIET AANGESLOTEN":J:T^N ::hI :MC$: I,("&h"MC$)::CD,A8,00,32,F8,F7,3E,02,32,63,F6,C9: :Mr()ڟ:, :"PRINTER NIET AANGESLOTEN":^:S|~†F:G():B$"":Q$"":AA$"_":AB$" G,F:B$šB$:B$""¤G,F:AA$:N:®G,F:AB$:N:¸B$( )G,F:AB$:iB$()B$()B$()B$()B$( )B$()B$()B$( )B$()B$()B$()B$()ڋ(Q$):Q$(Q$,(Q$)):G,F:" ":GG:Q$Q$B$:GG:C$:K(C$):A$A$"":(:K2,K2:,:"INHOUD DISK";,:(P,)H&"*.SCH"\0,:(P,)i:K1,K2:D:R,:"KLEURINSTELLINGNR,:"VOORGRONDKLEUR (1-15) ";:XK1(Q$):K1K1R,:" ":N bR, :"ACHTERGRONDKLEUR (1-15)";:>lK2(Q$):K2K2R, :" ":bMvK2K1DVŀ_ŊhŔŞDE(DE)6,DE:KR$::ƨDEDEDEDE DEDEDEDEDEDEDE DE#DE&DE),(DE):KR$::nƲDEDEDEDE DE DEDEDEDEDEDEDE"DE%DE(,(DE):KR$:Ƽ:():,:"1 = "ST$()R,:"2 = "ST$()R,:"3 = "ST$()R,:"4 = "ST$()R, :"5 = GEEN VERSCHIL BEREKENEN":+NHOP(N,):P(N,)P(HO,)P(N,)U(ST$(TI))(AF$())P(N,)P(N,)(ST$(TI))(AF$())P(N,)P(N,) (ST$(TI))(AF$())P(N,)P(N,)(ST$(TI))(AF$())P(N,)P(N,) (ST$(TI))(AF$())P(N,)P(N,) 3*(ST$(TI))(AF$())P(N,)P(N,)94EZ^::DLDEr::"NUMMER 2e DEELNEMER (geen = 0)";|:DE(Q$):DE:DEDEZr::^瘆:K2,K2:R,:"RITSCHEMA OVER ";ST$(RO)(P,())(ST$(RO))'SC/(ST$(RO))SC I(ST$(RO)) SCc(ST$(RO))SC}(ST$(RO))SC(ST$(RO))ڎϙSCM1:M2:SCM1,:M2,:M1:M2 ,:NA$(DL):DE: ),:NA$(DE)" 36.76 114.24 153.88 0 644.98 1358.47 40.61 121.63 200.68 411.94 714.13 36.45 0 152.06 0 643.59 1348.2 39.12 117.65 159.3 411.94 714.13 36.45 0 152.06 0 643.59 1348.2 39.1 117.65 159.3 411.94 714.13 36.45 113.03 152.06 0 644.63 1348.2 39.1 117.65 200.68 411.94 714.13 ST$(RO))SC I(ST$(RO)) SCc(ST$(RO))SC}(ST$(RO))SC(ST$(RO))ڎϙSCM1:M2:SCM1,:M2,:M1:M2 ,:NA$(DL):DE: ),:NA$(DE)"  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  200.68 411.94 714.13 ST$(RO))SC I(ST$(RO)) SCc(ST$(RO))SC}(ST$(RO))SC(ST$(RO))ڎϙSCM1:M2:SCM1,:M2,:M1:M2 ,:NA$(DL):DE: ),:NA$(DE)"