toets.tmac

\# Toets macro
\# Macro gaat ervan uit dat er gebruik gemaakt wordt van
\# mmroff processor.
\# De benodigde bestanden om kruisverwijzingen te kunnen maken
.so punten.txt
.so vragen.txt
\# fonttype en puntgrootte op basis van dyslectie standaard.
.fam H
.ps 12
.S 12
\# Instellen van de juiste waarden
.ds Lifg Figuur
.PH "''''"
.PF  "''- % -''"
.if !r ANTNR .nr ANTNR 0
.nr VRAAGNR 0 1
.nr PUNTT 0
\# Vraag macro
.de VRA END
.	nr PUNTT \\n[PUNTT]+\\$1
.	nr POSP \\n[.o]u/2u
.	ds PUVR "\s[-2]\\$1p\s[+2]\h'0.5c'\fB\\n+[VRAAGNR]\fR
.br
\# This is the older setup for positioning the question number
\#\h'-\\n[POSP]u'(\\$1p)\h'-\w'(\\$1p)'u'\h'\\n[POSP]u'\\n+[VRAAGNR]. \c 
\# New position of questionnumber
\h'-1.7c'\\*[PUVR]\h'-\w'\\*[PUVR]'u'\h'1.7c'\c
.END
.
\# Vraag eind macro
.de VRAEND END
.	br
.END
.
\#Invul macro
.de INV END
.	if (\n[ANTNR] == 1) .ig INVEND
.	br
.END
.
.de INVEND END
.	ie (\n[ANTNR] == 0) .SP
.	el .br
.END
.
\#Antwoord macro
.de ANT END
.	if (\n[ANTNR] == 0) .ig ANTEND
.	sp
.	B Antwoord:
.	br
.END
.
.de ANTEND END
.	br
.END
.
\# Lijn macro
.de LIJN END
.nr AANTL 1 1
.while (\\n[AANTL] <= \\$1 ) \{\
.sp
\l'\\n[.ll]u'
.br
.nr AANTL +1
.\}
.sp
.END
\#Negeer macro. Hetzelfde als ANT/ANTEND alleen zonder opmaak
.de IG END
.       if (\n[ANTNR] == 0) .ig IGEND
.END
.
.de IGEND END
.END
.
\#Toetsmatrijs macro
.de MAT END
.	if (\n[ANTNR] == 0) .ig MATEND
.	sp
.	HU Toetsmatrijs
.	br
.END
.
.de MATEND END
.	br
.END
\# Eind macro
.de EIND END
.	open punten punten.txt
.	write punten .nr TOTP \\n[PUNTT]
.	close punten
.
.	open vragen vragen.txt
.	write vragen .nr TOTV \\n[VRAAGNR]
.	close vragen
.END