[n4r9]

Does BASIC allow padded string formatting? If so, you only need the one loop.

[szc]

No, but there are other tricks, such as prepending enough zeros and then taking the rightmost 4 characters from the string...

FOR I = 0 TO 9999 : A$ = RIGHT$("000"+STR$(I),4) : ... rest of the code : NEXT I