CMPS 002 - Computer Literacy

Prof. Paulo Franca

CyberSlug Rules!

Classes

Class Syllabus

Grading Policy

Labs

Interact

Login

  • enter system
  • get attendance
  • submit work
  • take lab quiz
  • check scores

Help

Help me!

Links

Staff only

 

 

 

Datacare   Ahshay

 
program Boat;
procedure DrawBoat;
begin
PenPat (Black);
PaintOval (70, 60, 110, 140);
EraseRect (50, 60, 90, 140);
MoveTo (100, 30);
LineTo (140, 88);
LineTo (100, 88);
LineTo (100, 30);
end;
 
procedure DrawOcean;
begin
PenPat (Gray);
PaintRect (108, 0, 200, 200);
end;
 

begin

DrawOcean;
DrawBoat;
end.