n=$counter
XSIZE=600
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
mathview=0
inputs=1
image=0
math=0
cols=35
rows=1
questiontype=0
arglist=$empty
varlist=$empty
checkfile=$checkdir/number.proc
!if $level=0
    R=$counter
!else
    R=$level
!endif
sometext=!record 27 of lang/remarks.$taal

!if $R=1
    factoren=!randitem 10<sup>18</sup>:10^18:exa:E,\
    10<sup>15</sup>:10^15:peta:P,\
    10<sup>12</sup>:10^12:tera:T,\
    10<sup>9</sup>:10^9:giga:G,\
    10<sup>6</sup>:10^6:mega:M,\
    10<sup>3</sup>:10^3:kilo:k,\
    10<sup>2</sup>:10^2:hecta:h,\
    10<sup>1</sup>:10^1:deca:da,\
    10<sup>-1</sup>:10^-1:deci:d,\
    10<sup>-2</sup>:10^-2:centi:c,\
    10<sup>-3</sup>:10^-3:milli:m,\
    10<sup>-6</sup>:10^-6:micro:&mu;,\
    10<sup>-9</sup>:10^-9:nano:n,\
    10<sup>-12</sup>:10^-12:pico:p,\
    10<sup>-15</sup>:10^-15:femto:f,\
    10<sup>-18</sup>:10^-18:atto:a   
    F=!replace internal : by , in $factoren
    # :Inhoud,6,Kubieke meter, m^3
    eenheid=!randrecord lang/data6.$taal
    eenheid1=!item 3 of $eenheid
    omschrijving=!item 1 of $eenheid
    sometext=$eenheid1 <-------> $omschrijving <p>$sometext
    A=!randint 2,33
    F1=!item 1 of $F
    F2=!item 2 of $F
    F3=!item 3 of $F
    F4=!item 4 of $F
    corr=!lower $[$A*$F2]
    corr=!replace internal e+ by *10^ in $corr
    answer$n=!replace internal e- by *10^- in $corr
    anders=!nospace  <b>$F4</b> $eenheid1
    ss=!record 19 of lang/remarks.$taal
    question$n=<a onmouseover="return escape('$sometext')"> $ss </a>
    rr=!record 20 of lang/remarks.$taal
    textanswer$n=$rr
 !exit
!endif
!if $R=2
    factoren=!randitem 10<sup>18</sup>:10^18:exa:E:10^-12,\
    10<sup>15</sup>:10^15:peta:PB:10^-9,\
    10<sup>12</sup>:10^12:tera:TB:10^-6,\
    10<sup>9</sup>:10^9:giga:GB:10^-3,\
    10<sup>6</sup>:10^6:mega:MB:1,\
    10<sup>3</sup>:10^3:kilo:kB:10^3
    
    F=!replace internal : by , in $factoren
    F1=!item 1 of $F
    F2=!item 2 of $F
    F3=!item 3 of $F
    F4=!item 4 of $F
    F5=!item 5 of $F
    opslag=!record 21 of lang/remarks.$taal
    opslag=!randitem $opslag
    opslag=!replace internal @ by , in $opslag
    floppy=!item 1 of $opslag
    MB=!item 2 of $opslag
    G=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
    !if $F2=10^3
	G=$[$G*10^3]
    !endif
    corr=!lower $[($G)*($F2)*(10^-6)]
    corr=!replace internal e+ by *10^ in $corr
    answer$n=!replace internal e- by *10^- in $corr
    A=$[$(answer$n)*($MB)*($F5)]
    ss=!record 22 of lang/remarks.$taal
    question$n=$ss
    #@Een harde schijf heeft een capaciteit van $A $F4  ($F3 bytes)<br> En hoeveel $floppy van $MB MB (megabytes) passen daar danop?
    rr=!record 23 of lang/remarks.$taal
    textanswer$n=$rr
    #@<font color="darkgreen"> Dat is dus: $A $F4 <font size="+1">&divide;</font> $MB MB <br>en dus $A &times; $F1 bytes <font size="+1">&divide;</font> $MB &times;10<sup>6</sup> bytes = $(GOED$n) stuks </font>
 !exit
!endif
!if $R>2
    TT=!randitem 1,2,3,4,5,6,7,8,9,10,11,12
    answer$n=$[2^$TT]
    opslag=!record 24 of lang/remarks.$taal
    opslag=!randitem $opslag
    opslag=!replace internal @ by , in $opslag
    floppy=!item 1 of $opslag
    MB=!item 2 of $opslag
    A=$[1000*($MB)/$(answer$n)]
    ss=!record 25 of lang/remarks.$taal
    question$n=$ss
    #@Een $floppy heeft een capaciteit van $MB MB (megabytes) <br> En hoeveel digitale foto's van $A kB (kilobytes) passen daar dan maximaal op?	
    rr=!record 26 of lang/remarks.$taal
    textanswer$n=$rr	
    #@Het voorvoegsel mega staat voor 10<sup>6</sup><br>Het voorvoegsel kilo staat voor 10<sup>3</sup><br>Hoe vaak past $A kB nu in $MB MB ?<br>$MB MB <font size="+1">&divide;</font> $A kB <br>Dus $MB &times; 10<sup>6</sup> bytes <font size="+1">&divide;</font> $A &times;10<sup>3</sup> bytes = $(GOED$n) stuks
 !exit
!endif	

