---
title: "2068 PC Board Aid"
type: "article"
slug: "2068-pc-board-aid"
url: "http://localhost/article/2068-pc-board-aid/"
markdown_url: "http://localhost/article/2068-pc-board-aid.md"
published_at: "2020-10-27T17:09:43+00:00"
modified_at: "2024-05-26T13:21:16+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "This program is designed as an aid in laying out a PC board for the Sinclair computers. The 2040 listing will give the correct 0.1\" spacing for the edge connector."
category:
  - name: "SyncWare News"
    slug: "syncware-news"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/syncware-news/"
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/"
indiv:
  - name: "John McMichael"
    slug: "john-mcmichael"
    taxonomy: "indiv"
    url: "http://localhost/indiv/john-mcmichael/"
publication: "SyncWare News"
publication_r:
  id: 10245
  title: "SyncWare News"
  type: "periodical"
  url: "http://localhost/periodical/syncware-news/"
authors: "John McMichael"
volume: "3"
issue: "5"
issues_articles:
  - id: 26686
    title: "SyncWare News v3 n5"
    type: "issue"
    url: "http://localhost/issue/syncware-news-v3-n5/"
pages: "23"
pubdate: "May-June 1986"
archive_link: false
volumeissue: "v3n5"
companies_articles:
  - id: 10989
    title: "John McMichael"
    type: "company"
    url: "http://localhost/company/john-mcmichael/"
article_media:
  - id: 51107
    title: "PCB Aid"
    type: "computer_media"
    url: "http://localhost/computer_media/pcb-aid/"
---

# 2068 PC Board Aid

This program is designed as an aid in laying out a PC board for the Sinclair computers. The 2040 listing will give the correct 0.1″ spacing for the edge connector.

## Source Code: PCB Aid

```
    5 CLS : PLOT 40,20: DRAW 110,0: DRAW 60,140: DRAW -110,0: DRAW -60,-140: DRAW 0,-4: DRAW 110,0: PLOT 150,20: DRAW 0,-4: DRAW 60,140: DRAW 0,-4: PLOT 65,20: DRAW 3,10: DRAW 4,0: DRAW -3,-10: PLOT 180,20: DRAW 60,140: PLOT 178,25: DRAW 2,-5: DRAW 5,2: PLOT 235,158: DRAW 5,2: DRAW 2,-5
    7 PRINT AT 7,14;"PRINTED";AT 9,13;"CIRCUIT";AT 11,12;"BOARD";AT 17,7;"slot";AT 9,24; FLASH 1;"LENGTH?"; FLASH 0
   10 LET x=144
   20 FOR n=0 TO 7
   30 READ r: IF r=256 THEN GO TO 140
   40 POKE USR CHR$ x+n,r
   50 NEXT n
   60 LET x=x+1: GO TO 20
  100 DATA 60,60,60,60,60,60,60,60
  110 DATA 63,63,63,63,63,63,63,63
  120 DATA 252,252,252,252,252,252,252,252
  130 DATA 36,0,36,0,36,0,36,0
  132 DATA 0,60,0,0,0,0,60,0
  135 DATA 256
  140 LET t$="\a\a\a\a\a\d\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a"
  150 LET b$=t$
  160 LET b$(7 TO 8)="\b\c"
  165 LET e$="\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e"
  170 INPUT "LENGTH OF P.C. BOARD IN INCHES?"'l
  175 CLS : PRINT AT 8,6;"TURN PRINTER ON AND";AT 11,3;"PRESS ANY KEY TO CONTINUE"
  176 PAUSE 4E4: CLS 
  180 LET lt=16*l-4
  190 LPRINT b$: LPRINT b$
  200 FOR n=1 TO lt
  205 LPRINT 
  210 IF n=l*8-2 THEN LPRINT e$
  220 NEXT n
  230 LPRINT t$: LPRINT t$
  240 STOP 
  300 LPRINT e$: GO TO 220
    5 CLS : PLOT 40,20: DRAW 110,0: DRAW 60,140: DRAW -110,0: DRAW -60,-140: DRAW 0,-4: DRAW 110,0: PLOT 150,20: DRAW 0,-4: DRAW 60,140: DRAW 0,-4: PLOT 65,20: DRAW 3,10: DRAW 4,0: DRAW -3,-10: PLOT 180,20: DRAW 60,140: PLOT 178,25: DRAW 2,-5: DRAW 5,2: PLOT 235,158: DRAW 5,2: DRAW 2,-5
    7 PRINT AT 7,14;"PRINTED";AT 9,13;"CIRCUIT";AT 11,12;"BOARD";AT 17,7;"slot";AT 9,24; FLASH 1;"LENGTH?"; FLASH 0
   10 LET x=144
   20 FOR n=0 TO 7
   30 READ r: IF r=256 THEN GO TO 140
   40 POKE USR CHR$ x+n,r
   50 NEXT n
   60 LET x=x+1: GO TO 20
  100 DATA 60,60,60,60,60,60,60,60
  110 DATA 63,63,63,63,63,63,63,63
  120 DATA 252,252,252,252,252,252,252,252
  130 DATA 36,0,36,0,36,0,36,0
  132 DATA 0,60,0,0,0,0,60,0
  135 DATA 256
  140 LET t$="\a\a\a\a\a\d\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a"
  150 LET b$=t$
  160 LET b$(7 TO 8)="\b\c"
  165 LET e$="\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e\e"
  170 INPUT "LENGTH OF P.C. BOARD IN INCHES?"'l
  175 CLS : PRINT AT 8,6;"TURN PRINTER ON AND";AT 11,3;"PRESS ANY KEY TO CONTINUE"
  176 PAUSE 4E4: CLS 
  180 LET lt=16*l-4
  190 LPRINT b$: LPRINT b$
  200 FOR n=1 TO lt
  205 LPRINT 
  210 IF n=l*8-2 THEN LPRINT e$
  220 NEXT n
  230 LPRINT t$: LPRINT t$
  240 STOP 
  300 LPRINT e$: GO TO 220
```