app/diskettenmonitor/3.7/src/disk cmd 3.6.quelle

Raw file
Back to index

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
PACKET disk cmd

(************************************************************************)
(*                                                                      *)
(*  Disk - Menuecall    Version 3.6                                   *)
(*                                                                      *)
(*                                                                      *)
(* Autor : Ingo Siekmann                                                *)
(* Stand : Montag, den 09.02.1987                                       *)
(*                                                                      *)
(* Lauffähig ab EUMEL Version 1.8.1 /M und insertiertem                 *)
(* Diskmonitor ab Version 3.6                                           *)
(*                                                                      *)
(* (c) 1986 by ULES c/o Ingo Siekmann & Nils Ehnert                     *)
(*                                                                      *)
(************************************************************************)

      DEFINES disk ,
              disk monitor ,
              disk doctor :


lernsequenz auf taste legen ("d", "disk monitor"13"") ;
lernsequenz auf taste legen ("D", "disk doctor"13"") ;


PROCEDURE disk :

    central disk monitor process .

END PROCEDURE disk ;

PROCEDURE disk monitor :

    central disk monitor process .

END PROCEDURE disk monitor ;

PROCEDURE disk doctor :

    push ("d") ;
    disk monitor .

END PROCEDURE disk doctor ;

END PACKET disk cmd ;