Strona główna Odkrywaj Pomoc
Zaloguj się
eric
/
Topspeed_JPI
1
0
Forkuj 0
Pliki Problemy 0 Oczekujące zmiany 0 Wiki
Gałąź: master
Gałęzie Tagi
Topspeed_JPI
/
TS-V3
/
REP16
/
SCRNUTL2.LST

SCRNUTL2.LST 37 KB
Bezpośredni odnośnik Historia Czysty

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE ScrnUtl2;
    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/scrnutl2.mov   1.5   10 Mar 1991 15:32:40   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  
    19. 

  19.    17  (*
    20. 

  20.    18    This module contains utilities that neither ScreenDisplay nor
    21. 

  21.    19    InputManager use, but that you may find useful.
    22. 

  22.    20  *)
    23. 

  23.    21  
    24. 

  24.    22  FROM ScrnTypes IMPORT DisplayFrameRec;
    25. 

  25.    23    (*We have to import this separately because of a bug in Stony
    26. 

  26.    24      Brook M2; TSIZE doesn't take qualified identifiers.*)
    27. 

  27.    25  
    28. 

  28.    26  IMPORT ControlUtils;
    29. 

  29.    27  IMPORT DspFiles;
    30. 

  30.    28  IMPORT ErrorNames;
    31. 

  31.    29  IMPORT FrameManager;
    32. 

  32.    30  IMPORT FramePainter;
    33. 

  33.    31  IMPORT GenLists;
    34. 

  34.    32  IMPORT M2Strings;
    35. 

  35.    33  IMPORT MsColors;
    36. 

  36.    34  IMPORT Numbers;
    37. 

  37.    35  IMPORT PosUtils;
    38. 

  38.    36  IMPORT ScrnTypes;
    39. 

  39. *****         ^ duplicate identifier
    40. 

  40.    37  IMPORT ScrnUtl1;
    41. 

  41.    38  IMPORT SYSTEM;
    42. 

  42.    39  IMPORT VStorage;
    43. 

  43.    40  IMPORT VWindows;
    44. 

  44.    41  
    45. 

  45.    42  VAR
    46. 

  46.    43    Initialized : BOOLEAN;
    47. 

  47.    44  
    48. 

  48.    45    PROCEDURE Init();
    49. 

  49.    46      BEGIN
    50. 

  50.    47        IF Initialized THEN
    51. 

  51.    48          RETURN;
    52. 

  52.    49        ELSE
    53. 

  53.    50          Initialized := TRUE;
    54. 

  54.    51        END;
    55. 

  55.    52        ControlUtils.Init();
    56. 

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

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

  58. *****                          ^ not supported yet
    59. 

  59.    53        DspFiles.Init();
    60. 

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

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

  62. *****                      ^ not supported yet
    63. 

  63.    54        ErrorNames.Init();
    64. 

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

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

  66. *****                        ^ not supported yet
    67. 

  67.    55        FrameManager.Init();
    68. 

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

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

  70. *****                          ^ not supported yet
    71. 

  71.    56        FramePainter.Init();
    72. 

  72. *****        ^ not supported yet
    73. 

  73. *****                     ^ not supported yet
    74. 

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

  75.    57        GenLists.Init();
    76. 

  76. *****        ^ not supported yet
    77. 

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

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

  79.    58        M2Strings.Init();
    80. 

  80. *****        ^ not supported yet
    81. 

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

  82. *****                       ^ not supported yet
    83. 

  83.    59        MsColors.Init();
    84. 

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

  85. *****                 ^ not supported yet
    86. 

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

  87.    60        Numbers.Init();
    88. 

  88. *****        ^ not supported yet
    89. 

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

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

  91.    61        PosUtils.Init();
    92. 

  92. *****        ^ not supported yet
    93. 

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

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

  95.    62        ScrnTypes.Init();
    96. 

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

  97. *****                  ^ not supported yet
    98. 

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

  99.    63        ScrnUtl1.Init();
    100. 

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

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

  102. *****                      ^ not supported yet
    103. 

  103.    64        VStorage.Init();
    104. 

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

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

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

  107.    65        VWindows.Init();
    108. 

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

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

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

  111.    66      END Init;
    112. 

  112. *****          ^ not supported yet
    113. 

  113.    67  
    114. 

  114.    68  CONST
    115. 

  115.    69    AfterLastElmt = 65535;
    116. 

  116.    70  
    117. 

  117.    71    PROCEDURE CloseDisplayFrame(VAR FrameRec : ScrnTypes.DisplayFrame);
    118. 

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

  119.    72      (* disposes of all records and pointers in use by FrameRec.  *)
    120. 

  120.    73    BEGIN (* procedure CloseDisplayFrame *)
    121. 

  121.    74      ClearFrameStack(FrameRec);
    122. 

  122. *****      ^ undeclared identifier
    123. 

  123. *****                      ^ not supported yet
    124. 

  124.    75      IF (FrameRec^.FromFile # NIL) THEN
    125. 

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

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

  127.    76        (*Remember that there may not be a DspFile associated with
    128. 

  128.    77          the frame.*)
    129. 

  129.    78        IF NOT FrameRec^.SelfSharedWithFile THEN
    130. 

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

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

  132.    79          GenLists.DisposeList( FrameRec^.self );
    133. 

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

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

  135. *****                                ^ not supported yet
    136. 

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

  137.    80           (*We only dispose of the self list, because all the other
    138. 

  138.    81             lists are actually sublists of it. *)
    139. 

  139.    82        END;
    140. 

  140.    83      ELSE
    141. 

  141.    84        GenLists.DisposeList( FrameRec^.self );
    142. 

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

  143. *****                 ^ not supported yet
    144. 

  144. *****                              ^ not supported yet
    145. 

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

  146.    85      END;
    147. 

  147.    86      FrameManager.FrameDeactivated( FrameRec );
    148. 

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

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

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

  151.    87      VStorage.DosDealloc( FrameRec, SYSTEM.TSIZE(DisplayFrameRec));
    152. 

  152. *****      ^ not supported yet
    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.    88        (*Note that we don't dispose of FromFile because some other
    159. 

  159.    89          frame may be pointing to it.*)
    160. 

  160.    90    END CloseDisplayFrame;
    161. 

  161. *****        ^ not supported yet
    162. 

  162.    91  
    163. 

  163.    92  
    164. 

  164.    93    PROCEDURE CopyEdField( frame1: ScrnTypes.DisplayFrame;
    165. 

  165. *****                                             ^ not supported yet
    166. 

  166.    94        FieldName1: ARRAY OF CHAR; frame2: ScrnTypes.DisplayFrame;
    167. 

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

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

  169.    95        FieldName2: ARRAY OF CHAR );
    170. 

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

  171.    96      VAR
    172. 

  172.    97        list1, list2: GenLists.GenList;
    173. 

  173. *****                               ^ not supported yet
    174. 

  174.    98      BEGIN
    175. 

  175.    99        IF 0 # ScrnUtl1.FieldNum( frame1, FieldName1 ) THEN
    176. 

  176. *****               ^ not supported yet
    177. 

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

  178. *****                                  ^ not supported yet
    179. 

  179. *****                                          ^ not supported yet
    180. 

  180.   100          IF ScrnUtl1.ListFromEdField( frame1,
    181. 

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

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

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

  184.   101              frame1^.CurrentField, list1 ) THEN
    185. 

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

  186. *****                      ^ not supported yet
    187. 

  187. *****                                    ^ not supported yet
    188. 

  188.   102            IF 0 # ScrnUtl1.FieldNum( frame2, FieldName2 ) THEN
    189. 

  189. *****                   ^ not supported yet
    190. 

  190. *****                            ^ not supported yet
    191. 

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

  192. *****                                              ^ not supported yet
    193. 

  193.   103              GenLists.CopyList( list1, list2 );
    194. 

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

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

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

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

  198.   104              IF ScrnUtl1.ListToEdField( list2, frame2,
    199. 

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

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

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

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

  203.   105                  frame2^.CurrentField ) THEN
    204. 

  204. *****                  ^ not supported yet
    205. 

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

  206.   106                RETURN;
    207. 

  207.   107              END;
    208. 

  208.   108            END;
    209. 

  209.   109          END;
    210. 

  210.   110        END;
    211. 

  211.   111        HALT();
    212. 

  212. *****        ^ undeclared identifier
    213. 

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

  214.   112      END CopyEdField;
    215. 

  215. *****          ^ not supported yet
    216. 

  216.   113  
    217. 

  217.   114  
    218. 

  218.   115    PROCEDURE CreateImageElement( VAR TheElmt: ScrnTypes.ImageElement; col,
    219. 

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

  220.   116        row: CARDINAL; ForeColor, BackColor: MsColors.AColor; Attrib:
    221. 

  221. *****                                                      ^ not supported yet
    222. 

  222.   117        MsColors.AMonoAttribute; FieldNum: CARDINAL; VAR TheText: ARRAY OF
    223. 

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

  224.   118        CHAR);
    225. 

  225. *****        ^ not supported yet
    226. 

  226.   119      BEGIN
    227. 

  227.   120        TheElmt.row := row;
    228. 

  228. *****        ^ not supported yet
    229. 

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

  230.   121        TheElmt.col := col;
    231. 

  231. *****        ^ not supported yet
    232. 

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

  233.   122        TheElmt.foreg := ForeColor;
    234. 

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

  235. *****                ^ not supported yet
    236. 

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

  237.   123        TheElmt.backg := BackColor;
    238. 

  238. *****        ^ not supported yet
    239. 

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

  240. *****                         ^ not supported yet
    241. 

  241.   124        TheElmt.atrb := Attrib;
    242. 

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

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

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

  245.   125        TheElmt.field := FieldNum;
    246. 

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

  247. *****                ^ not supported yet
    248. 

  248.   126        M2Strings.Assign( TheText, TheElmt.text );
    249. 

  249. *****        ^ not supported yet
    250. 

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

  251. *****                          ^ not supported yet
    252. 

  252. *****                                   ^ not supported yet
    253. 

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

  254.   127      END CreateImageElement;
    255. 

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

  256.   128  
    257. 

  257.   129  
    258. 

  258.   130    PROCEDURE AddImageElement( VAR FrameRec: ScrnTypes.DisplayFrame;
    259. 

  259. *****                                                       ^ not supported yet
    260. 

  260.   131        VAR TheElmt: ScrnTypes.ImageElement; VAR NewImageNum: CARDINAL );
    261. 

  261. *****                               ^ not supported yet
    262. 

  262.   132      VAR
    263. 

  263.   133        width, LastImage, cnt, LastField: CARDINAL;
    264. 

  264.   134        FieldPtr: ScrnTypes.InputFieldPtr;
    265. 

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

  266.   135      BEGIN
    267. 

  267.   136        NewImageNum := 1;
    268. 

  268.   137        width := M2Strings.Length( TheElmt.text );
    269. 

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

  270. *****                           ^ not supported yet
    271. 

  271. *****                                   ^ not supported yet
    272. 

  272. *****                                           ^ not supported yet
    273. 

  273.   138        IF NOT GenLists.Initialized( FrameRec^.ImageList ) THEN
    274. 

  274. *****               ^ not supported yet
    275. 

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

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

  277. *****                                               ^ not supported yet
    278. 

  278.   139          GenLists.NewList( FrameRec^.ImageList );
    279. 

  279. *****          ^ not supported yet
    280. 

  280. *****                   ^ not supported yet
    281. 

  281. *****                            ^ not supported yet
    282. 

  282. *****                                      ^ not supported yet
    283. 

  283.   140          ScrnUtl1.PutFrameLists( FrameRec );
    284. 

  284. *****          ^ not supported yet
    285. 

  285. *****                   ^ not supported yet
    286. 

  286. *****                                  ^ not supported yet
    287. 

  287.   141            (* Make sure the new ImageList gets inserted into
    288. 

  288.   142               FrameRec's .self list. *)
    289. 

  289.   143        END;
    290. 

  290.   144        LastImage := GenLists.ListLength( FrameRec^.ImageList );
    291. 

  291. *****                     ^ not supported yet
    292. 

  292. *****                              ^ not supported yet
    293. 

  293. *****                                          ^ not supported yet
    294. 

  294. *****                                                    ^ not supported yet
    295. 

  295.   145        (* find an image element lower than row *)
    296. 

  296.   146        WHILE (NewImageNum <= LastImage) AND
    297. 

  297.   147            (ScrnUtl1.VirtualImageRow(FrameRec, NewImageNum) <= TheElmt.row) DO
    298. 

  298. *****             ^ not supported yet
    299. 

  299. *****                      ^ not supported yet
    300. 

  300. *****                                      ^ not supported yet
    301. 

  301. *****                                                           ^ not supported yet
    302. 

  302. *****                                                                ^ not supported yet
    303. 

  303. *****                                                                        ^ not supported yet
    304. 

  304.   148          INC( NewImageNum );
    305. 

  305. *****          ^ undeclared identifier
    306. 

  306. *****                           ^ not supported yet
    307. 

  307.   149        END;
    308. 

  308.   150        IF (TheElmt.col + width - 1) > FrameRec^.VirtualWidth THEN
    309. 

  309. *****            ^ not supported yet
    310. 

  310. *****                    ^ not supported yet
    311. 

  311. *****                                       ^ not supported yet
    312. 

  312. *****                                                 ^ not supported yet
    313. 

  313.   151          FrameRec^.VirtualWidth := TheElmt.col + width - 1;
    314. 

  314. *****          ^ not supported yet
    315. 

  315. *****                    ^ not supported yet
    316. 

  316. *****                                    ^ not supported yet
    317. 

  317. *****                                            ^ not supported yet
    318. 

  318.   152        END;
    319. 

  319.   153        IF TheElmt.row > FrameRec^.VirtualHeight THEN
    320. 

  320. *****           ^ not supported yet
    321. 

  321. *****                   ^ not supported yet
    322. 

  322. *****                         ^ not supported yet
    323. 

  323. *****                                   ^ not supported yet
    324. 

  324.   154          FrameRec^.VirtualHeight := TheElmt.row;
    325. 

  325. *****          ^ not supported yet
    326. 

  326. *****                    ^ not supported yet
    327. 

  327. *****                                     ^ not supported yet
    328. 

  328. *****                                             ^ not supported yet
    329. 

  329.   155        END;
    330. 

  330.   156        ScrnUtl1.EncodeImageRec( TheElmt );
    331. 

  331. *****        ^ not supported yet
    332. 

  332. *****                 ^ not supported yet
    333. 

  333. *****                                 ^ not supported yet
    334. 

  334.   157        IF NewImageNum > LastImage THEN
    335. 

  335.   158          (* No lower image element found, so we put it at the end of the
    336. 

  336.   159             list. *)
    337. 

  337.   160          GenLists.ListInsert( TheElmt, GenLists.StrCode,
    338. 

  338. *****          ^ not supported yet
    339. 

  339. *****                   ^ not supported yet
    340. 

  340. *****                               ^ not supported yet
    341. 

  341. *****                                        ^ not supported yet
    342. 

  342. *****                                                 ^ not supported yet
    343. 

  343.   161              FrameRec^.ImageList, AfterLastElmt );
    344. 

  344. *****              ^ not supported yet
    345. 

  345. *****                        ^ not supported yet
    346. 

  346. *****                                                 ^ not supported yet
    347. 

  347.   162        ELSE
    348. 

  348.   163          GenLists.ListInsert( TheElmt, GenLists.StrCode,
    349. 

  349. *****          ^ not supported yet
    350. 

  350. *****                   ^ not supported yet
    351. 

  351. *****                               ^ not supported yet
    352. 

  352. *****                                        ^ not supported yet
    353. 

  353. *****                                                 ^ not supported yet
    354. 

  354.   164              FrameRec^.ImageList, NewImageNum );
    355. 

  355. *****              ^ not supported yet
    356. 

  356. *****                        ^ not supported yet
    357. 

  357. *****                                               ^ not supported yet
    358. 

  358.   165            (* Now we have to fix up the field list; every field
    359. 

  359.   166               with an ImageNum >= NewImageNum needs its ImageNum
    360. 

  360.   167               field incremented. *)
    361. 

  361.   168          LastField := ScrnUtl1.FieldListTotal( FrameRec );
    362. 

  362. *****                       ^ not supported yet
    363. 

  363. *****                                ^ not supported yet
    364. 

  364. *****                                                ^ not supported yet
    365. 

  365.   169          FOR cnt := 1 TO LastField DO
    366. 

  366.   170            ScrnUtl1.GetFieldPtr( FrameRec, cnt, FieldPtr );
    367. 

  367. *****            ^ not supported yet
    368. 

  368. *****                     ^ not supported yet
    369. 

  369. *****                                  ^ not supported yet
    370. 

  370. *****                                                 ^ not supported yet
    371. 

  371.   171            IF FieldPtr^.ImageNum >= NewImageNum THEN
    372. 

  372. *****               ^ not supported yet
    373. 

  373. *****                         ^ not supported yet
    374. 

  374.   172              (* Because we're incrementing when ImageNum =
    375. 

  375.   173                 NewImageNum, you have to add to the ImageList
    376. 

  376.   174                 before adding to the FieldList when you're adding
    377. 

  377.   175                 a new field to a frame. *)
    378. 

  378.   176              INC( FieldPtr^.ImageNum );
    379. 

  379. *****              ^ undeclared identifier
    380. 

  380. *****                   ^ not supported yet
    381. 

  381. *****                             ^ not supported yet
    382. 

  382.   177            END;
    383. 

  383.   178          END;
    384. 

  384.   179        END;
    385. 

  385.   180      END AddImageElement;
    386. 

  386. *****          ^ not supported yet
    387. 

  387.   181  
    388. 

  388.   182  
    389. 

  389.   183    PROCEDURE WriteToFrame( VAR FrameRec: ScrnTypes.DisplayFrame; col,
    390. 

  390. *****                                                    ^ not supported yet
    391. 

  391.   184        row: CARDINAL; text: ARRAY OF CHAR );
    392. 

  392. *****                                      ^ not supported yet
    393. 

  393.   185      VAR
    394. 

  394.   186        ImageNum: CARDINAL;
    395. 

  395.   187        TmpRec: ScrnTypes.ImageElement;
    396. 

  396. *****                          ^ not supported yet
    397. 

  397.   188      BEGIN
    398. 

  398.   189        CreateImageElement( TmpRec, col, row, FrameRec^.normfor,
    399. 

  399. *****        ^ not supported yet
    400. 

  400. *****                            ^ not supported yet
    401. 

  401. *****                                              ^ not supported yet
    402. 

  402. *****                                                        ^ not supported yet
    403. 

  403.   190            FrameRec^.normbak, FrameRec^.normatrb, 0, text );
    404. 

  404. *****            ^ not supported yet
    405. 

  405. *****                      ^ not supported yet
    406. 

  406. *****                               ^ not supported yet
    407. 

  407. *****                                         ^ not supported yet
    408. 

  408. *****                                                      ^ not supported yet
    409. 

  409.   191        AddImageElement( FrameRec, TmpRec, ImageNum );
    410. 

  410. *****        ^ not supported yet
    411. 

  411. *****                         ^ not supported yet
    412. 

  412. *****                                   ^ not supported yet
    413. 

  413. *****                                                    ^ not supported yet
    414. 

  414.   192      END WriteToFrame;
    415. 

  415. *****          ^ not supported yet
    416. 

  416.   193  
    417. 

  417.   194  
    418. 

  418.   195    PROCEDURE ChoiceListToFrame( TheList: GenLists.GenList; TheFrame:
    419. 

  419. *****                                                   ^ not supported yet
    420. 

  420.   196        ScrnTypes.DisplayFrame );
    421. 

  421. *****                  ^ not supported yet
    422. 

  422.   197      VAR
    423. 

  423.   198        cnt, lngth, TypeCode, col, row: CARDINAL;
    424. 

  424.   199        TmpStr: ARRAY [0..79] OF CHAR;
    425. 

  425. *****                          ^ not supported yet
    426. 

  426. *****                                 ^ not supported yet
    427. 

  427.   200      BEGIN
    428. 

  428.   201        lngth := GenLists.ListLength( TheList );
    429. 

  429. *****                 ^ not supported yet
    430. 

  430. *****                          ^ not supported yet
    431. 

  431. *****                                      ^ not supported yet
    432. 

  432.   202        cnt := 1;
    433. 

  433.   203        col := 2;
    434. 

  434.   204        row := TheFrame^.headline + 1;
    435. 

  435. *****               ^ not supported yet
    436. 

  436. *****                         ^ not supported yet
    437. 

  437.   205        IF row = 1 THEN
    438. 

  438.   206          INC( row);
    439. 

  439. *****          ^ undeclared identifier
    440. 

  440. *****                  ^ not supported yet
    441. 

  441.   207        END;
    442. 

  442.   208        WHILE cnt <= lngth DO
    443. 

  443.   209          GenLists.GetElmt( TheList, cnt, TmpStr, TypeCode );
    444. 

  444. *****          ^ not supported yet
    445. 

  445. *****                   ^ not supported yet
    446. 

  446. *****                            ^ not supported yet
    447. 

  447. *****                                          ^ not supported yet
    448. 

  448. *****                                                           ^ not supported yet
    449. 

  449.   210          IF TypeCode = GenLists.StrCode THEN
    450. 

  450. *****                        ^ not supported yet
    451. 

  451. *****                                 ^ not supported yet
    452. 

  452.   211            ControlUtils.AddMenuItem( TheFrame, col, row, TmpStr,
    453. 

  453. *****            ^ not supported yet
    454. 

  454. *****                         ^ not supported yet
    455. 

  455. *****                                      ^ not supported yet
    456. 

  456. *****                                                          ^ not supported yet
    457. 

  457.   212                M2Strings.Length(TmpStr), 0, '' );
    458. 

  458. *****                ^ not supported yet
    459. 

  459. *****                          ^ not supported yet
    460. 

  460. *****                                 ^ not supported yet
    461. 

  461. *****                                                ^ not supported yet
    462. 

  462.   213          END;
    463. 

  463.   214          INC( row );
    464. 

  464. *****          ^ undeclared identifier
    465. 

  465. *****                   ^ not supported yet
    466. 

  466.   215          INC( cnt );
    467. 

  467. *****          ^ undeclared identifier
    468. 

  468. *****                   ^ not supported yet
    469. 

  469.   216        END;
    470. 

  470.   217      END ChoiceListToFrame;
    471. 

  471. *****          ^ not supported yet
    472. 

  472.   218  
    473. 

  473.   219  
    474. 

  474.   220    PROCEDURE ListToFrame( TheList: GenLists.GenList; TheFrame:
    475. 

  475. *****                                             ^ not supported yet
    476. 

  476.   221        ScrnTypes.DisplayFrame );
    477. 

  477. *****                  ^ not supported yet
    478. 

  478.   222      VAR
    479. 

  479.   223        cnt, lngth, TypeCode, col, row: CARDINAL;
    480. 

  480.   224        TmpStr: ARRAY [0..79] OF CHAR;
    481. 

  481. *****                          ^ not supported yet
    482. 

  482. *****                                 ^ not supported yet
    483. 

  483.   225      BEGIN
    484. 

  484.   226        lngth := GenLists.ListLength( TheList );
    485. 

  485. *****                 ^ not supported yet
    486. 

  486. *****                          ^ not supported yet
    487. 

  487. *****                                      ^ not supported yet
    488. 

  488.   227        cnt := 1;
    489. 

  489.   228        col := 2;
    490. 

  490.   229        row := TheFrame^.headline + 1;
    491. 

  491. *****               ^ not supported yet
    492. 

  492. *****                         ^ not supported yet
    493. 

  493.   230        IF row = 1 THEN
    494. 

  494.   231          INC( row);
    495. 

  495. *****          ^ undeclared identifier
    496. 

  496. *****                  ^ not supported yet
    497. 

  497.   232        END;
    498. 

  498.   233        WHILE cnt <= lngth DO
    499. 

  499.   234          GenLists.GetElmt( TheList, cnt, TmpStr, TypeCode );
    500. 

  500. *****          ^ not supported yet
    501. 

  501. *****                   ^ not supported yet
    502. 

  502. *****                            ^ not supported yet
    503. 

  503. *****                                          ^ not supported yet
    504. 

  504. *****                                                           ^ not supported yet
    505. 

  505.   235          IF TypeCode = GenLists.StrCode THEN
    506. 

  506. *****                        ^ not supported yet
    507. 

  507. *****                                 ^ not supported yet
    508. 

  508.   236            WriteToFrame( TheFrame, col, row, TmpStr );
    509. 

  509. *****            ^ not supported yet
    510. 

  510. *****                          ^ not supported yet
    511. 

  511. *****                                              ^ not supported yet
    512. 

  512.   237          END;
    513. 

  513.   238          INC( row );
    514. 

  514. *****          ^ undeclared identifier
    515. 

  515. *****                   ^ not supported yet
    516. 

  516.   239          INC( cnt );
    517. 

  517. *****          ^ undeclared identifier
    518. 

  518. *****                   ^ not supported yet
    519. 

  519.   240        END;
    520. 

  520.   241      END ListToFrame;
    521. 

  521. *****          ^ not supported yet
    522. 

  522.   242  
    523. 

  523.   243  
    524. 

  524.   244    PROCEDURE Display( TheFrame: ScrnTypes.DisplayFrame; FrameName
    525. 

  525. *****                                           ^ not supported yet
    526. 

  526.   245        : ARRAY OF CHAR );
    527. 

  527. *****                   ^ not supported yet
    528. 

  528.   246      BEGIN
    529. 

  529.   247        IF TheFrame^.FromFile = NIL THEN
    530. 

  530. *****           ^ not supported yet
    531. 

  531. *****                     ^ not supported yet
    532. 

  532.   248          ErrorNames.WarningName( 'OpnDsp' );
    533. 

  533. *****          ^ not supported yet
    534. 

  534. *****                     ^ not supported yet
    535. 

  535. *****                                  ^ not supported yet
    536. 

  536.   249          RETURN;
    537. 

  537.   250        END;
    538. 

  538.   251        DspFiles.ReadFrame( TheFrame^.FromFile,
    539. 

  539. *****        ^ not supported yet
    540. 

  540. *****                 ^ not supported yet
    541. 

  541. *****                            ^ not supported yet
    542. 

  542. *****                                      ^ not supported yet
    543. 

  543.   252            TheFrame, FrameName );
    544. 

  544. *****            ^ not supported yet
    545. 

  545. *****                      ^ not supported yet
    546. 

  546.   253        FramePainter.ShowDisplayFrame( TheFrame, 0, 0, 0, 0);
    547. 

  547. *****        ^ not supported yet
    548. 

  548. *****                     ^ not supported yet
    549. 

  549. *****                                       ^ not supported yet
    550. 

  550. *****                                                           ^ not supported yet
    551. 

  551.   254      END Display;
    552. 

  552. *****          ^ not supported yet
    553. 

  553.   255  
    554. 

  554.   256  
    555. 

  555.   257    PROCEDURE ReadAndShow( TheFile: ScrnTypes.DisplayFile;
    556. 

  556. *****                                              ^ not supported yet
    557. 

  557.   258        TheFrame: ScrnTypes.DisplayFrame; FrameName : ARRAY OF CHAR
    558. 

  558. *****                            ^ not supported yet
    559. 

  559. *****                                                               ^ not supported yet
    560. 

  560.   259        );
    561. 

  561.   260      BEGIN
    562. 

  562.   261        DspFiles.ReadFrame( TheFile, TheFrame, FrameName );
    563. 

  563. *****        ^ not supported yet
    564. 

  564. *****                 ^ not supported yet
    565. 

  565. *****                            ^ not supported yet
    566. 

  566. *****                                     ^ not supported yet
    567. 

  567. *****                                               ^ not supported yet
    568. 

  568.   262        FramePainter.ShowDisplayFrame( TheFrame, 0, 0, 0, 0);
    569. 

  569. *****        ^ not supported yet
    570. 

  570. *****                     ^ not supported yet
    571. 

  571. *****                                       ^ not supported yet
    572. 

  572. *****                                                           ^ not supported yet
    573. 

  573.   263      END ReadAndShow;
    574. 

  574. *****          ^ not supported yet
    575. 

  575.   264  
    576. 

  576.   265  
    577. 

  577.   266    PROCEDURE PushFrame( VAR FrameRec : ScrnTypes.DisplayFrame);
    578. 

  578. *****                                                  ^ not supported yet
    579. 

  579.   267      (* Push the current frame, with its fields list, onto the
    580. 

  580.   268         frame stack for this file. The current frame will be left
    581. 

  581.   269         undefined, with no fields list linked to it; it must be
    582. 

  582.   270         filled in with a call to Display. *)
    583. 

  583.   271      VAR
    584. 

  584.   272        nodeptr : ScrnTypes.DisplayFrame;
    585. 

  585. *****                            ^ not supported yet
    586. 

  586.   273    BEGIN
    587. 

  587.   274      VStorage.DosAlloc(nodeptr, SYSTEM.TSIZE(DisplayFrameRec) );
    588. 

  588. *****      ^ not supported yet
    589. 

  589. *****               ^ not supported yet
    590. 

  590. *****                        ^ not supported yet
    591. 

  591. *****                                 ^ not supported yet
    592. 

  592. *****                                        ^ not supported yet
    593. 

  593. *****                                              ^ not supported yet
    594. 

  594.   275      nodeptr^ := FrameRec^;
    595. 

  595. *****      ^ not supported yet
    596. 

  596. *****                  ^ not supported yet
    597. 

  597.   276        (* save the frame *)
    598. 

  598.   277      FrameRec^.PushedFrame := nodeptr;
    599. 

  599. *****      ^ not supported yet
    600. 

  600. *****                ^ not supported yet
    601. 

  601. *****                               ^ not supported yet
    602. 

  602.   278        (* link it to the new current frame. *)
    603. 

  603.   279      GenLists.CopyList( FrameRec^.self, nodeptr^.self );
    604. 

  604. *****      ^ not supported yet
    605. 

  605. *****               ^ not supported yet
    606. 

  606. *****                         ^ not supported yet
    607. 

  607. *****                                   ^ not supported yet
    608. 

  608. *****                                         ^ not supported yet
    609. 

  609. *****                                                  ^ not supported yet
    610. 

  610.   280        (*Note that FrameRec^.self probably equals
    611. 

  611.   281          FrameRec^.FromFile^.ListBuf at this point, so we
    612. 

  612.   282          have to be careful.*)
    613. 

  613.   283      ScrnUtl1.GetFrameLists( nodeptr );
    614. 

  614. *****      ^ not supported yet
    615. 

  615. *****               ^ not supported yet
    616. 

  616. *****                              ^ not supported yet
    617. 

  617.   284        (*The pushed frame's lists are now completely disconnected
    618. 

  618.   285          from FrameRec's lists.*)
    619. 

  619.   286      nodeptr^.SelfSharedWithFile := FALSE;
    620. 

  620. *****      ^ not supported yet
    621. 

  621. *****               ^ not supported yet
    622. 

  622.   287    END PushFrame;
    623. 

  623. *****        ^ not supported yet
    624. 

  624.   288  
    625. 

  625.   289    PROCEDURE CheckPushedFrame(VAR FrameRec :
    626. 

  626.   290        ScrnTypes.DisplayFrame) : ScrnTypes.DisplayFrame;
    627. 

  627. *****                  ^ not supported yet
    628. 

  628. *****                                            ^ not supported yet
    629. 

  629.   291    (* used internally by PopFrame and PopZapFrame  *)
    630. 

  630.   292    (* Returns pointer to valid pushed frame. *)
    631. 

  631.   293      VAR
    632. 

  632.   294        nodeptr : ScrnTypes.DisplayFrame;
    633. 

  633. *****                            ^ not supported yet
    634. 

  634.   295    BEGIN (* procedure CheckPushedFrame *)
    635. 

  635.   296      nodeptr := FrameRec^.PushedFrame;
    636. 

  636. *****      ^ not supported yet
    637. 

  637. *****                 ^ not supported yet
    638. 

  638. *****                           ^ not supported yet
    639. 

  639.   297      IF nodeptr = NIL THEN
    640. 

  640. *****         ^ not supported yet
    641. 

  641.   298        ErrorNames.WarningName( 'FrmStk' );
    642. 

  642. *****        ^ not supported yet
    643. 

  643. *****                   ^ not supported yet
    644. 

  644. *****                                ^ not supported yet
    645. 

  645.   299      END;
    646. 

  646.   300      RETURN nodeptr;
    647. 

  647. *****             ^ not supported yet
    648. 

  648.   301    END CheckPushedFrame;
    649. 

  649. *****        ^ not supported yet
    650. 

  650.   302  
    651. 

  651.   303  
    652. 

  652.   304  PROCEDURE PopFrame(VAR FrameRec : ScrnTypes.DisplayFrame);
    653. 

  653. *****                                              ^ not supported yet
    654. 

  654.   305      (* Reverses the effect of PushFrame; current display file record is
    655. 

  655.   306         discarded, and the frame on the top of the stack replaces it.
    656. 

  656.   307         After PopFrame, program would usually call ControlScreen with
    657. 

  657.   308         "showfields" TRUE.*)
    658. 

  658.   309      VAR
    659. 

  659.   310        nodeptr : ScrnTypes.DisplayFrame;
    660. 

  660. *****                            ^ not supported yet
    661. 

  661.   311    BEGIN
    662. 

  662.   312      nodeptr := CheckPushedFrame(FrameRec);
    663. 

  663. *****      ^ not supported yet
    664. 

  664. *****                 ^ not supported yet
    665. 

  665. *****                                  ^ not supported yet
    666. 

  666.   313      IF NOT FrameRec^.SelfSharedWithFile THEN
    667. 

  667. *****             ^ not supported yet
    668. 

  668. *****                       ^ not supported yet
    669. 

  669.   314        GenLists.DisposeList( FrameRec^.self );
    670. 

  670. *****        ^ not supported yet
    671. 

  671. *****                 ^ not supported yet
    672. 

  672. *****                              ^ not supported yet
    673. 

  673. *****                                        ^ not supported yet
    674. 

  674.   315          (* This disposes of all FrameRec's lists, because they are
    675. 

  675.   316             actually sublists of self.*)
    676. 

  676.   317      END;
    677. 

  677.   318      FrameRec^ := nodeptr^;
    678. 

  678. *****      ^ not supported yet
    679. 

  679. *****                   ^ not supported yet
    680. 

  680.   319        (* restore pushed frame. *)
    681. 

  681.   320      IF GenLists.ListLength( FrameRec^.self ) > 0 THEN
    682. 

  682. *****         ^ not supported yet
    683. 

  683. *****                  ^ not supported yet
    684. 

  684. *****                              ^ not supported yet
    685. 

  685. *****                                        ^ not supported yet
    686. 

  686.   321        (*We have to do this test because we need to allow
    687. 

  687.   322          PushFrame's on frames that have been initialized but not
    688. 

  688.   323          read into; we don't have to test for uninitialized self
    689. 

  689.   324          lists because InitDisplayFrame does a NewList on it, and
    690. 

  690.   325          we can at least require FrameRec to be initialized.*)
    691. 

  691.   326        ScrnUtl1.GetFrameLists( FrameRec );
    692. 

  692. *****        ^ not supported yet
    693. 

  693. *****                 ^ not supported yet
    694. 

  694. *****                                ^ not supported yet
    695. 

  695.   327          (*Gets the frame's lists out of self. *)
    696. 

  696.   328      END;
    697. 

  697.   329      VStorage.DosDealloc(nodeptr, SYSTEM.TSIZE(DisplayFrameRec) );
    698. 

  698. *****      ^ not supported yet
    699. 

  699. *****               ^ not supported yet
    700. 

  700. *****                          ^ not supported yet
    701. 

  701. *****                                   ^ not supported yet
    702. 

  702. *****                                          ^ not supported yet
    703. 

  703. *****                                                ^ not supported yet
    704. 

  704.   330        (* discard storage for pushed frame.  *)
    705. 

  705.   331    END PopFrame;
    706. 

  706. *****        ^ not supported yet
    707. 

  707.   332  
    708. 

  708.   333  PROCEDURE PopZapFrame(VAR FrameRec : ScrnTypes.DisplayFrame);
    709. 

  709. *****                                                 ^ not supported yet
    710. 

  710.   334      (*Removes last frame pushed from stack of Pushed frames, but
    711. 

  711.   335        does not change current frame or its contents. The current
    712. 

  712.   336        frame is linked to the next frame on the stack. *)
    713. 

  713.   337      VAR
    714. 

  714.   338        nodeptr : ScrnTypes.DisplayFrame;
    715. 

  715. *****                            ^ not supported yet
    716. 

  716.   339    BEGIN (* procedure PopZapFrame *)
    717. 

  717.   340      nodeptr := CheckPushedFrame(FrameRec);
    718. 

  718. *****      ^ not supported yet
    719. 

  719. *****                 ^ not supported yet
    720. 

  720. *****                                  ^ not supported yet
    721. 

  721.   341      IF NOT nodeptr^.SelfSharedWithFile THEN
    722. 

  722. *****             ^ not supported yet
    723. 

  723. *****                      ^ not supported yet
    724. 

  724.   342        GenLists.DisposeList( nodeptr^.self );
    725. 

  725. *****        ^ not supported yet
    726. 

  726. *****                 ^ not supported yet
    727. 

  727. *****                              ^ not supported yet
    728. 

  728. *****                                       ^ not supported yet
    729. 

  729.   343          (* Disposes of all lists associated with pushed frame. *)
    730. 

  730.   344      END;
    731. 

  731.   345      FrameRec^.PushedFrame := nodeptr^.PushedFrame;
    732. 

  732. *****      ^ not supported yet
    733. 

  733. *****                ^ not supported yet
    734. 

  734. *****                               ^ not supported yet
    735. 

  735. *****                                        ^ not supported yet
    736. 

  736.   346        (* link new top of stack. *)
    737. 

  737.   347      VStorage.DosDealloc(nodeptr, SYSTEM.TSIZE(DisplayFrameRec) );
    738. 

  738. *****      ^ not supported yet
    739. 

  739. *****               ^ not supported yet
    740. 

  740. *****                          ^ not supported yet
    741. 

  741. *****                                   ^ not supported yet
    742. 

  742. *****                                          ^ not supported yet
    743. 

  743. *****                                                ^ not supported yet
    744. 

  744.   348        (* discard storage for pushed frame.  *)
    745. 

  745.   349    END PopZapFrame;
    746. 

  746. *****        ^ not supported yet
    747. 

  747.   350  
    748. 

  748.   351  PROCEDURE ClearFrameStack(VAR FrameRec : ScrnTypes.DisplayFrame);
    749. 

  749. *****                                                     ^ not supported yet
    750. 

  750.   352      (* Removes all frames from stack of Pushed frames.  *)
    751. 

  751.   353    BEGIN (* procedure ClearFrameStack *)
    752. 

  752.   354      WHILE FrameRec^.PushedFrame # NIL DO
    753. 

  753. *****            ^ not supported yet
    754. 

  754. *****                      ^ not supported yet
    755. 

  755.   355        PopZapFrame(FrameRec);
    756. 

  756. *****        ^ not supported yet
    757. 

  757. *****                    ^ not supported yet
    758. 

  758.   356      END;
    759. 

  759.   357    END ClearFrameStack;
    760. 

  760. *****        ^ not supported yet
    761. 

  761.   358  
    762. 

  762.   359  
    763. 

  763.   360    PROCEDURE ShowMessage( TheFile: ScrnTypes.DisplayFile;
    764. 

  764. *****                                              ^ not supported yet
    765. 

  765.   361        FrameName : ARRAY OF CHAR );
    766. 

  766. *****                             ^ not supported yet
    767. 

  767.   362      VAR
    768. 

  768.   363        TmpFrame: ScrnTypes.DisplayFrame;
    769. 

  769. *****                            ^ not supported yet
    770. 

  770.   364      BEGIN
    771. 

  771.   365        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    772. 

  772. *****        ^ not supported yet
    773. 

  773. *****                  ^ not supported yet
    774. 

  774. *****                                    ^ not supported yet
    775. 

  775. *****                                              ^ not supported yet
    776. 

  776. *****                                                       ^ not supported yet
    777. 

  777.   366        DspFiles.ReadFrame( TheFile, TmpFrame, FrameName );
    778. 

  778. *****        ^ not supported yet
    779. 

  779. *****                 ^ not supported yet
    780. 

  780. *****                            ^ not supported yet
    781. 

  781. *****                                     ^ not supported yet
    782. 

  782. *****                                               ^ not supported yet
    783. 

  783.   367        FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    784. 

  784. *****        ^ not supported yet
    785. 

  785. *****                     ^ not supported yet
    786. 

  786. *****                                       ^ not supported yet
    787. 

  787. *****                                                            ^ not supported yet
    788. 

  788.   368        ControlUtils.Control( TmpFrame );
    789. 

  789. *****        ^ not supported yet
    790. 

  790. *****                     ^ not supported yet
    791. 

  791. *****                              ^ not supported yet
    792. 

  792.   369        CloseDisplayFrame( TmpFrame );
    793. 

  793. *****        ^ not supported yet
    794. 

  794. *****                           ^ not supported yet
    795. 

  795.   370      END ShowMessage;
    796. 

  796. *****          ^ not supported yet
    797. 

  797.   371  
    798. 

  798.   372  
    799. 

  799.   373    PROCEDURE GetEdField( TheFrame: ScrnTypes.DisplayFrame;
    800. 

  800. *****                                              ^ not supported yet
    801. 

  801.   374        FieldName: ARRAY OF CHAR; VAR TheList: GenLists.GenList );
    802. 

  802. *****                            ^ not supported yet
    803. 

  803. *****                                                        ^ not supported yet
    804. 

  804.   375      BEGIN
    805. 

  805.   376        IF 0 # ScrnUtl1.FieldNum( TheFrame, FieldName ) THEN
    806. 

  806. *****               ^ not supported yet
    807. 

  807. *****                        ^ not supported yet
    808. 

  808. *****                                  ^ not supported yet
    809. 

  809. *****                                            ^ not supported yet
    810. 

  810.   377          IF ScrnUtl1.ListFromEdField( TheFrame,
    811. 

  811. *****             ^ not supported yet
    812. 

  812. *****                      ^ not supported yet
    813. 

  813. *****                                       ^ not supported yet
    814. 

  814.   378              TheFrame^.CurrentField, TheList ) THEN
    815. 

  815. *****              ^ not supported yet
    816. 

  816. *****                        ^ not supported yet
    817. 

  817. *****                                      ^ not supported yet
    818. 

  818.   379            RETURN;
    819. 

  819.   380          END;
    820. 

  820.   381        END;
    821. 

  821.   382        HALT();
    822. 

  822. *****        ^ undeclared identifier
    823. 

  823. *****             ^ not supported yet
    824. 

  824.   383      END GetEdField;
    825. 

  825. *****          ^ not supported yet
    826. 

  826.   384  
    827. 

  827.   385  
    828. 

  828.   386  BEGIN
    829. 

  829.   387    Initialized := FALSE;
    830. 

  830.   388    Init();
    831. 

  831. *****    ^ not supported yet
    832. 

  832. *****         ^ not supported yet
    833. 

  833.   389  END ScrnUtl2.
    834. 

  834. *****      ^ not supported yet
    835. 

  835. 

  836.   443 errors
    837. 

  837. 

  838.