home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 October
/
Chip_1997-10_cd.bin
/
invex
/
ozogan
/
oramuj.ips
< prev
next >
Wrap
Text File
|
1997-06-17
|
546b
|
31 lines
VAR
x : integer
y : integer
s : string
ENDVAR
PROCEDURE main
ImageClear
ImageInit(300,150)
ImageFontSize(20)
ImagePencolor(clblue)
ImagePenWidth(3)
s:='orßmovan² text'
x:=TextWidth(s)
y:=TextHeight(s)
rectangle(47,47,53+x,53+y)
textout(50,50,s)
MESSAGEBOX('Text byl zobrazen,'+
' te∩ jeÜt∞ zv²raznφme rohy',
'zprßva', 0)
ImagePencolor(clred)
point(47,47,10)
point(47+x+5,47,10)
point(47,47+y+5,10)
point(53+x,53+y,10)
ENDPROC