RETURN sum==n;
END;
Met het volgende programma worden alle perfecte getallen tot 1000 weergegeven:
EXPORT PERFECTNUMS()
BEGIN
LOCAL k;
FOR k FROM 2 TO 1000 DO
IF ISPERFECT(k) THEN
MSGBOX(k+" is perfect, druk op OK");
END;
END;
END;
REPEAT
Syntaxis: REPEAT opdrachten UNTIL test;
Hiermee wordt de reeks van opdrachten herhaald totdat test waar is (niet 0).
In het onderstaande voorbeeld wordt gevraagd om een positieve waarde voor SIDES, als aanpassing op een
eerder programma in dit hoofdstuk.
EXPORT SIDES;
EXPORT GETSIDES()
BEGIN
REPEAT
INPUT(SIDES,"Die Sides","N = ","Voer het aantal zijden in",2);
UNTIL SIDES>0;
END;
BREAK
Syntaxis: BREAK(n)
Hiermee worden lussen beëindigd door het verlaten van n lusniveaus. De uitvoering wordt hervat met de
eerste instructie na de lus. Een enkele lus wordt beëindigd als er geen argument is.
CONTINUE
Syntaxis: CONTINUE
Hiermee brengt u de uitvoering over naar het begin van de volgende herhaling van een lus.
Variabele
Met deze opdrachten kunt u de zichtbaarheid van een door de gebruiker gedefinieerde variabele bepalen.
628 Hoofdstuk 29 Programmeren in HP PPL