10  ! This program demonstrates the LAXES command by displaying a damped sine
20  ! wave.  (Note that the amplitude, time-constant, and frequency can be    
30  ! modified.  Note also that, due to a bug, LAXES only works well with
40  ! integer labels.)
50  !
60  INTEGER NUMBER_SAMPLES
70  REAL ctr,LENGTH_OF_SCAN,SAMPLE_SIZE,AMP,TC,FREQ
80  LENGTH_OF_SCAN=10 @ NUMBER_SAMPLES=200 
90  SAMPLE_SIZE=LENGTH_OF_SCAN/NUMBER_SAMPLES 
100 AMP=5 @ TC=2 @ FREQ=1 
110 !
120 PEN 1 @ GCLEAR @ CSIZE 4 @ FRAME @ RAD @ LOCATE 20,180,20,80 
130 SCALE 0,LENGTH_OF_SCAN,-AMP,AMP @ LAXES 1,1 
140 !
150 ctr=0 
160 MOVE ctr,AMP*EXP((-ctr)/TC)*SIN(2*PI*FREQ*ctr) 
170 !
180 FOR sample=1 TO NUMBER_SAMPLES 
190    ctr=ctr+SAMPLE_SIZE 
200    DRAW ctr,AMP*EXP((-ctr)/TC)*SIN(2*PI*FREQ*ctr) 
210 NEXT sample 
220 !                  
230 END