Advertenties
Voorbeeld:
10 ON ERROR
GOTO
1000
1000 IF ERR
= 64 THEN
PRINT "Wilt
U echt stoppen?
JIN"
1010 A$
= CHR$(INP(""»:
IFA$ = "J" OR A$ = "j" THEN
END ELSE RESUME
"Eigen fouten"
De mogelijkheid
is aanwezig zelf fouten te genereren.
Dit kunnen
dus fouten zijn die de P2000 tijdens de uitvoering vindt, maar ook
situaties, die door de programmeur
verboden zijn. Een ingegeven
naam begint bij voorbeeld
niet met een hoofdletter.
Hiervoor heeft
de programmeur
de keus uit alle niet-gebruikte
foutnummers
uit de
lijst van tabel 4. (Zie ook de instructie ERROR in hoofstuk 22).
Voorbeeld:
10 ON ERROR GOTO 1000
100 LlNE INPUT "Geef naam"; A$
110 IF ASC (A$) < 65 OR ASC(A$)
> 90 THEN ERROR 82
1000 IF ERR = 82 THEN PRINT "Naam zonder hoofdletter"
RESUME 100
Het foutnummer
achter ERROR mag eventueel het resultaat van
een berekening zijn.
Voorbeeld:
ERROR 30 + 1%.
ON ERROR GOrO wordt uitgeschakeld
door de instructie
ON ERROR GOTO 0
of door de instructies CLEAR, NEW, CLOAD, of door het wijzigen
van een programmaregel.
Als in de directe stand een fout gevonden wordt, wordt als regel-
nummer (ERL) opgegeven 65535.
45
Advertenties
