 
ô >Liss "ô Copyright 1996 Steven Singer =ô Permission is granted to distribute this program freely ()ô on the condition it is not changed. 2 <ô tweakable options F Pscreenbanks%=4:ô Try 1 or 4 Z3points%=128:ô must be divisible by screenbanks% d:xss%=19:ô best if xss% and yss% have no common divisor nyss%=23 x'colourrate%=25:ô try 1, 10, 25, 100 ‚"speed%=192:ô Try 128, 192, 256 Œ –ô End of tweakable options   ھë 13 ´ب‘ 640,512 ¾‡ ب ز)ô Ensure we have enough screen memory ـق block% 32 وblock%!0=7 ًblock%!4=149 ْblock%!8=-1-ب™ "OS_ReadVduVariables",block%,block%+12size%=block%!12start%=block%!16"ç size%<81920 Œ size%=81920,dsize%=size%*screenbanks%6'ب™ "OS_ReadDynamicArea",2 ¸ ,ssize%@ç ssize%<dsize% ŒJ0   ب™ "OS_ChangeDynamicArea",2,dsize%-ssize%T*   ب™ "OS_ReadDynamicArea",2 ¸ ,ssize%^   ç ssize%<dsize% Œh"      ٌ "Insufficient memory."r,      ٌ "Quit some applications and try"|      ٌ "again."†      àگ   حڑح¤®م i%=1 ¸ screenbanks%¸   ب™ "OS_Byte",112,i%آ   غجيضàtableacc%=16384êtablelen%=tableacc%ô‏ق sintable%(tablelen%-1)!ق x%(points%-1),y%(points%-1)م i%=0 ¸ tablelen%-1&-   sintable%(i%)=µ(i%/tableacc%*2*¯)*40960ي:D
x%()=0N
y%()=0Xbhead%=0lvxang%=0€yang%=0ٹxstep%=0”ystep%=0‍
col%=0¨	cc%=0²b%=1¼ئُذ   ب™ "OS_Byte",112,b%ع   و 0,0 بœ 0ن"   بڈ بگ x%(head%),y%(head%),8î*   x%(head%)=sintable%(xang%)/4096*500ّ*   y%(head%)=sintable%(yang%)/4096*500H   xang%=(xang%+sintable%(xstep%)*speed%/4096+tableacc%) ƒ tableacc%H   yang%=(yang%+sintable%(ystep%)*speed%/4096+tableacc%) ƒ tableacc%   و 0,col% بœ 192 "   بڈ بگ x%(head%),y%(head%),8*    head%=(head%+1) ƒ points%4'   xstep%=(xstep%+xss%) ƒ tableacc%>'   ystep%=(ystep%+yss%) ƒ tableacc%H   cc%+=1R   ç cc%>=colourrate% Œ\      cc%=0f      col%=(col%+1) € 63p   حz   ب™ "OS_Byte",113,b%„   b%=(b% ƒ screenbanks%)+1ژ	   ب–ک
‎ £   ¢¬ے