' file sinetest.lst
'
DEFWRD "a-z"                                    ! Use only integers
'
ass$=SPACE$(1000)                               ! Load assembler program
ass%=VARPTR(ass$)
BLOAD "sine.sup",ass%
'
f1=65536/639                                    ! Constants
f2=32767/199
'
s=6553                                          ! Step width steps
'                                               ! through number ring (angles)
j=-32768+s                                      ! several times with
'                                               ! phase delays
WHILE j<>-32768                                  ! ->Loop plots
  '                                             ! Sine curve begins
  PLOT (j+32768)/f1,200-C:ass%(j)/f2            ! at several points
  '                                             ! "simultaneously"
  ADD j,s
WEND