DataMuseum.dk

top - download

    Length: 1073 (0x431)
    Types: TextFile
    Names: »B«

└─⟦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

with Calendar;
with Gui_Interface;
with Text_Io;
with Z80;
package body Application is

    Cnt_Pb_Counter, Cnt_Pb_Date, Cnt_Pb_Reset, Cnt_Pb_Upper,
    Cnt_Pb_Lower, Cnt_Pb_Clear, Cnt_Pb_Quit, Value : Integer := 0;

    Upper_To_Lower : constant Integer :=
       Character'Pos ('a') - Character'Pos ('A');

    Lower_To_Upper : constant Integer := -Upper_To_Lower;

    subtype Lower is Character range 'a' .. 'z';
    subtype Upper is Character range 'A' .. 'Z';

    T : Calendar.Time;

    function I (Int : Integer) return String renames Integer'Image;

    function Month (M : Calendar.Month_Number) return String is separate;

    procedure Date is separate;

    procedure Counter is separate;

    procedure Reset is separate;

    procedure Upper_Case is separate;

    procedure Lower_Case is separate;

    procedure Clear is separate;

    procedure Quit is separate;

    procedure Next_Event is
    begin
        Date;
        Counter;
        Reset;
        Upper_Case;
        Lower_Case;
        Clear;
        Quit;
    end Next_Event;

end Application;