listing gfa hypnodot

rem routine in gfa to do the file for maxdot12

RESERVE 32000
tab$=SPACE$(1540*2)
tab%=V:tab$
FOR i%=0 TO 1539
  p%=INT(32767.5+32767.5*SIN(i%*2*PI/1540))
  CARD{tab%+i%*2}=p%
NEXT i%
BSAVE "SIN1540.GLK",tab%,1540*2
FOR i%=0 TO 511
  p%=INT(32767.5+32767.5*SIN(i%*2*PI/512))
  CARD{tab%+i%*2}=p%
NEXT i%
BSAVE "SIN512.GLK",tab%,512*2