Sub TestPremierBasic()
'http://fr.wikipedia.org/wiki/BASIC
'10 INPUT "Quel est votre nom"; NOM$
'20 Print "Bonjour "; NOM$
'30 INPUT "Combien d'étoiles voulez-vous"; NOMBRE
'40 For I = 1 To NOMBRE
'50 ETOILE$ = ETOILE$ + "*"
'55 Next I
'60 Print ETOILE$
'70 INPUT "Voulez-vous plus d'étoiles"; ETOILE$
'80 If Len(ETOILE$) = 0 Then GoTo 70
'90 ETOILE$ = Left$(ETOILE$, 1)
'100 If (ETOILE$ = "O") Or (ETOILE$ = "o") Then GoTo 30
'110 Print "Au revoir ";
'120 For I = 1 To 200
'130 Print NOM$; " ";
'140 Next I
'150 Print
10 Nom$ = InputBox("Quel est votre nom")
20 MsgBox "Bonjour " & Nom$
30 NOMBRE = InputBox("Combien d'étoiles voulez-vous")
40 For I = 1 To NOMBRE
50 ETOILE$ = ETOILE$ + "*"
55 Next I
60 MsgBox ETOILE$
70 InputBox "Voulez-vous plus d'étoiles", ETOILE$
80 If Len(ETOILE$) = 0 Then GoTo 70
90 ETOILE$ = Left$(ETOILE$, 1)
100 If (ETOILE$ = "O") Or (ETOILE$ = "o") Then GoTo 30 Else GoTo 110
110 MsgBox "Au revoir "
120 For I = 1 To 200
130 Nom1 = Nom1 & " " & Nom$
140 Next I
150 MsgBox Nom1
End Sub