Add files via upload

This commit is contained in:
Андрей 2021-03-29 20:43:07 +04:00 committed by GitHub
parent 64c6352265
commit 35131ba393
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
90 changed files with 1738 additions and 0 deletions

23
Examples/Core/try.bas Normal file
View file

@ -0,0 +1,23 @@
SUB MAIN
DIM I AS INTEGER
DIM ERR1 AS STRING
DIM ERR2 AS STRING
TRY
TRY
FOR I=1 TO 10
PRINT I
IF (I=5) THEN
THROW "I=5"
END IF
END FOR
CATCH ERR1
PRINT "ERROR1> " + ERR1
THROW ERR1 + " THROWN by ERROR1"
ENDTRY
CATCH ERR2
PRINT "ERROR2> " + ERR2
END TRY
PRINT "Program Finished"
END SUB