;test me beautifull
;by ps

label sinusmod_call

;if init == 1 do math else init
compare sinusmod 1
isequal sinusmod_math

setstring pi 3.1415926
multiply 2 pi twopi
;subtract var3 var4 thesurge         already done on main and its called t2
multiply t2 var6 thebase
multiply var5 twopi phaser
setstring sinusmod 1
goto exit_sinmod_init

label sinusmod_math
subtract var1 somecounter ourcounter
;info ourcounter
divide thebase ourcounter ourxvalue
multiply ourxvalue twopi theothervalue
add phaser theothervalue sinusite
sin sinusite sinhue
multiply var7 sinhue sinusmod
add sinusmod var3 var3
return

label exit_sinmod_init


