DIM buf(1000) AS STRING *43

SCREEN 12
OPEN "album001.txt" FOR INPUT AS 1

i=0
DO
   INPUT #1,  a$, b$, c$, d$, e$
   buf(i) = c$
   i=i+1
LOOP UNTIL EOF(1)
ndados = i-1


FOR j = 0 TO ndados
   c$ = buf(j)
   FOR i = 1 TO LEN(c$)
      n = dic(MID$(c$,i,1))

      x = (i-1)/LEN(c$)*43*640/40
      y = n/63*450

      IF i = 1 THEN
         PSET(x,y)
      ELSE
         LINE -(x,y)INT(j/ndados*15)
      END IF

      CIRCLE(x,y),2,2
   NEXT
NEXT


END

FUNCTION dic(t$)
   safe$ = "abcdefghijklmnopqrstuvwyxzABCDEFGHIJKLMNOPQRSTUVWYXZ0123456789-_"
   FOR j = 1 TO LEN(safe$)
      IF t$ = MID$(safe$,j,1) THEN n = j
   NEXT
   dic = n
END FUNCTION