Add files via upload
This commit is contained in:
parent
64c6352265
commit
35131ba393
90 changed files with 1738 additions and 0 deletions
26
Examples/Core/if.bas
Normal file
26
Examples/Core/if.bas
Normal 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
|
Loading…
Add table
Add a link
Reference in a new issue