Inicio Explorar Ayuda
Iniciar sesión
eric
/
Topspeed_JPI
1
0
Fork 0
Archivos Incidencias 0 Pull Requests 0 Wiki
Rama: master
Ramas Etiquetas
Topspeed_JPI
/
TS-V3
/
REP16
/
SCRNCOMP.LST

SCRNCOMP.LST 139 KB
Permalink Histórico Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948 
  1. Listing:
    2. 

  2. 

  3.     1  MODULE ScrnCompile;
    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-1990 PMI
    9. 

  9.     7   *  Green Bay, WI
    10. 

  10.     8   *  All rights reserved
    11. 

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

  12.    10   *
    13. 

  13.    11   *)
    14. 

  14.    12  
    15. 

  15.    13  
    16. 

  16.    14  
    17. 

  17.    15  IMPORT BigSets;
    18. 

  18.    16  IMPORT ControlUtils;
    19. 

  19.    17  IMPORT DspFiles;
    20. 

  20.    18  IMPORT EnvironUtils;
    21. 

  21.    19  IMPORT ErrorManager;
    22. 

  22.    20  IMPORT HandleIO;
    23. 

  23.    21  IMPORT FrameManager;
    24. 

  24.    22  IMPORT FramePainter;
    25. 

  25.    23  IMPORT GenLists;
    26. 

  26.    24  IMPORT InputManager;
    27. 

  27.    25  IMPORT KbdInput;
    28. 

  28.    26  IMPORT ListUtils;
    29. 

  29.    27  IMPORT LowLevel;
    30. 

  30.    28  IMPORT M2Strings;
    31. 

  31.    29  IMPORT MakeFrame;
    32. 

  32.    30  IMPORT MsColors;
    33. 

  33.    31  IMPORT NdxBones;
    34. 

  34.    32  IMPORT NdxFiles;
    35. 

  35.    33  IMPORT NdxTypes;
    36. 

  36.    34  IMPORT NdxUtils;
    37. 

  37.    35  IMPORT PosUtils;
    38. 

  38.    36  IMPORT PrtFrame;
    39. 

  39.    37  IMPORT ScrnTypes;
    40. 

  40.    38  IMPORT ScrnUtl1;
    41. 

  41.    39  IMPORT ScrnUtl2;
    42. 

  42.    40  IMPORT StrConv;
    43. 

  43.    41  IMPORT StrEdit;
    44. 

  44.    42  IMPORT StringIO;
    45. 

  45.    43  IMPORT SYSTEM;
    46. 

  46.    44  IMPORT UserOps;
    47. 

  47.    45  IMPORT VEditor;
    48. 

  48.    46  IMPORT VWindows;
    49. 

  49.    47  IMPORT InitCompilerMods;
    50. 

  50.    48  
    51. 

  51.    49    TYPE
    52. 

  52.    50      ASyntaxChoice = (unknown, old, new);
    53. 

  53.    51  
    54. 

  54.    52    VAR
    55. 

  55.    53      LastFileName, LastFrameName, EdtFileName,
    56. 

  56.    54          DspFileName: ARRAY [0..80] OF CHAR;
    57. 

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

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

  59.    55      TopMenuList, FileList, CurrentFrameList, OutFrameList:
    60. 

  60.    56          GenLists.GenList;
    61. 

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

  62.    57      ErrStr: ARRAY [0..255] OF CHAR;
    63. 

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

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

  65.    58      FrameName, StartFrame, EndingFrame, NextFrame:
    66. 

  66.    59          ScrnTypes.AFrameName;
    67. 

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

  68.    60      ScrnCompDsp, CurrentDspFile: ScrnTypes.DisplayFile;
    69. 

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

  70.    61      ParamsRead, SavedCursorHeight, FileListLine, BadLine:
    71. 

  71.    62          CARDINAL;
    72. 

  72.    63      syntax : ASyntaxChoice;
    73. 

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

  74.    64        (*Determines the syntax rule in effect for the current .EDT
    75. 

  75.    65          file.*)
    76. 

  76.    66      CmdLineVersion, AtEndOfList, ListChanged: BOOLEAN;
    77. 

  77.    67      MovementKeys: KbdInput.KeyNumSet;
    78. 

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

  79.    68      SelChar: CHAR;
    80. 

  80.    69  
    81. 

  81.    70  
    82. 

  82.    71  (* These two new forms of the Input procedure will eventually be
    83. 

  83.    72     moved to ControlUtils. *)
    84. 

  84.    73  
    85. 

  85.    74    PROCEDURE Input2( TheFile: ScrnTypes.DisplayFile; VAR
    86. 

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

  87.    75        FrameName : ScrnTypes.AFrameName );
    88. 

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

  89.    76      VAR
    90. 

  90.    77        TmpFrame: ScrnTypes.DisplayFrame;
    91. 

  91. *****                            ^ not supported yet
    92. 

  92.    78      BEGIN
    93. 

  93.    79        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    94. 

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

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

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

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

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

  99.    80        DspFiles.ReadFrame( TheFile, TmpFrame,
    100. 

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

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

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

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

  104.    81            FrameName );
    105. 

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

  106.    82        FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    107. 

  107. *****        ^ not supported yet
    108. 

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

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

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

  111.    83        InputManager.ControlFrame( TmpFrame, 1, '', FALSE, FrameName );
    112. 

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

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

  114. *****                                   ^ not supported yet
    115. 

  115. *****                                                           ^ not supported yet
    116. 

  116.    84        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    117. 

  117. *****        ^ not supported yet
    118. 

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

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

  120.    85      END Input2;
    121. 

  121. *****          ^ not supported yet
    122. 

  122.    86  
    123. 

  123.    87  
    124. 

  124.    88    PROCEDURE InputConst2( TheFile: ScrnTypes.DisplayFile;
    125. 

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

  126.    89        FrameName : ARRAY OF CHAR );
    127. 

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

  128.    90      VAR
    129. 

  129.    91        TmpName: ScrnTypes.AFrameName;
    130. 

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

  131.    92        TmpFrame: ScrnTypes.DisplayFrame;
    132. 

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

  133.    93      BEGIN
    134. 

  134.    94        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    135. 

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

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

  137. *****                                    ^ not supported yet
    138. 

  138. *****                                              ^ not supported yet
    139. 

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

  140.    95        M2Strings.Assign( FrameName, TmpName );
    141. 

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

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

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

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

  145.    96        DspFiles.ReadFrame( TheFile, TmpFrame,
    146. 

  146. *****        ^ not supported yet
    147. 

  147. *****                 ^ not supported yet
    148. 

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

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

  150.    97            TmpName );
    151. 

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

  152.    98        FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    153. 

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

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

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

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

  157.    99        InputManager.ControlFrame( TmpFrame, 0, '', FALSE, TmpName );
    158. 

  158. *****        ^ not supported yet
    159. 

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

  160. *****                                   ^ not supported yet
    161. 

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

  162.   100        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    163. 

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

  164. *****                 ^ not supported yet
    165. 

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

  166.   101      END InputConst2;
    167. 

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

  168.   102  
    169. 

  169.   103  
    170. 

  170.   104    PROCEDURE UpdateStatus( StatusFrame: ScrnTypes.DisplayFrame;
    171. 

  171. *****                                                   ^ not supported yet
    172. 

  172.   105        FieldName, NewStatus: ARRAY OF CHAR );
    173. 

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

  174.   106      VAR
    175. 

  175.   107        width, TmpFieldNum: CARDINAL;
    176. 

  176.   108        TmpStr: ARRAY [0..79] OF CHAR;
    177. 

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

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

  179.   109      BEGIN
    180. 

  180.   110        TmpFieldNum := ScrnUtl1.FieldNum(StatusFrame, FieldName );
    181. 

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

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

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

  184. *****                                                      ^ not supported yet
    185. 

  185.   111        width := ScrnUtl1.FieldWidth( StatusFrame, TmpFieldNum );
    186. 

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

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

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

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

  190.   112        StrEdit.AssignStr( NewStatus, TmpStr );
    191. 

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

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

  193. *****                           ^ not supported yet
    194. 

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

  195.   113        StrEdit.Center( TmpStr, width );
    196. 

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

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

  198. *****                        ^ not supported yet
    199. 

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

  200.   114        ControlUtils.ChangeField( StatusFrame, TmpStr, FieldName, TRUE );
    201. 

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

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

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

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

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

  206. *****                                                                       ^ not supported yet
    207. 

  207.   115        FramePainter.RedrawField( StatusFrame, TmpFieldNum, FALSE );
    208. 

  208. *****        ^ not supported yet
    209. 

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

  210. *****                                  ^ not supported yet
    211. 

  211. *****                                                                  ^ not supported yet
    212. 

  212.   116      END UpdateStatus;
    213. 

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

  214.   117  
    215. 

  215.   118  
    216. 

  216.   119  PROCEDURE CommandLineSwitch(): BOOLEAN;
    217. 

  217.   120    VAR
    218. 

  218.   121      lngth: CARDINAL;
    219. 

  219.   122      ParamStr: ARRAY [0..127] OF CHAR;
    220. 

  220. *****                          ^ not supported yet
    221. 

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

  222.   123    BEGIN
    223. 

  223.   124      EnvironUtils.GetProgParams( ParamStr );
    224. 

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

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

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

  227.   125      StrEdit.CrunchBlanks( ParamStr );
    228. 

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

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

  230. *****                            ^ not supported yet
    231. 

  231.   126      lngth := M2Strings.Length( ParamStr );
    232. 

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

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

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

  235.   127      IF lngth < 2 THEN
    236. 

  236.   128        RETURN FALSE;
    237. 

  237.   129      END;
    238. 

  238.   130      IF (ParamStr[ lngth - 2 ] = '/') AND
    239. 

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

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

  241.   131          (CAP(ParamStr[ lngth - 1 ]) = 'C') THEN
    242. 

  242. *****           ^ undeclared identifier
    243. 

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

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

  245.   132        RETURN TRUE;
    246. 

  246.   133      ELSE
    247. 

  247.   134        RETURN FALSE;
    248. 

  248.   135      END;
    249. 

  249.   136    END CommandLineSwitch;
    250. 

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

  251.   137  
    252. 

  252.   138  
    253. 

  253.   139  PROCEDURE AddExtension( VAR FileName: ARRAY OF CHAR;
    254. 

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

  255.   140      Extension: ARRAY OF CHAR );
    256. 

  256. *****                          ^ not supported yet
    257. 

  257.   141    BEGIN
    258. 

  258.   142      IF NOT PosUtils.Present( ".", FileName) THEN
    259. 

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

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

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

  262.   143        StrEdit.Append( FileName, Extension );
    263. 

  263. *****        ^ not supported yet
    264. 

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

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

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

  267.   144      END;
    268. 

  268.   145    END AddExtension;
    269. 

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

  270.   146  
    271. 

  271.   147  
    272. 

  272.   148  PROCEDURE AddMovementKeys( VAR TheKeySet: KbdInput.KeyNumSet );
    273. 

  273. *****                                                     ^ not supported yet
    274. 

  274.   149    BEGIN
    275. 

  275.   150      BigSets.SetUnion( TheKeySet, MovementKeys, TheKeySet );
    276. 

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

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

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

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

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

  281.   151    END AddMovementKeys;
    282. 

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

  283.   152  
    284. 

  284.   153  
    285. 

  285.   154  PROCEDURE RemoveMovementKeys( VAR TheKeySet: KbdInput.KeyNumSet );
    286. 

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

  287.   155    BEGIN
    288. 

  288.   156      BigSets.SetDifference( TheKeySet, MovementKeys, TheKeySet );
    289. 

  289. *****      ^ not supported yet
    290. 

  290. *****              ^ not supported yet
    291. 

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

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

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

  294.   157    END RemoveMovementKeys;
    295. 

  295. *****        ^ not supported yet
    296. 

  296.   158  
    297. 

  297.   159  
    298. 

  298.   160  PROCEDURE CallEditor( VAR TheList: GenLists.GenList;
    299. 

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

  300.   161      VAR ControlRec: VEditor.AnEdControlRec );
    301. 

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

  302.   162    VAR
    303. 

  303.   163      TmpFrame: ScrnTypes.DisplayFrame;
    304. 

  304. *****                          ^ not supported yet
    305. 

  305.   164    BEGIN
    306. 

  306.   165      ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    307. 

  307. *****      ^ not supported yet
    308. 

  308. *****                ^ not supported yet
    309. 

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

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

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

  312.   166      ControlUtils.AddEditorField( TmpFrame, TheList, ControlRec );
    313. 

  313. *****      ^ not supported yet
    314. 

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

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

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

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

  318.   167      FrameManager.FrameActivated( TmpFrame );
    319. 

  319. *****      ^ not supported yet
    320. 

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

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

  322.   168      UserOps.DoPrompting := FALSE;
    323. 

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

  324. *****              ^ not supported yet
    325. 

  325.   169      RemoveMovementKeys( UserOps.FieldExitKeySet );
    326. 

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

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

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

  329.   170      VEditor.TheEditor( TheList, ControlRec );
    330. 

  330. *****      ^ not supported yet
    331. 

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

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

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

  334.   171      AddMovementKeys( UserOps.FieldExitKeySet );
    335. 

  335. *****      ^ not supported yet
    336. 

  336. *****                       ^ not supported yet
    337. 

  337. *****                               ^ not supported yet
    338. 

  338.   172      UserOps.DoPrompting := TRUE;
    339. 

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

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

  341.   173      GenLists.NilList( TmpFrame^.EdFieldList );
    342. 

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

  343. *****               ^ not supported yet
    344. 

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

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

  346.   174      GenLists.DisconnectLists( TheList, TmpFrame^.self );
    347. 

  347. *****      ^ not supported yet
    348. 

  348. *****               ^ not supported yet
    349. 

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

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

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

  352.   175        (* We have to disconnect TheList because it has become a sublist
    353. 

  353.   176           of TmpFrame's .self list, which is about to be disposed of. *)
    354. 

  354.   177      ScrnUtl2.CloseDisplayFrame( TmpFrame );
    355. 

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

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

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

  358.   178      VWindows.SetForeColor( VWindows.CurrentWindow, MsColors.lightgrey );
    359. 

  359. *****      ^ not supported yet
    360. 

  360. *****               ^ not supported yet
    361. 

  361. *****                             ^ not supported yet
    362. 

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

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

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

  365.   179      VWindows.SetBackColor( VWindows.CurrentWindow, MsColors.black );
    366. 

  366. *****      ^ not supported yet
    367. 

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

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

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

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

  371. *****                                                              ^ not supported yet
    372. 

  372.   180      VWindows.SetMonoAttr( VWindows.CurrentWindow, MsColors.plain );
    373. 

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

  374. *****               ^ not supported yet
    375. 

  375. *****                            ^ not supported yet
    376. 

  376. *****                                     ^ not supported yet
    377. 

  377. *****                                                    ^ not supported yet
    378. 

  378. *****                                                             ^ not supported yet
    379. 

  379.   181      VWindows.ClearPart( VWindows.CurrentWindow, 1,1,
    380. 

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

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

  382. *****                          ^ not supported yet
    383. 

  383. *****                                   ^ not supported yet
    384. 

  384.   182          VWindows.EndCol(VWindows.CurrentWindow),
    385. 

  385. *****          ^ not supported yet
    386. 

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

  387. *****                          ^ not supported yet
    388. 

  388. *****                                   ^ not supported yet
    389. 

  389.   183          VWindows.EndRow(VWindows.CurrentWindow) );
    390. 

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

  391. *****                   ^ not supported yet
    392. 

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

  393. *****                                   ^ not supported yet
    394. 

  394.   184    END CallEditor;
    395. 

  395. *****        ^ not supported yet
    396. 

  396.   185  
    397. 

  397.   186  
    398. 

  398.   187  PROCEDURE CloseCurrentDsp();
    399. 

  399.   188    BEGIN
    400. 

  400.   189      IF (CurrentDspFile # NIL) THEN
    401. 

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

  402.   190        NdxUtils.CrunchNdxFile( CurrentDspFile );
    403. 

  403. *****        ^ not supported yet
    404. 

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

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

  406.   191        NdxFiles.CloseNdxFile( CurrentDspFile );
    407. 

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

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

  409. *****                               ^ not supported yet
    410. 

  410.   192      END;
    411. 

  411.   193    END CloseCurrentDsp;
    412. 

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

  413.   194  
    414. 

  414.   195  
    415. 

  415.   196  PROCEDURE Yes( Prompt: ARRAY OF CHAR ): BOOLEAN;
    416. 

  416. *****                                  ^ not supported yet
    417. 

  417.   197    BEGIN
    418. 

  418.   198      IF CmdLineVersion THEN
    419. 

  419.   199        StringIO.WriteEol( StringIO.outp, '' );
    420. 

  420. *****        ^ not supported yet
    421. 

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

  422. *****                           ^ not supported yet
    423. 

  423. *****                                    ^ not supported yet
    424. 

  424. *****                                             ^ not supported yet
    425. 

  425.   200        StringIO.WriteStr( StringIO.outp, Prompt );
    426. 

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

  427. *****                 ^ not supported yet
    428. 

  428. *****                           ^ not supported yet
    429. 

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

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

  431.   201        StringIO.WriteStr( StringIO.outp, ' (Y/N):  ' );
    432. 

  432. *****        ^ not supported yet
    433. 

  433. *****                 ^ not supported yet
    434. 

  434. *****                           ^ not supported yet
    435. 

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

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

  437.   202        RETURN KbdInput.CAPkey( KbdInput.KeyHit( KbdInput.YorN ) ) = ORD('Y');
    438. 

  438. *****               ^ not supported yet
    439. 

  439. *****                        ^ not supported yet
    440. 

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

  441. *****                                         ^ not supported yet
    442. 

  442. *****                                                 ^ not supported yet
    443. 

  443. *****                                                          ^ not supported yet
    444. 

  444. *****                                                                     ^ undeclared identifier
    445. 

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

  446.   203      ELSE
    447. 

  447.   204        M2Strings.Assign( Prompt, NextFrame );
    448. 

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

  449. *****                  ^ not supported yet
    450. 

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

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

  452.   205        ControlUtils.Input( DspFiles.MainFrame, NextFrame );
    453. 

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

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

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

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

  457. *****                                                ^ not supported yet
    458. 

  458.   206        RETURN CAP( ScrnUtl1.SelectedChar(DspFiles.MainFrame) ) = 'Y';
    459. 

  459. *****               ^ undeclared identifier
    460. 

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

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

  462. *****                                          ^ not supported yet
    463. 

  463. *****                                                   ^ not supported yet
    464. 

  464.   207      END;
    465. 

  465.   208    END Yes;
    466. 

  466. *****        ^ not supported yet
    467. 

  467.   209  
    468. 

  468.   210  
    469. 

  469.   211  PROCEDURE NamesToFrame( DspFile: ScrnTypes.DisplayFile;
    470. 

  470. *****                                             ^ not supported yet
    471. 

  471.   212      VAR TheFrame: ScrnTypes.DisplayFrame );
    472. 

  472. *****                              ^ not supported yet
    473. 

  473.   213    VAR
    474. 

  474.   214      NdxRec: NdxTypes.NdxElement;
    475. 

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

  476.   215      lngth, cnt, TypeCode: CARDINAL;
    477. 

  477.   216    BEGIN
    478. 

  478.   217      lngth := GenLists.ListLength( DspFile^.Ndx );
    479. 

  479. *****               ^ not supported yet
    480. 

  480. *****                        ^ not supported yet
    481. 

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

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

  483.   218      FOR cnt := 1 TO lngth DO
    484. 

  484.   219        GenLists.GetElmt( DspFile^.Ndx, cnt, NdxRec, TypeCode );
    485. 

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

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

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

  488. *****                                   ^ not supported yet
    489. 

  489. *****                                             ^ not supported yet
    490. 

  490. *****                                                              ^ not supported yet
    491. 

  491.   220        IF NdxRec.RecName[0] # 0C THEN
    492. 

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

  493. *****                  ^ not supported yet
    494. 

  494. *****                           ^ not supported yet
    495. 

  495.   221          IF NOT (PosUtils.Pos( 'RepVers', NdxRec.RecName ) = 0) THEN
    496. 

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

  497. *****                           ^ not supported yet
    498. 

  498. *****                                ^ not supported yet
    499. 

  499. *****                                           ^ not supported yet
    500. 

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

  501.   222            (* We don't want to write out the name of the version
    502. 

  502.   223               check record. *)
    503. 

  503.   224            ControlUtils.AddMenuItem( TheFrame, 2, 1 + cnt,
    504. 

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

  505. *****                         ^ not supported yet
    506. 

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

  507.   225                NdxRec.RecName, 20, 0, NdxRec.RecName );
    508. 

  508. *****                ^ not supported yet
    509. 

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

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

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

  512.   226          END;
    513. 

  513.   227        END;
    514. 

  514.   228      END;
    515. 

  515.   229    END NamesToFrame;
    516. 

  516. *****        ^ not supported yet
    517. 

  517.   230  
    518. 

  518.   231  
    519. 

  519.   232  PROCEDURE InsertCommandDelims( VAR TheList: GenLists.GenList );
    520. 

  520. *****                                                       ^ not supported yet
    521. 

  521.   233    VAR
    522. 

  522.   234      TmpStr: ARRAY [0..127] OF CHAR;
    523. 

  523. *****                        ^ not supported yet
    524. 

  524. *****                                ^ not supported yet
    525. 

  525.   235    BEGIN
    526. 

  526.   236      IF GenLists.ListLength( TheList ) = 0 THEN
    527. 

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

  528. *****                  ^ not supported yet
    529. 

  529. *****                              ^ not supported yet
    530. 

  530.   237        (*Get em started--command area delimiters are tedious to
    531. 

  531.   238          type in.*)
    532. 

  532.   239        LowLevel.Fill( SYSTEM.ADR(TmpStr), 80, '=' );
    533. 

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

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

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

  536. *****                              ^ not supported yet
    537. 

  537. *****                                  ^ not supported yet
    538. 

  538. *****                                                   ^ not supported yet
    539. 

  539.   240        GenLists.ListInsert( TmpStr, GenLists.StrCode,
    540. 

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

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

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

  543. *****                                     ^ not supported yet
    544. 

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

  545.   241            TheList, 1 );
    546. 

  546. *****            ^ not supported yet
    547. 

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

  548.   242        LowLevel.Fill( SYSTEM.ADR(TmpStr), 80, '-' );
    549. 

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

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

  551. *****                       ^ not supported yet
    552. 

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

  553. *****                                  ^ not supported yet
    554. 

  554. *****                                                   ^ not supported yet
    555. 

  555.   243        GenLists.ListInsert( ':[insert name here]',
    556. 

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

  557. *****                 ^ not supported yet
    558. 

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

  559.   244            GenLists.StrCode, TheList, 2 );
    560. 

  560. *****            ^ not supported yet
    561. 

  561. *****                     ^ not supported yet
    562. 

  562. *****                              ^ not supported yet
    563. 

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

  564.   245        GenLists.ListInsert( TmpStr, GenLists.StrCode,
    565. 

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

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

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

  568. *****                                     ^ not supported yet
    569. 

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

  570.   246            TheList, 3 );
    571. 

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

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

  573.   247      END;
    574. 

  574.   248    END InsertCommandDelims;
    575. 

  575. *****        ^ not supported yet
    576. 

  576.   249  
    577. 

  577.   250  
    578. 

  578.   251  PROCEDURE GetStrResponse( Prompt, Default: ARRAY OF CHAR;
    579. 

  579. *****                                                      ^ not supported yet
    580. 

  580.   252      VAR TheStr: ARRAY OF CHAR ): BOOLEAN;
    581. 

  581. *****                           ^ not supported yet
    582. 

  582.   253    BEGIN
    583. 

  583.   254      IF CmdLineVersion THEN
    584. 

  584.   255        IF EnvironUtils.ParsedParam( ParamsRead + 1, TheStr ) THEN
    585. 

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

  586. *****                        ^ not supported yet
    587. 

  587. *****                                                     ^ not supported yet
    588. 

  588.   256          IF TheStr[0] # '/' THEN
    589. 

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

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

  591.   257            IF PosUtils.Present( '/c', TheStr ) OR
    592. 

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

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

  594. *****                                 ^ not supported yet
    595. 

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

  596.   258                PosUtils.Present( '/C', TheStr ) THEN
    597. 

  597. *****                ^ not supported yet
    598. 

  598. *****                         ^ not supported yet
    599. 

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

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

  601.   259              M2Strings.Delete( TheStr, M2Strings.Length(TheStr) - 2, 2 );
    602. 

  602. *****              ^ not supported yet
    603. 

  603. *****                        ^ not supported yet
    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.   260              StrEdit.CrunchBlanks( TheStr );
    610. 

  610. *****              ^ not supported yet
    611. 

  611. *****                      ^ not supported yet
    612. 

  612. *****                                    ^ not supported yet
    613. 

  613.   261            END;
    614. 

  614.   262            INC( ParamsRead );
    615. 

  615. *****            ^ undeclared identifier
    616. 

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

  617.   263            RETURN TRUE;
    618. 

  618.   264          END;
    619. 

  619.   265        END;
    620. 

  620.   266        StringIO.WriteStr( StringIO.outp, Prompt );
    621. 

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

  622. *****                 ^ not supported yet
    623. 

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

  624. *****                                    ^ not supported yet
    625. 

  625. *****                                          ^ not supported yet
    626. 

  626.   267        StringIO.WriteStr( StringIO.outp, ':  ' );
    627. 

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

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

  629. *****                           ^ not supported yet
    630. 

  630. *****                                    ^ not supported yet
    631. 

  631. *****                                          ^ not supported yet
    632. 

  632.   268        StringIO.ReadStr( StringIO.inp, TheStr );
    633. 

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

  634. *****                 ^ not supported yet
    635. 

  635. *****                          ^ not supported yet
    636. 

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

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

  638.   269        IF TheStr[0] # 0C THEN
    639. 

  639. *****           ^ not supported yet
    640. 

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

  641.   270          RETURN TRUE;
    642. 

  642.   271        ELSE
    643. 

  643.   272          RETURN FALSE;
    644. 

  644.   273        END;
    645. 

  645.   274      END;
    646. 

  646.   275      M2Strings.Assign( Prompt, NextFrame );
    647. 

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

  648. *****                ^ not supported yet
    649. 

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

  650. *****                                ^ not supported yet
    651. 

  651.   276      DspFiles.ReadDisplayFrame( ScrnCompDsp, DspFiles.MainFrame, NextFrame );
    652. 

  652. *****      ^ not supported yet
    653. 

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

  654. *****                                 ^ not supported yet
    655. 

  655. *****                                              ^ not supported yet
    656. 

  656. *****                                                       ^ not supported yet
    657. 

  657. *****                                                                  ^ not supported yet
    658. 

  658.   277      ControlUtils.ChangeField( DspFiles.MainFrame, Default, 'TheStr', TRUE );
    659. 

  659. *****      ^ not supported yet
    660. 

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

  661. *****                                ^ not supported yet
    662. 

  662. *****                                         ^ not supported yet
    663. 

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

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

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

  666.   278      FramePainter.ShowDisplayFrame( DspFiles.MainFrame, 0, 0, 0, 0 );
    667. 

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

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

  669. *****                                     ^ not supported yet
    670. 

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

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

  672.   279      InputManager.ControlFrame( DspFiles.MainFrame, 1, '', FALSE, NextFrame );
    673. 

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

  674. *****                   ^ not supported yet
    675. 

  675. *****                                 ^ not supported yet
    676. 

  676. *****                                          ^ not supported yet
    677. 

  677. *****                                                                   ^ not supported yet
    678. 

  678.   280      IF PosUtils.Equal( DspFiles.MainFrame^.parent, NextFrame ) THEN
    679. 

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

  680. *****                  ^ not supported yet
    681. 

  681. *****                         ^ not supported yet
    682. 

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

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

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

  685.   281        RETURN FALSE;
    686. 

  686.   282      END;
    687. 

  687.   283      ControlUtils.ReadInput( DspFiles.MainFrame, TheStr, 'TheStr' );
    688. 

  688. *****      ^ not supported yet
    689. 

  689. *****                   ^ not supported yet
    690. 

  690. *****                              ^ not supported yet
    691. 

  691. *****                                       ^ not supported yet
    692. 

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

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

  694.   284      StrEdit.CrunchBlanks( TheStr );
    695. 

  695. *****      ^ not supported yet
    696. 

  696. *****              ^ not supported yet
    697. 

  697. *****                            ^ not supported yet
    698. 

  698.   285      RETURN TRUE;
    699. 

  699.   286    END GetStrResponse;
    700. 

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

  701.   287  
    702. 

  702.   288  
    703. 

  703.   289  PROCEDURE ReadNewEdtFile(): BOOLEAN;
    704. 

  704.   290    BEGIN
    705. 

  705.   291      IF GenLists.Initialized( FileList ) THEN
    706. 

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

  707. *****                  ^ not supported yet
    708. 

  708. *****                               ^ not supported yet
    709. 

  709.   292        IF Yes('SaveEdt') THEN
    710. 

  710. *****           ^ not supported yet
    711. 

  711. *****               ^ not supported yet
    712. 

  712.   293          IF NOT GetStrResponse( 'EdtName', EdtFileName, EdtFileName ) THEN
    713. 

  713. *****                 ^ not supported yet
    714. 

  714. *****                                 ^ not supported yet
    715. 

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

  716. *****                                                         ^ not supported yet
    717. 

  717.   294            RETURN FALSE;
    718. 

  718.   295          END;
    719. 

  719.   296          AddExtension( EdtFileName, '.EDT' );
    720. 

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

  721. *****                        ^ not supported yet
    722. 

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

  723.   297          IF StringIO.NoError # ListUtils.TextListToFile( FileList,
    724. 

  724. *****             ^ not supported yet
    725. 

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

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

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

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

  729.   298              EdtFileName ) THEN
    730. 

  730. *****              ^ not supported yet
    731. 

  731.   299            RETURN FALSE;
    732. 

  732.   300          END;
    733. 

  733.   301        END;
    734. 

  734.   302        GenLists.DisposeList( FileList );
    735. 

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

  736. *****                 ^ not supported yet
    737. 

  737. *****                              ^ not supported yet
    738. 

  738.   303      END;
    739. 

  739.   304      LOOP
    740. 

  740.   305        IF NOT GetStrResponse( 'EdtName', LastFileName, EdtFileName ) THEN
    741. 

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

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

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

  744. *****                                                        ^ not supported yet
    745. 

  745.   306          RETURN FALSE;
    746. 

  746.   307        END;
    747. 

  747.   308        M2Strings.Assign( EdtFileName, LastFileName );
    748. 

  748. *****        ^ not supported yet
    749. 

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

  750. *****                          ^ not supported yet
    751. 

  751. *****                                       ^ not supported yet
    752. 

  752.   309        AddExtension( EdtFileName, '.EDT' );
    753. 

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

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

  755. *****                                   ^ not supported yet
    756. 

  756.   310        GenLists.NewList( FileList );
    757. 

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

  758. *****                 ^ not supported yet
    759. 

  759. *****                          ^ not supported yet
    760. 

  760.   311        IF ListUtils.TextFileToList( EdtFileName, FileList)
    761. 

  761. *****           ^ not supported yet
    762. 

  762. *****                     ^ not supported yet
    763. 

  763. *****                                     ^ not supported yet
    764. 

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

  765.   312            = StringIO.NoError THEN
    766. 

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

  767. *****                       ^ not supported yet
    768. 

  768.   313          ListUtils.DeTabList( FileList, ListChanged );
    769. 

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

  770. *****                    ^ not supported yet
    771. 

  771. *****                               ^ not supported yet
    772. 

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

  773.   314          EXIT;
    774. 

  774.   315        ELSIF Yes( 'CreateQ' ) THEN
    775. 

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

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

  777.   316          GenLists.DisposeList( FileList );
    778. 

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

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

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

  781.   317          GenLists.CopyList( CurrentFrameList, FileList );
    782. 

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

  783. *****                   ^ not supported yet
    784. 

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

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

  786.   318          InsertCommandDelims( FileList );
    787. 

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

  788. *****                               ^ not supported yet
    789. 

  789.   319            (*Won't do anything if there's already something in
    790. 

  790.   320              CurrentFrameList.*)
    791. 

  791.   321        ELSE
    792. 

  792.   322          GenLists.DisposeList( FileList );
    793. 

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

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

  795. *****                                ^ not supported yet
    796. 

  796.   323          IF NOT CmdLineVersion THEN
    797. 

  797.   324            InputConst2( ScrnCompDsp, 'FileError' );
    798. 

  798. *****            ^ not supported yet
    799. 

  799. *****                         ^ not supported yet
    800. 

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

  801.   325          END;
    802. 

  802.   326          RETURN FALSE;
    803. 

  803.   327        END;
    804. 

  804.   328      END;
    805. 

  805.   329      FileListLine := 1;
    806. 

  806.   330      RETURN TRUE;
    807. 

  807.   331    END ReadNewEdtFile;
    808. 

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

  809.   332  
    810. 

  810.   333  
    811. 

  811.   334  PROCEDURE RightVersion( VAR dfile: ScrnTypes.DisplayFile ): BOOLEAN;
    812. 

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

  813.   335    VAR
    814. 

  814.   336      TypeCode: CARDINAL;
    815. 

  815.   337      tmpstr: ScrnTypes.AFrameName;
    816. 

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

  817.   338    BEGIN
    818. 

  818.   339      IF NdxBones.InitBuffer( dfile, 'RepVers' ) THEN
    819. 

  819. *****         ^ not supported yet
    820. 

  820. *****                  ^ not supported yet
    821. 

  821. *****                              ^ not supported yet
    822. 

  822. *****                                     ^ not supported yet
    823. 

  823.   340        GenLists.GetElmt( dfile^.ListBuf, 1, tmpstr, TypeCode );
    824. 

  824. *****        ^ not supported yet
    825. 

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

  826. *****                          ^ not supported yet
    827. 

  827. *****                                 ^ not supported yet
    828. 

  828. *****                                             ^ not supported yet
    829. 

  829. *****                                                              ^ not supported yet
    830. 

  830.   341        IF PosUtils.Equal( '1.5c', tmpstr ) THEN
    831. 

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

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

  833. *****                           ^ not supported yet
    834. 

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

  835.   342          RETURN TRUE;
    836. 

  836.   343        ELSE
    837. 

  837.   344          DspFiles.CloseDisplayFile( dfile );
    838. 

  838. *****          ^ not supported yet
    839. 

  839. *****                   ^ not supported yet
    840. 

  840. *****                                     ^ not supported yet
    841. 

  841.   345          RETURN FALSE;
    842. 

  842.   346        END;
    843. 

  843.   347      ELSE
    844. 

  844.   348        DspFiles.CloseDisplayFile( dfile );
    845. 

  845. *****        ^ not supported yet
    846. 

  846. *****                 ^ not supported yet
    847. 

  847. *****                                   ^ not supported yet
    848. 

  848.   349        RETURN FALSE;
    849. 

  849.   350      END;
    850. 

  850.   351    END RightVersion;
    851. 

  851. *****        ^ not supported yet
    852. 

  852.   352  
    853. 

  853.   353  
    854. 

  854.   354  PROCEDURE OpenNewDspFile(): BOOLEAN;
    855. 

  855.   355    BEGIN
    856. 

  856.   356      IF CurrentDspFile # NIL THEN
    857. 

  857. *****         ^ not supported yet
    858. 

  858.   357        DspFiles.CloseDisplayFile( CurrentDspFile );
    859. 

  859. *****        ^ not supported yet
    860. 

  860. *****                 ^ not supported yet
    861. 

  861. *****                                   ^ not supported yet
    862. 

  862.   358      END;
    863. 

  863.   359      LOOP
    864. 

  864.   360        IF NOT GetStrResponse( 'DspName', LastFileName, DspFileName ) THEN
    865. 

  865. *****               ^ not supported yet
    866. 

  866. *****                               ^ not supported yet
    867. 

  867. *****                                          ^ not supported yet
    868. 

  868. *****                                                        ^ not supported yet
    869. 

  869.   361          RETURN FALSE;
    870. 

  870.   362        END;
    871. 

  871.   363        M2Strings.Assign( DspFileName, LastFileName );
    872. 

  872. *****        ^ not supported yet
    873. 

  873. *****                  ^ not supported yet
    874. 

  874. *****                          ^ not supported yet
    875. 

  875. *****                                       ^ not supported yet
    876. 

  876.   364        AddExtension( DspFileName, ".DSP" );
    877. 

  877. *****        ^ not supported yet
    878. 

  878. *****                      ^ not supported yet
    879. 

  879. *****                                   ^ not supported yet
    880. 

  880.   365        IF DspFiles.OpenDisplayFile( CurrentDspFile, DspFileName )
    881. 

  881. *****           ^ not supported yet
    882. 

  882. *****                    ^ not supported yet
    883. 

  883. *****                                     ^ not supported yet
    884. 

  884. *****                                                     ^ not supported yet
    885. 

  885.   366            AND RightVersion(CurrentDspFile) THEN
    886. 

  886. *****                ^ not supported yet
    887. 

  887. *****                             ^ not supported yet
    888. 

  888.   367          (*Don't let them open a .DSP file created by an
    889. 

  889.   368            incompatible version of the screen compiler.  Make them
    890. 

  890.   369            start over.*)
    891. 

  891.   370          EXIT;
    892. 

  892.   371        ELSIF CmdLineVersion THEN
    893. 

  893.   372          NdxFiles.CreateNdxFile( CurrentDspFile, DspFileName, "" );
    894. 

  894. *****          ^ not supported yet
    895. 

  895. *****                   ^ not supported yet
    896. 

  896. *****                                  ^ not supported yet
    897. 

  897. *****                                                  ^ not supported yet
    898. 

  898. *****                                                                  ^ not supported yet
    899. 

  899.   373          IF NdxFiles.PutField( CurrentDspFile, 'RepVers',
    900. 

  900. *****             ^ not supported yet
    901. 

  901. *****                      ^ not supported yet
    902. 

  902. *****                                ^ not supported yet
    903. 

  903. *****                                                ^ not supported yet
    904. 

  904.   374              'RECORD', GenLists.StrCode, '1.5c' ) AND
    905. 

  905. *****              ^ not supported yet
    906. 

  906. *****                        ^ not supported yet
    907. 

  907. *****                                 ^ not supported yet
    908. 

  908. *****                                          ^ not supported yet
    909. 

  909.   375              NdxFiles.WriteRecord( CurrentDspFile, 'RepVers' ) THEN
    910. 

  910. *****              ^ not supported yet
    911. 

  911. *****                       ^ not supported yet
    912. 

  912. *****                                    ^ not supported yet
    913. 

  913. *****                                                    ^ not supported yet
    914. 

  914.   376            EXIT;
    915. 

  915.   377          END
    916. 

  916.   378        ELSE
    917. 

  917.   379          IF Yes( 'CreateQ' ) THEN
    918. 

  918. *****             ^ not supported yet
    919. 

  919. *****                  ^ not supported yet
    920. 

  920.   380            NdxFiles.CreateNdxFile( CurrentDspFile, DspFileName, "" );
    921. 

  921. *****            ^ not supported yet
    922. 

  922. *****                     ^ not supported yet
    923. 

  923. *****                                    ^ not supported yet
    924. 

  924. *****                                                    ^ not supported yet
    925. 

  925. *****                                                                    ^ not supported yet
    926. 

  926.   381            IF NdxFiles.PutField( CurrentDspFile, 'RepVers',
    927. 

  927. *****               ^ not supported yet
    928. 

  928. *****                        ^ not supported yet
    929. 

  929. *****                                  ^ not supported yet
    930. 

  930. *****                                                  ^ not supported yet
    931. 

  931.   382                'RECORD', GenLists.StrCode, '1.5c' )  AND
    932. 

  932. *****                ^ not supported yet
    933. 

  933. *****                          ^ not supported yet
    934. 

  934. *****                                   ^ not supported yet
    935. 

  935. *****                                            ^ not supported yet
    936. 

  936.   383                NdxFiles.WriteRecord( CurrentDspFile, 'RepVers' ) THEN
    937. 

  937. *****                ^ not supported yet
    938. 

  938. *****                         ^ not supported yet
    939. 

  939. *****                                      ^ not supported yet
    940. 

  940. *****                                                      ^ not supported yet
    941. 

  941.   384              EXIT;
    942. 

  942.   385            END
    943. 

  943.   386          ELSE
    944. 

  944.   387            CurrentDspFile := NIL;
    945. 

  945. *****            ^ not supported yet
    946. 

  946.   388            RETURN FALSE;
    947. 

  947.   389          END;
    948. 

  948.   390        END;
    949. 

  949.   391      END;
    950. 

  950.   392      ErrorManager.AddTermProc( CloseCurrentDsp );
    951. 

  951. *****      ^ not supported yet
    952. 

  952. *****                   ^ not supported yet
    953. 

  953. *****                                ^ not supported yet
    954. 

  954.   393      RETURN TRUE;
    955. 

  955.   394    END OpenNewDspFile;
    956. 

  956. *****        ^ not supported yet
    957. 

  957.   395  
    958. 

  958.   396  
    959. 

  959.   397    PROCEDURE FrameStart( VAR str: ARRAY OF CHAR ): BOOLEAN;
    960. 

  960. *****                                            ^ not supported yet
    961. 

  961.   398      BEGIN
    962. 

  962.   399        IF (M2Strings.Length(str) = 0) THEN
    963. 

  963. *****            ^ not supported yet
    964. 

  964. *****                      ^ not supported yet
    965. 

  965. *****                             ^ not supported yet
    966. 

  966.   400          RETURN FALSE;
    967. 

  967.   401        END;
    968. 

  968.   402        IF (PosUtils.Present( MakeFrame.CommandBeginStr, str)) THEN
    969. 

  969. *****            ^ not supported yet
    970. 

  970. *****                     ^ not supported yet
    971. 

  971. *****                              ^ not supported yet
    972. 

  972. *****                                        ^ not supported yet
    973. 

  973. *****                                                         ^ not supported yet
    974. 

  974.   403          IF (syntax = new) THEN
    975. 

  975. *****              ^ not supported yet
    976. 

  976. *****                       ^ not supported yet
    977. 

  977.   404            RETURN TRUE;
    978. 

  978.   405          END;
    979. 

  979.   406          IF (syntax = unknown) THEN
    980. 

  980. *****              ^ not supported yet
    981. 

  981. *****                       ^ not supported yet
    982. 

  982.   407            syntax := new;
    983. 

  983. *****            ^ not supported yet
    984. 

  984. *****                      ^ not supported yet
    985. 

  985.   408            RETURN TRUE;
    986. 

  986.   409          END;
    987. 

  987.   410        END;
    988. 

  988.   411        IF (str[0] = ":") THEN
    989. 

  989. *****            ^ not supported yet
    990. 

  990. *****                 ^ not supported yet
    991. 

  991.   412          IF (syntax = old) THEN
    992. 

  992. *****              ^ not supported yet
    993. 

  993. *****                       ^ not supported yet
    994. 

  994.   413            RETURN TRUE;
    995. 

  995.   414          END;
    996. 

  996.   415          IF (syntax = unknown) THEN
    997. 

  997. *****              ^ not supported yet
    998. 

  998. *****                       ^ not supported yet
    999. 

  999.   416            syntax := old;
    1000. 

  1000. *****            ^ not supported yet
    1001. 

  1001. *****                      ^ not supported yet
    1002. 

  1002.   417            RETURN TRUE;
    1003. 

  1003.   418          END;
    1004. 

  1004.   419        END;
    1005. 

  1005.   420        RETURN FALSE;
    1006. 

  1006.   421      END FrameStart;
    1007. 

  1007. *****          ^ not supported yet
    1008. 

  1008.   422  
    1009. 

  1009.   423  
    1010. 

  1010.   424  PROCEDURE GetNextFrame( FileList: GenLists.GenList; VAR FrameList:
    1011. 

  1011. *****                                             ^ not supported yet
    1012. 

  1012.   425      GenLists.GenList; VAR StartLine: CARDINAL ): BOOLEAN;
    1013. 

  1013. *****               ^ not supported yet
    1014. 

  1014.   426    (* Gets next frame list out of file list.*)
    1015. 

  1015.   427    VAR
    1016. 

  1016.   428      text: ARRAY [0..255] OF CHAR;
    1017. 

  1017. *****                      ^ not supported yet
    1018. 

  1018. *****                              ^ not supported yet
    1019. 

  1019.   429      type: CARDINAL;
    1020. 

  1020.   430  
    1021. 

  1021.   431    BEGIN
    1022. 

  1022.   432      syntax := unknown;
    1023. 

  1023. *****      ^ not supported yet
    1024. 

  1024. *****                ^ not supported yet
    1025. 

  1025.   433      GenLists.DisposeList( FrameList);
    1026. 

  1026. *****      ^ not supported yet
    1027. 

  1027. *****               ^ not supported yet
    1028. 

  1028. *****                            ^ not supported yet
    1029. 

  1029.   434      GenLists.NewList( FrameList);
    1030. 

  1030. *****      ^ not supported yet
    1031. 

  1031. *****               ^ not supported yet
    1032. 

  1032. *****                        ^ not supported yet
    1033. 

  1033.   435       (* first, skip until we get to CommandBeginStr or a colon in
    1034. 

  1034.   436          column one *)
    1035. 

  1035.   437      REPEAT
    1036. 

  1036.   438        IF StartLine > GenLists.ListLength( FileList) THEN
    1037. 

  1037. *****                       ^ not supported yet
    1038. 

  1038. *****                                ^ not supported yet
    1039. 

  1039. *****                                            ^ not supported yet
    1040. 

  1040.   439          RETURN FALSE;
    1041. 

  1041.   440        END;
    1042. 

  1042.   441        GenLists.GetElmt( FileList, StartLine, text, type);
    1043. 

  1043. *****        ^ not supported yet
    1044. 

  1044. *****                 ^ not supported yet
    1045. 

  1045. *****                          ^ not supported yet
    1046. 

  1046. *****                                               ^ not supported yet
    1047. 

  1047. *****                                                         ^ not supported yet
    1048. 

  1048.   442        INC( StartLine);
    1049. 

  1049. *****        ^ undeclared identifier
    1050. 

  1050. *****                      ^ not supported yet
    1051. 

  1051.   443      UNTIL FrameStart(text);
    1052. 

  1052. *****            ^ not supported yet
    1053. 

  1053. *****                       ^ not supported yet
    1054. 

  1054.   444        (* now copy elements until another FrameStart*)
    1055. 

  1055.   445      REPEAT
    1056. 

  1056.   446        GenLists.ListInsert( text, type, FrameList, 65535);
    1057. 

  1057. *****        ^ not supported yet
    1058. 

  1058. *****                 ^ not supported yet
    1059. 

  1059. *****                             ^ not supported yet
    1060. 

  1060. *****                                         ^ not supported yet
    1061. 

  1061. *****                                                         ^ not supported yet
    1062. 

  1062.   447          (* insert in frame *)
    1063. 

  1063.   448        IF StartLine > GenLists.ListLength( FileList) THEN
    1064. 

  1064. *****                       ^ not supported yet
    1065. 

  1065. *****                                ^ not supported yet
    1066. 

  1066. *****                                            ^ not supported yet
    1067. 

  1067.   449          RETURN FALSE;
    1068. 

  1068.   450        END;
    1069. 

  1069.   451        GenLists.GetElmt( FileList, StartLine, text, type);
    1070. 

  1070. *****        ^ not supported yet
    1071. 

  1071. *****                 ^ not supported yet
    1072. 

  1072. *****                          ^ not supported yet
    1073. 

  1073. *****                                               ^ not supported yet
    1074. 

  1074. *****                                                         ^ not supported yet
    1075. 

  1075.   452        INC( StartLine);
    1076. 

  1076. *****        ^ undeclared identifier
    1077. 

  1077. *****                      ^ not supported yet
    1078. 

  1078.   453      UNTIL FrameStart( text );
    1079. 

  1079. *****            ^ not supported yet
    1080. 

  1080. *****                        ^ not supported yet
    1081. 

  1081.   454      DEC( StartLine);
    1082. 

  1082. *****      ^ undeclared identifier
    1083. 

  1083. *****                    ^ not supported yet
    1084. 

  1084.   455      RETURN TRUE;
    1085. 

  1085.   456    END GetNextFrame;
    1086. 

  1086. *****        ^ not supported yet
    1087. 

  1087.   457  
    1088. 

  1088.   458  
    1089. 

  1089.   459  PROCEDURE FindFrame( FileList: GenLists.GenList;
    1090. 

  1090. *****                                          ^ not supported yet
    1091. 

  1091.   460      FrameName: ARRAY OF CHAR; VAR StartLine: CARDINAL ): BOOLEAN;
    1092. 

  1092. *****                          ^ not supported yet
    1093. 

  1093.   461    VAR
    1094. 

  1094.   462      text: ARRAY [0..255] OF CHAR;
    1095. 

  1095. *****                      ^ not supported yet
    1096. 

  1096. *****                              ^ not supported yet
    1097. 

  1097.   463      FoundSpot, type: CARDINAL;
    1098. 

  1098.   464      TmpName: ScrnTypes.AFrameName;
    1099. 

  1099. *****                         ^ not supported yet
    1100. 

  1100.   465    BEGIN
    1101. 

  1101.   466      IF NOT GenLists.Initialized( FileList ) THEN
    1102. 

  1102. *****             ^ not supported yet
    1103. 

  1103. *****                      ^ not supported yet
    1104. 

  1104. *****                                   ^ not supported yet
    1105. 

  1105.   467        RETURN FALSE;
    1106. 

  1106.   468      END;
    1107. 

  1107.   469      M2Strings.Assign( FrameName, TmpName );
    1108. 

  1108. *****      ^ not supported yet
    1109. 

  1109. *****                ^ not supported yet
    1110. 

  1110. *****                        ^ not supported yet
    1111. 

  1111. *****                                   ^ not supported yet
    1112. 

  1112.   470      M2Strings.Assign( FrameName, LastFrameName );
    1113. 

  1113. *****      ^ not supported yet
    1114. 

  1114. *****                ^ not supported yet
    1115. 

  1115. *****                        ^ not supported yet
    1116. 

  1116. *****                                   ^ not supported yet
    1117. 

  1117.   471      IF TmpName[0] # ':' THEN
    1118. 

  1118. *****         ^ not supported yet
    1119. 

  1119. *****                  ^ not supported yet
    1120. 

  1120.   472        M2Strings.Insert( ':', TmpName, 0 );
    1121. 

  1121. *****        ^ not supported yet
    1122. 

  1122. *****                  ^ not supported yet
    1123. 

  1123. *****                               ^ not supported yet
    1124. 

  1124. *****                                          ^ not supported yet
    1125. 

  1125.   473      END;
    1126. 

  1126.   474      StartLine := 0;
    1127. 

  1127.   475      REPEAT
    1128. 

  1128.   476        (*This is John McMonagle's fix for a problem that was
    1129. 

  1129.   477          causing FindFrame to return FALSE when frame names
    1130. 

  1130.   478          appeared by accident in other parts of the frame.*)
    1131. 

  1131.   479        StartLine := GenLists.ScanList( TmpName, FileList, StartLine + 1,
    1132. 

  1132. *****                     ^ not supported yet
    1133. 

  1133. *****                              ^ not supported yet
    1134. 

  1134. *****                                        ^ not supported yet
    1135. 

  1135. *****                                                 ^ not supported yet
    1136. 

  1136.   480            GenLists.ListLength(FileList), FoundSpot );
    1137. 

  1137. *****            ^ not supported yet
    1138. 

  1138. *****                     ^ not supported yet
    1139. 

  1139. *****                                ^ not supported yet
    1140. 

  1140. *****                                                     ^ not supported yet
    1141. 

  1141.   481        IF (StartLine = 0) THEN
    1142. 

  1142.   482          RETURN FALSE;
    1143. 

  1143.   483        END;
    1144. 

  1144.   484      UNTIL FoundSpot = 0;
    1145. 

  1145.   485      syntax := unknown;
    1146. 

  1146. *****      ^ not supported yet
    1147. 

  1147. *****                ^ not supported yet
    1148. 

  1148.   486      GenLists.GetElmt( FileList, StartLine + 1, text, type);
    1149. 

  1149. *****      ^ not supported yet
    1150. 

  1150. *****               ^ not supported yet
    1151. 

  1151. *****                        ^ not supported yet
    1152. 

  1152. *****                                                 ^ not supported yet
    1153. 

  1153. *****                                                           ^ not supported yet
    1154. 

  1154.   487      IF FrameStart( text ) THEN
    1155. 

  1155. *****         ^ not supported yet
    1156. 

  1156. *****                     ^ not supported yet
    1157. 

  1157.   488        (* The name was outside the frame. *)
    1158. 

  1158.   489        syntax := old;
    1159. 

  1159. *****        ^ not supported yet
    1160. 

  1160. *****                  ^ not supported yet
    1161. 

  1161.   490        RETURN TRUE;
    1162. 

  1162.   491      ELSE
    1163. 

  1163.   492        (* Back up until we get to CommandBeginStr or a colon in
    1164. 

  1164.   493           column one.*)
    1165. 

  1165.   494        syntax := new;
    1166. 

  1166. *****        ^ not supported yet
    1167. 

  1167. *****                  ^ not supported yet
    1168. 

  1168.   495        REPEAT
    1169. 

  1169.   496          DEC( StartLine );
    1170. 

  1170. *****          ^ undeclared identifier
    1171. 

  1171. *****                         ^ not supported yet
    1172. 

  1172.   497          IF StartLine = 0 THEN
    1173. 

  1173.   498            RETURN FALSE;
    1174. 

  1174.   499          END;
    1175. 

  1175.   500          GenLists.GetElmt( FileList, StartLine, text, type );
    1176. 

  1176. *****          ^ not supported yet
    1177. 

  1177. *****                   ^ not supported yet
    1178. 

  1178. *****                            ^ not supported yet
    1179. 

  1179. *****                                                 ^ not supported yet
    1180. 

  1180. *****                                                            ^ not supported yet
    1181. 

  1181.   501        UNTIL FrameStart(text);
    1182. 

  1182. *****              ^ not supported yet
    1183. 

  1183. *****                         ^ not supported yet
    1184. 

  1184.   502        RETURN TRUE;
    1185. 

  1185.   503      END;
    1186. 

  1186.   504    END FindFrame;
    1187. 

  1187. *****        ^ not supported yet
    1188. 

  1188.   505  
    1189. 

  1189.   506  
    1190. 

  1190.   507  PROCEDURE GetSpecificFrame( FileList: GenLists.GenList;
    1191. 

  1191. *****                                                 ^ not supported yet
    1192. 

  1192.   508      FrameName: ARRAY OF CHAR; VAR FrameList: GenLists.GenList): BOOLEAN;
    1193. 

  1193. *****                          ^ not supported yet
    1194. 

  1194. *****                                                        ^ not supported yet
    1195. 

  1195.   509    VAR
    1196. 

  1196.   510      StartLine: CARDINAL;
    1197. 

  1197.   511    BEGIN
    1198. 

  1198.   512      IF NOT FindFrame( FileList, FrameName, StartLine ) THEN
    1199. 

  1199. *****             ^ not supported yet
    1200. 

  1200. *****                        ^ not supported yet
    1201. 

  1201. *****                                  ^ not supported yet
    1202. 

  1202. *****                                                       ^ not supported yet
    1203. 

  1203.   513        RETURN FALSE;
    1204. 

  1204.   514      END;
    1205. 

  1205.   515      IF NOT GetNextFrame( FileList, FrameList, StartLine ) THEN
    1206. 

  1206. *****             ^ not supported yet
    1207. 

  1207. *****                           ^ not supported yet
    1208. 

  1208. *****                                     ^ not supported yet
    1209. 

  1209. *****                                                          ^ not supported yet
    1210. 

  1210.   516        (*It was probably the last frame in the FileList, but we
    1211. 

  1211.   517          don't care about that.*)
    1212. 

  1212.   518      END;
    1213. 

  1213.   519      RETURN TRUE;
    1214. 

  1214.   520    END GetSpecificFrame;
    1215. 

  1215. *****        ^ not supported yet
    1216. 

  1216.   521  
    1217. 

  1217.   522  
    1218. 

  1218.   523  PROCEDURE DeleteFrame( FileList: GenLists.GenList;
    1219. 

  1219. *****                                            ^ not supported yet
    1220. 

  1220.   524      FrameName: ARRAY OF CHAR; VAR EndLine: CARDINAL ): BOOLEAN;
    1221. 

  1221. *****                          ^ not supported yet
    1222. 

  1222.   525    VAR
    1223. 

  1223.   526      type: CARDINAL;
    1224. 

  1224.   527      text: ARRAY [0..255] OF CHAR;
    1225. 

  1225. *****                      ^ not supported yet
    1226. 

  1226. *****                              ^ not supported yet
    1227. 

  1227.   528    BEGIN
    1228. 

  1228.   529      IF NOT FindFrame( FileList, FrameName, EndLine ) THEN
    1229. 

  1229. *****             ^ not supported yet
    1230. 

  1230. *****                        ^ not supported yet
    1231. 

  1231. *****                                  ^ not supported yet
    1232. 

  1232. *****                                                     ^ not supported yet
    1233. 

  1233.   530        RETURN FALSE;
    1234. 

  1234.   531      END;
    1235. 

  1235.   532      LOOP
    1236. 

  1236.   533        GenLists.ListDelete( FileList, EndLine, 1 );
    1237. 

  1237. *****        ^ not supported yet
    1238. 

  1238. *****                 ^ not supported yet
    1239. 

  1239. *****                             ^ not supported yet
    1240. 

  1240. *****                                                  ^ not supported yet
    1241. 

  1241.   534        IF (EndLine > GenLists.ListLength(FileList)) THEN
    1242. 

  1242. *****                      ^ not supported yet
    1243. 

  1243. *****                               ^ not supported yet
    1244. 

  1244. *****                                          ^ not supported yet
    1245. 

  1245.   535          EXIT;
    1246. 

  1246.   536        END;
    1247. 

  1247.   537        GenLists.GetElmt( FileList, EndLine, text, type);
    1248. 

  1248. *****        ^ not supported yet
    1249. 

  1249. *****                 ^ not supported yet
    1250. 

  1250. *****                          ^ not supported yet
    1251. 

  1251. *****                                             ^ not supported yet
    1252. 

  1252. *****                                                       ^ not supported yet
    1253. 

  1253.   538        IF FrameStart( text ) THEN
    1254. 

  1254. *****           ^ not supported yet
    1255. 

  1255. *****                       ^ not supported yet
    1256. 

  1256.   539          EXIT;
    1257. 

  1257.   540        END;
    1258. 

  1258.   541      END;
    1259. 

  1259.   542      RETURN TRUE;
    1260. 

  1260.   543    END DeleteFrame;
    1261. 

  1261. *****        ^ not supported yet
    1262. 

  1262.   544  
    1263. 

  1263.   545  
    1264. 

  1264.   546  PROCEDURE ShowError( FrameList: GenLists.GenList;
    1265. 

  1265. *****                                           ^ not supported yet
    1266. 

  1266.   547      FrameName, ErrStr: ARRAY OF CHAR; BadLine: CARDINAL);
    1267. 

  1267. *****                                  ^ not supported yet
    1268. 

  1268.   548    VAR
    1269. 

  1269.   549      text: ARRAY [0..255] OF CHAR;
    1270. 

  1270. *****                      ^ not supported yet
    1271. 

  1271. *****                              ^ not supported yet
    1272. 

  1272.   550      caption, numstr: ARRAY [0..15] OF CHAR;
    1273. 

  1273. *****                                 ^ not supported yet
    1274. 

  1274. *****                                        ^ not supported yet
    1275. 

  1275.   551      dumc: CARDINAL;
    1276. 

  1276.   552    BEGIN
    1277. 

  1277.   553      text := "Frame: ";
    1278. 

  1278. *****      ^ not supported yet
    1279. 

  1279. *****              ^ not supported yet
    1280. 

  1280.   554      IF M2Strings.Length( FrameName) = 0 THEN
    1281. 

  1281. *****         ^ not supported yet
    1282. 

  1282. *****                   ^ not supported yet
    1283. 

  1283. *****                           ^ not supported yet
    1284. 

  1284.   555        StrEdit.Append( text, "Unknown" );
    1285. 

  1285. *****        ^ not supported yet
    1286. 

  1286. *****                ^ not supported yet
    1287. 

  1287. *****                        ^ not supported yet
    1288. 

  1288. *****                              ^ not supported yet
    1289. 

  1289.   556      ELSE
    1290. 

  1290.   557        StrEdit.Append( text,  FrameName );
    1291. 

  1291. *****        ^ not supported yet
    1292. 

  1292. *****                ^ not supported yet
    1293. 

  1293. *****                        ^ not supported yet
    1294. 

  1294. *****                               ^ not supported yet
    1295. 

  1295.   558      END;
    1296. 

  1296.   559      StrEdit.Append( text,  ", Line: " );
    1297. 

  1297. *****      ^ not supported yet
    1298. 

  1298. *****              ^ not supported yet
    1299. 

  1299. *****                      ^ not supported yet
    1300. 

  1300. *****                             ^ not supported yet
    1301. 

  1301.   560      StrConv.CardinalToStr( BadLine, 0, numstr);
    1302. 

  1302. *****      ^ not supported yet
    1303. 

  1303. *****              ^ not supported yet
    1304. 

  1304. *****                                         ^ not supported yet
    1305. 

  1305.   561      StrEdit.Append( text, numstr );
    1306. 

  1306. *****      ^ not supported yet
    1307. 

  1307. *****              ^ not supported yet
    1308. 

  1308. *****                      ^ not supported yet
    1309. 

  1309. *****                            ^ not supported yet
    1310. 

  1310.   562      StrEdit.Append( text, '.' );
    1311. 

  1311. *****      ^ not supported yet
    1312. 

  1312. *****              ^ not supported yet
    1313. 

  1313. *****                      ^ not supported yet
    1314. 

  1314. *****                                ^ not supported yet
    1315. 

  1315.   563      StrEdit.Append( text, ErrStr );
    1316. 

  1316. *****      ^ not supported yet
    1317. 

  1317. *****              ^ not supported yet
    1318. 

  1318. *****                      ^ not supported yet
    1319. 

  1319. *****                            ^ not supported yet
    1320. 

  1320.   564      caption := 'Error';
    1321. 

  1321. *****      ^ not supported yet
    1322. 

  1322. *****                 ^ not supported yet
    1323. 

  1323.   565      dumc := VWindows.MessageBox( VWindows.CurrentWindow, SYSTEM.ADR(text),
    1324. 

  1324. *****              ^ not supported yet
    1325. 

  1325. *****                       ^ not supported yet
    1326. 

  1326. *****                                   ^ not supported yet
    1327. 

  1327. *****                                            ^ not supported yet
    1328. 

  1328. *****                                                           ^ not supported yet
    1329. 

  1329. *****                                                                  ^ not supported yet
    1330. 

  1330. *****                                                                      ^ not supported yet
    1331. 

  1331.   566          SYSTEM.ADR(caption), 0 );
    1332. 

  1332. *****          ^ not supported yet
    1333. 

  1333. *****                 ^ not supported yet
    1334. 

  1334. *****                     ^ not supported yet
    1335. 

  1335. *****                                 ^ not supported yet
    1336. 

  1336.   567    END ShowError;
    1337. 

  1337. *****        ^ not supported yet
    1338. 

  1338.   568  
    1339. 

  1339.   569  
    1340. 

  1340.   570  PROCEDURE AddToFile( VAR file: NdxTypes.NdxFileType; OutList: GenLists.GenList;
    1341. 

  1341. *****                                          ^ not supported yet
    1342. 

  1342. *****                                                                         ^ not supported yet
    1343. 

  1343.   571                       name: ScrnTypes.AFrameName);
    1344. 

  1344. *****                                       ^ not supported yet
    1345. 

  1345.   572    VAR
    1346. 

  1346.   573      ErrStr: ARRAY [0..80] OF CHAR;
    1347. 

  1347. *****                        ^ not supported yet
    1348. 

  1348. *****                               ^ not supported yet
    1349. 

  1349.   574    BEGIN
    1350. 

  1350.   575      IF (NOT NdxFiles.PutField( file, name, "RECORD", GenLists.ListCode,
    1351. 

  1351. *****              ^ not supported yet
    1352. 

  1352. *****                       ^ not supported yet
    1353. 

  1353. *****                                 ^ not supported yet
    1354. 

  1354. *****                                       ^ not supported yet
    1355. 

  1355. *****                                             ^ not supported yet
    1356. 

  1356. *****                                                       ^ not supported yet
    1357. 

  1357. *****                                                                ^ not supported yet
    1358. 

  1358.   576          OutList)) OR
    1359. 

  1359. *****          ^ not supported yet
    1360. 

  1360.   577         (NOT NdxFiles.WriteRecord( file, name)) THEN
    1361. 

  1361. *****              ^ not supported yet
    1362. 

  1362. *****                       ^ not supported yet
    1363. 

  1363. *****                                    ^ not supported yet
    1364. 

  1364. *****                                          ^ not supported yet
    1365. 

  1365.   578        StrEdit.AssignStr( "Can't add to file frame: ", ErrStr);
    1366. 

  1366. *****        ^ not supported yet
    1367. 

  1367. *****                ^ not supported yet
    1368. 

  1368. *****                           ^ not supported yet
    1369. 

  1369. *****                                                        ^ not supported yet
    1370. 

  1370.   579        StrEdit.Append( ErrStr, name);
    1371. 

  1371. *****        ^ not supported yet
    1372. 

  1372. *****                ^ not supported yet
    1373. 

  1373. *****                        ^ not supported yet
    1374. 

  1374. *****                                ^ not supported yet
    1375. 

  1375.   580        ErrorManager.WARN( ErrStr);
    1376. 

  1376. *****        ^ not supported yet
    1377. 

  1377. *****                     ^ not supported yet
    1378. 

  1378. *****                           ^ not supported yet
    1379. 

  1379.   581      END;
    1380. 

  1380.   582    END AddToFile;
    1381. 

  1381. *****        ^ not supported yet
    1382. 

  1382.   583  
    1383. 

  1383.   584  
    1384. 

  1384.   585    PROCEDURE DoFileMenu( SelectedChar: CHAR );
    1385. 

  1385.   586      BEGIN
    1386. 

  1386.   587        CASE CAP(SelectedChar) OF
    1387. 

  1387. *****             ^ undeclared identifier
    1388. 

  1388. *****                             ^ not supported yet
    1389. 

  1389.   588          'E':
    1390. 

  1390.   589          IF NOT ReadNewEdtFile() THEN END;
    1391. 

  1391. *****                 ^ not supported yet
    1392. 

  1392. *****                                ^ not supported yet
    1393. 

  1393.   590        | 'D':
    1394. 

  1394.   591          IF NOT OpenNewDspFile() THEN END;
    1395. 

  1395. *****                 ^ not supported yet
    1396. 

  1396. *****                                ^ not supported yet
    1397. 

  1397.   592        | 'F':
    1398. 

  1398.   593          IF CurrentDspFile = NIL THEN
    1399. 

  1399. *****             ^ not supported yet
    1400. 

  1400.   594            IF NOT OpenNewDspFile() THEN
    1401. 

  1401. *****                   ^ not supported yet
    1402. 

  1402. *****                                  ^ not supported yet
    1403. 

  1403.   595              RETURN;
    1404. 

  1404.   596            END;
    1405. 

  1405.   597          END;
    1406. 

  1406.   598          IF GetStrResponse( 'FramePrompt', LastFrameName, FrameName ) THEN
    1407. 

  1407. *****             ^ not supported yet
    1408. 

  1408. *****                             ^ not supported yet
    1409. 

  1409. *****                                            ^ not supported yet
    1410. 

  1410. *****                                                           ^ not supported yet
    1411. 

  1411.   599            LOOP
    1412. 

  1412.   600              M2Strings.Assign( FrameName, LastFrameName );
    1413. 

  1413. *****              ^ not supported yet
    1414. 

  1414. *****                        ^ not supported yet
    1415. 

  1415. *****                                ^ not supported yet
    1416. 

  1416. *****                                           ^ not supported yet
    1417. 

  1417.   601              IF NOT ControlUtils.FrameExists( CurrentDspFile, FrameName ) THEN
    1418. 

  1418. *****                     ^ not supported yet
    1419. 

  1419. *****                                  ^ not supported yet
    1420. 

  1420. *****                                               ^ not supported yet
    1421. 

  1421. *****                                                               ^ not supported yet
    1422. 

  1422.   602                IF NOT GetStrResponse( 'NewEntry', FrameName, FrameName ) THEN
    1423. 

  1423. *****                       ^ not supported yet
    1424. 

  1424. *****                                       ^ not supported yet
    1425. 

  1425. *****                                                   ^ not supported yet
    1426. 

  1426. *****                                                              ^ not supported yet
    1427. 

  1427.   603                  EXIT
    1428. 

  1428.   604                END;
    1429. 

  1429.   605              ELSE
    1430. 

  1430.   606                IF NdxFiles.DeleteRecord( CurrentDspFile, FrameName ) THEN
    1431. 

  1431. *****                   ^ not supported yet
    1432. 

  1432. *****                            ^ not supported yet
    1433. 

  1433. *****                                          ^ not supported yet
    1434. 

  1434. *****                                                          ^ not supported yet
    1435. 

  1435.   607                  EXIT;
    1436. 

  1436.   608                END;
    1437. 

  1437.   609              END;
    1438. 

  1438.   610            END;
    1439. 

  1439.   611          END;
    1440. 

  1440.   612        | 'C':
    1441. 

  1441.   613          IF CurrentDspFile = NIL THEN
    1442. 

  1442. *****             ^ not supported yet
    1443. 

  1443.   614            IF NOT OpenNewDspFile() THEN
    1444. 

  1444. *****                   ^ not supported yet
    1445. 

  1445. *****                                  ^ not supported yet
    1446. 

  1446.   615              RETURN;
    1447. 

  1447.   616            END;
    1448. 

  1448.   617          END;
    1449. 

  1449.   618          NdxUtils.CrunchNdxFile( CurrentDspFile );
    1450. 

  1450. *****          ^ not supported yet
    1451. 

  1451. *****                   ^ not supported yet
    1452. 

  1452. *****                                  ^ not supported yet
    1453. 

  1453.   619        END;
    1454. 

  1454.   620      END DoFileMenu;
    1455. 

  1455. *****          ^ not supported yet
    1456. 

  1456.   621  
    1457. 

  1457.   622  
    1458. 

  1458.   623    PROCEDURE DoEditMenu( SelectedChar: CHAR );
    1459. 

  1459.   624      VAR
    1460. 

  1460.   625        TmpRec: VEditor.AnEdControlRec;
    1461. 

  1461. *****                        ^ not supported yet
    1462. 

  1462.   626        FrameName: ScrnTypes.AFrameName;
    1463. 

  1463. *****                             ^ not supported yet
    1464. 

  1464.   627        FileName: ARRAY [0..79] OF CHAR;
    1465. 

  1465. *****                            ^ not supported yet
    1466. 

  1466. *****                                   ^ not supported yet
    1467. 

  1467.   628        LineTotalStr: ARRAY [0..15] OF CHAR;
    1468. 

  1468. *****                                ^ not supported yet
    1469. 

  1469. *****                                       ^ not supported yet
    1470. 

  1470.   629        TmpList: GenLists.GenList;
    1471. 

  1471. *****                          ^ not supported yet
    1472. 

  1472.   630        EndLine, BadLine: CARDINAL;
    1473. 

  1473.   631        WorkFrame: ScrnTypes.DisplayFrame;
    1474. 

  1474. *****                             ^ not supported yet
    1475. 

  1475.   632        StatusFrame: ScrnTypes.DisplayFrame;
    1476. 

  1476. *****                               ^ not supported yet
    1477. 

  1477.   633        SavedMessage: CARDINAL;
    1478. 

  1478.   634      BEGIN
    1479. 

  1479.   635        VEditor.InitEdRec( TmpRec );
    1480. 

  1480. *****        ^ not supported yet
    1481. 

  1481. *****                ^ not supported yet
    1482. 

  1482. *****                           ^ not supported yet
    1483. 

  1483.   636        TmpRec.DoCounting := FALSE;
    1484. 

  1484. *****        ^ not supported yet
    1485. 

  1485. *****               ^ not supported yet
    1486. 

  1486.   637        CASE CAP(SelectedChar) OF
    1487. 

  1487. *****             ^ undeclared identifier
    1488. 

  1488. *****                             ^ not supported yet
    1489. 

  1489.   638          'E':
    1490. 

  1490.   639            IF NOT GenLists.Initialized( FileList ) THEN
    1491. 

  1491. *****                   ^ not supported yet
    1492. 

  1492. *****                            ^ not supported yet
    1493. 

  1493. *****                                         ^ not supported yet
    1494. 

  1494.   640              IF NOT ReadNewEdtFile() THEN
    1495. 

  1495. *****                     ^ not supported yet
    1496. 

  1496. *****                                    ^ not supported yet
    1497. 

  1497.   641                RETURN;
    1498. 

  1498.   642              END;
    1499. 

  1499.   643            END;
    1500. 

  1500.   644            CallEditor( FileList, TmpRec );
    1501. 

  1501. *****            ^ not supported yet
    1502. 

  1502. *****                        ^ not supported yet
    1503. 

  1503. *****                                  ^ not supported yet
    1504. 

  1504.   645            IF TmpRec.ChangeMade THEN
    1505. 

  1505. *****               ^ not supported yet
    1506. 

  1506. *****                      ^ not supported yet
    1507. 

  1507.   646              IF Yes( 'SaveQ' ) THEN
    1508. 

  1508. *****                 ^ not supported yet
    1509. 

  1509. *****                      ^ not supported yet
    1510. 

  1510.   647                IF StringIO.NoError # ListUtils.TextListToFile( FileList,
    1511. 

  1511. *****                   ^ not supported yet
    1512. 

  1512. *****                            ^ not supported yet
    1513. 

  1513. *****                                      ^ not supported yet
    1514. 

  1514. *****                                                ^ not supported yet
    1515. 

  1515. *****                                                                ^ not supported yet
    1516. 

  1516.   648                    EdtFileName ) THEN
    1517. 

  1517. *****                    ^ not supported yet
    1518. 

  1518.   649                  InputConst2( ScrnCompDsp, 'FileError' );
    1519. 

  1519. *****                  ^ not supported yet
    1520. 

  1520. *****                               ^ not supported yet
    1521. 

  1521. *****                                            ^ not supported yet
    1522. 

  1522.   650                END;
    1523. 

  1523.   651              END;
    1524. 

  1524.   652            END;
    1525. 

  1525.   653        | 'S':
    1526. 

  1526.   654            IF GetStrResponse( 'FramePrompt', LastFrameName, FrameName ) THEN
    1527. 

  1527. *****               ^ not supported yet
    1528. 

  1528. *****                               ^ not supported yet
    1529. 

  1529. *****                                              ^ not supported yet
    1530. 

  1530. *****                                                             ^ not supported yet
    1531. 

  1531.   655              M2Strings.Assign( FrameName, LastFrameName );
    1532. 

  1532. *****              ^ not supported yet
    1533. 

  1533. *****                        ^ not supported yet
    1534. 

  1534. *****                                ^ not supported yet
    1535. 

  1535. *****                                           ^ not supported yet
    1536. 

  1536.   656              IF GetSpecificFrame( FileList, FrameName, CurrentFrameList ) THEN
    1537. 

  1537. *****                 ^ not supported yet
    1538. 

  1538. *****                                   ^ not supported yet
    1539. 

  1539. *****                                             ^ not supported yet
    1540. 

  1540. *****                                                        ^ not supported yet
    1541. 

  1541.   657                CallEditor( CurrentFrameList, TmpRec );
    1542. 

  1542. *****                ^ not supported yet
    1543. 

  1543. *****                            ^ not supported yet
    1544. 

  1544. *****                                              ^ not supported yet
    1545. 

  1545.   658                IF TmpRec.ChangeMade THEN
    1546. 

  1546. *****                   ^ not supported yet
    1547. 

  1547. *****                          ^ not supported yet
    1548. 

  1548.   659                  IF DeleteFrame( FileList, FrameName, EndLine ) THEN
    1549. 

  1549. *****                     ^ not supported yet
    1550. 

  1550. *****                                  ^ not supported yet
    1551. 

  1551. *****                                            ^ not supported yet
    1552. 

  1552. *****                                                               ^ not supported yet
    1553. 

  1553.   660                    ListUtils.InsertElmtsOf( CurrentFrameList, 1, 65535,
    1554. 

  1554. *****                    ^ not supported yet
    1555. 

  1555. *****                              ^ not supported yet
    1556. 

  1556. *****                                             ^ not supported yet
    1557. 

  1557.   661                        FileList, EndLine );
    1558. 

  1558. *****                        ^ not supported yet
    1559. 

  1559. *****                                          ^ not supported yet
    1560. 

  1560.   662                  END;
    1561. 

  1561.   663                  IF Yes( 'DisplayQ' ) THEN
    1562. 

  1562. *****                     ^ not supported yet
    1563. 

  1563. *****                          ^ not supported yet
    1564. 

  1564.   664                    ScrnTypes.InitDisplayFrame( WorkFrame,
    1565. 

  1565. *****                    ^ not supported yet
    1566. 

  1566. *****                              ^ not supported yet
    1567. 

  1567. *****                                                ^ not supported yet
    1568. 

  1568.   665                        VWindows.CurrentWindow );
    1569. 

  1569. *****                        ^ not supported yet
    1570. 

  1570. *****                                 ^ not supported yet
    1571. 

  1571.   666                    WorkFrame^.FromFile := CurrentDspFile;
    1572. 

  1572. *****                    ^ not supported yet
    1573. 

  1573. *****                               ^ not supported yet
    1574. 

  1574. *****                                           ^ not supported yet
    1575. 

  1575.   667                    MakeFrame.CompileFrame( CurrentFrameList,
    1576. 

  1576. *****                    ^ not supported yet
    1577. 

  1577. *****                              ^ not supported yet
    1578. 

  1578. *****                                            ^ not supported yet
    1579. 

  1579.   668                        OutFrameList, FrameName, ErrStr, BadLine);
    1580. 

  1580. *****                        ^ not supported yet
    1581. 

  1581. *****                                      ^ not supported yet
    1582. 

  1582. *****                                                 ^ not supported yet
    1583. 

  1583. *****                                                                ^ not supported yet
    1584. 

  1584.   669                    M2Strings.Assign( FrameName, LastFrameName );
    1585. 

  1585. *****                    ^ not supported yet
    1586. 

  1586. *****                              ^ not supported yet
    1587. 

  1587. *****                                      ^ not supported yet
    1588. 

  1588. *****                                                 ^ not supported yet
    1589. 

  1589.   670                    IF BadLine = 0 THEN
    1590. 

  1590.   671                      DspFiles.GetFrameFromList( OutFrameList, WorkFrame );
    1591. 

  1591. *****                      ^ not supported yet
    1592. 

  1592. *****                               ^ not supported yet
    1593. 

  1593. *****                                                 ^ not supported yet
    1594. 

  1594. *****                                                               ^ not supported yet
    1595. 

  1595.   672                      FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 );
    1596. 

  1596. *****                      ^ not supported yet
    1597. 

  1597. *****                                   ^ not supported yet
    1598. 

  1598. *****                                                     ^ not supported yet
    1599. 

  1599. *****                                                                           ^ not supported yet
    1600. 

  1600.   673                      InputManager.ControlFrame( WorkFrame, 1, '',
    1601. 

  1601. *****                      ^ not supported yet
    1602. 

  1602. *****                                   ^ not supported yet
    1603. 

  1603. *****                                                 ^ not supported yet
    1604. 

  1604.   674                          FALSE, NextFrame );
    1605. 

  1605. *****                                 ^ not supported yet
    1606. 

  1606.   675                    ELSE
    1607. 

  1607.   676                      ShowError( CurrentFrameList, FrameName, ErrStr, BadLine);
    1608. 

  1608. *****                      ^ not supported yet
    1609. 

  1609. *****                                 ^ not supported yet
    1610. 

  1610. *****                                                   ^ not supported yet
    1611. 

  1611. *****                                                              ^ not supported yet
    1612. 

  1612. *****                                                                             ^ not supported yet
    1613. 

  1613.   677                    END;
    1614. 

  1614.   678                    ScrnUtl2.CloseDisplayFrame( WorkFrame );
    1615. 

  1615. *****                    ^ not supported yet
    1616. 

  1616. *****                             ^ not supported yet
    1617. 

  1617. *****                                                ^ not supported yet
    1618. 

  1618.   679                  END;
    1619. 

  1619.   680                  IF Yes( 'SaveQ' ) THEN
    1620. 

  1620. *****                     ^ not supported yet
    1621. 

  1621. *****                          ^ not supported yet
    1622. 

  1622.   681                    IF StringIO.NoError # ListUtils.TextListToFile( FileList,
    1623. 

  1623. *****                       ^ not supported yet
    1624. 

  1624. *****                                ^ not supported yet
    1625. 

  1625. *****                                          ^ not supported yet
    1626. 

  1626. *****                                                    ^ not supported yet
    1627. 

  1627. *****                                                                    ^ not supported yet
    1628. 

  1628.   682                        EdtFileName ) THEN
    1629. 

  1629. *****                        ^ not supported yet
    1630. 

  1630.   683                      InputConst2( ScrnCompDsp, 'FileError' );
    1631. 

  1631. *****                      ^ not supported yet
    1632. 

  1632. *****                                   ^ not supported yet
    1633. 

  1633. *****                                                ^ not supported yet
    1634. 

  1634.   684                    END;
    1635. 

  1635.   685                  END;
    1636. 

  1636.   686                END;
    1637. 

  1637.   687              END;
    1638. 

  1638.   688            END;
    1639. 

  1639.   689        | 'F':
    1640. 

  1640.   690            IF CurrentDspFile = NIL THEN
    1641. 

  1641. *****               ^ not supported yet
    1642. 

  1642.   691              IF NOT OpenNewDspFile() THEN
    1643. 

  1643. *****                     ^ not supported yet
    1644. 

  1644. *****                                    ^ not supported yet
    1645. 

  1645.   692                RETURN;
    1646. 

  1646.   693              END;
    1647. 

  1647.   694            END;
    1648. 

  1648.   695            ScrnTypes.InitDisplayFrame( WorkFrame, VWindows.CurrentWindow );
    1649. 

  1649. *****            ^ not supported yet
    1650. 

  1650. *****                      ^ not supported yet
    1651. 

  1651. *****                                        ^ not supported yet
    1652. 

  1652. *****                                                   ^ not supported yet
    1653. 

  1653. *****                                                            ^ not supported yet
    1654. 

  1654.   696            WorkFrame^.FromFile := CurrentDspFile;
    1655. 

  1655. *****            ^ not supported yet
    1656. 

  1656. *****                       ^ not supported yet
    1657. 

  1657. *****                                   ^ not supported yet
    1658. 

  1658.   697            LOOP
    1659. 

  1659.   698              InsertCommandDelims( CurrentFrameList );
    1660. 

  1660. *****              ^ not supported yet
    1661. 

  1661. *****                                   ^ not supported yet
    1662. 

  1662.   699              CallEditor( CurrentFrameList, TmpRec );
    1663. 

  1663. *****              ^ not supported yet
    1664. 

  1664. *****                          ^ not supported yet
    1665. 

  1665. *****                                            ^ not supported yet
    1666. 

  1666.   700              IF TmpRec.ChangeMade THEN
    1667. 

  1667. *****                 ^ not supported yet
    1668. 

  1668. *****                        ^ not supported yet
    1669. 

  1669.   701                IF DeleteFrame( FileList, LastFrameName, EndLine ) THEN
    1670. 

  1670. *****                   ^ not supported yet
    1671. 

  1671. *****                                ^ not supported yet
    1672. 

  1672. *****                                          ^ not supported yet
    1673. 

  1673. *****                                                                 ^ not supported yet
    1674. 

  1674.   702                  ListUtils.InsertElmtsOf( CurrentFrameList, 1,
    1675. 

  1675. *****                  ^ not supported yet
    1676. 

  1676. *****                            ^ not supported yet
    1677. 

  1677. *****                                           ^ not supported yet
    1678. 

  1678.   703                      65535, FileList, EndLine );
    1679. 

  1679. *****                             ^ not supported yet
    1680. 

  1680. *****                                               ^ not supported yet
    1681. 

  1681.   704                END;
    1682. 

  1682.   705              END;
    1683. 

  1683.   706              IF NOT Yes( 'DisplayQ' ) THEN
    1684. 

  1684. *****                     ^ not supported yet
    1685. 

  1685. *****                          ^ not supported yet
    1686. 

  1686.   707                EXIT;
    1687. 

  1687.   708              END;
    1688. 

  1688.   709              MakeFrame.CompileFrame( CurrentFrameList,
    1689. 

  1689. *****              ^ not supported yet
    1690. 

  1690. *****                        ^ not supported yet
    1691. 

  1691. *****                                      ^ not supported yet
    1692. 

  1692.   710                  OutFrameList, FrameName, ErrStr, BadLine);
    1693. 

  1693. *****                  ^ not supported yet
    1694. 

  1694. *****                                ^ not supported yet
    1695. 

  1695. *****                                           ^ not supported yet
    1696. 

  1696. *****                                                          ^ not supported yet
    1697. 

  1697.   711              M2Strings.Assign( FrameName, LastFrameName );
    1698. 

  1698. *****              ^ not supported yet
    1699. 

  1699. *****                        ^ not supported yet
    1700. 

  1700. *****                                ^ not supported yet
    1701. 

  1701. *****                                           ^ not supported yet
    1702. 

  1702.   712              IF BadLine = 0 THEN
    1703. 

  1703.   713                DspFiles.GetFrameFromList( OutFrameList, WorkFrame );
    1704. 

  1704. *****                ^ not supported yet
    1705. 

  1705. *****                         ^ not supported yet
    1706. 

  1706. *****                                           ^ not supported yet
    1707. 

  1707. *****                                                         ^ not supported yet
    1708. 

  1708.   714                FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 );
    1709. 

  1709. *****                ^ not supported yet
    1710. 

  1710. *****                             ^ not supported yet
    1711. 

  1711. *****                                               ^ not supported yet
    1712. 

  1712. *****                                                                     ^ not supported yet
    1713. 

  1713.   715                InputManager.ControlFrame( WorkFrame, 1, '', FALSE, NextFrame );
    1714. 

  1714. *****                ^ not supported yet
    1715. 

  1715. *****                             ^ not supported yet
    1716. 

  1716. *****                                           ^ not supported yet
    1717. 

  1717. *****                                                                    ^ not supported yet
    1718. 

  1718.   716              ELSE
    1719. 

  1719.   717                ShowError( CurrentFrameList, FrameName, ErrStr, BadLine);
    1720. 

  1720. *****                ^ not supported yet
    1721. 

  1721. *****                           ^ not supported yet
    1722. 

  1722. *****                                             ^ not supported yet
    1723. 

  1723. *****                                                        ^ not supported yet
    1724. 

  1724. *****                                                                       ^ not supported yet
    1725. 

  1725.   718              END;
    1726. 

  1726.   719            END;
    1727. 

  1727.   720            IF Yes( 'SaveQ' ) THEN
    1728. 

  1728. *****               ^ not supported yet
    1729. 

  1729. *****                    ^ not supported yet
    1730. 

  1730.   721              IF StringIO.NoError # ListUtils.TextListToFile( FileList,
    1731. 

  1731. *****                 ^ not supported yet
    1732. 

  1732. *****                          ^ not supported yet
    1733. 

  1733. *****                                    ^ not supported yet
    1734. 

  1734. *****                                              ^ not supported yet
    1735. 

  1735. *****                                                              ^ not supported yet
    1736. 

  1736.   722                  EdtFileName ) THEN
    1737. 

  1737. *****                  ^ not supported yet
    1738. 

  1738.   723                InputConst2( ScrnCompDsp, 'FileError' );
    1739. 

  1739. *****                ^ not supported yet
    1740. 

  1740. *****                             ^ not supported yet
    1741. 

  1741. *****                                          ^ not supported yet
    1742. 

  1742.   724              END;
    1743. 

  1743.   725            END;
    1744. 

  1744.   726            ScrnUtl2.CloseDisplayFrame( WorkFrame );
    1745. 

  1745. *****            ^ not supported yet
    1746. 

  1746. *****                     ^ not supported yet
    1747. 

  1747. *****                                        ^ not supported yet
    1748. 

  1748.   727  
    1749. 

  1749.   728        | 'A':
    1750. 

  1750.   729            IF GetStrResponse( 'FileName', LastFileName, FileName ) THEN
    1751. 

  1751. *****               ^ not supported yet
    1752. 

  1752. *****                               ^ not supported yet
    1753. 

  1753. *****                                           ^ not supported yet
    1754. 

  1754. *****                                                         ^ not supported yet
    1755. 

  1755.   730              M2Strings.Assign( FileName, LastFileName );
    1756. 

  1756. *****              ^ not supported yet
    1757. 

  1757. *****                        ^ not supported yet
    1758. 

  1758. *****                                ^ not supported yet
    1759. 

  1759. *****                                          ^ not supported yet
    1760. 

  1760.   731              GenLists.NewList( TmpList );
    1761. 

  1761. *****              ^ not supported yet
    1762. 

  1762. *****                       ^ not supported yet
    1763. 

  1763. *****                                ^ not supported yet
    1764. 

  1764.   732              SavedMessage := ListUtils.TextFileToList( FileName,
    1765. 

  1765. *****                              ^ not supported yet
    1766. 

  1766. *****                                        ^ not supported yet
    1767. 

  1767. *****                                                        ^ not supported yet
    1768. 

  1768.   733                  TmpList );
    1769. 

  1769. *****                  ^ not supported yet
    1770. 

  1770.   734              IF (SavedMessage # StringIO.NoError) AND
    1771. 

  1771. *****                                 ^ not supported yet
    1772. 

  1772. *****                                          ^ not supported yet
    1773. 

  1773.   735                  (SavedMessage # StringIO.FileNotFound) THEN
    1774. 

  1774. *****                                  ^ not supported yet
    1775. 

  1775. *****                                           ^ not supported yet
    1776. 

  1776.   736                InputConst2( ScrnCompDsp, 'FileError' );
    1777. 

  1777. *****                ^ not supported yet
    1778. 

  1778. *****                             ^ not supported yet
    1779. 

  1779. *****                                          ^ not supported yet
    1780. 

  1780.   737              ELSE
    1781. 

  1781.   738                IF SavedMessage = StringIO.FileNotFound THEN
    1782. 

  1782. *****                                  ^ not supported yet
    1783. 

  1783. *****                                           ^ not supported yet
    1784. 

  1784.   739                  IF NOT Yes( 'CreateQ' ) THEN
    1785. 

  1785. *****                         ^ not supported yet
    1786. 

  1786. *****                              ^ not supported yet
    1787. 

  1787.   740                    RETURN;
    1788. 

  1788.   741                  END;
    1789. 

  1789.   742                END;
    1790. 

  1790.   743                ListUtils.DeTabList( TmpList, ListChanged );
    1791. 

  1791. *****                ^ not supported yet
    1792. 

  1792. *****                          ^ not supported yet
    1793. 

  1793. *****                                     ^ not supported yet
    1794. 

  1794. *****                                                          ^ not supported yet
    1795. 

  1795.   744                CallEditor( TmpList, TmpRec );
    1796. 

  1796. *****                ^ not supported yet
    1797. 

  1797. *****                            ^ not supported yet
    1798. 

  1798. *****                                     ^ not supported yet
    1799. 

  1799.   745                IF TmpRec.ChangeMade THEN
    1800. 

  1800. *****                   ^ not supported yet
    1801. 

  1801. *****                          ^ not supported yet
    1802. 

  1802.   746                  IF Yes( 'SaveQ' ) THEN
    1803. 

  1803. *****                     ^ not supported yet
    1804. 

  1804. *****                          ^ not supported yet
    1805. 

  1805.   747                    ScrnTypes.InitDisplayFrame( StatusFrame,
    1806. 

  1806. *****                    ^ not supported yet
    1807. 

  1807. *****                              ^ not supported yet
    1808. 

  1808. *****                                                ^ not supported yet
    1809. 

  1809.   748                        VWindows.CurrentWindow );
    1810. 

  1810. *****                        ^ not supported yet
    1811. 

  1811. *****                                 ^ not supported yet
    1812. 

  1812.   749                    ScrnUtl2.ReadAndShow( ScrnCompDsp, StatusFrame,
    1813. 

  1813. *****                    ^ not supported yet
    1814. 

  1814. *****                             ^ not supported yet
    1815. 

  1815. *****                                          ^ not supported yet
    1816. 

  1816. *****                                                       ^ not supported yet
    1817. 

  1817.   750                        'StatusFrame' );
    1818. 

  1818. *****                        ^ not supported yet
    1819. 

  1819.   751                    UpdateStatus( StatusFrame, 'line1',
    1820. 

  1820. *****                    ^ not supported yet
    1821. 

  1821. *****                                  ^ not supported yet
    1822. 

  1822. *****                                               ^ not supported yet
    1823. 

  1823.   752                        'Writing' );
    1824. 

  1824. *****                        ^ not supported yet
    1825. 

  1825.   753                    StrConv.CardinalToStr(
    1826. 

  1826. *****                    ^ not supported yet
    1827. 

  1827. *****                            ^ not supported yet
    1828. 

  1828.   754                        GenLists.ListLength(TmpList), 0,
    1829. 

  1829. *****                        ^ not supported yet
    1830. 

  1830. *****                                 ^ not supported yet
    1831. 

  1831. *****                                            ^ not supported yet
    1832. 

  1832.   755                        LineTotalStr );
    1833. 

  1833. *****                        ^ not supported yet
    1834. 

  1834.   756                    UpdateStatus( StatusFrame, 'line2',
    1835. 

  1835. *****                    ^ not supported yet
    1836. 

  1836. *****                                  ^ not supported yet
    1837. 

  1837. *****                                               ^ not supported yet
    1838. 

  1838.   757                        LineTotalStr );
    1839. 

  1839. *****                        ^ not supported yet
    1840. 

  1840.   758                    UpdateStatus( StatusFrame, 'line3',
    1841. 

  1841. *****                    ^ not supported yet
    1842. 

  1842. *****                                  ^ not supported yet
    1843. 

  1843. *****                                               ^ not supported yet
    1844. 

  1844.   759                        'lines.' );
    1845. 

  1845. *****                        ^ not supported yet
    1846. 

  1846.   760                    IF StringIO.NoError # ListUtils.TextListToFile(
    1847. 

  1847. *****                       ^ not supported yet
    1848. 

  1848. *****                                ^ not supported yet
    1849. 

  1849. *****                                          ^ not supported yet
    1850. 

  1850. *****                                                    ^ not supported yet
    1851. 

  1851.   761                        TmpList, FileName ) THEN
    1852. 

  1852. *****                        ^ not supported yet
    1853. 

  1853. *****                                 ^ not supported yet
    1854. 

  1854.   762                      InputConst2( ScrnCompDsp, 'FileError' );
    1855. 

  1855. *****                      ^ not supported yet
    1856. 

  1856. *****                                   ^ not supported yet
    1857. 

  1857. *****                                                ^ not supported yet
    1858. 

  1858.   763                    END;
    1859. 

  1859.   764                    FrameManager.EraseFrame( StatusFrame );
    1860. 

  1860. *****                    ^ not supported yet
    1861. 

  1861. *****                                 ^ not supported yet
    1862. 

  1862. *****                                             ^ not supported yet
    1863. 

  1863.   765                    ScrnUtl2.CloseDisplayFrame( StatusFrame );
    1864. 

  1864. *****                    ^ not supported yet
    1865. 

  1865. *****                             ^ not supported yet
    1866. 

  1866. *****                                                ^ not supported yet
    1867. 

  1867.   766                  END;
    1868. 

  1868.   767                END;
    1869. 

  1869.   768              END;
    1870. 

  1870.   769              GenLists.DisposeList( TmpList );
    1871. 

  1871. *****              ^ not supported yet
    1872. 

  1872. *****                       ^ not supported yet
    1873. 

  1873. *****                                    ^ not supported yet
    1874. 

  1874.   770            END;
    1875. 

  1875.   771        END;
    1876. 

  1876.   772      END DoEditMenu;
    1877. 

  1877. *****          ^ not supported yet
    1878. 

  1878.   773  
    1879. 

  1879.   774  
    1880. 

  1880.   775    PROCEDURE DoCompMenu( SelectedChar: CHAR );
    1881. 

  1881.   776      VAR
    1882. 

  1882.   777        TmpRec: VEditor.AnEdControlRec;
    1883. 

  1883. *****                        ^ not supported yet
    1884. 

  1884.   778        ChangeMade : BOOLEAN;
    1885. 

  1885.   779        EndLine: CARDINAL;
    1886. 

  1886.   780        StatusFrame: ScrnTypes.DisplayFrame;
    1887. 

  1887. *****                               ^ not supported yet
    1888. 

  1888.   781  
    1889. 

  1889.   782      BEGIN
    1890. 

  1890.   783        IF CurrentDspFile = NIL THEN
    1891. 

  1891. *****           ^ not supported yet
    1892. 

  1892.   784          IF NOT OpenNewDspFile() THEN
    1893. 

  1893. *****                 ^ not supported yet
    1894. 

  1894. *****                                ^ not supported yet
    1895. 

  1895.   785            RETURN;
    1896. 

  1896.   786          END;
    1897. 

  1897.   787        END;
    1898. 

  1898.   788        VEditor.InitEdRec( TmpRec );
    1899. 

  1899. *****        ^ not supported yet
    1900. 

  1900. *****                ^ not supported yet
    1901. 

  1901. *****                           ^ not supported yet
    1902. 

  1902.   789        TmpRec.DoCounting := FALSE;
    1903. 

  1903. *****        ^ not supported yet
    1904. 

  1904. *****               ^ not supported yet
    1905. 

  1905.   790        ChangeMade := FALSE;
    1906. 

  1906.   791        CASE CAP(SelectedChar) OF
    1907. 

  1907. *****             ^ undeclared identifier
    1908. 

  1908. *****                             ^ not supported yet
    1909. 

  1909.   792          'E' :
    1910. 

  1910.   793          IF NOT GenLists.Initialized( FileList ) THEN
    1911. 

  1911. *****                 ^ not supported yet
    1912. 

  1912. *****                          ^ not supported yet
    1913. 

  1913. *****                                       ^ not supported yet
    1914. 

  1914.   794            IF NOT ReadNewEdtFile() THEN
    1915. 

  1915. *****                   ^ not supported yet
    1916. 

  1916. *****                                  ^ not supported yet
    1917. 

  1917.   795              RETURN;
    1918. 

  1918.   796            END;
    1919. 

  1919.   797          END;
    1920. 

  1920.   798          AtEndOfList := FALSE;
    1921. 

  1921.   799          FileListLine := 1;
    1922. 

  1922.   800          ScrnTypes.InitDisplayFrame( StatusFrame, VWindows.CurrentWindow );
    1923. 

  1923. *****          ^ not supported yet
    1924. 

  1924. *****                    ^ not supported yet
    1925. 

  1925. *****                                      ^ not supported yet
    1926. 

  1926. *****                                                   ^ not supported yet
    1927. 

  1927. *****                                                            ^ not supported yet
    1928. 

  1928.   801          ScrnUtl2.ReadAndShow( ScrnCompDsp, StatusFrame, 'StatusFrame' );
    1929. 

  1929. *****          ^ not supported yet
    1930. 

  1930. *****                   ^ not supported yet
    1931. 

  1931. *****                                ^ not supported yet
    1932. 

  1932. *****                                             ^ not supported yet
    1933. 

  1933. *****                                                          ^ not supported yet
    1934. 

  1934.   802          UpdateStatus( StatusFrame, 'line1', 'Processing' );
    1935. 

  1935. *****          ^ not supported yet
    1936. 

  1936. *****                        ^ not supported yet
    1937. 

  1937. *****                                     ^ not supported yet
    1938. 

  1938. *****                                              ^ not supported yet
    1939. 

  1939.   803          WHILE NOT AtEndOfList DO
    1940. 

  1940.   804            AtEndOfList := NOT GetNextFrame( FileList,
    1941. 

  1941. *****                               ^ not supported yet
    1942. 

  1942. *****                                             ^ not supported yet
    1943. 

  1943.   805                CurrentFrameList, FileListLine );
    1944. 

  1944. *****                ^ not supported yet
    1945. 

  1945. *****                                               ^ not supported yet
    1946. 

  1946.   806            IF GenLists.ListLength( CurrentFrameList) > 0 THEN
    1947. 

  1947. *****               ^ not supported yet
    1948. 

  1948. *****                        ^ not supported yet
    1949. 

  1949. *****                                    ^ not supported yet
    1950. 

  1950.   807              BadLine := 1;
    1951. 

  1951.   808              WHILE BadLine # 0 DO
    1952. 

  1952.   809                MakeFrame.CompileFrame( CurrentFrameList,
    1953. 

  1953. *****                ^ not supported yet
    1954. 

  1954. *****                          ^ not supported yet
    1955. 

  1955. *****                                        ^ not supported yet
    1956. 

  1956.   810                    OutFrameList, FrameName, ErrStr, BadLine);
    1957. 

  1957. *****                    ^ not supported yet
    1958. 

  1958. *****                                  ^ not supported yet
    1959. 

  1959. *****                                             ^ not supported yet
    1960. 

  1960. *****                                                            ^ not supported yet
    1961. 

  1961.   811                M2Strings.Assign( FrameName, LastFrameName );
    1962. 

  1962. *****                ^ not supported yet
    1963. 

  1963. *****                          ^ not supported yet
    1964. 

  1964. *****                                  ^ not supported yet
    1965. 

  1965. *****                                             ^ not supported yet
    1966. 

  1966.   812                UpdateStatus( StatusFrame, 'line2', FrameName );
    1967. 

  1967. *****                ^ not supported yet
    1968. 

  1968. *****                              ^ not supported yet
    1969. 

  1969. *****                                           ^ not supported yet
    1970. 

  1970. *****                                                    ^ not supported yet
    1971. 

  1971.   813                IF BadLine # 0 THEN
    1972. 

  1972.   814                  ShowError( CurrentFrameList, FrameName, ErrStr, BadLine);
    1973. 

  1973. *****                  ^ not supported yet
    1974. 

  1974. *****                             ^ not supported yet
    1975. 

  1975. *****                                               ^ not supported yet
    1976. 

  1976. *****                                                          ^ not supported yet
    1977. 

  1977. *****                                                                         ^ not supported yet
    1978. 

  1978.   815                  IF Yes( 'EditQ' ) THEN
    1979. 

  1979. *****                     ^ not supported yet
    1980. 

  1980. *****                          ^ not supported yet
    1981. 

  1981.   816                    TmpRec.CursorRow := BadLine;
    1982. 

  1982. *****                    ^ not supported yet
    1983. 

  1983. *****                           ^ not supported yet
    1984. 

  1984.   817                    CallEditor( CurrentFrameList, TmpRec );
    1985. 

  1985. *****                    ^ not supported yet
    1986. 

  1986. *****                                ^ not supported yet
    1987. 

  1987. *****                                                  ^ not supported yet
    1988. 

  1988.   818                    IF TmpRec.ChangeMade THEN
    1989. 

  1989. *****                       ^ not supported yet
    1990. 

  1990. *****                              ^ not supported yet
    1991. 

  1991.   819                      IF DeleteFrame( FileList, LastFrameName, EndLine ) THEN
    1992. 

  1992. *****                         ^ not supported yet
    1993. 

  1993. *****                                      ^ not supported yet
    1994. 

  1994. *****                                                ^ not supported yet
    1995. 

  1995. *****                                                                       ^ not supported yet
    1996. 

  1996.   820                        ListUtils.InsertElmtsOf( CurrentFrameList, 1, 65535,
    1997. 

  1997. *****                        ^ not supported yet
    1998. 

  1998. *****                                  ^ not supported yet
    1999. 

  1999. *****                                                 ^ not supported yet
    2000. 

  2000.   821                            FileList, EndLine );
    2001. 

  2001. *****                            ^ not supported yet
    2002. 

  2002. *****                                              ^ not supported yet
    2003. 

  2003.   822                      END;
    2004. 

  2004.   823                    END;
    2005. 

  2005.   824                    BadLine := 0;
    2006. 

  2006.   825                    IF TmpRec.ChangeMade THEN
    2007. 

  2007. *****                       ^ not supported yet
    2008. 

  2008. *****                              ^ not supported yet
    2009. 

  2009.   826                      ChangeMade := TRUE;
    2010. 

  2010.   827                    END;
    2011. 

  2011.   828                  END;
    2012. 

  2012.   829                ELSE
    2013. 

  2013.   830                  AddToFile( CurrentDspFile, OutFrameList, FrameName);
    2014. 

  2014. *****                  ^ not supported yet
    2015. 

  2015. *****                             ^ not supported yet
    2016. 

  2016. *****                                             ^ not supported yet
    2017. 

  2017. *****                                                           ^ not supported yet
    2018. 

  2018.   831                END;
    2019. 

  2019.   832              END;
    2020. 

  2020.   833            END;
    2021. 

  2021.   834          END;
    2022. 

  2022.   835          FrameManager.EraseFrame( StatusFrame );
    2023. 

  2023. *****          ^ not supported yet
    2024. 

  2024. *****                       ^ not supported yet
    2025. 

  2025. *****                                   ^ not supported yet
    2026. 

  2026.   836          ScrnUtl2.CloseDisplayFrame( StatusFrame );
    2027. 

  2027. *****          ^ not supported yet
    2028. 

  2028. *****                   ^ not supported yet
    2029. 

  2029. *****                                      ^ not supported yet
    2030. 

  2030.   837          IF ChangeMade THEN
    2031. 

  2031.   838            IF Yes( 'SaveQ' ) THEN
    2032. 

  2032. *****               ^ not supported yet
    2033. 

  2033. *****                    ^ not supported yet
    2034. 

  2034.   839              IF StringIO.NoError # ListUtils.TextListToFile( FileList,
    2035. 

  2035. *****                 ^ not supported yet
    2036. 

  2036. *****                          ^ not supported yet
    2037. 

  2037. *****                                    ^ not supported yet
    2038. 

  2038. *****                                              ^ not supported yet
    2039. 

  2039. *****                                                              ^ not supported yet
    2040. 

  2040.   840                  EdtFileName ) THEN
    2041. 

  2041. *****                  ^ not supported yet
    2042. 

  2042.   841                InputConst2( ScrnCompDsp, 'FileError' );
    2043. 

  2043. *****                ^ not supported yet
    2044. 

  2044. *****                             ^ not supported yet
    2045. 

  2045. *****                                          ^ not supported yet
    2046. 

  2046.   842              END;
    2047. 

  2047.   843            END;
    2048. 

  2048.   844          END;
    2049. 

  2049.   845  
    2050. 

  2050.   846        | 'S' :
    2051. 

  2051.   847          IF NOT GenLists.Initialized( FileList ) THEN
    2052. 

  2052. *****                 ^ not supported yet
    2053. 

  2053. *****                          ^ not supported yet
    2054. 

  2054. *****                                       ^ not supported yet
    2055. 

  2055.   848            IF NOT ReadNewEdtFile() THEN
    2056. 

  2056. *****                   ^ not supported yet
    2057. 

  2057. *****                                  ^ not supported yet
    2058. 

  2058.   849              RETURN;
    2059. 

  2059.   850            END;
    2060. 

  2060.   851          END;
    2061. 

  2061.   852          IF GetStrResponse( 'FramePrompt', LastFrameName, FrameName ) THEN
    2062. 

  2062. *****             ^ not supported yet
    2063. 

  2063. *****                             ^ not supported yet
    2064. 

  2064. *****                                            ^ not supported yet
    2065. 

  2065. *****                                                           ^ not supported yet
    2066. 

  2066.   853            M2Strings.Assign( FrameName, LastFrameName );
    2067. 

  2067. *****            ^ not supported yet
    2068. 

  2068. *****                      ^ not supported yet
    2069. 

  2069. *****                              ^ not supported yet
    2070. 

  2070. *****                                         ^ not supported yet
    2071. 

  2071.   854            IF GetSpecificFrame( FileList, FrameName, CurrentFrameList ) THEN
    2072. 

  2072. *****               ^ not supported yet
    2073. 

  2073. *****                                 ^ not supported yet
    2074. 

  2074. *****                                           ^ not supported yet
    2075. 

  2075. *****                                                      ^ not supported yet
    2076. 

  2076.   855              MakeFrame.CompileFrame( CurrentFrameList,
    2077. 

  2077. *****              ^ not supported yet
    2078. 

  2078. *****                        ^ not supported yet
    2079. 

  2079. *****                                      ^ not supported yet
    2080. 

  2080.   856                  OutFrameList, FrameName, ErrStr, BadLine);
    2081. 

  2081. *****                  ^ not supported yet
    2082. 

  2082. *****                                ^ not supported yet
    2083. 

  2083. *****                                           ^ not supported yet
    2084. 

  2084. *****                                                          ^ not supported yet
    2085. 

  2085.   857              M2Strings.Assign( FrameName, LastFrameName );
    2086. 

  2086. *****              ^ not supported yet
    2087. 

  2087. *****                        ^ not supported yet
    2088. 

  2088. *****                                ^ not supported yet
    2089. 

  2089. *****                                           ^ not supported yet
    2090. 

  2090.   858              IF BadLine = 0 THEN
    2091. 

  2091.   859                IF Yes( 'StoreQ' ) THEN
    2092. 

  2092. *****                   ^ not supported yet
    2093. 

  2093. *****                        ^ not supported yet
    2094. 

  2094.   860                  AddToFile( CurrentDspFile, OutFrameList, FrameName);
    2095. 

  2095. *****                  ^ not supported yet
    2096. 

  2096. *****                             ^ not supported yet
    2097. 

  2097. *****                                             ^ not supported yet
    2098. 

  2098. *****                                                           ^ not supported yet
    2099. 

  2099.   861                END;
    2100. 

  2100.   862              ELSE
    2101. 

  2101.   863                ShowError( CurrentFrameList, FrameName, ErrStr, BadLine);
    2102. 

  2102. *****                ^ not supported yet
    2103. 

  2103. *****                           ^ not supported yet
    2104. 

  2104. *****                                             ^ not supported yet
    2105. 

  2105. *****                                                        ^ not supported yet
    2106. 

  2106. *****                                                                       ^ not supported yet
    2107. 

  2107.   864                IF Yes( 'EditQ' ) THEN
    2108. 

  2108. *****                   ^ not supported yet
    2109. 

  2109. *****                        ^ not supported yet
    2110. 

  2110.   865                  TmpRec.CursorRow := BadLine;
    2111. 

  2111. *****                  ^ not supported yet
    2112. 

  2112. *****                         ^ not supported yet
    2113. 

  2113.   866                  CallEditor( CurrentFrameList, TmpRec );
    2114. 

  2114. *****                  ^ not supported yet
    2115. 

  2115. *****                              ^ not supported yet
    2116. 

  2116. *****                                                ^ not supported yet
    2117. 

  2117.   867                  IF TmpRec.ChangeMade THEN
    2118. 

  2118. *****                     ^ not supported yet
    2119. 

  2119. *****                            ^ not supported yet
    2120. 

  2120.   868                    IF DeleteFrame( FileList, LastFrameName, EndLine ) THEN
    2121. 

  2121. *****                       ^ not supported yet
    2122. 

  2122. *****                                    ^ not supported yet
    2123. 

  2123. *****                                              ^ not supported yet
    2124. 

  2124. *****                                                                     ^ not supported yet
    2125. 

  2125.   869                      ListUtils.InsertElmtsOf( CurrentFrameList, 1, 65535,
    2126. 

  2126. *****                      ^ not supported yet
    2127. 

  2127. *****                                ^ not supported yet
    2128. 

  2128. *****                                               ^ not supported yet
    2129. 

  2129.   870                          FileList, EndLine );
    2130. 

  2130. *****                          ^ not supported yet
    2131. 

  2131. *****                                            ^ not supported yet
    2132. 

  2132.   871                    END;
    2133. 

  2133.   872                  END;
    2134. 

  2134.   873                END;
    2135. 

  2135.   874              END;
    2136. 

  2136.   875            END;
    2137. 

  2137.   876          END;
    2138. 

  2138.   877        | 'C' :
    2139. 

  2139.   878          IF GenLists.ListLength( CurrentFrameList ) = 0 THEN
    2140. 

  2140. *****             ^ not supported yet
    2141. 

  2141. *****                      ^ not supported yet
    2142. 

  2142. *****                                  ^ not supported yet
    2143. 

  2143.   879            InputConst2( ScrnCompDsp, 'NoCurrent' );
    2144. 

  2144. *****            ^ not supported yet
    2145. 

  2145. *****                         ^ not supported yet
    2146. 

  2146. *****                                      ^ not supported yet
    2147. 

  2147.   880            RETURN;
    2148. 

  2148.   881          END;
    2149. 

  2149.   882          MakeFrame.CompileFrame( CurrentFrameList, OutFrameList, FrameName,
    2150. 

  2150. *****          ^ not supported yet
    2151. 

  2151. *****                    ^ not supported yet
    2152. 

  2152. *****                                  ^ not supported yet
    2153. 

  2153. *****                                                    ^ not supported yet
    2154. 

  2154. *****                                                                  ^ not supported yet
    2155. 

  2155.   883              ErrStr, BadLine);
    2156. 

  2156. *****              ^ not supported yet
    2157. 

  2157. *****                             ^ not supported yet
    2158. 

  2158.   884          M2Strings.Assign( FrameName, LastFrameName );
    2159. 

  2159. *****          ^ not supported yet
    2160. 

  2160. *****                    ^ not supported yet
    2161. 

  2161. *****                            ^ not supported yet
    2162. 

  2162. *****                                       ^ not supported yet
    2163. 

  2163.   885          IF BadLine = 0 THEN
    2164. 

  2164.   886            IF Yes( 'StoreQ' ) THEN
    2165. 

  2165. *****               ^ not supported yet
    2166. 

  2166. *****                    ^ not supported yet
    2167. 

  2167.   887              AddToFile( CurrentDspFile, OutFrameList, FrameName);
    2168. 

  2168. *****              ^ not supported yet
    2169. 

  2169. *****                         ^ not supported yet
    2170. 

  2170. *****                                         ^ not supported yet
    2171. 

  2171. *****                                                       ^ not supported yet
    2172. 

  2172.   888            END;
    2173. 

  2173.   889          ELSE
    2174. 

  2174.   890            ShowError( CurrentFrameList, FrameName, ErrStr, BadLine);
    2175. 

  2175. *****            ^ not supported yet
    2176. 

  2176. *****                       ^ not supported yet
    2177. 

  2177. *****                                         ^ not supported yet
    2178. 

  2178. *****                                                    ^ not supported yet
    2179. 

  2179. *****                                                                   ^ not supported yet
    2180. 

  2180.   891            IF Yes( 'EditQ' ) THEN
    2181. 

  2181. *****               ^ not supported yet
    2182. 

  2182. *****                    ^ not supported yet
    2183. 

  2183.   892              TmpRec.CursorRow := BadLine;
    2184. 

  2184. *****              ^ not supported yet
    2185. 

  2185. *****                     ^ not supported yet
    2186. 

  2186.   893              CallEditor( CurrentFrameList, TmpRec );
    2187. 

  2187. *****              ^ not supported yet
    2188. 

  2188. *****                          ^ not supported yet
    2189. 

  2189. *****                                            ^ not supported yet
    2190. 

  2190.   894              IF TmpRec.ChangeMade THEN
    2191. 

  2191. *****                 ^ not supported yet
    2192. 

  2192. *****                        ^ not supported yet
    2193. 

  2193.   895                IF DeleteFrame( FileList, LastFrameName, EndLine ) THEN
    2194. 

  2194. *****                   ^ not supported yet
    2195. 

  2195. *****                                ^ not supported yet
    2196. 

  2196. *****                                          ^ not supported yet
    2197. 

  2197. *****                                                                 ^ not supported yet
    2198. 

  2198.   896                  ListUtils.InsertElmtsOf( CurrentFrameList, 1, 65535,
    2199. 

  2199. *****                  ^ not supported yet
    2200. 

  2200. *****                            ^ not supported yet
    2201. 

  2201. *****                                           ^ not supported yet
    2202. 

  2202.   897                      FileList, EndLine );
    2203. 

  2203. *****                      ^ not supported yet
    2204. 

  2204. *****                                        ^ not supported yet
    2205. 

  2205.   898                END;
    2206. 

  2206.   899              END;
    2207. 

  2207.   900            END;
    2208. 

  2208.   901          END;
    2209. 

  2209.   902        END;
    2210. 

  2210.   903      END DoCompMenu;
    2211. 

  2211. *****          ^ not supported yet
    2212. 

  2212.   904  
    2213. 

  2213.   905  
    2214. 

  2214.   906    PROCEDURE DoDisplayMenu( SelectedChar: CHAR );
    2215. 

  2215.   907      VAR
    2216. 

  2216.   908        WorkFrame, ListFrame: ScrnTypes.DisplayFrame;
    2217. 

  2217. *****                                        ^ not supported yet
    2218. 

  2218.   909      BEGIN
    2219. 

  2219.   910        IF CurrentDspFile = NIL THEN
    2220. 

  2220. *****           ^ not supported yet
    2221. 

  2221.   911          IF NOT OpenNewDspFile() THEN
    2222. 

  2222. *****                 ^ not supported yet
    2223. 

  2223. *****                                ^ not supported yet
    2224. 

  2224.   912            RETURN;
    2225. 

  2225.   913          END;
    2226. 

  2226.   914        END;
    2227. 

  2227.   915        ScrnTypes.InitDisplayFrame( WorkFrame, VWindows.CurrentWindow );
    2228. 

  2228. *****        ^ not supported yet
    2229. 

  2229. *****                  ^ not supported yet
    2230. 

  2230. *****                                    ^ not supported yet
    2231. 

  2231. *****                                               ^ not supported yet
    2232. 

  2232. *****                                                        ^ not supported yet
    2233. 

  2233.   916        WorkFrame^.FromFile := CurrentDspFile;
    2234. 

  2234. *****        ^ not supported yet
    2235. 

  2235. *****                   ^ not supported yet
    2236. 

  2236. *****                               ^ not supported yet
    2237. 

  2237.   917        CASE CAP(SelectedChar) OF
    2238. 

  2238. *****             ^ undeclared identifier
    2239. 

  2239. *****                             ^ not supported yet
    2240. 

  2240.   918          'C' :
    2241. 

  2241.   919            IF GenLists.Initialized( OutFrameList ) THEN
    2242. 

  2242. *****               ^ not supported yet
    2243. 

  2243. *****                        ^ not supported yet
    2244. 

  2244. *****                                     ^ not supported yet
    2245. 

  2245.   920              DspFiles.GetFrameFromList( OutFrameList, WorkFrame );
    2246. 

  2246. *****              ^ not supported yet
    2247. 

  2247. *****                       ^ not supported yet
    2248. 

  2248. *****                                         ^ not supported yet
    2249. 

  2249. *****                                                       ^ not supported yet
    2250. 

  2250.   921              FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 );
    2251. 

  2251. *****              ^ not supported yet
    2252. 

  2252. *****                           ^ not supported yet
    2253. 

  2253. *****                                             ^ not supported yet
    2254. 

  2254. *****                                                                   ^ not supported yet
    2255. 

  2255.   922              InputManager.ControlFrame( WorkFrame, 1, '', FALSE, NextFrame );
    2256. 

  2256. *****              ^ not supported yet
    2257. 

  2257. *****                           ^ not supported yet
    2258. 

  2258. *****                                         ^ not supported yet
    2259. 

  2259. *****                                                                  ^ not supported yet
    2260. 

  2260.   923            ELSIF GenLists.ListLength( CurrentFrameList ) > 0 THEN
    2261. 

  2261. *****                  ^ not supported yet
    2262. 

  2262. *****                           ^ not supported yet
    2263. 

  2263. *****                                       ^ not supported yet
    2264. 

  2264.   924              MakeFrame.CompileFrame( CurrentFrameList,
    2265. 

  2265. *****              ^ not supported yet
    2266. 

  2266. *****                        ^ not supported yet
    2267. 

  2267. *****                                      ^ not supported yet
    2268. 

  2268.   925                  OutFrameList, FrameName, ErrStr, BadLine);
    2269. 

  2269. *****                  ^ not supported yet
    2270. 

  2270. *****                                ^ not supported yet
    2271. 

  2271. *****                                           ^ not supported yet
    2272. 

  2272. *****                                                          ^ not supported yet
    2273. 

  2273.   926              M2Strings.Assign( FrameName, LastFrameName );
    2274. 

  2274. *****              ^ not supported yet
    2275. 

  2275. *****                        ^ not supported yet
    2276. 

  2276. *****                                ^ not supported yet
    2277. 

  2277. *****                                           ^ not supported yet
    2278. 

  2278.   927              IF BadLine = 0 THEN
    2279. 

  2279.   928                DspFiles.GetFrameFromList( OutFrameList, WorkFrame );
    2280. 

  2280. *****                ^ not supported yet
    2281. 

  2281. *****                         ^ not supported yet
    2282. 

  2282. *****                                           ^ not supported yet
    2283. 

  2283. *****                                                         ^ not supported yet
    2284. 

  2284.   929                FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 );
    2285. 

  2285. *****                ^ not supported yet
    2286. 

  2286. *****                             ^ not supported yet
    2287. 

  2287. *****                                               ^ not supported yet
    2288. 

  2288. *****                                                                     ^ not supported yet
    2289. 

  2289.   930                InputManager.ControlFrame( WorkFrame, 1, '', FALSE, NextFrame );
    2290. 

  2290. *****                ^ not supported yet
    2291. 

  2291. *****                             ^ not supported yet
    2292. 

  2292. *****                                           ^ not supported yet
    2293. 

  2293. *****                                                                    ^ not supported yet
    2294. 

  2294.   931              ELSE
    2295. 

  2295.   932                ShowError( CurrentFrameList, FrameName, ErrStr, BadLine);
    2296. 

  2296. *****                ^ not supported yet
    2297. 

  2297. *****                           ^ not supported yet
    2298. 

  2298. *****                                             ^ not supported yet
    2299. 

  2299. *****                                                        ^ not supported yet
    2300. 

  2300. *****                                                                       ^ not supported yet
    2301. 

  2301.   933              END;
    2302. 

  2302.   934            ELSE
    2303. 

  2303.   935              InputConst2( ScrnCompDsp, 'NoCurrent' );
    2304. 

  2304. *****              ^ not supported yet
    2305. 

  2305. *****                           ^ not supported yet
    2306. 

  2306. *****                                        ^ not supported yet
    2307. 

  2307.   936            END;
    2308. 

  2308.   937        | 'S' :
    2309. 

  2309.   938            IF GetStrResponse( 'FramePrompt', LastFrameName, FrameName ) THEN
    2310. 

  2310. *****               ^ not supported yet
    2311. 

  2311. *****                               ^ not supported yet
    2312. 

  2312. *****                                              ^ not supported yet
    2313. 

  2313. *****                                                             ^ not supported yet
    2314. 

  2314.   939              M2Strings.Assign( FrameName, LastFrameName );
    2315. 

  2315. *****              ^ not supported yet
    2316. 

  2316. *****                        ^ not supported yet
    2317. 

  2317. *****                                ^ not supported yet
    2318. 

  2318. *****                                           ^ not supported yet
    2319. 

  2319.   940              IF ControlUtils.FrameExists( CurrentDspFile, FrameName ) THEN
    2320. 

  2320. *****                 ^ not supported yet
    2321. 

  2321. *****                              ^ not supported yet
    2322. 

  2322. *****                                           ^ not supported yet
    2323. 

  2323. *****                                                           ^ not supported yet
    2324. 

  2324.   941                ControlUtils.Input( WorkFrame, FrameName );
    2325. 

  2325. *****                ^ not supported yet
    2326. 

  2326. *****                             ^ not supported yet
    2327. 

  2327. *****                                    ^ not supported yet
    2328. 

  2328. *****                                               ^ not supported yet
    2329. 

  2329.   942              END;
    2330. 

  2330.   943            END;
    2331. 

  2331.   944        | 'L' :
    2332. 

  2332.   945            ScrnTypes.InitDisplayFrame( ListFrame, VWindows.CurrentWindow );
    2333. 

  2333. *****            ^ not supported yet
    2334. 

  2334. *****                      ^ not supported yet
    2335. 

  2335. *****                                        ^ not supported yet
    2336. 

  2336. *****                                                   ^ not supported yet
    2337. 

  2337. *****                                                            ^ not supported yet
    2338. 

  2338.   946            DspFiles.ReadDisplayFrame( ScrnCompDsp, ListFrame,
    2339. 

  2339. *****            ^ not supported yet
    2340. 

  2340. *****                     ^ not supported yet
    2341. 

  2341. *****                                       ^ not supported yet
    2342. 

  2342. *****                                                    ^ not supported yet
    2343. 

  2343.   947                'ListBox' );
    2344. 

  2344. *****                ^ not supported yet
    2345. 

  2345.   948            ScrnUtl1.SetNormalColors( ListFrame );
    2346. 

  2346. *****            ^ not supported yet
    2347. 

  2347. *****                     ^ not supported yet
    2348. 

  2348. *****                                      ^ not supported yet
    2349. 

  2349.   949            NamesToFrame( CurrentDspFile, ListFrame );
    2350. 

  2350. *****            ^ not supported yet
    2351. 

  2351. *****                          ^ not supported yet
    2352. 

  2352. *****                                          ^ not supported yet
    2353. 

  2353.   950            FramePainter.ShowDisplayFrame( ListFrame, 0, 0, 0, 0 );
    2354. 

  2354. *****            ^ not supported yet
    2355. 

  2355. *****                         ^ not supported yet
    2356. 

  2356. *****                                           ^ not supported yet
    2357. 

  2357. *****                                                                 ^ not supported yet
    2358. 

  2358.   951            IF ScrnUtl1.FieldListTotal( ListFrame ) > 0 THEN
    2359. 

  2359. *****               ^ not supported yet
    2360. 

  2360. *****                        ^ not supported yet
    2361. 

  2361. *****                                        ^ not supported yet
    2362. 

  2362.   952              InputManager.ControlFrame( ListFrame, 1, '', FALSE,
    2363. 

  2363. *****              ^ not supported yet
    2364. 

  2364. *****                           ^ not supported yet
    2365. 

  2365. *****                                         ^ not supported yet
    2366. 

  2366.   953                  NextFrame );
    2367. 

  2367. *****                  ^ not supported yet
    2368. 

  2368.   954              ScrnUtl1.GetFieldText( ListFrame,
    2369. 

  2369. *****              ^ not supported yet
    2370. 

  2370. *****                       ^ not supported yet
    2371. 

  2371. *****                                     ^ not supported yet
    2372. 

  2372.   955                  ListFrame^.CurrentField, LastFrameName );
    2373. 

  2373. *****                  ^ not supported yet
    2374. 

  2374. *****                             ^ not supported yet
    2375. 

  2375. *****                                           ^ not supported yet
    2376. 

  2376.   956            END;
    2377. 

  2377.   957            ScrnUtl2.CloseDisplayFrame( ListFrame );
    2378. 

  2378. *****            ^ not supported yet
    2379. 

  2379. *****                     ^ not supported yet
    2380. 

  2380. *****                                        ^ not supported yet
    2381. 

  2381.   958        END;
    2382. 

  2382.   959        ScrnUtl2.CloseDisplayFrame( WorkFrame );
    2383. 

  2383. *****        ^ not supported yet
    2384. 

  2384. *****                 ^ not supported yet
    2385. 

  2385. *****                                    ^ not supported yet
    2386. 

  2386.   960      END DoDisplayMenu;
    2387. 

  2387. *****          ^ not supported yet
    2388. 

  2388.   961  
    2389. 

  2389.   962  
    2390. 

  2390.   963    PROCEDURE DoPrintDialog();
    2391. 

  2391.   964      VAR
    2392. 

  2392.   965        WorkFrame, ListFrame: ScrnTypes.DisplayFrame;
    2393. 

  2393. *****                                        ^ not supported yet
    2394. 

  2394.   966        FrameName: ScrnTypes.AFrameName;
    2395. 

  2395. *****                             ^ not supported yet
    2396. 

  2396.   967        DeviceName: ARRAY [0..79] OF CHAR;
    2397. 

  2397. *****                              ^ not supported yet
    2398. 

  2398. *****                                     ^ not supported yet
    2399. 

  2399.   968        TmpHandle: CARDINAL;
    2400. 

  2400.   969      BEGIN
    2401. 

  2401.   970        IF CurrentDspFile = NIL THEN
    2402. 

  2402. *****           ^ not supported yet
    2403. 

  2403.   971          IF NOT OpenNewDspFile() THEN
    2404. 

  2404. *****                 ^ not supported yet
    2405. 

  2405. *****                                ^ not supported yet
    2406. 

  2406.   972            RETURN;
    2407. 

  2407.   973          END;
    2408. 

  2408.   974        END;
    2409. 

  2409.   975        ScrnTypes.InitDisplayFrame( WorkFrame, VWindows.CurrentWindow );
    2410. 

  2410. *****        ^ not supported yet
    2411. 

  2411. *****                  ^ not supported yet
    2412. 

  2412. *****                                    ^ not supported yet
    2413. 

  2413. *****                                               ^ not supported yet
    2414. 

  2414. *****                                                        ^ not supported yet
    2415. 

  2415.   976        WorkFrame^.FromFile := CurrentDspFile;
    2416. 

  2416. *****        ^ not supported yet
    2417. 

  2417. *****                   ^ not supported yet
    2418. 

  2418. *****                               ^ not supported yet
    2419. 

  2419.   977        LOOP
    2420. 

  2420.   978          DspFiles.ReadDisplayFrame( ScrnCompDsp, WorkFrame, 'PrintDialog' );
    2421. 

  2421. *****          ^ not supported yet
    2422. 

  2422. *****                   ^ not supported yet
    2423. 

  2423. *****                                     ^ not supported yet
    2424. 

  2424. *****                                                  ^ not supported yet
    2425. 

  2425. *****                                                             ^ not supported yet
    2426. 

  2426.   979          ControlUtils.ChangeField( WorkFrame, LastFrameName, 'FrameName', TRUE );
    2427. 

  2427. *****          ^ not supported yet
    2428. 

  2428. *****                       ^ not supported yet
    2429. 

  2429. *****                                    ^ not supported yet
    2430. 

  2430. *****                                               ^ not supported yet
    2431. 

  2431. *****                                                              ^ not supported yet
    2432. 

  2432. *****                                                                                ^ not supported yet
    2433. 

  2433.   980          FramePainter.ShowDisplayFrame( WorkFrame, 0, 0, 0, 0 );
    2434. 

  2434. *****          ^ not supported yet
    2435. 

  2435. *****                       ^ not supported yet
    2436. 

  2436. *****                                         ^ not supported yet
    2437. 

  2437. *****                                                               ^ not supported yet
    2438. 

  2438.   981          InputManager.ControlFrame( WorkFrame, 1, '', FALSE, FrameName );
    2439. 

  2439. *****          ^ not supported yet
    2440. 

  2440. *****                       ^ not supported yet
    2441. 

  2441. *****                                     ^ not supported yet
    2442. 

  2442. *****                                                              ^ not supported yet
    2443. 

  2443.   982  	IF PosUtils.Equal( FrameName, WorkFrame^.parent ) THEN
    2444. 

  2444. *****  	   ^ not supported yet
    2445. 

  2445. *****  	            ^ not supported yet
    2446. 

  2446. *****  	                   ^ not supported yet
    2447. 

  2447. *****  	                              ^ not supported yet
    2448. 

  2448. *****  	                                         ^ not supported yet
    2449. 

  2449.   983  	  EXIT;
    2450. 

  2450.   984  	END;
    2451. 

  2451.   985          ControlUtils.ReadInput( WorkFrame, FrameName, 'FrameName' );
    2452. 

  2452. *****          ^ not supported yet
    2453. 

  2453. *****                       ^ not supported yet
    2454. 

  2454. *****                                  ^ not supported yet
    2455. 

  2455. *****                                             ^ not supported yet
    2456. 

  2456. *****                                                        ^ not supported yet
    2457. 

  2457.   986          ControlUtils.ReadInput( WorkFrame, DeviceName, 'DeviceName' );
    2458. 

  2458. *****          ^ not supported yet
    2459. 

  2459. *****                       ^ not supported yet
    2460. 

  2460. *****                                  ^ not supported yet
    2461. 

  2461. *****                                             ^ not supported yet
    2462. 

  2462. *****                                                         ^ not supported yet
    2463. 

  2463.   987  	StrEdit.CrunchBlanks( FrameName );
    2464. 

  2464. *****  	^ not supported yet
    2465. 

  2465. *****  	        ^ not supported yet
    2466. 

  2466. *****  	                      ^ not supported yet
    2467. 

  2467.   988  	StrEdit.CrunchBlanks( DeviceName );
    2468. 

  2468. *****  	^ not supported yet
    2469. 

  2469. *****  	        ^ not supported yet
    2470. 

  2470. *****  	                      ^ not supported yet
    2471. 

  2471.   989  	IF ControlUtils.FrameExists( CurrentDspFile, FrameName ) THEN
    2472. 

  2472. *****  	   ^ not supported yet
    2473. 

  2473. *****  	                ^ not supported yet
    2474. 

  2474. *****  	                             ^ not supported yet
    2475. 

  2475. *****  	                                             ^ not supported yet
    2476. 

  2476.   990  	  DspFiles.ReadDisplayFrame( CurrentDspFile, WorkFrame, FrameName );
    2477. 

  2477. *****  	  ^ not supported yet
    2478. 

  2478. *****  	           ^ not supported yet
    2479. 

  2479. *****  	                             ^ not supported yet
    2480. 

  2480. *****  	                                             ^ not supported yet
    2481. 

  2481. *****  	                                                        ^ not supported yet
    2482. 

  2482.   991  	  HandleIO.OpenForAppending( DeviceName, TmpHandle );
    2483. 

  2483. *****  	  ^ not supported yet
    2484. 

  2484. *****  	           ^ not supported yet
    2485. 

  2485. *****  	                             ^ not supported yet
    2486. 

  2486. *****  	                                                   ^ not supported yet
    2487. 

  2487.   992  	  PrtFrame.PrintDisplayFrame( WorkFrame, TmpHandle, 0 );
    2488. 

  2488. *****  	  ^ not supported yet
    2489. 

  2489. *****  	           ^ not supported yet
    2490. 

  2490. *****  	                              ^ not supported yet
    2491. 

  2491. *****  	                                                      ^ not supported yet
    2492. 

  2492.   993  	  IF StringIO.NoError # HandleIO.CloseHandle( TmpHandle ) THEN
    2493. 

  2493. *****  	     ^ not supported yet
    2494. 

  2494. *****  	              ^ not supported yet
    2495. 

  2495. *****  	                        ^ not supported yet
    2496. 

  2496. *****  	                                 ^ not supported yet
    2497. 

  2497. *****  	                                                        ^ not supported yet
    2498. 

  2498.   994  	    EXIT;
    2499. 

  2499.   995  	  END;
    2500. 

  2500.   996  	END;
    2501. 

  2501.   997          M2Strings.Assign( FrameName, LastFrameName );
    2502. 

  2502. *****          ^ not supported yet
    2503. 

  2503. *****                    ^ not supported yet
    2504. 

  2504. *****                            ^ not supported yet
    2505. 

  2505. *****                                       ^ not supported yet
    2506. 

  2506.   998        END;
    2507. 

  2507.   999        ScrnUtl2.CloseDisplayFrame( WorkFrame );
    2508. 

  2508. *****        ^ not supported yet
    2509. 

  2509. *****                 ^ not supported yet
    2510. 

  2510. *****                                    ^ not supported yet
    2511. 

  2511.  1000      END DoPrintDialog;
    2512. 

  2512. *****          ^ not supported yet
    2513. 

  2513.  1001  
    2514. 

  2514.  1002  
    2515. 

  2515.  1003    PROCEDURE DoFrameSeq();
    2516. 

  2516.  1004      VAR
    2517. 

  2517.  1005        WorkFrame: ScrnTypes.DisplayFrame;
    2518. 

  2518. *****                             ^ not supported yet
    2519. 

  2519.  1006        EntryFrame: ScrnTypes.AFrameName;
    2520. 

  2520. *****                              ^ not supported yet
    2521. 

  2521.  1007      BEGIN
    2522. 

  2522.  1008        IF CurrentDspFile = NIL THEN
    2523. 

  2523. *****           ^ not supported yet
    2524. 

  2524.  1009          IF NOT OpenNewDspFile() THEN
    2525. 

  2525. *****                 ^ not supported yet
    2526. 

  2526. *****                                ^ not supported yet
    2527. 

  2527.  1010            RETURN;
    2528. 

  2528.  1011          END;
    2529. 

  2529.  1012        END;
    2530. 

  2530.  1013        IF GetStrResponse( 'EntryPrompt', LastFrameName, EntryFrame ) THEN
    2531. 

  2531. *****           ^ not supported yet
    2532. 

  2532. *****                           ^ not supported yet
    2533. 

  2533. *****                                          ^ not supported yet
    2534. 

  2534. *****                                                         ^ not supported yet
    2535. 

  2535.  1014          M2Strings.Assign( EntryFrame, LastFrameName );
    2536. 

  2536. *****          ^ not supported yet
    2537. 

  2537. *****                    ^ not supported yet
    2538. 

  2538. *****                            ^ not supported yet
    2539. 

  2539. *****                                        ^ not supported yet
    2540. 

  2540.  1015          IF NOT ControlUtils.FrameExists( CurrentDspFile, EntryFrame ) THEN
    2541. 

  2541. *****                 ^ not supported yet
    2542. 

  2542. *****                              ^ not supported yet
    2543. 

  2543. *****                                           ^ not supported yet
    2544. 

  2544. *****                                                           ^ not supported yet
    2545. 

  2545.  1016            IF NOT GetStrResponse( 'NewEntry', EntryFrame, EntryFrame ) THEN
    2546. 

  2546. *****                   ^ not supported yet
    2547. 

  2547. *****                                   ^ not supported yet
    2548. 

  2548. *****                                               ^ not supported yet
    2549. 

  2549. *****                                                           ^ not supported yet
    2550. 

  2550.  1017              RETURN;
    2551. 

  2551.  1018            END;
    2552. 

  2552.  1019          END;
    2553. 

  2553.  1020          ScrnTypes.InitDisplayFrame( WorkFrame, VWindows.CurrentWindow );
    2554. 

  2554. *****          ^ not supported yet
    2555. 

  2555. *****                    ^ not supported yet
    2556. 

  2556. *****                                      ^ not supported yet
    2557. 

  2557. *****                                                 ^ not supported yet
    2558. 

  2558. *****                                                          ^ not supported yet
    2559. 

  2559.  1021          WorkFrame^.FromFile := CurrentDspFile;
    2560. 

  2560. *****          ^ not supported yet
    2561. 

  2561. *****                     ^ not supported yet
    2562. 

  2562. *****                                 ^ not supported yet
    2563. 

  2563.  1022          LOOP
    2564. 

  2564.  1023            ControlUtils.FrameSeq2( CurrentDspFile, 'QNOCHECKQ', EntryFrame );
    2565. 

  2565. *****            ^ not supported yet
    2566. 

  2566. *****                         ^ not supported yet
    2567. 

  2567. *****                                    ^ not supported yet
    2568. 

  2568. *****                                                    ^ not supported yet
    2569. 

  2569. *****                                                                 ^ not supported yet
    2570. 

  2570.  1024              (* We don't want any checking for circular sequences
    2571. 

  2571.  1025                 at this level, so we use a value for the
    2572. 

  2572.  1026                 CheckFrame parameter that we hope you will never
    2573. 

  2573.  1027                 need as a frame name. *)
    2574. 

  2574.  1028            IF NOT PosUtils.Equal( EntryFrame, ScrnTypes.ProgramExit ) THEN
    2575. 

  2575. *****                   ^ not supported yet
    2576. 

  2576. *****                            ^ not supported yet
    2577. 

  2577. *****                                   ^ not supported yet
    2578. 

  2578. *****                                               ^ not supported yet
    2579. 

  2579. *****                                                         ^ not supported yet
    2580. 

  2580.  1029              (*We exited from FrameSequence prematurely because of an
    2581. 

  2581.  1030                unfound frame name.*)
    2582. 

  2582.  1031              IF NOT GetStrResponse( 'NewEntry', EntryFrame, EntryFrame ) THEN
    2583. 

  2583. *****                     ^ not supported yet
    2584. 

  2584. *****                                     ^ not supported yet
    2585. 

  2585. *****                                                 ^ not supported yet
    2586. 

  2586. *****                                                             ^ not supported yet
    2587. 

  2587.  1032                EXIT;
    2588. 

  2588.  1033              END;
    2589. 

  2589.  1034            ELSE
    2590. 

  2590.  1035              EXIT;
    2591. 

  2591.  1036            END;
    2592. 

  2592.  1037          END;
    2593. 

  2593.  1038          ScrnUtl2.CloseDisplayFrame( WorkFrame );
    2594. 

  2594. *****          ^ not supported yet
    2595. 

  2595. *****                   ^ not supported yet
    2596. 

  2596. *****                                      ^ not supported yet
    2597. 

  2597.  1039        END;
    2598. 

  2598.  1040      END DoFrameSeq;
    2599. 

  2599. *****          ^ not supported yet
    2600. 

  2600.  1041  
    2601. 

  2601.  1042  
    2602. 

  2602.  1043  PROCEDURE RestoreDisplay();
    2603. 

  2603.  1044    BEGIN
    2604. 

  2604.  1045      VWindows.SetForeColor( VWindows.CurrentWindow, MsColors.lightgrey );
    2605. 

  2605. *****      ^ not supported yet
    2606. 

  2606. *****               ^ not supported yet
    2607. 

  2607. *****                             ^ not supported yet
    2608. 

  2608. *****                                      ^ not supported yet
    2609. 

  2609. *****                                                     ^ not supported yet
    2610. 

  2610. *****                                                              ^ not supported yet
    2611. 

  2611.  1046      VWindows.SetBackColor( VWindows.CurrentWindow, MsColors.black );
    2612. 

  2612. *****      ^ not supported yet
    2613. 

  2613. *****               ^ not supported yet
    2614. 

  2614. *****                             ^ not supported yet
    2615. 

  2615. *****                                      ^ not supported yet
    2616. 

  2616. *****                                                     ^ not supported yet
    2617. 

  2617. *****                                                              ^ not supported yet
    2618. 

  2618.  1047      VWindows.SetMonoAttr( VWindows.CurrentWindow, MsColors.plain );
    2619. 

  2619. *****      ^ not supported yet
    2620. 

  2620. *****               ^ not supported yet
    2621. 

  2621. *****                            ^ not supported yet
    2622. 

  2622. *****                                     ^ not supported yet
    2623. 

  2623. *****                                                    ^ not supported yet
    2624. 

  2624. *****                                                             ^ not supported yet
    2625. 

  2625.  1048      VWindows.ClearPart( VWindows.CurrentWindow, 1, 1,
    2626. 

  2626. *****      ^ not supported yet
    2627. 

  2627. *****               ^ not supported yet
    2628. 

  2628. *****                          ^ not supported yet
    2629. 

  2629. *****                                   ^ not supported yet
    2630. 

  2630.  1049          VWindows.EndCol(VWindows.CurrentWindow),
    2631. 

  2631. *****          ^ not supported yet
    2632. 

  2632. *****                   ^ not supported yet
    2633. 

  2633. *****                          ^ not supported yet
    2634. 

  2634. *****                                   ^ not supported yet
    2635. 

  2635.  1050          VWindows.EndRow(VWindows.CurrentWindow) );
    2636. 

  2636. *****          ^ not supported yet
    2637. 

  2637. *****                   ^ not supported yet
    2638. 

  2638. *****                          ^ not supported yet
    2639. 

  2639. *****                                   ^ not supported yet
    2640. 

  2640.  1051      VWindows.SetCursorHeight( VWindows.CurrentWindow, SavedCursorHeight );
    2641. 

  2641. *****      ^ not supported yet
    2642. 

  2642. *****               ^ not supported yet
    2643. 

  2643. *****                                ^ not supported yet
    2644. 

  2644. *****                                         ^ not supported yet
    2645. 

  2645. *****                                                                          ^ not supported yet
    2646. 

  2646.  1052    END RestoreDisplay;
    2647. 

  2647. *****        ^ not supported yet
    2648. 

  2648.  1053  
    2649. 

  2649.  1054  
    2650. 

  2650.  1055  BEGIN
    2651. 

  2651.  1056    (* ScrnCompile *)
    2652. 

  2652.  1057    MakeFrame.Init();
    2653. 

  2653. *****    ^ not supported yet
    2654. 

  2654. *****              ^ not supported yet
    2655. 

  2655. *****                   ^ not supported yet
    2656. 

  2656.  1058      (* We initialize MakeFrame explicitly because there are cases where
    2657. 

  2657.  1059  	   we could reference its global data without first calling one of
    2658. 

  2658.  1060  	   its functions.  Our new initialization scheme is triggered only
    2659. 

  2659.  1061  	   when a function is called. *)
    2660. 

  2660.  1062  
    2661. 

  2661.  1063    GenLists.NilList( FileList );
    2662. 

  2662. *****    ^ not supported yet
    2663. 

  2663. *****             ^ not supported yet
    2664. 

  2664. *****                      ^ not supported yet
    2665. 

  2665.  1064    GenLists.NilList( OutFrameList );
    2666. 

  2666. *****    ^ not supported yet
    2667. 

  2667. *****             ^ not supported yet
    2668. 

  2668. *****                      ^ not supported yet
    2669. 

  2669.  1065    GenLists.NewList( CurrentFrameList );
    2670. 

  2670. *****    ^ not supported yet
    2671. 

  2671. *****             ^ not supported yet
    2672. 

  2672. *****                      ^ not supported yet
    2673. 

  2673.  1066    CurrentDspFile := NIL;
    2674. 

  2674. *****    ^ not supported yet
    2675. 

  2675.  1067    AtEndOfList := FALSE;
    2676. 

  2676.  1068    LastFileName := '';
    2677. 

  2677. *****    ^ not supported yet
    2678. 

  2678. *****                    ^ incompatible assignment
    2679. 

  2679.  1069    LastFrameName := '';
    2680. 

  2680. *****    ^ not supported yet
    2681. 

  2681. *****                     ^ incompatible assignment
    2682. 

  2682.  1070    CmdLineVersion := FALSE;
    2683. 

  2683.  1071    FileListLine := 1;
    2684. 

  2684.  1072    BigSets.InitSet( MovementKeys );
    2685. 

  2685. *****    ^ not supported yet
    2686. 

  2686. *****            ^ not supported yet
    2687. 

  2687. *****                     ^ not supported yet
    2688. 

  2688.  1073    BigSets.AppendSet( MovementKeys, '{9, 271, 328, 331, 333, 336, 329, 337}' );
    2689. 

  2689. *****    ^ not supported yet
    2690. 

  2690. *****            ^ not supported yet
    2691. 

  2691. *****                       ^ not supported yet
    2692. 

  2692. *****                                     ^ not supported yet
    2693. 

  2693.  1074      (*Arrow keys plus tab, backtab, PgUp, and PgDn*)
    2694. 

  2694.  1075  
    2695. 

  2695.  1076  
    2696. 

  2696.  1077    IF CommandLineSwitch() OR
    2697. 

  2697. *****       ^ not supported yet
    2698. 

  2698. *****                         ^ not supported yet
    2699. 

  2699.  1078        (NOT DspFiles.OpenDisplayFile( ScrnCompDsp, 'ScrnComp.dsp' )) THEN
    2700. 

  2700. *****             ^ not supported yet
    2701. 

  2701. *****                      ^ not supported yet
    2702. 

  2702. *****                                       ^ not supported yet
    2703. 

  2703. *****                                                    ^ not supported yet
    2704. 

  2704.  1079      CmdLineVersion := TRUE;
    2705. 

  2705.  1080      ParamsRead := 0;
    2706. 

  2706.  1081      IF NOT ReadNewEdtFile() THEN
    2707. 

  2707. *****             ^ not supported yet
    2708. 

  2708. *****                            ^ not supported yet
    2709. 

  2709.  1082        RETURN;
    2710. 

  2710. *****        ^ bad RETURN
    2711. 

  2711.  1083      END;
    2712. 

  2712.  1084      IF NOT OpenNewDspFile() THEN
    2713. 

  2713. *****             ^ not supported yet
    2714. 

  2714. *****                            ^ not supported yet
    2715. 

  2715.  1085        RETURN;
    2716. 

  2716. *****        ^ bad RETURN
    2717. 

  2717.  1086      END;
    2718. 

  2718.  1087      WHILE NOT AtEndOfList DO
    2719. 

  2719.  1088        AtEndOfList := NOT GetNextFrame( FileList,
    2720. 

  2720. *****                           ^ not supported yet
    2721. 

  2721. *****                                         ^ not supported yet
    2722. 

  2722.  1089            CurrentFrameList, FileListLine );
    2723. 

  2723. *****            ^ not supported yet
    2724. 

  2724. *****                                           ^ not supported yet
    2725. 

  2725.  1090        IF GenLists.ListLength( CurrentFrameList) > 0 THEN
    2726. 

  2726. *****           ^ not supported yet
    2727. 

  2727. *****                    ^ not supported yet
    2728. 

  2728. *****                                ^ not supported yet
    2729. 

  2729.  1091          MakeFrame.CompileFrame( CurrentFrameList, OutFrameList, FrameName,
    2730. 

  2730. *****          ^ not supported yet
    2731. 

  2731. *****                    ^ not supported yet
    2732. 

  2732. *****                                  ^ not supported yet
    2733. 

  2733. *****                                                    ^ not supported yet
    2734. 

  2734. *****                                                                  ^ not supported yet
    2735. 

  2735.  1092              ErrStr, BadLine);
    2736. 

  2736. *****              ^ not supported yet
    2737. 

  2737. *****                             ^ not supported yet
    2738. 

  2738.  1093          IF BadLine # 0 THEN
    2739. 

  2739.  1094            ShowError( CurrentFrameList, FrameName, ErrStr, BadLine);
    2740. 

  2740. *****            ^ not supported yet
    2741. 

  2741. *****                       ^ not supported yet
    2742. 

  2742. *****                                         ^ not supported yet
    2743. 

  2743. *****                                                    ^ not supported yet
    2744. 

  2744. *****                                                                   ^ not supported yet
    2745. 

  2745.  1095          END;
    2746. 

  2746.  1096          AddToFile( CurrentDspFile, OutFrameList, FrameName);
    2747. 

  2747. *****          ^ not supported yet
    2748. 

  2748. *****                     ^ not supported yet
    2749. 

  2749. *****                                     ^ not supported yet
    2750. 

  2750. *****                                                   ^ not supported yet
    2751. 

  2751.  1097          StrEdit.RightJustify( FrameName, 20 );
    2752. 

  2752. *****          ^ not supported yet
    2753. 

  2753. *****                  ^ not supported yet
    2754. 

  2754. *****                                ^ not supported yet
    2755. 

  2755. *****                                              ^ not supported yet
    2756. 

  2756.  1098          StringIO.WriteStr( StringIO.outp, FrameName );
    2757. 

  2757. *****          ^ not supported yet
    2758. 

  2758. *****                   ^ not supported yet
    2759. 

  2759. *****                             ^ not supported yet
    2760. 

  2760. *****                                      ^ not supported yet
    2761. 

  2761. *****                                            ^ not supported yet
    2762. 

  2762.  1099          StringIO.WriteStr( StringIO.outp, ' added to ' );
    2763. 

  2763. *****          ^ not supported yet
    2764. 

  2764. *****                   ^ not supported yet
    2765. 

  2765. *****                             ^ not supported yet
    2766. 

  2766. *****                                      ^ not supported yet
    2767. 

  2767. *****                                            ^ not supported yet
    2768. 

  2768.  1100          StringIO.WriteStr( StringIO.outp, DspFileName );
    2769. 

  2769. *****          ^ not supported yet
    2770. 

  2770. *****                   ^ not supported yet
    2771. 

  2771. *****                             ^ not supported yet
    2772. 

  2772. *****                                      ^ not supported yet
    2773. 

  2773. *****                                            ^ not supported yet
    2774. 

  2774.  1101          StringIO.WriteEol( StringIO.outp, '.' );
    2775. 

  2775. *****          ^ not supported yet
    2776. 

  2776. *****                   ^ not supported yet
    2777. 

  2777. *****                             ^ not supported yet
    2778. 

  2778. *****                                      ^ not supported yet
    2779. 

  2779. *****                                                ^ not supported yet
    2780. 

  2780.  1102        END;
    2781. 

  2781.  1103      END;
    2782. 

  2782.  1104      RETURN;
    2783. 

  2783. *****      ^ bad RETURN
    2784. 

  2784.  1105    END;
    2785. 

  2785.  1106  
    2786. 

  2786.  1107    SavedCursorHeight := VWindows.GetCursorHeight( VWindows.CurrentWindow );
    2787. 

  2787. *****                         ^ not supported yet
    2788. 

  2788. *****                                  ^ not supported yet
    2789. 

  2789. *****                                                   ^ not supported yet
    2790. 

  2790. *****                                                            ^ not supported yet
    2791. 

  2791.  1108    VWindows.SetCursorHeight( VWindows.CurrentWindow, 0 );
    2792. 

  2792. *****    ^ not supported yet
    2793. 

  2793. *****             ^ not supported yet
    2794. 

  2794. *****                              ^ not supported yet
    2795. 

  2795. *****                                       ^ not supported yet
    2796. 

  2796. *****                                                        ^ not supported yet
    2797. 

  2797.  1109    ErrorManager.AddTermProc( RestoreDisplay );
    2798. 

  2798. *****    ^ not supported yet
    2799. 

  2799. *****                 ^ not supported yet
    2800. 

  2800. *****                              ^ not supported yet
    2801. 

  2801.  1110  
    2802. 

  2802.  1111    GenLists.NewList( TopMenuList );
    2803. 

  2803. *****    ^ not supported yet
    2804. 

  2804. *****             ^ not supported yet
    2805. 

  2805. *****                      ^ not supported yet
    2806. 

  2806.  1112    ControlUtils.LoadFrameList( ScrnCompDsp, 'TopMenu', TopMenuList );
    2807. 

  2807. *****    ^ not supported yet
    2808. 

  2808. *****                 ^ not supported yet
    2809. 

  2809. *****                                ^ not supported yet
    2810. 

  2810. *****                                             ^ not supported yet
    2811. 

  2811. *****                                                        ^ not supported yet
    2812. 

  2812.  1113      (*This keeps the TopMenu in memory.*)
    2813. 

  2813.  1114  
    2814. 

  2814.  1115    UserOps.DoPrompting := FALSE;
    2815. 

  2815. *****    ^ not supported yet
    2816. 

  2816. *****            ^ not supported yet
    2817. 

  2817.  1116    ControlUtils.InputConst( DspFiles.MainFrame, 'Banner' );
    2818. 

  2818. *****    ^ not supported yet
    2819. 

  2819. *****                 ^ not supported yet
    2820. 

  2820. *****                             ^ not supported yet
    2821. 

  2821. *****                                      ^ not supported yet
    2822. 

  2822. *****                                                 ^ not supported yet
    2823. 

  2823.  1117    UserOps.DoPrompting := TRUE;
    2824. 

  2824. *****    ^ not supported yet
    2825. 

  2825. *****            ^ not supported yet
    2826. 

  2826.  1118    UserOps.PromptRow := VWindows.EndRow(VWindows.CurrentWindow) - 1;
    2827. 

  2827. *****    ^ not supported yet
    2828. 

  2828. *****            ^ not supported yet
    2829. 

  2829. *****                         ^ not supported yet
    2830. 

  2830. *****                                  ^ not supported yet
    2831. 

  2831. *****                                         ^ not supported yet
    2832. 

  2832. *****                                                  ^ not supported yet
    2833. 

  2833.  1119    ScrnUtl2.Display( DspFiles.MainFrame, 'BlankScreen' );
    2834. 

  2834. *****    ^ not supported yet
    2835. 

  2835. *****             ^ not supported yet
    2836. 

  2836. *****                      ^ not supported yet
    2837. 

  2837. *****                               ^ not supported yet
    2838. 

  2838. *****                                          ^ not supported yet
    2839. 

  2839.  1120  
    2840. 

  2840.  1121    LOOP
    2841. 

  2841.  1122      NextFrame := 'TopMenu';
    2842. 

  2842. *****      ^ not supported yet
    2843. 

  2843. *****                   ^ not supported yet
    2844. 

  2844.  1123      ControlUtils.ControlSeparately( TopMenuList,
    2845. 

  2845. *****      ^ not supported yet
    2846. 

  2846. *****                   ^ not supported yet
    2847. 

  2847. *****                                      ^ not supported yet
    2848. 

  2848.  1124          NextFrame, SelChar, EndingFrame );
    2849. 

  2849. *****          ^ not supported yet
    2850. 

  2850. *****                              ^ not supported yet
    2851. 

  2851.  1125      IF PosUtils.Equal( ScrnTypes.ProgramExit, NextFrame ) THEN
    2852. 

  2852. *****         ^ not supported yet
    2853. 

  2853. *****                  ^ not supported yet
    2854. 

  2854. *****                         ^ not supported yet
    2855. 

  2855. *****                                   ^ not supported yet
    2856. 

  2856. *****                                                ^ not supported yet
    2857. 

  2857.  1126        EXIT;
    2858. 

  2858.  1127      ELSIF PosUtils.Equal( EndingFrame, 'FileMenu' ) THEN
    2859. 

  2859. *****            ^ not supported yet
    2860. 

  2860. *****                     ^ not supported yet
    2861. 

  2861. *****                            ^ not supported yet
    2862. 

  2862. *****                                         ^ not supported yet
    2863. 

  2863.  1128        (*User has made a selection from the FileMenu.*)
    2864. 

  2864.  1129        DoFileMenu( SelChar );
    2865. 

  2865. *****        ^ not supported yet
    2866. 

  2866. *****                            ^ not supported yet
    2867. 

  2867.  1130      ELSIF PosUtils.Equal( EndingFrame, 'EditMenu' ) THEN
    2868. 

  2868. *****            ^ not supported yet
    2869. 

  2869. *****                     ^ not supported yet
    2870. 

  2870. *****                            ^ not supported yet
    2871. 

  2871. *****                                         ^ not supported yet
    2872. 

  2872.  1131        DoEditMenu( SelChar );
    2873. 

  2873. *****        ^ not supported yet
    2874. 

  2874. *****                            ^ not supported yet
    2875. 

  2875.  1132      ELSIF PosUtils.Equal( EndingFrame, 'CompMenu' ) THEN
    2876. 

  2876. *****            ^ not supported yet
    2877. 

  2877. *****                     ^ not supported yet
    2878. 

  2878. *****                            ^ not supported yet
    2879. 

  2879. *****                                         ^ not supported yet
    2880. 

  2880.  1133        DoCompMenu( SelChar );
    2881. 

  2881. *****        ^ not supported yet
    2882. 

  2882. *****                            ^ not supported yet
    2883. 

  2883.  1134      ELSIF PosUtils.Equal( EndingFrame, 'DispMenu' ) THEN
    2884. 

  2884. *****            ^ not supported yet
    2885. 

  2885. *****                     ^ not supported yet
    2886. 

  2886. *****                            ^ not supported yet
    2887. 

  2887. *****                                         ^ not supported yet
    2888. 

  2888.  1135        DoDisplayMenu( SelChar );
    2889. 

  2889. *****        ^ not supported yet
    2890. 

  2890. *****                               ^ not supported yet
    2891. 

  2891.  1136      ELSIF PosUtils.Equal( EndingFrame, 'TopMenu' ) THEN
    2892. 

  2892. *****            ^ not supported yet
    2893. 

  2893. *****                     ^ not supported yet
    2894. 

  2894. *****                            ^ not supported yet
    2895. 

  2895. *****                                         ^ not supported yet
    2896. 

  2896.  1137        IF (NOT PosUtils.Equal(NextFrame, ScrnTypes.ProgramExit)) AND
    2897. 

  2897. *****                ^ not supported yet
    2898. 

  2898. *****                         ^ not supported yet
    2899. 

  2899. *****                               ^ not supported yet
    2900. 

  2900. *****                                          ^ not supported yet
    2901. 

  2901. *****                                                    ^ not supported yet
    2902. 

  2902.  1138            (NOT PosUtils.Equal(NextFrame, 'Banner') ) THEN
    2903. 

  2903. *****                 ^ not supported yet
    2904. 

  2904. *****                          ^ not supported yet
    2905. 

  2905. *****                                ^ not supported yet
    2906. 

  2906. *****                                           ^ not supported yet
    2907. 

  2907.  1139          CASE SelChar OF
    2908. 

  2908.  1140            'R': DoFrameSeq();
    2909. 

  2909. *****                 ^ not supported yet
    2910. 

  2910. *****                            ^ not supported yet
    2911. 

  2911.  1141          | 'x': EXIT;
    2912. 

  2912.  1142          | 'P': DoPrintDialog();
    2913. 

  2913. *****                 ^ not supported yet
    2914. 

  2914. *****                               ^ not supported yet
    2915. 

  2915.  1143          | 's': ScrnUtl2.Display( DspFiles.MainFrame, 'BlankScreen' );
    2916. 

  2916. *****                 ^ not supported yet
    2917. 

  2917. *****                          ^ not supported yet
    2918. 

  2918. *****                                   ^ not supported yet
    2919. 

  2919. *****                                            ^ not supported yet
    2920. 

  2920. *****                                                       ^ not supported yet
    2921. 

  2921.  1144          ELSE
    2922. 

  2922.  1145            (*fall through*)
    2923. 

  2923.  1146          END;
    2924. 

  2924.  1147        END;
    2925. 

  2925.  1148      ELSE
    2926. 

  2926.  1149        ErrorManager.WARN('Error in TopMenu loop logic');
    2927. 

  2927. *****        ^ not supported yet
    2928. 

  2928. *****                     ^ not supported yet
    2929. 

  2929. *****                          ^ not supported yet
    2930. 

  2930.  1150      END;
    2931. 

  2931.  1151    END;
    2932. 

  2932.  1152    GenLists.DisposeList( TopMenuList );
    2933. 

  2933. *****    ^ not supported yet
    2934. 

  2934. *****             ^ not supported yet
    2935. 

  2935. *****                          ^ not supported yet
    2936. 

  2936.  1153    DspFiles.CloseDisplayFile( ScrnCompDsp );
    2937. 

  2937. *****    ^ not supported yet
    2938. 

  2938. *****             ^ not supported yet
    2939. 

  2939. *****                               ^ not supported yet
    2940. 

  2940.  1154    ErrorManager.DoTermProcs();
    2941. 

  2941. *****    ^ not supported yet
    2942. 

  2942. *****                 ^ not supported yet
    2943. 

  2943. *****                             ^ not supported yet
    2944. 

  2944.  1155  END ScrnCompile.
    2945. 

  2945. 

  2946.  1787 errors
    2947. 

  2947. 

  2948.