10 PAPER 7: INK 0: BRIGHT 0: BORDER 6
   20 LET addr=62835
   25 LET char=CODE "@"
   30 REM  search for glyph 
   35 LET a=addr: LET c=char
   40 LET c=c-32
   50 LET b=PEEK a
   60 IF c=0 THEN LET glyph=a: GO TO 1000
   70 LET c=c-1: LET a=a+1+2*b
   90 GO TO 50
 1000 REM  plot glyph on screen 
 1005 BORDER 5
 1010 PRINT AT 0,0; BRIGHT 1;CHR$ (char)
 1015 LET pairs=PEEK glyph
 1020 PRINT AT 1,0;"pairs=";pairs
 1021 PRINT AT 2,0;"addr=";glyph
 1025 LET glyph=glyph+1
 1030 LET pen=0: LET s=5
 1035 LET x=80: LET y=0
 1040 LET px=PEEK glyph
 1041 LET py=PEEK (glyph+1)
 1045 REM PRINT AT 0,10;px;" ";py;" ": BEEP .5,1
 1050 IF px=128 THEN GO TO 1100
 1055 IF pen=1 THEN DRAW (px-mx)*s,(py-my)*s: GO TO 1080
 1060 PLOT x+px*s,y+py*s: LET pen=1
 1080 LET glyph=glyph+2
 1090 LET pairs=pairs-1
 1092 LET mx=px: LET my=py
 1095 IF pairs>0 THEN GO TO 1040
 1099 STOP 
 1100 REM  pen up 
 1110 LET pen=0
 1120 GO TO 1080