21 lines
348 B
Text
21 lines
348 B
Text
' version 27-10-2016
|
|
' compile with: fbc -s console
|
|
|
|
#Define max_doors 100
|
|
|
|
Dim As ULong c, n
|
|
|
|
Print "doors that are open nr: ";
|
|
For n = 1 To 10
|
|
Print n * n; " ";
|
|
c = c + 1
|
|
Next
|
|
|
|
Print : Print
|
|
Print "There are " + Str(c) + " doors open"
|
|
|
|
' empty keyboard buffer
|
|
While InKey <> "" : Wend
|
|
Print : Print "hit any key to end program"
|
|
Sleep
|
|
End
|