Language enigmatique!

bonjour, je suis actuellement en stage en angleterre et travaille sur un programme pour commande numerique. Dans cette petite entreprise, ils veulent avoir une base de donnees des matieres commune. Le but est donc de modifier le code du programme "peps" pour que la recherche des caracteristques matiere se fasse sur le reseau et non sur chaque poste. Je commence a comprendre le code et l architecture mais ils reste de nombreux points noirs
Ma question est de savoir quel language est uitliser par les macros?
Et ou je pourrai trouver des informations ineressantes qui m aideraient a ressoudre mon sujet.
($, i_, w_, Local, pac,falg: qu'est-ce vraiment?)

'*************************************************************************************************
'***
'*** PEPS macro language
'***
'***
'*** Module : PEPSFAB (Specific To LVD Laser)
'*** Macro : TECHDATA.OVM
'*** Created by : PRS
'*** Date : 14.12.1998
'***
'*** Syntax : Called From @CUTDATA.OVM - Decode Material Data
'*** Scope :
'***
'*************************************************************************************************
'***
'*** Source Control Information -
'***
'*** $Author: Paul $ (Last modified by)
'*** $Revision: 3 $ $Date: 9/12/99 11:43 $
'*** $NoKeyWords:$
'***
'*************************************************************************************************

Command Options Are:-

call techdata load i_global [i_entry] (edit cutting data)
call techdata save i_global [i_entry] (edit cutting data)
call techdata read i_global i_cycle i_index $_data (cycle 1=pierce 2=standard/general 3=cutting)
call techdata get i_cycle i_index (called from post processor or to extract data)
call techdata put i_Entry i_cycle i_index (add data for an explicit entry - input from sub)
call techdata create i_global (called from @cutdata - start of new material file)
call techdata close i_global (called from @cutdata - end of new material file)
call techdata next (called from @cutdata - next material range)
call techdata time (called from @@simul & @@pstat - set cycle time vars)

macro techdata

local i_hVDM
local i_Count
local i_Cycle
local i_Index
local i_Entry
local i_RetVal
local i_Global
local i_nParams = 10
local i_VdmEntry
local i_BaseEntry

local i_PIERCE = 1
local i_COMMON = 2
local i_CUTTING = 3

local $_Mode
local $_Data
local $_Material
local $_SubProgram

rem check mode (see above)

pac t8 l
$_Mode = $23
chr lower $_Mode

rem select appropriate option

select case $_Mode[1]3

'*** LOAD parameters from VDM list and convert to internal VDM structure so that DLL can modify

case 'loa'

pac t2 ; i_Global = w1105
pac t18 ; if i1101 = 2 then i_Entry = w1105

vdm exist i_RetVal 121
if not i_RetVal then termac

rem apply offset to current material range (global mode only)

if i_Global then i_BaseEntry = i_Entry * i_nParams

rem extract data for current material range

vdm create i_hVDM i_CUTDATA_NAME i_CUTDATA_TYPE i_VDM_LOCAL

for i_Count = 1 to i_nParams

vdm get 121 i_BaseEntry + i_Count $_Data 1;pri $_Data
vdm write i_hVDM 5 $_Data i_RetVal

next i_Count

vdm close i_hVDM

'*** SAVE parameters from internal VDM structure and convert back to macro VDM list

case 'sav'

pac t2 ; i_Global = w1105
pac t18 ; if i1101 = 2 then i_Entry = w1105

vdm exist i_RetVal 121
if not i_RetVal then termac

rem extract data for current material range

vdm open i_hVDM i_CUTDATA_NAME i_CUTDATA_TYPE i_VDM_LOCAL

rem apply offset to current material range (global mode only)

if i_Global then i_BaseEntry = i_Entry * i_nParams

rem extract data from internal VDM set and store in original location

for i_Count = 1 to i_nParams

vdm read i_hVDM 5 $_Data 1
vdm add 121 i_BaseEntry + i_Count $_Data 1

next i_Count

vdm close i_hVDM
vdm delete i_CUTDATA_NAME