32 lines
638 B
Text
32 lines
638 B
Text
' version 27-10-2016
|
|
' compile with: fbc -s console
|
|
|
|
#Define max_doors 100
|
|
|
|
Dim As ULong c, n, n1, door(1 To max_doors)
|
|
|
|
' toggle, at start all doors are closed (0)
|
|
' 0 = door closed, 1 = door open
|
|
For n = 1 To max_doors
|
|
For n1 = n To max_doors Step n
|
|
door(n1) = 1 - door(n1)
|
|
Next
|
|
Next
|
|
|
|
' count the doors that are open (1)
|
|
Print "doors that are open nr: ";
|
|
For n = 1 To max_doors
|
|
If door(n) = 1 Then
|
|
Print n; " ";
|
|
c = c + 1
|
|
End If
|
|
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
|