Dialog Duits { 
  title "Toetsafname Duits ©"
  size -1 -1 200 200 
  option dbu 
  text "Toets Duits Neue Kontakte 1 Vmbo-t Havo Vwo.", 1, 40 5 150 10
  Button "Hoofdstuk 4 (A-L)", 2, 40 30 120 15, flat
  button "Hoofdstuk 4 (Redemittel)", 3, 40 50 120 15, flat
  box "Hoofdstuk 4", 4, 10 20 180 55
}
Dialog Duits1 { 
  title "Toetsafname - Deel 1"
  size -1 -1 200 140 
  option dbu 
  text "Het broodje", 1, 10 10 30 6
  edit "", 2, 70 9 110 10
  text "Wat eet jij het liefst?", 3, 10 25 50 12
  edit "", 4, 70 24 110 10
  text "Vaak", 5, 10 40 30 12
  edit "", 6, 70 39 110 12
  text "Soms", 7, 10 55 30 12
  edit "", 8, 70 54 110 12
  text "Drinken", 9, 10 70 30 12
  edit "", 10, 70 69 110 12
  Button "Volgende", 100, 30 100 150 20, flat
  text "Voorlopig cijfer: -", 50, 84 130 50 10
}
ON *:DIALOG:Duits1:sclick:100:{ 
  if ($did(Duits1,2) == Das Brötchen) { inc %duscore 1 } 
  if ($did(Duits1,4) == Was isst du am liebsten?) { inc %duscore 1 } 
  if ($did(Duits1,6) == oft) { inc %duscore 1 } 
  if ($did(Duits1,8) == manchmal) { inc %duscore 1 } 
  if ($did(Duits1,10) == trinken) { inc %duscore 1 } 
  set %Vcijfer  $calc(%duscore * 2) 
  /dialog -x duits1 
  /dialog -m Duits2 Duits2 
}
Dialog Duits2 { 
  title "Toetsafname - Deel 2"
  size -1 -1 200 140 
  option dbu 
  text "Thee of Melk?", 1, 10 10 40 6
  edit "", 2, 70 9 110 10
  text "Nooit", 3, 10 25 50 12
  edit "", 4, 70 24 110 10
  text "Altijd", 5, 10 40 30 12
  edit "", 6, 70 39 110 12
  text "Lievelingseten", 7, 10 55 50 12
  edit "", 8, 70 54 110 12
  text "Ontbijten", 9, 10 70 30 12
  edit "", 10, 70 69 110 12
  Button "Volgende", 100, 30 100 150 20, flat
  text "Voorlopig cijfer: -", 50, 84 130 50 10
}
ON *:DIALOG:Duits2:*:*:{ 
  if ( $devent == init ) { 
    did -ra $dname 50 Voorlopig cijfer: $round(%Vcijfer , 1)
  }
  if ( $devent == sclick ) { 
    if ( $did == 100 ) { 
      if ($did(Duits2,2) == Tee oder Milch) { inc %duscore 1 } 
      if ($did(Duits2,4) == nie) { inc %duscore 1 } 
      if ($did(Duits2,6) == immer) { inc %duscore 1 } 
      if ($did(Duits2,8) == lieblingsessen) { inc %duscore 1 } 
      if ($did(Duits2,10) == Frühstücken) { inc %duscore 1 } 
      set %Vcijfer %duscore
      /dialog -x duits2
      /dialog -m Duits3 Duits3
    }
  }
}
Dialog Duits3 { 
  title "Toetsafname - Deel 3"
  size -1 -1 200 140 
  option dbu 
  text "De appeltaart", 1, 10 10 30 6
  edit "", 2, 70 9 110 10
  text "Deegwaar", 3, 10 25 50 12
  edit "", 4, 70 24 110 10
  text "Bijvoorbeeld", 5, 10 40 30 12
  edit "", 6, 70 39 110 12
  text "Drink jij sinaasappelsap?", 7, 10 55 60 12
  edit "", 8, 70 54 110 12
  text "De appelsap", 9, 10 70 30 12
  edit "", 10, 70 69 110 12
  Button "Volgende", 100, 30 100 150 20, flat
  text "Voorlopig cijfer: -", 50, 84 130 50 10
}
ON *:DIALOG:Duits3:*:*:{ 
  if ( $devent == init ) { 
    did -ra $dname 50 Voorlopig cijfer: %Vcijfer
  }
  if ( $devent == sclick ) { 
    if ( $did == 100 ) { 
      if ($did(Duits3,2) == der apfelkuchen) { inc %duscore 1 } 
      if ($did(Duits3,4) == nudeln) { inc %duscore 1 } 
      if ($did(Duits3,6) == zum beispiel) { inc %duscore 1 } 
      if ($did(Duits3,8) == trinkst du orangesaft?) { inc %duscore 1 } 
      if ($did(Duits3,10) == Der apfelsaft) { inc %duscore 1 } 
      set %Vcijfer $calc(%duscore / 1.5) 
      /dialog -x duits3
      /dialog -m Duits4 Duits4
    }
  }
}
Dialog Duits4 { 
  title "Toetsafname - Deel 4"
  size -1 -1 200 140 
  option dbu 
  text "De appeltaart", 1, 10 10 30 6
  edit "", 2, 70 9 110 10
  text "Deegwaar", 3, 10 25 50 12
  edit "", 4, 70 24 110 10
  text "Bijvoorbeeld", 5, 10 40 30 12
  edit "", 6, 70 39 110 12
  text "Drink jij sinaasappelsap?", 7, 10 55 60 12
  edit "", 8, 70 54 110 12
  text "De appelsap", 9, 10 70 30 12
  edit "", 10, 70 69 110 12
  Button "Volgende", 100, 30 100 150 20, flat
  text "Voorlopig cijfer: -", 50, 84 130 50 10
}
ON *:DIALOG:Duits4:*:*:{ 
  if ( $devent == init ) { 
    did -ra $dname 50 Voorlopig cijfer: %Vcijfer