home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / s5 / s5.var < prev    next >
Encoding:
Text File  |  1990-12-27  |  5.8 KB  |  128 lines
  1.  
  2. type
  3. dateiname                =  string[12];
  4. extension                =  string[3];
  5. awtyp                    =  string[8];
  6. awrec                    =  record
  7.                               operation : string[3];
  8.                               operand   : string[2];
  9.                               baustein  : integer;
  10.                               bitnr     : integer;
  11.                             end;
  12. t_rec                    =  record
  13.                               einheit   : integer;
  14.                               wert      : integer;
  15.                             end;
  16. z_rec                    =  record
  17.                               wert      : integer;
  18.                             end;
  19.  
  20. const
  21. anzopr                   =    5;
  22. maxoperationen           =   22;
  23. maxaw                    = 2048;
  24. maxe                     =   31; (* Anzahl Bausteine *)
  25. maxa                     =   31; (* Anzahl Bausteine *)
  26. maxm                     =  127; (* Anzahl Bausteine *)
  27. maxt                     =   63; (* Anzahl Bausteine *)
  28. maxz                     =   63; (* Anzahl Bausteine *)
  29. maxkt                    =  999;
  30. maxkz                    =  999;
  31. maxopr                   :  array[1..anzopr] of integer = (-1,-1,-1,-1,-1);
  32. dise                     =    3; (* Anzahl auf Bildschirm *)
  33. disa                     =    3; (* Anzahl auf Bildschirm *)
  34. dism                     =    9; (* Anzahl auf Bildschirm *)
  35. dist                     =   15; (* Anzahl auf Bildschirm *)
  36. disz                     =   15; (* Anzahl auf Bildschirm *)
  37. disaw                    =    6;
  38. deep                     =    6;
  39. eins                     :  char                      =  '*';
  40. null                     :  char                      =  ' ';
  41. ff                       :  char                      =  #12;
  42. es                       :  integer                   =    2;
  43. ez                       :  integer                   =    3;
  44. as                       :  integer                   =   49;
  45. az                       :  integer                   =    3;
  46. ms                       :  integer                   =    1;
  47. mz                       :  integer                   =   22;
  48. ts                       :  integer                   =    2;
  49. tz                       :  integer                   =    5;
  50. ti                       :  integer                   =   14;
  51. zs                       :  integer                   =   75;
  52. zz                       :  integer                   =    5;
  53. zi                       :  integer                   =   63;
  54. scrollstart              :  word                      =    1;
  55. scrollende               :  word                      =    1;
  56. speed                    :  word                      =  100;
  57. delay                    :  word                      =  500;
  58. spstyp                   :  string[10]                =  ' S5-1XX U ';
  59. oprstr                   :  array[1..       anzopr] of string[18] =
  60.                            ('EINGAENGE',
  61.                             'AUSGAENGE',
  62.                             'MERKER',
  63.                             'TIMER',
  64.                             'ZAEHLER');
  65. operationen              :  array[1..maxoperationen] of string[3] =
  66.                            ('=','S','SI','SV','SE','SS','SA',
  67.                             'R','ZR','ZV','L',
  68.                             'U','O','UN','ON','BE','BEB',
  69.                             ')','U(','O(','UN(','ON(');
  70. fehlermeldung            :  array[1..10] of string[40]=
  71.                            ('Vorletzte und letzte Anweisung unlogisch',
  72.                             'Zuviele Klammern oder ungl. Verhaeltnis',
  73.                             'Operation fehlt',
  74.                             'Operation unbekannt',
  75.                             'Operand u/o Baustein/Bitnr nicht erlaubt',
  76.                             'Operand nicht zulaessig',
  77.                             'Operand fehlt',
  78.                             'Baustein/Bitnr fehlerhaft',
  79.                             'Baustein u/o Bitnummer fehlt',
  80.                             'Baustein/Bitnr ueber Maximum');
  81. mess                     :  array[1..11] of string[40]=
  82.                            (' Anweisungsliste wurde eingelesen...',
  83.                             ' Simulation beendet...',
  84.                             ' Dokumentation wurde generiert...',
  85.                             ' LIST Programm beendet...',
  86.                             ' EDIT Programm beendet...',
  87.                             ' Programm nicht gefunden...',
  88.                             ' Funktion abgebrochen...',
  89.                             ' Anweisungsliste ist fehlerhaft...',
  90.                             ' Nicht genug Hauptspeicher frei...',
  91.                             ' Nicht genug Platz auf der Diskette...',
  92.                             ' Systemfehler...');
  93.  
  94. var
  95. meldung                  :  string[40];
  96. bststr                   :  string[6];
  97. bitstr                   :  string[6];
  98. lr                       :  string[8];
  99. ext                      :  extension;
  100. filename                 :  string;
  101. infile,
  102. outfile                  :  text;
  103. save_attr                :  byte;
  104. i,ii,j,jj,
  105. bst,bit,
  106. status,
  107. klammern,
  108. anzaw,
  109. aktaw                    :  integer;
  110. mono,
  111. lastausgang,
  112. oder_von_und,
  113. korrektur,
  114. scroll,
  115. upd,
  116. sende                    :  boolean;
  117. lastaw,
  118. aw                       :  awtyp;
  119. awl                      :  array[1..  maxaw] of awrec;
  120. e_                       :  array[0..   maxe,0..7] of boolean;
  121. a_                       :  array[0..   maxa,0..7] of boolean;
  122. m_                       :  array[0..   maxm,0..7] of boolean;
  123. akku                     :  t_rec;
  124. t_                       :  array[0..   maxt] of t_rec;
  125. z_                       :  array[0..   maxz] of z_rec;
  126. ausgang                  :  array[1..   deep] of boolean;
  127. opr                      :  array[1..   deep] of string[2];
  128.