Freebasic : un exemple de fichier

Rem 'Affichage dirigé d'un cercle avec test d'obstacle.
? "realise par (nom)"
? "Tous droits reserves"
Screen 12 'mode graphique permettant de gérer 640X320=268 800 points
Dim rayon As Integer
Dim coul_tron As Integer
Dim clavier As String *1
Dim As Double abs_tron,ord_tron 'coordonnées du centre du cercle

'INITIALISATION
abs_tron=56
ord_tron=84

'CORPS DU PROGRAMME
While clavier<"s"
clavier=InKey$
Circle (abs_tron,ord_tron),15,45 'dessine un cercle...
Circle (abs_tron,ord_tron),12,28
Circle (abs_tron,ord_tron),15,56
Circle (abs_tron,ord_tron),13,47
Circle (abs_tron,ord_tron),11,70
PSet(Rnd(1)*640,Rnd(1)*420),Int(Rnd(1)*3)
Select Case clavier
Case "2"
ord_tron=ord_tron+5
Case "6"
abs_tron=abs_tron+2
Case "8"
ord_tron=ord_tron-2
Case "4"
abs_tron=abs_tron-2
Case "5"
abs_tron=ord_tron+2
Case "3"
ord_tron=ord_tron+2
abs_tron=abs_tron+2
Case "7"
abs_tron=abs_tron-2
ord_tron=ord_tron-2
Case "1"
abs_tron=abs_tron-2
ord_tron=ord_tron+2
Case "a"
Cls
Case "z"
End
Case "9"
abs_tron=abs_tron+2
ord_tron=ord_tron-2
Case "."
abs_tron=abs_tron+3
ord_tron=abs_tron+1
End Select
Wend
'Sleep 'faire une pause