12 lines
462 B
Text
12 lines
462 B
Text
arraybase 1
|
|
dim byValue = {10, 18, 26, 32, 38, 44, 50, 54, 58, 62, 66, 70, 74, 78, 82, 86, 90, 94, 98, 100}
|
|
dim byLimit = {6, 11, 16, 21, 26, 31, 36, 41, 46, 51, 56, 61, 66, 71, 76, 81, 86, 91, 96}
|
|
|
|
for byCount = 1 to 100
|
|
for byCheck = 0 to byLimit[?]
|
|
if byCount < byLimit[byCheck] then exit for
|
|
next byCheck
|
|
print ljust((byCount/100),4," "); " -> "; ljust((byValue[byCheck]/100),4," "); chr(9);
|
|
if byCount mod 5 = 0 then print
|
|
next byCount
|
|
end
|