Als hulp bij het typen druktuop [(q] IFvoor:
IF
THEN
END
Voorbeeld 1: IF...THEN. ..END. De beide volgende programma's
testen de waarde in niveau 1. Als de waarde positief is, wordt deze
negatief gemaakt. Het eerste programma gebruikt een reeks commando's
als testclausule:
« DUP IF @ > THEN MEG END =»
De waarde in het stapelgeheugen moet worden gekopieerd, omdat het
commando > twee argumenten uit het stapelgeheugen verwijdert (de
door DUP gemaakte kopie van de waarde en 0).
De volgende versie gebruikt een algebraische uitdrukking als testclausule:
€ + x» & IF
'w>8'
THEW x HEG EHD 3» »
Voorbeeld 2: IF...THEN. ..END. Dit programma vermenigvuldigt twee
getallen met elkaar als beide niet gelijk zijn aan nul.
Programma :
Commentaar:
&
+ xy
Maakt de lokale variabelen x en y
waarin de twee getallen uit het
stapelgeheugen staan.
#
IF
Begint de testclausule.
"x=
Test één van de getallen en plaatst
een testresultaat in het
stapelgeheugen.
26: Tests en voorwaardelijke structuren
527