home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
FORMPAS.ZIP
/
DEMO.OLD
next >
Wrap
Text File
|
1989-09-03
|
1KB
|
46 lines
{ This file was used as an input file for FormPas. }
{ Altered code taken from turbo's grdemo.pas }
{ Original file is DEMO.OLD, new file is DEMO.PAS }
{ Try to find all the things it did with case, spacing and re-typing }
Program FormPas_Demo;
Procedure TEXTDUMP; { Dump the complete character sets to the screen }
Const
cgasizes:Array [0..4]
of word = (1, 3, 7, 3, 3);
normsizes:Array[0..4] of
word=(1, 4, 7, 4, 4);
Var
font : word;
viewinfo : viewporttype; cH : char;
Begin { TEXTDUMP }
For Font := 0 to 4 do
begin mainwindow (fonts [font]+' character set');
getviewsettings (viewinfo);
With Viewinfo do
begin settextjustify (Lefttext, Toptext);
Moveto (2, 3);If Font = Defaultfont
then begin settextstyle (Font, Horizdir, 1); Ch := #0; Repeat
outtext(Ch);
If (Getx + Textwidth ('M')) > (X2-X1)
then Moveto(2, Gety + textheight ('M')+3); Ch:=Succ(Ch);
Until (Ch >= #255); end else
Begin If Maxy < 200
then Settextstyle(font,Horizdir,cgasizes[font])
else Settextstyle(font,horizdir,Normsizes[Font]);
Ch := '!';
repeat Outtext (Ch);
If (Getx + Textwidth ('M')) > (X2-X1)
Then Moveto (2, Gety + Textheight ('M')+3);
Ch := Succ (Ch);
Until (Ord (Ch) = Ord ('~')+1); end;
end;{ with }
Waittogo;
end;{ for loop }
end;{ TextDump }
Begin { FormPas_Demo }
end;