'Awesome font program. Feel free to leech!
'blackvoid13@hotmail.com
'http://www.geocities.com/area51/labyrinth/7661

DECLARE SUB fonts (tt$, left%, top%, det%) '

DIM SHARED t(6) AS STRING

SCREEN 13

fonts "ISNT THIS JUST THE BOMB!", 10, 10, 2
fonts "ANY COLOUR YOU WANT", 20, 20, 1
fonts "BLUE COLOURS", 30, 30, 3
fonts "GREEN COLOURS", 30, 40, 1
fonts "RED COLOURS", 30, 50, 6
fonts "GRAY COLOURS", 30, 60, 5
fonts "PURPLE COLOURS", 30, 70, 2

DEFINT A-Z
SUB fonts (tt$, left%, top%, det%) '
 SELECT CASE det%                          ' Font Color:
   CASE 1: MM% = 2: BT% = 190: dm% = 95    ' Green
   CASE 2: MM% = 34: BT% = 107: dm% = 58   ' Purple
   CASE 3: MM% = 9: BT% = 127: dm% = 54    ' Blue
   CASE 4: MM% = 0: BT% = 0: dm% = 0       ' Black (Masking)
   CASE 5: MM% = 25: BT% = 20: dm% = 31    ' Shades
   CASE 6: MM% = 40: BT% = 112: dm% = 12   ' Red
 END SELECT

  FOR GG = 1 TO LEN(tt$)
    SELECT CASE MID$(tt$, GG, 1)
      CASE "A"
        t(1) = "0110"
        t(2) = "1001"
        t(3) = "1111"
        t(4) = "1001"
        t(5) = "1001"
      CASE "B"
        t(1) = "1110"
        t(2) = "1001"
        t(3) = "1010"
        t(4) = "1001"
        t(5) = "1110"
      CASE "C"
        t(1) = "0110"
        t(2) = "1001"
        t(3) = "1000"
        t(4) = "1001"
        t(5) = "0110"
      CASE "D"
        t(1) = "1110"
        t(2) = "1001"
        t(3) = "1001"
        t(4) = "1001"
        t(5) = "1110"
      CASE "E"
        t(1) = "1111"
        t(2) = "1000"
        t(3) = "1111"
        t(4) = "1000"
        t(5) = "1111"
      CASE "F"
        t(1) = "1111"
        t(2) = "1000"
        t(3) = "1110"
        t(4) = "1000"
        t(5) = "1000"
      CASE "G"
        t(1) = "0111"
        t(2) = "1000"
        t(3) = "1010"
        t(4) = "1001"
        t(5) = "0110"
      CASE "H"
        t(1) = "1001"
        t(2) = "1001"
        t(3) = "1111"
        t(4) = "1001"
        t(5) = "1001"
      CASE "I"
        t(1) = "1111"
        t(2) = "0100"
        t(3) = "0100"
        t(4) = "0100"
        t(5) = "1111"
      CASE "J"
        t(1) = "0111"
        t(2) = "0001"
        t(3) = "0001"
        t(4) = "1001"
        t(5) = "0110"
      CASE "K"
        t(1) = "1001"
        t(2) = "1010"
        t(3) = "1100"
        t(4) = "1010"
        t(5) = "1001"
      CASE "L"
        t(1) = "1000"
        t(2) = "1000"
        t(3) = "1000"
        t(4) = "1000"
        t(5) = "1111"
      CASE "M"
        t(1) = "1001"
        t(2) = "1111"
        t(3) = "1001"
        t(4) = "1001"
        t(5) = "1001"
      CASE "N"
        t(1) = "1001"
        t(2) = "1101"
        t(3) = "1011"
        t(4) = "1001"
        t(5) = "1001"
      CASE "O"
        t(1) = "0110"
        t(2) = "1001"
        t(3) = "1001"
        t(4) = "1001"
        t(5) = "0110"
      CASE "P"
        t(1) = "1110"
        t(2) = "1001"
        t(3) = "1110"
        t(4) = "1000"
        t(5) = "1000"
      CASE "Q"
        t(1) = "0110"
        t(2) = "1001"
        t(3) = "1001"
        t(4) = "1011"
        t(5) = "0110"
      CASE "R"
        t(1) = "1110"
        t(2) = "1001"
        t(3) = "1110"
        t(4) = "1010"
        t(5) = "1001"
      CASE "S"
        t(1) = "0111"
        t(2) = "1000"
        t(3) = "0110"
        t(4) = "0001"
        t(5) = "1110"
      CASE "T"
        t(1) = "1111"
        t(2) = "0100"
        t(3) = "0100"
        t(4) = "0100"
        t(5) = "0100"
      CASE "U"
        t(1) = "1001"
        t(2) = "1001"
        t(3) = "1001"
        t(4) = "1001"
        t(5) = "0110"
      CASE "V"
        t(1) = "1001"
        t(2) = "1001"
        t(3) = "1001"
        t(4) = "1010"
        t(5) = "010"
      CASE "W"
        t(1) = "1001"
        t(2) = "1001"
        t(3) = "1001"
        t(4) = "1111"
        t(5) = "0110"
      CASE "X"
        t(1) = "1001"
        t(2) = "1001"
        t(3) = "0110"
        t(4) = "1001"
        t(5) = "1001"
      CASE "Y"
        t(1) = "1001"
        t(2) = "1001"
        t(3) = "0101"
        t(4) = "0010"
        t(5) = "1100"
      CASE "Z"
        t(1) = "1110"
        t(2) = "0010"
        t(3) = "0100"
        t(4) = "1000"
        t(5) = "1111"
      CASE "?"
        t(1) = "1110"
        t(2) = "0001"
        t(3) = "0110"
        t(4) = "0000"
        t(5) = "0100"
      CASE " "
        t(1) = "0000"
        t(2) = "0000"
        t(3) = "0000"
        t(4) = "0000"
        t(5) = "0000"
      CASE "["
        t(1) = "1110"
        t(2) = "1000"
        t(3) = "1000"
        t(4) = "1000"
        t(5) = "1110"
      CASE "]"
        t(1) = "0111"
        t(2) = "0001"
        t(3) = "0001"
        t(4) = "0001"
        t(5) = "0111"
      CASE "."
        t(1) = "0000"
        t(2) = "0000"
        t(3) = "0000"
        t(4) = "1100"
        t(5) = "1100"
      CASE "@"
        t(1) = "0111"
        t(2) = "1011"
        t(3) = "1011"
        t(4) = "1000"
        t(5) = "1111"
      CASE ","
        t(1) = "0000"
        t(2) = "0000"
        t(3) = "0000"
        t(4) = "0100"
        t(5) = "1000"
      CASE "0"
        t(1) = "0110"
        t(2) = "1101"
        t(3) = "1001"
        t(4) = "1011"
        t(5) = "0110"
      CASE "1"
        t(1) = "1100"
        t(2) = "0100"
        t(3) = "0100"
        t(4) = "0100"
        t(5) = "1110"
      CASE "2"
        t(1) = "0110"
        t(2) = "1001"
        t(3) = "0010"
        t(4) = "0100"
        t(5) = "1111"
      CASE "3"
        t(1) = "0110"
        t(2) = "1001"
        t(3) = "0010"
        t(4) = "1001"
        t(5) = "0110"
      CASE "4"
        t(1) = "0011"
        t(2) = "0101"
        t(3) = "1111"
        t(4) = "0001"
        t(5) = "0011"
      CASE "5"
        t(1) = "0111"
        t(2) = "1000"
        t(3) = "0111"
        t(4) = "0001"
        t(5) = "1111"
      CASE "6"
        t(1) = "0011"
        t(2) = "0100"
        t(3) = "1110"
        t(4) = "1001"
        t(5) = "0110"
      CASE "7"
        t(1) = "1111"
        t(2) = "1001"
        t(3) = "0010"
        t(4) = "0100"
        t(5) = "1100"
      CASE "8"
        t(1) = "0110"
        t(2) = "1001"
        t(3) = "0110"
        t(4) = "1001"
        t(5) = "0110"
      CASE "9"
        t(1) = "0110"
        t(2) = "1001"
        t(3) = "0111"
        t(4) = "0001"
        t(5) = "1110"
      CASE "+"
        t(1) = "1111"
        t(2) = "1111"
        t(3) = "1111"
        t(4) = "1111"
        t(5) = "1111"
      CASE ":"
        t(1) = "1100"
        t(2) = "1100"
        t(3) = "0000"
        t(4) = "1100"
        t(5) = "1100"
     CASE ")"
        t(1) = "1100"
        t(2) = "0010"
        t(3) = "0010"
        t(4) = "0010"
        t(5) = "1100"
      CASE "-"
        t(1) = "1111"
        t(2) = "1111"
        t(3) = "0000"
        t(4) = "0000"
        t(5) = "0000"
      CASE "!"
        t(1) = "0110"
        t(2) = "0110"
        t(3) = "0110"
        t(4) = "0000"
        t(5) = "0110"
      CASE "_"
        t(1) = "0000"
        t(2) = "0000"
        t(3) = "0000"
        t(4) = "1111"
        t(5) = "1111"
      CASE "|"
        t(1) = "0110"
        t(2) = "0110"
        t(3) = "0110"
        t(4) = "0110"
        t(5) = "0110"
      CASE "~"
        t(1) = "1111"
        t(2) = "1111"
        t(3) = "1110"
        t(4) = "1100"
        t(5) = "1000"
      CASE "^"
        t(1) = "1000"
        t(2) = "1100"
        t(3) = "1110"
        t(4) = "1111"
        t(5) = "1111"
      CASE "<"
        t(1) = "0010"
        t(2) = "0110"
        t(3) = "1110"
        t(4) = "0110"
        t(5) = "0010"
      CASE ">"
        t(1) = "0100"
        t(2) = "0110"
        t(3) = "0111"
        t(4) = "0110"
        t(5) = "0100"
      CASE "|"
        t(1) = "0110"
        t(2) = "0110"
        t(3) = "0110"
        t(4) = "0110"
        t(5) = "0110"
      CASE ELSE
        GOTO forgetIt
    END SELECT
      FOR M% = 1 TO 5              ' Draws The Font Character
        FOR N% = 1 TO 5
          IF MID$(t(M%), N%, 1) = "1" THEN PSET (left% + N% + POSS, top% + M%)
            IF POINT(left% + N% + POSS, top% + M%) <> 0 THEN
              IF M% = 2 OR M% = 4 THEN PSET (left% + N% + POSS, top% + M%), MM%
              IF M% = 3 THEN PSET (left% + N% + POSS, top% + M%), dm%
              IF M% = 5 OR M% = 1 THEN PSET (left% + N% + POSS, top% + M%), BT%
            END IF
          NEXT N%
        NEXT M%
      POSS = POSS + 5
    NEXT GG
forgetIt:

END SUB