DECLARE SUB BlockFont (txt$, x!, y!, size!, c1!, c2!, effect!)
REM Blockfont
REM ---------
REM Programmiert 2004 von BladeSoft
REM -------------------------------
REM
REM Dieses Programm is Freeware darf also und soll
REM auch weitergegeben werden. Falls ihr etwas
REM ver„ndern wollt oder Vorschl„ge habt schreibt
REM mir eine E-Mail (smirizzi@aol.com).
REM
REM SYNTAX:
REM -------
REM txt$ - Text der ausgegeben werden soll
REM x    - Horizontale Position
REM y    - Vertikale Position
REM size - GrӇe der Schrift
REM c1   - Randfarbe
REM c2   - F�llfarbe
REM effect - 0 Normal - 1 Schraffiert - 2 Dreidimensional - 3 Kursiv
REM
REM ACHTUNG: Der Farbwert von Farbe 5 wird auf 0 gesetzt,
REM deshalb sollte die Farbe 5 nicht benutzt werden.
REM Des weiteren sollte die erste Zeile frei gelassen werden
REM da sie f�r die Routine ben”tigt wird.

CLS
SCREEN 12

BlockFont "BLOCKFONT", 150, 50, 5, 1, 9, 0
BlockFont "Programmiert von BladeSoft", 120, 150, 2, 4, 12, 0
BlockFont "  NORMAL", 180, 200, 3, 7, 8, 0
BlockFont "SCHRAFFIERT", 180, 250, 3, 7, 8, 1
BlockFont "    3D", 180, 300, 3, 7, 8, 2
BlockFont "  KURSIV", 180, 350, 3, 7, 8, 3

SUB BlockFont (txt$, x, y, size, c1, c2, effect)
LOCATE 1, 1: COLOR 0: PRINT "                                         "
PALETTE 5, 0
LOCATE 1, 1: COLOR 5: PRINT txt$

FOR letters = 0 TO LEN(txt$) * 8
FOR ly = 0 TO 16

IF POINT(letters, ly) = 5 THEN

IF effect = 1 THEN
LINE (x + letters * size, y + ly * size)-(x + letters * size + size, y + ly * size + size), c1
END IF

IF effect = 0 THEN
LINE (x + letters * size, y + ly * size)-(x + letters * size + size, y + ly * size + size), c1, B
LINE (x + letters * size + 1, y + ly * size + 1)-(x + letters * size + size - 1, y + ly * size + size - 1), c2, BF
END IF

IF effect = 2 THEN
LINE (x + letters * size, y + ly * size)-(x + letters * size + size, y + ly * size + size), c1
LINE (x + letters * size + 2, y + ly * size + 2)-(x + letters * size + size + 2, y + ly * size + size + 2), c1, B
END IF

IF effect = 3 THEN
LINE (x + letters * size + 1 + (16 - ly), y + ly * size + 1)-(x + letters * size + size - 1 + (16 - ly), y + ly * size + size - 1), c2, BF
END IF

END IF

NEXT
NEXT
COLOR 15
END SUB