n=$teller
keuze=!randitem 1,2
bewerking=bewerking1.proc
!if $graad=0
    R=$teller
!else
    R=$graad
!endif

!if $taal=nl        
    hint=geen hints vandaag
    !if $keuze=1
	kind=!record 43 of woorden.$taal
	kind=!randitem $kind 
	zij=Zij
	haar=haar
	vrienden=vriendinnen
    !else
	kind=!record 42 of woorden.$taal
	kind=!randitem $kind
	zij=Hij
	haar=zijn
	vrienden=vrienden
    !endif
    nivo_title= $kind haalt wat boodschappen <br>en nog wat meer...	
    klas=!randitem de gehele klas,de hele school, $haar hele groep, $haar hele $vrienden klub,\
    al $haar medeleerlingen,de conci&euml;rge,$haar leraar, $haar docent, $haar Juffrouw, $haar Meester 

    !if $R=1 or $R=3
	#letop de getallen geven de plaats van de TEKST in het plaatje aan: niet mee knoeien
	#ook de XSIZE en YSIZE met rust laten...
	artikelen=!randitem cdrom.gif@Cdroms@70@35,cdrom.gif@CDRW's@70@35,cdrom.gif@DVD's@70@35,\
	floppy.gif@Floppies@60@70,floppy.gif@Diskettes@60@70,floppy.gif@Floppydisks@60@70,\
	agenda.gif@Agenda's@55@28,agenda.gif@Schoolagenda's@55@28,\
	lineaal.gif@Linealen@15@50,lineaal.gif@Meetlatten@15@50,\
	etui.gif@Etui's@35@40,kladblok.gif@Kladblokken@35@35,\
	vulpen.gif@Vulpennen@20@40,vulpen.gif@Pennen@20@40,\
	rekenmachine.gif@Rekenmachines@30@25,rekenmachine.gif@Calculators@30@25
    
	artikelen=!replace internal @ by , in $artikelen
	plaatje$n=!item 1 of $artikelen
	artikel=!item 2 of $artikelen
	X=!item 3 of $artikelen
	Y=!item 4 of $artikelen
	aantal=!randint 6,35
	ach=!randitem 1,2
	!if $ach = 1
	    Aantal=!item $aantal of $telwoorden
	!else
	    Aantal= $aantal
	!endif
	prijs=!randint 20,200
	prijs=$[$prijs/20]
	GOED$n=$[$aantal*$prijs]
        getal=!randint 2,10
        bedrag=$[ceil($(GOED$n)/$getal)]
        bedrag=$[$bedrag*$getal]
        goed$n=$[$bedrag-$(GOED$n)]
        
	opgave$n=$kind gaat naar de kantoorboekhandel.<br>\
	$zij moet <b>$Aantal</b>  $artikel  kopen voor $klas<br>\
	In het plaatje kun je aflezen wat zo'n ding kost tegenwoordig...<p>\
	<small>de prijzen zijn natuurlijk uit m'n duim gezogen...</small>
    
	!if $wims_user=supervisor and $printbaar=0
    	    somtekst$n=<br><table cellpadding="10" border="1"><td>$kind moet dus in't totaal betalen:\
	    </td><td><input size="10" name="ANT$n" value="$(GOED$n)">&nbsp;&euro;</td><tr>\
	    <td>$zij betaald met $bedrag &euro;<br>\
	    Hoeveel krijgt $kind dan dus terug?</b></td>\
	    <td><input size="10" name="ant$n" value="$(goed$n)"><b>&nbsp;&euro;</b></td></table>
	
	!else
    	    somtekst$n=<br><table cellpadding="10" border="1"><td>$kind moet dus in't totaal betalen:\
	    </td><td><input size="10" name="ANT$n" value="">&nbsp;&euro;</td><tr>\
	    <td>$zij betaald met $bedrag &euro;<br>\
	    Hoeveel krijgt $kind dan dus terug?</b></td>\
	    <td><input size="10" name="ant$n" value=""><b>&nbsp;&euro;</b></td></table>

	!endif
	antwoord$n=Het goede antwoord is:<br>$kind moest dus <b>$Aantal ($aantal)</b> $artikel kopen<br>\
	De $artikel kosten volgens het prijskaartje <b>$prijs &euro;</b> per stuk: dus totaal <b>$aantal &times; $prijs = $(GOED$n) &euro;</b>\
	$zij betaalde met <b>$bedrag &euro;</b> dus kreeg $kind <b>$bedrag - $(GOED$n) = $(goed$n) &euro;</b> terug

	XSIZE=400
	YSIZE=250
	plaatje$n=$XSIZE,$YSIZE\
	transparent white\
	copy 0,0,-1,-1,-1,-1,gifs/$(plaatje$n)\
	xrange 0,100\
	yrange 0,100\
	text black,$X,$Y,huge,$prijs Euro
    !endif

    !if $R=2 or $R>3
	artikelen=Vulpennen,Kladblokken,Etui's,Linealen,Agenda's
	d1=11,63
        d2=42,58
        d3=72,62
        d4=6,10
        d5=72,12
        !for p=1 to 5
	    artikel$p=!item $p of $artikelen
	    aantal$p=!randint 6,35
	    prijs$p=!randint 20,200
	    prijs$p=$[$(prijs$p)/20]
	    TEXT=!append line text black,$(d$p),huge,$(prijs$p) Euro to $TEXT
	!next p    
	GOED$n=0
	!for p=1 to 5
	    tabel=!append line <td><b>$(artikel$p)</b></td><td><b>$(aantal$p) stuks</b></td><td><textarea cols=15 rows=1></textarea></td><tr> to $tabel
    	    prijs=$[$(aantal$p)*$(prijs$p)]
	    GOED$n=$[$(GOED$n)+$prijs]
	    antwoord=!append line <li> <b>$(aantal$p)</b> $(artikel$p) met een prijs van <b>$(prijs$p)</b> &euro; per stuk</b> is:<br><b> $(aantal$p) &times; $(prijs$p) =  $[$(aantal$p)*$(prijs$p)] &euro;</b></li> to $antwoord
	!next p

	getal=!randint 2,10
        bedrag=$[ceil($(GOED$n)/$getal)]
	bedrag=$[$bedrag*$getal]
	goed$n=$[$bedrag-$(GOED$n)]

	opgave$n=<em>$kind</em> gaat naar de kantoorboekhandel<br>$zij moet schoolspullen kopen voor $klas<br>\
	In het plaatje kun je aflezen wat alles zoal kost tegenwoordig...<br>\
	<small><em>de prijzen zijn natuurlijk uit m'n duim gezogen...</em></small>

	!if $wims_user=supervisor and $printbaar=0
	    somtekst$n=<div align="center"><table border=1 width="70%">\
	    <td>Artikel</td><td>Aantal</td><td>een kladblaadje<br>\
	    <small>alleen om je tussenstappen te noteren<br>wordt niet nagekeken...</small></td><tr>$tabel</table>\
	    Je antwoorden<table cellpadding="10" border="1" width="70%" ><td>$kind moet dus in't totaal betalen?</td>\
	    <td><input size="10"  name="ANT$n" value="$(GOED$n)">&nbsp;&euro;</td><tr>\
	    <td>$zij betaald met <b>$bedrag &euro;</b>.<br> Hoeveel krijgt $kind dus terug?</td>\
	    <td><input size="10" name="ant$n" value="$(goed$n)"><b>&nbsp;&euro;</b></tr></table>
	!else
	    somtekst$n=<div align="center"><table border=1 width="70%">\
	    <td>Artikel</td><td>Aantal</td><td>een kladblaadje<br>\
	    <small>alleen om je tussenstappen te noteren<br>wordt niet nagekeken...</small></td><tr>$tabel</table>\	
	    Je antwoorden<table cellpadding="10" border="1" width="70%" ><td>$kind moet dus in't totaal betalen?</td>\
	    <td><input size="10"  name="ANT$n" value="">&nbsp;&euro;</td><tr>\
	    <td>$zij betaald met <b>$bedrag &euro;</b>.<br> Hoeveel krijgt $kind dus terug?</td>\
	    <td><input size="10" name="ant$n" value=""><b>&nbsp;&euro;</b></tr></table>
	!endif
	antwoord$n=Het goede antwoord is:<ul>$antwoord</ul>\
	<br>En bij elkaar op geteld is dit dus <b>$(GOED$n) &euro;</b><br>\
	$zij betaalde met <b>$bedrag &euro;</b> en kreeg dus <b>$bedrag - $(GOED$n) = $(goed$n) &euro;</b> terug

	plaatje$n=800,400\
	transparent white\
	copy 0,0,-1,-1,-1,-1,gifs/artikelen.gif\
	xrange 0,100\
	yrange 0,100\
	$TEXT

	XSIZE=800
	YSIZE=400
    !endif
