for characters and numbs this program ti's perfect:
procedure litere
parameterS startx,starty,instring,COLOR
if startx > 20
return
endif
CURenty = starty
curlet=1
Colorvar = "n/B"
do while curlet<=len(instring) .and. curenty < 89
SET COLOR TO &COLOR
do case
case substr(instring,curlet,1) = " "
curenty = curenty + 6
case substr(instring,curlet,1) = "|"
startx = startx + 6
curenty = starty
case substr(instring,curlet,1) = "A"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+2 say "ÛÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+5 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+1 say "ÛÛ ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+6 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+0 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+1 say "ÛÛÜÛÛÜ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+3,curenty+3 say "ßß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+5 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß ßß"
SET COLOR TO &COLOR
curenty = curenty + 9
case substr(instring,curlet,1) = "B"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛßß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+4 say "ÛÜ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+5 say "ß "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+3 say "ß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+4 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+6 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+3 say "ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+5 say "ß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßßßß"
SET COLOR TO &COLOR
curenty = curenty + 8
case substr(instring,curlet,1) = "C"
@[EMAIL PROTECTED]
startx+0,curenty+0 say " ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+3 say "ßßÛ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+6 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "ß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+4 say " ß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+7 say "Û"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+3 say " Ü "
@[EMAIL PROTECTED]
startx+3,curenty+0 say " ßÛÜÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+6 say "ß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßßß"
SET COLOR TO W/BG+
curenty = curenty + 9
case substr(instring,curlet,1) = "D"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛßÛ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+4 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+6 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+6 say "Û"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛÜÛß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+3,curenty+6 say "ß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßßß"
SET COLOR TO &COLOR
curenty = curenty + 8
case substr(instring,curlet,1) = "E"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛßßß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+5 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "ÜÜ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+3 say "ßßß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+3 say "ÜÜ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßßßß"
SET COLOR TO &COLOR
curenty = curenty + 7
case substr(instring,curlet,1) = "F"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛßßß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+5 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+3 say "ßß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß"
SET COLOR TO &COLOR
curenty = curenty + 7
case substr(instring,curlet,1) = "G"
@[EMAIL PROTECTED]
startx+0,curenty+0 say " ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+3 say "ßßÛ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+6 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "ß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+4 say " ß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+7 say "Û"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+3 say " ßÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+7 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+0 say " ßÛÜÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+6 say "ß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßßß"
SET COLOR TO &COLOR
curenty = curenty + 9
case substr(instring,curlet,1) = "H"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+2 say "Ü "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+4 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+6 say "Ü "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "ÜÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+6 say "Û"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+3 say "ß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+4 say "ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+3 say " "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+4 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß ßß"
SET COLOR TO &COLOR
curenty = curenty + 8
case substr(instring,curlet,1) = "I"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+2 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß"
SET COLOR TO &COLOR
curenty = curenty + 4
case substr(instring,curlet,1) = "J"
@[EMAIL PROTECTED]
startx+0,curenty+0 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+5 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+3 say "ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+3 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ßÛÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+4 say "ß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßß"
SET COLOR TO &COLOR
curenty = curenty + 7
case substr(instring,curlet,1) = "K"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+2 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+3 say "ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+5 say "ß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+6 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛÛß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+5 say "ß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛßÛ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+4 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+3 say " ßÛÜ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß ßß"
curenty = curenty + 9
case substr(instring,curlet,1) = "L"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+2 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+3 say "ÜÜ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßßßß"
SET COLOR TO &COLOR
curenty = curenty + 7
case substr(instring,curlet,1) = "M"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛÜ ÜÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+9 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛÛÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+4 say " ÜÛÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+9 say "Û"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ ÛÜÛ ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+3 say " Û"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+3,curenty+5 say "Ûß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+7 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß ß ßß"
SET COLOR TO &COLOR
curenty = curenty + 11
case substr(instring,curlet,1) = "N"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛÜ ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+7 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛßÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+4 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+7 say "Û"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+3 say "ß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+4 say "ÜÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+3 say " ßÛÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+7 say " "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß ßß"
SET COLOR TO &COLOR
curenty = curenty + 9
case substr(instring,curlet,1) = "O"
@[EMAIL PROTECTED]
startx+0,curenty+0 say " ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+3 say "ß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+4 say "ÛÜ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "ß "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+5 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+7 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+7 say "Û"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+0 say " ßÛÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+5 say "ß "
SET COLOR TO &COLOR
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+3,curenty+7 say "ß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßß"
SET COLOR TO &COLOR
curenty = curenty + 9
case substr(instring,curlet,1) = "P"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+3 say "ßÛÜ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+6 say "Û"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛßßß "
SET COLOR TO &COLOR
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+6 say "ß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß"
SET COLOR TO &COLOR
curenty = curenty + 8
case substr(instring,curlet,1) = "Q"
@[EMAIL PROTECTED]
startx+0,curenty+0 say " ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+3 say "ß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+4 say "ÛÜ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "ß "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+5 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+7 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+3 say "Ü ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+7 say "Û"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+0 say " ßÛÜÛÜ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+3,curenty+6 say "ßß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+4,curenty+6 say "ß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+7 say "Ü"
SET COLOR TO &COLOR
curenty = curenty + 9
case substr(instring,curlet,1) = "R"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+3 say "ßÛÜ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+6 say "Û"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛßßÛÜ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+6 say "ß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+3,curenty+6 say "Û"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß ßß"
SET COLOR TO &COLOR
curenty = curenty + 8
case substr(instring,curlet,1) = "S"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+2 say "ßßÛ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+5 say "Ü"
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ßÛÛÜÜ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+5 say "ßß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+0 say "Ü ßÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+6 say "Û"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ßÛÜÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+5 say "ß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßßß"
SET COLOR TO &COLOR
curenty = curenty + 8
case substr(instring,curlet,1) = "T"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+1 say "ßÛÛßß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+6 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+2 say "ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+2 say "ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+2 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß"
SET COLOR TO &COLOR
curenty = curenty + 8
case substr(instring,curlet,1) = "U"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+2 say "Ü "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+4 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+6 say "Ü "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+6 say "Û"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+0 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+3 say " "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+4 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ßÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+2 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+3 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+4 say "Ûß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßßß"
SET COLOR TO &COLOR
curenty = curenty + 8
case substr(instring,curlet,1) = "V"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+2 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+3 say " ÛÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+4 say "ÛÛ "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+0 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "Ü"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+4 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+7 say "ß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+0 say " ßÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+3 say "ÜÛß "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+0 say " ßÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+4 say "ß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ß"
SET COLOR TO &COLOR
curenty = curenty + 9
case substr(instring,curlet,1) = "W"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+2 say "Ü "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+4 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+6 say "Ü "
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+8 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+10 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+0 say "ßÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+2 say "Ü"
SET COLOR TO W/BG+
@[EMAIL PROTECTED]
startx+1,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+6 say "Û"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+7 say "ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+9 say "ß "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+1 say "ÛÛÜÛÛÜÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+2 say "ÛÛ "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+6 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+3,curenty+9 say "ß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß ßß"
SET COLOR TO &COLOR
curenty = curenty + 12
case substr(instring,curlet,1) = "X"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+2 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+7 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+0 say " ßÛÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+5 say "ß"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+6 say "Ûß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+0 say " ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+3 say "ßÛÜ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+3,curenty+3 say "ß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+4 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+3,curenty+7 say "Ü"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß ßß"
SET COLOR TO &COLOR
curenty = curenty + 9
case substr(instring,curlet,1) = "Y"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+2 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+0,curenty+3 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+8 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+0 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+3 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+4 say " ÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+7 say "Ûß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+0 say " ßÛÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+5 say "ß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+2,curenty+7 say "ß"
SET COLOR TO &COLOR
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+3 say "ÛÛ "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßß"
SET COLOR TO &COLOR
curenty = curenty + 10
case substr(instring,curlet,1) = "Z"
@[EMAIL PROTECTED]
startx+0,curenty+0 say "ß"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+0,curenty+1 say "ßßßÛÛ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+0,curenty+6 say "Ü"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+1,curenty+0 say " ÜÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+1,curenty+4 say "ß "
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+1,curenty+6 say "ß"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+2,curenty+0 say " ÛÛ"
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+2,curenty+3 say "ß "
SET COLOR TO W+/N
@[EMAIL PROTECTED]
startx+3,curenty+0 say "ÛÛÜÜ"
SET COLOR TO &COLOR
@[EMAIL PROTECTED]
startx+3,curenty+4 say "ÜÜ"
SET COLOR TO &COLORVAR
@[EMAIL PROTECTED]
startx+4,curenty+0 say " ßßßßßß "
SET COLOR TO &COLOR
curenty = curenty + 8
endcase
curlet=curlet+1
if curenty>75
curenty=0
endif
enddo
"tata01" <tata01.makni@[EMAIL PROTECTED]
> wrote in message
news:etnqv35r5237pc8uoknunshbnd9cai4n54@[EMAIL PROTECTED]
> On Wed, 09 Apr 2008 06:58:31 +0200, otto <ohaldi@[EMAIL PROTECTED]
> wrote:
>
>>Hello to all,
>>
>>It is possible with clipper (DOS characters) to display a word with big
>>font ?
>>Double height/wide or something like that.
>>
>>Many thanks in advance for any help.
>>
>>Otto
>
> only nums, but you can continue, with characters
>
> ------------------------------------------------------------
>>Function BIGNUM(red, kol, nstring, nfont)
>> Local
>> redovi:={},broj:={},kolona:=0,iter,nfonts:=fontovi(nfont),razmak:=1
>> redovi:=array(len(nfonts))
>> afill(redovi,'')
>> for iter:=1 to len(nstring)
>> aadd(broj,substr(nstring,iter,1))
>> do case
>> case broj[iter]=='-';broj[iter]:='14'
>> case broj[iter]==':';broj[iter]:='13'
>> case broj[iter]==' ';broj[iter]:='12'
>> case broj[iter]==',';broj[iter]:='11'
>> case broj[iter]=='.';broj[iter]:='10'
>> endcase
>> next
>> For kolona:= 1 To len(redovi)
>> for iter:=1 to len(broj)
>>
redovi[kolona]:=redovi[kolona]+space(razmak)+nfonts[kolona][val(broj[iter])
>> + 1]
>> next
>> message(red + kolona, kol , redovi[kolona])
>> Next
>> Return Nil
>>*---------------------------
>>static func fontovi(nfont)
>> local nfonts:={}
>> nfont:=iif(pcount()==0,1,nfont)
>>do case
>> case nfont==1
>> nfonts:={{'UßßU',' U ','ßßßU','ßßßU','U
>> U','Ußßß','Ußßß','ßßßU','UßßU','UßßU',' ',' ',' ',' ',' '},;
>> {'U U',' U ','ÜÜÜU','ÜÜÜU','UÜÜU','UÜÜÜ','UÜÜÜ','
>> U','UÜÜU','UÜÜU',' ',' ',' ','ß ',' '},;
>> {'U U',' U ','U ',' U',' U',' U','U U','
U','U
>> U',' U',' ',' ',' ',' ','ßßß'},;
>> {'ßßßß',' ß ','ßßßß','ßßßß',' ß','ßßßß','ßßßß','
>> ß','ßßßß','ßßßß','ß ','U ',' ','ß ',' '}}
>> case nfont==2
>> nfonts:={{'UßU',' U ','ßßU','ßßU','U
>> U','Ußß','Ußß','ßßU','UßU','UßU',' ',' ',' ',' ',' '},;
>> {'U U',' U ','ÜÜU','ÜÜU','UÜU','UÜÜ','UÜÜ','
>> U','UÜU','UÜU',' ',' ',' ','ß',' '},;
>> {'U U',' U ','U ',' U',' U',' U','U U',' U','U U','
>> U',' ',' ',' ',' ','ßß'},;
>> {'ßßß',' ß ','ßßß','ßßß',' ß','ßßß','ßßß','
>> ß','ßßß','ßßß','ß','U',' ','ß',' '}}
>> case nfont==3
>> nfonts:={{'ÉÍ»',' » ','ÍÍ»','ÍÍ»','É ','ÉÍÍ','É
>> ','ÍÍ»','ÉÍ»','ÉÍ»',' ',' ',' ',' ',' '},;
>> {'s s',' s ','ÉÍL',' Ía','CÍ»','CÍ»','EÍ»',' s','EÍa','CÍa',' ',' ','
>> ','t','ÍÍ'},;
>> {'CÍL','ÍEÍ','CÍÍ','ÍÍL',' D','ÍÍL','CÍL',' D','CÍL',' ?','t','T','
>> ','t',' '}}
>> case nfont==4
>> nfonts:={{'ÉÍ»',' » ','OÍ»','OÍ»','É ','ÉÍÍ','É
>> ','OÍ»','ÉÍ»','ÉÍ»',' ',' ',' ',' ',' '},;
>> {'s s',' s ','ÉÍL',' Ía','CÍ»','CÍ»','EÍ»',' s','EÍa','CÍa',' ',' ','
>> ','t','ÍÍ'},;
>> {'CÍL','ÍEÍ','CÍÍ','ÍÍL',' D','ÔÍL','CÍL',' D','CÍL',' ?','t','T','
>> ','t',' '}}
>> case nfont==5
>> nfonts:={{'É»','»','Í»','Í»','É ','ÉÍ','É ','Í»','É»','É»',' ','
>> ',' ',' ',' '},;
>> {'ss','s','ÉL','Ía','C»','C»','E»',' s','Ea','Ca',' ',' ','
','t','Í'},;
>> {'CL','D','CÍ','ÍL',' D','ÍL','CL',' D','CL',' ?','t','T',' ','t','
'}}
>>endcase
>>return nfonts
|
