Ok thanks guys, i got it working. For some reason I thought that the ending quotation mark counted as an extra byte.
.CONV
For(B,0,26)
B*7→A
[]→Str1
".01 "
"1 "
"5 "
"10 "
"25 "
"50 "
"75 "
"100 "
"200 "
"300 "
"400 "
"500 "
"750 "
"1000 "
"5000 "
"10000 "
"25000 "
"50000 "
"75000 "
"100000 "
"200000 "
"300000 "
"400000 "
"500000 "
"750000 "
"1000000"
[000000000000000000]→Str2
ClrHome
Copy(A+Str1,Str2,7)
Output(0,0,Str2)
Pause 500
End