Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,8 @@
|
|||
Dim a As Integer = 1
|
||||
If a = 1 Then
|
||||
sub1
|
||||
ElseIf a = 2 Then
|
||||
sub2
|
||||
Else
|
||||
sub3
|
||||
End If
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
Dim a As Integer = 1
|
||||
Select Case a
|
||||
Case 1
|
||||
sub1
|
||||
Case 2
|
||||
sub2
|
||||
Case Else
|
||||
sub3
|
||||
End Select
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
Dim b As Boolean = True
|
||||
Dim i As Integer = IIf(b, 1, 2)
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
Dim a As Integer = 1
|
||||
On a Goto label1, label2
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
Dim b As Boolean = True
|
||||
If b Goto label
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
Dim a As Integer = 1
|
||||
On a Gosub label1, label2
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
#DEFINE WORDSIZE 16
|
||||
#IF (WORDSIZE = 16)
|
||||
' Do some some 16 bit stuff
|
||||
#ELSEIF (WORDSIZE = 32)
|
||||
' Do some some 32 bit stuff
|
||||
#ELSE
|
||||
#ERROR WORDSIZE must be set to 16 or 32
|
||||
#ENDIF
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
#DEFINE _DEBUG
|
||||
#IFDEF _DEBUG
|
||||
' Special statements for debugging
|
||||
#ENDIF
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
#IFNDEF _DEBUG
|
||||
#DEFINE _DEBUG
|
||||
#ENDIF
|
||||
Loading…
Add table
Add a link
Reference in a new issue