← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/svgalib/testvga.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/svgalib/testvga.pp
1
 
program testvga;
2
 
 
3
 
uses svgalib;
4
 
 
5
 
var i : longint;
6
 
    mode : longint;
7
 
 
8
 
begin
9
 
  vga_init;
10
 
  repeat
11
 
    Write ('Mode (0 exits) : ');
12
 
    Readln (Mode);
13
 
    if (mode<>0) and vga_hasmode(Mode) then
14
 
      begin
15
 
      vga_setmode(Mode);
16
 
      //  vga_screenon;
17
 
      vga_setcolor(vga_white);
18
 
      for i:=1 to 100 do
19
 
        vga_drawline (100+2*i,100,100+2*i,200);
20
 
      readln;
21
 
      vga_setmode(0);
22
 
      end;
23
 
  until mode=0;
24
 
end.
 
 
b'\\ No newline at end of file'