blob: 919696b46b48cf591f85e871634b4ac547d9ee6e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
DECLARE X : INTEGER
DECLARE Values : ARRAY[1:1] OF INTEGER
TYPE IntPtr = ^INTEGER
DECLARE P : IntPtr
X <- 0
TRY
OUTPUT 4 DIV X
CATCH
OUTPUT "division caught"
ENDTRY
TRY
OUTPUT Values[2]
CATCH
OUTPUT "bounds caught"
ENDTRY
TRY
OUTPUT P^
CATCH
OUTPUT "pointer caught"
ENDTRY
TRY
CLOSEFILE "closed.txt"
CATCH
OUTPUT "file caught"
ENDTRY
TRY
THROW
CATCH
OUTPUT "throw caught"
ENDTRY
OUTPUT "alive"
|
