Le langage BASIC : exemple de programmation

Exemple de programmation
INPUT "Quel est votre nom"; UserName$
2. PRINT "Bonjour "; UserName$
3. DO
4. INPUT "Combien d'étoiles voulez-vous"; NumStars
5. Stars$ = ""
6. Stars$ = REPEAT$("*", NumStars) '<-ANSI BASIC
7. 'Stars$ = STRING$(NumStars, "*") '<-MS BASIC
8. PRINT Stars$
9. DO
10. INPUT "Voulez-vous plus d'étoiles"; Answer$
11. LOOP UNTIL Answer$ <> ""
12. LOOP WHILE UCASE$(LEFT$(Answer$, 1)) = "O"
13. PRINT "Au revoir ";
14. FOR A = 1 TO 200
15. PRINT UserName$; " ";
16. NEXT A
17. PRINT