DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦83ef85ff5⟧ TextFile

    Length: 1468 (0x5bc)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
with Quickdraw;
with Events;
package Desk is

    Accevent : constant := 64;
    Accrun : constant := 65;
    Acccursor : constant := 66;
    Accmenu : constant := 67;
    Accundo : constant := 68;
    Acccut : constant := 70;
    Acccopy : constant := 71;
    Accpaste : constant := 72;
    Accclear : constant := 73;
    Goodbye : constant := -1;
    Undo : constant := 0;
    Cut : constant := 2;
    Copy : constant := 3;
    Past : constant := 4;
    Clear : constant := 5;

    function Opendeskacc (Theacc : Str255) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Opendeskacc, "16#A9B6#");

    procedure Closedeskacc (Refnum : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Closedeskacc, "16#A9B7#");

    procedure Systemclick (Theevent : Events.Eventrecord;
                           Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Systemclick, "16#A9B3#");

    function Systemedit (Editcmd : Mac_Types.Integer) return Boolean;
    pragma Interface (Mpwpascal, Systemedit, "16#A9C2#");

    procedure Systemtask;
    pragma Interface (Mpwpascal, Systemtask, "16#A9B4#");

    function Systemevent (Theevent : Events.Eventrecord) return Boolean;
    pragma Interface (Mpwpascal, Systemevent, "16#A9B2#");

    procedure Systemmenu (Menuresult : Longint);
    pragma Interface (Mpwpascal, Systemmenu, "16#A9B5#");

end Desk;