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

26
Examples/Core/throw.bas Normal file
View file

@ -0,0 +1,26 @@
SUB MAIN
DIM I AS INTEGER
DIM ERR AS STRING
TRY
FOR I=1 TO 10
PRINT I
IF (I=5) THEN
THROW "I=5"
END IF
END FOR
CATCH ERR
PRINT "ERROR> " + ERR
/*
* THROW A Second Error from within the Error Handler
* This time there isn't a current error handler so it
* will cause the program to abort - you will notice
* that the program doesn't print "Program Finished".
*/
THROW ERR + " THROWN by ERROR1"
END TRY
PRINT "Program Finished"
END SUB