' Noise reduction
' made by Svjatoslav Agejenko
' in 2003.12
' H-Page: svjatoslav.eu
' E-Mail: svjatoslavagejenko@gmail.com
 


DECLARE SUB start ()
DEFINT A-Y
DIM SHARED avb(1 TO 100)
DIM SHARED byte AS STRING * 1
DIM SHARED po, pod
DIM SHARED file1$, file2$

start

INPUT "average factor:", po
INPUT "divide factor:", pod

OPEN file2$ FOR BINARY AS #1
OPEN file1$ FOR BINARY AS #2

SCREEN 12
px = 0
1
GET #1, , byte
c = ASC(byte)
IF c > 127 THEN c = c - 255

FOR a = 1 TO po - 1
avb(a) = avb(a + 1)
NEXT a
avb(po) = c

b = 0
FOR a = 1 TO po
b = b + avb(a)
NEXT a

b = b / pod
'LINE (px + 1, 0)-(px + 1, 260), 14
LINE (px, 0)-(px, 260), 0
PSET (px, c + 130), 12
PSET (px, b + 130), 14
px = px + 1
IF px > 639 THEN px = 1
IF b < 0 THEN b = b + 255
IF b > 255 THEN b = 255
byte = CHR$(b)
PUT #2, , byte
'c$ = INPUT$(1)
IF EOF(1) = 0 THEN GOTO 1

CLOSE #2
CLOSE #1

SUB start

IF COMMAND$ = "" THEN END
b$ = COMMAND$
file2$ = b$
file1$ = ""
FOR a = 1 TO LEN(b$)
c$ = RIGHT$(LEFT$(b$, a), 1)
IF c$ = "." OR c$ = " " THEN GOTO 2
file1$ = file1$ + c$
NEXT a
2
file1$ = file1$ + ".awe"

END SUB