10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program ....   LJUD.SUB
12 REM ! Datum......    85-07-13
13 REM ! av             Taco Pronto
14 REM ! ABC80 i grundutf|rande
15 REM ! Ins{nt av <10>
16 REM ++++++++++++++++++++++++++++++++
17 REM Subrutin f|r ljud i egna program
18 REM 
19 REM --------------------------------
100 REM 
110 REM ditt program
120 REM 
140 REM 
150 RESTORE 230 : REM utpekar aktuell DATA-rad
160 IF T%<>-1% READ T%,F% : GOSUB 220 : GOTO 160 : REM oljud!
170 REM 
180 REM forts ditt program
190 REM 
200 END 
210 REM ==== ljud-subr + ljud-data   T%=tid, F%=frekvens, parvis ====
220 FOR I%=0% TO T% : OUT 6%,0%,6%,121% : FOR J%=0% TO F% : NEXT J% : NEXT I% : RETURN 
230 DATA 200,3,185,5,170,7,155,9,140,10,125,13,110,15,95,17,80,18,65,20,100,50,-1,-1