---
title: "Audioscan"
type: "article"
slug: "audioscan-3"
url: "http://localhost/article/audioscan-3/"
markdown_url: "http://localhost/article/audioscan-3.md"
published_at: "2022-09-14T02:44:16+00:00"
modified_at: "2024-05-26T13:07:07+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
category:
  - name: "LISTing Newsletter"
    slug: "listing-newsletter"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/listing-newsletter/"
post_tag:
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
publication_r:
  id: 38992
  title: "LISTing Newsletter"
  type: "periodical"
  url: "http://localhost/periodical/listing-newsletter/"
issues_articles:
  - id: 40184
    title: "LISTing Newsletter May 1988"
    type: "issue"
    url: "http://localhost/issue/listing-newsletter-may-1988/"
pages: "9"
pubdate: "May 1988"
related_articles:
  - id: 43129
    title: "Audioscan"
    type: "article"
    url: "http://localhost/article/audioscan-2/"
  - id: 38530
    title: "Audioscan"
    type: "article"
    url: "http://localhost/article/audioscan/"
  - id: 44329
    title: "A 2068 Program: Audioscan"
    type: "article"
    url: "http://localhost/article/a-2068-program-audioscan/"
archive_link: false
article_media:
  - id: 51403
    title: "Audioscan"
    type: "computer_media"
    url: "http://localhost/computer_media/audioscan/"
---

# Audioscan

## Source Code: Audioscan

```
    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    select 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
```