dim sinarr[100] as integer

sinarr[000]=0000
sinarr[001]=0063
sinarr[002]=0125
sinarr[003]=0187
sinarr[004]=0249
sinarr[005]=0309
sinarr[006]=0368
sinarr[007]=0426
sinarr[008]=0482
sinarr[009]=0536
sinarr[010]=0588
sinarr[011]=0637
sinarr[012]=0685
sinarr[013]=0729
sinarr[014]=0771
sinarr[015]=0809
sinarr[016]=0844
sinarr[017]=0876
sinarr[018]=0905
sinarr[019]=0930
sinarr[020]=0951
sinarr[021]=0969
sinarr[022]=0982
sinarr[023]=0992
sinarr[024]=0998
sinarr[025]=1000
sinarr[026]=0998
sinarr[027]=0992
sinarr[028]=0982
sinarr[029]=0969
sinarr[030]=0951
sinarr[031]=0930
sinarr[032]=0905
sinarr[033]=0876
sinarr[034]=0844
sinarr[035]=0809
sinarr[036]=0771
sinarr[037]=0729
sinarr[038]=0685
sinarr[039]=0637
sinarr[040]=0588
sinarr[041]=0536
sinarr[042]=0482
sinarr[043]=0426
sinarr[044]=0368
sinarr[045]=0309
sinarr[046]=0249
sinarr[047]=0187
sinarr[048]=0125
sinarr[049]=0063
sinarr[050]=0000
sinarr[051]=-0063
sinarr[052]=-0125
sinarr[053]=-0187
sinarr[054]=-0249
sinarr[055]=-0309
sinarr[056]=-0368
sinarr[057]=-0426
sinarr[058]=-0482
sinarr[059]=-0536
sinarr[060]=-0588
sinarr[061]=-0637
sinarr[062]=-0685
sinarr[063]=-0729
sinarr[064]=-0771
sinarr[065]=-0809
sinarr[066]=-0844
sinarr[067]=-0876
sinarr[068]=-0905
sinarr[069]=-0930
sinarr[070]=-0951
sinarr[071]=-0969
sinarr[072]=-0982
sinarr[073]=-0992
sinarr[074]=-0998
sinarr[075]=-1000
sinarr[076]=-0998
sinarr[077]=-0992
sinarr[078]=-0982
sinarr[079]=-0969
sinarr[080]=-0951
sinarr[081]=-0930
sinarr[082]=-0905
sinarr[083]=-0876
sinarr[084]=-0844
sinarr[085]=-0809
sinarr[086]=-0771
sinarr[087]=-0729
sinarr[088]=-0685
sinarr[089]=-0637
sinarr[090]=-0588
sinarr[091]=-0536
sinarr[092]=-0482
sinarr[093]=-0426
sinarr[094]=-0368
sinarr[095]=-0309
sinarr[096]=-0249
sinarr[097]=-0187
sinarr[098]=-0125
sinarr[099]=-0063

dim index as integer
dim loops as integer
dim ratio as integer
dim scale as integer
dim power as integer
dim bias as integer

ratio = 5
scale =100
bias = 200

for loops=0 andwhile loops < 100
 for index=0 andwhile index<100
  power = (sinarr[index]*ratio)/scale+bias
  setcommand(_GO,1,power)
  print(power,"\n")
  wait(100)
 next
next