10 PAPER 7: INK 0: BRIGHT 0: BORDER 6
   20 LET addr=50000
   25 LET char=CODE "&"
   26 LET step=3
   30 REM  search for glyph 
   35 LET a=addr: LET c=char
   40 LET c=c-32
   50 LET p=0: REM  pairs 
   55 LET b=PEEK (a+6): IF (b>47) AND (b<58) THEN LET p=p+(b-48)*10
   56 LET b=PEEK (a+7): IF (b>47) AND (b<58) THEN LET p=p+b-48
   60 IF c=0 THEN GO TO 1000
   70 LET c=c-1: LET a=a+9+2*p
   90 GO TO 50
 1000 REM  plot glyph on screen 
 1005 BORDER 5
 1006 LET g=a+8
 1010 PRINT AT 0,0; BRIGHT 1;CHR$ (char)
 1020 PRINT AT 1,0;"pairs=";p
 1021 PRINT AT 2,0;"addr=";g
 1025 GO SUB 1200
 1030 LET pen=0
 1035 LET x=128: LET y=86
 1040 LET px=PEEK (g)
 1041 LET py=PEEK (g+1)
 1050 IF (px=32) AND (py=82) THEN GO TO 1100
 1052 LET px=px-82
 1053 LET py=py-82
 1055 IF pen=1 THEN DRAW step*(px-mx),-step*(py-my): GO TO 1080
 1060 PLOT x+step*px,y-step*py: LET pen=1
 1080 LET g=g+2
 1090 LET p=p-1
 1092 LET mx=px: LET my=py
 1095 IF p>0 THEN GO TO 1040
 1099 STOP 
 1100 REM  pen up 
 1110 LET pen=0
 1120 LET px=0: LET py=0
 1130 GO TO 1080
 1200 REM  draw margins 
 1210 LET x=128+step*((PEEK g)-82): PLOT x,0: DRAW 0,10
 1220 LET x=128+step*(PEEK (g+1)-82): PLOT x,0: DRAW 0,10
 1230 LET p=p-1: LET g=g+2
 1240 RETURN