Ana Sayfa Keşfet Yardım
Giriş Yap
eric
/
Topspeed_JPI
1
0
Çatalla 0
Dosyalar Sorunlar 0 Değişiklik İstekleri 0 Wiki
Dal: master
Dallar Biçim İmleri
Topspeed_JPI
/
TS-V3
/
REP16
/
SCREENDI.LST

SCREENDI.LST 11 KB
Kalıcı Bağlantı Geçmiş Ham

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE ScreenDisplay;
    4. 

  4.     2  (*
    5. 

  5.     3   *  REPERTOIRE
    6. 

  6.     4   *  Release 1.6
    7. 

  7.     5   *  By Charles Bradford and Cole Brecheen
    8. 

  8.     6   *  (c) Copyright 1985-1992 PMI
    9. 

  9.     7   *  Green Bay, Wisconsin
    10. 

  10.     8   *  All rights reserved
    11. 

  11.     9   *  (414) 468-6040
    12. 

  12.    10   *
    13. 

  13.    11   *  $Header:   D:/logfiles/mods/screendi.mov   1.5   10 Mar 1991 15:31:48   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  
    19. 

  19.    17  IMPORT DspFiles;
    20. 

  20.    18  IMPORT ErrorManager;
    21. 

  21.    19  IMPORT FramePainter;
    22. 

  22.    20  IMPORT M2Strings;
    23. 

  23.    21  IMPORT ScrnTypes;
    24. 

  24.    22  IMPORT ScrnUtl2;
    25. 

  25.    23  IMPORT StrConv;
    26. 

  26.    24  IMPORT StrEdit;
    27. 

  27.    25  
    28. 

  28.    26  VAR
    29. 

  29.    27    Initialized : BOOLEAN;
    30. 

  30.    28  
    31. 

  31.    29    PROCEDURE Init();
    32. 

  32.    30      BEGIN
    33. 

  33.    31        IF Initialized THEN
    34. 

  34.    32          RETURN;
    35. 

  35.    33        ELSE
    36. 

  36.    34          Initialized := TRUE;
    37. 

  37.    35        END;
    38. 

  38.    36        DspFiles.Init();
    39. 

  39. *****        ^ not supported yet
    40. 

  40. *****                 ^ not supported yet
    41. 

  41. *****                      ^ not supported yet
    42. 

  42.    37        ErrorManager.Init();
    43. 

  43. *****        ^ not supported yet
    44. 

  44. *****                     ^ not supported yet
    45. 

  45. *****                          ^ not supported yet
    46. 

  46.    38        FramePainter.Init();
    47. 

  47. *****        ^ not supported yet
    48. 

  48. *****                     ^ not supported yet
    49. 

  49. *****                          ^ not supported yet
    50. 

  50.    39        M2Strings.Init();
    51. 

  51. *****        ^ not supported yet
    52. 

  52. *****                  ^ not supported yet
    53. 

  53. *****                       ^ not supported yet
    54. 

  54.    40        ScrnTypes.Init();
    55. 

  55. *****        ^ not supported yet
    56. 

  56. *****                  ^ not supported yet
    57. 

  57. *****                       ^ not supported yet
    58. 

  58.    41        ScrnUtl2.Init();
    59. 

  59. *****        ^ not supported yet
    60. 

  60. *****                 ^ not supported yet
    61. 

  61. *****                      ^ not supported yet
    62. 

  62.    42        StrConv.Init();
    63. 

  63. *****        ^ not supported yet
    64. 

  64. *****                ^ not supported yet
    65. 

  65. *****                     ^ not supported yet
    66. 

  66.    43        StrEdit.Init();
    67. 

  67. *****        ^ not supported yet
    68. 

  68. *****                ^ not supported yet
    69. 

  69. *****                     ^ not supported yet
    70. 

  70.    44      END Init;
    71. 

  71. *****          ^ not supported yet
    72. 

  72.    45  
    73. 

  73.    46    PROCEDURE CloseDisplayFile(VAR dfile : ScrnTypes.DisplayFile);
    74. 

  74. *****                                                     ^ not supported yet
    75. 

  75.    47      BEGIN
    76. 

  76.    48        DspFiles.CloseDisplayFile( dfile );
    77. 

  77. *****        ^ not supported yet
    78. 

  78. *****                 ^ not supported yet
    79. 

  79. *****                                   ^ not supported yet
    80. 

  80.    49      END CloseDisplayFile;
    81. 

  81. *****          ^ not supported yet
    82. 

  82.    50  
    83. 

  83.    51    PROCEDURE OpenDisplayFile(VAR dfile : ScrnTypes.DisplayFile;
    84. 

  84. *****                                                    ^ not supported yet
    85. 

  85.    52        fname : ARRAY OF CHAR);
    86. 

  86. *****                         ^ not supported yet
    87. 

  87.    53      VAR
    88. 

  88.    54        tmp: ARRAY [0..79] OF CHAR;
    89. 

  89. *****                       ^ not supported yet
    90. 

  90. *****                              ^ not supported yet
    91. 

  91.    55      BEGIN
    92. 

  92.    56        IF NOT DspFiles.OpenDisplayFile( dfile, fname ) THEN
    93. 

  93. *****               ^ not supported yet
    94. 

  94. *****                        ^ not supported yet
    95. 

  95. *****                                         ^ not supported yet
    96. 

  96. *****                                                ^ not supported yet
    97. 

  97.    57          M2Strings.Assign( fname, tmp );
    98. 

  98. *****          ^ not supported yet
    99. 

  99. *****                    ^ not supported yet
    100. 

  100. *****                            ^ not supported yet
    101. 

  101. *****                                   ^ not supported yet
    102. 

  102.    58          StrEdit.Append( tmp, ' not found' );
    103. 

  103. *****          ^ not supported yet
    104. 

  104. *****                  ^ not supported yet
    105. 

  105. *****                          ^ not supported yet
    106. 

  106. *****                               ^ not supported yet
    107. 

  107.    59          ErrorManager.WARN(tmp);
    108. 

  108. *****          ^ not supported yet
    109. 

  109. *****                       ^ not supported yet
    110. 

  110. *****                            ^ not supported yet
    111. 

  111.    60        END;
    112. 

  112.    61      END OpenDisplayFile;
    113. 

  113. *****          ^ not supported yet
    114. 

  114.    62  
    115. 

  115.    63    PROCEDURE ReadDisplayFrame(VAR dfile : ScrnTypes.DisplayFile;
    116. 

  116. *****                                                     ^ not supported yet
    117. 

  117.    64        VAR FrameRec : ScrnTypes.DisplayFrame; FrameNum : ScrnTypes.FrameKey);
    118. 

  118. *****                                 ^ not supported yet
    119. 

  119. *****                                                                    ^ not supported yet
    120. 

  120.    65      VAR
    121. 

  121.    66        FrameName: ScrnTypes.AFrameName;
    122. 

  122. *****                             ^ not supported yet
    123. 

  123.    67      BEGIN
    124. 

  124.    68        StrConv.IntegerToStr( FrameNum, 0, FrameName );
    125. 

  125. *****        ^ not supported yet
    126. 

  126. *****                ^ not supported yet
    127. 

  127. *****                              ^ not supported yet
    128. 

  128. *****                                           ^ not supported yet
    129. 

  129.    69        DspFiles.ReadDisplayFrame( dfile, FrameRec, FrameName );
    130. 

  130. *****        ^ not supported yet
    131. 

  131. *****                 ^ not supported yet
    132. 

  132. *****                                   ^ not supported yet
    133. 

  133. *****                                          ^ not supported yet
    134. 

  134. *****                                                    ^ not supported yet
    135. 

  135.    70      END ReadDisplayFrame;
    136. 

  136. *****          ^ not supported yet
    137. 

  137.    71  
    138. 

  138.    72    PROCEDURE ReadFrame(VAR dfile : ScrnTypes.DisplayFile;
    139. 

  139. *****                                              ^ not supported yet
    140. 

  140.    73        VAR FrameRec : ScrnTypes.DisplayFrame; FrameNum : ScrnTypes.FrameKey);
    141. 

  141. *****                                 ^ not supported yet
    142. 

  142. *****                                                                    ^ not supported yet
    143. 

  143.    74      VAR
    144. 

  144.    75        FrameName: ScrnTypes.AFrameName;
    145. 

  145. *****                             ^ not supported yet
    146. 

  146.    76      BEGIN
    147. 

  147.    77        StrConv.IntegerToStr( FrameNum, 0, FrameName );
    148. 

  148. *****        ^ not supported yet
    149. 

  149. *****                ^ not supported yet
    150. 

  150. *****                              ^ not supported yet
    151. 

  151. *****                                           ^ not supported yet
    152. 

  152.    78        DspFiles.ReadFrame( dfile, FrameRec, FrameName );
    153. 

  153. *****        ^ not supported yet
    154. 

  154. *****                 ^ not supported yet
    155. 

  155. *****                            ^ not supported yet
    156. 

  156. *****                                   ^ not supported yet
    157. 

  157. *****                                             ^ not supported yet
    158. 

  158.    79      END ReadFrame;
    159. 

  159. *****          ^ not supported yet
    160. 

  160.    80  
    161. 

  161.    81    PROCEDURE ShowDisplayFrame(VAR FrameRec :
    162. 

  162.    82        ScrnTypes.DisplayFrame; Col1, Row1, ColX, RowX : CARDINAL);
    163. 

  163. *****                  ^ not supported yet
    164. 

  164.    83      BEGIN
    165. 

  165.    84        FramePainter.ShowDisplayFrame( FrameRec, Col1, Row1, ColX,
    166. 

  166. *****        ^ not supported yet
    167. 

  167. *****                     ^ not supported yet
    168. 

  168. *****                                       ^ not supported yet
    169. 

  169.    85            RowX );
    170. 

  170. *****                 ^ not supported yet
    171. 

  171.    86      END ShowDisplayFrame;
    172. 

  172. *****          ^ not supported yet
    173. 

  173.    87  
    174. 

  174.    88    PROCEDURE WriteToFrame( FrameRec: ScrnTypes.DisplayFrame; col,
    175. 

  175. *****                                                ^ not supported yet
    176. 

  176.    89        row: CARDINAL; text: ARRAY OF CHAR );
    177. 

  177. *****                                      ^ not supported yet
    178. 

  178.    90      BEGIN
    179. 

  179.    91        ScrnUtl2.WriteToFrame( FrameRec, col, row, text );
    180. 

  180. *****        ^ not supported yet
    181. 

  181. *****                 ^ not supported yet
    182. 

  182. *****                               ^ not supported yet
    183. 

  183. *****                                                   ^ not supported yet
    184. 

  184.    92      END WriteToFrame;
    185. 

  185. *****          ^ not supported yet
    186. 

  186.    93  
    187. 

  187.    94    PROCEDURE Display( FrameNum : ScrnTypes.FrameKey );
    188. 

  188. *****                                            ^ not supported yet
    189. 

  189.    95      VAR
    190. 

  190.    96        FrameName: ScrnTypes.AFrameName;
    191. 

  191. *****                             ^ not supported yet
    192. 

  192.    97      BEGIN
    193. 

  193.    98        StrConv.IntegerToStr( FrameNum, 0, FrameName );
    194. 

  194. *****        ^ not supported yet
    195. 

  195. *****                ^ not supported yet
    196. 

  196. *****                              ^ not supported yet
    197. 

  197. *****                                           ^ not supported yet
    198. 

  198.    99        ScrnUtl2.Display( DspFiles.MainFrame, FrameName );
    199. 

  199. *****        ^ not supported yet
    200. 

  200. *****                 ^ not supported yet
    201. 

  201. *****                          ^ not supported yet
    202. 

  202. *****                                   ^ not supported yet
    203. 

  203. *****                                              ^ not supported yet
    204. 

  204.   100      END Display;
    205. 

  205. *****          ^ not supported yet
    206. 

  206.   101  
    207. 

  207.   102    PROCEDURE CloseDisplayFrame(VAR FrameRec :
    208. 

  208.   103        ScrnTypes.DisplayFrame);
    209. 

  209. *****                  ^ not supported yet
    210. 

  210.   104      BEGIN
    211. 

  211.   105        ScrnUtl2.CloseDisplayFrame( FrameRec );
    212. 

  212. *****        ^ not supported yet
    213. 

  213. *****                 ^ not supported yet
    214. 

  214. *****                                    ^ not supported yet
    215. 

  215.   106      END CloseDisplayFrame;
    216. 

  216. *****          ^ not supported yet
    217. 

  217.   107  
    218. 

  218.   108    PROCEDURE PushFrame(VAR FrameRec : ScrnTypes.DisplayFrame);
    219. 

  219. *****                                                 ^ not supported yet
    220. 

  220.   109      BEGIN
    221. 

  221.   110        ScrnUtl2.PushFrame( FrameRec );
    222. 

  222. *****        ^ not supported yet
    223. 

  223. *****                 ^ not supported yet
    224. 

  224. *****                            ^ not supported yet
    225. 

  225.   111      END PushFrame;
    226. 

  226. *****          ^ not supported yet
    227. 

  227.   112  
    228. 

  228.   113    PROCEDURE PopFrame(VAR FrameRec : ScrnTypes.DisplayFrame);
    229. 

  229. *****                                                ^ not supported yet
    230. 

  230.   114      BEGIN
    231. 

  231.   115        ScrnUtl2.PopFrame( FrameRec );
    232. 

  232. *****        ^ not supported yet
    233. 

  233. *****                 ^ not supported yet
    234. 

  234. *****                           ^ not supported yet
    235. 

  235.   116      END PopFrame;
    236. 

  236. *****          ^ not supported yet
    237. 

  237.   117  
    238. 

  238.   118    PROCEDURE PopZapFrame(VAR FrameRec : ScrnTypes.DisplayFrame);
    239. 

  239. *****                                                   ^ not supported yet
    240. 

  240.   119      BEGIN
    241. 

  241.   120        ScrnUtl2.PopZapFrame( FrameRec );
    242. 

  242. *****        ^ not supported yet
    243. 

  243. *****                 ^ not supported yet
    244. 

  244. *****                              ^ not supported yet
    245. 

  245.   121      END PopZapFrame;
    246. 

  246. *****          ^ not supported yet
    247. 

  247.   122  
    248. 

  248.   123    PROCEDURE ClearFrameStack(VAR FrameRec :
    249. 

  249.   124        ScrnTypes.DisplayFrame);
    250. 

  250. *****                  ^ not supported yet
    251. 

  251.   125      BEGIN
    252. 

  252.   126        ScrnUtl2.ClearFrameStack( FrameRec );
    253. 

  253. *****        ^ not supported yet
    254. 

  254. *****                 ^ not supported yet
    255. 

  255. *****                                  ^ not supported yet
    256. 

  256.   127      END ClearFrameStack;
    257. 

  257. *****          ^ not supported yet
    258. 

  258.   128  
    259. 

  259.   129    PROCEDURE RedrawArea( TheFrame: ScrnTypes.DisplayFrame; col1,
    260. 

  260. *****                                              ^ not supported yet
    261. 

  261.   130        row1, col2, row2: CARDINAL );
    262. 

  262.   131      BEGIN
    263. 

  263.   132        FramePainter.RedrawArea( TheFrame, col1, row1, col2, row2 );
    264. 

  264. *****        ^ not supported yet
    265. 

  265. *****                     ^ not supported yet
    266. 

  266. *****                                 ^ not supported yet
    267. 

  267. *****                                                                  ^ not supported yet
    268. 

  268.   133      END RedrawArea;
    269. 

  269. *****          ^ not supported yet
    270. 

  270.   134  
    271. 

  271.   135  
    272. 

  272.   136  BEGIN
    273. 

  273.   137    Initialized := FALSE;
    274. 

  274.   138    Init();
    275. 

  275. *****    ^ not supported yet
    276. 

  276. *****         ^ not supported yet
    277. 

  277.   139  END ScreenDisplay.
    278. 

  278. *****      ^ not supported yet
    279. 

  279. 

  280.   137 errors
    281. 

  281. 

  282.