DECLARE SUB jofont (text$, y, x, justify)
SCREEN 9, 0, 1, 0


CALL jofont("abbbaaaa", 30, 20, 0)
PCOPY 1, 0

SUB jofont (text$, y, x, justify)
'Jo font routine
'for screen 9
DIM font(7, 11, 58) AS LONG


DIM ch(70, 58)
IF starry = 0 THEN
OPEN "c:\bas\font\font.dat" FOR INPUT AS #1
INPUT #1, letters
FOR c = 1 TO letters
FOR b = 1 TO 10
INPUT #1, font(1, b, c), font(2, b, c), font(3, b, c), font(4, b, c), font(5, b, c), font(6, b, c), font(7, b, c)
NEXT b
NEXT c
CLOSE #1

FOR c = 1 TO letters
CLS
FOR a = 1 TO 7
FOR b = 1 TO 10
IF font(a, b, c) > 0 THEN
PSET (a + (nop), b + lin), font(a, b, c)
END IF
NEXT b
NEXT a
GET (0, 0)-(7, 10), ch(c, c)
NEXT c
CLS
starry = 1
END IF


SELECT CASE justify
CASE 0
CASE 1
'<----left---->
y = 0
'<----left---->
CASE 2
'<----centered---->
y = 320 - ((LEN(text$) / 2) * 10)
'<----centered---->
CASE 3
'<----right---->
y = 640 - (LEN(text$) * 10)
'<----right---->
END SELECT

lin = x
nop = y

FOR no = 1 TO LEN(text$)
IF linebreak > 20 THEN
SLEEP
CLS
lin = 0
nop = 0
linebreak = 0
END IF
IF kop > 60 THEN
kop = 0
nop = 0
lin = lin + 20
linebreak = linebreak + 1
END IF
letter$ = MID$(text$, no, 1)

SELECT CASE letter$
CASE "a"
c = 1
CASE "b"
c = 2
CASE "c"
c = 3
CASE "d"

CASE "e"

CASE "f"

CASE "g"

CASE "h"

CASE "i"

CASE "j"

CASE "k"

CASE "l"

CASE "m"

CASE "n"

CASE "o"

CASE "p"

CASE "q"

CASE "r"

CASE "s"

CASE "t"

CASE "u"

CASE "v"

CASE "w"

CASE "x"

CASE "y"

CASE "z"

CASE "!"

CASE ","

CASE "."

CASE ";"

CASE "?"

CASE "1"

CASE "2"

CASE "3"

CASE "4"

CASE "5"

CASE "6"

CASE "7"

CASE "8"

CASE "9"

CASE "0"

CASE "("

CASE ")"

CASE "@"

CASE "#"

CASE "$"

CASE "%"

CASE "^"

CASE "&"

CASE "*"

CASE "|"

CASE "/"

CASE "+"

CASE "-"

CASE "~"

CASE "'"

CASE "\"

CASE ":"


END SELECT
nop = nop + 10
kop = kop + 1

'PCOPY 1, 0
NEXT no

END SUB