Das Proggi sieht so aus:

Code:
$crystal = 4000000
$baud = 9600

Dim A As Integer
     A = 0
Do

Print "6"

     A = A + 1

Loop Until A = 10

End