It works, but...January 3 2012 at 5:55 PM
|lawgin (no login)|
Response to variation without an array
If you run it enough times, eventually you get an overflow for cycle%. Also, apparently the name data$ is not allowed in qb64.
This version seems to work ok using the same string:
data$ = "01020304050607080910111213141516171819202122232425262728293031323334353637383940414243444546474849"
d = -1
LOCATE 3, 1: PRINT "Hit any key to get your next pick"
d = (d + 2) MOD LEN(data$)
IF INKEY$ <> "" THEN
PRINT MID$(data$, d, 2)
data$ = LEFT$(data$, d - 1) + MID$(data$, d + 2)
LOOP WHILE LEN(data$) > 86