Thank you all for your inputs. I finally got an answer : Believe it or not,
it seems that it is some sort of assembler language !
Thanks again!
"chris" <p8200_NOSPAM@sympatico.ca> wrote in message
news:ud5ub.3790$iT4.476677@news20.bellglobal.com.. .[color=blue]
> I have to retreive data from a old DOS program written in 1995 but I don't
> recognize the
> language -- Here's a sample of the code used in the .lib files -- Can[/color]
anyone[color=blue]
> tell me what language it is ? Thanks in advance. Here's the code sample :
>
>
> if cmpy=0 cmpy+
> selsuc{}
> usestk{ii,is,"inf\rech"}
> sucrec=ide.sucrec
> if partiel=2
> mn=record(numrec) complex=0
> do LoadOpt,PrepTables
> name_:c20=""+ppn(pnt(oo))
> flush(0)
> if exist(trim(name_)+".001") kill(trim(name_)+".001")
> top(oo)
> index(oo,1,1)
> if categnb=0 & (rst<>0)
> partiel=0 type4=1 do Type2b
> else
> if bycode { do Process_ else do Type3a }
> endif
> * if categnb=0 & (rst<>0) { partiel=0 type4=1 do Type2b else do Type3a }
> * if mn.suivant=0 delete(mn)
> lg:n3=1 seldes=""
> for xy=1 to 15
> trouve=0
> if categ(xy)<>"" { selcateg=mid(selcateg,1,lg)+categ(xy) trouve=1 }
> if des(xy)<>"" { seldes=mid(seldes,1,lg)+des(xy) trouve=1 }
> if trouve lg=lg+15
> next
> pass(0,selcateg,seldes,numrec)
> return
> endif
> if kqte=2
> maxcmpynum=0 totsuc=0
> maxnum=maxcmpynum top(suc)
> while eof(suc)=0
> if suc.inactif=0
> totsuc+
> v=recno(suc) sucnum(totsuc)=suc.numero
> * x=suc.numero if x>maxnum maxnum=x
> * x=recno(suc) if x>maxnum maxnum=x
> allsuc(totsuc)=uplow(suc.nom)
> endif
> getnext(suc)
> wend
> maxsuc=totsuc
> maxnum=totsuc
> x=1 do SucListP sucaff=="û"
> endif
>
> scr:c11
> root:c5
> if kqte=2 root="ext\s" else root="ext\"
> scr=trim(root)+"rech"
> if kind=1 | ((kprix<>0) & (kvente=0)) scr=trim(root)+"rechx"
> if kvente=1 scr=trim(root)+"rech"
> if 0=1
> window("ext\rech")
> window("ext\rechx")
> window("ext\rechb")
> window("ext\rechxb")
> endif
>
> vinter:b
> needto:b
>
>
>
>[/color]
