IC Art

This little program prints out the ICs upside down with pin call outs, I wish I had used it when I built my centronic interface.

IC ART

   1 CLEAR 56575
   2 FOR a=57786 TO 57814
   3 READ b: POKE a,b
   4 NEXT a
   5 DATA 17,0,221,213,1,0,3,42,
54,92,36,126,167,31,182,18,35,19
,13,32,246,16,244,225,37,34,54,9
2,201
   6 LET p=60: LET o=23607: LET
u=57786
   9 LET d=4
  10 PRINT "how many pins?"
  20 INPUT n
  30 LET a$="[graphics]"
  39 PRINT AT d-1,7;a$
  40 LET b$="[graphics]"
  41 LET r=(n/2+1)
  42 DIM d$(7)
  43 DIM c$(n,6)
  45 FOR l=(n/2) TO 1 STEP -1
  50 PRINT AT 21,0;"enter pin #
  ";l
  51 INPUT c$(l)
  52 PRINT AT 21,0;"
  "
  54 PRINT AT 21,0;"enter pin #
  ";r: INPUT d$
 220 RANDOMIZE USR u: PRINT AT d
,0;c$(l);: POKE o,p: PRINT TAB 6
;"-▌";l;TAB 19;r;TAB 21;"▐-";: R
ANDOMIZE USR u: PRINT d$
 221 POKE o,p
 225 LET d=d+1
 230 LET r=r+1: NEXT l
 250 RANDOMIZE USR u: PRINT AT d
,7;b$: POKE o,p
 270 PRINT AT 21,0;"# of IC
  "
 280 INPUT f$
 290 RANDOMIZE USR u: PRINT AT d
-4,12;f$: POKE o,p
 300 PRINT AT 21,0;"IC code
  "
 310 INPUT g$
 320 RANDOMIZE USR u: PRINT AT d
-2,10;g$: POKE o,p
 900 STOP
 901 REM WRITTEN BY P.A.HILL-SIN
CUS 1984-JOHNSON CITY, NY 13790
 997 CLEAR
 999 SAVE "darkart"