23 lines
386 B
Plaintext
23 lines
386 B
Plaintext
ENUM FRED, BARNEY
|
|
|
|
PROC main()
|
|
WriteF('Hello from main\n')
|
|
fred()
|
|
WriteF('Goodbye from main\n')
|
|
ENDPROC
|
|
|
|
PROC fred() HANDLE
|
|
WriteF(' Hello from fred\n')
|
|
barney()
|
|
Raise(FRED)
|
|
WriteF(' Goodbye from fred\n')
|
|
EXCEPT
|
|
WriteF(' Handler fred: \d\n', exception)
|
|
ENDPROC
|
|
|
|
PROC barney()
|
|
WriteF(' Hello from barney\n')
|
|
Raise(BARNEY)
|
|
WriteF(' Goodbye from barney\n')
|
|
ENDPROC
|