home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a057 / 6.img / YQMIS30B.EXE / OTXCX.MBK < prev    next >
Encoding:
Text File  |  1994-05-10  |  2.9 KB  |  153 lines
  1. load spvga
  2. call spvga with 'M'
  3. sele 1
  4. do xs
  5. sele 1
  6. do while .t.
  7. ok=inkey(0)
  8. do case
  9.    case ok=18
  10.         sele 1
  11.         if .not.bof()
  12.            skip -1
  13.         endif
  14.         if bof()
  15.            goto top
  16.         endif
  17.         do xs
  18.    case ok=3
  19.         sele 1
  20.         if .not.eof()
  21.            skip
  22.         endif
  23.         if eof()
  24.            go top
  25.         endif
  26.         do xs
  27.    case ok=27.or.ok=30
  28.         close data
  29.         close proc
  30.         call spvga with 'T'
  31.         save to &wjm..ott all like ojsgs
  32.         return
  33.    case ok=1
  34.         sele 1
  35.         goto top
  36.         do xs
  37.    case ok=6
  38.         sele 1
  39.         goto bott
  40.         do xs
  41.    case ok=28
  42.         call spvga with 'T'
  43.         do szrytj with wjm
  44.         call spvga with 'M'
  45.         set proc to &wjm
  46.         sele 10
  47.         use &wjm..olr alia j
  48.         sele 1
  49.         goto top
  50.         do xs
  51.  endcase
  52.  sele 10
  53. enddo
  54. call spvga with 'T'
  55. set color to 7/1,0/7,
  56. clear
  57. call hj with '00007924'
  58. @ 2,1 say repl('⌐Ñ',39)
  59. @ 22,1 say repl('⌐Ñ',39)
  60. enddo
  61. return
  62.  
  63. ****************
  64. * ╧╘╩╛╦∙╙╨╫╓╢╬ *
  65. ****************
  66. proc xs
  67. priv ozdm,ogzq,oh,ol,otxwj0,ok
  68. otxwj0=otxwj
  69. sele 1
  70. run txkx &wjm..otc
  71. do txxs with &otxx,&otxy,otxwj,&otxbszd,&otxkd,&otxcd
  72. sele 1
  73. do xshz with 9,1,str(recn(),8),&oqjs,&objs
  74. do xshz with 26,1,str(recc(),8),&oqjs,&objs
  75. sele 10
  76. goto top
  77. do while .not.eof()
  78.    ok=abs(inkey())
  79.    if ok>0
  80.       clear type
  81.       keyb chr(ok)
  82.       otxwj=otxwj0
  83.       return
  84.    endif
  85.    ozdm=trim(╫╓╢╬├√)
  86.    ogzq=╟°
  87.    oh=str(╨╨+2,2)
  88.    ol=str(┴╨+2,2)
  89.    ozdlx=╫╓╢╬└α╨═
  90.    ozdcd=╫╓╢╬│ñ╢╚
  91.    ozdxs=╫╓╢╬╨í╩²
  92.    sele 1
  93.    do case 
  94.       case ozdlx='C'
  95.         oxszc=&ozdm
  96.       case ozdlx='N'
  97.         oxszc=ltrim(str(&ozdm,ozdcd,ozdxs))
  98.       case ozdlx='D'
  99.         oxszc=dtoc(&ozdm)
  100.     endcase
  101.     at0=at(' ',oxszc)
  102.     do while at0>0
  103.        oxszc=stuf(oxszc,at0,1,'_')
  104.        at0=at(' ',oxszc)
  105.     enddo
  106.    do xshz with &ol,&oh,oxszc,&oqjs,&objs
  107.    sele 10
  108.    skip
  109. enddo
  110. goto top
  111. otxwj=otxwj0
  112. ok=5
  113. return
  114.  
  115. ************
  116. * ═╝╨╬╧╘╩╛ *
  117. ************
  118. PROC TXXS
  119. PARA XPOS,YPOS,DBNAME,IMGID,TXKD,TXCD
  120. PRIV IMXNAME,COMMDSTR
  121. SET EXACT OFF
  122. SELECT 9
  123. IMXNAME = TRIM(DBNAME)+".Imx"
  124. DBNAME = TRIM(DBNAME)+".Imb"
  125. IF FILES(IMXNAME)
  126. use &Imxname ALIA I
  127. LOCATE FOR .NOT.DELETED().AND.IMGCODE=TRIM(IMGID)
  128. IF .NOT.EOF()
  129. COMMDSTR = LTRIM(STR(XPOS,3))+" "+LTRIM(STR(YPOS,3))+" "+DBNAME
  130. COMMDSTR = COMMDSTR+" "+LTRIM(STR(IMGOFFS))+" "+LTRIM(STR(IMGSIZE))
  131. COMMDSTR = COMMDSTR+" "+LTRIM(str(TXKD,3))+" "+LTRIM(str(TXCD,3))+" 0 0 0"
  132. *call spvga with 'M'
  133. run TXXS &commdstr
  134. *run foxswap TXXS &commdstr
  135. ENDIF
  136. USE
  137. ENDIF
  138. RETURN
  139. ************
  140. * ╧╘╩╛║║╫╓ *
  141. ************
  142. proc xshz
  143. PARA XPOS,YPOS,HZSTR,FRONT,BACK
  144. PRIV X,Y,CMMDSTR
  145. X=XPOS*8
  146. Y=YPOS*18
  147. CMMDSTR = "1 "+TRIM(STR(X,3))+" "+TRIM(STR(Y,3))
  148. CMMDSTR = CMMDSTR+" "+TRIM(HZSTR)+" "+TRIM(STR(FRONT,3))
  149. CMMDSTR = CMMDSTR+" "+TRIM(STR(BACK,3))
  150. run TXHZ &CMMDSTR
  151. *run foxswap TXHZ &CMMDSTR
  152. RETURN
  153.