CLS

a = 0

' VB supports varying step, which saves a line

'FOR b = 1 TO 100 STEP a

' QB does not support varying step, so we have to actually add - see below

FOR b = 1 TO 100

PRINT b

a = a XOR b

b = b XOR a

a = a XOR b

' this line is not needed if we're in VB - see above

a = a + b

NEXT