---
title: "Listing Scanner"
type: "article"
slug: "listing-scanner-2"
url: "http://localhost/article/listing-scanner-2/"
markdown_url: "http://localhost/article/listing-scanner-2.md"
published_at: "2025-08-02T14:41:41+00:00"
modified_at: "2026-06-21T23:37:34+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2025/08/SyncWare-News-v1n1-6_0068-1024x892-1.jpg"
excerpt: "Here is a short listing you might find useful. I developed it after trying to find the mistakes, and there were several, in a 12K long program that I hand-loaded from a magazine listing. My eyes could not take the strain of staring at the TV and then the listing, back and forth over and…"
category:
  - name: "SyncWare News"
    slug: "syncware-news"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/syncware-news/"
post_tag:
  - name: "Full Text"
    slug: "fulltext"
    taxonomy: "post_tag"
    url: "http://localhost/tag/fulltext/"
  - name: "TS 1000"
    slug: "ts1000"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts1000/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 1000"
    slug: "ts-1000"
    taxonomy: "model"
    url: "http://localhost/model/ts-1000/"
indiv:
  - name: "Paul Holmgren"
    slug: "paul-holmgren"
    taxonomy: "indiv"
    url: "http://localhost/indiv/paul-holmgren/"
publication_r:
  id: 10245
  title: "SyncWare News"
  type: "periodical"
  url: "http://localhost/periodical/syncware-news/"
authors_r:
  - name: "Paul Holmgren"
    slug: "paul-holmgren"
    taxonomy: "indiv"
    url: "http://localhost/indiv/paul-holmgren/"
volume: "1"
issues_articles:
  - id: 38991
    title: "SyncWare News v1"
    type: "issue"
    url: "http://localhost/issue/syncware-v1/"
pages: "73"
pubdate: "1984"
archive_link: false
---

# Listing Scanner

Here is a short listing you might find useful. I developed it after trying to find the mistakes, and there were several, in a 12K long program that I hand-loaded from a magazine listing. My eyes could not take the strain of staring at the TV and then the listing, back and forth over and over. Ergo, this routine, which can be placed anywhere in a listing. It uses about 200 bytes, and works great in FAST mode. I don’t suggest using VAL within the loop because of its effect on program speed.

```
10 LET D=VAL "16509"
15 CLS
20 LET G=PEEK D*256+PEEK (D+SGN PI)
25 LET D=D+VAL "4"
30 PRINT AT PI,4-LEN STR$ G;G;
35 IF PEEK D=126 THEN LET D=D+6
40 IF PEEK D=118 THEN LET G=NOT G
45 IF G THEN PRINT CHR$ PEEK D
50 LET D=D+SGN PI
55 IF G THEN GOTO 35
60 IF PEEK D=118 THEN STOP
65 PAUSE D
70 GOTO VAL "15"
```