n=$teller
bewerking=bewerking1.proc
    !if $teller=1
    	!default cnt_date=$aantal_sommen
	border=1
	arrondi=5.5
	dessin1=$empty
	dessin2=$empty	
	m=6
	xsize1=$[-$m]
	xsize2=2
	x_size=$xsize1, $xsize2
	xx_size=$[$xsize2- $xsize1]
	y_size=-5,5
	insdraw_size=600,150
	inssize=!item 1 of $insdraw_size
	
	dessin=xrange $x_size\
	yrange $y_size\
	hline black,0,0\
	arrow 2.5,0,3,0,10,black\
	parallel -$m,-0.8,-$m,0.4,1/2,0, 40, blue\
	parallel -$m,-0.3,-$m,0.3,1/10,0, 200, blue\
	parallel -$m,-0.8,-$m,0.6,1,0, 40, red

	!for i=-$m to 2
	    a=$[$i*1000]
	    dessin=$dessin\
	    text black, $i,-1, medium,$a
	!next i
    !endif

	liste=punt 1,punt 2,punt 3, punt 4,punt 5, punt 6,punt 7
	totaal_aantal=!recordcnt nivo/chrono.$taal
	r=!randint 1,$totaal_aantal
	U=!item $r of $liste

	m2=!record $r of nivo/chrono.$taal
	S=!randline $m2 
	date$n=!word 1 of $S
	texte$n=!word 2 to -1 of $S
	
	dat=$[$(date$n)/1000]
	
	X$n=$[rint($inssize*($dat-$xsize1)/$xx_size+$border)]

#	antwoord=$antwoord\
#	$dessin\
#	arrow $dat,-2.5,$dat,0,7,blue\
#	text blue,$dat,-2.5,medium,$U
keuze=!randitem 1,0
!if $keuze=1
    Chr=het jaar Nul
!else
    Chr=Christus
!endif    
!if $(date$n) > 0
    jaar=$(date$n) <em>na</em> $Chr
!else
    jaar=$[-1*$(date$n)] <em>voor</em> $Chr
!endif        
	somtekst$n=<p align="center">Wanneer speelde -zo ongeveer- het volgende feit ?<br> <font color=$fontcolor6><b>$(texte$n)</b></font><br>\
	<small><br><br>Je mag natuurlijk een <a  target="newwin" href="http://www.google.nl">internet</a> of een naslagwerk gebruiken bij deze som...</small>	
	antwoord$n=De juiste datum voor <p><font size=-1 color=$fontcolor6>" $(texte$n) " </font></p> was dus: $jaar

