home *** CD-ROM | disk | FTP | other *** search
- load spvga
- call spvga with 'M'
- sele 1
- do xs
- sele 1
- do while .t.
- ok=inkey(0)
- do case
- case ok=18
- sele 1
- if .not.bof()
- skip -1
- endif
- if bof()
- goto top
- endif
- do xs
- case ok=3
- sele 1
- if .not.eof()
- skip
- endif
- if eof()
- go top
- endif
- do xs
- case ok=27.or.ok=30
- close data
- close proc
- call spvga with 'T'
- save to &wjm..ott all like ojsgs
- return
- case ok=1
- sele 1
- goto top
- do xs
- case ok=6
- sele 1
- goto bott
- do xs
- case ok=28
- call spvga with 'T'
- do szrytj with wjm
- call spvga with 'M'
- set proc to &wjm
- sele 10
- use &wjm..olr alia j
- sele 1
- goto top
- do xs
- endcase
- sele 10
- enddo
- call spvga with 'T'
- set color to 7/1,0/7,
- clear
- call hj with '00007924'
- @ 2,1 say repl('⌐Ñ',39)
- @ 22,1 say repl('⌐Ñ',39)
- enddo
- return
-
- ****************
- * ╧╘╩╛╦∙╙╨╫╓╢╬ *
- ****************
- proc xs
- priv ozdm,ogzq,oh,ol,otxwj0,ok
- otxwj0=otxwj
- sele 1
- run txkx &wjm..otc
- do txxs with &otxx,&otxy,otxwj,&otxbszd,&otxkd,&otxcd
- sele 1
- do xshz with 9,1,str(recn(),8),&oqjs,&objs
- do xshz with 26,1,str(recc(),8),&oqjs,&objs
- sele 10
- goto top
- do while .not.eof()
- ok=abs(inkey())
- if ok>0
- clear type
- keyb chr(ok)
- otxwj=otxwj0
- return
- endif
- ozdm=trim(╫╓╢╬├√)
- ogzq=╟°
- oh=str(╨╨+2,2)
- ol=str(┴╨+2,2)
- ozdlx=╫╓╢╬└α╨═
- ozdcd=╫╓╢╬│ñ╢╚
- ozdxs=╫╓╢╬╨í╩²
- sele 1
- do case
- case ozdlx='C'
- oxszc=&ozdm
- case ozdlx='N'
- oxszc=ltrim(str(&ozdm,ozdcd,ozdxs))
- case ozdlx='D'
- oxszc=dtoc(&ozdm)
- endcase
- at0=at(' ',oxszc)
- do while at0>0
- oxszc=stuf(oxszc,at0,1,'_')
- at0=at(' ',oxszc)
- enddo
- do xshz with &ol,&oh,oxszc,&oqjs,&objs
- sele 10
- skip
- enddo
- goto top
- otxwj=otxwj0
- ok=5
- return
-
- ************
- * ═╝╨╬╧╘╩╛ *
- ************
- PROC TXXS
- PARA XPOS,YPOS,DBNAME,IMGID,TXKD,TXCD
- PRIV IMXNAME,COMMDSTR
- SET EXACT OFF
- SELECT 9
- IMXNAME = TRIM(DBNAME)+".Imx"
- DBNAME = TRIM(DBNAME)+".Imb"
- IF FILES(IMXNAME)
- use &Imxname ALIA I
- LOCATE FOR .NOT.DELETED().AND.IMGCODE=TRIM(IMGID)
- IF .NOT.EOF()
- COMMDSTR = LTRIM(STR(XPOS,3))+" "+LTRIM(STR(YPOS,3))+" "+DBNAME
- COMMDSTR = COMMDSTR+" "+LTRIM(STR(IMGOFFS))+" "+LTRIM(STR(IMGSIZE))
- COMMDSTR = COMMDSTR+" "+LTRIM(str(TXKD,3))+" "+LTRIM(str(TXCD,3))+" 0 0 0"
- *call spvga with 'M'
- run TXXS &commdstr
- *run foxswap TXXS &commdstr
- ENDIF
- USE
- ENDIF
- RETURN
- ************
- * ╧╘╩╛║║╫╓ *
- ************
- proc xshz
- PARA XPOS,YPOS,HZSTR,FRONT,BACK
- PRIV X,Y,CMMDSTR
- X=XPOS*8
- Y=YPOS*18
- CMMDSTR = "1 "+TRIM(STR(X,3))+" "+TRIM(STR(Y,3))
- CMMDSTR = CMMDSTR+" "+TRIM(HZSTR)+" "+TRIM(STR(FRONT,3))
- CMMDSTR = CMMDSTR+" "+TRIM(STR(BACK,3))
- run TXHZ &CMMDSTR
- *run foxswap TXHZ &CMMDSTR
- RETURN