' 3D font table generator
' made by Svjatoslav Agejenko
' last edit 2004.01
' H-Page: svjatoslav.eu
' E-Mail: svjatoslav@svjatoslav.eu
 
DECLARE SUB ln (x1!, y1!, x2!, y2!)
SCREEN 13

FOR a = 32 TO 255
  LOCATE 2, 2
  PRINT CHR$(a)
  n$ = STR$(a)
  IF LEFT$(n$, 1) = " " THEN n$ = RIGHT$(n$, LEN(n$) - 1)

  n$ = "ltr" + n$ + ".3d"

  OPEN n$ FOR OUTPUT AS #1
  FOR y = 0 TO 15
    FOR x = 0 TO 15
      c1 = POINT(x, y)
      c2 = POINT(x + 1, y)
      IF c2 <> c1 THEN ln x + 1, y, x + 1, y + 1
    NEXT x
  NEXT y

  FOR x = 0 TO 15
    FOR y = 0 TO 15
      c1 = POINT(x, y)
      c2 = POINT(x, y + 1)
      IF c2 <> c1 THEN ln x, y + 1, x + 1, y + 1
    NEXT y
  NEXT x

  CLOSE #1
NEXT a
SCREEN 0
PRINT "done"
SYSTEM

SUB ln (x1, y1, x2, y2)
  PRINT #1, x1 - 7; y1 - 7; 0; x2 - 7; y2 - 7; 0; 10
END SUB