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
/
PMIDBMS.LST

PMIDBMS.LST 158 KB
Permalink Histórico Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163 
  1. Listing:
    2. 

  2. 

  3.     1  MODULE PMIdbms; (* *  REPERTOIRE *  Release 1.6 *  By Charles Bradford and 
    4. 

  4.     2  Cole Brecheen *  (c) Copyright 1985-1991 PMI *  Green Bay Wisconsin *  All 
    5. 

  5.     3  rights reserved *  (414) 468-6040 * *  $Header:   
    6. 

  6.     4  D:/logfiles/demos/pmidbms.mov   1.3   09 Dec 1990 11:18:22   coleb  $ * *  A 
    7. 

  7.     5  program to illustrate use of REPERTOIRE's screen *  and NdxFile system.  
    8. 

  8.     6  This is the advanced example; *  programmers new to REPERTOIRE should begin 
    9. 

  9.     7  with DEMO1. *)
    10. 

  10.     8  
    11. 

  11.     9  
    12. 

  12.    10  (*
    13. 

  13.    11  IMPORT EMS;
    14. 

  14.    12      EMS is part of PMI's EmsStorage, a product separate from
    15. 

  15.    13      Repertoire.  It allows Repertoire applications automatically
    16. 

  16.    14      to use expanded memory.  If you don't have it, just comment
    17. 

  17.    15      out the IMPORT EMS from any program modules in which it
    18. 

  18.    16      appears.*)
    19. 

  19.    17  
    20. 

  20.    18  IMPORT BuildLst;
    21. 

  21.    19  IMPORT ByteFiddler;
    22. 

  22.    20  IMPORT ControlUtils;
    23. 

  23.    21  IMPORT DateFunctions;
    24. 

  24.    22  IMPORT DirManager;
    25. 

  25.    23  IMPORT Drectory;
    26. 

  26.    24  IMPORT DspFiles;
    27. 

  27.    25  IMPORT EnvironUtils;
    28. 

  28.    26  IMPORT ErrorManager;
    29. 

  29.    27  IMPORT ErrStrgs;
    30. 

  30.    28  IMPORT HandleIO;
    31. 

  31.    29  IMPORT FrameManager;
    32. 

  32.    30  IMPORT FramePainter;
    33. 

  33.    31  IMPORT GenLists;
    34. 

  34.    32  IMPORT InitCompilerMods;
    35. 

  35.    33  IMPORT InputManager;
    36. 

  36.    34  IMPORT KbdInput;
    37. 

  37.    35  IMPORT ListUtils;
    38. 

  38.    36  IMPORT NdxUtils;
    39. 

  39.    37  IMPORT MsgBox2;
    40. 

  40.    38  IMPORT NdxBones;
    41. 

  41.    39  IMPORT NdxFiles;
    42. 

  42.    40  IMPORT NdxTypes;
    43. 

  43.    41  IMPORT NumTypes;
    44. 

  44.    42  IMPORT PosUtils;
    45. 

  45.    43  IMPORT PrtFrame;
    46. 

  46.    44  IMPORT Scrn2Ndx;
    47. 

  47.    45  IMPORT ScrnTypes;
    48. 

  48.    46  IMPORT ScrnUtl1;
    49. 

  49.    47  IMPORT ScrnUtl2;
    50. 

  50.    48  IMPORT SmartScreen;
    51. 

  51.    49  IMPORT StrConv;
    52. 

  52.    50  IMPORT StrEdit;
    53. 

  53.    51  IMPORT StringIO;
    54. 

  54.    52  IMPORT M2Strings;
    55. 

  55.    53  IMPORT UserOps;
    56. 

  56.    54  IMPORT VEditor;
    57. 

  57.    55  IMPORT VWindows;
    58. 

  58.    56  IMPORT WindowPrims;
    59. 

  59.    57  
    60. 

  60.    58  
    61. 

  61.    59    VAR
    62. 

  62.    60      NdxFile: NdxTypes.NdxFileType;
    63. 

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

  64.    61      ScreenFile: ScrnTypes.DisplayFile;
    65. 

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

  66.    62      EntryFrame: ScrnTypes.DisplayFrame;
    67. 

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

  68.    63      NdxFileName, RecName: ARRAY [0..79] OF CHAR;
    69. 

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

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

  71.    64      dumbool: BOOLEAN;
    72. 

  72.    65      PrnHandle, SavedCursorHeight : CARDINAL;
    73. 

  73.    66  
    74. 

  74.    67  
    75. 

  75.    68    PROCEDURE PrintMenu();
    76. 

  76.    69      VAR
    77. 

  77.    70        TmpName: ScrnTypes.AFrameName;
    78. 

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

  79.    71        thestr: ARRAY [0..79] OF CHAR;
    80. 

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

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

  82.    72        ff: ARRAY [0..0] OF CHAR;
    83. 

  83. *****                      ^ not supported yet
    84. 

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

  85.    73        FormFeeding, dumbool: BOOLEAN;
    86. 

  86.    74        TmpList: GenLists.GenList;
    87. 

  87. *****                          ^ not supported yet
    88. 

  88.    75        chkey: CARDINAL;
    89. 

  89.    76        LeftMargin : INTEGER;
    90. 

  90.    77        InvoiceFrame, DialogBox: ScrnTypes.DisplayFrame;
    91. 

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

  92.    78  
    93. 

  93.    79      PROCEDURE WriteInvoice();
    94. 

  94.    80        VAR
    95. 

  95.    81          NewEd: GenLists.GenList;
    96. 

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

  97.    82          month, day, year, AcctBalance: CARDINAL;
    98. 

  98.    83          date, name, tmpstr : ARRAY [0..50] OF CHAR;
    99. 

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

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

  101.    84        BEGIN
    102. 

  102.    85          ControlUtils.ReadInput( EntryFrame, tmpstr, 'ACCTBAL' );
    103. 

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

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

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

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

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

  108.    86            (* get account balance string from record entry frame *)
    109. 

  109.    87          IF NOT StrConv.StrToCardinal(tmpstr, 0, AcctBalance) THEN
    110. 

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

  111. *****                         ^ not supported yet
    112. 

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

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

  114.    88            AcctBalance := 0;
    115. 

  115.    89          END;
    116. 

  116.    90          IF AcctBalance > 0 THEN
    117. 

  117.    91            StrEdit.MakeCurrency( '$', tmpstr );
    118. 

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

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

  120. *****                                       ^ not supported yet
    121. 

  121.    92            ControlUtils.ChangeField( InvoiceFrame, tmpstr,
    122. 

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

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

  124. *****                                      ^ not supported yet
    125. 

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

  126.    93                'AMTDUE', TRUE );
    127. 

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

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

  129.    94            ControlUtils.ChangeField( InvoiceFrame, '$0.00',
    130. 

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

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

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

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

  134.    95                'AMTPAID', TRUE );
    135. 

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

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

  137.    96          ELSE
    138. 

  138.    97            ControlUtils.ChangeField( InvoiceFrame, 'prepaid',
    139. 

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

  140. *****                         ^ not supported yet
    141. 

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

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

  143.    98                'TERMS', TRUE );
    144. 

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

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

  146.    99          END;
    147. 

  147.   100          EnvironUtils.GetDate( month, day, year, name, date );
    148. 

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

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

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

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

  152.   101            (* get the system date *)
    153. 

  153.   102          ControlUtils.ChangeField( InvoiceFrame, date, 'DATE', TRUE );
    154. 

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

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

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

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

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

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

  160.   103            (*Insert the current date.*)
    161. 

  161.   104          ControlUtils.ChangeField( InvoiceFrame, date, 'SHIPDATE', TRUE);
    162. 

  162. *****          ^ not supported yet
    163. 

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

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

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

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

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

  168.   105            (* fill in default dates *)
    169. 

  169.   106          ControlUtils.ReadInput( EntryFrame, name, 'NAME');
    170. 

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

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

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

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

  174. *****                                                    ^ not supported yet
    175. 

  175.   107            (* get the name of the customer out of the record entry frame*)
    176. 

  176.   108          ScrnUtl2.CopyEdField( EntryFrame, 'ADDRESS',
    177. 

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

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

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

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

  181.   109              InvoiceFrame, 'SOLDTO');
    182. 

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

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

  184.   110          ScrnUtl2.GetEdField( InvoiceFrame, 'SOLDTO', NewEd );
    185. 

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

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

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

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

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

  190.   111          GenLists.ListInsert( name, GenLists.StrCode, NewEd, 1);
    191. 

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

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

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

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

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

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

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

  198.   112            (* put name and address in sold to field; notice that
    199. 

  199.   113               we don't have to do a PutEdField here because
    200. 

  200.   114               ScrnUtl2.GetEdField returns the real list, not a copy of it. *)
    201. 

  201.   115          ScrnUtl2.CopyEdField( InvoiceFrame, 'SOLDTO', InvoiceFrame,
    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.   116              'SHIPTO');
    208. 

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

  209.   117          FramePainter.ShowDisplayFrame( InvoiceFrame, 0, 0, 0, 0 );
    210. 

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

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

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

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

  214.   118          InputManager.ControlFrame( InvoiceFrame, 0, '', FALSE, TmpName );
    215. 

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

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

  217. *****                                     ^ not supported yet
    218. 

  218. *****                                                                 ^ not supported yet
    219. 

  219.   119            (* now let user change screen if desired *)
    220. 

  220.   120          IF NOT PosUtils.Equal( TmpName, InvoiceFrame^.normlnext ) THEN
    221. 

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

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

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

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

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

  226.   121            RETURN
    227. 

  227.   122          END;
    228. 

  228.   123          IF AcctBalance > 0 THEN
    229. 

  229.   124            PrtFrame.PrintDisplayFrame( InvoiceFrame,
    230. 

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

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

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

  233.   125                PrnHandle, LeftMargin );
    234. 

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

  235.   126            StringIO.WriteStr( PrnHandle, 14C);
    236. 

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

  237. *****                     ^ not supported yet
    238. 

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

  239.   127            (* send a page feed to the printer *)
    240. 

  240.   128          END;
    241. 

  241.   129          ControlUtils.ChangeField( InvoiceFrame,
    242. 

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

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

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

  245.   130              '       This Copy For Your Records.', 'TITLE', FALSE );
    246. 

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

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

  248. *****                                                                   ^ not supported yet
    249. 

  249.   131          PrtFrame.PrintDisplayFrame( InvoiceFrame,
    250. 

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

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

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

  253.   132                PrnHandle, LeftMargin );
    254. 

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

  255.   133        END WriteInvoice;
    256. 

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

  257.   134  
    258. 

  258.   135      BEGIN
    259. 

  259.   136        (*PrintMenu*)
    260. 

  260.   137        ScrnTypes.InitDisplayFrame( DialogBox, VWindows.CurrentWindow );
    261. 

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

  262. *****                  ^ not supported yet
    263. 

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

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

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

  266.   138        ScrnTypes.InitDisplayFrame( InvoiceFrame, VWindows.CurrentWindow );
    267. 

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

  268. *****                  ^ not supported yet
    269. 

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

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

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

  272.   139        DspFiles.ReadDisplayFrame( ScreenFile, InvoiceFrame, '28' );
    273. 

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

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

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

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

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

  278.   140          (* now fill screen with input data *)
    279. 

  279.   141        PrnHandle := StringIO.StdPrn;
    280. 

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

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

  282.   142        ff[0] := CHR(12);
    283. 

  283. *****        ^ not supported yet
    284. 

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

  285. *****                 ^ undeclared identifier
    286. 

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

  287.   143        LOOP
    288. 

  288.   144          TmpName := 'PrintDialog'; (*The print menu screen.*)
    289. 

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

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

  291.   145          ControlUtils.ReadShowAndCntrl( ScreenFile, DialogBox, TmpName );
    292. 

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

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

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

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

  296. *****                                                                ^ not supported yet
    297. 

  297.   146          IF PosUtils.Equal( TmpName, '5' ) THEN
    298. 

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

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

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

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

  302.   147            (* User pressed Cancel or Escape *)
    303. 

  303.   148            EXIT;
    304. 

  304.   149          END;
    305. 

  305.   150          chkey := ScrnUtl1.WhichChoiceKey( DialogBox,
    306. 

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

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

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

  309.   151              ScrnUtl1.FieldNum(DialogBox, 'file') );
    310. 

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

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

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

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

  314.   152          CASE CHR(chkey) OF
    315. 

  315. *****               ^ undeclared identifier
    316. 

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

  317.   153            'f':
    318. 

  318.   154              HandleIO.OpenForAppending( "PRINTER.TXT", PrnHandle);
    319. 

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

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

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

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

  323.   155          | 'p':
    324. 

  324.   156              StringIO.PrintMessage(HandleIO.OpenFile(PrnHandle,'PRN'));
    325. 

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

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

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

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

  329. *****                                                                ^ not supported yet
    330. 

  330.   157          END;
    331. 

  331.   158          FormFeeding := ScrnUtl1.WhichChoiceKey( DialogBox,
    332. 

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

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

  334. *****                                                  ^ not supported yet
    335. 

  335.   159              ScrnUtl1.FieldNum(DialogBox, 'ff') ) = ORD('Y');
    336. 

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

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

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

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

  340. *****                                                     ^ undeclared identifier
    341. 

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

  342.   160          ScrnUtl1.GetIntField( DialogBox,
    343. 

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

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

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

  346.   161              ScrnUtl1.FieldNum(DialogBox, 'margin'), LeftMargin );
    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.   162          chkey := ScrnUtl1.WhichChoiceKey( DialogBox,
    353. 

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

  354. *****                            ^ not supported yet
    355. 

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

  356.   163              ScrnUtl1.FieldNum(DialogBox, 'label') );
    357. 

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

  358. *****                       ^ not supported yet
    359. 

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

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

  361.   164          CASE CHR(chkey) OF
    362. 

  362. *****               ^ undeclared identifier
    363. 

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

  364.   165            'A':
    365. 

  365.   166              ControlUtils.ReadInput( EntryFrame, thestr, 'NAME');
    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.   167              StringIO.PrintMessage( HandleIO.FillFile( PrnHandle,
    372. 

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

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

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

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

  376.   168                  LeftMargin, ' ' ) );
    377. 

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

  378.   169              StrEdit.CrunchBlanks(thestr);
    379. 

  379. *****              ^ not supported yet
    380. 

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

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

  382.   170              StringIO.WriteEol( PrnHandle, thestr );
    383. 

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

  384. *****                       ^ not supported yet
    385. 

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

  386.   171              IF NOT ScrnUtl1.ListFromEdField(
    387. 

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

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

  389.   172                  EntryFrame,
    390. 

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

  391.   173                  ScrnUtl1.FieldNum( EntryFrame, 'ADDRESS' ),
    392. 

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

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

  394. *****                                     ^ not supported yet
    395. 

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

  396.   174                  TmpList ) THEN
    397. 

  397. *****                  ^ not supported yet
    398. 

  398.   175                HALT();
    399. 

  399. *****                ^ undeclared identifier
    400. 

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

  401.   176              END;
    402. 

  402.   177              ListUtils.PrintList( PrnHandle, TmpList, LeftMargin,
    403. 

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

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

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

  406.   178                  StringIO.CrLf );
    407. 

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

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

  409.   179          | 'I':
    410. 

  410.   180              WriteInvoice();
    411. 

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

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

  413.   181          | 'T':
    414. 

  414.   182              PrtFrame.PrintFrameData( EntryFrame, PrnHandle, LeftMargin );
    415. 

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

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

  417. *****                                       ^ not supported yet
    418. 

  418. *****                                                                         ^ not supported yet
    419. 

  419.   183          END;
    420. 

  420.   184          IF FormFeeding THEN
    421. 

  421.   185            StringIO.WriteEol( PrnHandle, ff );
    422. 

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

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

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

  425.   186          END;
    426. 

  426.   187        END;
    427. 

  427.   188        StringIO.PrintMessage( HandleIO.CloseHandle( PrnHandle));
    428. 

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

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

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

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

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

  433.   189        ScrnUtl2.CloseDisplayFrame( InvoiceFrame );
    434. 

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

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

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

  437.   190        ScrnUtl2.CloseDisplayFrame( DialogBox );
    438. 

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

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

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

  441.   191      END PrintMenu;
    442. 

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

  443.   192  
    444. 

  444.   193  
    445. 

  445.   194    PROCEDURE DoOneRecord( RecName: ARRAY OF CHAR );
    446. 

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

  447.   195      VAR
    448. 

  448.   196        KeyHit, month, day, year: CARDINAL;
    449. 

  449.   197        DateStr, dumstr: ARRAY [0..15] OF CHAR;
    450. 

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

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

  452.   198        ch: CHAR;
    453. 

  453.   199        NextName: ScrnTypes.AFrameName;
    454. 

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

  455.   200        TmpFrame: ScrnTypes.DisplayFrame;
    456. 

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

  457.   201      BEGIN
    458. 

  458.   202        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    459. 

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

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

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

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

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

  464.   203        DspFiles.ReadFrame( ScreenFile, EntryFrame, '3' );
    465. 

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

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

  467. *****                            ^ not supported yet
    468. 

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

  469. *****                                                        ^ not supported yet
    470. 

  470.   204          (*Frame 3 is the entry form.*)
    471. 

  471.   205        IF NOT Scrn2Ndx.FillScrFast( NdxFile, EntryFrame,
    472. 

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

  473. *****                        ^ not supported yet
    474. 

  474. *****                                     ^ not supported yet
    475. 

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

  476.   206            RecName, '') THEN
    477. 

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

  478. *****                       ^ not supported yet
    479. 

  479.   207          (*FillScr says we're creating a new record, so fill the
    480. 

  480.   208            screen with some default values to save the user
    481. 

  481.   209            some typing.*)
    482. 

  482.   210          ControlUtils.ChangeField( EntryFrame, RecName, 'name', TRUE );
    483. 

  483. *****          ^ not supported yet
    484. 

  484. *****                       ^ not supported yet
    485. 

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

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

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

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

  489.   211            (*Insert the RecName they've selected.*)
    490. 

  490.   212          EnvironUtils.GetDate( month, day, year, dumstr, DateStr );
    491. 

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

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

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

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

  495.   213          ControlUtils.ChangeField( EntryFrame, DateStr, 'date', TRUE );
    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. *****                                                                      ^ not supported yet
    502. 

  502.   214            (*Insert the current date.*)
    503. 

  503.   215        END;
    504. 

  504.   216        FramePainter.ShowDisplayFrame( EntryFrame, 0, 0, 0, 0 );
    505. 

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

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

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

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

  509.   217          (*Displays the entry form.*)
    510. 

  510.   218        REPEAT
    511. 

  511.   219          NextName := '5';
    512. 

  512. *****          ^ not supported yet
    513. 

  513.   220            (*The menu at the top of the screen.*)
    514. 

  514.   221          ControlUtils.ReadShowAndCntrl( ScreenFile, TmpFrame, NextName );
    515. 

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

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

  517. *****                                         ^ not supported yet
    518. 

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

  519. *****                                                               ^ not supported yet
    520. 

  520.   222          IF PosUtils.Equal( NextName, '2' ) THEN
    521. 

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

  522. *****                      ^ not supported yet
    523. 

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

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

  525.   223            (* User pressed Escape *)
    526. 

  526.   224            IF EntryFrame^.FrameChanged THEN
    527. 

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

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

  529.   225              IF MsgBox2.MsgOkay( TmpFrame, VWindows.SE,
    530. 

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

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

  532. *****                                  ^ not supported yet
    533. 

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

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

  535.   226                  "Changes made will be lost.  Please confirm." ) THEN
    536. 

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

  537.   227                ScrnUtl2.CloseDisplayFrame( TmpFrame );
    538. 

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

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

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

  541.   228                RETURN;
    542. 

  542.   229              ELSE
    543. 

  543.   230                ch := 0C;
    544. 

  544.   231                NextName := '5';
    545. 

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

  546.   232              END;
    547. 

  547.   233            ELSE
    548. 

  548.   234              ScrnUtl2.CloseDisplayFrame( TmpFrame );
    549. 

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

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

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

  552.   235              RETURN;
    553. 

  553.   236            END;
    554. 

  554.   237          ELSE
    555. 

  555.   238            ch := CAP( ScrnUtl1.SelectedChar( TmpFrame ) );
    556. 

  556. *****                  ^ undeclared identifier
    557. 

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

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

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

  560.   239          END;
    561. 

  561.   240          IF ch = 'S' THEN
    562. 

  562.   241            (*Store*)
    563. 

  563.   242            StrEdit.SetLength( RecName, 0 );
    564. 

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

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

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

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

  568.   243              (*We're using a null record name here to make PutScrFast
    569. 

  569.   244                take its record name from the 'name' field in EntryFrame.*)
    570. 

  570.   245            EnvironUtils.GetDate( month, day, year, dumstr, DateStr );
    571. 

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

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

  573. *****                                                    ^ not supported yet
    574. 

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

  575.   246            ControlUtils.ChangeField( EntryFrame, DateStr, 'date', TRUE );
    576. 

  576. *****            ^ not supported yet
    577. 

  577. *****                         ^ not supported yet
    578. 

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

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

  580. *****                                                           ^ not supported yet
    581. 

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

  582.   247              (*Make the date field reflect date of last change.*)
    583. 

  583.   248            IF Scrn2Ndx.PutScrFast( NdxFile, EntryFrame,
    584. 

  584. *****               ^ not supported yet
    585. 

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

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

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

  588.   249                RecName, 'name') THEN
    589. 

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

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

  591.   250              IF NOT NdxFiles.WriteRecord( NdxFile, RecName) THEN
    592. 

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

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

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

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

  596.   251                ControlUtils.RdShwAndCntrlConst( ScreenFile, TmpFrame, '17' );
    597. 

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

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

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

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

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

  602.   252                  (*"Cannot put record in file" message*)
    603. 

  603.   253              ELSE
    604. 

  604.   254                EntryFrame^.FrameChanged := FALSE;
    605. 

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

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

  607.   255                ControlUtils.RdShwAndCntrlConst( ScreenFile, TmpFrame, '15' );
    608. 

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

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

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

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

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

  613.   256                  (*"Record successfully added" message*)
    614. 

  614.   257              END;
    615. 

  615.   258            ELSE
    616. 

  616.   259              ControlUtils.RdShwAndCntrlConst( ScreenFile, TmpFrame, '17' );
    617. 

  617. *****              ^ not supported yet
    618. 

  618. *****                           ^ not supported yet
    619. 

  619. *****                                               ^ not supported yet
    620. 

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

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

  622.   260            END;
    623. 

  623.   261          ELSIF ch = 'D' THEN
    624. 

  624.   262            (*Delete*)
    625. 

  625.   263            ControlUtils.ReadInput( EntryFrame, RecName, 'name');
    626. 

  626. *****            ^ not supported yet
    627. 

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

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

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

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

  631.   264            IF MsgBox2.MsgOkay( TmpFrame, VWindows.SE,
    632. 

  632. *****               ^ not supported yet
    633. 

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

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

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

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

  637.   265                "Preparing to delete record.  Please confirm." ) THEN
    638. 

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

  639.   266              IF NdxFiles.DeleteRecord( NdxFile, RecName) THEN
    640. 

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

  641. *****                          ^ not supported yet
    642. 

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

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

  644.   267                ControlUtils.RdShwAndCntrlConst( ScreenFile, TmpFrame, '14' );
    645. 

  645. *****                ^ not supported yet
    646. 

  646. *****                             ^ not supported yet
    647. 

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

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

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

  650.   268                  (* successfully deleted *)
    651. 

  651.   269              ELSE
    652. 

  652.   270                ControlUtils.RdShwAndCntrlConst( ScreenFile, TmpFrame, '11' );
    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.   271                  (* cannot delete this record *)
    659. 

  659.   272              END;
    660. 

  660.   273            END;
    661. 

  661.   274          ELSIF ch = 'P' THEN
    662. 

  662.   275            (* Print *)
    663. 

  663.   276            PrintMenu();
    664. 

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

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

  666.   277            FramePainter.ShowDisplayFrame( EntryFrame, 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.   278          ELSIF ch = 'E' THEN
    672. 

  672.   279            (*Edit.*)
    673. 

  673.   280            ControlUtils.Control( EntryFrame );
    674. 

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

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

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

  677.   281          END;
    678. 

  678.   282        UNTIL PosUtils.Equal(NextName, '2');
    679. 

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

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

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

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

  683.   283          (*Frame 2 is the Main Menu *)
    684. 

  684.   284        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    685. 

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

  686. *****                 ^ not supported yet
    687. 

  687. *****                                    ^ not supported yet
    688. 

  688.   285      END DoOneRecord;
    689. 

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

  690.   286  
    691. 

  691.   287  
    692. 

  692.   288    PROCEDURE ShowAllRecords( TheList: GenLists.GenList );
    693. 

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

  694.   289      VAR
    695. 

  695.   290        cnt, lngth, TypeCode: CARDINAL;
    696. 

  696.   291        TmpName: NdxTypes.RecNameStr;
    697. 

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

  698.   292        TmpFrame: ScrnTypes.DisplayFrame;
    699. 

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

  700.   293      BEGIN
    701. 

  701.   294        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    702. 

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

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

  704. *****                                    ^ not supported yet
    705. 

  705. *****                                              ^ not supported yet
    706. 

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

  707.   295        ScrnUtl2.ReadAndShow( ScreenFile, TmpFrame, '42' );
    708. 

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

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

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

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

  712. *****                                                    ^ not supported yet
    713. 

  713.   296        (* changes the line at the bottom that explains the special keys *)
    714. 

  714.   297        lngth := GenLists.ListLength( TheList );
    715. 

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

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

  717. *****                                      ^ not supported yet
    718. 

  718.   298        cnt := 1;
    719. 

  719.   299        WHILE (cnt <= lngth) DO
    720. 

  720.   300          GenLists.GetElmt( TheList, cnt, TmpName, TypeCode );
    721. 

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

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

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

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

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

  726.   301          DoOneRecord( TmpName );
    727. 

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

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

  729.   302          INC(cnt);
    730. 

  730. *****          ^ undeclared identifier
    731. 

  731. *****                 ^ not supported yet
    732. 

  732.   303        END;
    733. 

  733.   304        ScrnUtl2.ReadAndShow( ScreenFile, TmpFrame, '1' );
    734. 

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

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

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

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

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

  739.   305        (* resets the bottom line explaining the special keys *)
    740. 

  740.   306        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    741. 

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

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

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

  744.   307      END ShowAllRecords;
    745. 

  745. *****          ^ not supported yet
    746. 

  746.   308  
    747. 

  747.   309  
    748. 

  748.   310    PROCEDURE ProcessRecord();
    749. 

  749.   311      VAR
    750. 

  750.   312        spot, dumc, LandingField, KeyHit: CARDINAL;
    751. 

  751.   313        done: BOOLEAN;
    752. 

  752.   314        NdxRec: NdxTypes.NdxElement;
    753. 

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

  754.   315        NextFrame: ScrnTypes.AFrameName;
    755. 

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

  756.   316        TmpFrame: ScrnTypes.DisplayFrame;
    757. 

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

  758.   317      BEGIN
    759. 

  759.   318        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    760. 

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

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

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

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

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

  765.   319        RecName := '';
    766. 

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

  767. *****                   ^ incompatible assignment
    768. 

  768.   320        REPEAT
    769. 

  769.   321          NextFrame := '4'; (*the record selection form*)
    770. 

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

  771.   322          DspFiles.ReadDisplayFrame( ScreenFile, TmpFrame, NextFrame );
    772. 

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

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

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

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

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

  777.   323          REPEAT
    778. 

  778.   324            ControlUtils.ChangeField( TmpFrame, RecName, 'name', TRUE );
    779. 

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

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

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

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

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

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

  785.   325            FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    786. 

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

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

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

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

  790.   326            LandingField := 0;
    791. 

  791.   327            InputManager.ControlFrame( TmpFrame,
    792. 

  792. *****            ^ not supported yet
    793. 

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

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

  795.   328                LandingField, '', FALSE, NextFrame );
    796. 

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

  797.   329            IF NOT PosUtils.Equal( NextFrame, TmpFrame^.normlnext ) THEN
    798. 

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

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

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

  801. *****                                              ^ not supported yet
    802. 

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

  803.   330              ScrnUtl2.CloseDisplayFrame( TmpFrame );
    804. 

  804. *****              ^ not supported yet
    805. 

  805. *****                       ^ not supported yet
    806. 

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

  807.   331              RETURN;
    808. 

  808.   332            END;
    809. 

  809.   333            ControlUtils.ReadInput( TmpFrame, RecName, 'name');
    810. 

  810. *****            ^ not supported yet
    811. 

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

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

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

  814. *****                                                       ^ not supported yet
    815. 

  815.   334            done := NdxFiles.RecordExists( NdxFile, RecName);
    816. 

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

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

  818. *****                                           ^ not supported yet
    819. 

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

  820.   335            IF NOT done THEN
    821. 

  821.   336              done := MsgBox2.MsgOkay( TmpFrame, VWindows.SE,
    822. 

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

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

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

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

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

  827.   337                  "Record not found.  Preparing to create it.  Please confirm." );
    828. 

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

  829.   338            END;
    830. 

  830.   339            IF NOT done THEN
    831. 

  831.   340              IF MsgBox2.MsgOkay( TmpFrame, VWindows.SE,
    832. 

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

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

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

  835. *****                                            ^ not supported yet
    836. 

  836. *****                                                     ^ not supported yet
    837. 

  837.   341                  "Search for a name in which this pattern appears?" ) THEN
    838. 

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

  839.   342                StrEdit.CrunchBlanks( RecName );
    840. 

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

  841. *****                        ^ not supported yet
    842. 

  842. *****                                      ^ not supported yet
    843. 

  843.   343                spot := GenLists.ScanList( RecName, NdxFile^.Ndx,
    844. 

  844. *****                        ^ not supported yet
    845. 

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

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

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

  848. *****                                                             ^ not supported yet
    849. 

  849.   344                    1, 65535, dumc );
    850. 

  850. *****                                   ^ not supported yet
    851. 

  851.   345                IF spot > 0 THEN
    852. 

  852.   346                  GenLists.GetElmt( NdxFile^.Ndx, spot, NdxRec, dumc );
    853. 

  853. *****                  ^ not supported yet
    854. 

  854. *****                           ^ not supported yet
    855. 

  855. *****                                    ^ not supported yet
    856. 

  856. *****                                             ^ not supported yet
    857. 

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

  858. *****                                                                     ^ not supported yet
    859. 

  859.   347                  M2Strings.Assign( NdxRec.RecName, RecName );
    860. 

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

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

  862. *****                                    ^ not supported yet
    863. 

  863. *****                                           ^ not supported yet
    864. 

  864. *****                                                    ^ not supported yet
    865. 

  865.   348                ELSE
    866. 

  866.   349                  RecName := '';
    867. 

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

  868. *****                             ^ incompatible assignment
    869. 

  869.   350                END;
    870. 

  870.   351              END;
    871. 

  871.   352            END;
    872. 

  872.   353          UNTIL done;
    873. 

  873.   354          DoOneRecord( RecName );
    874. 

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

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

  876.   355        UNTIL NOT PosUtils.Equal( NextFrame, '4' );
    877. 

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

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

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

  880. *****                                                 ^ not supported yet
    881. 

  881.   356        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    882. 

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

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

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

  885.   357      END ProcessRecord;
    886. 

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

  887.   358  
    888. 

  888.   359  
    889. 

  889.   360    PROCEDURE StoreList( TheList: GenLists.GenList );
    890. 

  890. *****                                           ^ not supported yet
    891. 

  891.   361      VAR
    892. 

  892.   362        ListName: ARRAY [0..79] OF CHAR;
    893. 

  893. *****                            ^ not supported yet
    894. 

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

  895.   363        TmpList: GenLists.GenList;
    896. 

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

  897.   364        NextFrame: ScrnTypes.AFrameName;
    898. 

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

  899.   365        TmpFrame: ScrnTypes.DisplayFrame;
    900. 

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

  901.   366      BEGIN
    902. 

  902.   367        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    903. 

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

  904. *****                  ^ not supported yet
    905. 

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

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

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

  908.   368        NextFrame := '20';
    909. 

  909. *****        ^ not supported yet
    910. 

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

  911.   369          (*List Storage Form*)
    912. 

  912.   370        DspFiles.ReadDisplayFrame( ScreenFile, TmpFrame,
    913. 

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

  914. *****                 ^ not supported yet
    915. 

  915. *****                                   ^ not supported yet
    916. 

  916. *****                                               ^ not supported yet
    917. 

  917.   371            NextFrame );
    918. 

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

  919.   372        IF NOT (0 # ScrnUtl1.FieldNum( TmpFrame, 'list' )) THEN
    920. 

  920. *****                    ^ not supported yet
    921. 

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

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

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

  924.   373          (*Find the editor field.*)
    925. 

  925.   374          HALT();
    926. 

  926. *****          ^ undeclared identifier
    927. 

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

  928.   375        END;
    929. 

  929.   376        IF NOT ScrnUtl1.ListToEdField( TheList, TmpFrame,
    930. 

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

  931. *****                        ^ not supported yet
    932. 

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

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

  934.   377            TmpFrame^.CurrentField ) THEN
    935. 

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

  936. *****                      ^ not supported yet
    937. 

  937.   378          (*Put the list created in BuildList into the editor
    938. 

  938.   379            field.*)
    939. 

  939.   380          HALT();
    940. 

  940. *****          ^ undeclared identifier
    941. 

  941. *****               ^ not supported yet
    942. 

  942.   381        END;
    943. 

  943.   382        StrConv.CardinalToStr( GenLists.ListLength( TheList), 0, ListName);
    944. 

  944. *****        ^ not supported yet
    945. 

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

  946. *****                               ^ not supported yet
    947. 

  947. *****                                        ^ not supported yet
    948. 

  948. *****                                                    ^ not supported yet
    949. 

  949. *****                                                                 ^ not supported yet
    950. 

  950.   383        StrEdit.Append( ListName, '.');
    951. 

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

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

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

  954. *****                                     ^ not supported yet
    955. 

  955.   384        ControlUtils.ChangeField( TmpFrame, ListName, 'size', FALSE);
    956. 

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

  957. *****                     ^ not supported yet
    958. 

  958. *****                                  ^ not supported yet
    959. 

  959. *****                                            ^ not supported yet
    960. 

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

  961. *****                                                                   ^ not supported yet
    962. 

  962.   385        FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    963. 

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

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

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

  966. *****                                                            ^ not supported yet
    967. 

  967.   386        REPEAT
    968. 

  968.   387          InputManager.ControlFrame( TmpFrame, 0, '', FALSE, NextFrame );
    969. 

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

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

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

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

  973.   388          IF PosUtils.Equal( NextFrame, '999' ) THEN
    974. 

  974. *****             ^ not supported yet
    975. 

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

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

  977. *****                                        ^ not supported yet
    978. 

  978.   389            (*They want to store the list.*)
    979. 

  979.   390            ControlUtils.ReadInput( TmpFrame, ListName, 'name' );
    980. 

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

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

  982. *****                                    ^ not supported yet
    983. 

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

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

  985.   391              (*Get the name they've chosen for the list out of
    986. 

  986.   392                the 'name' field.*)
    987. 

  987.   393            GenLists.CopyList( TheList, TmpList );
    988. 

  988. *****            ^ not supported yet
    989. 

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

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

  991. *****                                        ^ not supported yet
    992. 

  992.   394            IF NOT BuildLst.StoreRecNameList( NdxFile, ListName, TmpList ) THEN
    993. 

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

  994. *****                            ^ not supported yet
    995. 

  995. *****                                              ^ not supported yet
    996. 

  996. *****                                                       ^ not supported yet
    997. 

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

  998.   395              HALT();
    999. 

  999. *****              ^ undeclared identifier
    1000. 

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

  1001.   396            END;
    1002. 

  1002.   397            ScrnUtl2.ShowMessage( ScreenFile, '27' );
    1003. 

  1003. *****            ^ not supported yet
    1004. 

  1004. *****                     ^ not supported yet
    1005. 

  1005. *****                                  ^ not supported yet
    1006. 

  1006. *****                                              ^ not supported yet
    1007. 

  1007.   398              (*Says store successful; waits for any key.*)
    1008. 

  1008.   399            ScrnUtl2.CloseDisplayFrame( TmpFrame );
    1009. 

  1009. *****            ^ not supported yet
    1010. 

  1010. *****                     ^ not supported yet
    1011. 

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

  1012.   400            RETURN;
    1013. 

  1013.   401          END;
    1014. 

  1014.   402        UNTIL PosUtils.Equal( NextFrame, '21' );
    1015. 

  1015. *****              ^ not supported yet
    1016. 

  1016. *****                       ^ not supported yet
    1017. 

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

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

  1019.   403        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    1020. 

  1020. *****        ^ not supported yet
    1021. 

  1021. *****                 ^ not supported yet
    1022. 

  1022. *****                                    ^ not supported yet
    1023. 

  1023.   404      END StoreList;
    1024. 

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

  1025.   405  
    1026. 

  1026.   406  
    1027. 

  1027.   407    PROCEDURE SearchFile();
    1028. 

  1028.   408      VAR
    1029. 

  1029.   409        ListMade: GenLists.GenList;
    1030. 

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

  1031.   410        ErrorField: CARDINAL;
    1032. 

  1032.   411        message, LimitingList: ARRAY [0..79] OF CHAR;
    1033. 

  1033. *****                                         ^ not supported yet
    1034. 

  1034. *****                                                ^ not supported yet
    1035. 

  1035.   412        dumbool: BOOLEAN;
    1036. 

  1036.   413        NextFrame: ScrnTypes.AFrameName;
    1037. 

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

  1038.   414        MsgFrame, TmpFrame: ScrnTypes.DisplayFrame;
    1039. 

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

  1040.   415  
    1041. 

  1041.   416      BEGIN (*SearchFile*)
    1042. 

  1042.   417        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    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.   418        LOOP
    1049. 

  1049.   419          StrEdit.AssignStr( '', message );
    1050. 

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

  1051. *****                  ^ not supported yet
    1052. 

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

  1053.   420          ErrorField := 0;
    1054. 

  1054.   421          NextFrame := '21'; (*The List Building form*)
    1055. 

  1055. *****          ^ not supported yet
    1056. 

  1056. *****                       ^ not supported yet
    1057. 

  1057.   422          ScrnUtl2.ReadAndShow( ScreenFile, TmpFrame, NextFrame );
    1058. 

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

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

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

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

  1062. *****                                                      ^ not supported yet
    1063. 

  1063.   423          REPEAT
    1064. 

  1064.   424            InputManager.ControlFrame( TmpFrame, ErrorField,
    1065. 

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

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

  1067. *****                                       ^ not supported yet
    1068. 

  1068.   425                message, FALSE, NextFrame );
    1069. 

  1069. *****                ^ not supported yet
    1070. 

  1070. *****                                ^ not supported yet
    1071. 

  1071.   426            ErrorField := 0;
    1072. 

  1072.   427              (*Reset ErrorField and message so they'll signal an
    1073. 

  1073.   428                error on the next loop only if there's really been
    1074. 

  1074.   429                an error.*)
    1075. 

  1075.   430            StrEdit.AssignStr( '', message );
    1076. 

  1076. *****            ^ not supported yet
    1077. 

  1077. *****                    ^ not supported yet
    1078. 

  1078. *****                                   ^ not supported yet
    1079. 

  1079.   431            IF NOT PosUtils.Equal( NextFrame, TmpFrame^.normlnext ) THEN
    1080. 

  1080. *****                   ^ not supported yet
    1081. 

  1081. *****                            ^ not supported yet
    1082. 

  1082. *****                                   ^ not supported yet
    1083. 

  1083. *****                                              ^ not supported yet
    1084. 

  1084. *****                                                        ^ not supported yet
    1085. 

  1085.   432              (*exit if they press the backup or program-exit
    1086. 

  1086.   433                keys.*)
    1087. 

  1087.   434              EXIT;
    1088. 

  1088.   435            END;
    1089. 

  1089.   436            IF NOT ScrnUtl1.FieldIsBlank( TmpFrame,
    1090. 

  1090. *****                   ^ not supported yet
    1091. 

  1091. *****                            ^ not supported yet
    1092. 

  1092. *****                                          ^ not supported yet
    1093. 

  1093.   437                'listname', ErrorField) THEN
    1094. 

  1094. *****                ^ not supported yet
    1095. 

  1095. *****                                      ^ not supported yet
    1096. 

  1096.   438              ControlUtils.ReadInput( TmpFrame, LimitingList, 'listname' );
    1097. 

  1097. *****              ^ not supported yet
    1098. 

  1098. *****                           ^ not supported yet
    1099. 

  1099. *****                                      ^ not supported yet
    1100. 

  1100. *****                                                ^ not supported yet
    1101. 

  1101. *****                                                              ^ not supported yet
    1102. 

  1102.   439                (*Get the name of the list they've chosen to use
    1103. 

  1103.   440                  out of the 'name' field.*)
    1104. 

  1104.   441            ELSE
    1105. 

  1105.   442              StrEdit.AssignStr( '', LimitingList );
    1106. 

  1106. *****              ^ not supported yet
    1107. 

  1107. *****                      ^ not supported yet
    1108. 

  1108. *****                                     ^ not supported yet
    1109. 

  1109.   443            END;
    1110. 

  1110.   444            ScrnTypes.InitDisplayFrame( MsgFrame, VWindows.CurrentWindow );
    1111. 

  1111. *****            ^ not supported yet
    1112. 

  1112. *****                      ^ not supported yet
    1113. 

  1113. *****                                        ^ not supported yet
    1114. 

  1114. *****                                                  ^ not supported yet
    1115. 

  1115. *****                                                           ^ not supported yet
    1116. 

  1116.   445            ScrnUtl2.ReadAndShow( ScreenFile, MsgFrame, '43' );
    1117. 

  1117. *****            ^ not supported yet
    1118. 

  1118. *****                     ^ not supported yet
    1119. 

  1119. *****                                  ^ not supported yet
    1120. 

  1120. *****                                              ^ not supported yet
    1121. 

  1121. *****                                                        ^ not supported yet
    1122. 

  1122.   446              (*a screen that says list is being created *)
    1123. 

  1123.   447            BuildLst.BuildList( NdxFile, TmpFrame, 1, 13, LimitingList,
    1124. 

  1124. *****            ^ not supported yet
    1125. 

  1125. *****                     ^ not supported yet
    1126. 

  1126. *****                                ^ not supported yet
    1127. 

  1127. *****                                         ^ not supported yet
    1128. 

  1128. *****                                                          ^ not supported yet
    1129. 

  1129.   448                ErrorField, ListMade );
    1130. 

  1130. *****                            ^ not supported yet
    1131. 

  1131.   449            FrameManager.EraseFrame( MsgFrame );
    1132. 

  1132. *****            ^ not supported yet
    1133. 

  1133. *****                         ^ not supported yet
    1134. 

  1134. *****                                     ^ not supported yet
    1135. 

  1135.   450            ScrnUtl2.CloseDisplayFrame( MsgFrame );
    1136. 

  1136. *****            ^ not supported yet
    1137. 

  1137. *****                     ^ not supported yet
    1138. 

  1138. *****                                        ^ not supported yet
    1139. 

  1139.   451            IF ErrorField = 0 THEN
    1140. 

  1140.   452              BuildLst.DeleteListRec( ListMade);
    1141. 

  1141. *****              ^ not supported yet
    1142. 

  1142. *****                       ^ not supported yet
    1143. 

  1143. *****                                      ^ not supported yet
    1144. 

  1144.   453              StoreList( ListMade );
    1145. 

  1145. *****              ^ not supported yet
    1146. 

  1146. *****                         ^ not supported yet
    1147. 

  1147.   454              EXIT;
    1148. 

  1148.   455            ELSE
    1149. 

  1149.   456              StrEdit.AssignStr( "Something's wrong with this field.",
    1150. 

  1150. *****              ^ not supported yet
    1151. 

  1151. *****                      ^ not supported yet
    1152. 

  1152. *****                                 ^ not supported yet
    1153. 

  1153.   457                  message );
    1154. 

  1154. *****                  ^ not supported yet
    1155. 

  1155.   458            END;
    1156. 

  1156.   459          UNTIL ErrorField = 0;
    1157. 

  1157.   460        END;
    1158. 

  1158.   461        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    1159. 

  1159. *****        ^ not supported yet
    1160. 

  1160. *****                 ^ not supported yet
    1161. 

  1161. *****                                    ^ not supported yet
    1162. 

  1162.   462      END SearchFile;
    1163. 

  1163. *****          ^ not supported yet
    1164. 

  1164.   463  
    1165. 

  1165.   464  
    1166. 

  1166.   465    PROCEDURE ManageLists();
    1167. 

  1167.   466      VAR
    1168. 

  1168.   467        TmpList: GenLists.GenList;
    1169. 

  1169. *****                          ^ not supported yet
    1170. 

  1170.   468        LastListName : ARRAY [0..79] OF CHAR;
    1171. 

  1171. *****                                 ^ not supported yet
    1172. 

  1172. *****                                        ^ not supported yet
    1173. 

  1173.   469        NextFrame: ScrnTypes.AFrameName;
    1174. 

  1174. *****                             ^ not supported yet
    1175. 

  1175.   470        TmpFrame: ScrnTypes.DisplayFrame;
    1176. 

  1176. *****                            ^ not supported yet
    1177. 

  1177.   471      BEGIN
    1178. 

  1178.   472        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    1179. 

  1179. *****        ^ not supported yet
    1180. 

  1180. *****                  ^ not supported yet
    1181. 

  1181. *****                                    ^ not supported yet
    1182. 

  1182. *****                                              ^ not supported yet
    1183. 

  1183. *****                                                       ^ not supported yet
    1184. 

  1184.   473        LastListName[0] := 0C;
    1185. 

  1185. *****        ^ not supported yet
    1186. 

  1186. *****                      ^ not supported yet
    1187. 

  1187.   474        LOOP
    1188. 

  1188.   475          NextFrame := '29'; (*The main list management menu.*)
    1189. 

  1189. *****          ^ not supported yet
    1190. 

  1190. *****                       ^ not supported yet
    1191. 

  1191.   476          ControlUtils.ReadShowAndCntrl( ScreenFile, TmpFrame, NextFrame );
    1192. 

  1192. *****          ^ not supported yet
    1193. 

  1193. *****                       ^ not supported yet
    1194. 

  1194. *****                                         ^ not supported yet
    1195. 

  1195. *****                                                     ^ not supported yet
    1196. 

  1196. *****                                                               ^ not supported yet
    1197. 

  1197.   477          IF PosUtils.Equal( NextFrame, TmpFrame^.parent ) THEN
    1198. 

  1198. *****             ^ not supported yet
    1199. 

  1199. *****                      ^ not supported yet
    1200. 

  1200. *****                             ^ not supported yet
    1201. 

  1201. *****                                        ^ not supported yet
    1202. 

  1202. *****                                                  ^ not supported yet
    1203. 

  1203.   478            EXIT;
    1204. 

  1204.   479          END;
    1205. 

  1205.   480          CASE ScrnUtl1.SelectedChar(TmpFrame) OF
    1206. 

  1206. *****               ^ not supported yet
    1207. 

  1207. *****                        ^ not supported yet
    1208. 

  1208. *****                                     ^ not supported yet
    1209. 

  1209.   481            'M': (*Make a new list.*)
    1210. 

  1210.   482              SearchFile();
    1211. 

  1211. *****              ^ not supported yet
    1212. 

  1212. *****                         ^ not supported yet
    1213. 

  1213.   483          | 'D': (*Delete a list.*)
    1214. 

  1214.   484              IF ControlUtils.GetStrResponse( ScreenFile,
    1215. 

  1215. *****                 ^ not supported yet
    1216. 

  1216. *****                              ^ not supported yet
    1217. 

  1217. *****                                              ^ not supported yet
    1218. 

  1218.   485                  '30', LastListName, LastListName ) THEN
    1219. 

  1219. *****                  ^ not supported yet
    1220. 

  1220. *****                        ^ not supported yet
    1221. 

  1221. *****                                      ^ not supported yet
    1222. 

  1222.   486                (* if they didn't try to back up or exit *)
    1223. 

  1223.   487                IF BuildLst.DelRecNameList( NdxFile,
    1224. 

  1224. *****                   ^ not supported yet
    1225. 

  1225. *****                            ^ not supported yet
    1226. 

  1226. *****                                            ^ not supported yet
    1227. 

  1227.   488                    LastListName ) THEN
    1228. 

  1228. *****                    ^ not supported yet
    1229. 

  1229.   489                  ScrnUtl2.ShowMessage( ScreenFile, '34' );
    1230. 

  1230. *****                  ^ not supported yet
    1231. 

  1231. *****                           ^ not supported yet
    1232. 

  1232. *****                                        ^ not supported yet
    1233. 

  1233. *****                                                    ^ not supported yet
    1234. 

  1234.   490                    (*Says the list was successfully deleted.*)
    1235. 

  1235.   491                ELSE
    1236. 

  1236.   492                  ScrnUtl2.ShowMessage( ScreenFile, '35' );
    1237. 

  1237. *****                  ^ not supported yet
    1238. 

  1238. *****                           ^ not supported yet
    1239. 

  1239. *****                                        ^ not supported yet
    1240. 

  1240. *****                                                    ^ not supported yet
    1241. 

  1241.   493                    (*Says no such list stored; waits for any key.*)
    1242. 

  1242.   494                END;
    1243. 

  1243.   495              END;
    1244. 

  1244.   496          | 'S': (*Show lists.*)
    1245. 

  1245.   497              IF BuildLst.GetListNames( NdxFile, TmpList ) AND
    1246. 

  1246. *****                 ^ not supported yet
    1247. 

  1247. *****                          ^ not supported yet
    1248. 

  1248. *****                                        ^ not supported yet
    1249. 

  1249. *****                                                 ^ not supported yet
    1250. 

  1250.   498                 (GenLists.ListLength( TmpList) # 0) THEN
    1251. 

  1251. *****                  ^ not supported yet
    1252. 

  1252. *****                           ^ not supported yet
    1253. 

  1253. *****                                       ^ not supported yet
    1254. 

  1254.   499                IF NOT ControlUtils.ListBox( ScreenFile, '31',
    1255. 

  1255. *****                       ^ not supported yet
    1256. 

  1256. *****                                    ^ not supported yet
    1257. 

  1257. *****                                             ^ not supported yet
    1258. 

  1258. *****                                                         ^ not supported yet
    1259. 

  1259.   500                    TmpList, LastListName, NextFrame ) THEN
    1260. 

  1260. *****                    ^ not supported yet
    1261. 

  1261. *****                             ^ not supported yet
    1262. 

  1262. *****                                           ^ not supported yet
    1263. 

  1263.   501                  (* We don't care if they press Esc here. *)
    1264. 

  1264.   502                END;
    1265. 

  1265.   503              ELSE
    1266. 

  1266.   504                ScrnUtl2.ShowMessage( ScreenFile, '35' );
    1267. 

  1267. *****                ^ not supported yet
    1268. 

  1268. *****                         ^ not supported yet
    1269. 

  1269. *****                                      ^ not supported yet
    1270. 

  1270. *****                                                  ^ not supported yet
    1271. 

  1271.   505                (*Says no such list stored and waits for a key.*)
    1272. 

  1272.   506              END;
    1273. 

  1273.   507          | 'E': (*Edit a list.*)
    1274. 

  1274.   508              IF ControlUtils.GetStrResponse( ScreenFile,
    1275. 

  1275. *****                 ^ not supported yet
    1276. 

  1276. *****                              ^ not supported yet
    1277. 

  1277. *****                                              ^ not supported yet
    1278. 

  1278.   509                  '32', LastListName, LastListName ) THEN
    1279. 

  1279. *****                  ^ not supported yet
    1280. 

  1280. *****                        ^ not supported yet
    1281. 

  1281. *****                                      ^ not supported yet
    1282. 

  1282.   510                (* if they didn't try to back up or exit *)
    1283. 

  1283.   511                IF BuildLst.GetRecNameList( NdxFile,
    1284. 

  1284. *****                   ^ not supported yet
    1285. 

  1285. *****                            ^ not supported yet
    1286. 

  1286. *****                                            ^ not supported yet
    1287. 

  1287.   512                    LastListName, TmpList ) THEN
    1288. 

  1288. *****                    ^ not supported yet
    1289. 

  1289. *****                                  ^ not supported yet
    1290. 

  1290.   513                  StoreList( TmpList );
    1291. 

  1291. *****                  ^ not supported yet
    1292. 

  1292. *****                             ^ not supported yet
    1293. 

  1293.   514                ELSE
    1294. 

  1294.   515                  ScrnUtl2.ShowMessage( ScreenFile, '35' );
    1295. 

  1295. *****                  ^ not supported yet
    1296. 

  1296. *****                           ^ not supported yet
    1297. 

  1297. *****                                        ^ not supported yet
    1298. 

  1298. *****                                                    ^ not supported yet
    1299. 

  1299.   516                    (*Says no such list stored; waits for any key.*)
    1300. 

  1300.   517                END;
    1301. 

  1301.   518              END;
    1302. 

  1302.   519          | 'A': (*Examine list of All records.*)
    1303. 

  1303.   520              NdxUtils.GetRecNames( NdxFile, TmpList );
    1304. 

  1304. *****              ^ not supported yet
    1305. 

  1305. *****                       ^ not supported yet
    1306. 

  1306. *****                                    ^ not supported yet
    1307. 

  1307. *****                                             ^ not supported yet
    1308. 

  1308.   521              StoreList( TmpList );
    1309. 

  1309. *****              ^ not supported yet
    1310. 

  1310. *****                         ^ not supported yet
    1311. 

  1311.   522          | 'R': (*Retrieve listed records.*)
    1312. 

  1312.   523              IF ControlUtils.GetStrResponse( ScreenFile,
    1313. 

  1313. *****                 ^ not supported yet
    1314. 

  1314. *****                              ^ not supported yet
    1315. 

  1315. *****                                              ^ not supported yet
    1316. 

  1316.   524                  '33', LastListName, LastListName ) THEN
    1317. 

  1317. *****                  ^ not supported yet
    1318. 

  1318. *****                        ^ not supported yet
    1319. 

  1319. *****                                      ^ not supported yet
    1320. 

  1320.   525                (* if they didn't try to back up or exit *)
    1321. 

  1321.   526                IF BuildLst.GetRecNameList( NdxFile,
    1322. 

  1322. *****                   ^ not supported yet
    1323. 

  1323. *****                            ^ not supported yet
    1324. 

  1324. *****                                            ^ not supported yet
    1325. 

  1325.   527                    LastListName, TmpList ) THEN
    1326. 

  1326. *****                    ^ not supported yet
    1327. 

  1327. *****                                  ^ not supported yet
    1328. 

  1328.   528                  ShowAllRecords( TmpList );
    1329. 

  1329. *****                  ^ not supported yet
    1330. 

  1330. *****                                  ^ not supported yet
    1331. 

  1331.   529                  NextFrame := '29'; (* The main list management menu. *)
    1332. 

  1332. *****                  ^ not supported yet
    1333. 

  1333. *****                               ^ not supported yet
    1334. 

  1334.   530                ELSE
    1335. 

  1335.   531                  ScrnUtl2.ShowMessage( ScreenFile, '35' );
    1336. 

  1336. *****                  ^ not supported yet
    1337. 

  1337. *****                           ^ not supported yet
    1338. 

  1338. *****                                        ^ not supported yet
    1339. 

  1339. *****                                                    ^ not supported yet
    1340. 

  1340.   532                    (*Says no such list stored; waits for any key.*)
    1341. 

  1341.   533                END;
    1342. 

  1342.   534              END;
    1343. 

  1343.   535          ELSE
    1344. 

  1344.   536          END;
    1345. 

  1345.   537        END;
    1346. 

  1346.   538        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    1347. 

  1347. *****        ^ not supported yet
    1348. 

  1348. *****                 ^ not supported yet
    1349. 

  1349. *****                                    ^ not supported yet
    1350. 

  1350.   539      END ManageLists;
    1351. 

  1351. *****          ^ not supported yet
    1352. 

  1352.   540  
    1353. 

  1353.   541  
    1354. 

  1354.   542  
    1355. 

  1355.   543    PROCEDURE ErrorOpeningFile( ErrMsg: CARDINAL;
    1356. 

  1356.   544        ErrText, fname: ARRAY OF CHAR );
    1357. 

  1357. *****                                 ^ not supported yet
    1358. 

  1358.   545      VAR
    1359. 

  1359.   546        TmpStr1: ARRAY [0..149] OF CHAR;
    1360. 

  1360. *****                           ^ not supported yet
    1361. 

  1361. *****                                   ^ not supported yet
    1362. 

  1362.   547        TmpStr2: ARRAY [0..59] OF CHAR;
    1363. 

  1363. *****                           ^ not supported yet
    1364. 

  1364. *****                                  ^ not supported yet
    1365. 

  1365.   548        KeyHit: CARDINAL;
    1366. 

  1366.   549      BEGIN
    1367. 

  1367.   550        StrEdit.AssignStr( "Error in opening '", TmpStr1 );
    1368. 

  1368. *****        ^ not supported yet
    1369. 

  1369. *****                ^ not supported yet
    1370. 

  1370. *****                           ^ not supported yet
    1371. 

  1371. *****                                                 ^ not supported yet
    1372. 

  1372.   551        StrEdit.Append( TmpStr1, fname );
    1373. 

  1373. *****        ^ not supported yet
    1374. 

  1374. *****                ^ not supported yet
    1375. 

  1375. *****                        ^ not supported yet
    1376. 

  1376. *****                                 ^ not supported yet
    1377. 

  1377.   552        StrEdit.Append( TmpStr1, "':  " );
    1378. 

  1378. *****        ^ not supported yet
    1379. 

  1379. *****                ^ not supported yet
    1380. 

  1380. *****                        ^ not supported yet
    1381. 

  1381. *****                                 ^ not supported yet
    1382. 

  1382.   553        IF ErrMsg # StringIO.MissingMessage THEN
    1383. 

  1383. *****                    ^ not supported yet
    1384. 

  1384. *****                             ^ not supported yet
    1385. 

  1385.   554          ErrStrgs.NumToStr( ErrMsg, TmpStr2 );
    1386. 

  1386. *****          ^ not supported yet
    1387. 

  1387. *****                   ^ not supported yet
    1388. 

  1388. *****                                     ^ not supported yet
    1389. 

  1389.   555          StrEdit.Append( TmpStr1, TmpStr2 );
    1390. 

  1390. *****          ^ not supported yet
    1391. 

  1391. *****                  ^ not supported yet
    1392. 

  1392. *****                          ^ not supported yet
    1393. 

  1393. *****                                   ^ not supported yet
    1394. 

  1394.   556        ELSE
    1395. 

  1395.   557          StrEdit.Append( TmpStr1, ErrText);
    1396. 

  1396. *****          ^ not supported yet
    1397. 

  1397. *****                  ^ not supported yet
    1398. 

  1398. *****                          ^ not supported yet
    1399. 

  1399. *****                                   ^ not supported yet
    1400. 

  1400.   558        END;
    1401. 

  1401.   559        StrEdit.Append( TmpStr1, "  Press any key." );
    1402. 

  1402. *****        ^ not supported yet
    1403. 

  1403. *****                ^ not supported yet
    1404. 

  1404. *****                        ^ not supported yet
    1405. 

  1405. *****                                 ^ not supported yet
    1406. 

  1406.   560        WindowPrims.MsgBox( VWindows.SE, TmpStr1, KbdInput.AnyKeyNum, KeyHit );
    1407. 

  1407. *****        ^ not supported yet
    1408. 

  1408. *****                    ^ not supported yet
    1409. 

  1409. *****                            ^ not supported yet
    1410. 

  1410. *****                                     ^ not supported yet
    1411. 

  1411. *****                                         ^ not supported yet
    1412. 

  1412. *****                                                  ^ not supported yet
    1413. 

  1413. *****                                                           ^ not supported yet
    1414. 

  1414. *****                                                                             ^ not supported yet
    1415. 

  1415.   561      END ErrorOpeningFile;
    1416. 

  1416. *****          ^ not supported yet
    1417. 

  1417.   562  
    1418. 

  1418.   563  
    1419. 

  1419.   564    PROCEDURE NotPmiFile( fname: ARRAY OF CHAR): BOOLEAN;
    1420. 

  1420. *****                                          ^ not supported yet
    1421. 

  1421.   565      BEGIN
    1422. 

  1422.   566        RETURN NOT PosUtils.Present( 'pmidbms', fname);
    1423. 

  1423. *****                   ^ not supported yet
    1424. 

  1424. *****                            ^ not supported yet
    1425. 

  1425. *****                                     ^ not supported yet
    1426. 

  1426. *****                                                ^ not supported yet
    1427. 

  1427.   567      END NotPmiFile;
    1428. 

  1428. *****          ^ not supported yet
    1429. 

  1429.   568  
    1430. 

  1430.   569  
    1431. 

  1431.   570    PROCEDURE ExportRecords( NdxFile: NdxTypes.NdxFileType; VAR NextFrame:
    1432. 

  1432. *****                                               ^ not supported yet
    1433. 

  1433.   571        ScrnTypes.AFrameName; ScreenFile: ScrnTypes.DisplayFile);
    1434. 

  1434. *****                  ^ not supported yet
    1435. 

  1435. *****                                                    ^ not supported yet
    1436. 

  1436.   572  
    1437. 

  1437.   573      VAR
    1438. 

  1438.   574        TmpFrame: ScrnTypes.DisplayFrame;
    1439. 

  1439. *****                            ^ not supported yet
    1440. 

  1440.   575  
    1441. 

  1441.   576  
    1442. 

  1442.   577      PROCEDURE ExportToNdxFile( NdxF1: NdxTypes.NdxFileType; RecNameList,
    1443. 

  1443. *****                                                 ^ not supported yet
    1444. 

  1444.   578          MatchingFields: GenLists.GenList; NdxF2: NdxTypes.NdxFileType );
    1445. 

  1445. *****                                   ^ not supported yet
    1446. 

  1446. *****                                                            ^ not supported yet
    1447. 

  1447.   579  
    1448. 

  1448.   580        VAR
    1449. 

  1449.   581          SearchingAll: BOOLEAN;
    1450. 

  1450.   582          TypeCode, lngth1, cnt: CARDINAL;
    1451. 

  1451.   583          TmpStr: NdxTypes.RecNameStr;
    1452. 

  1452. *****                           ^ not supported yet
    1453. 

  1453.   584          TmpNdxRec: NdxTypes.NdxElement;
    1454. 

  1454. *****                              ^ not supported yet
    1455. 

  1455.   585  
    1456. 

  1456.   586        BEGIN (* ExportToNdxFile *)
    1457. 

  1457.   587          lngth1 := GenLists.ListLength( RecNameList );
    1458. 

  1458. *****                    ^ not supported yet
    1459. 

  1459. *****                             ^ not supported yet
    1460. 

  1460. *****                                         ^ not supported yet
    1461. 

  1461.   588          IF lngth1 = 0 THEN
    1462. 

  1462.   589            SearchingAll := TRUE;
    1463. 

  1463.   590            lngth1 := GenLists.ListLength( NdxF1^.Ndx );
    1464. 

  1464. *****                      ^ not supported yet
    1465. 

  1465. *****                               ^ not supported yet
    1466. 

  1466. *****                                           ^ not supported yet
    1467. 

  1467. *****                                                  ^ not supported yet
    1468. 

  1468.   591          ELSE
    1469. 

  1469.   592            SearchingAll := FALSE;
    1470. 

  1470.   593          END;
    1471. 

  1471.   594          ScrnUtl2.ReadAndShow( ScreenFile, TmpFrame, '38' );
    1472. 

  1472. *****          ^ not supported yet
    1473. 

  1473. *****                   ^ not supported yet
    1474. 

  1474. *****                                ^ not supported yet
    1475. 

  1475. *****                                            ^ not supported yet
    1476. 

  1476. *****                                                      ^ not supported yet
    1477. 

  1477.   595          FOR cnt := 1 TO lngth1 DO
    1478. 

  1478.   596            IF SearchingAll THEN
    1479. 

  1479.   597              GenLists.GetElmt( NdxF1^.Ndx, cnt, TmpNdxRec, TypeCode );
    1480. 

  1480. *****              ^ not supported yet
    1481. 

  1481. *****                       ^ not supported yet
    1482. 

  1482. *****                                ^ not supported yet
    1483. 

  1483. *****                                       ^ not supported yet
    1484. 

  1484. *****                                                 ^ not supported yet
    1485. 

  1485. *****                                                                     ^ not supported yet
    1486. 

  1486.   598              StrEdit.AssignStr( TmpNdxRec.RecName, TmpStr );
    1487. 

  1487. *****              ^ not supported yet
    1488. 

  1488. *****                      ^ not supported yet
    1489. 

  1489. *****                                 ^ not supported yet
    1490. 

  1490. *****                                           ^ not supported yet
    1491. 

  1491. *****                                                    ^ not supported yet
    1492. 

  1492.   599            ELSE
    1493. 

  1493.   600              GenLists.GetElmt( RecNameList, cnt, TmpStr, TypeCode );
    1494. 

  1494. *****              ^ not supported yet
    1495. 

  1495. *****                       ^ not supported yet
    1496. 

  1496. *****                                ^ not supported yet
    1497. 

  1497. *****                                                  ^ not supported yet
    1498. 

  1498. *****                                                                   ^ not supported yet
    1499. 

  1499.   601                (*Put the cnt'th record name in TmpStr.*)
    1500. 

  1500.   602            END;
    1501. 

  1501.   603            IF (M2Strings.Length( TmpStr ) > 0) AND
    1502. 

  1502. *****                ^ not supported yet
    1503. 

  1503. *****                          ^ not supported yet
    1504. 

  1504. *****                                  ^ not supported yet
    1505. 

  1505.   604               (0 # M2Strings.CompareStr( TmpStr, BuildLst.ListStorageRec)) THEN
    1506. 

  1506. *****                    ^ not supported yet
    1507. 

  1507. *****                              ^ not supported yet
    1508. 

  1508. *****                                          ^ not supported yet
    1509. 

  1509. *****                                                  ^ not supported yet
    1510. 

  1510. *****                                                           ^ not supported yet
    1511. 

  1511.   605               (* don't export the special record of list names *)
    1512. 

  1512.   606              NdxUtils.CopyMatchingFields( NdxF1, NdxF2, TmpStr, MatchingFields );
    1513. 

  1513. *****              ^ not supported yet
    1514. 

  1514. *****                       ^ not supported yet
    1515. 

  1515. *****                                           ^ not supported yet
    1516. 

  1516. *****                                                  ^ not supported yet
    1517. 

  1517. *****                                                         ^ not supported yet
    1518. 

  1518. *****                                                                 ^ not supported yet
    1519. 

  1519.   607            END;
    1520. 

  1520.   608          END;
    1521. 

  1521.   609        END ExportToNdxFile;
    1522. 

  1522. *****            ^ not supported yet
    1523. 

  1523.   610  
    1524. 

  1524.   611      CONST
    1525. 

  1525.   612        FillThisField =
    1526. 

  1526.   613          'Your selection requires completion of this field. Press any key.';
    1527. 

  1527. *****          ^ not supported yet
    1528. 

  1528.   614      VAR
    1529. 

  1529.   615        fname, ListName, TmpStr1, TmpStr2, message: ARRAY [0..79]
    1530. 

  1530. *****                                                              ^ not supported yet
    1531. 

  1531.   616            OF CHAR;
    1532. 

  1532. *****               ^ not supported yet
    1533. 

  1533.   617        MatchingFieldList, RecNameList: GenLists.GenList;
    1534. 

  1534. *****                                                 ^ not supported yet
    1535. 

  1535.   618        DestNdxFile: NdxTypes.NdxFileType;
    1536. 

  1536. *****                              ^ not supported yet
    1537. 

  1537.   619        done: BOOLEAN;
    1538. 

  1538.   620        SavedMessage: CARDINAL;
    1539. 

  1539.   621        TmpFieldRec: ScrnTypes.InputFieldRecord;
    1540. 

  1540. *****                               ^ not supported yet
    1541. 

  1541.   622        ErrField, ExpFile, KeyHit: CARDINAL;
    1542. 

  1542.   623  
    1543. 

  1543.   624      PROCEDURE AllFieldsCorrect( TheFrame: ScrnTypes.DisplayFrame;
    1544. 

  1544. *****                                                      ^ not supported yet
    1545. 

  1545.   625          ReqFieldName: ARRAY OF CHAR; VAR BadFieldNum: CARDINAL;
    1546. 

  1546. *****                                 ^ not supported yet
    1547. 

  1547.   626          VAR message, DestFileName: ARRAY OF CHAR; ListFieldName:
    1548. 

  1548. *****                                              ^ not supported yet
    1549. 

  1549.   627          ARRAY OF CHAR; VAR RecNameList: GenLists.GenList ): BOOLEAN;
    1550. 

  1550. *****                   ^ not supported yet
    1551. 

  1551. *****                                                   ^ not supported yet
    1552. 

  1552.   628        VAR
    1553. 

  1553.   629          ListName: ARRAY [0..79] OF CHAR;
    1554. 

  1554. *****                              ^ not supported yet
    1555. 

  1555. *****                                     ^ not supported yet
    1556. 

  1556.   630          dumbool : BOOLEAN;
    1557. 

  1557.   631        BEGIN
    1558. 

  1558.   632          IF ScrnUtl1.FieldIsBlank( TheFrame, ReqFieldName, BadFieldNum ) THEN
    1559. 

  1559. *****             ^ not supported yet
    1560. 

  1560. *****                      ^ not supported yet
    1561. 

  1561. *****                                    ^ not supported yet
    1562. 

  1562. *****                                              ^ not supported yet
    1563. 

  1563. *****                                                                        ^ not supported yet
    1564. 

  1564.   633            StrEdit.AssignStr( FillThisField, message );
    1565. 

  1565. *****            ^ not supported yet
    1566. 

  1566. *****                    ^ not supported yet
    1567. 

  1567. *****                               ^ not supported yet
    1568. 

  1568. *****                                              ^ not supported yet
    1569. 

  1569.   634            done := FALSE;
    1570. 

  1570.   635          ELSE
    1571. 

  1571.   636            ControlUtils.ReadInput( TheFrame, DestFileName, ReqFieldName );
    1572. 

  1572. *****            ^ not supported yet
    1573. 

  1573. *****                         ^ not supported yet
    1574. 

  1574. *****                                    ^ not supported yet
    1575. 

  1575. *****                                              ^ not supported yet
    1576. 

  1576. *****                                                            ^ not supported yet
    1577. 

  1577.   637            StrEdit.DeleteChar( ' ', DestFileName );
    1578. 

  1578. *****            ^ not supported yet
    1579. 

  1579. *****                    ^ not supported yet
    1580. 

  1580. *****                                     ^ not supported yet
    1581. 

  1581.   638            IF ScrnUtl1.FieldIsBlank( TheFrame, ListFieldName, BadFieldNum ) THEN
    1582. 

  1582. *****               ^ not supported yet
    1583. 

  1583. *****                        ^ not supported yet
    1584. 

  1584. *****                                      ^ not supported yet
    1585. 

  1585. *****                                                ^ not supported yet
    1586. 

  1586. *****                                                                           ^ not supported yet
    1587. 

  1587.   639              StrEdit.AssignStr( FillThisField, message );
    1588. 

  1588. *****              ^ not supported yet
    1589. 

  1589. *****                      ^ not supported yet
    1590. 

  1590. *****                                 ^ not supported yet
    1591. 

  1591. *****                                                ^ not supported yet
    1592. 

  1592.   640              GenLists.NewList( RecNameList );
    1593. 

  1593. *****              ^ not supported yet
    1594. 

  1594. *****                       ^ not supported yet
    1595. 

  1595. *****                                ^ not supported yet
    1596. 

  1596.   641              BadFieldNum := 0;
    1597. 

  1597.   642              done := TRUE;
    1598. 

  1598.   643            ELSE
    1599. 

  1599.   644              ControlUtils.ReadInput( TheFrame, ListName, ListFieldName);
    1600. 

  1600. *****              ^ not supported yet
    1601. 

  1601. *****                           ^ not supported yet
    1602. 

  1602. *****                                      ^ not supported yet
    1603. 

  1603. *****                                                ^ not supported yet
    1604. 

  1604. *****                                                          ^ not supported yet
    1605. 

  1605.   645              IF NOT BuildLst.GetRecNameList( NdxFile, ListName,
    1606. 

  1606. *****                     ^ not supported yet
    1607. 

  1607. *****                              ^ not supported yet
    1608. 

  1608. *****                                              ^ not supported yet
    1609. 

  1609. *****                                                       ^ not supported yet
    1610. 

  1610.   646                  RecNameList ) THEN
    1611. 

  1611. *****                  ^ not supported yet
    1612. 

  1612.   647                done := FALSE;
    1613. 

  1613.   648                StrEdit.AssignStr( "List does not exist.  Press any key.",
    1614. 

  1614. *****                ^ not supported yet
    1615. 

  1615. *****                        ^ not supported yet
    1616. 

  1616. *****                                   ^ not supported yet
    1617. 

  1617.   649                    message );
    1618. 

  1618. *****                    ^ not supported yet
    1619. 

  1619.   650              ELSE
    1620. 

  1620.   651                BadFieldNum := 0;
    1621. 

  1621.   652                done := TRUE;
    1622. 

  1622.   653              END;
    1623. 

  1623.   654            END;
    1624. 

  1624.   655          END;
    1625. 

  1625.   656          RETURN done;
    1626. 

  1626.   657        END AllFieldsCorrect;
    1627. 

  1627. *****            ^ not supported yet
    1628. 

  1628.   658  
    1629. 

  1629.   659  
    1630. 

  1630.   660  
    1631. 

  1631.   661      PROCEDURE ToNdxFile();
    1632. 

  1632.   662        VAR
    1633. 

  1633.   663          TmpList1, TmpList2, TmpList3: GenLists.GenList;
    1634. 

  1634. *****                                                 ^ not supported yet
    1635. 

  1635.   664  
    1636. 

  1636.   665        PROCEDURE PairFieldNames( list1, list2: GenLists.GenList; VAR
    1637. 

  1637. *****                                                         ^ not supported yet
    1638. 

  1638.   666            outlist: GenLists.GenList);
    1639. 

  1639. *****                              ^ not supported yet
    1640. 

  1640.   667          VAR
    1641. 

  1641.   668            lngth1, lngth2, cnt, TypeCode, strndx, spot: CARDINAL;
    1642. 

  1642.   669            TmpStr1, TmpStr2: ARRAY [0..79] OF CHAR;
    1643. 

  1643. *****                                        ^ not supported yet
    1644. 

  1644. *****                                               ^ not supported yet
    1645. 

  1645.   670          BEGIN
    1646. 

  1646.   671            lngth1 := GenLists.ListLength( list1 );
    1647. 

  1647. *****                      ^ not supported yet
    1648. 

  1648. *****                               ^ not supported yet
    1649. 

  1649. *****                                           ^ not supported yet
    1650. 

  1650.   672            lngth2 := GenLists.ListLength( list2 );
    1651. 

  1651. *****                      ^ not supported yet
    1652. 

  1652. *****                               ^ not supported yet
    1653. 

  1653. *****                                           ^ not supported yet
    1654. 

  1654.   673            GenLists.NewList( outlist );
    1655. 

  1655. *****            ^ not supported yet
    1656. 

  1656. *****                     ^ not supported yet
    1657. 

  1657. *****                              ^ not supported yet
    1658. 

  1658.   674            FOR cnt := 1 TO lngth1 DO
    1659. 

  1659.   675              GenLists.GetElmt( list1, cnt, TmpStr1, TypeCode );
    1660. 

  1660. *****              ^ not supported yet
    1661. 

  1661. *****                       ^ not supported yet
    1662. 

  1662. *****                                ^ not supported yet
    1663. 

  1663. *****                                            ^ not supported yet
    1664. 

  1664. *****                                                              ^ not supported yet
    1665. 

  1665.   676              IF TypeCode = GenLists.StrCode THEN
    1666. 

  1666. *****                            ^ not supported yet
    1667. 

  1667. *****                                     ^ not supported yet
    1668. 

  1668.   677                spot := GenLists.ScanList( TmpStr1, list2, 1, lngth2, strndx );
    1669. 

  1669. *****                        ^ not supported yet
    1670. 

  1670. *****                                 ^ not supported yet
    1671. 

  1671. *****                                           ^ not supported yet
    1672. 

  1672. *****                                                    ^ not supported yet
    1673. 

  1673. *****                                                                             ^ not supported yet
    1674. 

  1674.   678                IF (spot > 0) AND (strndx = 0) THEN
    1675. 

  1675.   679                  GenLists.GetElmt( list2, spot, TmpStr2, TypeCode );
    1676. 

  1676. *****                  ^ not supported yet
    1677. 

  1677. *****                           ^ not supported yet
    1678. 

  1678. *****                                    ^ not supported yet
    1679. 

  1679. *****                                                 ^ not supported yet
    1680. 

  1680. *****                                                                   ^ not supported yet
    1681. 

  1681.   680                  StrEdit.Append( TmpStr1, '=' );
    1682. 

  1682. *****                  ^ not supported yet
    1683. 

  1683. *****                          ^ not supported yet
    1684. 

  1684. *****                                  ^ not supported yet
    1685. 

  1685. *****                                               ^ not supported yet
    1686. 

  1686.   681                  StrEdit.Append( TmpStr1, TmpStr2 );
    1687. 

  1687. *****                  ^ not supported yet
    1688. 

  1688. *****                          ^ not supported yet
    1689. 

  1689. *****                                  ^ not supported yet
    1690. 

  1690. *****                                           ^ not supported yet
    1691. 

  1691.   682                  GenLists.ListInsert( TmpStr1, GenLists.StrCode, outlist,
    1692. 

  1692. *****                  ^ not supported yet
    1693. 

  1693. *****                           ^ not supported yet
    1694. 

  1694. *****                                       ^ not supported yet
    1695. 

  1695. *****                                                ^ not supported yet
    1696. 

  1696. *****                                                         ^ not supported yet
    1697. 

  1697. *****                                                                  ^ not supported yet
    1698. 

  1698.   683                      GenLists.ListLength(outlist) + 1 );
    1699. 

  1699. *****                      ^ not supported yet
    1700. 

  1700. *****                               ^ not supported yet
    1701. 

  1701. *****                                          ^ not supported yet
    1702. 

  1702. *****                                                       ^ not supported yet
    1703. 

  1703.   684                END;
    1704. 

  1704.   685              END;
    1705. 

  1705.   686            END;
    1706. 

  1706.   687          END PairFieldNames;
    1707. 

  1707. *****              ^ not supported yet
    1708. 

  1708.   688  
    1709. 

  1709.   689        BEGIN  (*ToNdxFile*)
    1710. 

  1710.   690          done := AllFieldsCorrect( TmpFrame, 'cpyfname',
    1711. 

  1711. *****                  ^ not supported yet
    1712. 

  1712. *****                                    ^ not supported yet
    1713. 

  1713. *****                                              ^ not supported yet
    1714. 

  1714.   691              ErrField, message, fname, 'cpylist', RecNameList );
    1715. 

  1715. *****                        ^ not supported yet
    1716. 

  1716. *****                                 ^ not supported yet
    1717. 

  1717. *****                                        ^ not supported yet
    1718. 

  1718. *****                                                   ^ not supported yet
    1719. 

  1719.   692          StrEdit.CrunchBlanks( fname);
    1720. 

  1720. *****          ^ not supported yet
    1721. 

  1721. *****                  ^ not supported yet
    1722. 

  1722. *****                                ^ not supported yet
    1723. 

  1723.   693          IF done THEN
    1724. 

  1724.   694            IF PosUtils.Equal( fname, NdxFile^.name) THEN
    1725. 

  1725. *****               ^ not supported yet
    1726. 

  1726. *****                        ^ not supported yet
    1727. 

  1727. *****                               ^ not supported yet
    1728. 

  1728. *****                                      ^ not supported yet
    1729. 

  1729. *****                                               ^ not supported yet
    1730. 

  1730.   695              done := FALSE;
    1731. 

  1731.   696              message := 'Cannot export from a file to itself';
    1732. 

  1732. *****              ^ not supported yet
    1733. 

  1733. *****                         ^ not supported yet
    1734. 

  1734.   697              ErrField := 8;
    1735. 

  1735.   698            ELSIF NOT NdxBones.OpenNdxFile( DestNdxFile, fname ) THEN
    1736. 

  1736. *****                      ^ not supported yet
    1737. 

  1737. *****                               ^ not supported yet
    1738. 

  1738. *****                                            ^ not supported yet
    1739. 

  1739. *****                                                         ^ not supported yet
    1740. 

  1740.   699              ErrorOpeningFile( StringIO.MissingMessage, 'Not an Index File.',
    1741. 

  1741. *****              ^ not supported yet
    1742. 

  1742. *****                                ^ not supported yet
    1743. 

  1743. *****                                         ^ not supported yet
    1744. 

  1744. *****                                                         ^ not supported yet
    1745. 

  1745.   700                fname );
    1746. 

  1746. *****                ^ not supported yet
    1747. 

  1747.   701              done := FALSE;
    1748. 

  1748.   702            ELSE
    1749. 

  1749.   703              DspFiles.ReadDisplayFrame( ScreenFile, TmpFrame, NextFrame );
    1750. 

  1750. *****              ^ not supported yet
    1751. 

  1751. *****                       ^ not supported yet
    1752. 

  1752. *****                                         ^ not supported yet
    1753. 

  1753. *****                                                     ^ not supported yet
    1754. 

  1754. *****                                                               ^ not supported yet
    1755. 

  1755.   704              IF NOT (0 # ScrnUtl1.FieldNum( TmpFrame,
    1756. 

  1756. *****                          ^ not supported yet
    1757. 

  1757. *****                                   ^ not supported yet
    1758. 

  1758. *****                                             ^ not supported yet
    1759. 

  1759.   705                  'oldstruct' )) THEN
    1760. 

  1760. *****                  ^ not supported yet
    1761. 

  1761.   706                HALT();
    1762. 

  1762. *****                ^ undeclared identifier
    1763. 

  1763. *****                     ^ not supported yet
    1764. 

  1764.   707              END;
    1765. 

  1765.   708              GenLists.CopyList( NdxFile^.StructLst, TmpList1 );
    1766. 

  1766. *****              ^ not supported yet
    1767. 

  1767. *****                       ^ not supported yet
    1768. 

  1768. *****                                 ^ not supported yet
    1769. 

  1769. *****                                          ^ not supported yet
    1770. 

  1770. *****                                                     ^ not supported yet
    1771. 

  1771.   709              IF NOT ScrnUtl1.ListToEdField( TmpList1,
    1772. 

  1772. *****                     ^ not supported yet
    1773. 

  1773. *****                              ^ not supported yet
    1774. 

  1774. *****                                             ^ not supported yet
    1775. 

  1775.   710                  TmpFrame,
    1776. 

  1776. *****                  ^ not supported yet
    1777. 

  1777.   711                  TmpFrame^.CurrentField ) THEN
    1778. 

  1778. *****                  ^ not supported yet
    1779. 

  1779. *****                            ^ not supported yet
    1780. 

  1780.   712                HALT();
    1781. 

  1781. *****                ^ undeclared identifier
    1782. 

  1782. *****                     ^ not supported yet
    1783. 

  1783.   713              END;
    1784. 

  1784.   714              IF NOT (0 # ScrnUtl1.FieldNum( TmpFrame,
    1785. 

  1785. *****                          ^ not supported yet
    1786. 

  1786. *****                                   ^ not supported yet
    1787. 

  1787. *****                                             ^ not supported yet
    1788. 

  1788.   715                  'newstruct' )) THEN
    1789. 

  1789. *****                  ^ not supported yet
    1790. 

  1790.   716                HALT();
    1791. 

  1791. *****                ^ undeclared identifier
    1792. 

  1792. *****                     ^ not supported yet
    1793. 

  1793.   717              END;
    1794. 

  1794.   718              GenLists.CopyList( DestNdxFile^.StructLst, TmpList2 );
    1795. 

  1795. *****              ^ not supported yet
    1796. 

  1796. *****                       ^ not supported yet
    1797. 

  1797. *****                                 ^ not supported yet
    1798. 

  1798. *****                                              ^ not supported yet
    1799. 

  1799. *****                                                         ^ not supported yet
    1800. 

  1800.   719              IF NOT ScrnUtl1.ListToEdField( TmpList2,
    1801. 

  1801. *****                     ^ not supported yet
    1802. 

  1802. *****                              ^ not supported yet
    1803. 

  1803. *****                                             ^ not supported yet
    1804. 

  1804.   720                  TmpFrame,
    1805. 

  1805. *****                  ^ not supported yet
    1806. 

  1806.   721                  TmpFrame^.CurrentField ) THEN
    1807. 

  1807. *****                  ^ not supported yet
    1808. 

  1808. *****                            ^ not supported yet
    1809. 

  1809.   722                HALT();
    1810. 

  1810. *****                ^ undeclared identifier
    1811. 

  1811. *****                     ^ not supported yet
    1812. 

  1812.   723              END;
    1813. 

  1813.   724              IF NOT (0 # ScrnUtl1.FieldNum( TmpFrame, 'matches' )) THEN
    1814. 

  1814. *****                          ^ not supported yet
    1815. 

  1815. *****                                   ^ not supported yet
    1816. 

  1816. *****                                             ^ not supported yet
    1817. 

  1817. *****                                                       ^ not supported yet
    1818. 

  1818.   725                HALT();
    1819. 

  1819. *****                ^ undeclared identifier
    1820. 

  1820. *****                     ^ not supported yet
    1821. 

  1821.   726              END;
    1822. 

  1822.   727              PairFieldNames( NdxFile^.StructLst,
    1823. 

  1823. *****              ^ not supported yet
    1824. 

  1824. *****                              ^ not supported yet
    1825. 

  1825. *****                                       ^ not supported yet
    1826. 

  1826.   728                  DestNdxFile^.StructLst, MatchingFieldList );
    1827. 

  1827. *****                  ^ not supported yet
    1828. 

  1828. *****                               ^ not supported yet
    1829. 

  1829. *****                                          ^ not supported yet
    1830. 

  1830.   729              GenLists.CopyList( MatchingFieldList, TmpList3 );
    1831. 

  1831. *****              ^ not supported yet
    1832. 

  1832. *****                       ^ not supported yet
    1833. 

  1833. *****                                 ^ not supported yet
    1834. 

  1834. *****                                                    ^ not supported yet
    1835. 

  1835.   730              IF NOT ScrnUtl1.ListToEdField( TmpList3,
    1836. 

  1836. *****                     ^ not supported yet
    1837. 

  1837. *****                              ^ not supported yet
    1838. 

  1838. *****                                             ^ not supported yet
    1839. 

  1839.   731                  TmpFrame, TmpFrame^.CurrentField ) THEN
    1840. 

  1840. *****                  ^ not supported yet
    1841. 

  1841. *****                            ^ not supported yet
    1842. 

  1842. *****                                      ^ not supported yet
    1843. 

  1843.   732                HALT();
    1844. 

  1844. *****                ^ undeclared identifier
    1845. 

  1845. *****                     ^ not supported yet
    1846. 

  1846.   733              END;
    1847. 

  1847.   734              GenLists.DisposeList( MatchingFieldList );
    1848. 

  1848. *****              ^ not supported yet
    1849. 

  1849. *****                       ^ not supported yet
    1850. 

  1850. *****                                    ^ not supported yet
    1851. 

  1851.   735                (*We dispose here because the editor field now
    1852. 

  1852.   736                  has a copy of the list.*)
    1853. 

  1853.   737              FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    1854. 

  1854. *****              ^ not supported yet
    1855. 

  1855. *****                           ^ not supported yet
    1856. 

  1856. *****                                             ^ not supported yet
    1857. 

  1857. *****                                                                  ^ not supported yet
    1858. 

  1858.   738              InputManager.ControlFrame( TmpFrame, 0, '', FALSE,
    1859. 

  1859. *****              ^ not supported yet
    1860. 

  1860. *****                           ^ not supported yet
    1861. 

  1861. *****                                         ^ not supported yet
    1862. 

  1862.   739                  NextFrame );
    1863. 

  1863. *****                  ^ not supported yet
    1864. 

  1864.   740                (*Let them edit the lists.*)
    1865. 

  1865.   741              IF NOT (0 # ScrnUtl1.FieldNum( TmpFrame, 'MATCHES')) THEN
    1866. 

  1866. *****                          ^ not supported yet
    1867. 

  1867. *****                                   ^ not supported yet
    1868. 

  1868. *****                                             ^ not supported yet
    1869. 

  1869. *****                                                       ^ not supported yet
    1870. 

  1870.   742                HALT();
    1871. 

  1871. *****                ^ undeclared identifier
    1872. 

  1872. *****                     ^ not supported yet
    1873. 

  1873.   743              END;
    1874. 

  1874.   744              IF NOT ScrnUtl1.ListFromEdField( TmpFrame,
    1875. 

  1875. *****                     ^ not supported yet
    1876. 

  1876. *****                              ^ not supported yet
    1877. 

  1877. *****                                               ^ not supported yet
    1878. 

  1878.   745                  TmpFrame^.CurrentField, MatchingFieldList ) THEN
    1879. 

  1879. *****                  ^ not supported yet
    1880. 

  1880. *****                            ^ not supported yet
    1881. 

  1881. *****                                          ^ not supported yet
    1882. 

  1882.   746                HALT();
    1883. 

  1883. *****                ^ undeclared identifier
    1884. 

  1884. *****                     ^ not supported yet
    1885. 

  1885.   747              END;
    1886. 

  1886.   748                (*Now we've gotten the list back from the editor
    1887. 

  1887.   749                  field, presumably changed in some way.*)
    1888. 

  1888.   750              GenLists.CopyList( MatchingFieldList, TmpList1 );
    1889. 

  1889. *****              ^ not supported yet
    1890. 

  1890. *****                       ^ not supported yet
    1891. 

  1891. *****                                 ^ not supported yet
    1892. 

  1892. *****                                                    ^ not supported yet
    1893. 

  1893.   751              IF PosUtils.Equal( NextFrame, TmpFrame^.normlnext ) THEN
    1894. 

  1894. *****                 ^ not supported yet
    1895. 

  1895. *****                          ^ not supported yet
    1896. 

  1896. *****                                 ^ not supported yet
    1897. 

  1897. *****                                            ^ not supported yet
    1898. 

  1898. *****                                                      ^ not supported yet
    1899. 

  1899.   752                ExportToNdxFile( NdxFile, RecNameList,
    1900. 

  1900. *****                ^ not supported yet
    1901. 

  1901. *****                                 ^ not supported yet
    1902. 

  1902. *****                                          ^ not supported yet
    1903. 

  1903.   753                    TmpList1, DestNdxFile );
    1904. 

  1904. *****                    ^ not supported yet
    1905. 

  1905. *****                              ^ not supported yet
    1906. 

  1906.   754                NextFrame := '24';
    1907. 

  1907. *****                ^ not supported yet
    1908. 

  1908. *****                             ^ not supported yet
    1909. 

  1909.   755              END;
    1910. 

  1910.   756              NdxFiles.CloseNdxFile( DestNdxFile );
    1911. 

  1911. *****              ^ not supported yet
    1912. 

  1912. *****                       ^ not supported yet
    1913. 

  1913. *****                                     ^ not supported yet
    1914. 

  1914.   757            END;
    1915. 

  1915.   758          END;
    1916. 

  1916.   759        END ToNdxFile;
    1917. 

  1917. *****            ^ not supported yet
    1918. 

  1918.   760  
    1919. 

  1919.   761      PROCEDURE ToAscii();
    1920. 

  1920.   762        BEGIN
    1921. 

  1921.   763          IF AllFieldsCorrect( TmpFrame, 'expfname',
    1922. 

  1922. *****             ^ not supported yet
    1923. 

  1923. *****                               ^ not supported yet
    1924. 

  1924. *****                                         ^ not supported yet
    1925. 

  1925.   764             ErrField, message, fname, 'explist', RecNameList ) THEN
    1926. 

  1926. *****                       ^ not supported yet
    1927. 

  1927. *****                                ^ not supported yet
    1928. 

  1928. *****                                       ^ not supported yet
    1929. 

  1929. *****                                                  ^ not supported yet
    1930. 

  1930.   765            IF NotPmiFile( fname) THEN
    1931. 

  1931. *****               ^ not supported yet
    1932. 

  1932. *****                           ^ not supported yet
    1933. 

  1933.   766              SavedMessage := HandleIO.CreateFile( ExpFile, fname );
    1934. 

  1934. *****                              ^ not supported yet
    1935. 

  1935. *****                                       ^ not supported yet
    1936. 

  1936. *****                                                            ^ not supported yet
    1937. 

  1937.   767              IF SavedMessage = StringIO.NoError THEN
    1938. 

  1938. *****                                ^ not supported yet
    1939. 

  1939. *****                                         ^ not supported yet
    1940. 

  1940.   768                ScrnUtl2.ReadAndShow( ScreenFile, TmpFrame, '38' );
    1941. 

  1941. *****                ^ not supported yet
    1942. 

  1942. *****                         ^ not supported yet
    1943. 

  1943. *****                                      ^ not supported yet
    1944. 

  1944. *****                                                  ^ not supported yet
    1945. 

  1945. *****                                                            ^ not supported yet
    1946. 

  1946.   769                NdxUtils.ExportToFile( NdxFile, RecNameList, ExpFile );
    1947. 

  1947. *****                ^ not supported yet
    1948. 

  1948. *****                         ^ not supported yet
    1949. 

  1949. *****                                       ^ not supported yet
    1950. 

  1950. *****                                                ^ not supported yet
    1951. 

  1951. *****                                                                     ^ not supported yet
    1952. 

  1952.   770                StringIO.PrintMessage( HandleIO.CloseHandle( ExpFile ) );
    1953. 

  1953. *****                ^ not supported yet
    1954. 

  1954. *****                         ^ not supported yet
    1955. 

  1955. *****                                       ^ not supported yet
    1956. 

  1956. *****                                                ^ not supported yet
    1957. 

  1957. *****                                                                     ^ not supported yet
    1958. 

  1958.   771                NextFrame := '24';
    1959. 

  1959. *****                ^ not supported yet
    1960. 

  1960. *****                             ^ not supported yet
    1961. 

  1961.   772                done := TRUE;
    1962. 

  1962.   773              ELSE
    1963. 

  1963.   774                ErrorOpeningFile( SavedMessage, '', fname );
    1964. 

  1964. *****                ^ not supported yet
    1965. 

  1965. *****                                                    ^ not supported yet
    1966. 

  1966.   775                done := FALSE;
    1967. 

  1967.   776              END;
    1968. 

  1968.   777            ELSE
    1969. 

  1969.   778              ErrorOpeningFile( StringIO.MissingMessage,
    1970. 

  1970. *****              ^ not supported yet
    1971. 

  1971. *****                                ^ not supported yet
    1972. 

  1972. *****                                         ^ not supported yet
    1973. 

  1973.   779                'Invalid Reserved PMI File Name', fname );
    1974. 

  1974. *****                ^ not supported yet
    1975. 

  1975. *****                                                  ^ not supported yet
    1976. 

  1976.   780              done := FALSE;
    1977. 

  1977.   781            END;
    1978. 

  1978.   782          END;
    1979. 

  1979.   783        END ToAscii;
    1980. 

  1980. *****            ^ not supported yet
    1981. 

  1981.   784  
    1982. 

  1982.   785      PROCEDURE ToPrinter();
    1983. 

  1983.   786        BEGIN
    1984. 

  1984.   787          done := AllFieldsCorrect( TmpFrame, 'prnlist',
    1985. 

  1985. *****                  ^ not supported yet
    1986. 

  1986. *****                                    ^ not supported yet
    1987. 

  1987. *****                                              ^ not supported yet
    1988. 

  1988.   788              ErrField, message, fname, 'prnlist', RecNameList );
    1989. 

  1989. *****                        ^ not supported yet
    1990. 

  1990. *****                                 ^ not supported yet
    1991. 

  1991. *****                                        ^ not supported yet
    1992. 

  1992. *****                                                   ^ not supported yet
    1993. 

  1993.   789          IF done THEN
    1994. 

  1994.   790            ScrnUtl2.ReadAndShow( ScreenFile, TmpFrame, '38' );
    1995. 

  1995. *****            ^ not supported yet
    1996. 

  1996. *****                     ^ not supported yet
    1997. 

  1997. *****                                  ^ not supported yet
    1998. 

  1998. *****                                              ^ not supported yet
    1999. 

  1999. *****                                                        ^ not supported yet
    2000. 

  2000.   791            NdxUtils.ExportToFile( NdxFile, RecNameList, StringIO.StdPrn );
    2001. 

  2001. *****            ^ not supported yet
    2002. 

  2002. *****                     ^ not supported yet
    2003. 

  2003. *****                                   ^ not supported yet
    2004. 

  2004. *****                                            ^ not supported yet
    2005. 

  2005. *****                                                         ^ not supported yet
    2006. 

  2006. *****                                                                  ^ not supported yet
    2007. 

  2007.   792            NextFrame := '37';
    2008. 

  2008. *****            ^ not supported yet
    2009. 

  2009. *****                         ^ not supported yet
    2010. 

  2010.   793          END;
    2011. 

  2011.   794        END ToPrinter;
    2012. 

  2012. *****            ^ not supported yet
    2013. 

  2013.   795  
    2014. 

  2014.   796  
    2015. 

  2015.   797      BEGIN  (*ExportRecords*)
    2016. 

  2016.   798        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    2017. 

  2017. *****        ^ not supported yet
    2018. 

  2018. *****                  ^ not supported yet
    2019. 

  2019. *****                                    ^ not supported yet
    2020. 

  2020. *****                                              ^ not supported yet
    2021. 

  2021. *****                                                       ^ not supported yet
    2022. 

  2022.   799        NextFrame := '19';
    2023. 

  2023. *****        ^ not supported yet
    2024. 

  2024. *****                     ^ not supported yet
    2025. 

  2025.   800          (*This is the export form; the one with all the lines
    2026. 

  2026.   801            and blanks for list and file names.*)
    2027. 

  2027.   802        ScrnUtl2.ReadAndShow( ScreenFile, TmpFrame, NextFrame );
    2028. 

  2028. *****        ^ not supported yet
    2029. 

  2029. *****                 ^ not supported yet
    2030. 

  2030. *****                              ^ not supported yet
    2031. 

  2031. *****                                          ^ not supported yet
    2032. 

  2032. *****                                                    ^ not supported yet
    2033. 

  2033.   803        done := FALSE;
    2034. 

  2034.   804        ErrField := 0;
    2035. 

  2035.   805        StrEdit.AssignStr( '', message );
    2036. 

  2036. *****        ^ not supported yet
    2037. 

  2037. *****                ^ not supported yet
    2038. 

  2038. *****                               ^ not supported yet
    2039. 

  2039.   806        StrEdit.AssignStr( '', fname );
    2040. 

  2040. *****        ^ not supported yet
    2041. 

  2041. *****                ^ not supported yet
    2042. 

  2042. *****                               ^ not supported yet
    2043. 

  2043.   807        WHILE NOT done DO
    2044. 

  2044.   808          InputManager.ControlFrame( TmpFrame, ErrField,
    2045. 

  2045. *****          ^ not supported yet
    2046. 

  2046. *****                       ^ not supported yet
    2047. 

  2047. *****                                     ^ not supported yet
    2048. 

  2048.   809              message, FALSE, NextFrame );
    2049. 

  2049. *****              ^ not supported yet
    2050. 

  2050. *****                              ^ not supported yet
    2051. 

  2051.   810          IF PosUtils.Equal( NextFrame, TmpFrame^.parent ) THEN
    2052. 

  2052. *****             ^ not supported yet
    2053. 

  2053. *****                      ^ not supported yet
    2054. 

  2054. *****                             ^ not supported yet
    2055. 

  2055. *****                                        ^ not supported yet
    2056. 

  2056. *****                                                  ^ not supported yet
    2057. 

  2057.   811            RETURN;
    2058. 

  2058.   812          END;
    2059. 

  2059.   813          CASE ScrnUtl1.SelectedChar(TmpFrame) OF
    2060. 

  2060. *****               ^ not supported yet
    2061. 

  2061. *****                        ^ not supported yet
    2062. 

  2062. *****                                     ^ not supported yet
    2063. 

  2063.   814              (*To determine what they want us to do, we have to
    2064. 

  2064.   815                figure out where the pointer bar was when the
    2065. 

  2065.   816                screen was submitted.*)
    2066. 

  2066.   817            'A', 'l', 'f':
    2067. 

  2067.   818              (*Export records to an ASCII file.*)
    2068. 

  2068.   819            ToAscii();
    2069. 

  2069. *****            ^ not supported yet
    2070. 

  2070. *****                    ^ not supported yet
    2071. 

  2071.   820          | 'P', 'p':  (*Print records.*)
    2072. 

  2072.   821            ToPrinter();
    2073. 

  2073. *****            ^ not supported yet
    2074. 

  2074. *****                      ^ not supported yet
    2075. 

  2075.   822          | 'N', 'c', 'x': (*Copy records to another Ndx file.*)
    2076. 

  2076.   823            ToNdxFile();
    2077. 

  2077. *****            ^ not supported yet
    2078. 

  2078. *****                      ^ not supported yet
    2079. 

  2079.   824          END;
    2080. 

  2080.   825        END; (*WHILE NOT done*)
    2081. 

  2081.   826        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    2082. 

  2082. *****        ^ not supported yet
    2083. 

  2083. *****                 ^ not supported yet
    2084. 

  2084. *****                                    ^ not supported yet
    2085. 

  2085.   827      END ExportRecords;
    2086. 

  2086. *****          ^ not supported yet
    2087. 

  2087.   828  
    2088. 

  2088.   829  
    2089. 

  2089.   830    PROCEDURE GetFile( VAR NdxFile: NdxTypes.NdxFileType; ScreenFile:
    2090. 

  2090. *****                                             ^ not supported yet
    2091. 

  2091.   831      ScrnTypes.DisplayFile; VAR NextFrame: ScrnTypes.AFrameName): BOOLEAN;
    2092. 

  2092. *****                ^ not supported yet
    2093. 

  2093. *****                                                      ^ not supported yet
    2094. 

  2094.   832      VAR
    2095. 

  2095.   833        SavedMessage : CARDINAL;
    2096. 

  2096.   834        SelectedFile, FileSpec: ARRAY [0..79] OF CHAR;
    2097. 

  2097. *****                                          ^ not supported yet
    2098. 

  2098. *****                                                 ^ not supported yet
    2099. 

  2099.   835        FileOpened, dumbool: BOOLEAN;
    2100. 

  2100.   836        structure: ARRAY [0..511] OF CHAR;
    2101. 

  2101. *****                             ^ not supported yet
    2102. 

  2102. *****                                     ^ not supported yet
    2103. 

  2103.   837        pathleng, KeyHit: CARDINAL;
    2104. 

  2104.   838        TmpFrame: ScrnTypes.DisplayFrame;
    2105. 

  2105. *****                            ^ not supported yet
    2106. 

  2106.   839  
    2107. 

  2107.   840      PROCEDURE OpenExisting( fname: ARRAY OF CHAR ): BOOLEAN;
    2108. 

  2108. *****                                              ^ not supported yet
    2109. 

  2109.   841        BEGIN
    2110. 

  2110.   842          IF FileOpened THEN
    2111. 

  2111.   843            NdxFiles.CloseNdxFile( NdxFile );
    2112. 

  2112. *****            ^ not supported yet
    2113. 

  2113. *****                     ^ not supported yet
    2114. 

  2114. *****                                   ^ not supported yet
    2115. 

  2115.   844          END;
    2116. 

  2116.   845          IF NOT NdxBones.OpenNdxFile( NdxFile, fname ) THEN
    2117. 

  2117. *****                 ^ not supported yet
    2118. 

  2118. *****                          ^ not supported yet
    2119. 

  2119. *****                                       ^ not supported yet
    2120. 

  2120. *****                                                ^ not supported yet
    2121. 

  2121.   846            ErrorOpeningFile( StringIO.MissingMessage, 'Not an Index File.',
    2122. 

  2122. *****            ^ not supported yet
    2123. 

  2123. *****                              ^ not supported yet
    2124. 

  2124. *****                                       ^ not supported yet
    2125. 

  2125. *****                                                       ^ not supported yet
    2126. 

  2126.   847              fname );
    2127. 

  2127. *****              ^ not supported yet
    2128. 

  2128.   848            RETURN FALSE;
    2129. 

  2129.   849          ELSE
    2130. 

  2130.   850            WindowPrims.MsgBox( VWindows.SE,
    2131. 

  2131. *****            ^ not supported yet
    2132. 

  2132. *****                        ^ not supported yet
    2133. 

  2133. *****                                ^ not supported yet
    2134. 

  2134. *****                                         ^ not supported yet
    2135. 

  2135.   851                'New file selected. Press any key.',
    2136. 

  2136. *****                ^ not supported yet
    2137. 

  2137.   852                KbdInput.AnyKeyNum, KeyHit );
    2138. 

  2138. *****                ^ not supported yet
    2139. 

  2139. *****                         ^ not supported yet
    2140. 

  2140. *****                                           ^ not supported yet
    2141. 

  2141.   853            NextFrame := '2';
    2142. 

  2142. *****            ^ not supported yet
    2143. 

  2143.   854              (*We do this to guarantee that we fall out at the
    2144. 

  2144.   855                bottom of the loop.*)
    2145. 

  2145.   856            RETURN TRUE;
    2146. 

  2146.   857          END;
    2147. 

  2147.   858        END OpenExisting;
    2148. 

  2148. *****            ^ not supported yet
    2149. 

  2149.   859  
    2150. 

  2150.   860      PROCEDURE TryCreate();
    2151. 

  2151.   861  
    2152. 

  2152.   862        BEGIN (* TryCreate *)
    2153. 

  2153.   863          IF NotPmiFile( FileSpec ) THEN
    2154. 

  2154. *****             ^ not supported yet
    2155. 

  2155. *****                         ^ not supported yet
    2156. 

  2156.   864            IF Drectory.ValidFile( FileSpec ) THEN
    2157. 

  2157. *****               ^ not supported yet
    2158. 

  2158. *****                        ^ not supported yet
    2159. 

  2159. *****                                   ^ not supported yet
    2160. 

  2160.   865              WindowPrims.MsgBox( VWindows.SE,
    2161. 

  2161. *****              ^ not supported yet
    2162. 

  2162. *****                          ^ not supported yet
    2163. 

  2163. *****                                  ^ not supported yet
    2164. 

  2164. *****                                           ^ not supported yet
    2165. 

  2165.   866                  "File not found.  Do you want to create it? (Y/N)",
    2166. 

  2166. *****                  ^ not supported yet
    2167. 

  2167.   867                  KbdInput.YorN, KeyHit );
    2168. 

  2168. *****                  ^ not supported yet
    2169. 

  2169. *****                           ^ not supported yet
    2170. 

  2170. *****                                        ^ not supported yet
    2171. 

  2171.   868              IF KbdInput.CAPkey(KeyHit) = ORD('Y') THEN
    2172. 

  2172. *****                 ^ not supported yet
    2173. 

  2173. *****                          ^ not supported yet
    2174. 

  2174. *****                                       ^ not supported yet
    2175. 

  2175. *****                                           ^ undeclared identifier
    2176. 

  2176. *****                                                  ^ not supported yet
    2177. 

  2177.   869                IF FileOpened THEN
    2178. 

  2178.   870                  NdxFiles.CloseNdxFile( NdxFile );
    2179. 

  2179. *****                  ^ not supported yet
    2180. 

  2180. *****                           ^ not supported yet
    2181. 

  2181. *****                                         ^ not supported yet
    2182. 

  2182.   871                END;
    2183. 

  2183.   872                (*For convenience we've stored the file structure in
    2184. 

  2184.   873                  the DataList for frame 6.*)
    2185. 

  2185.   874                ListUtils.ListToString( TmpFrame^.DataList, structure );
    2186. 

  2186. *****                ^ not supported yet
    2187. 

  2187. *****                          ^ not supported yet
    2188. 

  2188. *****                                        ^ not supported yet
    2189. 

  2189. *****                                                  ^ not supported yet
    2190. 

  2190. *****                                                            ^ not supported yet
    2191. 

  2191.   875                NdxFiles.CreateNdxFile( NdxFile, FileSpec, structure );
    2192. 

  2192. *****                ^ not supported yet
    2193. 

  2193. *****                         ^ not supported yet
    2194. 

  2194. *****                                        ^ not supported yet
    2195. 

  2195. *****                                                 ^ not supported yet
    2196. 

  2196. *****                                                           ^ not supported yet
    2197. 

  2197.   876                WindowPrims.MsgBox( VWindows.SE,
    2198. 

  2198. *****                ^ not supported yet
    2199. 

  2199. *****                            ^ not supported yet
    2200. 

  2200. *****                                    ^ not supported yet
    2201. 

  2201. *****                                             ^ not supported yet
    2202. 

  2202.   877                    'File created. Press any key.', KbdInput.AnyKeyNum,
    2203. 

  2203. *****                    ^ not supported yet
    2204. 

  2204. *****                                                    ^ not supported yet
    2205. 

  2205. *****                                                             ^ not supported yet
    2206. 

  2206.   878                    KeyHit );
    2207. 

  2207. *****                           ^ not supported yet
    2208. 

  2208.   879                FileOpened := TRUE;
    2209. 

  2209.   880              END;
    2210. 

  2210.   881            ELSE
    2211. 

  2211.   882              ErrorOpeningFile( StringIO.MissingMessage,
    2212. 

  2212. *****              ^ not supported yet
    2213. 

  2213. *****                                ^ not supported yet
    2214. 

  2214. *****                                         ^ not supported yet
    2215. 

  2215.   883                'Invalid File Name', FileSpec );
    2216. 

  2216. *****                ^ not supported yet
    2217. 

  2217. *****                                     ^ not supported yet
    2218. 

  2218.   884            END;
    2219. 

  2219.   885          ELSE
    2220. 

  2220.   886            ErrorOpeningFile( StringIO.MissingMessage,
    2221. 

  2221. *****            ^ not supported yet
    2222. 

  2222. *****                              ^ not supported yet
    2223. 

  2223. *****                                       ^ not supported yet
    2224. 

  2224.   887              'Invalid Reserved PMI File Name', FileSpec );
    2225. 

  2225. *****              ^ not supported yet
    2226. 

  2226. *****                                                ^ not supported yet
    2227. 

  2227.   888          END;
    2228. 

  2228.   889        END TryCreate;
    2229. 

  2229. *****            ^ not supported yet
    2230. 

  2230.   890  
    2231. 

  2231.   891      BEGIN
    2232. 

  2232.   892        (*GetFile*)
    2233. 

  2233.   893        FileOpened := FALSE;
    2234. 

  2234.   894        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    2235. 

  2235. *****        ^ not supported yet
    2236. 

  2236. *****                  ^ not supported yet
    2237. 

  2237. *****                                    ^ not supported yet
    2238. 

  2238. *****                                              ^ not supported yet
    2239. 

  2239. *****                                                       ^ not supported yet
    2240. 

  2240.   895        REPEAT
    2241. 

  2241.   896          NextFrame := '6';
    2242. 

  2242. *****          ^ not supported yet
    2243. 

  2243.   897            (*File Creation/Selection form; prompts for a file
    2244. 

  2244.   898              specification*)
    2245. 

  2245.   899          ControlUtils.ReadShowAndCntrl( ScreenFile, TmpFrame, NextFrame );
    2246. 

  2246. *****          ^ not supported yet
    2247. 

  2247. *****                       ^ not supported yet
    2248. 

  2248. *****                                         ^ not supported yet
    2249. 

  2249. *****                                                     ^ not supported yet
    2250. 

  2250. *****                                                               ^ not supported yet
    2251. 

  2251.   900          IF NOT PosUtils.Equal( NextFrame, TmpFrame^.normlnext ) THEN
    2252. 

  2252. *****                 ^ not supported yet
    2253. 

  2253. *****                          ^ not supported yet
    2254. 

  2254. *****                                 ^ not supported yet
    2255. 

  2255. *****                                            ^ not supported yet
    2256. 

  2256. *****                                                      ^ not supported yet
    2257. 

  2257.   901            (*return if they press the backup key*)
    2258. 

  2258.   902            ScrnUtl2.CloseDisplayFrame( TmpFrame );
    2259. 

  2259. *****            ^ not supported yet
    2260. 

  2260. *****                     ^ not supported yet
    2261. 

  2261. *****                                        ^ not supported yet
    2262. 

  2262.   903            RETURN FileOpened;
    2263. 

  2263.   904          END;
    2264. 

  2264.   905          ControlUtils.ReadInput( TmpFrame, FileSpec, 'path');
    2265. 

  2265. *****          ^ not supported yet
    2266. 

  2266. *****                       ^ not supported yet
    2267. 

  2267. *****                                  ^ not supported yet
    2268. 

  2268. *****                                            ^ not supported yet
    2269. 

  2269. *****                                                      ^ not supported yet
    2270. 

  2270.   906            (*Get the string out of the field named 'path' and put
    2271. 

  2271.   907              it in the variable FileSpec.*)
    2272. 

  2272.   908          StrEdit.CutTrailingChars( ' ', FileSpec);
    2273. 

  2273. *****          ^ not supported yet
    2274. 

  2274. *****                  ^ not supported yet
    2275. 

  2275. *****                                         ^ not supported yet
    2276. 

  2276.   909          pathleng := M2Strings.Length(FileSpec);
    2277. 

  2277. *****                      ^ not supported yet
    2278. 

  2278. *****                                ^ not supported yet
    2279. 

  2279. *****                                       ^ not supported yet
    2280. 

  2280.   910          IF HandleIO.FileExists( FileSpec ) THEN
    2281. 

  2281. *****             ^ not supported yet
    2282. 

  2282. *****                      ^ not supported yet
    2283. 

  2283. *****                                  ^ not supported yet
    2284. 

  2284.   911            (* open file entered *)
    2285. 

  2285.   912            FileOpened := OpenExisting( FileSpec );
    2286. 

  2286. *****                          ^ not supported yet
    2287. 

  2287. *****                                        ^ not supported yet
    2288. 

  2288.   913          ELSIF (pathleng > 0) AND
    2289. 

  2289.   914                (NOT PosUtils.Present( '*', FileSpec)) AND
    2290. 

  2290. *****                     ^ not supported yet
    2291. 

  2291. *****                              ^ not supported yet
    2292. 

  2292. *****                                            ^ not supported yet
    2293. 

  2293.   915                (FileSpec[ pathleng-1] # '\') AND
    2294. 

  2294. *****                 ^ not supported yet
    2295. 

  2295. *****                                     ^ not supported yet
    2296. 

  2296.   916                (FileSpec[ pathleng-1] # ':') THEN
    2297. 

  2297. *****                 ^ not supported yet
    2298. 

  2298. *****                                     ^ not supported yet
    2299. 

  2299.   917            (* try to create file name entered *)
    2300. 

  2300.   918            TryCreate();
    2301. 

  2301. *****            ^ not supported yet
    2302. 

  2302. *****                      ^ not supported yet
    2303. 

  2303.   919          ELSE
    2304. 

  2304.   920            (* search for file spec entered *)
    2305. 

  2305.   921            ScrnUtl2.PushFrame( TmpFrame );
    2306. 

  2306. *****            ^ not supported yet
    2307. 

  2307. *****                     ^ not supported yet
    2308. 

  2308. *****                                ^ not supported yet
    2309. 

  2309.   922              (*this saves frame 6*)
    2310. 

  2310.   923            NextFrame := '7';
    2311. 

  2311. *****            ^ not supported yet
    2312. 

  2312.   924              (*7 is a blank window to hold the file names*)
    2313. 

  2313.   925            DspFiles.ReadDisplayFrame( ScreenFile, TmpFrame, NextFrame );
    2314. 

  2314. *****            ^ not supported yet
    2315. 

  2315. *****                     ^ not supported yet
    2316. 

  2316. *****                                       ^ not supported yet
    2317. 

  2317. *****                                                   ^ not supported yet
    2318. 

  2318. *****                                                             ^ not supported yet
    2319. 

  2319.   926            DirManager.ControlDirectory( FileSpec,
    2320. 

  2320. *****            ^ not supported yet
    2321. 

  2321. *****                       ^ not supported yet
    2322. 

  2322. *****                                         ^ not supported yet
    2323. 

  2323.   927                TmpFrame, 1, SelectedFile, NextFrame );
    2324. 

  2324. *****                ^ not supported yet
    2325. 

  2325. *****                             ^ not supported yet
    2326. 

  2326. *****                                           ^ not supported yet
    2327. 

  2327.   928              (*Loads frame 7 with a list of filenames that match
    2328. 

  2328.   929                the file specification in FileSpec, and controls
    2329. 

  2329.   930                scrolling of the pointer bar within the frame until
    2330. 

  2330.   931                the user selects a file.  The 1 means
    2331. 

  2331.   932                ControlDirectory will list only file NAMES (i.e.,
    2332. 

  2332.   933                will use only one column).  We could have it list
    2333. 

  2333.   934                size, date, and time information by using 2, 3, or
    2334. 

  2334.   935                4 for the number of columns. *)
    2335. 

  2335.   936            IF PosUtils.Equal( NextFrame, TmpFrame^.normlnext ) THEN
    2336. 

  2336. *****               ^ not supported yet
    2337. 

  2337. *****                        ^ not supported yet
    2338. 

  2338. *****                               ^ not supported yet
    2339. 

  2339. *****                                          ^ not supported yet
    2340. 

  2340. *****                                                    ^ not supported yet
    2341. 

  2341.   937              StrEdit.DeleteChar( ' ', SelectedFile );
    2342. 

  2342. *****              ^ not supported yet
    2343. 

  2343. *****                      ^ not supported yet
    2344. 

  2344. *****                                       ^ not supported yet
    2345. 

  2345.   938              IF NOT PosUtils.Present( 'Error:', SelectedFile ) THEN
    2346. 

  2346. *****                     ^ not supported yet
    2347. 

  2347. *****                              ^ not supported yet
    2348. 

  2348. *****                                       ^ not supported yet
    2349. 

  2349. *****                                                 ^ not supported yet
    2350. 

  2350.   939                FileOpened := OpenExisting( SelectedFile );
    2351. 

  2351. *****                              ^ not supported yet
    2352. 

  2352. *****                                            ^ not supported yet
    2353. 

  2353.   940                ScrnUtl2.PopFrame( TmpFrame );
    2354. 

  2354. *****                ^ not supported yet
    2355. 

  2355. *****                         ^ not supported yet
    2356. 

  2356. *****                                   ^ not supported yet
    2357. 

  2357.   941                  (*TmpFrame is now frame 6.*)
    2358. 

  2358.   942              ELSE
    2359. 

  2359.   943                (* couldn't search for file, so try to create it *)
    2360. 

  2360.   944                ScrnUtl2.PopFrame( TmpFrame );
    2361. 

  2361. *****                ^ not supported yet
    2362. 

  2362. *****                         ^ not supported yet
    2363. 

  2363. *****                                   ^ not supported yet
    2364. 

  2364.   945                  (*TmpFrame is now frame 6.*)
    2365. 

  2365.   946                TryCreate();
    2366. 

  2366. *****                ^ not supported yet
    2367. 

  2367. *****                          ^ not supported yet
    2368. 

  2368.   947              END;
    2369. 

  2369.   948            ELSE
    2370. 

  2370.   949              ScrnUtl2.PopFrame( TmpFrame );
    2371. 

  2371. *****              ^ not supported yet
    2372. 

  2372. *****                       ^ not supported yet
    2373. 

  2373. *****                                 ^ not supported yet
    2374. 

  2374.   950                (*TmpFrame is now frame 6.*)
    2375. 

  2375.   951            END;
    2376. 

  2376.   952          END;
    2377. 

  2377.   953        UNTIL FileOpened;
    2378. 

  2378.   954        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    2379. 

  2379. *****        ^ not supported yet
    2380. 

  2380. *****                 ^ not supported yet
    2381. 

  2381. *****                                    ^ not supported yet
    2382. 

  2382.   955        RETURN FileOpened;
    2383. 

  2383.   956      END GetFile;
    2384. 

  2384. *****          ^ not supported yet
    2385. 

  2385.   957  
    2386. 

  2386.   958  
    2387. 

  2387.   959    PROCEDURE FileManagement( VAR NdxFile: NdxTypes.NdxFileType; VAR NextFrame:
    2388. 

  2388. *****                                                    ^ not supported yet
    2389. 

  2389.   960        ScrnTypes.AFrameName; ScreenFile: ScrnTypes.DisplayFile);
    2390. 

  2390. *****                  ^ not supported yet
    2391. 

  2391. *****                                                    ^ not supported yet
    2392. 

  2392.   961  
    2393. 

  2393.   962    PROCEDURE CrunchMenu();
    2394. 

  2394.   963      VAR
    2395. 

  2395.   964        TotSize, GbgSize: LONGINT;
    2396. 

  2396.   965        PctUsed, NumDatRecs, NumGbgRecs: CARDINAL;
    2397. 

  2397.   966        dumstr: ARRAY [0..80] OF CHAR;
    2398. 

  2398. *****                          ^ not supported yet
    2399. 

  2399. *****                                 ^ not supported yet
    2400. 

  2400.   967        TmpFrame: ScrnTypes.DisplayFrame;
    2401. 

  2401. *****                            ^ not supported yet
    2402. 

  2402.   968      BEGIN
    2403. 

  2403.   969        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    2404. 

  2404. *****        ^ not supported yet
    2405. 

  2405. *****                  ^ not supported yet
    2406. 

  2406. *****                                    ^ not supported yet
    2407. 

  2407. *****                                              ^ not supported yet
    2408. 

  2408. *****                                                       ^ not supported yet
    2409. 

  2409.   970        REPEAT
    2410. 

  2410.   971          NextFrame := '10';
    2411. 

  2411. *****          ^ not supported yet
    2412. 

  2412. *****                       ^ not supported yet
    2413. 

  2413.   972          DspFiles.ReadDisplayFrame( ScreenFile, TmpFrame, NextFrame );
    2414. 

  2414. *****          ^ not supported yet
    2415. 

  2415. *****                   ^ not supported yet
    2416. 

  2416. *****                                     ^ not supported yet
    2417. 

  2417. *****                                                 ^ not supported yet
    2418. 

  2418. *****                                                           ^ not supported yet
    2419. 

  2419.   973          NdxUtils.SizeInfo( NdxFile, TotSize, GbgSize, PctUsed, NumDatRecs,
    2420. 

  2420. *****          ^ not supported yet
    2421. 

  2421. *****                   ^ not supported yet
    2422. 

  2422. *****                             ^ not supported yet
    2423. 

  2423.   974              NumGbgRecs);
    2424. 

  2424. *****                        ^ not supported yet
    2425. 

  2425.   975          StrConv.LongIntegerToStr( TotSize, 0, dumstr);
    2426. 

  2426. *****          ^ not supported yet
    2427. 

  2427. *****                  ^ not supported yet
    2428. 

  2428. *****                                                ^ not supported yet
    2429. 

  2429.   976          ControlUtils.ChangeField( TmpFrame, dumstr, 'size', FALSE );
    2430. 

  2430. *****          ^ not supported yet
    2431. 

  2431. *****                       ^ not supported yet
    2432. 

  2432. *****                                    ^ not supported yet
    2433. 

  2433. *****                                              ^ not supported yet
    2434. 

  2434. *****                                                      ^ not supported yet
    2435. 

  2435. *****                                                                    ^ not supported yet
    2436. 

  2436.   977          StrConv.LongIntegerToStr( GbgSize, 0, dumstr);
    2437. 

  2437. *****          ^ not supported yet
    2438. 

  2438. *****                  ^ not supported yet
    2439. 

  2439. *****                                                ^ not supported yet
    2440. 

  2440.   978          ControlUtils.ChangeField( TmpFrame, dumstr, 'save', FALSE );
    2441. 

  2441. *****          ^ not supported yet
    2442. 

  2442. *****                       ^ not supported yet
    2443. 

  2443. *****                                    ^ not supported yet
    2444. 

  2444. *****                                              ^ not supported yet
    2445. 

  2445. *****                                                      ^ not supported yet
    2446. 

  2446. *****                                                                    ^ not supported yet
    2447. 

  2447.   979          StrConv.CardinalToStr( PctUsed, 0, dumstr);
    2448. 

  2448. *****          ^ not supported yet
    2449. 

  2449. *****                  ^ not supported yet
    2450. 

  2450. *****                                             ^ not supported yet
    2451. 

  2451.   980          ControlUtils.ChangeField( TmpFrame, dumstr, 'pct', FALSE );
    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. *****                                                                   ^ not supported yet
    2458. 

  2458.   981          StrConv.CardinalToStr( NumDatRecs, 0, dumstr);
    2459. 

  2459. *****          ^ not supported yet
    2460. 

  2460. *****                  ^ not supported yet
    2461. 

  2461. *****                                                ^ not supported yet
    2462. 

  2462.   982          ControlUtils.ChangeField( TmpFrame, dumstr, 'custs', FALSE );
    2463. 

  2463. *****          ^ not supported yet
    2464. 

  2464. *****                       ^ not supported yet
    2465. 

  2465. *****                                    ^ not supported yet
    2466. 

  2466. *****                                              ^ not supported yet
    2467. 

  2467. *****                                                      ^ not supported yet
    2468. 

  2468. *****                                                                     ^ not supported yet
    2469. 

  2469.   983          StrConv.CardinalToStr( NumGbgRecs, 0, dumstr);
    2470. 

  2470. *****          ^ not supported yet
    2471. 

  2471. *****                  ^ not supported yet
    2472. 

  2472. *****                                                ^ not supported yet
    2473. 

  2473.   984          ControlUtils.ChangeField( TmpFrame, dumstr, 'grecs', FALSE );
    2474. 

  2474. *****          ^ not supported yet
    2475. 

  2475. *****                       ^ not supported yet
    2476. 

  2476. *****                                    ^ not supported yet
    2477. 

  2477. *****                                              ^ not supported yet
    2478. 

  2478. *****                                                      ^ not supported yet
    2479. 

  2479. *****                                                                     ^ not supported yet
    2480. 

  2480.   985          FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    2481. 

  2481. *****          ^ not supported yet
    2482. 

  2482. *****                       ^ not supported yet
    2483. 

  2483. *****                                         ^ not supported yet
    2484. 

  2484. *****                                                              ^ not supported yet
    2485. 

  2485.   986          InputManager.ControlFrame( TmpFrame, 0, '', FALSE,
    2486. 

  2486. *****          ^ not supported yet
    2487. 

  2487. *****                       ^ not supported yet
    2488. 

  2488. *****                                     ^ not supported yet
    2489. 

  2489.   987              NextFrame );
    2490. 

  2490. *****              ^ not supported yet
    2491. 

  2491.   988          IF PosUtils.Equal( NextFrame, '12' ) THEN
    2492. 

  2492. *****             ^ not supported yet
    2493. 

  2493. *****                      ^ not supported yet
    2494. 

  2494. *****                             ^ not supported yet
    2495. 

  2495. *****                                        ^ not supported yet
    2496. 

  2496.   989            ScrnUtl2.ReadAndShow( ScreenFile, TmpFrame, NextFrame );
    2497. 

  2497. *****            ^ not supported yet
    2498. 

  2498. *****                     ^ not supported yet
    2499. 

  2499. *****                                  ^ not supported yet
    2500. 

  2500. *****                                              ^ not supported yet
    2501. 

  2501. *****                                                        ^ not supported yet
    2502. 

  2502.   990              (*File crunch in progress*)
    2503. 

  2503.   991            NdxUtils.CrunchNdxFile( NdxFile);
    2504. 

  2504. *****            ^ not supported yet
    2505. 

  2505. *****                     ^ not supported yet
    2506. 

  2506. *****                                    ^ not supported yet
    2507. 

  2507.   992            NextFrame := '13'; (*File crunch complete*)
    2508. 

  2508. *****            ^ not supported yet
    2509. 

  2509. *****                         ^ not supported yet
    2510. 

  2510.   993            ControlUtils.ReadShowAndCntrl( ScreenFile, TmpFrame, NextFrame );
    2511. 

  2511. *****            ^ not supported yet
    2512. 

  2512. *****                         ^ not supported yet
    2513. 

  2513. *****                                           ^ not supported yet
    2514. 

  2514. *****                                                       ^ not supported yet
    2515. 

  2515. *****                                                                 ^ not supported yet
    2516. 

  2516.   994          END;
    2517. 

  2517.   995        UNTIL PosUtils.Equal( NextFrame, TmpFrame^.parent );
    2518. 

  2518. *****              ^ not supported yet
    2519. 

  2519. *****                       ^ not supported yet
    2520. 

  2520. *****                              ^ not supported yet
    2521. 

  2521. *****                                         ^ not supported yet
    2522. 

  2522. *****                                                   ^ not supported yet
    2523. 

  2523.   996        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    2524. 

  2524. *****        ^ not supported yet
    2525. 

  2525. *****                 ^ not supported yet
    2526. 

  2526. *****                                    ^ not supported yet
    2527. 

  2527.   997      END CrunchMenu;
    2528. 

  2528. *****          ^ not supported yet
    2529. 

  2529.   998  
    2530. 

  2530.   999  
    2531. 

  2531.  1000    PROCEDURE EditFile();
    2532. 

  2532.  1001      VAR
    2533. 

  2533.  1002        fname: ARRAY [0..79] OF CHAR;
    2534. 

  2534. *****                         ^ not supported yet
    2535. 

  2535. *****                                ^ not supported yet
    2536. 

  2536.  1003        ready: BOOLEAN;
    2537. 

  2537.  1004        SavedMessage: CARDINAL;
    2538. 

  2538.  1005        KeyHit: CARDINAL;
    2539. 

  2539.  1006        TheList: GenLists.GenList;
    2540. 

  2540. *****                          ^ not supported yet
    2541. 

  2541.  1007        ControlRec: VEditor.AnEdControlRec;
    2542. 

  2542. *****                            ^ not supported yet
    2543. 

  2543.  1008        TmpFrame: ScrnTypes.DisplayFrame;
    2544. 

  2544. *****                            ^ not supported yet
    2545. 

  2545.  1009  
    2546. 

  2546.  1010      BEGIN
    2547. 

  2547.  1011        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    2548. 

  2548. *****        ^ not supported yet
    2549. 

  2549. *****                  ^ not supported yet
    2550. 

  2550. *****                                    ^ not supported yet
    2551. 

  2551. *****                                              ^ not supported yet
    2552. 

  2552. *****                                                       ^ not supported yet
    2553. 

  2553.  1012        ScrnUtl2.ReadAndShow( ScreenFile, TmpFrame, '18' );
    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.  1013        (*This frame prompts for a file name.*)
    2560. 

  2560.  1014        REPEAT
    2561. 

  2561.  1015          InputManager.ControlFrame( TmpFrame, 0, '', FALSE,
    2562. 

  2562. *****          ^ not supported yet
    2563. 

  2563. *****                       ^ not supported yet
    2564. 

  2564. *****                                     ^ not supported yet
    2565. 

  2565.  1016              NextFrame );
    2566. 

  2566. *****              ^ not supported yet
    2567. 

  2567.  1017          IF NOT PosUtils.Equal( NextFrame, TmpFrame^.normlnext ) THEN
    2568. 

  2568. *****                 ^ not supported yet
    2569. 

  2569. *****                          ^ not supported yet
    2570. 

  2570. *****                                 ^ not supported yet
    2571. 

  2571. *****                                            ^ not supported yet
    2572. 

  2572. *****                                                      ^ not supported yet
    2573. 

  2573.  1018            ScrnUtl2.CloseDisplayFrame( TmpFrame );
    2574. 

  2574. *****            ^ not supported yet
    2575. 

  2575. *****                     ^ not supported yet
    2576. 

  2576. *****                                        ^ not supported yet
    2577. 

  2577.  1019            RETURN;
    2578. 

  2578.  1020          END;
    2579. 

  2579.  1021          ControlUtils.ReadInput( TmpFrame, fname, 'fname' );
    2580. 

  2580. *****          ^ not supported yet
    2581. 

  2581. *****                       ^ not supported yet
    2582. 

  2582. *****                                  ^ not supported yet
    2583. 

  2583. *****                                            ^ not supported yet
    2584. 

  2584. *****                                                   ^ not supported yet
    2585. 

  2585.  1022            (*Get the file name out of the 'fname' field.*)
    2586. 

  2586.  1023          IF NotPmiFile( fname) THEN
    2587. 

  2587. *****             ^ not supported yet
    2588. 

  2588. *****                         ^ not supported yet
    2589. 

  2589.  1024            GenLists.NewList( TheList );
    2590. 

  2590. *****            ^ not supported yet
    2591. 

  2591. *****                     ^ not supported yet
    2592. 

  2592. *****                              ^ not supported yet
    2593. 

  2593.  1025            SavedMessage := ListUtils.TextFileToList( fname, TheList );
    2594. 

  2594. *****                            ^ not supported yet
    2595. 

  2595. *****                                      ^ not supported yet
    2596. 

  2596. *****                                                      ^ not supported yet
    2597. 

  2597. *****                                                             ^ not supported yet
    2598. 

  2598.  1026            IF SavedMessage = StringIO.NoError THEN
    2599. 

  2599. *****                              ^ not supported yet
    2600. 

  2600. *****                                       ^ not supported yet
    2601. 

  2601.  1027              ready := TRUE;
    2602. 

  2602.  1028            ELSIF SavedMessage = StringIO.FileNotFound THEN
    2603. 

  2603. *****                                 ^ not supported yet
    2604. 

  2604. *****                                          ^ not supported yet
    2605. 

  2605.  1029              WindowPrims.MsgBox( VWindows.SE,
    2606. 

  2606. *****              ^ not supported yet
    2607. 

  2607. *****                          ^ not supported yet
    2608. 

  2608. *****                                  ^ not supported yet
    2609. 

  2609. *****                                           ^ not supported yet
    2610. 

  2610.  1030                      "File not found.  Do you want to create it? (Y/N)",
    2611. 

  2611. *****                      ^ not supported yet
    2612. 

  2612.  1031                      KbdInput.YorN, KeyHit );
    2613. 

  2613. *****                      ^ not supported yet
    2614. 

  2614. *****                               ^ not supported yet
    2615. 

  2615. *****                                            ^ not supported yet
    2616. 

  2616.  1032              ready := KbdInput.CAPkey(KeyHit) = ORD('Y');
    2617. 

  2617. *****                       ^ not supported yet
    2618. 

  2618. *****                                ^ not supported yet
    2619. 

  2619. *****                                             ^ not supported yet
    2620. 

  2620. *****                                                 ^ undeclared identifier
    2621. 

  2621. *****                                                        ^ not supported yet
    2622. 

  2622.  1033              IF ready THEN
    2623. 

  2623.  1034                GenLists.NewList( TheList );
    2624. 

  2624. *****                ^ not supported yet
    2625. 

  2625. *****                         ^ not supported yet
    2626. 

  2626. *****                                  ^ not supported yet
    2627. 

  2627.  1035              END;
    2628. 

  2628.  1036            ELSE
    2629. 

  2629.  1037              ErrorOpeningFile( SavedMessage, '', fname );
    2630. 

  2630. *****              ^ not supported yet
    2631. 

  2631. *****                                                  ^ not supported yet
    2632. 

  2632.  1038              ready := FALSE;
    2633. 

  2633.  1039            END;
    2634. 

  2634.  1040          ELSE
    2635. 

  2635.  1041            ErrorOpeningFile( StringIO.MissingMessage,
    2636. 

  2636. *****            ^ not supported yet
    2637. 

  2637. *****                              ^ not supported yet
    2638. 

  2638. *****                                       ^ not supported yet
    2639. 

  2639.  1042              'Invalid Reserved PMI File Name', fname );
    2640. 

  2640. *****              ^ not supported yet
    2641. 

  2641. *****                                                ^ not supported yet
    2642. 

  2642.  1043            ready := FALSE;
    2643. 

  2643.  1044          END;
    2644. 

  2644.  1045        UNTIL ready;
    2645. 

  2645.  1046        VEditor.InitEdRec( ControlRec );
    2646. 

  2646. *****        ^ not supported yet
    2647. 

  2647. *****                ^ not supported yet
    2648. 

  2648. *****                           ^ not supported yet
    2649. 

  2649.  1047        VEditor.TheEditor( TheList, ControlRec );
    2650. 

  2650. *****        ^ not supported yet
    2651. 

  2651. *****                ^ not supported yet
    2652. 

  2652. *****                           ^ not supported yet
    2653. 

  2653. *****                                    ^ not supported yet
    2654. 

  2654.  1048        IF ControlRec.ChangeMade THEN
    2655. 

  2655. *****           ^ not supported yet
    2656. 

  2656. *****                      ^ not supported yet
    2657. 

  2657.  1049          (*Ask if they want to save the file.*)
    2658. 

  2658.  1050          WindowPrims.MsgBox( VWindows.SE,
    2659. 

  2659. *****          ^ not supported yet
    2660. 

  2660. *****                      ^ not supported yet
    2661. 

  2661. *****                              ^ not supported yet
    2662. 

  2662. *****                                       ^ not supported yet
    2663. 

  2663.  1051              "Do you want to save your changes? (Y/N)",
    2664. 

  2664. *****              ^ not supported yet
    2665. 

  2665.  1052              KbdInput.YorN, KeyHit );
    2666. 

  2666. *****              ^ not supported yet
    2667. 

  2667. *****                       ^ not supported yet
    2668. 

  2668. *****                                    ^ not supported yet
    2669. 

  2669.  1053          ready := KbdInput.CAPkey(KeyHit) = ORD('Y');
    2670. 

  2670. *****                   ^ not supported yet
    2671. 

  2671. *****                            ^ not supported yet
    2672. 

  2672. *****                                         ^ not supported yet
    2673. 

  2673. *****                                             ^ undeclared identifier
    2674. 

  2674. *****                                                    ^ not supported yet
    2675. 

  2675.  1054          IF ready THEN
    2676. 

  2676.  1055            SavedMessage := ListUtils.TextListToFile( TheList, fname );
    2677. 

  2677. *****                            ^ not supported yet
    2678. 

  2678. *****                                      ^ not supported yet
    2679. 

  2679. *****                                                      ^ not supported yet
    2680. 

  2680. *****                                                               ^ not supported yet
    2681. 

  2681.  1056          END;
    2682. 

  2682.  1057        END;
    2683. 

  2683.  1058        GenLists.DisposeList( TheList );
    2684. 

  2684. *****        ^ not supported yet
    2685. 

  2685. *****                 ^ not supported yet
    2686. 

  2686. *****                              ^ not supported yet
    2687. 

  2687.  1059        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    2688. 

  2688. *****        ^ not supported yet
    2689. 

  2689. *****                 ^ not supported yet
    2690. 

  2690. *****                                    ^ not supported yet
    2691. 

  2691.  1060      END EditFile;
    2692. 

  2692. *****          ^ not supported yet
    2693. 

  2693.  1061  
    2694. 

  2694.  1062      PROCEDURE GetRecDate( NdxFile: NdxTypes.NdxFileType;
    2695. 

  2695. *****                                              ^ not supported yet
    2696. 

  2696.  1063          RecName: ARRAY OF CHAR; VAR Date: CARDINAL );
    2697. 

  2697. *****                            ^ not supported yet
    2698. 

  2698.  1064        VAR
    2699. 

  2699.  1065          TypeCode, day, month, year, hours, minutes, seconds: CARDINAL;
    2700. 

  2700.  1066          DateStr: ARRAY [0..31] OF CHAR;
    2701. 

  2701. *****                             ^ not supported yet
    2702. 

  2702. *****                                    ^ not supported yet
    2703. 

  2703.  1067        BEGIN
    2704. 

  2704.  1068          Drectory.GetFileDateAndTime( NdxFile^.handle, month, day, year,
    2705. 

  2705. *****          ^ not supported yet
    2706. 

  2706. *****                   ^ not supported yet
    2707. 

  2707. *****                                       ^ not supported yet
    2708. 

  2708. *****                                                ^ not supported yet
    2709. 

  2709.  1069              hours, minutes, seconds );
    2710. 

  2710. *****                                      ^ not supported yet
    2711. 

  2711.  1070          Date := ByteFiddler.DateToCardinal( month, day, year );
    2712. 

  2712. *****                  ^ not supported yet
    2713. 

  2713. *****                              ^ not supported yet
    2714. 

  2714. *****                                                               ^ not supported yet
    2715. 

  2715.  1071          IF NOT NdxFiles.GetField( NdxFile, RecName, 'DATE', TypeCode,
    2716. 

  2716. *****                 ^ not supported yet
    2717. 

  2717. *****                          ^ not supported yet
    2718. 

  2718. *****                                    ^ not supported yet
    2719. 

  2719. *****                                             ^ not supported yet
    2720. 

  2720. *****                                                      ^ not supported yet
    2721. 

  2721.  1072              DateStr ) THEN
    2722. 

  2722. *****              ^ not supported yet
    2723. 

  2723.  1073            RETURN;
    2724. 

  2724.  1074          END;
    2725. 

  2725.  1075          IF NOT DateFunctions.StrToDate2( DateStr, FALSE, day, month, year ) THEN
    2726. 

  2726. *****                 ^ not supported yet
    2727. 

  2727. *****                               ^ not supported yet
    2728. 

  2728. *****                                           ^ not supported yet
    2729. 

  2729. *****                                                                            ^ not supported yet
    2730. 

  2730.  1076            RETURN;
    2731. 

  2731.  1077          END;
    2732. 

  2732.  1078          Date := ByteFiddler.DateToCardinal( month, day, year );
    2733. 

  2733. *****                  ^ not supported yet
    2734. 

  2734. *****                              ^ not supported yet
    2735. 

  2735. *****                                                               ^ not supported yet
    2736. 

  2736.  1079        END GetRecDate;
    2737. 

  2737. *****            ^ not supported yet
    2738. 

  2738.  1080  
    2739. 

  2739.  1081      PROCEDURE FirstIsOlder( VAR date1, date2: CARDINAL ): BOOLEAN;
    2740. 

  2740.  1082        BEGIN
    2741. 

  2741.  1083          RETURN date1 < date2;
    2742. 

  2742.  1084        END FirstIsOlder;
    2743. 

  2743. *****            ^ not supported yet
    2744. 

  2744.  1085  
    2745. 

  2745.  1086      PROCEDURE MergeFile();
    2746. 

  2746.  1087        VAR
    2747. 

  2747.  1088          NextFrame: ScrnTypes.AFrameName;
    2748. 

  2748. *****                               ^ not supported yet
    2749. 

  2749.  1089          OtherRecName: NdxTypes.RecNameStr;
    2750. 

  2750. *****                                 ^ not supported yet
    2751. 

  2751.  1090          OtherNdxFile: NdxTypes.NdxFileType;
    2752. 

  2752. *****                                 ^ not supported yet
    2753. 

  2753.  1091          AddingRecords, AlwaysUpdate, NeverUpdate, Transferring,
    2754. 

  2754.  1092              DoSomething: BOOLEAN;
    2755. 

  2755.  1093          OurDate, TheirDate, cnt: CARDINAL;
    2756. 

  2756.  1094          FileName: ARRAY [0..63] OF CHAR;
    2757. 

  2757. *****                              ^ not supported yet
    2758. 

  2758. *****                                     ^ not supported yet
    2759. 

  2759.  1095          TmpFrame: ScrnTypes.DisplayFrame;
    2760. 

  2760. *****                              ^ not supported yet
    2761. 

  2761.  1096  
    2762. 

  2762.  1097        BEGIN
    2763. 

  2763.  1098          ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    2764. 

  2764. *****          ^ not supported yet
    2765. 

  2765. *****                    ^ not supported yet
    2766. 

  2766. *****                                      ^ not supported yet
    2767. 

  2767. *****                                                ^ not supported yet
    2768. 

  2768. *****                                                         ^ not supported yet
    2769. 

  2769.  1099          LOOP
    2770. 

  2770.  1100            NextFrame := 'MergeOpts';
    2771. 

  2771. *****            ^ not supported yet
    2772. 

  2772. *****                         ^ not supported yet
    2773. 

  2773.  1101            ControlUtils.ReadShowAndCntrl( ScreenFile, TmpFrame, NextFrame );
    2774. 

  2774. *****            ^ not supported yet
    2775. 

  2775. *****                         ^ not supported yet
    2776. 

  2776. *****                                           ^ not supported yet
    2777. 

  2777. *****                                                       ^ not supported yet
    2778. 

  2778. *****                                                                 ^ not supported yet
    2779. 

  2779.  1102            IF PosUtils.Equal( NextFrame, TmpFrame^.parent ) THEN
    2780. 

  2780. *****               ^ not supported yet
    2781. 

  2781. *****                        ^ not supported yet
    2782. 

  2782. *****                               ^ not supported yet
    2783. 

  2783. *****                                          ^ not supported yet
    2784. 

  2784. *****                                                    ^ not supported yet
    2785. 

  2785.  1103              EXIT;
    2786. 

  2786.  1104            END;
    2787. 

  2787.  1105            ControlUtils.ReadInput( TmpFrame, FileName, 'fname' );
    2788. 

  2788. *****            ^ not supported yet
    2789. 

  2789. *****                         ^ not supported yet
    2790. 

  2790. *****                                    ^ not supported yet
    2791. 

  2791. *****                                              ^ not supported yet
    2792. 

  2792. *****                                                        ^ not supported yet
    2793. 

  2793.  1106            IF NOT NdxBones.OpenNdxFile( OtherNdxFile, FileName ) THEN
    2794. 

  2794. *****                   ^ not supported yet
    2795. 

  2795. *****                            ^ not supported yet
    2796. 

  2796. *****                                         ^ not supported yet
    2797. 

  2797. *****                                                       ^ not supported yet
    2798. 

  2798.  1107              EXIT;
    2799. 

  2799.  1108            END;
    2800. 

  2800.  1109  
    2801. 

  2801.  1110            AddingRecords := ScrnUtl1.WhichChoiceKey( TmpFrame,
    2802. 

  2802. *****                             ^ not supported yet
    2803. 

  2803. *****                                      ^ not supported yet
    2804. 

  2804. *****                                                      ^ not supported yet
    2805. 

  2805.  1111                ScrnUtl1.FieldNum(TmpFrame, 'add') ) = ORD('y');
    2806. 

  2806. *****                ^ not supported yet
    2807. 

  2807. *****                         ^ not supported yet
    2808. 

  2808. *****                                  ^ not supported yet
    2809. 

  2809. *****                                            ^ not supported yet
    2810. 

  2810. *****                                                       ^ undeclared identifier
    2811. 

  2811. *****                                                              ^ not supported yet
    2812. 

  2812.  1112            Transferring := ScrnUtl1.WhichChoiceKey( TmpFrame,
    2813. 

  2813. *****                            ^ not supported yet
    2814. 

  2814. *****                                     ^ not supported yet
    2815. 

  2815. *****                                                     ^ not supported yet
    2816. 

  2816.  1113                ScrnUtl1.FieldNum(TmpFrame, 'transf') ) = ORD('y');
    2817. 

  2817. *****                ^ not supported yet
    2818. 

  2818. *****                         ^ not supported yet
    2819. 

  2819. *****                                  ^ not supported yet
    2820. 

  2820. *****                                            ^ not supported yet
    2821. 

  2821. *****                                                          ^ undeclared identifier
    2822. 

  2822. *****                                                                 ^ not supported yet
    2823. 

  2823.  1114            CASE CHR(ScrnUtl1.WhichChoiceKey( TmpFrame,
    2824. 

  2824. *****                 ^ undeclared identifier
    2825. 

  2825. *****                     ^ not supported yet
    2826. 

  2826. *****                              ^ not supported yet
    2827. 

  2827. *****                                              ^ not supported yet
    2828. 

  2828.  1115                ScrnUtl1.FieldNum(TmpFrame, 'upd') )) OF
    2829. 

  2829. *****                ^ not supported yet
    2830. 

  2830. *****                         ^ not supported yet
    2831. 

  2831. *****                                  ^ not supported yet
    2832. 

  2832. *****                                            ^ not supported yet
    2833. 

  2833.  1116              'A':
    2834. 

  2834.  1117                AlwaysUpdate := TRUE;
    2835. 

  2835.  1118                NeverUpdate := FALSE;
    2836. 

  2836.  1119            | 'O':
    2837. 

  2837.  1120                AlwaysUpdate := FALSE;
    2838. 

  2838.  1121                NeverUpdate := FALSE;
    2839. 

  2839.  1122            | 'N':
    2840. 

  2840.  1123                AlwaysUpdate := FALSE;
    2841. 

  2841.  1124                NeverUpdate := TRUE;
    2842. 

  2842.  1125            END;
    2843. 

  2843.  1126  
    2844. 

  2844.  1127            cnt := 1;
    2845. 

  2845.  1128  
    2846. 

  2846.  1129            WHILE NdxUtils.GetRecName( OtherNdxFile, cnt, OtherRecName ) DO
    2847. 

  2847. *****                  ^ not supported yet
    2848. 

  2848. *****                           ^ not supported yet
    2849. 

  2849. *****                                       ^ not supported yet
    2850. 

  2850. *****                                                          ^ not supported yet
    2851. 

  2851.  1130              IF NdxFiles.RecordExists( NdxFile, OtherRecName ) THEN
    2852. 

  2852. *****                 ^ not supported yet
    2853. 

  2853. *****                          ^ not supported yet
    2854. 

  2854. *****                                        ^ not supported yet
    2855. 

  2855. *****                                                 ^ not supported yet
    2856. 

  2856.  1131                IF AlwaysUpdate THEN
    2857. 

  2857.  1132                  DoSomething := TRUE;
    2858. 

  2858.  1133                ELSIF NeverUpdate THEN
    2859. 

  2859.  1134                  DoSomething := FALSE;
    2860. 

  2860.  1135                ELSE
    2861. 

  2861.  1136                  GetRecDate( NdxFile, OtherRecName, OurDate );
    2862. 

  2862. *****                  ^ not supported yet
    2863. 

  2863. *****                              ^ not supported yet
    2864. 

  2864. *****                                       ^ not supported yet
    2865. 

  2865. *****                                                             ^ not supported yet
    2866. 

  2866.  1137                  GetRecDate( OtherNdxFile, OtherRecName, TheirDate );
    2867. 

  2867. *****                  ^ not supported yet
    2868. 

  2868. *****                              ^ not supported yet
    2869. 

  2869. *****                                            ^ not supported yet
    2870. 

  2870. *****                                                                    ^ not supported yet
    2871. 

  2871.  1138                  IF FirstIsOlder( OurDate, TheirDate ) THEN
    2872. 

  2872. *****                     ^ not supported yet
    2873. 

  2873. *****                                                      ^ not supported yet
    2874. 

  2874.  1139                    DoSomething := TRUE;
    2875. 

  2875.  1140                  ELSE
    2876. 

  2876.  1141                    DoSomething := FALSE;
    2877. 

  2877.  1142                  END;
    2878. 

  2878.  1143                END;
    2879. 

  2879.  1144              ELSE
    2880. 

  2880.  1145                DoSomething := AddingRecords;
    2881. 

  2881.  1146              END;
    2882. 

  2882.  1147  
    2883. 

  2883.  1148              IF DoSomething THEN
    2884. 

  2884.  1149                IF Transferring THEN
    2885. 

  2885.  1150                  IF NOT NdxUtils.TransferRecord(
    2886. 

  2886. *****                         ^ not supported yet
    2887. 

  2887. *****                                  ^ not supported yet
    2888. 

  2888.  1151                      OtherRecName, OtherNdxFile, NdxFile ) THEN
    2889. 

  2889. *****                      ^ not supported yet
    2890. 

  2890. *****                                    ^ not supported yet
    2891. 

  2891. *****                                                  ^ not supported yet
    2892. 

  2892.  1152                    ErrorManager.WARN( OtherRecName );
    2893. 

  2893. *****                    ^ not supported yet
    2894. 

  2894. *****                                 ^ not supported yet
    2895. 

  2895. *****                                       ^ not supported yet
    2896. 

  2896.  1153                  END;
    2897. 

  2897.  1154                ELSE
    2898. 

  2898.  1155                  IF NOT NdxUtils.CopyRecord(
    2899. 

  2899. *****                         ^ not supported yet
    2900. 

  2900. *****                                  ^ not supported yet
    2901. 

  2901.  1156                      OtherRecName, OtherNdxFile, NdxFile ) THEN
    2902. 

  2902. *****                      ^ not supported yet
    2903. 

  2903. *****                                    ^ not supported yet
    2904. 

  2904. *****                                                  ^ not supported yet
    2905. 

  2905.  1157                    ErrorManager.WARN( OtherRecName );
    2906. 

  2906. *****                    ^ not supported yet
    2907. 

  2907. *****                                 ^ not supported yet
    2908. 

  2908. *****                                       ^ not supported yet
    2909. 

  2909.  1158                  END;
    2910. 

  2910.  1159                END;
    2911. 

  2911.  1160              END;
    2912. 

  2912.  1161  
    2913. 

  2913.  1162              INC( cnt );
    2914. 

  2914. *****              ^ undeclared identifier
    2915. 

  2915. *****                       ^ not supported yet
    2916. 

  2916.  1163            END;
    2917. 

  2917.  1164            NdxFiles.CloseNdxFile( OtherNdxFile );
    2918. 

  2918. *****            ^ not supported yet
    2919. 

  2919. *****                     ^ not supported yet
    2920. 

  2920. *****                                   ^ not supported yet
    2921. 

  2921.  1165          END;
    2922. 

  2922.  1166          ScrnUtl2.CloseDisplayFrame( TmpFrame );
    2923. 

  2923. *****          ^ not supported yet
    2924. 

  2924. *****                   ^ not supported yet
    2925. 

  2925. *****                                      ^ not supported yet
    2926. 

  2926.  1167        END MergeFile;
    2927. 

  2927. *****            ^ not supported yet
    2928. 

  2928.  1168  
    2929. 

  2929.  1169  
    2930. 

  2930.  1170      VAR
    2931. 

  2931.  1171        NdxFile2 : NdxTypes.NdxFileType;
    2932. 

  2932. *****                            ^ not supported yet
    2933. 

  2933.  1172        TmpFrame: ScrnTypes.DisplayFrame;
    2934. 

  2934. *****                            ^ not supported yet
    2935. 

  2935.  1173  
    2936. 

  2936.  1174      BEGIN (* FileManagement *)
    2937. 

  2937.  1175        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    2938. 

  2938. *****        ^ not supported yet
    2939. 

  2939. *****                  ^ not supported yet
    2940. 

  2940. *****                                    ^ not supported yet
    2941. 

  2941. *****                                              ^ not supported yet
    2942. 

  2942. *****                                                       ^ not supported yet
    2943. 

  2943.  1176        LOOP
    2944. 

  2944.  1177          NextFrame := '9';
    2945. 

  2945. *****          ^ not supported yet
    2946. 

  2946.  1178          ControlUtils.ReadShowAndCntrl( ScreenFile, TmpFrame, NextFrame );
    2947. 

  2947. *****          ^ not supported yet
    2948. 

  2948. *****                       ^ not supported yet
    2949. 

  2949. *****                                         ^ not supported yet
    2950. 

  2950. *****                                                     ^ not supported yet
    2951. 

  2951. *****                                                               ^ not supported yet
    2952. 

  2952.  1179          IF PosUtils.Equal( NextFrame, TmpFrame^.parent ) THEN
    2953. 

  2953. *****             ^ not supported yet
    2954. 

  2954. *****                      ^ not supported yet
    2955. 

  2955. *****                             ^ not supported yet
    2956. 

  2956. *****                                        ^ not supported yet
    2957. 

  2957. *****                                                  ^ not supported yet
    2958. 

  2958.  1180            EXIT;
    2959. 

  2959.  1181          END;
    2960. 

  2960.  1182          CASE ScrnUtl1.SelectedChar(TmpFrame) OF
    2961. 

  2961. *****               ^ not supported yet
    2962. 

  2962. *****                        ^ not supported yet
    2963. 

  2963. *****                                     ^ not supported yet
    2964. 

  2964.  1183            'C': (*Create or select a new file.*)
    2965. 

  2965.  1184              IF GetFile( NdxFile2, ScreenFile, NextFrame) THEN
    2966. 

  2966. *****                 ^ not supported yet
    2967. 

  2967. *****                          ^ not supported yet
    2968. 

  2968. *****                                    ^ not supported yet
    2969. 

  2969. *****                                                ^ not supported yet
    2970. 

  2970.  1185                NdxFiles.CloseNdxFile( NdxFile );
    2971. 

  2971. *****                ^ not supported yet
    2972. 

  2972. *****                         ^ not supported yet
    2973. 

  2973. *****                                       ^ not supported yet
    2974. 

  2974.  1186                NdxFile := NdxFile2;
    2975. 

  2975. *****                ^ not supported yet
    2976. 

  2976. *****                           ^ not supported yet
    2977. 

  2977.  1187              END;
    2978. 

  2978.  1188              (*TmpFrame will be 6 at this point; NextFrame will be 9.*)
    2979. 

  2979.  1189          |'s': (*Manage space usage in this file.*)
    2980. 

  2980.  1190              CrunchMenu();
    2981. 

  2981. *****              ^ not supported yet
    2982. 

  2982. *****                         ^ not supported yet
    2983. 

  2983.  1191          |'M': (*Merge another file*)
    2984. 

  2984.  1192              MergeFile();
    2985. 

  2985. *****              ^ not supported yet
    2986. 

  2986. *****                        ^ not supported yet
    2987. 

  2987.  1193          |'E': (*Edit a file.*)
    2988. 

  2988.  1194              EditFile();
    2989. 

  2989. *****              ^ not supported yet
    2990. 

  2990. *****                       ^ not supported yet
    2991. 

  2991.  1195          ELSE
    2992. 

  2992.  1196          END;
    2993. 

  2993.  1197        END;
    2994. 

  2994.  1198        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    2995. 

  2995. *****        ^ not supported yet
    2996. 

  2996. *****                 ^ not supported yet
    2997. 

  2997. *****                                    ^ not supported yet
    2998. 

  2998.  1199      END FileManagement;
    2999. 

  2999. *****          ^ not supported yet
    3000. 

  3000.  1200  
    3001. 

  3001.  1201  
    3002. 

  3002.  1202  PROCEDURE RestoreDisplay();
    3003. 

  3003.  1203    BEGIN
    3004. 

  3004.  1204      SmartScreen.SetAttribOrColor( SmartScreen.lightgrey,
    3005. 

  3005. *****      ^ not supported yet
    3006. 

  3006. *****                  ^ not supported yet
    3007. 

  3007. *****                                    ^ not supported yet
    3008. 

  3008. *****                                                ^ not supported yet
    3009. 

  3009.  1205          SmartScreen.black, SmartScreen.plain );
    3010. 

  3010. *****          ^ not supported yet
    3011. 

  3011. *****                      ^ not supported yet
    3012. 

  3012. *****                             ^ not supported yet
    3013. 

  3013. *****                                         ^ not supported yet
    3014. 

  3014.  1206      SmartScreen.ClearPart( 1, 1, SmartScreen.MaxCol, SmartScreen.MaxRow );
    3015. 

  3015. *****      ^ not supported yet
    3016. 

  3016. *****                  ^ not supported yet
    3017. 

  3017. *****                                   ^ not supported yet
    3018. 

  3018. *****                                               ^ not supported yet
    3019. 

  3019. *****                                                       ^ not supported yet
    3020. 

  3020. *****                                                                   ^ not supported yet
    3021. 

  3021.  1207      SmartScreen.SetCursorHeight( SavedCursorHeight );
    3022. 

  3022. *****      ^ not supported yet
    3023. 

  3023. *****                  ^ not supported yet
    3024. 

  3024. *****                                                     ^ not supported yet
    3025. 

  3025.  1208    END RestoreDisplay;
    3026. 

  3026. *****        ^ not supported yet
    3027. 

  3027.  1209  
    3028. 

  3028.  1210  
    3029. 

  3029.  1211  PROCEDURE CloseFiles();
    3030. 

  3030.  1212    BEGIN
    3031. 

  3031.  1213      DspFiles.CloseDisplayFile(ScreenFile);
    3032. 

  3032. *****      ^ not supported yet
    3033. 

  3033. *****               ^ not supported yet
    3034. 

  3034. *****                                ^ not supported yet
    3035. 

  3035.  1214      NdxFiles.CloseNdxFile( NdxFile );
    3036. 

  3036. *****      ^ not supported yet
    3037. 

  3037. *****               ^ not supported yet
    3038. 

  3038. *****                             ^ not supported yet
    3039. 

  3039.  1215    END CloseFiles;
    3040. 

  3040. *****        ^ not supported yet
    3041. 

  3041.  1216  
    3042. 

  3042.  1217  VAR
    3043. 

  3043.  1218    NextFrame: ScrnTypes.AFrameName;
    3044. 

  3044. *****                         ^ not supported yet
    3045. 

  3045.  1219  
    3046. 

  3046.  1220  BEGIN (*Main*)
    3047. 

  3047.  1221    SavedCursorHeight := WindowPrims.GetCursorHeight();
    3048. 

  3048. *****                         ^ not supported yet
    3049. 

  3049. *****                                     ^ not supported yet
    3050. 

  3050. *****                                                     ^ not supported yet
    3051. 

  3051.  1222    SmartScreen.SetCursorHeight( 0 );
    3052. 

  3052. *****    ^ not supported yet
    3053. 

  3053. *****                ^ not supported yet
    3054. 

  3054. *****                                   ^ not supported yet
    3055. 

  3055.  1223    ErrorManager.AddTermProc( RestoreDisplay );
    3056. 

  3056. *****    ^ not supported yet
    3057. 

  3057. *****                 ^ not supported yet
    3058. 

  3058. *****                              ^ not supported yet
    3059. 

  3059.  1224    IF NOT DspFiles.OpenDisplayFile( ScreenFile, "pmidbms.dsp") THEN
    3060. 

  3060. *****           ^ not supported yet
    3061. 

  3061. *****                    ^ not supported yet
    3062. 

  3062. *****                                     ^ not supported yet
    3063. 

  3063. *****                                                 ^ not supported yet
    3064. 

  3064.  1225      ErrorManager.WARN( "Could not find PMIDBMS.DSP" );
    3065. 

  3065. *****      ^ not supported yet
    3066. 

  3066. *****                   ^ not supported yet
    3067. 

  3067. *****                         ^ not supported yet
    3068. 

  3068.  1226      HALT;
    3069. 

  3069. *****      ^ undeclared identifier
    3070. 

  3070.  1227    END;
    3071. 

  3071.  1228    StrEdit.AssignStr( 'pmidbms.ndx', NdxFileName);
    3072. 

  3072. *****    ^ not supported yet
    3073. 

  3073. *****            ^ not supported yet
    3074. 

  3074. *****                       ^ not supported yet
    3075. 

  3075. *****                                      ^ not supported yet
    3076. 

  3076.  1229    GenLists.DiagMode := FALSE;
    3077. 

  3077. *****    ^ not supported yet
    3078. 

  3078. *****             ^ not supported yet
    3079. 

  3079.  1230    IF NOT (NdxBones.OpenNdxFile( NdxFile, NdxFileName) OR
    3080. 

  3080. *****            ^ not supported yet
    3081. 

  3081. *****                     ^ not supported yet
    3082. 

  3082. *****                                  ^ not supported yet
    3083. 

  3083. *****                                           ^ not supported yet
    3084. 

  3084.  1231        GetFile( NdxFile, ScreenFile, NextFrame)) THEN
    3085. 

  3085. *****        ^ not supported yet
    3086. 

  3086. *****                 ^ not supported yet
    3087. 

  3087. *****                          ^ not supported yet
    3088. 

  3088. *****                                      ^ not supported yet
    3089. 

  3089.  1232      ControlUtils.InputConst( DspFiles.MainFrame, '8' );
    3090. 

  3090. *****      ^ not supported yet
    3091. 

  3091. *****                   ^ not supported yet
    3092. 

  3092. *****                               ^ not supported yet
    3093. 

  3093. *****                                        ^ not supported yet
    3094. 

  3094. *****                                                       ^ not supported yet
    3095. 

  3095.  1233        (* Tell them we can't proceed without an Ndx file *)
    3096. 

  3096.  1234      DspFiles.CloseDisplayFile( ScreenFile);
    3097. 

  3097. *****      ^ not supported yet
    3098. 

  3098. *****               ^ not supported yet
    3099. 

  3099. *****                                 ^ not supported yet
    3100. 

  3100.  1235      RETURN;
    3101. 

  3101. *****      ^ bad RETURN
    3102. 

  3102.  1236    END;
    3103. 

  3103.  1237    ScrnTypes.InitDisplayFrame( EntryFrame, VWindows.CurrentWindow );
    3104. 

  3104. *****    ^ not supported yet
    3105. 

  3105. *****              ^ not supported yet
    3106. 

  3106. *****                                ^ not supported yet
    3107. 

  3107. *****                                            ^ not supported yet
    3108. 

  3108. *****                                                     ^ not supported yet
    3109. 

  3109.  1238    ErrorManager.AddTermProc( CloseFiles );
    3110. 

  3110. *****    ^ not supported yet
    3111. 

  3111. *****                 ^ not supported yet
    3112. 

  3112. *****                              ^ not supported yet
    3113. 

  3113.  1239    LOOP
    3114. 

  3114.  1240      NextFrame := '2';
    3115. 

  3115. *****      ^ not supported yet
    3116. 

  3116.  1241      ControlUtils.Input( DspFiles.MainFrame, NextFrame );
    3117. 

  3117. *****      ^ not supported yet
    3118. 

  3118. *****                   ^ not supported yet
    3119. 

  3119. *****                          ^ not supported yet
    3120. 

  3120. *****                                   ^ not supported yet
    3121. 

  3121. *****                                              ^ not supported yet
    3122. 

  3122.  1242        (*the top menu*)
    3123. 

  3123.  1243      IF PosUtils.Equal( NextFrame, ScrnTypes.ProgramExit ) THEN
    3124. 

  3124. *****         ^ not supported yet
    3125. 

  3125. *****                  ^ not supported yet
    3126. 

  3126. *****                         ^ not supported yet
    3127. 

  3127. *****                                    ^ not supported yet
    3128. 

  3128. *****                                              ^ not supported yet
    3129. 

  3129.  1244        EXIT;
    3130. 

  3130.  1245      END;
    3131. 

  3131.  1246      CASE ScrnUtl1.SelectedChar( DspFiles.MainFrame ) OF
    3132. 

  3132. *****           ^ not supported yet
    3133. 

  3133. *****                    ^ not supported yet
    3134. 

  3134. *****                                  ^ not supported yet
    3135. 

  3135. *****                                           ^ not supported yet
    3136. 

  3136.  1247        'P': (*Process a record*)
    3137. 

  3137.  1248        ProcessRecord();
    3138. 

  3138. *****        ^ not supported yet
    3139. 

  3139. *****                      ^ not supported yet
    3140. 

  3140.  1249      | 'U': (*Search*)
    3141. 

  3141.  1250        ManageLists();
    3142. 

  3142. *****        ^ not supported yet
    3143. 

  3143. *****                    ^ not supported yet
    3144. 

  3144.  1251      | 'E': (*Export*)
    3145. 

  3145.  1252        ExportRecords( NdxFile, NextFrame, ScreenFile);
    3146. 

  3146. *****        ^ not supported yet
    3147. 

  3147. *****                       ^ not supported yet
    3148. 

  3148. *****                                ^ not supported yet
    3149. 

  3149. *****                                           ^ not supported yet
    3150. 

  3150.  1253      | 'M': (*File Info & Management*)
    3151. 

  3151.  1254        FileManagement( NdxFile, NextFrame, ScreenFile);
    3152. 

  3152. *****        ^ not supported yet
    3153. 

  3153. *****                        ^ not supported yet
    3154. 

  3154. *****                                 ^ not supported yet
    3155. 

  3155. *****                                            ^ not supported yet
    3156. 

  3156.  1255      ELSE
    3157. 

  3157.  1256      END;
    3158. 

  3158.  1257    END;
    3159. 

  3159.  1258  END PMIdbms.
    3160. 

  3160. 

  3161.  1899 errors
    3162. 

  3162. 

  3163.