See all articles from ZX-Appeal July/August 1986
Program that listens to the EAR port and plots the audio data.
2 REM ZX Appeal Jul/August 1986
3 REM p21
100 REM Audioscan
102 REM DEF FN a(l)=1+INT (.5+l/30)
103 GO SUB 410
105 GO TO 200
110 DRAW INK 1;x-n,INT (-l+y)/1.5: LET x=n: LET y=l:RETURN
120 DRAW INK 2;0,-l/2: RETURN
200 PAPER 0: INK 7: BRIGHT 1: CLS
210 PRINT AT 0,10;"Audioscan"
220 PRINT AT 2,2;"This program gives a graphic representation of a signal input to the 2068 ear socket."
225 PRINT AT 7,2;"Load tape or other signal source to the ear socket and 1select option:"
230 PRINT AT 12,5;"1--line graph";AT 13,5;"2--bar graph";AT 14,5;"3--point graph"
240 INPUT INVERSE 1;"enter option (1 to 3)";q: IF q<1 or q>3 THEN GO TO 240
250 CLS: PRINT #1; INVERSE 1;"space to freeze scan": LET i$="": LET x=0: LET y=0
255 FOR n=0 TO 255: LET l=USR tone: PLOT n,INT (l/1.5)
260 IF q<3 THEN GO SUB 100+(q*10)
265 LET i$=INKEY$: IF i$=" " THEN GO TO 300
270 NEXT n
275 GO TO 250
300 PRINT #1; INVERSE 1;"m=menu r=restart e=end": pause 0
310 LET i$=INKEY$: IF i$="m" THEN RUN
320 IF i$="r" THEN GO TO 270
330 IF i$="e" THEN STOP
400 DATA 1,0,255,17,0,0,219,254,203,119,32,1,19,16,247,55,75,201
410 LET tone=65368
420 FOR n=tone to tone+17: READ d: POKE n,d: NEXT n: RETURN
425 STOP