PROGRAM Demo_COC;

USES Tos;

{$E .TOS }
{ Programm macht nur GEMDOS-Ausaben, also sind wir
                eine Textmodus-Applikaton }

CONST SaPrLongs    : ARRAY[1..2] OF LONGINT = (0,0);
        SaPrProgName : STRING                 = 'DEMO_COC.TOS';
        SaPrLens     : ARRAY[1..4] OF LONGINT = (0, 0, 0, 0);

CONST mess : ARRAY[-4..2] OF STRING = ('VIRUS! Pr�fsumme stimmt nicht mehr!',
                                                    'VIRUS! Segmentl„ngen haben sich ver„ndert!',
                                                    'VIRUS! Programmheader stimmt nicht mit BasePage �berein!',
                                                    '?',
                                                    'Alles OK.',
                                                    'PROBLEM: Programmdatei nicht gefunden.',
                                                    'PROBLEM: Pr�fsumme konnte nicht geschrieben werden.');


{$L PCTOSLIB.LIB }                          { PC-Bibliothek dazulinken }
{ Warnung "Bad global symbol definition" f�r DGETPATH & DGETDRV normal,
  weil in Unit TOS bereits definiert. }


FUNCTION SaPrSelfTest : INTEGER; EXTERNAL;
{$L coc }

FUNCTION CurrPath: STRING;
VAR buffer : STRING[128];
BEGIN
 Dgetpath( buffer, Dgetdrv+1);
 CurrPath:=Chr(65+Dgetdrv())+':'+buffer;
END;


VAR i : INTEGER;

BEGIN
   WriteLn('Aktuelles Verzeichnis: ', CurrPath);
    IF SaPrLongs[2] = 0 THEN
        WriteLn('Erster Druchlauf. Pr�fsumme wird berechnet und geschrieben.');
    i:=SaPrSelfTest();
    WriteLn(i);
    WriteLn(mess[i]);
END.