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

SNR.LST 44 KB
Permalink Histórico Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019 
  1. Listing:
    2. 

  2. 

  3.     1  MODULE snr;
    4. 

  4.     2  (*
    5. 

  5.     3   *  REPERTOIRE
    6. 

  6.     4   *  Release 1.6
    7. 

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

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

  9.     7   *  Green Bay WI
    10. 

  10.     8   *  All rights reserved
    11. 

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

  12.    10   *
    13. 

  13.    11   *)
    14. 

  14.    12   
    15. 

  15.    13  (*
    16. 

  16.    14  IMPORT EMS;
    17. 

  17.    15  *)
    18. 

  18.    16  
    19. 

  19.    17  FROM BigSets IMPORT AppendSet, ExclSet, InitSet, ChSetArray;
    20. 

  20.    18  FROM Drectory IMPORT FileInfoRec, FindFirstFile, FindNextFile,
    21. 

  21.    19       GetDrivePathAndName, GetFileDateAndTime, SetFileDateAndTime;
    22. 

  22.    20  FROM Editor IMPORT DoCounting, EntryBox, ExitBox, ScrnEdit;
    23. 

  23.    21  FROM EnvironUtils IMPORT ParsedParam;
    24. 

  24.    22  FROM ErrorManager IMPORT StraightToDOS;
    25. 

  25.    23  FROM HandleIO IMPORT OpenFile, CloseHandle;
    26. 

  26.    24  FROM GenLists IMPORT DisposeList, GenList, GetElmt, ListInsert, ListLength,
    27. 

  27.    25       ListDelete, ListReplace, NewList, ScanList, StrCode;
    28. 

  28.    26  FROM KbdInput IMPORT KeyNumSet, CAPkey, KeyHit, YorN;
    29. 

  29.    27  FROM ListUtils IMPORT TextFileToList, TextListToFile;
    30. 

  30.    28  FROM M2Strings IMPORT CompareStr, Copy, Delete, Insert, Length;
    31. 

  31.    29  FROM PosUtils IMPORT Equal, Present, PresentPos;
    32. 

  32.    30  FROM ScrnTypes IMPORT DisplayFrame;
    33. 

  33.    31  FROM SmartScreen IMPORT ClearScreen;
    34. 

  34.    32  FROM StrConv IMPORT AppendDecoded, StrToCardinal;
    35. 

  35.    33  FROM StrEdit IMPORT Append, AssignStr, CrunchBlanks, CutTrailingChars,
    36. 

  36.    34       DeleteChar, ReplaceStr, SetLength, InsertTabs, ReplaceTabs;
    37. 

  37.    35  FROM StringIO IMPORT NoError, inp, outp, PrintMessage, ReadStr,
    38. 

  38.    36       WriteEol, WriteStr;
    39. 

  39.    37  FROM UserOps IMPORT FieldExitKeySet;
    40. 

  40.    38  (*
    41. 

  41.    39  IMPORT InitJPI;
    42. 

  42.    40  *)
    43. 

  43.    41  
    44. 

  44.    42  CONST
    45. 

  45.    43    TAB = 11C;
    46. 

  46.    44  
    47. 

  47.    45  VAR
    48. 

  48.    46    DirHandle, SavedMessage: CARDINAL;
    49. 

  49.    47    fname, FileSpec, CodeStr, PathName, PromptStr: ARRAY [0..80] OF CHAR;
    50. 

  50. *****                                                             ^ not supported yet
    51. 

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

  52.    48    MeansDelete, EOFmark, Dumstr: ARRAY [0..0] OF CHAR;
    53. 

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

  54. *****                                                  ^ not supported yet
    55. 

  55.    49    SearchFor, x, ReplaceWith: ARRAY [0..255] OF CHAR;
    56. 

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

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

  58.    50    FileInfo: FileInfoRec;
    59. 

  59.    51    PatternList, ReplaceList, TheList: GenList;
    60. 

  60.    52    PatternCount, spot, ExitCode, CursorRow, LstLngth, StrLngth, LineNum,
    61. 

  61.    53        StartingAt, FoundSpot, TypeCode, month, day, year, hours,
    62. 

  62.    54        minutes, seconds, ParamCount: CARDINAL;
    63. 

  63.    55    DriveLetter, CodeChar: CHAR;
    64. 

  64.    56    editing, EditsMade, stripping, preserving, confirming, ChangesMade:
    65. 

  65.    57        BOOLEAN;
    66. 

  66.    58    DummyFrame: DisplayFrame;
    67. 

  67.    59    entabbing, detabbing: BOOLEAN;
    68. 

  68.    60    tabInterval: CARDINAL;
    69. 

  69.    61  
    70. 

  70.    62  
    71. 

  71.    63  PROCEDURE GetStamp( fname: ARRAY OF CHAR );
    72. 

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

  73.    64    VAR
    74. 

  74.    65      tmphandle: CARDINAL;
    75. 

  75.    66    BEGIN
    76. 

  76.    67      PrintMessage( OpenFile( tmphandle, fname ) );
    77. 

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

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

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

  80.    68      GetFileDateAndTime( tmphandle, month, day, year, hours,
    81. 

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

  82.    69          minutes, seconds );
    83. 

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

  84.    70      PrintMessage( CloseHandle( tmphandle ) );
    85. 

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

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

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

  88.    71    END GetStamp;
    89. 

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

  90.    72  
    91. 

  91.    73  
    92. 

  92.    74  PROCEDURE SetStamp( fname: ARRAY OF CHAR );
    93. 

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

  94.    75    VAR
    95. 

  95.    76      tmphandle: CARDINAL;
    96. 

  96.    77    BEGIN
    97. 

  97.    78      PrintMessage( OpenFile( tmphandle, fname ) );
    98. 

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

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

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

  101.    79      SetFileDateAndTime( tmphandle, month, day, year, hours,
    102. 

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

  103.    80          minutes, seconds );
    104. 

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

  105.    81      PrintMessage( CloseHandle( tmphandle ) );
    106. 

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

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

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

  109.    82    END SetStamp;
    110. 

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

  111.    83  
    112. 

  112.    84  
    113. 

  113.    85  PROCEDURE GetTabInfo(VAR entabbing, detabbing: BOOLEAN; 
    114. 

  114.    86      VAR tabInterval: CARDINAL);
    115. 

  115.    87    VAR
    116. 

  116.    88      DigitKeySet: KeyNumSet;
    117. 

  117.    89      EDNQ : KeyNumSet;
    118. 

  118.    90      tmpkey: CARDINAL;
    119. 

  119.    91    BEGIN
    120. 

  120.    92      InitSet(DigitKeySet);
    121. 

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

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

  123.    93      AppendSet(DigitKeySet, "{'0'..'9'}");
    124. 

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

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

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

  127.    94      InitSet( EDNQ );
    128. 

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

  129. *****               ^ not supported yet
    130. 

  130.    95      AppendSet( EDNQ, "{'e', 'E', 'd', 'D', 'n', 'N', 'q', 'Q'}" );
    131. 

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

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

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

  134.    96  
    135. 

  135.    97      WriteEol( outp, '' );
    136. 

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

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

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

  139.    98      WriteStr( outp, 'Entab, Detab or Neither?  ' );
    140. 

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

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

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

  143.    99      tmpkey := CAPkey( KeyHit( EDNQ ) );
    144. 

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

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

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

  147.   100      entabbing := tmpkey = ORD('E');
    148. 

  148. *****                            ^ undeclared identifier
    149. 

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

  150.   101      detabbing := tmpkey = ORD('D');
    151. 

  151. *****                            ^ undeclared identifier
    152. 

  152. *****                                   ^ not supported yet
    153. 

  153.   102      IF entabbing THEN
    154. 

  154.   103        WriteStr( outp, 'entab' );
    155. 

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

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

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

  158.   104      ELSIF detabbing THEN
    159. 

  159.   105        WriteStr( outp, 'detab' );
    160. 

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

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

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

  163.   106      ELSIF ORD('Q') = tmpkey THEN
    164. 

  164. *****            ^ undeclared identifier
    165. 

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

  166.   107        StraightToDOS('');
    167. 

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

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

  169.   108      END;
    170. 

  170.   109  	IF entabbing OR detabbing THEN
    171. 

  171.   110        WriteEol( outp, '' );
    172. 

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

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

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

  175.   111        WriteStr( outp, 'Tab interval [0-9]?  ' );
    176. 

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

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

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

  179.   112        tmpkey := KeyHit( DigitKeySet );
    180. 

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

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

  182.   113  	  tabInterval := tmpkey - ORD('0');
    183. 

  183. *****  	                          ^ undeclared identifier
    184. 

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

  185.   114  	ELSE
    186. 

  186.   115  	  tabInterval := 0;
    187. 

  187.   116  	END;
    188. 

  188.   117    END GetTabInfo;
    189. 

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

  190.   118  
    191. 

  191.   119  PROCEDURE yes( TheQuestion: ARRAY OF CHAR ): BOOLEAN;
    192. 

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

  193.   120    VAR
    194. 

  194.   121      tmpkey: CARDINAL;
    195. 

  195.   122    BEGIN
    196. 

  196.   123      WriteEol( outp, '' );
    197. 

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

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

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

  200.   124      WriteStr( outp, TheQuestion );
    201. 

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

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

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

  204.   125      tmpkey := CAPkey( KeyHit( YorN ) );
    205. 

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

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

  207. *****                                ^ not supported yet
    208. 

  208.   126      IF ORD('Y') = tmpkey THEN
    209. 

  209. *****         ^ undeclared identifier
    210. 

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

  211.   127        WriteStr( outp, 'yes' );
    212. 

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

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

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

  215.   128        RETURN TRUE;
    216. 

  216.   129      ELSIF ORD('Q') = tmpkey THEN
    217. 

  217. *****            ^ undeclared identifier
    218. 

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

  219.   130        StraightToDOS('');
    220. 

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

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

  222.   131      END;
    223. 

  223.   132      WriteStr( outp, 'no' );
    224. 

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

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

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

  227.   133      RETURN FALSE;
    228. 

  228.   134    END yes;
    229. 

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

  230.   135  
    231. 

  231.   136    PROCEDURE NextParam(): CARDINAL;
    232. 

  232.   137      BEGIN
    233. 

  233.   138        INC(ParamCount);
    234. 

  234. *****        ^ undeclared identifier
    235. 

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

  236.   139        RETURN ParamCount;
    237. 

  237.   140      END NextParam;
    238. 

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

  239.   141  
    240. 

  240.   142  BEGIN
    241. 

  241.   143    ParamCount := 0;
    242. 

  242.   144    EOFmark[0] := CHR(26);
    243. 

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

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

  245. *****                  ^ undeclared identifier
    246. 

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

  247.   145    MeansDelete[0] := CHR(255);
    248. 

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

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

  250. *****                      ^ undeclared identifier
    251. 

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

  252.   146    AppendSet( YorN, "{'q', 'Q'}" );
    253. 

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

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

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

  256.   147    IF NOT ParsedParam( NextParam(), FileSpec ) THEN
    257. 

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

  258. *****                        ^ not supported yet
    259. 

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

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

  261.   148      WriteStr( outp, "FileSpec:  " );
    262. 

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

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

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

  265.   149      ReadStr( inp, FileSpec );
    266. 

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

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

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

  269.   150      IF Length( FileSpec ) = 0 THEN
    270. 

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

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

  272.   151        RETURN;
    273. 

  273. *****        ^ bad RETURN
    274. 

  274.   152      END;
    275. 

  275.   153    END;
    276. 

  276.   154    IF ParsedParam( NextParam(), CodeStr ) THEN
    277. 

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

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

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

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

  281.   155      CodeChar := CodeStr[0];
    282. 

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

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

  284.   156    ELSE
    285. 

  285.   157      WriteStr( outp, 'CodeChar:  ' );
    286. 

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

  287. *****                ^ not supported yet
    288. 

  288. *****                      ^ not supported yet
    289. 

  289.   158      ReadStr( inp, CodeStr );
    290. 

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

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

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

  293.   159      CrunchBlanks( CodeStr );
    294. 

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

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

  296.   160      IF Length( CodeStr ) = 0 THEN
    297. 

  297. *****         ^ not supported yet
    298. 

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

  299.   161        CodeChar := '#';
    300. 

  300.   162        WriteEol( outp, 'Assumed #' );
    301. 

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

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

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

  304.   163      ELSE
    305. 

  305.   164        CodeChar := CodeStr[0];
    306. 

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

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

  308.   165      END;
    309. 

  309.   166    END;
    310. 

  310.   167  
    311. 

  311.   168    NewList(PatternList);
    312. 

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

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

  314.   169    NewList(ReplaceList);
    315. 

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

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

  317.   170    SetLength( SearchFor, 0 );
    318. 

  318. *****    ^ not supported yet
    319. 

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

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

  321.   171    IF ParsedParam( NextParam(), x ) THEN
    322. 

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

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

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

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

  326.   172      AppendDecoded( SearchFor, CodeChar, x );
    327. 

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

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

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

  330.   173    ELSE
    331. 

  331.   174      WriteStr( outp, 'SearchFor:  ' );
    332. 

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

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

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

  335.   175      ReadStr( inp, x );
    336. 

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

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

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

  339.   176      IF Length( x ) = 0 THEN
    340. 

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

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

  342.   177        RETURN;
    343. 

  343. *****        ^ bad RETURN
    344. 

  344.   178      ELSE
    345. 

  345.   179        AppendDecoded( SearchFor, CodeChar, x );
    346. 

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

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

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

  349.   180      END;
    350. 

  350.   181    END;
    351. 

  351.   182  
    352. 

  352.   183    IF SearchFor[0] = '@' THEN
    353. 

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

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

  355.   184      (*They've given us a file name.*)
    356. 

  356.   185      Delete( SearchFor, 0, 1 );
    357. 

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

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

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

  360.   186      NewList( PatternList );
    361. 

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

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

  363.   187      PrintMessage( TextFileToList( SearchFor, PatternList ) );
    364. 

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

  365. *****                    ^ not supported yet
    366. 

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

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

  368.   188      PatternCount := 1;
    369. 

  369.   189      WHILE PatternCount <= ListLength(PatternList) DO
    370. 

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

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

  372.   190        SetLength( ReplaceWith, 0 );
    373. 

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

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

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

  376.   191        GetElmt( PatternList, PatternCount, SearchFor, TypeCode );
    377. 

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

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

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

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

  381.   192        IF PresentPos( '=', SearchFor, spot ) THEN
    382. 

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

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

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

  385.   193          Copy( SearchFor, spot + 1, Length(SearchFor) - spot - 1, x );
    386. 

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

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

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

  389. *****                                            ^ not supported yet
    390. 

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

  391.   194          AppendDecoded( ReplaceWith, CodeChar, x );
    392. 

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

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

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

  395.   195          Delete( SearchFor, spot, Length(SearchFor) - spot );
    396. 

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

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

  398. *****                                   ^ not supported yet
    399. 

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

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

  401.   196          ListReplace( SearchFor, StrCode, PatternList,
    402. 

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

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

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

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

  406.   197              PatternCount );
    407. 

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

  408.   198          ListInsert( ReplaceWith, StrCode, ReplaceList,
    409. 

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

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

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

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

  413.   199              ListLength(ReplaceList) + 1 );
    414. 

  414. *****              ^ not supported yet
    415. 

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

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

  417.   200          INC( PatternCount );
    418. 

  418. *****          ^ undeclared identifier
    419. 

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

  420.   201        ELSE
    421. 

  421.   202          ListDelete( PatternList, PatternCount, 1 );
    422. 

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

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

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

  425.   203        END;
    426. 

  426.   204      END;
    427. 

  427.   205    ELSE
    428. 

  428.   206      SetLength( ReplaceWith, 0 );
    429. 

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

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

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

  432.   207      IF ParsedParam( NextParam(), x ) THEN
    433. 

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

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

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

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

  437.   208        AppendDecoded( ReplaceWith, CodeChar, x );
    438. 

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

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

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

  441.   209      ELSE
    442. 

  442.   210        WriteStr( outp, 'ReplaceWith:  ' );
    443. 

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

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

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

  446.   211        ReadStr( inp, x );
    447. 

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

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

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

  450.   212        IF Length( x ) = 0 THEN
    451. 

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

  452. *****                   ^ not supported yet
    453. 

  453.   213          RETURN;
    454. 

  454. *****          ^ bad RETURN
    455. 

  455.   214        ELSE
    456. 

  456.   215          AppendDecoded( ReplaceWith, CodeChar, x );
    457. 

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

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

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

  460.   216        END;
    461. 

  461.   217      END;
    462. 

  462.   218      ListInsert( SearchFor, StrCode, PatternList, 1 );
    463. 

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

  464. *****                  ^ not supported yet
    465. 

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

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

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

  468.   219      ListInsert( ReplaceWith, StrCode, ReplaceList, 1 );
    469. 

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

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

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

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

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

  474.   220    END;
    475. 

  475.   221    IF NOT ParsedParam( NextParam(), Dumstr ) THEN
    476. 

  476. *****           ^ not supported yet
    477. 

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

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

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

  480.   222      confirming := yes( 'Confirm replacements?  ');
    481. 

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

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

  483.   223    ELSE
    484. 

  484.   224      confirming := Dumstr[0] = 'Y';
    485. 

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

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

  487.   225    END;
    488. 

  488.   226  
    489. 

  489.   227    IF NOT ParsedParam( NextParam(), Dumstr ) THEN
    490. 

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

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

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

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

  494.   228  
    495. 

  495.   229      EntryBox := 0;
    496. 

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

  497.   230      ExitBox := 0;
    498. 

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

  499.   231      DoCounting := FALSE;
    500. 

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

  501.   232  
    502. 

  502.   233      editing := yes( 'Invoke editor?  ');
    503. 

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

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

  505.   234    ELSE
    506. 

  506.   235      editing := Dumstr[0] = 'Y';
    507. 

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

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

  509.   236    END;
    510. 

  510.   237  
    511. 

  511.   238    IF NOT ParsedParam( NextParam(), Dumstr ) THEN
    512. 

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

  513. *****                        ^ not supported yet
    514. 

  514. *****                                  ^ not supported yet
    515. 

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

  516.   239      stripping := yes( 'Strip trailing blanks and EOFs?  ');
    517. 

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

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

  519.   240    ELSE
    520. 

  520.   241      stripping := Dumstr[0] = 'Y';
    521. 

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

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

  523.   242    END;
    524. 

  524.   243  
    525. 

  525.   244    IF NOT ParsedParam( NextParam(), Dumstr ) THEN
    526. 

  526. *****           ^ not supported yet
    527. 

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

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

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

  530.   245      preserving := yes( 'Preserve file date/time stamps?  ');
    531. 

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

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

  533.   246    ELSE
    534. 

  534.   247      preserving := Dumstr[0] = 'Y';
    535. 

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

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

  537.   248    END;
    538. 

  538.   249  
    539. 

  539.   250    IF NOT ParsedParam( NextParam(), Dumstr ) THEN
    540. 

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

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

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

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

  544.   251      GetTabInfo(entabbing, detabbing, tabInterval);
    545. 

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

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

  547.   252    ELSE
    548. 

  548.   253      entabbing := Dumstr[0] = 'E';
    549. 

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

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

  551.   254      detabbing := Dumstr[0] = 'D';
    552. 

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

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

  554.   255  	IF entabbing OR detabbing THEN
    555. 

  555.   256  	  IF NOT StrToCardinal(Dumstr, 1, tabInterval) THEN
    556. 

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

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

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

  559.   257  	    tabInterval := 8;
    560. 

  560.   258  	  END;
    561. 

  561.   259  	ELSE
    562. 

  562.   260  	  tabInterval := 0;
    563. 

  563.   261  	END;
    564. 

  564.   262    END;
    565. 

  565.   263  
    566. 

  566.   264    IF (NOT Present( EOFmark, SearchFor )) AND (NOT Present(
    567. 

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

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

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

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

  571.   265        EOFmark, ReplaceWith )) THEN
    572. 

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

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

  574.   266      WriteEol( outp, '' );
    575. 

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

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

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

  578.   267      WriteStr( outp, 'Searching for "');
    579. 

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

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

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

  582.   268      WriteStr( outp, SearchFor );
    583. 

  583. *****      ^ not supported yet
    584. 

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

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

  586.   269      WriteStr( outp, '" and replacing it with "' );
    587. 

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

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

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

  590.   270      WriteStr( outp, ReplaceWith );
    591. 

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

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

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

  594.   271      WriteStr( outp, '" in "');
    595. 

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

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

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

  598.   272      WriteStr( outp, FileSpec );
    599. 

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

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

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

  602.   273      WriteEol( outp, '".' );
    603. 

  603. *****      ^ not supported yet
    604. 

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

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

  606.   274    END;
    607. 

  607.   275  
    608. 

  608.   276    DirHandle := 0FFFFH;
    609. 

  609.   277    SavedMessage := FindFirstFile( FileSpec, DirHandle, FileInfo );
    610. 

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

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

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

  613.   278    PrintMessage( SavedMessage );
    614. 

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

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

  616.   279    GetDrivePathAndName( FileSpec, DriveLetter, PathName, fname );
    617. 

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

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

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

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

  621.   280  
    622. 

  622.   281    ExclSet( FieldExitKeySet, 328 );
    623. 

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

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

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

  626.   282    ExclSet( FieldExitKeySet, 331 );
    627. 

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

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

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

  630.   283    ExclSet( FieldExitKeySet, 333 );
    631. 

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

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

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

  634.   284    ExclSet( FieldExitKeySet, 336 );
    635. 

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

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

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

  638.   285      (*Arrow keys are now removed from FieldExitKeySet.*)
    639. 

  639.   286  
    640. 

  640.   287    WHILE SavedMessage = NoError DO
    641. 

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

  642.   288      AssignStr( FileInfo.name, fname );
    643. 

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

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

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

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

  647.   289      IF (CompareStr( '.', fname ) # 0)
    648. 

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

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

  650.   290         AND (CompareStr('..', fname )#0) THEN
    651. 

  651. *****              ^ not supported yet
    652. 

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

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

  654.   291        ChangesMade := FALSE;
    655. 

  655.   292        IF Length(PathName) > 0 THEN
    656. 

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

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

  658.   293          Insert( PathName, fname, 0 );
    659. 

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

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

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

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

  663.   294        END;
    664. 

  664.   295        Insert( ':', fname, 0 );
    665. 

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

  666. *****                     ^ not supported yet
    667. 

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

  668.   296        Insert( DriveLetter, fname, 0 );
    669. 

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

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

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

  672.   297        NewList( TheList );
    673. 

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

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

  675.   298  
    676. 

  676.   299        IF TextFileToList( fname, TheList ) # NoError THEN
    677. 

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

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

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

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

  681.   300          WriteStr( outp, 'Could not open ' );
    682. 

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

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

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

  685.   301          WriteEol( outp, fname );
    686. 

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

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

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

  689.   302        ELSE
    690. 

  690.   303          IF preserving THEN
    691. 

  691.   304            GetStamp( fname );
    692. 

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

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

  694.   305          END;
    695. 

  695.   306          LstLngth := ListLength( TheList );
    696. 

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

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

  698.   307          WriteEol( outp, '' );
    699. 

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

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

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

  702.   308          WriteEol( outp,
    703. 

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

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

  705.   309  '===============================================================================');
    706. 

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

  707.   310          WriteEol( outp, fname );
    708. 

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

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

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

  711.   311  
    712. 

  712.   312          PatternCount := 1;
    713. 

  713.   313          WHILE PatternCount <= ListLength(PatternList) DO
    714. 

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

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

  716.   314            GetElmt( PatternList, PatternCount, SearchFor, TypeCode );
    717. 

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

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

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

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

  721.   315            GetElmt( ReplaceList, PatternCount, ReplaceWith, TypeCode );
    722. 

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

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

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

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

  726.   316            StartingAt := 1;
    727. 

  727.   317            LOOP
    728. 

  728.   318              LineNum := ScanList( SearchFor, TheList, StartingAt,
    729. 

  729. *****                         ^ not supported yet
    730. 

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

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

  732.   319                  LstLngth, FoundSpot );
    733. 

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

  734.   320              IF LineNum = 0 THEN
    735. 

  735.   321                EXIT;
    736. 

  736.   322              ELSE
    737. 

  737.   323                GetElmt( TheList, LineNum, x, TypeCode );
    738. 

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

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

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

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

  742.   324                IF confirming THEN
    743. 

  743.   325                  WriteEol( outp, '' );
    744. 

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

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

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

  747.   326                  WriteEol( outp, '-------------------------------------------' );
    748. 

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

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

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

  751.   327                  WriteEol( outp, x );
    752. 

  752. *****                  ^ not supported yet
    753. 

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

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

  755.   328                  WriteStr( outp, 'Replace "' );
    756. 

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

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

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

  759.   329                  WriteStr( outp, SearchFor );
    760. 

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

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

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

  763.   330                  WriteStr( outp, '" ' );
    764. 

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

  765. *****                            ^ not supported yet
    766. 

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

  767.   331                  AssignStr( '   with "', PromptStr );
    768. 

  768. *****                  ^ not supported yet
    769. 

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

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

  771.   332                  Append( PromptStr, ReplaceWith );
    772. 

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

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

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

  775.   333                  Append( PromptStr, '"? ' );
    776. 

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

  777. *****                          ^ not supported yet
    778. 

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

  779.   334                  IF yes(PromptStr) THEN
    780. 

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

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

  782.   335                    IF Equal( ReplaceWith, MeansDelete ) THEN
    783. 

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

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

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

  786.   336                      ListDelete( TheList, LineNum, 1 );
    787. 

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

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

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

  790.   337                      DEC( LineNum );
    791. 

  791. *****                      ^ undeclared identifier
    792. 

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

  793.   338                    ELSE
    794. 

  794.   339                      ReplaceStr( SearchFor, ReplaceWith, x );
    795. 

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

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

  797. *****                                             ^ not supported yet
    798. 

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

  799.   340                      ListReplace( x, StrCode, TheList, LineNum );
    800. 

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

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

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

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

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

  805.   341                    END;
    806. 

  806.   342                    ChangesMade := TRUE;
    807. 

  807.   343                  ELSIF editing AND yes('Edit? ') THEN
    808. 

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

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

  810.   344                    CursorRow := 1;
    811. 

  811.   345                    INC( FoundSpot );
    812. 

  812. *****                    ^ undeclared identifier
    813. 

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

  814.   346  
    815. 

  815.   347                    IF 0 # ScrnEdit( 1,1, 80,25, TheList, LineNum,
    816. 

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

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

  818.   348                        FoundSpot, CursorRow, EditsMade, FALSE,
    819. 

  819.   349                        DummyFrame ) THEN
    820. 

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

  821.   350                    END;
    822. 

  822.   351  
    823. 

  823.   352                    ClearScreen();
    824. 

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

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

  826.   353                    ChangesMade := EditsMade AND yes('Save? ');
    827. 

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

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

  829.   354                  END;
    830. 

  830.   355                ELSE
    831. 

  831.   356                  IF Equal( ReplaceWith, MeansDelete ) THEN
    832. 

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

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

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

  835.   357                    ListDelete( TheList, LineNum, 1 );
    836. 

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

  837. *****                                ^ not supported yet
    838. 

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

  839.   358                    DEC( LineNum );
    840. 

  840. *****                    ^ undeclared identifier
    841. 

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

  842.   359                  ELSE
    843. 

  843.   360                    ReplaceStr( SearchFor, ReplaceWith, x );
    844. 

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

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

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

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

  848.   361                    ListReplace( x, StrCode, TheList, LineNum );
    849. 

  849. *****                    ^ not supported yet
    850. 

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

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

  852. *****                                             ^ not supported yet
    853. 

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

  854.   362                  END;
    855. 

  855.   363                  WriteStr( outp, "|");
    856. 

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

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

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

  859.   364                  ChangesMade := TRUE;
    860. 

  860.   365                END;
    861. 

  861.   366                IF LineNum = LstLngth THEN
    862. 

  862.   367                  EXIT;
    863. 

  863.   368                ELSE
    864. 

  864.   369                  StartingAt := LineNum + 1;
    865. 

  865.   370                END;
    866. 

  866.   371              END;
    867. 

  867.   372            END;
    868. 

  868.   373            INC( PatternCount );
    869. 

  869. *****            ^ undeclared identifier
    870. 

  870. *****                              ^ not supported yet
    871. 

  871.   374          END;
    872. 

  872.   375  
    873. 

  873.   376          IF stripping OR entabbing OR detabbing THEN
    874. 

  874.   377            LineNum := 1;
    875. 

  875.   378            WHILE LineNum <= LstLngth DO
    876. 

  876.   379              GetElmt( TheList, LineNum, x, TypeCode );
    877. 

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

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

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

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

  881.   380  			IF entabbing THEN
    882. 

  882.   381  			  IF Present(' ', x) THEN
    883. 

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

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

  885.   382                  ChangesMade := TRUE;
    886. 

  886.   383  				InsertTabs(x, tabInterval, TRUE); (* TRUE for LeadingOnly *)
    887. 

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

  888. *****  				           ^ not supported yet
    889. 

  889. *****  				                               ^ not supported yet
    890. 

  890.   384                  ListReplace( x, StrCode, TheList, LineNum );
    891. 

  891. *****                  ^ not supported yet
    892. 

  892. *****                               ^ not supported yet
    893. 

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

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

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

  896.   385  			  END;
    897. 

  897.   386  			END;
    898. 

  898.   387  			IF detabbing THEN
    899. 

  899.   388  			  IF Present(TAB, x) THEN
    900. 

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

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

  902.   389                  ChangesMade := TRUE;
    903. 

  903.   390  				ReplaceTabs(x, tabInterval);
    904. 

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

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

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

  907.   391                  ListReplace( x, StrCode, TheList, LineNum );
    908. 

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

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

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

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

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

  913.   392  			  END;
    914. 

  914.   393  			END;
    915. 

  915.   394              StrLngth := Length(x);
    916. 

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

  917. *****                                 ^ not supported yet
    918. 

  918.   395              IF stripping AND (StrLngth > 0) AND (x[ StrLngth - 1 ] = ' ') THEN
    919. 

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

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

  921.   396                ChangesMade := TRUE;
    922. 

  922.   397                WriteStr( outp, ".");
    923. 

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

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

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

  926.   398                CutTrailingChars( ' ', x );
    927. 

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

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

  929.   399                ListReplace( x, StrCode, TheList, LineNum );
    930. 

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

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

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

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

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

  935.   400                INC( LineNum );
    936. 

  936. *****                ^ undeclared identifier
    937. 

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

  938.   401              ELSIF stripping AND Present( EOFmark, x ) THEN
    939. 

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

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

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

  942.   402                ChangesMade := TRUE;
    943. 

  943.   403                WriteStr( outp, ",");
    944. 

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

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

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

  947.   404                DeleteChar( EOFmark[0], x );
    948. 

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

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

  950. *****                                     ^ not supported yet
    951. 

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

  952.   405                IF x[0] # 0C THEN
    953. 

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

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

  955.   406                  ListReplace( x, StrCode, TheList, LineNum );
    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.   407                  INC( LineNum );
    962. 

  962. *****                  ^ undeclared identifier
    963. 

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

  964.   408                ELSE
    965. 

  965.   409                  ListDelete( TheList, LineNum, 1 );
    966. 

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

  967. *****                              ^ not supported yet
    968. 

  968. *****                                                  ^ not supported yet
    969. 

  969.   410                  DEC( LstLngth );
    970. 

  970. *****                  ^ undeclared identifier
    971. 

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

  972.   411                END;
    973. 

  973.   412              ELSE
    974. 

  974.   413                INC( LineNum );
    975. 

  975. *****                ^ undeclared identifier
    976. 

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

  977.   414              END;
    978. 

  978.   415            END;
    979. 

  979.   416          END;
    980. 

  980.   417  
    981. 

  981.   418          IF ChangesMade THEN
    982. 

  982.   419            PrintMessage( TextListToFile( TheList, fname ) );
    983. 

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

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

  985. *****                                          ^ not supported yet
    986. 

  986. *****                                                   ^ not supported yet
    987. 

  987.   420            IF preserving THEN
    988. 

  988.   421              SetStamp( fname );
    989. 

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

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

  991.   422            END;
    992. 

  992.   423          END;
    993. 

  993.   424        END;
    994. 

  994.   425        DisposeList( TheList );
    995. 

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

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

  997.   426      END;
    998. 

  998.   427      SavedMessage := FindNextFile( DirHandle, FileInfo );
    999. 

  999. *****                      ^ not supported yet
    1000. 

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

  1001.   428    END;
    1002. 

  1002.   429    WriteEol( outp, '' );
    1003. 

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

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

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

  1006.   430    WriteStr( outp, 'Done.' );
    1007. 

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

  1008. *****              ^ not supported yet
    1009. 

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

  1010.   431    WriteStr( outp, CHR(7) );
    1011. 

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

  1012. *****              ^ not supported yet
    1013. 

  1013. *****                    ^ undeclared identifier
    1014. 

  1014. *****                         ^ not supported yet
    1015. 

  1015.   432  END snr.
    1016. 

  1016. 

  1017.   581 errors
    1018. 

  1018. 

  1019.