Uzytkownik "otto" <ohaldi@[EMAIL PROTECTED]
> napisal w wiadomosci
news:7viov39bj1oafv709f0ho42kteu8o15r9a@[EMAIL PROTECTED]
> 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.
>
General no. But you can easy prepare it for special aplication :
Local count, ts, te, il, id, et, i
Local znaki := Array( 4), string := Array( 4)
znaki[ 1] := "??? ? ??? ??? ? ? ??? ? ??? ??? ??? "
znaki[ 2] := "? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ????"
znaki[ 3] := "? ? ? ??? ?? ??? ??? ??? ? ??? ??? ????"
znaki[ 4] := "??? ? ??? ??? ? ??? ??? ? ??? ? ? "
te := DtoS( dzien) + godzina
il := Year( date()) - Year( dzien)
While InKey( 1) != 27 .AND. ( ts := DtoS( date()) + Time()) <= te
Afill( string, '')
id := dzien - Date() + If( time() <= godzina, 0, -1)
et := NtoS( il )+ Chr( 59) + NtoS( id ) + Chr( 59) + ElapTime(
time(),
godzina)
For count := 1 To Len( et)
i := ( ( Asc( SubStr( et, count, 1)) - 48) * 4) + 1
string[ 1] := string[ 1] + SubStr( Znaki[ 1], i, 4)
string[ 2] := string[ 2] + SubStr( Znaki[ 2], i, 4)
string[ 3] := string[ 3] + SubStr( Znaki[ 3], i, 4)
string[ 4] := string[ 4] + SubStr( Znaki[ 4], i, 4)
Next
@[EMAIL PROTECTED]
12, 5 say String[ 1]
@[EMAIL PROTECTED]
13, 5 say String[ 2]
@[EMAIL PROTECTED]
14, 5 say String[ 3]
@[EMAIL PROTECTED]
15, 5 say String[ 4]
End
Regards,
Marek Horodyski
|
