home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / MOD_PSV.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-04-15  |  67KB  |  1,187 lines
  1. soucf
  2. MOD_PSV
  3. c_poc.txt
  4. klico*9
  5. c_spc
  6. c_poc
  7. c_spc
  8. PS_zaznf
  9. KLnazf
  10. klicof
  11. klico
  12. w_cestinaf
  13. w_csprolf
  14. w_frontaf
  15. PS_linef
  16. PS_stablef
  17. PS_returnf
  18. RecLevelf
  19. w_tiskarnaf
  20. Epson LX-810
  21. Epson LX-810
  22. w_Mysf
  23. id_Orgf
  24. w+/bg
  25. mod_psv
  26. FFFZ^D
  27. colora
  28. C_PSVFF
  29. F1onf
  30. F1prgf
  31. tiskprgf
  32. F4prgf
  33. F4prgf
  34. F7_jmf
  35. F7prgf
  36. F9prgf
  37. F9Keyf
  38. F9Key1f
  39. F10_jmf
  40. F10prgf
  41. UNDEF
  42. detailf
  43. det_jmf
  44. Detprgf
  45. enterf
  46. UNDEF
  47. F0prgf
  48. UNDEF
  49. spacebarf
  50. Podnikf
  51. _Firmaf
  52. NazevTf
  53. riisf
  54. FFZFZ
  55. FFZFZ
  56. FFZFZ
  57. cmasterorder
  58. PS_returnf
  59. RTopf
  60. RBotf
  61. CLeftf
  62. CRightf
  63. Freezef
  64. poc0f
  65. Titlef
  66. TitleColorf
  67. cmasterorder
  68. orderz
  69. DESCENDING
  70. set procedure to &cselfproc
  71. colora
  72. Ramecekf
  73. CASE f2 and Nrow1 = Rf2 and between (Ncol1, &Mf2)
  74. CASE f3 and Nrow1 = Rf3 and between (Ncol1, &Mf3)
  75. CASE f4 and Nrow1 = Rf4 and between (Ncol1, &Mf4)
  76. set procedure to &ctiskproc
  77. do &f4prg
  78. set procedure to &cselfproc
  79. CASE f6 and Nrow1 = Rf6 and between (Ncol1, &Mf6)
  80. CASE f7 and Nrow1 = Rf7 and between (Ncol1, &Mf7)
  81. set procedure to &procx
  82. do &f7prg
  83. set procedure to &cselfproc
  84. CASE f9 and Nrow1 = Rf9 and between (Ncol1, &Mf9)
  85. set procedure to &procx
  86. do &f9prg
  87. set procedure to &cselfproc
  88. CASE f10 and Nrow1 = Rf10 and between (Ncol1, &Mf10)
  89. set procedure to &procx
  90. do &f10prg
  91. set procedure to &cselfproc
  92. CASE detail and Nrow1 = Rdetail and between (Ncol1, &Mdetail)
  93. set procedure to &procx
  94. do &detprg
  95. set procedure to &cselfproc
  96. CASE Nrow1 = Rkonec  and between (Ncol1, &Mkonec)
  97. c_oznac
  98. c_oznac
  99. c_oznac
  100.   Prob
  101.  ozna
  102.  ...  
  103.   Probiha oznaceni zaznamu ...  
  104. c_oznac
  105. c_oznac
  106. c_oznac
  107. c_oznac
  108. set procedure to &procx
  109. do &f1prg
  110. set procedure to &cselfproc
  111. set procedure to &procx
  112. do &f9prg
  113. set procedure to &cselfproc
  114. set procedure to &ctiskproc
  115. do &f4prg
  116. set procedure to &cselfproc
  117. set procedure to &procx
  118. do &detprg
  119. set procedure to &cselfproc
  120. set procedure to &procx
  121. do &f7prg
  122. set procedure to &cselfproc
  123. set procedure to &procx
  124. do &f10prg
  125. set procedure to &cselfproc
  126. select &cmastersel
  127. set index to &cindexlist             
  128. cmasterorder
  129. c_oznac
  130. set color to &gcol
  131. set procedure to &procx
  132. CSELFPROC
  133. COLDCOLOR
  134. CPS_DBF
  135. NSCRCNT
  136. ?pCOLDDESC
  137. ?NTOPSCR
  138. ?lNCURSCR
  139. c?NDESCENDINCPS_CDX
  140. r?CDESCENDINCTISKPROC
  141. CPODM_ST
  142. _DELP
  143. ?,? ?NR1
  144. ?r?i?vNR2
  145. e? ?n?NC1
  146. ?s?c?rNC2
  147. n?c?u?NIR1
  148. r?,? NIR2
  149. ?s?c?NIC1
  150. i?n?gNIC2
  151. ?p?s?NICX
  152. x?,? LF1
  153.  ? ?p?LINTF1
  154. t?eLEXTF1
  155. ?s?NALLPZAZ
  156. ,NSAVEZAZ
  157. ?NSAVEREC
  158.  NTRGPZAZ
  159. ?NBROWPTR
  160.  NDBFPTR
  161.  ?LSHORTJMP
  162. STAB_I
  163. ?v?STAB_J
  164. n?rSTAB_RCC
  165. ?STAB_TMP
  166. nLOA_RCC
  167. n?CNT_RCC
  168. ?iLNEWREF
  169. i?LSTABLE
  170. ?cLISLOAD
  171. i?LNEWLOAD
  172. rLISCOUNT
  173. ?LNEWCNT
  174. ? CPODMV
  175. ?f?CPODMS
  176. e?xNHEADLEN
  177. ?CMASTERINDNJMP
  178. ? ? ?I
  179. ? ? ? ? NPOS
  180. ? ? ?NMENUPOS
  181.  ?n?a?GCOL
  182. z?a?zNREC
  183. ?s?a?NEXIT
  184. ?z?,TISK
  185. ?a?v?CINDEXLISTNMASTERORDCMASTERSELCFILTER
  186. r?CMASTERORDCPODMVU
  187. w?COLOR1
  188.  ?nCOLOR2
  189. ?t?COLOR3
  190. s?hCOLOR4
  191. ?m?ST_SEL_PSVS
  192.  ? ? ? ?MEXIT
  193. ? ? NROW1
  194. v?a?NCOL1
  195. ?t?aMF1
  196. i?,? ?MF2
  197. ?b?_?jMF3
  198. s?t?a?MF4
  199. ?c?c?,MF5
  200. t?a?b?MF6
  201. ?p?,? MF7
  202. a?_?r?MF8
  203. ?p?r?iMF9
  204. t?e? ?MF10
  205. w?r?eMDETAIL
  206. s?MKONEC
  207. e?,RF1
  208. i?s?l?RF2
  209. ?,? ?lRF3
  210. w?l?o?RF4
  211. ? ?l?iRF5
  212. o? ? ?RF6
  213. ?v?a?tRF7
  214. c?p?o?RF8
  215. ?,? ?cRF9
  216. d?m?s?RF10
  217.  ? ? RDETAIL
  218.  ?RKONEC
  219.  ? SUMAC
  220.  ? ?SUMA
  221.  ? ? PSOUC
  222. r?i?POCSOUC
  223. ?nPRUCH
  224. d?l?POLEX
  225. ?c?mSOUC
  226. e?r?IWF2
  227. ?x? AWF2
  228. ? ? ?HWF2
  229.  ? ? KLICO
  230.  ? ?TO
  231.  ? ? ?pC_POC
  232. a?t?TXT
  233. ?j?m?pC_SPC
  234. ,? ?R
  235. ?o?s?,? PS_ZAZN
  236. u?KLNAZ
  237. ?sW_CESTINA
  238. W_CSPROL
  239. nW_FRONTA
  240. ?PS_LINE
  241. ?vPS_STABLE
  242. PS_RETURN
  243. RECLEVEL
  244. ?W_TISKARNAW_MYS
  245. ARNAID_ORG
  246. m?aF1ON
  247.  ? F1PRG
  248. ="@F2
  249. y 'F3
  250.  ? ? PROCX
  251. F4PRG
  252. TISKPRG
  253. ?c?mF7
  254. e?r?F7_JM
  255. ?x? F7PRG
  256.  ? ?F9
  257.  ? ? F9PRG
  258.  ? ?F9KEY
  259. ? ?pF9KEY1
  260. ?t?F10
  261. m?pF10_JM
  262. ? ?F10PRG
  263. ,? DETAIL
  264. u?DET_JM
  265. ?sDETPRG
  266. ENTER
  267. RONTA
  268. ?F0PRG
  269. ?vSPACEBAR
  270. PODNIK
  271. _FIRMA
  272. ?NAZEVT
  273. RNARIIS
  274. ARNAPOM
  275. EXLISTRTOP
  276. NADPIS
  277.  ? RBOT
  278. ="@DOL
  279. y 'CLEFT
  280.  ? ? CRIGHT
  281. PRAVA
  282. FREEZE
  283. l?POC0
  284. c?mTITLE
  285. e?r?TITLECOLORZAHLAVI
  286. INVETA
  287.  ? ? AMAP
  288.  ? ?ACACHE
  289.  ?pACACHDIR
  290. ?PADZAHL
  291. pMAPINIT
  292.  ?AUTOBUILD
  293. SETCACHE
  294. ?CLRCACHE
  295. sGSCR
  296. RAMECEK
  297. nHLAVA
  298. ?SETF1
  299. ?vREPOS
  300. REFALL
  301. CNTALL
  302. ?LITEON
  303. RNASTABILIZE
  304. COUNTER
  305. TLITEOFF
  306. TIMELIMIT
  307. INVAL2
  308. ="@VYBER
  309. TRIDENI
  310. VOLBA
  311. HLEDEJ
  312. INFOCNT
  313. SKIPN
  314. C_OZNAC
  315. SVZAZNAM
  316. ?r?ZAZX
  317. L_PSVCACHEUP
  318.  MESS
  319. ST_ZAZ
  320. PSVCACHEDN
  321. VRCLEAR
  322. CHKPAR
  323. sestava.txt
  324. sestt1.txt
  325.   Nelze tisknout - p
  326.  sestava  
  327.   Nelze tisknout - prilis siroka sestava  
  328. p_kody.dbf2
  329. tomen soubor 
  330.  tisk
  331. ren (P_KODY)
  332. p_kody
  333. p_kody
  334. p_name
  335. m_tfr
  336. m_tfr
  337. t_fronta
  338. colora
  339.  Parametry tisku 
  340. Konec
  341. Funkce
  342. -^End
  343. stup: 1-tisk, 2-obraz., 3-WIN, 4-TXT
  344. et opakov
  345. Tiskov
  346.  fronta
  347. ka str
  348. nky (1-
  349. Posledn
  350.  okraj
  351.  na str
  352. Odstr
  353. ed tiskem,2-po tisku,3-oboj
  354.  (1-standardn
  355. ,2-ob 
  356. Ve zku
  357.  verzi nen
  358.  zapojeno !
  359. Ve zku
  360.  verzi hodnoty 1,3,4 nelze pou
  361. Chybn
  362.  zadan
  363. ka str
  364. Chybn
  365.  (povoleno 1,2)
  366. Chybn
  367. et opakov
  368. Chybn
  369.  zadan
  370. Chybn
  371.  zadan
  372.  posledn
  373. Chybn
  374.  zadan
  375.  a posledn
  376. Chybn
  377.  zadan
  378.  odstr
  379. select &cmastersel
  380. set color to &col
  381.   Nelze tisknout - p
  382.  sestava  
  383. select &cmastersel
  384.   Prob
  385.  tisk sestavy ...  
  386.  Esc-p
  387. british
  388. sestava.doc
  389. store fcreate('&M_txt') to _text      
  390. Nelze vytvo
  391. it soubor pro sestavu
  392. select &cmastersel
  393. if type('tr_hl&i')='C'
  394. if type('tr_hl&i')#'C'
  395. _klics=&klico           
  396. do tisk_hl&tdr
  397. do tisk_s&tdr
  398.       - (^)
  399. ipky,(^)Home,(^)End,PgUp,PgDn 
  400.       - (^)Sipky,(^)Home,(^)End,PgUp,PgDn 
  401.       - Esc
  402. Pohyb
  403. Konec
  404.  Prohl
  405.  sestavy 
  406.  Prohlizeni sestavy 
  407. modi comm &m_txt.txt noedit window w 
  408. modi comm &m_txt.txt noedit window w
  409. mod_psv
  410. faktura.txt
  411. !copy faktura.txt &m_txt >nul
  412. delete file &m_txt
  413. delete file &m_txt
  414. select &cmastersel
  415. ELFPROC
  416. ZAHLT1
  417. ?pADDSPACE
  418. ?ADDLEN
  419. ?lRAD
  420. ESCENDINPISMO
  421. r?STRANA
  422. DINSCR
  423. KPROC
  424. EOFMARK
  425. ?,? ?T_TISK
  426. i?vT_SIRKA
  427. n?T_POC
  428. ?c?rT_KON
  429. c?u?T_LEFT
  430. ,? T_RAD
  431. s?c?T_EJECT
  432. ?gT_DRUH
  433. ?s?TDR
  434. x?,? T_MEZIRAD
  435. T_OPAK
  436. t?eMJMENO
  437. ?s?MMPOM
  438. ,MMCEST
  439. ?MCOL
  440.  _PATH
  441. ?CES_EXP
  442.  M_TEXT
  443.  ?M_TEXT1
  444. M_EXIT
  445. ?v?M_TXT
  446. n?rM_TXT1
  447. ?SUMA
  448. nSUMAC
  449. n?POCSOUC
  450. ?iKLICO
  451. i?NHEADLEN
  452. cZAHL
  453. i?AMAP
  454. rW_CESTINA
  455. ? ZAV_KODY
  456. ?P_KODY
  457. e?xP_NAME
  458. ?ZAV_TFR
  459. DM_TFR
  460.  ? ?T_FRONTA
  461.  W_TISKARNAP_PAGE_W
  462. aP_POC_R
  463. a?ID_ORG
  464. a?zW_FRONTA
  465. ?X_FRONTA
  466. X_OBR
  467. LISTHLASKA
  468. P_10CPI
  469. NAP_12CPI
  470. r?P_COMPRESSZN_RAD
  471. SNIR1
  472. ?nNIR2
  473. ?t?NIC1
  474. s?hNIC2
  475. ?m?COLOR1
  476. PSVBRITISH
  477. ?M_ALIAS
  478. ? XMSCR
  479. ?a?NASTSOUBORANSI
  480.  ?POMT_RAD
  481. CESTINA
  482. W_MISTO
  483. ?,S2LATWIN
  484. ?MOD_PSV
  485. ? EXPPOL_TT
  486. PRUCH
  487. Celkem:
  488. Celkem:
  489. = fputs (_text, "&Pxx" )         
  490. = fputs (_text, "&xx" )              
  491. EOFMARK
  492. POCSOUC
  493. T_DRUH
  494. ?pPXX
  495. ?T_LEFT
  496. c?NAST_SOUC
  497. DINZAHLT1
  498. centuryz
  499. = fputs (_text, "&xx" )
  500. = fputs (_text, "&xx" )
  501. = fputs (_text, "&xx" )
  502. = fputs (_text, "&xx" )
  503. tr_hl1f
  504. = fputs (_text, "&xx" )
  505. xx = space(t_left) + tr_hl&i
  506. = fputs (_text, "&xx" )
  507. if type('tr_hl&i')#'C'
  508. tr_hl1f
  509. = fputs (_text, "&xx" )
  510. = fputs (_text, "&xx" )
  511. = fputs (_text, "&xx" )
  512. ?pRAD
  513. ?lT_RAD
  514. T_SOUC
  515. T_LEFT
  516. r?ZN_RAD
  517. DINPODNIK
  518. NAZEVT
  519. ? ?TISK_HLAV
  520. STRANA
  521. c?rPATAL
  522. c?u?ZAHLT1
  523. pxx = pxx + &jmenot +' '+iif(i=nheadlen,"",addspace)
  524. suma(i)=suma(i)+&hodnot      
  525. sumac(i)=sumac(i)+&hodnot    
  526. = fputs (_text, "&xx" )
  527. if _klics# &klico or eof()         
  528. = fputs (_text, "&Pxx" )        
  529. _klics=&klico                   
  530. Celkem:
  531. = fputs (_text, "&Pxx" )          
  532. = fputs (_text, "&xx" )
  533.     Zru
  534. it tisk? (a/N)     
  535.     Zrusit tisk? (a/N)     
  536. **************************************************
  537. = fputs (_text, "&xx" )
  538.              Sestava n
  539.              Sestava nasilne prerusena 
  540. = fputs (_text, "&xx" )
  541. **************************************************
  542. = fputs (_text, "&xx" )
  543. = fputs (_text, "&xx" )
  544. JMENOT
  545. PATAL
  546. ?pPXX
  547. c?RAD
  548. _SOUC
  549. EOFMARK
  550. r?T_RAD
  551. NHEADLEN
  552. _JMENO
  553. ? ?AMAP
  554. PSOUC
  555. HODNOT
  556. c?rHODN
  557. c?u?T_MEZIRAD
  558. POCSOUC
  559. T_LEFT
  560. ?gKLNAZ
  561. ?s?DELP
  562. x?,? NAST_SOUC
  563. KLICO
  564. t?eSUMA
  565. ZAHLT1
  566. T_PRERUS
  567. ?PRER
  568.  W_CESTINA
  569. KON_TISK
  570.  ?STRANA
  571. ZN_RAD
  572.    a 
  573.  and 
  574. nebo 
  575. Konec
  576. FFFFF
  577.  Vyber zaznamu F
  578. Stop - d
  579. lku podm
  580. nky ji
  581.  nelze zv
  582. ) and (
  583. cmasterorder
  584.   Prob
  585. ...  
  586.   Probiha vyber zaznamu...  
  587. index on recno() tag &cps_dbf of &cps_cdx for &cpodmvu additive &cdescending
  588. cmasterorder
  589. index on &tmp tag &cps_dbf of &cps_cdx for &cpodmvu additive &cdescending
  590.   Prob
  591. ...  
  592.   Probiha nacteni zaznamu...  
  593. index on &cpodms tag &cps_dbf of &cps_cdx for &cfilter additive &cdescending
  594. index on &cpodms tag &cps_dbf of &cps_cdx additive &cdescending
  595.   Prob
  596. ...  
  597.   Probiha vyber zaznamu...  
  598. index on &cpodms tag &cps_dbf of &cps_cdx for &cpodmvu additive &cdescending
  599. cmasterorder
  600.  Podm
  601. nce neodpov
  602. znam !  Stiskn
  603. te cokoliv...  
  604.  Podmince neodpovida zadny zaznam !  Stisknete cokoliv...  
  605. NOLDVOLBA
  606. NMENUPTR
  607. NMENUPOS
  608. AZAHLLEN
  609. _SOUC
  610. r?TMP
  611. NCOLDPODMV
  612. _OLDORDER
  613. ?NVOLBA
  614. c?u?RELACE
  615. ?gPICTX
  616. ?s?CTYP
  617. x?,? XOPER
  618. t?eAREL
  619. ALOGIC
  620. AOPER
  621. ?AZAHL
  622.  AZAHLMAP
  623. NHEADLEN
  624. CPODMV
  625. ?v?NIC1
  626. n?rNIC2
  627. ?HODN
  628. nAMAP
  629. n?ZAHL
  630. iW_CESTINA
  631. POC_OT
  632. cDEL_OT
  633. i?MAX_DEL
  634. rCPODM_ST
  635. CPODMV1
  636. ? VYSKOC
  637. ?TVOR_CAST
  638. STOPSEL
  639. ?CFILTER
  640. CPODMVU
  641.  ?CPODMS
  642.  CMASTERORDMESS
  643. CMASTERINDREPOS
  644. RCLEAR
  645. ?VRESET
  646. ,REFALL
  647. CLRCACHE
  648. TCNTALL
  649. xget = &prom
  650. xGetf
  651. Pro numerick
  652.  hodnoty nelze oper
  653. tor pou
  654. british
  655. xGetf
  656. @nrow,ncol get xget picture &pictx
  657. xGetf
  658. CToD('F
  659. poc_otf
  660. substr(
  661. uppercs(
  662. upper(
  663. poc_otf
  664. ,poc_ot+1,del_ot)
  665. VYSKOC
  666. NVOLBA
  667. FMENU
  668. ?lNCOL
  669. _SOUC
  670. r?AZAHL
  671. _RELACE
  672. ?PROM
  673. AZAHLMAP
  674. rNTYP
  675. ?u?HLASKA
  676. PICTX
  677. BRITISH
  678. ?gXGET
  679. ?s?JMENO_P
  680. ? JMENO
  681. POCET_DES
  682. POCET_CEL
  683. ?POC_OT
  684. DEL_OT
  685. W_CSPROL
  686. UPPERCS
  687. CPODMV1
  688.       a
  689. Konec  
  690. Konec 
  691.  Trideni zaznamu F
  692. DESCENDING
  693. Stop - d
  694. lku podm
  695. nky ji
  696.  nelze zv
  697. ) and (
  698. cmasterorder
  699.   Prob
  700. ...  
  701.   Probiha nacteni zaznamu...  
  702. index on recno() tag &cps_dbf of &cps_cdx for &cpodmvu additive &Ndescending
  703. cmasterorder
  704. index on &tmp tag &cps_dbf of &cps_cdx for &cpodmvu additive &Ndescending
  705.   Prob
  706. ...  
  707.   Probiha trideni zaznamu...  
  708. index on &cpodms tag &cps_dbf of &cps_cdx for &cfilter additive &Ndescending
  709. index on &cpodms tag &cps_dbf of &cps_cdx additive &Ndescending
  710.   Prob
  711. ...  
  712.   Probiha trideni zaznamu...  
  713. index on &cpodms tag &cps_dbf of &cps_cdx for &cpodmvu additive &Ndescending
  714. NOLDVOLBA
  715. NMENUPTR
  716. NMENUPOS
  717. AZAHLLEN
  718. _SOUC
  719. r?COLDPODMS
  720. NVOLBA
  721. _NROW
  722. ?NCOL
  723. CPROM
  724. rXPROM
  725. ?u?CTYP
  726. XOPER
  727. ?gTMP
  728. ?s?ALOGIC
  729. AZAHL
  730. T_DES
  731. NHEADLEN
  732. CPODMS
  733. COLDDESC
  734. ?NDESCENDINNIR1
  735. ENDINNR2
  736. ?AMAP
  737. n?rZAHL
  738. ?W_CESTINA
  739. MAX_DEL
  740. n?CPODM_ST
  741. iNDESC
  742. CPODMS1
  743. INVYSKOC
  744. i?TVOR_TRID
  745. STOPSEL
  746. AZAHLDEL
  747.  CFILTER
  748. INCPODMVU
  749. CPODMV
  750. ?CMASTERORDMESS
  751. CMASTERINDREPOS
  752. REFALL
  753. CLRCACHE
  754. xprom = &cpodms1
  755. xPromf
  756. csn(FF
  757. dtoc(FF
  758. VYSKOC
  759. NVOLBA
  760. FMENU
  761. ?lNCOL
  762. _SOUC
  763. r?ZAHL
  764. AZAHL
  765. _NROW
  766. ?CPODMS1
  767. rW_CSPROL
  768. ?JMENO_P
  769. JMENO
  770. POCET_DES
  771. POCET_CEL
  772. W_DOPL
  773.     a
  774. Konec
  775. colora
  776.  Volba polo
  777.  Volba polozek F
  778. set color to &col
  779. NOLDVOLBA
  780. NMENUPTR
  781. NMENUPOS
  782. AZAHLLEN
  783. _SOUC
  784. r?NVOLBA
  785. ?XOPER
  786. CWHEAD
  787. ?CBASE
  788. FREEZSTR
  789. T_DES
  790. ALOGIC
  791. POLEX
  792. FREEZE
  793. AZAHL
  794. ?NIC1
  795. ENDINNIC2
  796. ENDINNHEADLEN
  797. W_CESTINA
  798. FMENU
  799. n?rMAPINIT
  800. ?PSOUC
  801. ?AZAHLDEL
  802. iAUTOBUILD
  803. NVOLBA
  804. NUPTR
  805. NUPOS
  806. HLLEN
  807. pLCLR
  808. c?NMENUPTR
  809. AZAHLLEN
  810. ?NOLDVOLBA
  811. NMENUPOS
  812. AZAHL
  813. COLOR1
  814. ?COLOR2
  815. AZAHLLEN
  816. AZAHL
  817. colora
  818. set color to &col
  819. CMESS
  820. NWAIT
  821. HLLEN
  822. ?lSCR
  823. c?COL
  824. AHLLEN
  825. DVOLBA
  826. NUPOS
  827. colora
  828. set color to &col
  829. CMESS
  830. HLLEN
  831. ?lNIR1
  832. c?NIR2
  833. ?NIC2
  834. colora
  835. set color to &col
  836. CMESS
  837. NWAIT
  838. HLLEN
  839. ?lCOL
  840. ?NSTARTT
  841. ?NIC2
  842. LISCOUNT
  843. COUNTER
  844. rPS_ZAZN
  845. ?INFOCNT
  846. T_DES
  847. LISCOUNT
  848. NALLPZAZ
  849. set color to &titlecolor
  850. TITLE
  851. ?NIR2
  852. ?lNC2
  853. c?PS_ZAZN
  854. INFOCNT
  855. ?ZAHLAVI
  856. ZAHLAVI
  857. pNCURSCR
  858. ?lNC1
  859. c?NTOPSCR
  860. nlen = len( &tmp )
  861. MOD_PSV- Proc PadZahl: Polo
  862.  rozm
  863. r okna !
  864. POLEX
  865. pJMENO
  866. ?ZAHL
  867. ?lNIC2
  868. c?NIC1
  869. MOD_PSV- Proc AUTOBUILD: P
  870.  sestava !
  871. CFREVETA
  872. pCFREZAHL
  873. ?VETA
  874. lZAHLAVI
  875. c?NIC1
  876. NTOPSCR
  877. ?NCURSCR
  878. NHEADLEN
  879. ?NIC2
  880. NSCRCNT
  881. rJMENO
  882. ?PSOUC
  883. FREEZE
  884. NAZEVT
  885. Vyber8
  886. Trideni8
  887. 18,29
  888. Polozky8
  889. 18,29
  890. XXXXXXXXX
  891. 34,47
  892. Vyhled
  893. Vyhledani8
  894. 34,47
  895. XXXXXXXXX
  896. - F10
  897. 34,48
  898. XXXXXX
  899. - <Enter>
  900. 60,75
  901. Konec
  902. - Esc,^End
  903. 60,75
  904. W_MYS
  905. pW_CESTINA
  906. STINA
  907. ADLEN
  908. STINA
  909. ?F7_JM
  910. STINA
  911. F10_JM
  912. ?DETAIL
  913. DINDET_JM
  914. DINRDETAIL
  915. MDETAIL
  916. RKONEC
  917. MKONEC
  918. LTOGGLE
  919. pNIR1
  920. LNEWREF
  921. LSTABLE
  922. NDBFPTR
  923. NBROWPTR
  924. RCLEAR
  925. SKIPN
  926. pNIR1
  927. NBROWPTR
  928. lNDBFPTR
  929. LNEWCNT
  930. LISCOUNT
  931. NALLPZAZ
  932. PS_ZAZN
  933. pINFOCNT
  934. british
  935. acache(stab_i+1) = padr( &stab_tmp, nic2 - nic1 + 1 )
  936. LNEWREF
  937. STAB_RCC
  938. NDBFPTR
  939. pSTAB_J
  940. lNIR1
  941. ?STAB_I
  942. STAB_TMP
  943. NCURSCR
  944. ACACHDIR
  945. COLOR4
  946. ?COLOR3
  947. COLOR2
  948. COLOR1
  949. rNIC1
  950. ?ACACHE
  951. LSTABLE
  952. BRITISH
  953. C_OZNAC
  954. set order to &oldorder
  955. EWREF
  956. AB_RCC
  957. OLDORDER
  958. pCPODMV
  959. LNEWCNT
  960. lNSAVEZAZ
  961. ?NALLPZAZ
  962. CNT_RCC
  963. NSAVEREC
  964. LSHORTJMP
  965. LSTABLE
  966. PS_ZAZN
  967. rLISCOUNT
  968. ACACHDIR
  969. NBROWPTR
  970. COLOR3
  971. COLOR1
  972. pNIR1
  973. lACACHE
  974. british
  975. acache(nbrowptr) = padr( &tmp, nic2 - nic1 + 1 )
  976. do &f0prg in &procx
  977.  Ozna
  978. eno: 
  979. ACACHDIR
  980. NBROWPTR
  981. pBRITISH
  982. lNCURSCR
  983. ?ANSI
  984. C_OZNAC
  985. COLOR4
  986. COLOR2
  987. ACACHE
  988. PS_LINE
  989. OWPTR
  990. rNTRGPZAZ
  991. ?NIR2
  992. c_oznac
  993. c_oznac
  994. RADEK
  995. ZAZNAM
  996. SPACEBAR
  997. ST_SEL_PSVC_OZNAC
  998. ACACHDIR
  999. NHEADLEN
  1000. POLEX
  1001. cmasterorder
  1002. indexk = &cix
  1003. IndexKf
  1004. COLORa
  1005.  Vyhled
  1006.  Vyhledani: 8
  1007.   .  .  #
  1008. znam neexistuje ! 
  1009.  Zaznam neexistuje ! 
  1010. set order to &oldorder
  1011. znam nen
  1012. ru ! 
  1013.  Zaznam neni soucasti vyberu ! 
  1014. cmasterorder
  1015. set order to &oldorder
  1016. INDEXK
  1017. CHDIR
  1018. SEL_PSVC2
  1019. NWIDE
  1020. rLROW
  1021. ?RKEY
  1022. NGETCOL
  1023. OLDORDER
  1024. CMASTERORDF9KEY
  1025. DINW_CESTINA
  1026. F9KEY1
  1027. MESSW
  1028. NDBFPTR
  1029. RDSKIPN
  1030. n?rNIR1
  1031. ?NBROWPTR
  1032. REFALL
  1033. ?CLRCACHE
  1034. ACACHDIR
  1035. ACACHDIR
  1036. ACACHE
  1037. ACACHDIR
  1038. VNIR1
  1039. ACACHE
  1040. ACACHDIR
  1041. VLINTF1
  1042. VCLEFT
  1043. CRIGHT
  1044. SETF1
  1045. OFFLINE
  1046.   Tisk
  1047. rna nen
  1048. ipravena !  
  1049. MESSW
  1050. colora
  1051. MCOLOR
  1052. OBRAZ
  1053. _del=len(&jmeno(amap(i)))                 
  1054. sum all &hodnot to sumat           
  1055. tranFF
  1056. NHEADLEN
  1057. PSOUC
  1058. EOFMARK
  1059. VPRUCH
  1060. HODNOT
  1061. lHODN
  1062. VAMAP
  1063. SUMAT
  1064. SUMAC
  1065. JMENO
  1066. rADDSPACE
  1067. pathz
  1068. colorz
  1069. double
  1070. Zadejte jm
  1071. stupn
  1072. ho souboru:
  1073. Zadejte 
  1074. plnou cestu c
  1075. le exportu:
  1076. (Pokud adres
  1077.  neexistuje, bude vytvo
  1078. uje-li podm
  1079. nky DOSu pro MKDIR.)
  1080. Cesta nebyla zad
  1081. Cesta nesm
  1082.  obsahovat mezery !
  1083. no nebylo zad
  1084. M_EXIT
  1085. _PATH
  1086. VMMPOM
  1087. MJMENO
  1088. lM_TXT
  1089. VCES_EXP
  1090. MOD_WIN
  1091. HLASKA
  1092. MMCEST
  1093. pathz
  1094. colorz
  1095. double
  1096. te disketu a zm
  1097. te ENTER ...
  1098. !&pth\test_d &sach
  1099. ERROR
  1100. Disketa nebyla vlo
  1101. Disketa nebyla vlozena
  1102. mkdir
  1103. set default to &sach
  1104. set default to &drive
  1105. =adir(f_info,'&m_txt')
  1106. sta na disket
  1107. mkdir
  1108.  Prob
  1109. enos ... 
  1110. !copy &m_txt &plna_ces > nul
  1111. W_EXP
  1112. VMMSCR
  1113. PLNA_CES
  1114. lSACH
  1115. VDRIVE
  1116. FREESPACE
  1117. F_INFO
  1118. F_SIZE
  1119. MPOZSPACE
  1120. _PATH
  1121. CES_EXP
  1122. MOD_WIN
  1123. rTEST
  1124. ?W_CESTINA
  1125. HLASKA
  1126. MKDIR
  1127. MJMENO
  1128. store fcreate('&OUT_soub') to _text      
  1129. Nelze vytvo
  1130. it soubor pro sestavu
  1131. clat_win
  1132. = fputs (_text, "&xx" )
  1133. IN_SOUB
  1134. OUT_SOUB
  1135. XMSCR
  1136. VALIAS
  1137. A_CES
  1138. lCPOLE
  1139. VCLAT_WIN
  1140. LAT_WINCS
  1141. KON_TISK
  1142. TISK_HL2
  1143. TISK_S2
  1144. VYBER
  1145. TVOR_CAST
  1146. TRIDENI
  1147. TVOR_TRID
  1148. VOLBA
  1149. FMENU
  1150. AZAHLDEL
  1151. STOPSEL
  1152. MESSW
  1153. INFOCNT
  1154. RAMECEK
  1155. RCLEAR
  1156. ZAHLAVI
  1157. PADZAHL
  1158. AUTOBUILD
  1159. HLAVA
  1160. SETF1
  1161. REFALL
  1162. VRESET
  1163. REPOS
  1164. CNTALL
  1165. STABILIZE
  1166. COUNTER
  1167. LITEOFF
  1168. LITEON
  1169. C_OZNAC
  1170. SKIPN
  1171. MAPINIT
  1172. HLEDEJ
  1173. CLRCACHE
  1174. SETCACHE
  1175. CACHEUP
  1176. CACHEDN
  1177. CHKPAR
  1178. TISKTEST
  1179. HLASKA
  1180. NAST_SOUC
  1181. NASTSOUBOR
  1182. EXPPOL_TT
  1183. S2LATWIN
  1184. P:\IN\SK\O\
  1185. MOD_PSV.FXP
  1186. P:\IN\SK\O\MOD_PSV.PRG
  1187.