2
[] PRESERVE
Voert het programma in en slaat het
op in PRESERVE.
Checksum:
# 21528d
Bytes:
46,5
Het gebruik van PRESERVE wordt gedemonstreerd in het programma
BDISP.
BDISP (Binaire display)
BDISP toont een (re€el of binair) getal in de HEX, DEC, OCT of BIN
stelsels.
Argumenten
Resultaten
1:
# n
1:
# n
1:
n
1:
n
Technieken.
m IFERR... THEN... END (error trap). Om met reéle argumenten
te kunnen werken, bevat BDISP het commando R—B (reéel-naar-
binair). Dit commando geeft echter een fout als het argumentreeds
een binair geheel getal is. Om bij een fout door te gaan met de
uitvoering, wordt het conmando R—B in een IFERRclausule
geplaatst. Bij deze fout zijn geen verdere handelingen nodig omdat
een binair getal een geldig argumentis. Daarom bevat de THEN
clausule geen commando's.
m Het activeren van LASTARG.Bij een fout moet LASTARG worden
geactiveerd om het argument (het binaire getal) weer in het
stapelgeheugen te plaatsen. BDISP inactiveert vlag —55 zodat de
herstelmogelijkheid van LASTARG geactiveerd wordt.
m FOR... NEXT lus (eindige lus met teller). BDISP voert een lus van
1 tot en met 4 uit, waarbij n (het getal) telkens in een ander
getallenstelsel op een andere regel wordt getoond. De lusteller (in dit
programma aangeduid met j) is een lokale variabele. Deze wordt
596
31: Extra programmeervoorbeelden