Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,8 @@
Dim a As Integer = 1
If a = 1 Then
sub1
ElseIf a = 2 Then
sub2
Else
sub3
End If

View file

@ -0,0 +1,9 @@
Dim a As Integer = 1
Select Case a
Case 1
sub1
Case 2
sub2
Case Else
sub3
End Select

View file

@ -0,0 +1,2 @@
Dim b As Boolean = True
Dim i As Integer = IIf(b, 1, 2)

View file

@ -0,0 +1,2 @@
Dim a As Integer = 1
On a Goto label1, label2

View file

@ -0,0 +1,2 @@
Dim b As Boolean = True
If b Goto label

View file

@ -0,0 +1,2 @@
Dim a As Integer = 1
On a Gosub label1, label2

View file

@ -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

View file

@ -0,0 +1,4 @@
#DEFINE _DEBUG
#IFDEF _DEBUG
' Special statements for debugging
#ENDIF

View file

@ -0,0 +1,3 @@
#IFNDEF _DEBUG
#DEFINE _DEBUG
#ENDIF