From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,XPRIO autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,910b4871e877feea,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-06-17 20:47:36 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!sn-xit-03!sn-xit-04!sn-xit-06!sn-post-01!supernews.com!corp.supernews.com!not-for-mail
From: "Cephus�" <beau@hiwaay.net>
Newsgroups: comp.lang.ada
Subject: help with Ada95 
Date: Tue, 17 Jun 2003 22:47:45 -0500
Organization: Posted via Supernews, http://www.supernews.com
Message-ID: <vevo6o7bobse67@corp.supernews.com>
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
X-Complaints-To: abuse@supernews.com
Xref: archiver1.google.com comp.lang.ada:39371
Date: 2003-06-17T22:47:45-05:00
List-Id: <comp.lang.ada>

Hey guys I have this book: Ada 95 3rd edition (gold (maybe yellow in color)
Problem Solving and Program Design by Feldman and Koffman.

They provide all of their code from the book examples and I am trying to use
a package of theirs dealing with the screen... here is the package spec and
body. Please tell me what is wrong with it...

Screen.ads:
-- constants; the number of rows and columns on the terminal

ScreenDepth : CONSTANT Integer := 24;

ScreenWidth : CONSTANT Integer := 80;

-- subtypes giving the ranges of acceptable inputs

-- to the cursor-positioning operation

SUBTYPE Depth IS Integer RANGE 1..ScreenDepth;

SUBTYPE Width IS Integer RANGE 1..ScreenWidth;

PROCEDURE Beep;

-- Pre: None

-- Post: Terminal makes its beep sound once

PROCEDURE ClearScreen;

-- Pre: None

-- Post: Terminal Screen is cleared

PROCEDURE MoveCursor (Column : Width; Row : Depth);

-- Pre: Column and Row have been assigned values

-- Post: Cursor is moved to the given spot on the screen

END Screen;

----------------------------------------------------------------------------
-----------------

Screen.adb

PROCEDURE Beep IS

BEGIN

Ada.Text_IO.Put (Item => Ada.Characters.Latin_1.BEL);

Ada.Text_IO.Flush;

END Beep;

PROCEDURE ClearScreen IS

BEGIN

-- Ada.Text_IO.Put (Item => Ada.Characters.Latin_1.ESC);

-- Ada.Text_IO.Put (Item => "[2J");

-- Ada.Text_IO.Flush;

Ada.TEXT_IO.New_Line(Spacing => 35);

MoveCursor(Row => 1, Column => 1);

END ClearScreen;

PROCEDURE MoveCursor (Column : Width; Row : Depth) IS

BEGIN

Ada.Text_IO.Flush;

Ada.Text_IO.Put (Item => Ada.Characters.Latin_1.ESC);

Ada.Text_IO.Put ("[");

Ada.Integer_Text_IO.Put (Item => Row, Width => 1);

Ada.Text_IO.Put (Item => ';');

Ada.Integer_Text_IO.Put (Item => Column, Width => 1);

Ada.Text_IO.Put (Item => 'f');

END MoveCursor;

END Screen;



sorry for the text, I just copied it straight from the compiler



Beau