Data update

Task/Gray-code/FreeBASIC/gray-code.basic

@@ -2,31 +2,23 @@
 ' compile with: fbc -s console
 
 Function gray2bin(g As UInteger) As UInteger
-
     Dim As UInteger b = g
-
     While g
         g Shr= 1
         b Xor= g
     Wend
-
     Return b
-
 End Function
 
 Function bin2gray(b As UInteger) As UInteger
-
     Return b Xor (b Shr 1)
-
 End Function
 
 ' ------=< MAIN >=------
 
 Dim As UInteger i
-
 Print " i     binary     gray   gra2bin"
 Print String(32,"=")
-
 For i = 0 To 31
     Print Using "## --> "; i;
     print Bin(i,5); " --> ";