Code: Select all
For i.q = 1 To 5 ;for example if i is a file offset and we want to read more than 4GB
Debug Str(i)
Next
Code: Select all
i.q=0
Repeat
i+1
Debug Str(i)
Until i = 5
i.q=0
While i < 5
i+1
Debug Str(i)
Wend
Code: Select all
For i.q = 1 To 5 ;for example if i is a file offset and we want to read more than 4GB
Debug Str(i)
Next
Code: Select all
i.q=0
Repeat
i+1
Debug Str(i)
Until i = 5
i.q=0
While i < 5
i+1
Debug Str(i)
Wend
Code: Select all
Define i.q
Define upper.q= 9230000000000000000 ; change the 3 to a 2 and it will run.
;9223372036854775807 max 64bit int
Define lower.q = 8900000000000000001
;step
#stec= 2150000000 ; change the 5 to 4 from #stec to get right output
;2147483648 max 32bit int
For i = lower To upper Step #stec
Debug i
Next