|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Terminal, seg_0581ae
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
-- UNIT: package spec TERMINAL
-- FILES: termspec.a termbody.a hanoi.a
-- PURPOSE: support terminal interface to procedure HANOI
-- DESCRIPTION: draws picture of solution to "Towers of Hanoi" problem
-- .......................................................................... --
with Text_Io;
use Text_Io;
package Terminal is
package Integer_Io is new Text_Io.Integer_Io (Integer);
use Ascii;
----------------------------------------------------------
-- Procedures for drawing pictures of the solution on VDU.
-- CLEAR_SCREEN and FIX_CURSOR are device-specific
----------------------------------------------------------
Screen_Depth : constant Integer := 23;
Screen_Width : constant Integer := 80;
subtype Depth is Integer range 1 .. Screen_Depth;
subtype Width is Integer range 1 .. Screen_Width;
type Terminal_Type is (Hp, Vt100, Freedom100);
Term : Terminal_Type := Vt100;
procedure Clear_Screen;
procedure Fix_Cursor (D : Depth; A : Width);
end Terminal;
-- .......................................................................... --
--
-- DISTRIBUTION AND COPYRIGHT:
--
-- This software is released to the Public Domain (note:
-- software released to the Public Domain is not subject
-- to copyright protection).
-- Restrictions on use or distribution: NONE
--
-- DISCLAIMER:
--
-- This software and its documentation are provided "AS IS" and
-- without any expressed or implied warranties whatsoever.
-- No warranties as to performance, merchantability, or fitness
-- for a particular purpose exist.
--
-- Because of the diversity of conditions and hardware under
-- which this software may be used, no warranty of fitness for
-- a particular purpose is offered. The user is advised to
-- test the software thoroughly before relying on it. The user
-- must assume the entire risk and liability of using this
-- software.
--
-- In no event shall any person or organization of people be
-- held responsible for any direct, indirect, consequential
-- or inconsequential damages or lost profits.
nblk1=3
nid=0
hdr6=6
[0x00] rec0=1e rec1=00 rec2=01 rec3=018
[0x01] rec0=1b rec1=00 rec2=03 rec3=03c
[0x02] rec0=04 rec1=00 rec2=02 rec3=000
tail 0x2176578a687e163d73fb8 0x42a00088462060003