prog.bas

#include <math.h>
#include "math.h"

Dim As Integer a, g, w, k, v
Dim b As Integer = 5
Dim n As Integer = 15
If a > 5 Then
	Print a
ElseIf b > 10 Then
	If n < 8 Then
		Print g
	End If
End If
Dim z As String, p As Double
Print w
Function TestFunc (A As Double) As String
	Print A
	Return "salut"
End Function
Do
	Do
		Print "cc"
	Loop While n < 5
	Do
		Print k
	Loop While k > 8
Loop While n > 10
Sub Test (v As Integer, b As String)
	v = 5: b="toto"
	If v > 10 Then
		Print "cc je vais par là ? !,; ^$ *ù A 51 vc / - é  \""
	End If
	/' quelle belle fonction ! 
		test
	'/
	Print "wewe"
	Print b
End Sub
v = 5*4/5+3: k = 99
a = 5
Print v
While p < 4
	Print v
Wend
For i As Integer = 3 To 0 Step -0.5
	Print "glagla"
Next i
'com1
/' com2 /''hjhjvg '/
Print "la"
/' com3 bla b/ 'la la '/
Print "ici"