!exit
!endif

!if $taal=en
    hint=no hints today
    !if $keuze=1
	kind=!record 43 of woorden.$taal
	kind=!randitem $kind 
	zij=She
	haar=her
    !else
	kind=!record 42 of woorden.$taal
	kind=!randitem $kind
	zij=He
	haar=his
    !endif
    vrienden=!randitem girl&nbsp;friends,boy&nbsp;friends,friends
    klas=!randitem the whole class,the whole school, $haar whole group, $haar  $vrienden club,\
    all $haar fellow students,the janitor,$haar teacher, $haar master, $haar tutor,$haar mother, $haar father 
    nivo_title= $kind goes shopping ...	

    !if $R=1 or $R=3
	#letop de getallen geven de plaats van de TEKST in het plaatje aan: niet mee knoeien
	#ook de XSIZE en YSIZE met rust laten...
	artikelen=!randitem cdrom.gif@Cdroms@70@35,cdrom.gif@CDRW's@70@35,cdrom.gif@DVD's@70@35,\
	floppy.gif@Floppies@60@70,floppy.gif@Diskettes@60@70,floppy.gif@Floppydisks@60@70,\
	agenda.gif@Agenda's@55@28,agenda.gif@Schoolagenda's@55@28,\
	lineaal.gif@rulers@15@50,lineaal.gif@Measuring&nbsp;rods@15@50,\
	etui.gif@case's@35@40,kladblok.gif@Scribbling&nbsp;pads@35@35,\
	vulpen.gif@Fountain&nbsp;pens@20@40,vulpen.gif@Ballpoints@20@40,\
	rekenmachine.gif@Scientific&nbsp;Calculators@30@25,rekenmachine.gif@Calculators@30@25
    
	artikelen=!replace internal @ by , in $artikelen
	plaatje$n=!item 1 of $artikelen
	artikel=!item 2 of $artikelen
	X=!item 3 of $artikelen
	Y=!item 4 of $artikelen
	aantal=!randint 6,35
	ach=!randitem 1,2
	!if $ach = 1
	    Aantal=!item $aantal of $telwoorden
	!else
	    Aantal= $aantal
	!endif
	prijs=!randint 20,200
        prijs=$[$prijs/20]
	GOED$n=$[$aantal*$prijs]
        getal=!randint 2,10
        bedrag=$[ceil($(GOED$n)/$getal)]
        bedrag=$[$bedrag*$getal]
        goed$n=$[$bedrag-$(GOED$n)]
        
	opgave$n=$kind goes to the stationers shop.<br>\
	$zij has to buy <b>$Aantal</b> $artikel for $klas<br>\
	In the image you can see the price of these things nowadays...<p>\
	<small><em>these prices are pure fictional...</em></small>
    
	!if $wims_user=supervisor and $printbaar=0
    	    somtekst$n=<br><table cellpadding="10" border="1"><td>$kind the total amount of money $zij has to pay:\
	    </td><td><input size="10" name="ANT$n" value="$(GOED$n)">&nbsp;&euro;</td><tr>\
	    <td>$zij has $bedrag &euro; in her wallet<br>\
	    After paying how much money will $kind have left in his wallet?</b></td>\
	    <td><input size="10" name="ant$n" value="$(goed$n)"><b>&nbsp;&euro;</b></td></table>
	
	!else
	    somtekst$n=<br><table cellpadding="10" border="1"><td>$kind the total amount of money $zij has to pay:\
	    </td><td><input size="10" name="ANT$n" value="">&nbsp;&euro;</td><tr>\
	    <td>$zij has $bedrag &euro; in her wallet<br>\
	    After paying how much money will $kind have left in his wallet?</b></td>\
	    <td><input size="10" name="ant$n" value=""><b>&nbsp;&euro;</b></td></table>
    
	!endif
	
	antwoord$n=The correct answers are:<br>\
	$kind hast to buy <b>$Aantal ($aantal)</b> $artikel <br>\
	according to the pricetag the $artikel cost <b>$prijs &euro;</b> each : thus in total <b>$aantal &times; $prijs = $(GOED$n) &euro;</b>\
	$zij has <b>$bedrag &euro;</b> in her wallet, and thus has $kind <b>$bedrag - $(GOED$n) = $(goed$n) &euro;</b> left in her wallet

	XSIZE=400
	YSIZE=250
	plaatje$n=$XSIZE,$YSIZE\
	transparent white\
	copy 0,0,-1,-1,-1,-1,gifs/$(plaatje$n)\
	xrange 0,100\
	yrange 0,100\
	text black,$X,$Y,huge,$prijs Euro
    !endif

    !if $R=2 or $R>3
	artikelen=Fountain&nbsp;pens,Scribbling&nbsp;pads,Cases,Measuring&nbsp;rods,Agenda's
	d1=11,63
        d2=42,58
        d3=72,62
        d4=6,10
        d5=72,12
        !for p=1 to 5
	    artikel$p=!item $p of $artikelen
	    aantal$p=!randint 6,35
	    prijs$p=!randint 20,200
	    prijs$p=$[$(prijs$p)/20]
	    TEXT=!append line text black,$(d$p),huge,$(prijs$p) Euro to $TEXT
	!next p    
	GOED$n=0
	!for p=1 to 5
	    tabel=!append line <td><b>$(artikel$p)</b></td><td><b>$(aantal$p) pieces </b></td><td><textarea cols=15 rows=1></textarea></td><tr> to $tabel
    	    prijs=$[$(aantal$p)*$(prijs$p)]
	    GOED$n=$[$(GOED$n)+$prijs]
	    antwoord=!append line <li> <b>$(aantal$p)</b> $(artikel$p) with a price of <b>$(prijs$p)</b> &euro; each </b> is:<br><b> $(aantal$p) &times; $(prijs$p) =  $[$(aantal$p)*$(prijs$p)] &euro;</b></li> to $antwoord
	!next p

	getal=!randint 2,10
        bedrag=$[ceil($(GOED$n)/$getal)]
	bedrag=$[$bedrag*$getal]
	goed$n=$[$bedrag-$(GOED$n)]

	opgave$n=<em>$kind</em> goes to the stationers shop<br>$zij has to buy some office supplies for $klas<br>\
	In the image you can read the price...<br>\
	<small><em>the prices are pure fictional...</em></small>

	!if $wims_user=supervisor and $printbaar=0
	    somtekst$n=<div align="center"><table border=1 width="70%">\
	    <td>Article</td><td>Number of articles</td><td>a scribbling pad<br>\
	    <small>only for writing intermediate step<br>this will not be checked...</small></td><tr>$tabel</table>\
	    Your answers<table cellpadding="10" border="1" width="70%" ><td>$kind has to pay in total ?</td>\
	    <td><input size="10"  name="ANT$n" value="$(GOED$n)">&nbsp;&euro;</td><tr>\
	    <td>$zij pays  <b>$bedrag &euro;</b>.<br> Howmuch money will $kind get back?</td>\
	    <td><input size="10" name="ant$n" value="$(goed$n)"><b>&nbsp;&euro;</b></tr></table>
	!else
	    somtekst$n=<div align="center"><table border=1 width="70%">\
	    <td>Article</td><td>Number of articles</td><td>a scribbling pad<br>\
	    <small>only for writing intermediate step<br>this will not be checked...</small></td><tr>$tabel</table>\
	    Your answers<table cellpadding="10" border="1" width="70%" ><td>$kind has to pay in total ?</td>\
	    <td><input size="10"  name="ANT$n" value="">&nbsp;&euro;</td><tr>\
	    <td>$zij pays  <b>$bedrag &euro;</b>.<br> Howmuch money will $kind get back?</td>\
	    <td><input size="10" name="ant$n" value=""><b>&nbsp;&euro;</b></tr></table>
	!endif
	antwoord$n=The correct answers are:<ul>$antwoord</ul>\
	<br>and adding all amounts <b>$(GOED$n) &euro;</b><br>\
	$zij payed<b>$bedrag &euro;</b> and got <b>$bedrag - $(GOED$n) = $(goed$n) &euro;</b> back

	plaatje$n=800,400\
	transparent white\
	copy 0,0,-1,-1,-1,-1,gifs/artikelen.gif\
	xrange 0,100\
	yrange 0,100\
	$TEXT

	XSIZE=800
	YSIZE=400
    !endif
!exit
!endif






