home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / MOD_PKOD.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-08-21  |  17KB  |  379 lines
  1. pole(PKODX
  2. ehled 
  3. ch znak
  4.  tisk
  5. RIIS 0.0
  6. Kopie
  7. kopie_t
  8. zmen_kod
  9. mod_pkod
  10.  Zadejte nazev tiskarny : 
  11. p_kody
  12. p_name
  13. p_name
  14. p_name
  15. kaz odstranit diakritiku
  16. space(10)+p_kodprn
  17. p_kodprn
  18. str(p_poc_r,6)
  19. p_poc_r
  20. POLEX
  21. ole(PROCX
  22.  6,5RTOP
  23. w_polRBOT
  24. @  7CLEFT
  25.  w_pCRIGHT
  26. @ FREEZE
  27. y wORDER
  28. 22 sayDOL
  29. le( 5)LEVA
  30. ,58 sPRAVA
  31. le( NADPIS
  32. ,22ZAHL
  33. _poleJMENO
  34.   9,HODN
  35.  w_poSOUC
  36. @ 1PSOUC
  37. y w_TITLE
  38. @TITLECOLORPOC0
  39. 2,22 saF1
  40. pole( 8F2
  41.  12,45 F3
  42. w_pole(F4
  43. @ 13,2F6
  44. y w_polF7
  45. @ 13F9
  46. say w_pF10
  47. @ F0PRG
  48. ay wF1ON
  49. F1PRG
  50.  sayF4_JM
  51. (13)F4PRG
  52. 22 sTISKPRG
  53. (1F7_JM
  54. 5,45F7PRG
  55. poleF9PRG
  56.  16,F9KEY
  57. w_poF9KEY1
  58. @ 1F10_JM
  59.  w_F10PRG
  60. @RAMECEK
  61. y RIIS
  62. NAZEVT
  63.  saKLICO
  64. e(19KLNAZ
  65. ,22 SPACEBAR
  66. (TR_HL1
  67. 8,4TR_HL2
  68. polTR_HL3
  69.  19TR_HL4
  70. w_pTR_HL5
  71. reTR_HL6
  72. ***TR_HL7
  73. ***TR_HL8
  74. ***TR_HL9
  75. ***DET_JM
  76. ***ENTER
  77. ****DETAIL
  78. DETPRG
  79. e zPS_LINE
  80. amPS_RETURN
  81. PS_ZAZN
  82.  tANSI
  83. /rW_POLE
  84. P_KODY
  85. P_NAME
  86. _polMOD_PSV
  87. OPRAVA
  88. le(PS_RETURN
  89. do dej_znak
  90. set color to b/bg
  91. set color to bg/n
  92. set color to w+/bg
  93. set color to b/bg,w+/rb
  94. set color to w+/b
  95. set color to w/n
  96. &barvau
  97. le(ANSI
  98. NAPLN
  99. _polNOVY_Z
  100.   7JMENO_C
  101. _pWJMENO_C
  102.  RADEK_C
  103.  wSLOUPEC_C
  104. 2 sayQ1
  105. le( 5)Q2
  106. ,58 sQ3
  107. le( Q4
  108. ,22Q5
  109. _poleQ6
  110.   9,Q7
  111.  w_poQ8
  112. @ 1Q9
  113. y w_Q10
  114. ECOLORQ12
  115. ,22 saQ14
  116. ole( 8Q15
  117. 12,45 Q16
  118. _pole(Q17
  119. @ 13,2Q18
  120.  w_polQ19
  121. @ 13Q20
  122. ay w_pQ21
  123. @ Q22
  124. ay wQ23
  125.  sayQ26
  126. (13)CISELNIK
  127. (1DOL
  128. 5,45POCET
  129. poleDOP1
  130.  16,DOP2
  131. w_poPOR
  132. @ 1COUNT
  133.  w_ZAKAZNIK
  134. @POMOC
  135.  saSL
  136. e(19POC
  137. ,22 KONTROLA
  138. (BARVAS
  139. 8,4BARVAR
  140. polBARVAZ
  141.  19BARVAU
  142. w_pBARVAN
  143. reBARVAH
  144. ***BARVA
  145. ***KS
  146. ***MENU
  147. ***PORADI
  148. ***KONEC
  149. ****I
  150. ETURN
  151. _ZAZN
  152. 22 ZMENY
  153.        - 
  154.        - vlo
  155.  ASCI znak
  156.                   - ^PgDn
  157.                   - ^Home
  158.       - ^End,Esc
  159.  Pohyb
  160. Konec - 
  161. W_POLE
  162. @ 4,22 &vloz w_pole( 1) pict '@X'
  163. Tiskarna ji
  164.  existuje
  165. @  6,22  &vloz w_pole( 2)
  166. @  6,58  &vloz w_pole(24)
  167. @  7,22  &vloz w_pole( 3)
  168. @  7,58  &vloz w_pole( 4)
  169. @  8,22  &vloz w_pole( 5)
  170. @  8,58 &vloz w_pole( 6)
  171. @  9,22 &vloz w_pole(25)
  172. @  9,58 &vloz w_pole(26)
  173. @ 11,22 &vloz w_pole( 7)
  174. @ 11,45 &vloz w_pole(22)
  175. @ 12,22 &vloz w_pole( 8)
  176. @ 12,45 &vloz w_pole( 9)
  177. @ 13,22 &vloz w_pole(10)
  178. @ 13,45 &vloz w_pole(11) 
  179. @ 14,22 &vloz w_pole(12)
  180. @ 14,45 &vloz w_pole(13)
  181. @ 15,22 &vloz w_pole(14)
  182. @ 15,45 &vloz w_pole(15)
  183. @ 16,22 &vloz w_pole(16)
  184. @ 16,45 &vloz w_pole(17)
  185. @ 17,22 &vloz w_pole(18)
  186. @ 17,45 &vloz w_pole(19)
  187. @ 18,22 &vloz w_pole(20)
  188. @ 18,45 &vloz w_pole(21)
  189. @ 19,22 &vloz w_pole(23)
  190. _polW_POLE
  191. ENO_C
  192.  wHLASKA
  193. 2 sayQ3
  194. le( 5)Q4
  195. ,58 sQ5
  196. le( Q6
  197. ,22Q7
  198. _poleQ8
  199.   9,Q9
  200.  w_poQ10
  201. @ 1Q11
  202. y w_Q12
  203. ECOLORQ14
  204. ,22 saQ16
  205. ole( 8Q17
  206. 12,45 Q18
  207. _pole(Q19
  208. @ 13,2Q20
  209.  w_polQ21
  210. @ 13Q22
  211. ay w_pQ23
  212. @ Q24
  213. ay wQ25
  214. do zmen&y with 'say'
  215. it pr
  216. ci beze zm
  217. n? (a/N)
  218. KONEC
  219. _polX
  220.   7DOL
  221. 2 sayZ
  222. le( 5)J
  223. ,58 sPROC1
  224. le( ZMEN1
  225. ,22POCET
  226. poleQ1
  227.   9,Q2
  228.  w_poQ3
  229. @ 1Q4
  230. y w_Q5
  231. ECOLORQ7
  232. ,22 saQ9
  233. ole( 8Q10
  234. 12,45 Q11
  235. _pole(Q12
  236. @ 13,2Q13
  237.  w_polQ14
  238. @ 13Q15
  239. ay w_pQ16
  240. @ Q17
  241. ay wQ18
  242.  sayQ20
  243. (13)Q21
  244. (1Q23
  245. 5,45Q24
  246. poleNOVY_Z
  247. 16,NAPLN
  248. @ 1K_UDAJU
  249. w_OK_C
  250. @P_NAME
  251. y W_POLE
  252. P_SETUP
  253. saP_6LPI
  254. (19P_8LPI
  255. 22 P_10CPI
  256. (P_12CPI
  257. ,4P_COMPRESSP_BOLDON
  258. 9P_BOLDOFF
  259. P_SUPERON
  260. P_SUPEROFFP_SUBON
  261. **P_SUBOFF
  262. *P_DBST_ON
  263. P_DBST_OFFP_LETRQUALP_DRAFT
  264. P_WIDT_ON
  265. P_WIDT_OFFP_HEIG_ON
  266. P_HEIG_OFFP_COMP_OFFP_NEWPAGE
  267. P_RESET
  268. P_KODPRN
  269.  P_POC_R
  270. t POM
  271. rna ji
  272.  existuje
  273. le(XX
  274. W_POLE
  275. polTXT
  276.   7HLASKA
  277. colora
  278. set color to &color
  279. le(COLOR
  280.  Kopie 
  281. ch znak
  282.  tisk
  283. rny F
  284. zev tisk
  285. Identifikace tisk
  286. rny mus
  287. t vypln
  288. rna s udanou identifikac
  289.  existuje
  290. c_kody
  291. c_kody
  292. c_kody
  293. ST_ZAZH
  294. e(OBR_KOP
  295. P_KODY
  296. polP_NAME
  297.   7W_NAME
  298. _pHLASKA
  299.  MOD_SYS
  300.  wC_KODY
  301. PS_RETURN
  302. &barvaz
  303. &barvas
  304. &barvaz
  305. rna     :
  306. Nastaven
  307.     :
  308. Reset        :
  309. /inch :
  310. /inch :
  311. Pica         :
  312. Elite        :
  313. Odstr.diakrit:
  314.  Zapnuto 
  315.  Vypnuto 
  316. Komprimovan
  317. smo  :
  318.  index  :
  319.  index  :
  320. Doublestrike :
  321. NLQ          :
  322.        :
  323. Vysok
  324.        :
  325.  strana  :
  326. NAPLN
  327. e(PROC1
  328. W_POLE
  329. e(P_NAME
  330. P_SETUP
  331. olP_6LPI
  332.   7P_8LPI
  333. _pP_10CPI
  334.  P_12CPI
  335.  wP_COMPRESSP_BOLDON
  336. P_BOLDOFF
  337. P_SUPERON
  338. P_SUPEROFFP_SUBON
  339. 22P_SUBOFF
  340. eP_DBST_ON
  341. P_DBST_OFFP_LETRQUALP_DRAFT
  342. w_P_WIDT_ON
  343. P_WIDT_OFFP_HEIG_ON
  344. P_HEIG_OFFP_COMP_OFFP_NEWPAGE
  345. P_RESET
  346. e(P_KODPRN
  347. 2P_POC_R
  348. ' - chr(27) 
  349. ' - chr(15) 
  350. ' - chr(18) 
  351. ' - chr(17) 
  352. ' - chr(1)  
  353. ' - chr(7)  
  354. ' - chr(30) 
  355. ' - chr(30) 
  356.  Konec 
  357. curp=(len(&curname)-1)-len(rtrim(&curname))
  358. &curname=rtrim(&curname)+znak+space(curp)
  359. {RIGHTARROW}
  360. OBR_ZN
  361. e(VOLBA
  362. olCURNAME
  363.  7MOD_PKOD
  364. PKODX
  365. ZMEN_KOD
  366. OPRAVA
  367. PROC1
  368. ZMEN1
  369. ZMENY
  370. K_UDAJU
  371. HLASKA
  372. KOPIE_T
  373. PORADI
  374. Z_AKT
  375. NAPLN
  376. DEJ_ZNAK
  377. MOD_PKOD.FXP
  378. W:\MOD_PKOD.PRG
  379.