error.bas

来自「由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.」· BAS 代码 · 共 67 行

' error.bas
' Check the error control.


ON ERROR GOTO syntax_error

INPUT A$%
PRINT A #
OPEN "t.txt" FOR INPUT 1
Hello, how are you?

GOTO check_mismatch

LABEL syntax_error

IF ERR = 1 THEN PRINT "Catched!" : RESUME NEXT

GOTO unexpected

LABEL check_mismatch

ON ERROR GOTO mismatch_error

PRINT 1 - "Hola"

GOTO check_div_zero

LABEL mismatch_error

IF ERR = 2 THEN PRINT "Catched!" : RESUME NEXT

GOTO unexpected

LABEL check_div_zero

ON ERROR GOTO div_zero

a= 10: b= 0: PRINT a / b
a%= 10: b%= 0: PRINT a% / b%

GOTO check_user_error

LABEL div_zero

IF ERR = 7 THEN PRINT "Catched!": b= 2: b%= 2: RESUME

GOTO unexpected

LABEL check_user_error

ON ERROR GOTO user_error

ERROR 60000

END

LABEL user_error

IF ERR = 60000 THEN PRINT "Catched!" : RESUME NEXT

LABEL unexpected

PRINT "Error "; ERR; " en linea "; ERL
EXIT 1

END ' Program