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/if.bas Normal file
View file

@ -0,0 +1,26 @@
SUB MAIN
DIM I AS INTEGER
FOR I=1 TO 10
IF (I = 1) THEN
PRINT "ONE"
ELSEIF (I = 2) THEN
PRINT "TWO"
ELSEIF (I = 3) THEN
PRINT "THREE"
ELSEIF (I = 4) THEN
PRINT "FOUR"
ELSEIF (I = 5) THEN
PRINT "FIVE"
ELSEIF (I = 6) THEN
PRINT "SIX"
ELSEIF (I = 7) THEN
PRINT "SEVEN"
ELSEIF (I = 8) THEN
PRINT "EIGHT"
ELSEIF (I = 9) THEN
PRINT "NINE"
ELSE
PRINT "TEN"
END IF
END FOR
END SUB