|

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
| |
Procedures
- create routines to be used that language does not already know
- procedure name;
- begin
- statements;
- end;
-
- 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;
|