34 lines
667 B
Plaintext
34 lines
667 B
Plaintext
MODULE svg01;
|
|
|
|
FROM InOut IMPORT Read, Write, WriteBf, WriteString;
|
|
|
|
IMPORT Vga;
|
|
|
|
VAR OldMode, x, y : CARDINAL;
|
|
ch : CHAR;
|
|
|
|
BEGIN
|
|
IF Vga.Initialize () = FALSE THEN
|
|
WriteString ('Could not start SVGAlib libraries. Aborting...');
|
|
WriteBf;
|
|
HALT
|
|
END;
|
|
OldMode := Vga.GetMode ();
|
|
Vga.SetMode (4);
|
|
Vga.SetColour (14);
|
|
Vga.Clear ();
|
|
Vga.SetColour (10);
|
|
FOR y := 125 TO 175 DO
|
|
FOR x := 100 TO 500 DO
|
|
Vga.Plot (x, y)
|
|
END
|
|
END;
|
|
LOOP
|
|
Read (ch);
|
|
IF ch = 'X' THEN EXIT END
|
|
END;
|
|
Vga.SetMode (OldMode);
|
|
Write (ch);
|
|
WriteBf;
|
|
END svg01.
|