10 ! SKALSPEL.800
11 ! Frambringar ljud p} ABC800 M/C.
20 ! av B M}rtensson W & M Lund 1983
30 ! F|r experiment m m
31 ! ==================================
40 EXTEND : INTEGER 
41 ; CHR$(12)
50 ; " SKALSPEL.800       B M}rtensson Word & Music Lund 1983 ";TAB(80) ""
51 ; STRING$(80,61)
60 ; 
61 ; "Experimentera med parametrarna!"
62 ; : ; 
70 INPUT "Vilken startton (1)? "Startton
80 INPUT "Vilken slutton (max 242)? "Slutton
90 INPUT "Vilket antal toner (l}gt tal=m}nga)? "Step
100 INPUT "Vilken l{ngd-parameter (255-200)? "L{ngd
110 INPUT "Hur l}ng paus (100)?"Tid
120 ! Tonsekvensalstrare -----------------------
130 FOR Frek=Startton TO Slutton STEP Step
140   Z1=FNTut(Frek,L{ngd)
150   FOR Paus=1 TO Tid : NEXT Paus 
160 NEXT Frek 
170 ! LJUDFUNKTIONEN UR BIT F\R BIT MED ABC800
180 DEF FNTut(Frek,L{ngd) LOCAL Tut$=15
190   Tut$=CHR$(66,22,0,219,5,197,16,254,193,27,122,179,32,245,201)
200   RETURN CALL(VARPTR(Tut$),Frek*256+L{ngd)
210 FNEND