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.

For best results, xerox the thermal paper, fold it in half and line up the top and bottom edges and you can then line up both sides of your PC board for a perfect match every time.

   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$="▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
 150 LET b$=t$
 160 LET b$(7 TO 8)="▒▒"
 165 LET 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