10 REM .  SAVE LJUD2
20 REM ------------------------------
30 REM 86-02-24
40 REM DAVID ANDERSSON <5201>
50 REM 
60 REM PROGRAMMET ANROPAR MASKINKODS-
70 REM RUTINER F\R ATT SPELA IN OCH
80 REM ]TERGE LJUD.
90 REM ------------------------------
100 REM
110 A1%=51200% : REM ADRESS F\R LJUD-DATA
120 OUT 58%,INP(58%) OR 8% : REM PINNE 2=-7V
130 ; 
140 ; 'Spela in med BAK]TPIL + MELLANSLAG'
150 ; ']terge med FRAM]TPIL'
160 ; 'Titta p} lagrade bitar med P'
170 ; 'Ber{kna filterfrekvenser med R'
180 ; 'Avbryt funktionerna med RETURN'
190 REMMAIN LOOP
200 GET A$
210 IF ASC(A$)=8% GOSUB 1000
220 IF ASC(A$)=9% GOSUB 2000
230 IF A$='P' OR A$='p' GOSUB 3000
240 IF A$='R' OR A$='r' GOSUB 4000
250 GOTO 190
1000 REMSPELA IN
1010 ; '<-- In';
1020 Z%=CALL(61440%)
1030 ; CHR$(13%)SPACE$(10%)CHR$(13%);
1040 RETURN 
2000 REM]TERGE
2010 ; '--> Ut';
2020 Z%=CALL(61443%)
2030 ; CHR$(13%)SPACE$(10%)CHR$(13%);
2040 RETURN 
3000 REMBITPEEK
3020 FOR A%=A1% TO 61439%
3030 FOR I%=7% TO 0% STEP -1%
3040 IF PEEK(A%) AND 2%^I% ; '1'; ELSE ; '0';
3050 NEXT I%
3060 IF INP(56%)<128% GET A$
3070 IF A$<>CHR$(13%) NEXT A%
3080 ; 
3090 RETURN 
4000 REMBER[KNA RCN[T
4010 ONERRORGOTO 4080
4020 ; 'C (nF)   ='; : INPUT C
4030 ; 'R (kohm) ='; : INPUT R
4040 C=C*1E-9
4050 R=R*1000
4060 ; 'f (Hz)   =';1/R/C/2/PI : ; 
4070 GOTO 4010
4080 RETURN