home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / ctenari / Strach / NAPISYUP.DAT < prev    next >
INI File  |  1998-07-15  |  59KB  |  1,962 lines
  1. [HlavniMenu]
  2. ;Jádro programu UceniTP7.PAS.
  3. Menu: Hlavní nabídka. 
  4. A - System1.
  5. B - System2.
  6. C - System3.
  7. D - System4.
  8. E - System5.
  9. F - .
  10. G - CRT.
  11. H - .
  12. I - DOS1.
  13. J - DOS2.
  14. K - Konec programu.
  15. L - Graph1.
  16. M - Graph2.
  17. N - Nápov╪da.
  18. O - Graph3.
  19. P - Graph4.
  20. Q - .
  21. R - Printer.
  22. S - .
  23. T - String.
  24. U - .
  25. V - Overlay.
  26. W - .
  27. X - .
  28. Y - .
  29. Z - VAS1DOS.
  30. Zadejte reºim [A..Z]+Enter:
  31.  
  32. [Napoveda1]
  33. Struƒná nápov╪da k programu.
  34.    Program UceniTP7.PAS slouºí k v∞uce správného pouºívání datov∞ch
  35. typà,funkcí a procedur p²eddefinovan∞ch ve standardních jednot-
  36. kách jazyka Turbo Pascal 7.0v. 
  37.   V∞b╪r jednotky (n╪které jsou rozd╪leny do více ƒástí), se pro- 
  38. vede z Hlavního menu zadáním znaku A aº Z a kl. Enter, mimo tyto 
  39. klávesy:
  40.  N - vyvolá nápov╪du k programu.
  41.  K - ukonƒí program.
  42.  Z - provede návrát z jednotky do hlavního menu.
  43.    Funkce a procedury jsou se²azeny podle abecedy. 
  44. Struƒn∞ popis k nim je uveden spolu s jejich p²íklady pouºití.
  45. Vstupní data se zapisují do dialogového okna (max. 255 zn.).
  46. K editaci lze pouºít kl. Ins,Del,Backspace a τipky. 
  47. Enter - vstup dat ,ESC - zp╪t do menu.
  48.  
  49. [JeVAS1DOS]
  50. ;Menu jednotky UCTP7J01.PAS
  51. Menu: Jednotka VAS1DOS.
  52. A - Procedure Titulek.
  53. B - Procedure Cas.
  54. C - Procedure SysCas.
  55. D - Procedure Prikaz.
  56. E - Procedure Trylek.
  57. F - Procedure PRadek(B1,B2).
  58. G - Procedure Uklid.
  59. H - Function Log.
  60. I - .
  61. J - .
  62. K - .
  63. L - .
  64. M - .
  65. N - Nápov╪da.
  66. O - .
  67. P - .
  68. Q - .
  69. R - .
  70. S - .
  71. T - .
  72. U - .
  73. V - .
  74. W - .
  75. X - .
  76. Y - .
  77. Z - Zp╪t do hlavního menu.
  78. Zadejte reºim [A..Z]+Enter:
  79.  
  80. [JeSystem1]
  81. ;Menu jednotky UCTP7J03.PAS.
  82. Menu: Jednotka System 1. ƒást.
  83. A - Input/Output.
  84. B - InOutRes.
  85. C - FileMode.
  86. D - ErrorAddr/ExitCode,Proc.
  87. E - Ovr...
  88. F - FreeList/Heap...
  89. G - SaveInt...
  90. H - PrefixSeg/Seg...
  91. I - StackLimit/RandSeed.
  92. J - Test8087.
  93. K - .
  94. L - .
  95. M - .
  96. N - Nápov╪da.
  97. O - .
  98. P - .
  99. Q - .
  100. R - .
  101. S - .
  102. T - .
  103. U - .
  104. V - .
  105. W - .
  106. X - .
  107. Y - .
  108. Z - Zp╪t do hlavního menu.
  109. Zadejte reºim [A..Z]+Enter:
  110.  
  111. [JeSystem2]
  112. ;Menu jednotky UCTP7J02.PAS.
  113. Menu: Jednotka System 2. ƒást.
  114. A - Function Abs.
  115. B - Function Addr.
  116. C - Procedure Append.
  117. D - Fuction ArcTan.
  118. E - Procedure Assign.
  119. F - Function Assigned.
  120. G - Procedure BlockRead.
  121. H - Procedure BlockWrite.
  122. I - Procedure Break.
  123. J - Function Chr.
  124. K - Procedure ChDir.
  125. L - Procedure Close.
  126. M - Function Concat.
  127. N - Nápov╪da.
  128. O - Function Copy.
  129. P - Function Cos.
  130. Q - Procedure Continue.
  131. R - Function CSeg.
  132. S - Procedure Dec.
  133. T - Procedure Delete.
  134. U - Procedure Dispose.
  135. V - Function DSeg.
  136. W - Function Eof.
  137. X - Function EoLn.
  138. Y - Procedure Erase.
  139. Z - Zp╪t do hlavního menu.
  140. Zadejte reºim [A..Z]+Enter:
  141.  
  142. [JeSystem3]
  143. ;Menu jednotky UCTP7J04.PAS.
  144. Menu: Jednotka System 3. ƒást.
  145. A - Exclude.
  146. B - Exit.
  147. C - Exp.
  148. D - FilePos.
  149. E - FileSize.
  150. F - FillChar.
  151. G - Flush.
  152. H - Frac.
  153. I - FreeMem.
  154. J - GetDir.
  155. K - GetMem.
  156. L - Halt.
  157. M - Hi.
  158. N - Nápov╪da.
  159. O - High.
  160. P - Inc.
  161. Q - Include.
  162. R - Insert.
  163. S - Int.
  164. T - IOResult.
  165. U - Length.
  166. V - Ln.
  167. W - Lo.
  168. X - Low.
  169. Y - Mark.
  170. Z - Zp╪t do hlavního menu.
  171. Zadejte reºim [A..Z]+Enter:
  172.  
  173. [JeSystem4]
  174. Menu: Jednotka System 4. ƒást.
  175. A - Function MaxAvail.
  176. B - Function MemAvail.
  177. C - Procedure MkDir.
  178. D - Procedure Move.
  179. E - Procedure New.
  180. F - Function Odd.
  181. G - Function Ofs.
  182. H - Function Ord.
  183. I - Function ParamCount.
  184. J - Function ParamStr.
  185. K - Function Pi.
  186. L - Function Pos.
  187. M - Function Pred.
  188. N - Nápov╪da.
  189. O - Function Ptr.
  190. P - Function Random.
  191. Q - Procedure Randomize.
  192. R - Procedure Read.
  193. S - Procedure ReadLn.
  194. T - Procedure Release.
  195. U - Procedure Rename.
  196. V - Procedure Reset.
  197. W - Procedure Rewrite.
  198. X - Procedure RmDir.
  199. Y - Function Round.
  200. Z - Zp╪t do hlavního menu.
  201. Zadejte reºim [A..Z]+Enter:
  202.  
  203. [JeSystem5]
  204. Menu: Jednotka System 5. ƒást.
  205. A - Procedure RunError.
  206. B - Procedure Seek.
  207. C - Function SeekEof.
  208. D - Function SeekEoln.
  209. E - Function Seg.
  210. F - Procedure SetTextBuf.
  211. G - Function Sin.
  212. H - Function SizeOf.
  213. I - Function SPtr.
  214. J - Function Sqr.
  215. K - Function Sqrt.
  216. L - Function SSeg.
  217. M - Procedure Str.
  218. N - Nápov╪da.
  219. O - Function Succ.
  220. P - Function Swap.
  221. Q - Function Trunc.
  222. R - Procedure Truncate.
  223. S - Function TypeOf.
  224. T - Function UpCase.
  225. U - Procedure Val.
  226. V - Procedure Write.
  227. W - Procedure WriteLn.
  228. X - .
  229. Y - .
  230. Z - Zp╪t do hlavního menu.
  231. Zadejte reºim [A..Z]+Enter:
  232.  
  233. [JeCRT]
  234. Menu: Jednotka CRT.
  235. A - TextAttr a const.
  236. B - LastMode a DirectVideo.
  237. C - WindMin a WindMax.
  238. D - CheckSnow/Eof/Break.
  239. E - Procedure AssignCrt.
  240. F - Procedure ClrEol.
  241. G - Procedure ClrScr.
  242. H - Procedure Delay.
  243. I - Procedure DelLine.
  244. J - Procedure GotoXY.
  245. K - Procedure HighVideo.
  246. L - Procedure InsLine.
  247. M - Function KeyPressed.
  248. N - Nápov╪da.
  249. O - Procedure LowVideo.
  250. P - Procedure NormVideo.
  251. Q - Procedure NoSound.
  252. R - Function ReadKey.
  253. S - Procedure Sound.
  254. T - Procedure TexBackground.
  255. U - Procedure TextColor.
  256. V - Procedure TextMode.
  257. W - Procedure Window.
  258. X - Function WhereX.
  259. Y - Function WhereY.
  260. Z - Zp╪t do hlavního menu.
  261. Zadejte reºim [A..Z]+Enter:
  262.  
  263. [JeDOS1]
  264. Menu : Jednotka DOS1.
  265. A - Function DiskFree.
  266. B - Function DiskSize.
  267. C - Function DosExitCode.
  268. D - Function DosVersion.
  269. E - Function EnvCount.
  270. F - Function EnvStr.
  271. G - Procedure Exec.
  272. H - Function FExpand.
  273. I - Procedure FSplit.
  274. J - Procedure FindFirst.
  275. K - Procedure FindNext.
  276. L - Function FSearch.
  277. M - Procedure GetCBreak.
  278. N - Nápov╪da.
  279. O - Procedure GetDate.
  280. P - Function GetEnv.
  281. Q - Procedure GetFAttr.
  282. R - Procedure GetFTime.
  283. S - Procedure GetIntVec.
  284. T - Procedure GetTime.
  285. U - Procedure GetVerify.
  286. V - Procedure Intr.
  287. W - Procedure Keep.
  288. X - Procedure MsDos.
  289. Y - Procedure PackTime.
  290. Z - Zp╪t do hlavního menu.
  291. Zadejte reºim [A..Z]+Enter:
  292.  
  293. [JeDOS2]
  294. Menu : Jednotka DOS1.
  295. A - Procedure SetCBreak.
  296. B - Procedure SetDate.
  297. C - Procedure SetFAttr.
  298. D - Procedure SetFTime.
  299. E - Procedure SetIntVec.
  300. F - Procedure SetTime.
  301. G - Procedure SetVerify.
  302. H - Procedure SwapVectors.
  303. I - Procedure UnpackTime.
  304. J - .
  305. K - .
  306. L - .
  307. M - .
  308. N - Nápov╪da.
  309. O - .
  310. P - .
  311. Q - .
  312. R - .
  313. S - .
  314. T - .
  315. U - .
  316. V - .
  317. W - .
  318. X - .
  319. Y - .
  320. Z - Zp╪t do hlavního menu.
  321. Zadejte reºim [A..Z]+Enter:
  322.  
  323. [JeGraph1]
  324. Menu: Jednotka Graph 1. ƒást.
  325. A - Procedure Arc.
  326. B - Procedure Bar.
  327. C - Procedure Bar3D.
  328. D - Procedure Circle.
  329. E - Procedure ClearDevice.
  330. F - Procedure ClearViewPort.
  331. G - Procedure CloseGraph.
  332. H - Procedure DetectGraph.
  333. I - Procedure DrawPoly.
  334. J - Procedure Ellipse.
  335. K - Procedure FillEllipse.
  336. L - Procedure FillPoly.
  337. M - Procedure FloodFill.
  338. N - Nápov╪da.
  339. O - Procedure GetArcCoords.
  340. P - Procedure GetAspectRatio.
  341. Q - Function GetBkColor.
  342. R - Function GetColor.
  343. S - Function GetDefaultPalette.
  344. T - Function GetDriverName.
  345. U - Procedure GetFillPattern.
  346. V - Procedure GetFillSettings.
  347. W - Function GetGraphMode.
  348. X - Procedure GetImage.
  349. Y - Procedure GetLineSettings.        
  350. Z - Zp╪t do hlavního menu.
  351. Zadejte reºim [A..Z]+Enter:
  352.  
  353. [JeGraph2]
  354. Menu: Jednotka Graph 2. ƒást.
  355. A - Function GetMaxColor.
  356. B - Function GetMaxMode.
  357. C - Function GetMaxX.
  358. D - Function GetMaxY.
  359. E - Function GetModeName.
  360. F - Procedure GetModeRange.
  361. G - Procedure GetPalette.
  362. H - Function GetPaletteSize.
  363. I - Function GetPixel.
  364. J - Procedure GetTextSettings.
  365. K - Procedure GetViewSettings.
  366. L - Function GetX.
  367. M - Function GetY.
  368. N - Nápov╪da.
  369. O - Procedure GraphDefaults.
  370. P - Function GraphErrorMsg.
  371. Q - Function GraphResult.
  372. R - Function ImageSize.
  373. S - Procedure InitGraph.
  374. T - Function InstallUserDriver. 
  375. U - Function InstallUserFont.
  376. V - Procedure Line.
  377. W - Procedure LineRel.    
  378. X - Procedure LineTo.
  379. Y - Procedure MoveRel.
  380. Z - Zp╪t do hlavního menu.
  381. Zadejte reºim [A..Z]+Enter:
  382.  
  383. [JeGraph3]
  384. Menu: Jednotka Graph 3. ƒást.
  385. A - Procedure MoveTo.
  386. B - Procedure OutText.
  387. C - Procedure OutTextXY.
  388. D - Procedure PieSlice.
  389. E - Procedure PutImage.
  390. F - Procedure PutPixel.
  391. G - Procedure Rectangle.
  392. H - Function RegisterBGIdriver.
  393. I - Function RegisterBGIfont.
  394. J - Procedure RestoreCrtMode.
  395. K - Procedure Sector.
  396. L - Procedure SetAllPalette.
  397. M - Procedure SetAspectRatio.
  398. N - Nápov╪da.
  399. O - Procedure SetBkColor.
  400. P - Procedure SetColor.
  401. Q - Procedure SetFillPattern.
  402. R - Procedure SetFillStyle.
  403. S - Procedure SetGraphBufSize.
  404. T - Procedure SetGraphMode.
  405. U - Procedure SetLineStyle.
  406. V - Procedure SetPalette.
  407. W - Procedure SetRGBPalette.
  408. X - Procedure SetTextJustify.
  409. Y - Procedure SetTextStyle.
  410. Z - Zp╪t do hlavního menu.
  411. Zadejte reºim [A..Z]+Enter:
  412.  
  413. [JeGraph4]
  414. Menu: Jednotka Printer.
  415. A - Procedure SetUserCharSize.
  416. B - Procedure SetViewPort.
  417. C - Procedure SetWriteMode.
  418. D - Function TextHeight.
  419. E - Function TextWidth.
  420. F - .
  421. G - .
  422. H - .
  423. I - .
  424. J - .
  425. K - .
  426. L - .
  427. M - .
  428. N - Nápov╪da.
  429. O - .
  430. P - .
  431. Q - .
  432. R - .
  433. S - .
  434. T - .
  435. U - .
  436. V - .
  437. W - .
  438. X - .
  439. Y - .
  440. Z - Zp╪t do hlavního menu.
  441. Zadejte reºim [A..Z]+Enter:
  442.  
  443. [JeStrings]
  444. Menu: Jednotka Strings.
  445. A - Function StrCat.
  446. B - Function StrComp.
  447. C - Function StrCopy.
  448. D - Procedure StrDispose.
  449. E - Function StrECopy.
  450. F - Function StrEnd.
  451. G - Function StrIComp.
  452. H - Function StrLCat.
  453. I - Function StrLComp.
  454. J - Function StrLCopy.
  455. K - Function StrLen.
  456. L - Function StrLIComp.
  457. M - Function StrLower.
  458. N - Nápov╪da.
  459. O - Function StrMove.
  460. P - Function StrNew.
  461. Q - Function StrPas.
  462. R - Function StrPCopy.
  463. S - Function StrPos.
  464. T - Function StrRScan.
  465. U - Function StrScan.
  466. V - Function StrUpper.
  467. W - .
  468. X - .
  469. Y - .
  470. Z - Zp╪t do hlavního menu.
  471. Zadejte reºim [A..Z]+Enter:
  472.  
  473. [JeOverlay]
  474. Menu: Jednotka Overlay.
  475. A - Procedure OvrClearBuf.
  476. B - Function OvrGetBuf.
  477. C - Function OvrGetRetry.
  478. D - Procedure OvrInit.
  479. E - Procedure OvrInitEMS.
  480. F - Procedure OvrSetBuf.
  481. G - Procedure OvrSetRetry.
  482. H - .
  483. I - .
  484. J - .
  485. K - .
  486. L - .
  487. M - .
  488. N - Nápov╪da.
  489. O - .
  490. P - .
  491. Q - .
  492. R - .
  493. S - .
  494. T - .
  495. U - .
  496. V - .
  497. W - .
  498. X - .
  499. Y - .
  500. Z - Zp╪t do hlavního menu.
  501. Zadejte reºim [A..Z]+Enter:
  502.  
  503. [JePrinter]
  504. Menu : Jednotka Printer.
  505. A - Soubor Lst.
  506. B - .
  507. C - .
  508. D - .
  509. E - .
  510. F - .
  511. G - .
  512. H - .
  513. I - .
  514. J - .
  515. K - .
  516. L - .
  517. M - .
  518. N - Nápov╪da.
  519. O - .
  520. P - .
  521. Q - .
  522. R - .
  523. S - .
  524. T - .
  525. U - .
  526. V - .
  527. W - .
  528. X - .
  529. Y - .
  530. Z - Zp╪t do hlavního menu.
  531. Zadejte reºim [A..Z]+Enter:
  532.  
  533. ;Procedury JVTit,JVCas,JVSys,JVTryl,JVPRad,JVPrik,JVUklid,JVLog z jednotky 
  534. ;UCTP7J01.PAS ( JeVAS1DOS).
  535.  
  536. [JVTit]
  537. Procedure Titulek( JMPRG,Datum : string);
  538.      Vypíτe název programu,datum,jméno a adresu autora.
  539. Titulek vypíτe aktuální barvou písma na aktuální barvu pozadí.
  540. Volat po procedu²e ClrScr.¼eká na stisk n╪jaké klávesy. Parametry
  541. p²edané procedu²e Titulek vyuºívá i procedura PRadek.
  542.  
  543. [JVCas]
  544. Procedure Cas( BP,BZ : byte );
  545.       Vypisuje do pravého horního rohu obrazovky ƒas a ƒeká na stisk n╪jaké 
  546. klávesy. Parametr BP je barva pozadí, BZ je barva znakà prvního ²ádku.
  547. Pvní znak je vypisován na pozici (66,1) aktuální obrazovky.
  548.  
  549. [JVSys]
  550. Procedure SysCas( var SC : real );
  551.       Vrací okamºit∞ systémov∞ ƒas jako reálné ƒíslo vypoƒítané 
  552. podle vzorce: SC:=H*3600 + M*60 + V + DV/100; kde H jsou hodiny,
  553. M minuty, V vte²iny a DV setiny vte²iny.
  554.  
  555. [JVPrik]
  556. Procedure Prikaz ( var ZN : Char );
  557.    Vrací znak z intervalu A..Z zadan∞ z klávesnice. Malá písmena
  558. p²evádí na velká. Ostatní znaky ignoruje.
  559.  
  560. [JVTryl]
  561. Procedure Trylek;
  562.      Zahraje na vnit²ní reproduktor krátkou zn╪lku.
  563. Jejím autorem je màj táta.
  564.  
  565. [JVPRad]
  566. Procedure PRadek ( B1,B2 : byte );
  567.     Vypíτe na první ²ádek celé obrazovky název programu a zkratku
  568. VAS-"rok"c. Obrazovku pod prvním ²ádkem vymaºe a nastaví barvy takto:
  569. B1 - barva pozadí, B2 - barva znakà. Procedura PRadek pouºívá údajà 
  570. z parametrà p²edan∞ch procedu²e Titulek z jednotky VAS1DOS.TPU.
  571.  
  572. [JVUklid]
  573. Procedure Uklid;
  574.      Nastaví ƒerné pozadí ,bílé znaky a pak smaºe aktivní okno,
  575. nebo celou obrazovku.
  576.  
  577. [JVLog]
  578. Function Log ( var R : real );
  579.        Vypoƒítá dekadick∞ logaritmus z absolutní hodnoty zadaného
  580. ƒísla. Argument i v∞sledek je typu real.
  581.  
  582. ;Procedury JS1IO;JS1InOutRes;JS1FMode;JS1EEE;JS1OVR;JS1Heap;JS1SInt;
  583. ;JS1Seg;JS1StRS a JS1T87 jsou z jednotky UCTP7J03.PAS (JeSystem1).
  584.  
  585. [JS1IO]
  586. Prom╪nná Input Output.
  587.     Prom╪nná Input/Output je p²i²azena standardnímu vstupnímu/v∞stupnímu
  588. souboru operaƒního systému. V reálném reºimu je nahrazuje jednotka CRT.
  589. Windows je implicitn╪ nepouºívají.
  590.  
  591. [JS1InOutRes]
  592. Prom╪nná InOutRes.
  593.    Ukládá se do ní chybov∞ kód poslední provedené operace 
  594. vstupu/v∞stupu. Její hodnotu ƒte funkce IOResult.
  595.  
  596. [JS1FMode]
  597. Prom╪nná FileMode.
  598.     Definuje reºim p²ístupu k diskovému souboru.0 - ote²en pouze pro 
  599. ƒtení, 1 - otev²en pouze pro zápis,2 otev²en pro ƒtení a zápis. 
  600.  
  601. [JS1EEE]
  602. Prom╪nné ErrorAddr,ExitCode a ExitProc.  
  603.    ErrorAddr obsahuje adresu p²íkazu, kter∞ zpàsobil chybu b╪hu pro- 
  604. gramu. ExitCode se nastaví na hodnotu ràznou od nuly za p²edpokladu, ºe
  605. dojde k chyb╪ b╪hu programu nebo po Halt. ExitProc umoºσuje instalovat
  606. vlastní proceduru, která se bude volat p²i ukonƒení provád╪ní programu.
  607.  
  608. [JS1OVR]
  609. Prom╪nné Ovr... 
  610.    Tyto prom╪nné vyuºívá správa p²ekryvn∞ch kódà z jednotky Overlay.
  611.    
  612. [JS1Heap]
  613.    Prom╪nné FreeList, HeapPtr, HeapOrg ,HeapEnd a HeapError.
  614. Vyuºíva jí se p²i správ╪ volné operaƒní pam╪ti tzv. haldy. FreeList 
  615. obsahuje adresu prvního záznamu seznamu s inf. o volném bloku pam╪ti 
  616. v hald╪. Prom╪nné Heap.. obsahují adresy aktuálního stavu napln╪ní haldy.
  617.  HeapError - obsahuje ukazatel na adresu funkce k oτet²ení kritick∞ch
  618. situací. 
  619.  
  620. [JS1SInt]
  621. Prom╪nné SaveInt...
  622.     Skupina prom╪nn∞ch SaveInt se pouºívá pro uloºení pàvodních vektorà
  623. p²eruτení p²i instalaci interních obsluºn∞ch rutin pro p²eruτení. Na míst╪
  624. teƒek jsou ƒísla vektorà od 00 do 75 Hex.
  625.  
  626. [JS1Seg]
  627. Prom╪nná PrefixSeg a prom╪nné Seg... 
  628.      V PrefixSeg je adresa segmentu s PSP spuτt╪ného programu. V Seg...
  629. sou adresy segmentà dat programu BIOS,pam╪tí grafick∞ch adaptérà EGA,
  630. VGA,MONO a barevn∞ch adaptérà.
  631.  
  632. [JS1StRS]
  633. Prom╪nné StackLimit a RandSeed.
  634.    StackLimit obsahuje minimální velikost volné pam╪ti v zásobníkovém
  635. segmentu, RandSeed obsahuje v∞chozí ƒíslo v╪stav╪ného generátoru náhod-
  636. n∞ch ƒísel.
  637.  
  638. [JS1T87]
  639. Prom╪nná Test8087.
  640.       Obsahuje kód , kter∞ vyjad²uje zjiτt╪n∞ typ matematického kopro-
  641. cesoru,kter∞ je v poƒítaƒi instalován. Provádí se samoƒinn╪ p²i startu 
  642. aplikaƒního programu. Hodnoty od 0 do 3.
  643.  
  644.  
  645. ;Procedury JS2Abs;JS2Addr;JS2Append;JS2ArcTan;JS2Assign;JS2Assigned;
  646. ;JS2BlockRead;JS2BlockWrite;JS2Break;JS2Chr;JS2ChDir;JS2Close;JS2Concat;
  647. ;JS2Copy;JS2Cos;JS2Continue;JS2CSeg;JS2Dec;JS2Delete;JS2Dispose;JS2DSeg;
  648. ;JS2Eof;JS2Eoln a JS2Erase jsou z jednotky UCTP7J02.PAS (JeSystem2)
  649.  
  650. [JS2Abs]
  651. Function Abs(A:integer / real):integer / real;
  652.      Funkce Abs vrací absolutní hodnotu argumentu.
  653. V∞sledek je stejného typu jako argument tj. integer nebo real.
  654.  
  655. [JS2Addr]
  656. Function Addr(A):pointer;
  657.    Funkce Addr vrací adresu prvku A v pam╪ti.
  658. V∞sledek je typu ukazatel - sluƒiteln∞ se vτemi typy ukazatel.
  659. Tot麠d╪lá i operátor @.
  660.  
  661. [JS2Append]
  662. Procedure Append ( var F : text );
  663.     Otev²e existující soubor pro zápis na konec. Pouºít po Assign 
  664. pro diskové soubory. Je-li F prázdn∞ ²et╪zec, p²ipojí se F ke stand. 
  665. vstupnímu za²ízení - klávesnici. Funkce Eof (F) pak vºdy vrací True. 
  666.  
  667. [JS2ArcTan]
  668. Function ArcTan (A : real) : real;
  669.    Vrací arcustangens argumentu.V∞sledek je úhel vyjád²en∞ v radiánech.
  670. real.
  671.  
  672. [JS2Assign]
  673. Procedure Assign(var F; Jmeno : string );
  674.    P²i²adí externí diskov∞ soubor prom╪nné F typu soubor.P²ipojení
  675. trvá tak dlouho, dokud se neprovede dalτí. Ne pro jiº otev²en∞ soubor,
  676. p²i Jmeno prázdn∞ ²et╪zec se p²ipojí standardní V/V za²ízení.
  677.  
  678. [JS2Assigned]
  679. Procedure Assign(var F; Jmeno : string );
  680.    P²i²adí externí diskov∞ soubor prom╪nné F typu soubor.P²ipojení
  681. trvá tak dlouho, dokud se neprovede dalτí. Ne pro jiº otev²en∞ soubor,
  682. p²i Jmeno prázdn∞ ²et╪zec se p²ipojí standardní V/V za²ízení.
  683.  
  684. [JS2BlockRead]
  685. Procedure BlockRead(var F:file;var Zasobnik;Pocet:word[;var Celkem:word]);
  686.    P²eƒte ze souboru F bez udaného typu Pocet nebo mén╪ blokà do prom╪nné.
  687. Zasobnik, která je libovolného typu. Pocet je standadarn╪ 128 byte. Do
  688. prom╪nné Celkem se uloºí skuteƒn∞ poƒet p²eƒten∞ch blokà dat.Je-li menτí
  689. neº Pocet a není-li uvedena prom. Celkem, dojde k chyb╪ "run-time error".
  690.  
  691. [JS2BlockWrite]
  692. Procedure BlockWrite(var F:file;var Zasobnik;Pocet:word[;var Celkem:word]);
  693.    Zapíτe do souboru F bez udaného typu Pocet nebo mén╪ blokà z prom╪nné.
  694. Zasobnik, která je libovolného typu. Pocet je standadarn╪ 128 byte. Do
  695. prom╪nné Celkem se uloºí skuteƒn∞ poƒet zapsan∞ch blokà dat.Je-li menτí
  696. neº Pocet a není-li uvedena prom. Pocet, dojde k chyb╪ "run-time error".
  697.  
  698. [JS2Break]
  699. Procedure Break;
  700.     P²edƒasn╪ ukonƒí provád╪ní cyklà while,repeat nebo for A to B do
  701. a p²edá ²ízení na první p²íkaz, kter∞ následuje za t╪lem cyklu.
  702.  
  703. [JS2Chr]
  704. Function Chr( A : byte ) : char;
  705.     Vrací znak odpovídající ordinální hodnot╪ A - argumentu.
  706.  
  707. [JS2ChDir]
  708. Procedure ChDir ( S : string );
  709.   Zm╪ní aktuální adresá² pop²ípad╪ i disk na adresá² uveden∞ v ²et╪zci S
  710. podle pravidel pro operaƒní systém MS-DOS.
  711.  
  712. [JS2Close]
  713. Procedure Close ( var F );
  714.    Uzav²e otev²en∞ diskov∞ soubor a uvolní tak komunikaƒní kanál,
  715. kter∞ mu p²id╪lily procedury Reset, Rewrite nebo Append.
  716.  
  717. [JS2Concat]
  718. Function Concat (S1[,S2,...,Sn]: string ):string;
  719.     Z²et╪zí posloupnost ²et╪zcà do jednoho v∞sledného ²et╪zce o max.
  720. délce 255 znakà. K z²et╪zení je moºné také pouºít operátor +.
  721.  
  722. [JS2Copy]
  723. Function Copy( S:string; Pozice:integer; Pocet:integer):string; 
  724.    Vrací pod²et╪zec z ²et╪zce S umíst╪n∞ od pozice Pozice v délce Pocet.
  725. Je-li Pozice v╪tτí neº délka S, vrací prázdn∞ ²et╪zec.
  726.  
  727. [JS2Cos]
  728. Function Cos (A:real):real;
  729.   Vrací kosinus úhlu A kde velikost úhlu je zadána v radiánech.
  730.  
  731. [JS2Continue]
  732. Procedure Continue;
  733.     Uvedení v t╪le cyklu while, repeat until a for A to B do..., zpàsobí 
  734. provád╪ní p²íkazà cyklu od zaƒátku.
  735.  
  736. [JS2CSeg]
  737. Fumction CSeg : word;
  738.      Vrací aktuální hodnotu registru CS mikroprocesoru v n╪mº je adresa
  739. segmentu místa odkud byla funkce CSeg volána.
  740.  
  741. [JS2Dec]
  742. Procedure Dec( var A [;B : longint]);
  743.     Sniºuje hodnotu prom╪nné A ordinálního typu nebo typu PChar bu╘ o 1
  744. nebo o hodnotu B. Získan∞ kód je rychlejτí neº v∞raz typu A:=A - 1(B).
  745.  
  746. [JS2Delete]
  747. Procedure Delete(var S:string; Pozice:integer; Pocet:integer);
  748.      Odstraní Pocet znakà z ²et╪zce S poƒínaje znakem na pozici Pozice.
  749. Je-li Pozice v╪tτí neº délka S ²et╪zce, nezruτí se nic.Pokud Pocet definuje
  750. více znakà neº je v ²et╪zci, odstraní se pouze znaky do konce ²et╪zce 
  751.  
  752. [JS2Dispose]
  753. Procedure Dispose(var P:pointer [,Destructor]);
  754.     Uvolní dynamickou prom╪nnou z operaƒní pam╪ti. Hodnota P se pak stane
  755. neurƒitou. V OOP màºe P ukazovat na object a parametr Destructor pak volá 
  756. metodu destruktoru. Neukazuje-li P do haldy, dojde k chyb╪ b╪hu programu.
  757.  
  758. [JS2DSeg]
  759. Function DSeg : word;
  760.    Vrací aktuální hodnotu regestru DS, kter∞ obsahuje adresu datového 
  761. segmentu aktuálního procesu jeº funkci volá.
  762.  
  763. [JS2Eof]
  764. Function Eof( var F ) : boolean;
  765.     Vrací inf. zda je ukazatel v souboru na konci. Pouºití pro textové,
  766. typové a netypové soubory.Vrací True,jestliºe je ukazatel nastaven v souboru
  767. za poslední sloºkou , nebo neobsahuje-li ºádné prvky. Není-li F uveden 
  768. zjistí stav souboru Input.
  769.  
  770. [JS2Eoln]
  771. Function EoLn(var F : text):boolean;
  772.     Vrací True je-li ukazatel v souboru na konci ²ádku,nebo konci souboru.
  773. Bez parametru zjistí stav v souboru Input, po stisku kl. Enter vyτle
  774. f. EoLn hodnotu True.
  775.  
  776. [JS2Erase]
  777. Procedure Erase(var F);
  778.   Vymaºe z disku soubor F libovolného typu p²ipojen∞ pomocí procedury 
  779. Assign a zav²en∞ procedurou Close. 
  780.  
  781.  
  782.  
  783. ;Procedury JS3Exclude,JS3Exit,JS3Exp,JS3FilePos,JS3FileSize,JS3FillChar,
  784. ;JS3Flush,JS3Frac,JS3FreeMem,JS3GetDir,JS3GetMem;JS3Halt;JS3Hi;JS3High;
  785. ;JS3Inc;JS3Include;JS3Insert;JS3Int;JS3IOResult;JS3Length;JS3Ln;JS3Lo;
  786. ;JS3Low a JS3Mark jsou z jednotky UCTP7J04.PAS (JeSystem3).
  787.  
  788. [JS3Exclude]
  789. Procedure Exclude(var M : set of T; I : T );
  790.     Vyjme jeden prvek typu T z mnoºiny typu T. Obdoba M:= M - [I];
  791.  
  792. [JS3Exit]
  793. Procedure Exit;
  794.     Ukonƒí provád╪ní aktuálního bloku programu,procedury nebo funkce.
  795.  
  796. [JS3Exp]
  797. Function Exp(A : real) : real;
  798.    Vrací hodnotu základu p²irozeného logaritmu e umocn╪nou argumentem A.
  799.  
  800. [JS3FilePos]
  801. Function FilePos(var F ) : longint;    
  802.    V otev²eném souboru mimo typ text zjistí stávající polohu ukazatele.
  803. Rozsah je od 0 do FileSize(F).
  804.  
  805. [JS3FileSize]
  806. Function FileSize ( var F ) : longitn;
  807.     Z otev²eného souboru vrací poƒet sloºek uloºen∞ch do souboru ( veli-
  808. kost souboru ).    
  809.  
  810. [JS3FillChar]
  811. Procedure FillChar ( var A ; Pocet : word; H );
  812.     Vyplní prom╪nnou A libovolného typu umíst╪nou v operaƒní pam╪ti Pocet
  813. byte hodnotou H t麠libovolného typu. Neprovádí ºádnou kontrolu rozsahu A.
  814.  
  815. [JS3Flush]
  816. Procedure Flush ( var F : text );
  817.     Vyprázdní vyrovnávací pam╪£ textového souboru otev²eného pro v∞stup.
  818.  
  819. [JS3Frac]
  820. Function Frac ( A : real ) : real;
  821.    Vrací desetinnou ƒást argumentu. Frac(A) := A - Int(A);
  822.  
  823. [JS3FreeMem]
  824. Procedure FreeMem ( var P : pointer, V : word );
  825.     Uvolní z pam╪ti dynamickou prom╪nnou na níº ukazuje P, definované 
  826. velikosti.    
  827.  
  828. [JS3GetDir]
  829. Procedure GetDir ( D : byte; var S : string );
  830.     Vrací pracovní adresá² na definované jednotce. D od 0 = aktuální 
  831. disk aº po n pro disky A,B,C,D,E,F atd.
  832.  
  833. [JS3GetMem]
  834. Procedure GetMem ( var P : pointer; Velikost : word );
  835.     Vytvo²í v hald╪ novou dynamickou prom╪nnou velikosti Velikost 
  836. (byte) a uloºí její adresu do P.
  837.  
  838. [JS3Halt]
  839. Procedure Halt [(Kod : word )];
  840.     Zastaví provád╪ní programu a p²edá ²ízení operaƒnímu systému s 
  841. voliteln∞m návratov∞m kódem.
  842.  
  843. [JS3Hi]
  844. Function Hi ( A ): byte;
  845.     Vrátí ²ádov╪ vyττí byte argumentu.
  846.  
  847. [JS3High]
  848. Function High ( A );
  849.     Vrací nejv╪tτí hodnotu z mnoºiny hodnot A ordinálního typu,tj. typu
  850. pole, ²et╪zec a otev²en∞ ²et╪zec.
  851.  
  852. [JS3Inc]
  853. Procedure Inc ( var A [;B:longint]);
  854.      Zvyτuje hodnotu prom╪nné A o jednu nebo o B.
  855.  
  856. [JS3Include]
  857. Procedure Include (var M : set of T; I : T );
  858.       Vloºí jeden prvek I typu T do mnoºiny typu T. Obdoba M:= M + [I];
  859.  
  860. [JS3Insert]
  861. Procedure Insert(Zdroj : string; var S : string; Pozice : integer);
  862.      Vloºí do ²et╪zce S od pozice Pozice ²et╪zec Zdroj.
  863.  
  864. [JS3Int]
  865. Function Int( A : real ) : real;
  866.     Vrací celoƒíselnou ƒást ƒísla v argumentu.
  867.  
  868. [JS3IOResult]
  869. Function IOResult : word;
  870.     Vrací celoƒíselnou hodnotu vyjad²ující stav po poslední vstupní
  871. nebo v∞stupní operaci.
  872.  
  873. [JS3Length]
  874. Function Length(S:string):integer;
  875.     Vrací skuteƒnou délku ²et╪zce S.
  876.  
  877. [JS3Ln]
  878. Function Ln(A:real):real;
  879.     Vrací p²irozen∞ logaritmus ƒísla A.
  880.  
  881. [JS3Lo]
  882. Function Lo(A):byte;
  883.     Vrací ²ádov╪ niºτí byte argumentu ( integer nebo word ) bez  
  884. znaménka.    
  885.  
  886. [JS3Low]
  887. Function Low(A);
  888.     Vrací nejmenτí hodnotu z mnoºiny hodnot podle typu argumentu A
  889. - opak funkce High.
  890.  
  891. [JS3Mark]
  892. Procedure Mark(var P:pointer);
  893.     Zaznamená stav obsazení haldy a uloºí ho do prom╪nné P.
  894.  
  895. ;Procedury JS4MaxAvail;JS4MemAvail;JS4MkDir;JS4Move;JS4New;JS4Odd;JS4Ofs;
  896. ;JS4Ord;JS4ParamCount;JS4ParamStr;JS4Pi;JS4Pos;JS4Pred;JS4Ptr;JS4Random;
  897. ;JS4Randomize;JS4Read;JS4ReadLn;JS4Release;JS4Rename;JS4Reset;JS4Rewrite;
  898. ;JS4RmDir;JS4Round jsou z jednotky UCTP7J05.PAS (JeSystem4).
  899.  
  900. [JS4MaxAvail]
  901. Function MaxAvail : longint;
  902.      Vrací délku nejv╪tτího souvislého volného bloku pam╪ti v hald╪.
  903.  
  904. [JS4MemAvail]
  905. Function MemAvail : longint;
  906.      Vrací souƒet voln∞ch blokà pam╪ti v hald╪.
  907.  
  908. [JS4MkDir]
  909. Procedure MkDir ( S : string );
  910.     Vytvo²í na disku nov∞ adresá².
  911.  
  912. [JS4Move]
  913. Procedure Move (var Zdroj,Cíl;Pocet :word);
  914.      Provede p²enos definovaného poƒtu byte - Pocet ze Zdroj do Cíl v
  915. pam╪ti poƒítaƒe. Neprovádí kontrolu na velikost dat.
  916.  
  917.  
  918. [JS4New]
  919. Procedure New ( var P : pointer [;Init: constructor]);
  920.      Vytvo²í novou dynamickou prom╪nnou v operaƒní pam╪ti a nastaví
  921. prom╪nnou typu ukazatel tak, aby na ni ukazovala.
  922.  
  923. [JS4Odd]
  924. Function Odd (A:longint) : boolean;
  925.       Zkoumá, zda je A liché ƒíslo.
  926.  
  927. [JS4Ofs]
  928. Function Ofs(A) : word;
  929.       Vrací ofset objektu A - prom╪nné, procedury nebo funkce.
  930.  
  931. [JS4Ord]
  932. Function Ord(A) : longint;
  933.       Vrací ordinální hodnotu A.
  934.  
  935. [JS4ParamCount]
  936. Function ParamCount : word;
  937.       Vrací poƒet parametrà p²edan∞ch programu na p²íkazovém ²ádku.
  938.  
  939. [JS4ParamStr]
  940. Function ParamStr (Pozice ) : string;
  941.       Vrací hodnotu parametru na pozici Pozice typu word,pro Pozice=0 
  942. vrací cestu a jméno souboru.
  943.  
  944. [JS4Pi]
  945. Function Pi : real;
  946.       Vrací hodnotu ƒísla Pi=3.1415926....
  947.  
  948. [JS4Pos]
  949. Function Pos(Podretezec,Retezec : string ) : byte;
  950.       Vyhledá ²et╪zec Podretezec v ²et╪zci Retezec. 
  951.       
  952. [JS4Pred]
  953. Function Pred ( A );
  954.       Vrací p²edchàdce A - ordinálnícho typu.
  955.  
  956. [JS4Ptr]
  957. Function Ptr ( Segment,Ofset : word ) : pointer;
  958.       P²evede adresu segmentu a adresu ofsetu na prom╪nnou typu 
  959. ukazatel.
  960.  
  961. [JS4Random]
  962. Function Random [(Rozsah : word)] : word;
  963.       Vrací náhodné ƒíslo ( real ) z intervalu 0<=X<=1 (Rozsah). 
  964.       
  965. [JS4Randomize]
  966. Procedure Randomize;
  967.       Nastaví poƒáteƒní ƒíslo v RandSeed podle stavu hodin.
  968.  
  969. [JS4Read]
  970. Procedure Read ([var F;]S1[,S2,...,Sn]);
  971.       P²eƒte poloºku S1..Sn ze souboru F1 do prom╪nné v operaƒní pam╪ti.
  972. V∞sledek v IOResult, v textovém souboru nep²echází na dalτí ²ádek.
  973.  
  974. [JS4ReadLn]
  975. Procedure ReadLn ([var F : text;]S1[,S2,S3,...,Sn]);
  976.       P²eƒte poloºku S1..Sn z textového souboru F1 do prom╪nné 
  977. v operaƒní pam╪ti.V∞sledek v IOResult, v textovém souboru p²echází na 
  978. dalτí ²ádek.
  979.  
  980. [JS4Release]
  981. Procedure Release ( var P : pointer );
  982.       Odstraní z haldy vτechny dynamické prom╪nné alokované po oznaƒení
  983. haldy procedurou Mark (P).
  984.  
  985. [JS4Rename]
  986. Procedure Rename ( var F ; Jmeno : string );
  987.       P²ejmenuje diskov∞ soubor p²i²azen∞ pomocí Assign prom╪nné F na 
  988. Jmeno. V∞sledek lze zjistit Pomocí IOResult.Nelze p²ejmenovat otev²en∞
  989. soubor.
  990.  
  991. [JS4Reset]
  992. Procedure Reset ( var F [:file; Velikost : word]);
  993.      Otev²e existující soubor F po p²i²azení externímu diskovému souboru.
  994. Velikost je pro netypové soubory , stand. 128 byte. Soubor typu Text ote-
  995. v²e pouze pro zápis.
  996.  
  997. [JS4Rewrite]
  998. Procedure Rewrite ( var F [: file; Velikost : word ]);
  999.      Vytvo²í a otev²e nov∞ soubor na disku. Po Assign, stávající soubor
  1000. téhoº jména vymaºe, jiº otev²en∞ nejprve zav²e, textov∞ otev²e pouze pro
  1001. zápis.
  1002.  
  1003. [JS4RmDir]
  1004. Procedure RmDir ( S : string );
  1005.      Zruτí prázdn∞ adresá² na disku. V∞sledek je v IOResult.
  1006.  
  1007. [JS4Round] 
  1008. Function Round ( A : real ) : longint;
  1009.      Zaokrouhlí hodnotu A na celé ƒíslo typu integer. Není-li v∞sledek
  1010. v mezích longint dojde k chyb╪ run-time-error.
  1011.  
  1012. ;Procedury JS5RunError;JS5Seek;JS5SeekEof;JS5SeekEoln;JS5Seg;JS5SetTextBuf;
  1013. ;JS5Sin;JS5SizeOf;JS5SPtr;JS5Sqr;JS5Sqrt;JS5SSeg;JS5Str;JS5Succ;JS5Swap;
  1014. ;JS5Trunc;JS5Truncate;JS5TypeOf;JS5UpCase;JS5Val;JS5Write;JS5WriteLn jsou
  1015. ;z jednotky UCTP7J06 (JeSystem5).
  1016.  
  1017. [JS5RunError]
  1018. Procedure RunError [(KodChyby : word)];
  1019.     Zastaví provád╪ní programu a vytvo²í kód chyby pro pot²eby lad╪ní 
  1020. programu.
  1021.  
  1022. [JS5Seek]
  1023. Procedure Seek(var F;U : longint);
  1024.      P²emístí polohu ukazatele v souboru F na poloºku urƒenou po²adov∞m
  1025. ƒíslem U.
  1026. [JS5SeekEof]
  1027. Function SeekEof ( var F : text );
  1028.       Vrací inf. o stavu konce souboru, p²eskoƒí vτechny prázdné znaky, 
  1029. tabulátory a znaƒky konce ²ádku, neº vrátí stav konce souboru. Pro ƒtení
  1030. ƒísel z textového souboru.
  1031.  
  1032. [JS5SeekEoln]
  1033. Function SeekEoLn ( var F : text ) : boolen;
  1034.       Vrací inf. o stavu konce ²ádku, p²eskoƒí vτechny prázdné znaky, 
  1035. tabulátory a znaƒky konce ²ádku, neº vrátí stav konce ²ádku. Pro ƒtení
  1036. ƒísel z textového souboru.
  1037.  
  1038. [JS5Seg]
  1039. Function Seg ( A ) : word;
  1040.       Vrací adresu segmentu daného objektu A.
  1041.  
  1042. [JS5SetTextBuf]
  1043. Procedure SetTextBuf ( var F : text;var Blok[;Velikost : word]);
  1044.       P²i²adí vyrovnávací pam╪£ textovému souboru F, velikosti Blok,
  1045. implicitn╪ 128 byte.
  1046.  
  1047. [JS5Sin]
  1048. Function Sin ( A : real ) : real;
  1049.       Vrací sinus úhlu A zadaného v radiánech.
  1050.  
  1051. [JS5SizeOf]
  1052. Function SizeOf ( A ) : integer;
  1053.       Vrací poƒet byte operaƒní pam╪ti prvku A typu prom╪nná nebo identi-
  1054. fikátor typu.
  1055.  
  1056. [JS5SPtr]
  1057. Function SPtr : word;
  1058.       Vrací souƒasnou hodnotu registru SP = ofset v segmentu.
  1059.  
  1060. [JS5Sqr]
  1061. Function Sqr ( A ) : integer/word/byte/real; 
  1062.       Vrací druhou mocninu ƒísla A, v∞sledek je stejného typu jako A. 
  1063.       
  1064. [JS5Sqrt]
  1065. Function Sqrt ( A : real ) : real;
  1066.       Vrací druhou odmocninu ƒísla A.
  1067.  
  1068. [JS5SSeg]
  1069. Function SSeg : word;
  1070.        Vrací souƒasnou hodnotu registru SS = adresa segmentu zásobníku.
  1071.  
  1072. [JS5Str]
  1073. Procedure Str ( A[: Sirka[: Deset]];var S : string );
  1074.        P²evádí ƒíselnou hodnotu A typu integer/real na ²et╪zec. Sirka =
  1075. poƒet ƒíslic celé ƒásti,Deset = poƒet desetinn∞ch ƒíslic.
  1076.  
  1077. [JS5Succ]
  1078. Function Succ ( A );
  1079.        Vrací následníka A ordinálního typu.
  1080.  
  1081. [JS5Swap]
  1082. Function Swap ( A ) : integer/word;
  1083.        Provede v∞m╪nu ²ádov╪ vyττího byte za niºτí byte. 
  1084.        
  1085. [JS5Trunc]
  1086. Function Trunc ( A : real ) : longint;
  1087.        Vrací z hodnoty A typu real celé ƒíslo typu longint.
  1088.  
  1089. [JS5Truncate]
  1090. Procedure Truncate ( var F );
  1091.       Zkrátí soubor F libovolného typu o ƒást od souƒasné pozice
  1092. ukazatele v souboru do konce. V∞sledek operace vrací funkce IOResult.
  1093.  
  1094. [JS5TypeOf]
  1095. Function TypeOf ( A ) : pointer;
  1096.       V objektov╪ orientovaném programování vrací ukazatel na tabulku
  1097. virtuálních metod objektu A.
  1098.  
  1099. [JS5UpCase]
  1100. Function UpCase ( Ch : char ) : char;
  1101.       P²evede znak Ch na velké písmeno, znaky mimo mnoºinu mal∞ch pís-
  1102. men se nep²evád╪jí.
  1103.  
  1104. [JS5Val]
  1105. Procedure Val ( S :string; var V ; var Kod : integer);
  1106.       P²evede ²et╪zec S s ƒíslem , znaménkem a p²ípadn╪ desetinou
  1107. teƒkou na ƒíslo V. Do Kod uloºí index vadného znaku. Kod = 0 => p²evod
  1108. prob╪hl dob²e.
  1109.  
  1110. [JS5Write]
  1111. Procedure Write ([ F,]S1[,S2,...,Sn]);
  1112.       Vypíτe prom╪nnou typu soubor S1 - Sn do souboru F.V∞sledek vrátí
  1113. funkce IOResult.
  1114.  
  1115. [JS5WriteLn] 
  1116. Procedure WriteLn ([var F: text;]S1[,S2,...,Sn]);
  1117.      Provede zápis do souboru F a vyτle na v∞stup znaƒku konce ²ádku.
  1118. Pouze pro textové soubory, otev²ené pro v∞stup. V∞sledek vrátí funkce 
  1119. IOResult.
  1120.  
  1121. ;Procedury JC1TextAttr;JC1LMDV;JC1WMWM;JC1CheckSEB;JC1AssignCrt;JC1ClrEol;
  1122. ;JC1ClrScr;JC1Delay;JC1DelLine;JC1GotoXY;JC1HighVideo;JC1InsLine;JC1KeyPressed;
  1123. ;JC1LowVideo;JC1NormVideo;JC1NoSound;JC1ReadKey;JC1Sound;JC1TextBackground;
  1124. ;JC1TextColor;JC1TextMode;JC1Window;JC1WhereX a JC1WhereY jsou z 
  1125. ;jednotky UCTP7J07.PAS (JeCRT1).
  1126.  
  1127. [JC1TextAttr]
  1128. Prom╪nná TextAttr a konstanty pro zobrazení.
  1129.         V prom╪nné TextAttr je uloºena hodnota atributu zobrazení 
  1130. nastavená procedurami TextBackground a TextColor podle vzorce:
  1131.     TextAttr:= pop²edí + pozadí*16 + blikání.
  1132.  
  1133. [JC1LMDV]
  1134. Prom╪nné LastMode : word;DirectVideo : Boolean;
  1135.         V LastMode je uloºen kód textového reºimu,kter∞ se vyuºívá
  1136. p²i návratu z grafického do textového reºimu. DirectVideo urƒuje zpàsob
  1137. p²ístupu do obrazové pam╪ti: True - p²ímo p²es CRT, False - nep²ímo p²es
  1138. BIOS.
  1139.  
  1140. [JC1WMWM]
  1141. Prom╪nné WindMin : word; WindMax : word;
  1142.         Uchovávají sou²adnice okna vytvo²eného na obrazovce.
  1143. Ve WindMin je lev∞ horní roh a ve WindMax je prav∞ dolní roh nastavené
  1144. obrazovky.
  1145.  
  1146. [JC1CheckSEB]
  1147. Prom╪nné CheckSnow,CheckEof, CheckBreak : Boolean;
  1148.         CheckSnow - synchronizuje vkládání znakà do obrazové pam╪ti
  1149. s ²ádkov∞m rozkladem obrazu. CheckEof - po stisku Ctrl+Z generuje
  1150. konec souboru vkládaného z klávesnice. CheckBreak - nastaví kontrolu
  1151. kláves Ctrl+Break - > p²edƒasné ukonƒení b╪ºícího programu.
  1152.  
  1153. [JC1AssignCrt]
  1154. Procedure AssignCrt ( var F : text );
  1155.         Propojí standardní prom╪nné Input a Output s jednotkou CRT.
  1156.  
  1157. [JC1ClrEol]
  1158. Procedure ClrEol; 
  1159.         Vymaºe vτechny znaky od pozice kurzoru do konce ²ádku.
  1160.  
  1161. [JC1ClrScr]
  1162. Procedure ClrScr;
  1163.         Vymaºe obsah ƒinného okna a umístí kurzor do levého horního rohu
  1164. okna. 
  1165. [JC1Delay]
  1166. Procedure Delay ( Doba : word );
  1167.         Zastaví provád╪ní programu na definovan∞ poƒet milisekund (zaokrou-
  1168. hleno na celé strojové cykly ).
  1169.  
  1170. [JC1DelLine]
  1171. Procedure DelLine;
  1172.         Vypustí ²ádek, na kterém je nastaven kurzor, ²ádky pod ním se po-
  1173. sunou nahoru.
  1174.  
  1175. [JC1GotoXY]
  1176. Procedure GotoXY ( X,Y : byte );
  1177.         Nastaví polohu kurzoru na X,Y sou²adnice, pokud jsou uvnit² 
  1178. stávajícího okna.
  1179.  
  1180. [JC1HighVideo]
  1181. Procedure HighVideo;
  1182.         Nastaví zv∞razn╪né zobrazení nastavením bitu 3 v prom╪nné TextAttr
  1183. ( 8 - 15 místo 0 - 1).
  1184.  
  1185. [JC1InsLine]
  1186. Procedure InsLine;
  1187.         Vloºí prázdn∞ ²ádek na souƒasnou pozici kurzoru a dalτí ²ádky 
  1188. posune o jeden ²ádek dolà.
  1189.  
  1190. [JC1KeyPressed]
  1191. Function KeyPressed : boolean;
  1192.         Vrací True po stisku znakové klávesy, jinak False.
  1193.  
  1194. [JC1LowVideo]
  1195. Procedure LowVideo;
  1196.         Nastaví zobrazení niºτím jasem, nastaví bit 3 na 0 v TextAttr.
  1197.  
  1198. [JC1NormVideo]
  1199. Procedure NormVideo;
  1200.         Nastaví zobrazení na stav shodn∞ p²í spuτt╪ní programu.
  1201.  
  1202. [JC1NoSound]
  1203. Procedure NoSound;
  1204.         Vypne vnit²ní generátor zvuku.
  1205.  
  1206. [JC1ReadKey]
  1207. Function ReadKey : char;
  1208.         P²eƒte jeden znak z vyrovnávací pam╪ti klávesnice. U sloºen∞ch
  1209. znakà tvo²en∞ch dv╪ma byte ƒte nejprve kód #0 a pak ASCII kód znaku.
  1210.  
  1211. [JC1Sound]
  1212. Procedure Sound ( Hz : word );
  1213.         Spustí zvukov∞ generátor na kmitoƒtu Hz.
  1214.  
  1215. [JC1TextBackground]
  1216. Procedure TextBackground ( Barva : byte );
  1217.         Nastaví barvu pozadí v rozsahu 0 - 7 (Back - LightGray ) pro bity
  1218. 0 - 3 v TextAttr.
  1219.  
  1220. [JC1TextColor]
  1221. Procedure TextColor ( Barva : byte );
  1222.         Nastaví barvu znakà od 0 do 15 nebo + 128 pro blikání. Bity 0 - 3
  1223. v TextAttr.
  1224.  
  1225. [JC1TextMode]
  1226. Procedure TextMode ( Rezim : integer );
  1227.         Nastaví textov∞ reºim zobrazení. Reºim je kód definující typ
  1228. reºimu zobrazení, uloºen∞ v TextAttr a LastMode.
  1229.  
  1230. [JC1Window]
  1231. Procedure Window ( X1,Y1,X2,Y2 : byte );
  1232.         Nastaví textové okno tak, ºe X1 a Y1 udává pozici levého horního
  1233. rohu a X2,Y2 pravého dolního rohu nového okna. Poƒet ²ádkà a sloupcà je 
  1234. dán nastaven∞m typem reºimu. P²i hodnotách X1,Y1,X2,Y2 mimo povolen∞ roz-
  1235. sah se nestane nic.
  1236.  
  1237. [JC1WhereX]
  1238. Function WhereX : byte;
  1239.         Vrací vodorovnou polohu kurzoru.
  1240.  
  1241. [JC1WhereY]
  1242. Function WhereY : byte;
  1243.         Vrací svislou polohu kurzoru.
  1244.  
  1245. ;Procedury JD1DiskFree;JD1DiskSize;JD1DosExitCode;JD1DosVersion;JD1EnvCount;
  1246. ;JD1EnvStr;JD1Exec;JD1FExpand;JD1FSplit;JD1FindFirst;JD1FindNext;JD1FSearch;
  1247. ;JD1GetCBreak;JD1GetDate;JD1GetEnv;JD1GetFAttr;JD1GetFTime;JD1GetIntVec;
  1248. ;JD1GetTime;JD1GetVerify;JD1Intr;JD1Keep;JD1MsDos a JD1PackTime jsou
  1249. ; z jednotky UCTP7J08.PAS ( JeDOS1).
  1250.  
  1251. [JD1DiskFree]
  1252. Function  DiskFree(Disk : byte) : longint;
  1253.         Vrací poƒet voln∞ch byte na Disk: 0 = pracovní disk,1 = A,
  1254. 2 = B atd. P²i neexistenci disku vrací - 1.
  1255.  
  1256. [JD1DiskSize]
  1257. Function  DiskSize(Disk : byte) : longint;
  1258.         Vrací celkov∞ poƒet byte na Disk: 0 = pracovní disk,1 = A,
  1259. 2 = B atd. P²i neexistenci disku vrací - 1.
  1260.  
  1261. [JD1DosExitCode]
  1262. Function DosExitCode : word;
  1263.         Vrací návratov∞ dód pod²ízeného procesu,v dolním byte je kód
  1264. vyslan∞ tímto procesem, v horním je dód 0 - 4.
  1265.  
  1266. [JD1DosVersion]
  1267. Function DosVersion : word;
  1268.         Vrací ƒíslo verze o.s. MS-DOS. V dolním byte je ƒíslo verze a
  1269. v horním byte je desetinná ƒást ƒísla verze.
  1270.  
  1271. [JD1EnvCount]
  1272. Function EnvCount : integer;
  1273.         Vrací poƒet prom╪nn∞ch v systémovém prost²edí procesu spuτt╪-
  1274. ného pod o.s. MS-DOS.
  1275.  
  1276. [JD1EnvStr]
  1277. Function EnvStr(Poradi : integer) : string;
  1278.         Ze segmentu systémového prost²edí o.s. MS-DOS p²eƒte ²et╪zec
  1279. s prom╪nnou danou Poradi ( 1 - EnvCount) ve formátu : prom╪nná = hodnota.
  1280.  
  1281. [JD1Exec]
  1282. Procedure Exec (Cesta,Param : string );
  1283.         Spustí program def. v Cesta s parametry v Param. Po procedu²e
  1284. SwapVectors, pouze v prostoru haldy neobsazené stávajícím programem,
  1285. pro nastavení vyuºití operaƒní pam╪ti pouºít direktivu $M. V∞sledek je
  1286. uloºen v DosError , 8 = chyba.
  1287.  
  1288. [JD1FExpand]
  1289. Function FExpand (Jmeno : PathStr ) : PathStr;
  1290.         Doplní jméno diskového souboru na úplnou definici vƒetn╪ cesty
  1291. p²ístupu podle pracovního adresá²e. Disk:\cesta\jméno.p²ípona.
  1292.  
  1293. [JD1FSplit]
  1294. Procedure FSplit(Cst:PathStr;var Adr:DirStr;var Jm:NameStr;var Prip:ExtStr);
  1295.         Rozloºí ²et╪zec Cst na t²i ƒásti - Adr s p²ístupovou cestou
  1296. k souboru, Jm - jméno souboru a Prip - s rozτí²ením jm. souboru.
  1297.  
  1298. [JD1FindFirst]
  1299. Procedure FindFirst (Cesta : string;Attr : word;var S : SearchRec);
  1300.         Vyhledá v adresá²i první v∞skyt urƒeného soboru. Attr - kon-
  1301. stanty pro urƒení typu souboru. V∞sledek uloºí do S a DosError.
  1302.  
  1303. [JD1FindNext]
  1304. Procedure FindNext (var S : RearchRec);
  1305.         Vyhledá dalτí v∞skyt definovaného souboru v adresá²i podle
  1306. urƒení z proc. FindFirst. V∞sledek zapíτe do S a DosError.
  1307.  
  1308. [JD1FSearch]
  1309. Function FSearch (Cesta : PathStr; Seznam : string) : PathStr;
  1310.         Vyhledá soubor zadan∞ v Cesta v adresá²ích ze Seznam s jednotli-
  1311. v∞mi adresá²i odd╪len∞mi st²edníky. Hledání zaƒíná v pracovním adresá²i. 
  1312. P²i hledání v adr. z Path je t²eba nejprve pouºít GetEnv.
  1313.  
  1314. [JD1GetCBreak]
  1315. Procedure GetCBreak(var Break : boolean);
  1316.         Vrací stav nastavení testu stisku kl. Ctrl+Break na úrovní
  1317. operaƒního systému.
  1318.  
  1319. [JD1GetDate]
  1320. Procedure GetDate (var Rok,Mesic,Den,DenTyden :word);
  1321.         Vrací datum nastavené v o.s. Rok - 1980 - 2099,Mesic - 1..12,
  1322. Den - 1..31,DenTyden - 0..6 ( 0 pro ned╪li).
  1323.  
  1324. [JD1GetEnv]
  1325. Function GetEnv(Promenna : string) : string;
  1326.         Vrací hodnotu systémové prom╪nné def. v Promenna.
  1327.  
  1328. [JD1GetFAttr]
  1329. Procedure GetFAttr(var F;var Attr :word);
  1330.         Vrací atributy v Attr diskového souboru F p²ipojeného proce-
  1331. durou Assign ,nesmí b∞t otev²en∞. V∞sledek je v DosError.
  1332.  
  1333. [JD1GetFTime]
  1334. Procedure GetFTime(var F;var Cas :longint);
  1335.         Vrací datum a ƒas v zabalené podob╪ diskového souboru F p²i-
  1336. pojeného Assign a otev²eného. V∞sledek je v DosError.
  1337.  
  1338. [JD1GetIntVec]
  1339. Procedure GetIntVec(Cislo :byte;var Vektor :pointer);
  1340.         Vrací adresu vstupního bodu obsluºné rutiny p²eruτení 
  1341. (Cislo : 0 - 255 ) ve Vector.
  1342.  
  1343. [JD1GetTime]
  1344. Procedure GetTime(var Hodina,Minuta,Sekunda,Sec100 :word);
  1345.         Vrací aktuální ƒas nastaven∞ v operaƒním systému. Hodina - 0..23,
  1346. Minuta - 0..59, Sekunda - 0..59, Sec100 - 0..99.
  1347.  
  1348. [JD1GetVerify]
  1349. Procedure GetVerify(var Verify : boolean);
  1350.         Vrací stav nastavení ov╪²ování správnosti operace zápisu 
  1351. souborà na disk. P²i True se kontroluje souƒet p²enáτen∞ch blokà dat.
  1352.  
  1353. [JD1Intr]
  1354. Procedure Intr(Preruseni :byte;var Regs : Registers);
  1355.         Vyvolá p²eruτení ƒíslo Preruseni (0..255) a do registrà
  1356. mikroprocesoru uloºí obsah ze záznamu Regs.
  1357.  
  1358. [JD1Keep]
  1359. Procedure Keep(Kod : word);
  1360.         Ukonƒí provád╪ní programu a v Kod p²edá nad²ízenému programu
  1361. návratov∞ kód procesu. Pro TSR programy.
  1362.  
  1363. [JD1MsDos] 
  1364. Procedure MsDos(var Regs : Registers);
  1365.         Vyvolá p²eruτení 21H a provede urƒenou sluºbu jádra ope-
  1366. raƒního systému.
  1367.  
  1368. [JD1PackTime] 
  1369. Procedure PackTime(var DT : DateTime;var Cas : longint);
  1370.         P²evede údaje data a ƒasu z DT do podoby ƒísla typu 
  1371. longint v Cas.
  1372.  
  1373. ;Procedury JD2SetCBreak;JD2SetDate;JD2SetFAttr;JD2SetFTime;JD2SetIntVec;
  1374. ;JD2SetTime;JD2SetVerify;JD2SwapVectors a JD2UnpackTime jsou z jednotky
  1375. ;UCTP7J09.PAS ( JeDOS2).
  1376.  
  1377. [JD2SetCBreak]
  1378. Procedure SetCBreak(Break : boolean);
  1379.         Nastaví kontrolu kl. Ctrl+Break. P²i True se provádí kontrola
  1380. p²i kaºdém volání sluºby jádra operaƒního systému.
  1381.  
  1382. [JD2SetDate]
  1383. Procedure SetDate(Rok,Mesic,Den : word);
  1384.         Nastaví datum v operaƒním systému.
  1385.  
  1386. [JD2SetFAttr]
  1387. Procedure SetFAttr(var F; Attr : word);
  1388.         Nastaví atributy diskového souboru F p²ipojeného po Assign,
  1389. nesmí b∞t otev²en∞. Attr se vypoƒte seƒtením konstant z prom╪nn∞ch jednotky 
  1390. DOS.V∞sledek se uloºí do DosError.
  1391.  
  1392. [JD2SetFTime]
  1393. Procedure SetFTime(var F; Attr : word);
  1394.         Nastaví datum a ƒas poslední zm╪ny diskového souboru p²ipo-
  1395. jeného po Assign. V∞sledek se uloºí do DosError.
  1396.  
  1397. [JD2SetIntVec]
  1398. Procedure SetIntVec(Cislo :byte;Vector : pointer);
  1399.         Nastaví vektor Vector p²eruτení definovan∞ v Cislo (0..255)
  1400. na novou adresu obsluºné rutiny.
  1401.  
  1402. [JD2SetTime]
  1403. Procedure SetTime(Hodina,Minuta,Sekundy,Sec100 : word);
  1404.         Nastaví nov∞ ƒas v operaƒním systému.
  1405.  
  1406. [JD2SetVerify]
  1407. Procedure SetVerify(Verify : boolean);
  1408.         Nastaví kontrolu souƒtà poƒtu p²enáτen∞ch blokà dat p²i
  1409. zápisu na disk.
  1410.  
  1411. [JD2SwapVectors] 
  1412. Procedure SwapVectors;
  1413.         Provede v∞m╪nu vektorà p²eruτení p²ed a po procedu²e Exec 
  1414. a Keep.
  1415.  
  1416. [JD2UnpackTime]
  1417. Procedure UnpackTime(Cas : longint;var DT : DateTime);
  1418.         P²evede zhuτt╪n∞ tvar datum + ƒas obsaºen∞ v Cas na jednotlivé 
  1419. poloºky  prom╪nné DT typu záznam.
  1420.  
  1421. ;Procedury Arc,Bar,Bar3D,Circle,ClearDevice,ClearViewPort,CloseGraph,
  1422. ;DetectGraph,DrawPoly,Ellipse,FillEllipse,FillPoly,FloodFill,GetArcCoords'
  1423. ;GetAspectRatio,GetBkColor,GetColor,GetDefaultPalette,GetDriverName,
  1424. ;GetFillPattern,GetFillSettings,GetGraphMode,GetImage a GetLineSettings        
  1425. ;jsou z jednotky UCTP7J10.PAS pro JeGraph1.
  1426.  
  1427. [JG1Arc]
  1428. Procedure Arc(X,Y:integer;Zacatek,Konec,Polomer:word);
  1429.         Nakreslí kruhov∞ oblouk se st²edem v X,Y, polom╪rem Polomer,
  1430. zaƒátkem v Zacatek(0 - 360 stupσà) a koncem v Konec (0 - 360 stupσà).
  1431. Pro kruºnici je Zacatek=0 a Konec=360.
  1432.  
  1433. [JG1Bar]
  1434. Procedure Bar(X1,Y1,X2,Y2:integer);
  1435.         Nakreslí nastavenou barvou pás (pravoúhl∞). X1,Y1 - lev∞
  1436. horní roh, X2,Y2 - prav∞ spodní roh. V∞sledek zjistí GraphResult. P²i
  1437. -6 = chyba.
  1438.  
  1439. [JG1Bar3D]
  1440. Procedure Bar3D(X1,Y1,X2,Y2:integer;Hloubka:word;Vrchol:boolean);
  1441.         Nakreslí nastavenou v∞plní a typem ƒáry t²írozm╪rn∞ sloupek.
  1442. X1,Y1 - p²ední lev∞ horní roh, X2,Y2 - p²ední prav∞ spodní roh, horní
  1443. plocha se kreslí podle nastavení Vrchol.
  1444.  
  1445. [JG1Circle]
  1446. Procedure Circle(X,Y:integer;Polomer:word);
  1447.         Nakreslí kruºnici se st²edem v X,Y a polom╪rem Polomer
  1448. nastavenou barvou a ƒárou.
  1449.  
  1450. [JG1ClearDevice]
  1451. Procedure ClearDevice;
  1452.         Vymaºe grafickou obrazovku, nastaví kurzor na (0,0),barvu
  1453. pozadí podle SetBkColor.
  1454.  
  1455.  
  1456. [JG1ClearViewPort]
  1457. Procedure ClearViewPort;
  1458.        Vymaºe nastaven∞ v∞²ez,nastaví kurzor na (0,0),barvu
  1459. pozadí podle SetBkColor.
  1460.        
  1461. [JG1CloseGraph]
  1462. Procedure CloseGraph;
  1463.         Ukonƒí práci v grafickém reºimu, nastaví textov∞ reºim
  1464. a uvolní ovladaƒe a fonty z haldy.
  1465.  
  1466. [JG1DetectGraph]
  1467. Procedure DetectGraph(var Ovladac,Rezim:integer);
  1468.         Provede zjiτt╪ní technick∞ch prost²edkà pro grafick∞ reºim.
  1469. Ovladac a Rezim jsou vstupní parametry pro proc. InitGraph.
  1470.  
  1471. [JG1DrawPoly]
  1472. Procedure DrawPoly(Pocet:word;var Seznam);
  1473.         Nakreslí obrysy mnohoúhelníku.
  1474.  
  1475. [JG1Ellipse]
  1476. Procedure Ellipse(X,Y:integer;Zacatek,Konec:word;Xr,Yr:word);
  1477.         Nakreslí elipsu se st²edem v X,Y, od úhlu Zacatek do úhlu 
  1478. Konec a s poloosami Xr,Yr.
  1479.  
  1480. [JG1FillEllipse]
  1481. Procedure FillEllipse(X,Y:integer;Xr,Yr:word);
  1482.         Nakreslí a vyplní elipsu se st²edem v X,Y, od úhlu Zacatek 
  1483. do úhlu Konec a s poloosami Xr,Yr.
  1484.  
  1485. [JG1FillPoly]
  1486. Procedure FillPoly(Pocet:word;var Seznam);
  1487.         Nakreslí obrysy mnohoúhelníku a vyplní ho nastavenou v∞plní.
  1488.  
  1489. [JG1FloodFill]
  1490. Procedure FloodFill(X,Y:integer;Barva:word);
  1491.         Zaplní ohraniƒenou plochu nastavenou barvou a vzorem.
  1492.  
  1493. [JG1GetArcCoords]
  1494. Procedure GetArcCoords(var Parametry:ArcCoordsType);
  1495.         P²eƒte sou²adnice posledního vydaného p²íkazu Arc nebo Ellipse.
  1496.  
  1497. [JG1GetAspectRatio]
  1498. Procedure GetAspectRatio(var X,Y:word);
  1499.         Vrací efektivní rozliτení grafické obrazovky.
  1500.  
  1501. [JG1GetBkColor]
  1502. Function GetBkColor : word;
  1503.         Vrací index aktuální barvy pozadí v palet╪ barev.
  1504.  
  1505. [JG1GetColor]
  1506. Function GetColor : word;
  1507.         Vrací index aktuální barvy pop²edí v palet╪ barev.
  1508.  
  1509. [JG1GetDefaultPalette]
  1510. Function GetDefaultPalette(var Paleta:PaletteType);
  1511.         Vrací základní paletu barev.
  1512.  
  1513. [JG1GetDriverName]
  1514. Function GetDriverName : string;
  1515.         Vrací jmého nastaveného grafického ovladaƒe.
  1516.  
  1517. [JG1GetFillPattern]
  1518. Procedure GetFillPattern (var FillPattern:FillPatternType);
  1519.         Vrací typ v∞pln╪ , kter∞ byl naposled nastaven procedurou
  1520. SetFillPattern.
  1521.  
  1522. [JG1GetFillSettings]
  1523. Procedure GetFillSettings(var FillInfo:FillSettingsType);
  1524.         Zjistí nastavení typu a barvy v∞pln╪.
  1525.  
  1526. [JG1GetGraphMode]
  1527. Function GetGraphMode : integer;
  1528.         Vrací nastaven∞ grafick∞ reºim.
  1529.  
  1530. [JG1GetImage]
  1531. Procedure GetImage(X1,Y1,X2,Y2:word;var BitMap);
  1532.         Uloºí bitov∞ obraz v∞²ezu obrazovky do operaƒní pam╪ti.
  1533.  
  1534. [JG1GetLineSettings]
  1535. Procedure GetLineSettings(var Info:LineSettingsType);        
  1536.         Vrací nastaven∞ vzor a sílu ƒáry.
  1537.  
  1538.  
  1539.  
  1540. ;Procedury JG2GetMaxColor,JG2GetMaxMode,JG2GetMaxX,JG2GetMaxY,JG2GetModeName,
  1541. ;JG2GetModeRange;JG2GetPalette,JG2GetPaletteSize,JG2GetPixel,
  1542. ;JG2GetTextSettings,JG2GetViewSettings,JG2GetX,JG2GetY,JG2GraphDefaults,
  1543. ;JG2GraphErrorMsg,JG2GraphResult,JG2ImageSize,JG2InitGraph,
  1544. ;JG2InstallUserDriver,JG2InstallUserFont,JG2Line,JG2LineRel,JG2LineTo
  1545. ;a JG2MoveRel jsou z jednotky UCTP7J11.PAS t.j. JeGraph2.
  1546.  
  1547.  
  1548. [JG2GetMaxColor],
  1549. Function GetMaxColor:word;
  1550.         Vrací nejvyττí hodnotu kódu barvy, která se màºe pouºít
  1551. v argumentu procedury SetColor pro dan∞ grafick∞ reºim.
  1552.  
  1553. [JG2GetMaxMode]
  1554. Function GetMaxMode : word;
  1555.         Vrací nejvyττí hodnotu kódu grafického reºimu, kter∞ je  
  1556. dostupná pro dan∞ grafick∞ ovladaƒ.
  1557.  
  1558. [JG2GetMaxX]
  1559. Function GetMaxX : integer;
  1560.         Vrací nax. moºnou vodorovnou sou²adnici obrazovky pro 
  1561. nastaven∞ grafick∞ reºim a ovladaƒ.
  1562.  
  1563. [JG2GetMaxY]
  1564. Function GetMaxY : integer;
  1565.         Vrací nax. moºnou svislou sou²adnici obrazovky pro 
  1566. nastaven∞ grafick∞ reºim a ovladaƒ.
  1567.  
  1568. [JG2GetModeName]
  1569. Function GetModeName(Kod:integer) : string;
  1570.         Z hlaviƒky zadaného graf. ovladaƒe v Kod p²eƒte jméno graf.
  1571. reºimu.
  1572.  
  1573. [JG2GetModeRange]
  1574. Procedure GetModeRange(Ovladac:integer;var Spodni,Horni:integer);
  1575.         Zjistí hodnotu nejvyττího a nejniºτího kódu graf. reºimu pro
  1576. ovladaƒ Ovladac.
  1577.  
  1578. [JG2GetPalette]
  1579. Procedure GetPalette(var Paleta:PaletteType);
  1580.         Vrací v Paleta poƒet barev v palet╪ a jejich kódy.
  1581.  
  1582. [JG2GetPaletteSize]
  1583. Function GetPaletteSize : integer;
  1584.         Vrací poƒet barev v palet╪.
  1585.  
  1586. [JG2GetPixel]
  1587. Function GetPixel(X,Y:integer):word;
  1588.         P²eƒte kód barvy bodu na obrazovce.
  1589.  
  1590. [JG2GetTextSettings]
  1591. Procedure GetTextSettings(var Info:TextSettingsType);
  1592.         Zjistí nastavení pro texty v graf. reºimu.
  1593.  
  1594. [JG2GetViewSettings]
  1595. Procedure GetViewSettings(var Port:ViewPortType);
  1596.         Zjistí parametry nastaveného v∞²ezu na obrazovce.
  1597.  
  1598. [JG2GetX]
  1599. Function GetX : integer;
  1600.         Vrací sou²adnici X graf. ukazatelel v nastaveném okn╪. 
  1601. GetX := abs X - ViewPort.X1.
  1602.  
  1603. [JG2GetY]
  1604. Function GetY : integer;
  1605.         Vrací sou²adnici Y graf. ukazatelel v nastaveném okn╪. 
  1606. GetY := abs Y - ViewPort.Y1.
  1607.  
  1608. [JG2GraphDefaults]
  1609. Procedure GraphDefaults;
  1610.         Provede nastavení graf. systému na základní hodnoty p²ed
  1611. voláním proc. IntiGraph.
  1612.  
  1613. [JG2GraphErrorMsg]
  1614. Function GraphErrorMsg(Kod:integer):string;
  1615.         Podle ƒísla kódu chyby vrátí textov∞ ²et╪zec.
  1616.  
  1617. [JG2GraphResult]
  1618. Function GraphResult : integer;
  1619.         Vrací kód chyby poslední graf. operace. 0 = vpo²ádku,
  1620. po ƒtení jej nuluje.
  1621.  
  1622. [JG2ImageSize]
  1623. Function ImageSize(X1,Y1,X2,Y2:word):word;
  1624.         Vrací poƒet byte pot²ebn∞ch pro uloºeí v∞²ezu obrazovky.
  1625. P²i velikosti nad 64kB vrací kód 0.
  1626.  
  1627. [JG2InitGraph]
  1628. Procedure InitGraph(var Ovladac:integer;var Rezim:integer;Cesta:string);
  1629.         Inicializuje grafick∞ systém a nastaví grafick∞ reºim. V∞sledek
  1630. operace zjistí f. GraphResult.
  1631.  
  1632. [JG2InstallUserDriver]
  1633. Function InstallUserDriver(Jmeno:string;Ukazatel:pointer):integer;
  1634.         Instaluje do tabulky ovladaƒà BGI nov∞, nestandardní ovladaƒ.
  1635.  
  1636. [JG2InstallUserFont]
  1637. Function InstallUserFont(Font:string):integer;
  1638.         Vrací identifikaƒní kód nové znakové sady uloºené v diskovém
  1639. souboru Font.
  1640.  
  1641. [JG2Line]
  1642. Procedure Line(X1,Y1,X2,Y2:integer);
  1643.         Nastaven∞m typem, sílou a barvou nakreslí ƒáru z X1,Y1 do
  1644. X2,Y2. Nem╪ní pozici graf. ukazatele.
  1645.  
  1646. [JG2LineRel]
  1647. Procedure LineRel(Dx,Dy:integer);
  1648.         Nastaven∞m typem, sílou a barvou nakreslí ƒáru ze stávající
  1649. pozice graf. ukazatele do Dx,Dy. M╪ní polohu graf. ukazatele.
  1650.  
  1651. [JG2LineTo]
  1652. Procedure LineTo(X,Y:integer);
  1653.         Nakreslí nastavenou barvou a typem ƒáru z pozice kurzoru do
  1654. bodu X,Y; zm╪ní polohu kurzoru na X,Y.
  1655.  
  1656. [JG2MoveRel]
  1657. Procedure MoveRel(Dx,Dy:integer);
  1658.          Posune ukazatel o relativní vzdálenost Dx,Dy v okn╪.
  1659.  
  1660.  
  1661. ;Procedury JG3MoveTo;JG3OutText;JG3OutTextXY;JG3PieSlice;JG3PutImage;
  1662. ;JG3PutPixel;JG3Rectangle;JG3RegisterBGIdriver;JG3RegisterBGIfont;
  1663. ;JG3RestoreCrtMode;JG3Sector;JG3SetAllPalette;JG3SetAspectRatio;
  1664. ;JG3SetBkColor;JG3SetColor;JG3SetFillPattern;JG3SetFillStyle;
  1665. ;JG3SetGraphBufSize;JG3SetGraphMode;JG3SetLineStyle;JG3SetPalette;
  1666. ;JG3SetRGBPalette;JG3SetTextJustify a JG3SetTextStyle jsou z jednotky
  1667. ;UCTP7J12.PAS t.j. JeGraph3.
  1668.  
  1669. [JG3MoveTo]
  1670. Procedure MoveTo(X,Y:integer);
  1671.         P²emístí ukazatel do bodu X,Y v okn╪.
  1672.  
  1673. [JG3OutText]
  1674. Procedure OutText(Retezec:string);
  1675.         Na pozici kurzoru zobrazí text Retezec nastaven∞m typem písma,
  1676. zarovnáním a barvou. P²esahující znaky se nezobrazí. Kurzor se posune
  1677. pouze p²i vodorovném psaní se zarovnáním vlevo.
  1678.  
  1679. [JG3OutTextXY]
  1680. Procedure OutTextXY(X,Y:integer;Retezec:string);
  1681.         Na pozici X,Y zobrazí text Retezec nastaven∞m typem písma,
  1682. zarovnáním a barvou. P²esahující znaky zobrazí podle nastavení parametru
  1683. Clipxx. Kurzor se posune pouze p²i vodorovném psaní se zarovnáním vlevo.
  1684.  
  1685. [JG3PieSlice]
  1686. Procedure PieSlice(X,Y:integer;Zacatek,Konec,Polomer:word);
  1687.         Nakreslí a vyplní kruhovou v∞seƒ se st²edem v X,Y a s 
  1688. poƒáteƒním úhlem Zacatek, koncov∞m úhlem Konec a polom╪rem Polomer. 
  1689.  
  1690. [JG3PutImage]
  1691. Procedure PutImage(X,Y:integer;var BitMap;BitBlt:word);
  1692.         Do obrazové pam╪ti vloºí bitov∞ obraz v∞²ezu obrazovky z
  1693. prom╪nné BitMap na pozici X,Y ( lev∞ horní roh v∞²ezu).V BitBlt je
  1694. const pro log. operaci mezi vkládan∞mi a stávajícími body obrazu.
  1695.  
  1696. [JG3PutPixel]
  1697. Procedure PutPixel(X,Y:integer;Barva:word);
  1698.         Na pozici X,Y zobrazí barvou Barva jeden bod.
  1699.  
  1700. [JG3Rectangle]
  1701. Procedure Rectangle(X1,Y1,X2,Y2:integer);
  1702.         Nakreslí pravoúhelník, X1,Y1 - lev∞ horní roh, X2,Y2 - prav∞
  1703. dolní roh.
  1704.  
  1705. [JG3RegisterBGIdriver]
  1706. Function RegisterBGIdriver(Ovaladac:pointer):integer;
  1707.         Zapíτe grafick∞ ovladaƒ do tabulky ovladaƒà. Vrací kód v∞sledku
  1708. úsp╪τnosti provedené operace.
  1709.  
  1710. [JG3RegisterBGIfont]
  1711. Function RegisterBGIfont(Font:pointer):integer;
  1712.         Zapíτe graf. sadu znakà na kterou ukazuje Font do tabulky,vrací
  1713. v∞sledn∞ kód této operace.
  1714.  
  1715. [JG3RestoreCrtMode]
  1716. Procedure RestoreCrtMode;
  1717.         Obnoví pàvodní textov∞ reºim pro zobrazení p²i p²epínání
  1718. mezi grafick∞m a textov∞m reºimem zobrazení.
  1719.  
  1720. [JG3Sector]
  1721. Procedure Sector(X,Y:integer;Zacatek,Konec,Xr,Yr:word);
  1722.         Nakreslí a vyplní eliptickou v∞seƒ se st²edem v X,Y, po-
  1723. loosami Xr,Yr, z úhlu Zacatek do úhlu Konec.
  1724.  
  1725. [JG3SetAllPalette]
  1726. Procedure SetAllPalette(var Paleta);
  1727.         Mení vτechny barvy palety u 16-ti barevn∞ch reºimà 
  1728. zobrazení. Zm╪na nastavení je ihned vid╪t.
  1729.  
  1730. [JG3SetAspectRatio]
  1731. Procedure SetAspectRatio(X,Y:word);
  1732.         Provede zm╪nu pom╪ru stran, pro kreslení pravideln∞ch útvarà.
  1733.  
  1734. [JG3SetBkColor]
  1735. Procedure SetBkColor(Barva:word);
  1736.         Nastaví barvu pozadí (0 - GetMaxColor) z nastavené palety.
  1737.  
  1738. [JG3SetColor]
  1739. Procedure SetColor(Barva:word);
  1740.         Nastaví barvu pozadí (0 - GetMaxColor) z nastavené palety.
  1741.  
  1742. [JG3SetFillPattern]
  1743. Procedure SetFillPattern(Pattern:FillPatternType;Barva:word);
  1744.         Provede nastavení bitové p²edlohy v∞pln╪ obrazce a barvy.
  1745. Bity 1 v 64-bitech vzoru se zobrazí nastavenou barvou.
  1746.  
  1747. [JG3SetFillStyle]
  1748. Procedure SetFillStyle(Pattern:word;Barva:word);
  1749.         Nastaví jeden z p²edurƒen∞ch vzorà v∞plní a jejich barvu.
  1750.  
  1751. [JG3SetGraphBufSize]
  1752. Procedure SetGraphBufSize(Velikost:word);
  1753.         Zm╪ní základní nastavení pam╪ti pro v∞pln╪ obrazcà 
  1754. (4kB - 650 vrcholà).
  1755.  
  1756. [JG3SetGraphMode]
  1757. Procedure SetGraphMode(Rezim:integer);
  1758.         Nastaví grafick∞ reºim, vymaºe obrazovku, kurzor nastaví
  1759. na (0,0), základní paletu barev a v∞²ez v rozsahu celé obrazovky.
  1760.  
  1761. [JG3SetLineStyle]
  1762. Procedure SetLineStyle(Styl:word;Model:word;Tloustka:word);
  1763.         Nastaví zpàsob kreslení ƒáry. P²i Styl = 4 se màºe pouºít
  1764. Model = UserBitLn (16 - bità ), je-li zároveσ Tloustka = ThinWidth.
  1765.  
  1766. [JG3SetPalette]
  1767. Procedure SetPalette(IndexBarvy:word;Barva:shortint);
  1768.         Na adaptérech EGA/VGA ( ne VGA256 a IBM8514 ) provede zm╪nu 
  1769. barvy s indexem IndexBarvy na hodnotu Barva (0-15).
  1770.  
  1771. [JG3SetRGBPalette]
  1772. Procedure SetRGBPalette(IndexBarvy,Cervena,Zelena,Modra:integer);
  1773.         Na adaptérech VGA256 a IBM8514  provede zm╪nu barvy s indexem 
  1774. IndexBarvy = 0-255 na hodnotu Barva (prvních 6 bità).
  1775.  
  1776. [JG3SetTextJustify] 
  1777. Procedure SetTextJustify(Horiz,Vert:word);
  1778.         Nastaví zpàsob vodorovného a svislého zarovnání textu vzhledem
  1779. k pozici kurzoru.
  1780.  
  1781. [JG3SetTextStyle]
  1782. Procedure SetTextStyle(Font:word;Smer:word;Velikost:word);
  1783.         Nastaví znaky Font , koeficient zv╪tτení písma Velikost a sm╪r
  1784. psaní Smer textu. Matice 8x8 v souborech *.CHR, ostatní znaky jsou
  1785. vektorové.
  1786.  
  1787.  
  1788.  
  1789. ;Procedury JG4SetUserCharSize;JG4SetViewPort;JG4SetWriteMode;JG4TextHeight;
  1790. ; a JG4TextWidth jsou z jednotky UCTP7J13.PAS t.j. JeGraph4.
  1791.  
  1792. [JG4SetUserCharSize]
  1793. Procedure SetUserCharSize(Xm,Xd,Ym,Yd:word);
  1794.         Zm╪ní velikost písma v pom╪ru Xm:Xd - τí²ka, Ym:Yd - v∞τka.
  1795. Po zm╪n╪ nelze volat SetTextStyle.
  1796.  
  1797. [JG4SetViewPort]
  1798. Procedure SetViewPort(X1,Y1,X2,Y2:word;Clip:boolean);
  1799.         Nastaví v∞²ez obrazovky ( vºdy pouze jeden ). Sou²adnice
  1800. jsou absolutní v rozsahu 0 - GetMaxX, 0 - GetMaxY.
  1801.  
  1802. [JG4SetWriteMode]
  1803. Procedure SetWriteMode(Rezim:integer);
  1804.         Nastaví jeden z moºn∞ch zpàsobà zápisu na graf. obrazovce
  1805. ( podle konstant ).
  1806.  
  1807. [JG4TextHeight]
  1808. Function TextHeight(Retezec:string):word;
  1809.         Zjistí v∞τku písma Retezec v bodech na graf. obrazovce - pro
  1810. relativní adresování v∞stupu textu.
  1811.  
  1812. [JG4TextWidth]
  1813. Function TextWidth(Retezec:string):word;
  1814.         Zjistí τí²ku písma Retezec v bodech na graf. obrazovce - pro
  1815. relativní adresování v∞stupu textu.
  1816.  
  1817. ;Procedure JO1OvrClearBuf;JO1OvrGetBuf;JO1OvrGetRetry;JO1OvrInit;
  1818. ;JO1OvrInitEMS;JO1OvrSetBuf;JO1OvrSetRety a JP1Lst;jsou z jednotky 
  1819. ;UCTP7J14.PAS t.j. JeOverlay.
  1820.  
  1821. [JO1OvrClearBuf]
  1822. Procedure OvrClearBuf;
  1823.         Vymaºe pam╪£ urƒenou pro ukládání p²ekryvn∞ch modulà.
  1824.  
  1825. [JO1OvrGetBuf]
  1826. Function OvrGetBuf:Longint;
  1827.         Vrací nastavenou velikost pam╪ti pro p²ekryvné moduly ( i víc 
  1828. jak 64 KB).
  1829.  
  1830. [JO1OvrGetRetry]
  1831. Function OvrGetRetry:Longint;
  1832.         Vrací nastavenou velikost vyhrazené pam╪ti pro sledované
  1833. moduly ( ƒasto naƒítávan∞ch modulà).
  1834.  
  1835. [JO1OvrInit]
  1836. Procedure OvrInit(Soubor:string);
  1837.         Incializuje práci s p²ekryvn∞mi moduly a otevírá soubor s
  1838. kódem p²ekryvného modulu. Soubor - bu╘ v pracovním adresá²i, nebo 
  1839. vƒetn╪ disku a cesty a nebo podle PATH. V∞sledek v OvrResult.
  1840.  
  1841. [JO1OvrInitEMS]
  1842. Procedure OvrInitEMS;
  1843.         Naƒte moduly do rozτí²ené pam╪ti a diskové soubory se uza-
  1844. v²ou, rychlejτí b╪h programu. V∞sledek v OvrResult.
  1845.  
  1846. [JO1OvrSetBuf] 
  1847. Procedure OvrSetBuf(Velikost:Longint);
  1848.         Nastaví velikost pam╪ti pro p²ekryvné moduly. Pot²ebnou 
  1849. hodnotu zjistí OvrGetBuf, halda musí b∞t prázdná! A dostateƒn╪ 
  1850. veliká - nastavit {$M}.
  1851.  
  1852. [JO1OvrSetRetry]
  1853. Procedure OvrSetRetry(Velikost:Longint);
  1854.         Nastaví velikost bloku pam╪ti pro frekventované (sledované)
  1855. moduly v rozsahu 1/3 aº 1/2 velikosti pro vτechny moduly.
  1856.  
  1857. [JP1Lst]
  1858. Soubor Lst;
  1859.         Propojí v∞stup na tiskárnu ze souboru Lst.
  1860.  
  1861. ;Procedury JS1StrCat;JS1StrComp;JS1StrCopy;JS1StrDispose;JS1StrECopy;
  1862. ;JS1StrEnd;JS1StrIComp;JS1StrLCat;JS1StrLComp;JS1StrLCopy;JS1StrLen;
  1863. ;JS1StrLIComp;JS1StrLower;JS1StrMove;JS1StrNew;JS1StrPas;JS1StrPCopy;
  1864. ;JS1StrPos;JS1StrRScan;JS1StrScan a JS1StrUpper jsou z jednotky
  1865. ;UCTP7J15.PAS t.j. JeStrings.
  1866.  
  1867. [JS1StrCat]
  1868. Function StrCat(Cil,Zdroj:PChar):PChar;
  1869.         P²ipojí ²et╪zec Zdroj na konec ²et╪zce Cil.
  1870.  
  1871. [JS1StrComp]
  1872. Function StrComp(Retezec1,Retezec2:PChar):integer;
  1873.         Vrátí ƒíslo v∞sledku porovnání ²et╪zcà. 0 = shoda,
  1874.  N > 0 -> R1 > R2; N < 0 -> R1 < R2.
  1875.  
  1876. [JS1StrCopy]
  1877. Function StrCopy(Cil,Zdroj:PChar):PChar;
  1878.         Vrací ²et╪zec vznikl∞ kopírováním Zdroj na Cil. Nekontroluje
  1879. délku ²et╪zce.
  1880.  
  1881. [JS1StrDispose]
  1882. Procedure StrDispose(Retezec:PChar);
  1883.         Uvolní z pam╪ti ²et╪zec umíst╪n∞ proc. StrNew.
  1884.  
  1885. [JS1StrECopy]
  1886. Function StrECopy(Cil,Zdroj:PChar):PChar;
  1887.         Konpíruje Zdroj na konec Cil a vrací ukazatel na znak NULL. 
  1888.         
  1889. [JS1StrEnd]
  1890. Function StrEnd(Retezec:PChar):PChar;
  1891.         Vrací ukazatel na konec ²et╪zce Retezec.
  1892.  
  1893. [JS1StrIComp]
  1894. Function StrIComp(Retezec1,Retezec2:PChar):integer;
  1895.         Porovná dva ²et╪zce nezávisle na velikosti písma. Vrací 
  1896. 0 pro R1=R2; N > 0 pro R1 > R2 a N < 0 pro R1 < R2.
  1897.  
  1898. [JS1StrLCat]
  1899. Function StrLCat(Cil,Zdroj:PChar;Delka:word):PChar;
  1900.         Na konec ²et╪zce Cil p²ipojí Delka - poƒet znakà z ²et╪zce Zdroj.
  1901.         
  1902. [JS1StrLComp]
  1903. Function StrLComp(Retezec1,Retezec2:PChar;Delka:word):integer;
  1904.         Porovná dva ²et╪zce R1 a R2 aº do délky Delka. V∞sledek je = 0
  1905. p²i R1 = R2 (Delka), N > 0 p²i R1 > R2 (Delka); N < 0 p²i R1 < R2 (Delka).
  1906.  
  1907. [JS1StrLCopy]
  1908. Function StrLCopy(Cil,Zdroj:PChar;Delka:word):PChar;
  1909.         Zkopíruje poƒet znakà Delka z ²et╪zce Zdroj do ²et╪zce Cil.
  1910.         
  1911. [JS1StrLen]
  1912. Function StrLen(Retezec:PChar):word;
  1913.         Vrací poƒet znakà v ²et╪zci , mimo zn. NULL.
  1914.  
  1915. [JS1StrLIComp]
  1916. Function StrLIComp(Retezec1,Retezec2:PChar;Delka:word):integer;
  1917.         Porovná ²et╪zce R1 a R2 v délce Delka. V∞sledek je roven 0 p²i
  1918. R1 = R2 (Delka), N > 0 p²i R1 > R2 (Delka); N < 0 p²i R1 < R2 (Delka).
  1919.  
  1920. [JS1StrLower]
  1921. Function StrLower(Retezec:PChar):PChar;
  1922.         P²evede v ²et╪zci velká písmena na malá.
  1923.  
  1924. [JS1StrMove]
  1925. Function StrMove(Cil,Zdroj:PChar;Count:word):PChar;
  1926.         Z ²et╪zce Zdroj zkopíruje znaky v poƒtu Count do ²et╪zce Cil.
  1927. Pro ràzn╪ dlouhé ²et╪zce.
  1928.  
  1929. [JS1StrNew]
  1930. Function StrNew(Retezec:PChar):PChar;
  1931.         V prostoru haldy p²id╪lí pam╪£ nov╪ vytvá²enému ²et╪zci.
  1932.  
  1933. [JS1StrPas]
  1934. Function StrPas(Retezec:PChar):string;
  1935.         P²evede ²et╪zec typu PChar na typ string.
  1936.  
  1937. [JS1StrPCopy]
  1938. Function StrPCopy(Cil:PChar;Zdroj:string):PChar;
  1939.         Kopíruje ²et╪zec typu string Zdroj do ²et╪zce Cil typu PChar,
  1940. kter∞ je o znak NULL delτí.
  1941.  
  1942. [JS1StrPos]
  1943. Function StrPos(Retezec1,Retezec2:PChar):PChar;
  1944.         Hledá v ²et╪zci R1 ²et╪zec R2. Najde-li ho, vrátí ukazatel na
  1945. první znak, jinak NIL.
  1946.  
  1947. [JS1StrRScan]
  1948. Function StrRScan(Retezec:PChar;Znak:char):PChar;
  1949.         Hledá v ²et╪zci Retezec poslední v∞skyt znaku Znak 
  1950. (vƒetn╪ zn. NULL). Vrací ukazatel na n╪j. 
  1951.  
  1952. [JS1StrScan] 
  1953. Function StrScan(Retezec:PChar;Znak:Char):PChar;
  1954.         Hledá první v∞skyt znaku Znak v ²et╪zci Retezec. Vrací ukazatel
  1955. na n╪j nebo NIL.
  1956.  
  1957. [JS1StrUpper]
  1958. Function StrUpper(Retezec:PChar):PChar;
  1959.         P²evádí ²et╪zec mal∞ch písmen na velká.
  1960.  
  1961. [Konec souboru NapisyUP.DAT.]
  1962.