home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a056 / 5.ddi / RS / YQMIS006.PRG < prev    next >
Encoding:
Text File  |  1993-12-21  |  14.1 KB  |  772 lines
  1. *******************************************************
  2. * ╬─╝■├√│╞: YQMIS006
  3. * │╠╨≥╔Φ╝╞: ╤┼╞µ                  
  4. * ▒α│╠╚╒╞┌: 93.12.21   21:27:37
  5. *******************************************************
  6. set safe off
  7. set date ansi
  8. close data
  9. set color to w/1,,
  10. clear
  11. do smggp with '╟δ  ╔╘  ║≥ !',10,34
  12. set color to w/1,,
  13. sele A
  14. *set excl on
  15. use RS alia A
  16. set proc to YQMIS006
  17. priv ozdm,ogzq,oh,ol,ok,oj,ojsgs,otxlj0,otxlj
  18. otxlj0=''
  19. otxlj=''
  20. ojsgs=space(78)
  21. ok=-1
  22. oj=.f.
  23. set safe off
  24. @ 20,22 say '╒²╘┌▓Θ╒╥═╝╧≤╬─╝■...'
  25. run dir *.pcx >yqdir.txt
  26. SELE 9
  27. use yqdir.lby
  28. zap
  29. appe from yqdir.txt sdf
  30. dele for recn()<5
  31. pack
  32. do while .t.
  33. set color to 7/1,1/7,
  34. clear
  35. call hj with '00007924'
  36. @ 2,1 say repl('⌐Ñ',39)
  37. @ 22,1 say repl('⌐Ñ',39)
  38. set dele off
  39. @ 23,1 say 'Esc:═╦│÷ F2:╬─╝■╩╫ F3:╬─╝■╬▓ F4:╓╕╢¿╝╟┬╝ F5:╚╬╥Γ╠⌡╝■ F6:╚í╧√╠⌡╝■ F7:═╝╧≤╬¼╗ñ'
  40. @ 1,2 say '╝╟┬╝║┼:        ╝╟┬╝╫▄╩²:         '
  41. @ 5,2 say '                           ═¿╙├╚╦╩┬╡╡░╕┬╝╚δ│╠╨≥'
  42. @ 6,2 say '                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
  43. @ 7,2 say '     ⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╫⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╫⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╫⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖'
  44. @ 8,2 say '     ⌐º╨╒├√:       ⌐º╨╘▒≡:   ⌐º╡Ñ╬╗:       ⌐º│÷╔·╚╒╞┌:         ⌐º'
  45. @ 9,2 say '     ⌐╟⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐▀⌐Ñ⌐Ñ⌐╫⌐Ñ⌐▀⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╫⌐▀⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╧'
  46. @ 10,2 say '     ⌐º╣ñ╫≈╩▒╝Σ:         ⌐º╬─╗»│╠╢╚:     ⌐º╝╝╩⌡╓░│╞:           ⌐º'
  47. @ 11,2 say '     ⌐╟⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐∩⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐▀⌐Ñ⌐╫⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╧'
  48. @ 12,2 say '     ⌐º╗∙▒╛╣ñ╫╩:         ⌐º╓░╬±╜≥╠∙:         ⌐º─Ω┴Σ:           ⌐º'
  49. @ 13,2 say '     ⌐╟⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐▀⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╫⌐Ñ⌐Ñ⌐Ñ⌐▀⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╧'
  50. @ 14,2 say '     ⌐º▒╧╥╡╤º╨ú:                     ⌐º─Ω┴Σ╢╬:                 ⌐º'
  51. @ 15,2 say '     ⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐▀⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐'
  52. set color to w+/1,,
  53. sele 1
  54. @ 1,26 say recc() pict '@B 99999999'
  55. sele 9
  56. use odm.lby inde odm alia i
  57. sele 10
  58. use YQMIS006.olr alia j
  59. otxbszd='╨╒├√'
  60. omlwj='c:\rs\RS'
  61. do xs
  62. set color to w+/1,0/w,
  63. sele 1
  64. do while .t.
  65. ok=inkey(0)
  66. do case
  67.    case ok=18
  68.         sele 1
  69.         if .not.bof()
  70.            skip -1
  71.         endif
  72.         if bof()
  73.            goto top
  74.         endif
  75.         do xs
  76.    case ok=3
  77.         sele 1
  78.         if .not.eof()
  79.            skip
  80.         endif
  81.         if eof()
  82.            go top
  83.         endif
  84.         do xs
  85.    case ok=27.or.ok=30
  86.         do smggp with '╒²╘┌┤µ┼╠,╟δ╔╘║≥!',10,31
  87.         close data
  88.         close proc
  89.         return
  90.    case ok=-5
  91.         sele 1
  92.         set filt to
  93.    case ok=-6
  94.         sele 1
  95.         do txjk
  96. *       brow nomo
  97.         sele 1
  98.         exit
  99.    case ok=-1
  100.         sele 1
  101.         goto top
  102.         do xs
  103.    case ok=-2
  104.         sele 1
  105.         goto bott
  106.         do xs
  107.    case ok=-3
  108.         sele 1
  109.         o=recn()
  110.         @ 1,54 say '╝╟┬╝║┼:' get o rang 1,recc() pict '@B'
  111.         read
  112.         @ 1,54 say space(25)
  113.         goto o
  114.         do xs
  115.    case ok=-4
  116.         do cx
  117.         do xs
  118.  endcase
  119.  sele 10
  120. enddo
  121. enddo
  122. return
  123.  
  124. ****************
  125. * ╧╘╩╛╦∙╙╨╫╓╢╬ *
  126. ****************
  127. proc xs
  128. priv ozdm,ogzq,oh,ol
  129. sele 1
  130. @1,9 say recn() pict '@B 99999999'
  131. if dele()
  132.    set color to r+/1,,
  133. else
  134.    set color to w+/1,,
  135. endif
  136. sele 10
  137. goto top
  138. do while .not.eof()
  139.    ozdm=trim(╫╓╢╬├√)
  140.    ogzq=╟°
  141.    oh=╨╨+2
  142.    ol=┴╨+2
  143.    sele 1
  144.    @ oh,ol say &ogzq.->&ozdm
  145.    sele 10
  146.    skip
  147. enddo
  148. goto top
  149. ok=5
  150. return
  151.  
  152.  
  153. ****************
  154. *   ╚╬╥Γ╠⌡╝■   *
  155. ****************
  156. proc cx
  157. set exac off
  158. priv ox,o,ocr,osq,ozf,ohz,ozdm,ol,obj
  159. set color to 0/3,,
  160. @ 23,1 say space(78)
  161. @ 23,18 say '^End:═╦│÷ íⁿí²:╥╞╢»╫╓╢╬╣Γ▒Ω ╗╪│╡╝ⁿ:╤í╘±╫╓╢╬'
  162. set color to w+/r,,
  163. obj=chr(160)
  164. ohz=0
  165. ozf=''
  166. ocr=1
  167. ox=1
  168. sele 10
  169. goto top
  170. set color to w+/r,,
  171. @ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
  172. ol=recn()
  173. ozdm=trim(╫╓╢╬├√)
  174. @ 1,60 say '╨▐╕─'
  175. set color to 0/w,,
  176. @ 21,1 say space(78)
  177. @ 21,1 say ojsgs
  178. do while .t.
  179. set color to 0/w,,
  180. @ 21,ox say ''
  181. o=inkey(0)
  182. do case
  183. case o=19.and.ox>1
  184. ox=ox-1
  185. if subs(ojsgs,ox,1)>obj
  186. ox=ox-1
  187. endif
  188. loop
  189. case o=4.and.ox<78
  190. ox=iif(subs(ojsgs,ox,1)>obj,ox+2,ox+1)
  191. loop
  192. case o<127.and.o>31
  193. ozf=iif(subs(ojsgs,ox,1)>obj.and.ocr=1,chr(o)+' ',chr(o))
  194. if ocr=0
  195. if len(trim(ojsgs))+len(ozf)<79
  196. ojsgs=left(stuf(ojsgs,ox,0,ozf),78)
  197. ox=iif(ox<78,ox+1,ox)
  198. @ 21,1 say ojsgs
  199. endif
  200. else
  201. ojsgs=stuf(ojsgs,ox,len(ozf),ozf)
  202. @ 21,ox say ozf
  203. ox=iif(ox<78,ox+1,ox)
  204. endif
  205. ohz=0
  206. case o>160.and.ox<78
  207. if ohz=0
  208. ozf=chr(o)
  209. ohz=1
  210. else
  211. ozf=ozf+chr(o)
  212. ozf=iif(ocr=1.and.subs(ojsgs,ox,1)<obj.and.subs(ojsgs,ox+1,1)>obj,ozf+' ',ozf)
  213. if ocr=0
  214. if len(trim(ojsgs))+len(ozf)<79
  215. ojsgs=left(stuf(ojsgs,ox,0,ozf),78)
  216. @ 21,1 say ojsgs
  217. ox=iif(ox<77,ox+2,ox)
  218. endif
  219. else
  220. ojsgs=stuf(ojsgs,ox,len(ozf),ozf)
  221. @ 21,ox say ozf
  222. ox=iif(ox<77,ox+2,ox)
  223. endif
  224. ohz=0
  225. endif
  226. case o=22
  227. ocr=iif(ocr=0,1,0)
  228. @ 1,60 say iif(ocr=0,'▓σ╚δ','╨▐╕─')
  229. case o=7
  230. ojsgs=iif(subs(ojsgs,ox,1)<obj,stuf(ojsgs,ox,1,'')+' ',stuf(ojsgs,ox,2,'')+'  ')
  231. @ 21,1 say ojsgs
  232. case o=127.and.ox>1
  233. ox=ox-1
  234. if subs(ojsgs,ox,1)>obj
  235. ox=ox-1
  236. endif
  237. ojsgs=iif(subs(ojsgs,ox,1)<obj,stuf(ojsgs,ox,1,'')+' ',stuf(ojsgs,ox,2,'')+'  ')
  238. @ 21,1 say ojsgs
  239. case o=13
  240. keyb chr(24)
  241. sele 10
  242. ozdm0=iif(╟°='A',trim(╫╓╢╬├√),╟°+'->'+trim(╫╓╢╬├√))
  243. if len(trim(ojsgs))+len(ozdm0)<79
  244. ojsgs=left(stuf(ojsgs,ox,0,ozdm0),78)
  245. @ 21,1 say ojsgs
  246. ox=ox+len(ozdm0)
  247. ox=iif(ox>78,78,ox)
  248. endif
  249. case o=23
  250. ojsgs0=ojsgs
  251. do zryy
  252. oer=.f.
  253. on erro oer=.t.
  254. sele 1
  255. set filt to &ojsgs
  256. ojsgs=ojsgs0
  257. goto top
  258. if oer
  259. set color to w+/r,,
  260. @ 1,40 say '▓Θ╤»╠⌡╝■╙╨╬≤!!!'
  261. ok=inkey(2)
  262. @ 1,40 say '               '
  263. else
  264. on erro
  265. exit
  266. endif
  267. case o=24
  268. sele 10
  269. set color to w+/1,,
  270. @ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
  271. if .not.eof()
  272. skip
  273. endif
  274. if eof()
  275. goto top
  276. endif
  277. set color to w+/r,,
  278. @ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
  279. case o=5
  280. sele 10
  281. set color to w+/1,,
  282. @ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
  283. if .not.bof()
  284. skip -1
  285. endif
  286. if bof()
  287. goto bott
  288. endif
  289. set color to w+/r,,
  290. @ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
  291. endcase
  292. enddo
  293. set color to 7+/1,,
  294. @ 1,40 say space(39)
  295. @ 21,1 say space(78)
  296. @ 23,1 say space(78)
  297. @ 23,2 say 'Esc:═╦│÷ F2:╬─╝■╩╫ F3:╬─╝■╬▓ F4:╓╕╢¿╝╟┬╝ F5:╚╬╥Γ╠⌡╝■ F6:╚í╧√╠⌡╝■ F7:╡τ╫╙▒¿▒φ'
  298. set color to 7/1,1/7,
  299. return
  300. ************
  301. * ╫╘╚╗╙∩╤╘ *
  302. ************
  303. proc zryy
  304. priv zh,zrm(8,2),o,om
  305. om=8
  306. dime zrm(8,2)
  307. zrm(1,1)='['
  308. zrm(2,1)=']'
  309. zrm(3,1)='╢°╟╥'
  310. zrm(4,1)='╗≥╒▀'
  311. zrm(5,1)='▓╗╡╚╙┌'
  312. zrm(6,1)='╡╚╙┌'
  313. zrm(7,1)='╨í╙┌'
  314. zrm(8,1)='┤≤╙┌'
  315. zrm(1,2)=[ctod(']
  316. zrm(2,2)=[')]
  317. zrm(3,2)='.and.'
  318. zrm(4,2)='.or.'
  319. zrm(5,2)='#'
  320. zrm(6,2)='='
  321. zrm(7,2)='<'
  322. zrm(8,2)='>'
  323. o=1
  324. do while o<=om
  325. do while .t.
  326. zh=at(zrm(o,1),ojsgs)
  327. if zh>0
  328. ojsgs=stuf(ojsgs,zh,len(zrm(o,1)),zrm(o,2))
  329. else
  330. exit
  331. endif
  332. enddo
  333. o=o+1
  334. enddo
  335. return
  336. **************************************
  337. *           ═╝ ╧≤ ╜╙ ┐┌              *
  338. **************************************
  339. proc txjk
  340. set esca off
  341. SET EXACT OFF
  342. PRIV TX(8),txk,o,oi,txbs,ok,TXYMY,ml
  343. ml=''
  344. otxwj=omlwj
  345. TXYMY=.T.
  346. set safe off
  347. oi=1
  348. DIME TX(8)
  349. TX(1)='╬─╝■┬╖╛╢'
  350. TX(2)='╫╖╝╙═╝╧≤'
  351. TX(3)='╧╘╩╛═╝╧≤'
  352. TX(4)='╔╛│²═╝╧≤'
  353. TX(5)='╟σ└φ═╝┐Γ'
  354. TX(6)='╖┼┤≤╧╘╩╛'
  355. @ 24,79 SAY ''
  356. LOAD HBK
  357. load hj
  358. do cdxs
  359. do while .t.
  360. set color to w+/3,,
  361. @ 1,oi*10-1 say ' '+tx(oi)+' '
  362. @ 24,0 say ''
  363. call hbk with '01'+str(oi*10-1,2)+'01'+str(oi*10+8,2)+'C'
  364. OK=INKEY(0)
  365. set color to 0/w,,
  366. @ 1,oi*10-1 say ' '+tx(oi)+' '
  367. @ 24,0 say ''
  368. call hbk with '01'+str(oi*10-1,2)+'01'+str(oi*10+8,2)+'D'
  369. do case
  370. case ok=19
  371. oi=iif(oi>1,oi-1,6)
  372. case ok=4
  373. oi=iif(oi<6,oi+1,1)
  374. case ok=13
  375. o=str(oi,1)
  376. do p&o
  377. return
  378. case ok=27
  379. return
  380. endcase
  381. enddo
  382. RETURN
  383. ************
  384. * ╬─╝■┬╖╛╢ *
  385. ************
  386. proc p1
  387. if len(trim(otxlj0))=0
  388. otxlj0=space(20)
  389. endif
  390. do owindow with 10,18,12,62,'0/w,w+/r,'
  391. @ 11,20 say '╟δ╩Σ╚δ═╝╧≤╬─╝■┬╖╛╢:' get otxlj0
  392. read
  393. if len(trim(otxlj0))=0
  394. otxlj0=''
  395. otxlj=''
  396. else
  397. otxlj=iif(right(trim(otxlj0),1)='\',trim(otxlj0),left(otxlj0,len(trim(otxlj0)))+'\')
  398. endif
  399. otxlj=trim(otxlj)
  400. set safe off
  401. @ 11,40 say ''
  402. run dir &otxlj.*.pcx >yqdir.txt
  403. SELE 9
  404. use yqdir.lby
  405. zap
  406. appe from yqdir.txt sdf
  407. dele for recn()<5
  408. pack
  409.  
  410. set color to w/1,,
  411. @ 10,18 clear to 13,64
  412. return
  413. ************
  414. * ═╝╨╬╫╖╝╙ *
  415. ************
  416. proc txzj
  417. PARA DBNAME,IMGID,PCXNAME
  418. PRIV CLEN,CMDLINE
  419. sele 9
  420. use
  421. SET ECHO OFF
  422. SET TALK OFF
  423. PCXNAME = TRIM(PCXNAME)
  424. CLEN = AT('.',PCXNAME)
  425. PCXNAME = IIF(CLEN>0,LEFT(PCXNAME,CLEN-1),PCXNAME)
  426. CMDLINE = PCXNAME+" "+TRIM(IMGID)+" "+DBNAME
  427. IF FILE('&PCXNAME..PCX')
  428. RUN TXZJ &CMDLINE
  429. txymy=.t.
  430. ELSE
  431. DO TXMY
  432. ENDIF
  433. RETURN
  434. ************
  435. * ═╝╨╬╖┼┤≤ *
  436. ************
  437. proc txfd
  438. PARA XPOS,YPOS,DBNAME,IMGID,WINW,WINH
  439. PRIV IMXNAME,COMMDSTR
  440. SET TALK OFF
  441. SET ECHO OFF
  442. SELECT 9
  443. IMXNAME = TRIM(DBNAME)+".Imx"
  444. DBNAME = TRIM(DBNAME)+".Imb"
  445. IF FILES(IMXNAME)
  446. use &Imxname alia i
  447. LOCATE FOR .NOT.DELETED().AND.IMGCODE=TRIM(IMGID)
  448. IF .NOT.EOF()
  449. COMMDSTR = TRIM(STR(XPOS,3,0))+" "+TRIM(STR(YPOS,3,0))+" "+DBNAME
  450. COMMDSTR = COMMDSTR+" "+TRIM(STR(IMGOFFS))+" "+TRIM(STR(IMGSIZE))
  451. COMMDSTR = COMMDSTR+" "+TRIM(STR(WINW,3,0))+" "+TRIM(STR(WINH,3,0))
  452. run txms 93
  453. run txfd &commdstr
  454. txymy=.t.
  455. ELSE
  456. DO TXMY
  457. ENDIF
  458. USE
  459. ENDIF
  460. RETURN
  461.  
  462. ************
  463. * ═╝╨╬╧╘╩╛ *
  464. ************
  465. proc txxs
  466. PARA XPOS,YPOS,DBNAME,IMGID
  467. PRIV IMXNAME,COMMDSTR
  468. SELECT 9
  469. IMXNAME = TRIM(DBNAME)+".Imx"
  470. DBNAME = TRIM(DBNAME)+".Imb"
  471. IF FILES(IMXNAME)
  472. use &Imxname ALIA I
  473. LOCATE FOR .NOT.DELETED().AND.IMGCODE=TRIM(IMGID)
  474. IF .NOT.EOF()
  475. COMMDSTR = TRIM(STR(XPOS,3,0))+" "+TRIM(STR(YPOS,3,0))+" "+DBNAME
  476. COMMDSTR = COMMDSTR+" "+TRIM(STR(IMGOFFS))+" "+TRIM(STR(IMGSIZE))
  477. COMMDSTR = COMMDSTR+" 640 480 0 0 0"
  478. RUN txms 93
  479. !TXXS &commdstr
  480. do xshz with 16,460,otxbszd++':'+imgid,255,0
  481. txymy=.t.
  482. ELSE
  483. DO TXMY
  484. ENDIF
  485. USE
  486. ENDIF
  487. RETURN
  488. ************
  489. * ═╝╨╬╔╛│² *
  490. ************
  491. proc txsc
  492. PARA DBNAME,IMGID
  493. PRIV IMXNAME
  494. set exact off
  495. SELECT 9
  496. IMXNAME = TRIM(DBNAME)+".Imx"
  497. IF FILES(IMXNAME)
  498. use &Imxname alia i
  499. LOCATE FOR .NOT.DELETED().AND.IMGCODE=IMGID
  500. IF FOUND()
  501. DELETE
  502. txymy=.t.
  503. ELSE
  504. DO TXMY
  505. ENDIF
  506. USE
  507. ENDIF
  508. set exact off
  509. RETURN
  510. ************
  511. * ═╝┐Γ╒√└φ *
  512. ************
  513. proc txzl
  514. PARA DBNAME
  515. PRIV IMXNAME,NEWOFFS,IMBFILE,CMDLINE
  516. SET TALK OFF
  517. SET ECHO OFF
  518. SELECT 9
  519. IMXNAME = TRIM(DBNAME)+".Imx"
  520. IF FILES(IMXNAME)
  521. USE &Imxname ALIA i
  522. NEWOFFS = 0
  523. IMBFILE = TRIM(DBNAME)+".Imb"
  524. DO WHILE .NOT.EOF()
  525. IF .NOT.DELETED()
  526. CMDLINE = IMBFILE+" "+TRIM(STR(IMGSIZE))+" "+TRIM(STR(IMGOFFS))
  527. !txsc &CMDLINE
  528. REPLACE IMGOFFS WITH NEWOFFS
  529. NEWOFFS = NEWOFFS+IMGSIZE
  530. ENDIF
  531. SKIP
  532. ENDDO
  533. PACK
  534. IF RECCOUNT()>0
  535. IF FILES("TMP.IMB")
  536. DELETE FILE &imbFile
  537. COPY  FILE TMP.IMB  TO &imbFile
  538. DELETE FILES "TMP.IMB"
  539. ENDIF
  540. ELSE
  541. USE
  542. DELETE FILE &imbFile
  543. DELETE FILE &imxname
  544. ENDIF
  545. RETURN
  546. ************
  547. * ═╝╧≤╖┼┤≤ *
  548. ************
  549. PROC TXFD
  550. PARA XPOS,YPOS,DBNAME,IMGID,WINW,WINH
  551. PRIV IMXNAME,COMMDSTR
  552. SET TALK OFF
  553. SET ECHO OFF
  554. SELECT 9
  555. IMXNAME = TRIM(DBNAME)+".Imx"
  556. DBNAME = TRIM(DBNAME)+".Imb"
  557. IF FILES(IMXNAME)
  558. use &Imxname alia i
  559. LOCATE FOR .NOT.DELETED().AND.IMGCODE=TRIM(IMGID)
  560. IF .NOT.EOF()
  561. COMMDSTR = TRIM(STR(XPOS,3,0))+" "+TRIM(STR(YPOS,3,0))+" "+DBNAME
  562. COMMDSTR = COMMDSTR+" "+TRIM(STR(IMGOFFS))+" "+TRIM(STR(IMGSIZE))
  563. COMMDSTR = COMMDSTR+" "+TRIM(STR(WINW,3,0))+" "+TRIM(STR(WINH,3,0))
  564. RUN txms 93
  565. run txfd &commdstr
  566. txymy=.t.
  567. ELSE
  568. DO MYTX
  569. ENDIF
  570. USE
  571. ENDIF
  572. RETURN
  573. ************
  574. * ═╝╧≤╫╖╝╙ *
  575. ************
  576. proc zj
  577. priv pcxwj
  578. sele 1
  579. pcxwj=otxlj+ml
  580. do txzj with trim(otxwj),&otxbszd,trim(pcxwj)
  581. return
  582. *************
  583. * ▓╦╡Ñ╧╘╩╛ *
  584. ************
  585. proc cdxs
  586. priv oi
  587. set color to w/1,,
  588. @ 1,1 clear to 1,78
  589. set color to 0/w,,
  590. @ 1,9 clear to 1,68
  591. @ 24,0 say ''
  592. call hbk with '01090168f'
  593. oi=1
  594. do while oi<7
  595. @ 1,oi*10 say tx(oi)
  596. @ 24,0 say ''
  597. call hbk with '01'+str(oi*10-1,2)+'01'+str(oi*10+8,2)+'D'
  598. oi=oi+1
  599. enddo
  600. return
  601. ****************
  602. * ╧╘╩╛─┐┬╝╟σ╡Ñ *
  603. ****************
  604. proc p2
  605. priv i,j,mlsz
  606. set color to w/1,,
  607. @ 10,1 clear to 21,78
  608. do owindow with 5,16,16,62,'0/w,w+/r,'
  609. sele 9
  610. use yqdir.lby alia i
  611. mlsz=1
  612. do xsml
  613. i=1
  614. do while .t.
  615. k=inkey(0)
  616. do case
  617. case k=5
  618. set color to 0/w,,
  619. @ 5+i,19 say ' '+─┐┬╝
  620. if i>1
  621. skip -1
  622. i=i-1
  623. set color to w+/r,,
  624. @ 5+i,19 say ' '+─┐┬╝
  625. @ 24,0 say ''
  626. else
  627. clear type
  628. keyb chr(18)
  629. endif
  630. case k=24
  631. set color to 0/w,,
  632. @ 5+i,19 say ' '+─┐┬╝
  633. if i<10
  634. skip
  635. if .not.eof()
  636. i=i+1
  637. else
  638. goto bott
  639. endif
  640. set color to w+/r,,
  641. @ 5+i,19 say ' '+─┐┬╝
  642. @ 24,0 say ''
  643. else
  644. clear type
  645. keyb chr(3)
  646. endif
  647. case k=3
  648. mlsz=mlsz+10
  649. do xsml
  650. i=1
  651. case k=18
  652. mlsz=mlsz-10
  653. do xsml
  654. i=1
  655. case k=13.and.recn()<recc()
  656. ml=trim(left(─┐┬╝,8))
  657. do zj
  658. return
  659. mlsz=1
  660. do xsml
  661. i=1
  662. case k=27
  663. do cdxs
  664. retu
  665. endcase
  666. enddo
  667. return
  668. ************
  669. * ╖┼┤≤╧╘╩╛ *
  670. ************
  671. proc p6
  672. sele 1
  673. do txfd with 0,0,trim(otxwj),&otxbszd,640,480
  674. sele 1
  675. if txymy
  676. do xshz with 16,460,otxbszd+':'+&otxbszd,15,0
  677. ok=inkey(0)
  678. RUN txms  3
  679. do cdxs
  680. endif
  681. return
  682. ************
  683. * ╧╘╩╛─┐┬╝ *
  684. ************
  685. proc xsml
  686. priv i
  687. mlsz=iif(mlsz>recc()-9,recc()-9,mlsz)
  688. mlsz=iif(mlsz<1,1,mlsz)
  689. sele 9
  690. if recc()=0
  691. return
  692. endif
  693. goto mlsz
  694. set color to w+/r,,
  695. @ 6,19 say ' '+─┐┬╝
  696. skip
  697. set color to 0/w,,
  698. i=2
  699. do while i<11
  700. @ 5+i,19 say ' '+─┐┬╝
  701. i=i+1
  702. if .not.eof()
  703. skip
  704. endif
  705. enddo
  706. goto mlsz
  707. @ 24,0 say ''
  708. return
  709. ************
  710. * ╧╘╩╛═╝╧≤ *
  711. ************
  712. proc p3
  713. priv pcxwj
  714. pcxwj=space(8)
  715. sele 1
  716. do txxs with 0,0,trim(otxwj),&otxbszd
  717. sele 1
  718. if txymy
  719. ok=inkey(0)
  720. RUN txms  3
  721. endif
  722. return
  723. ************
  724. * ╔╛│²═╝╧≤ *
  725. ************
  726. proc p4
  727. sele 1
  728. do txsc with trim(otxwj),&otxbszd
  729. if txymy
  730. do owindow with 10,25,12,54,'0/w,w+/r,'
  731. @ 11,27 say '╒Γ╕÷═╝╧≤╥╤╛¡╔╛│²......'
  732. ok=inkey(1)
  733. set color to w/1,,
  734. @ 10,25 clear to 15,56
  735. endif
  736. return
  737. ************
  738. * ╟σ└φ═╝┐Γ *
  739. ************
  740. proc p5
  741. do owindow with 11,25,13,54,'0/w,w+/r,'
  742. @ 12,27 say '╒²╘┌╢╘═╝╧≤┐Γ╫÷╬∩└φ╔╛│²....'
  743. do txzl with otxwj
  744. set color to w/1,,
  745. @ 10,25 clear to 15,56
  746. return
  747. ************
  748. * ═╝╧≤├╗╙╨ *
  749. ************
  750. proc txmy
  751. do owindow with 10,25,12,54,'0/w,w+/r,'
  752. @ 11,27 say '╒Γ╕÷═╝╧≤║├╧≤▓╗┤µ╘┌......'
  753. txymy=.f.
  754. ok=inkey(1)
  755. set color to w/1,,
  756. @ 10,25 clear to 15,56
  757. return
  758. ************
  759. * ╧╘╩╛║║╫╓ *
  760. ************
  761. proc xshz
  762. PARA XPOS,YPOS,HZSTR,FRONT,BACK
  763. PRIV CNNDSTR
  764. CMMDSTR = "1 "+TRIM(STR(XPOS,3,0))+" "+TRIM(STR(YPOS,3,0))
  765. CMMDSTR = CMMDSTR+" "+TRIM(HZSTR)+" "+TRIM(STR(FRONT,3,0))
  766. CMMDSTR = CMMDSTR+" "+TRIM(STR(BACK,3,0))
  767. !TXHZ &CMMDSTR
  768. RETURN
  769.  
  770. *******************************************************
  771. * ▒α│╠╚╒╞┌: 93.12.21   21:27:40
  772. *******************************************************