* UTI0.PRG
* INITIALISATION DES VARIABLES STRATEGIQUES
SET TALK OFF
PUBLIC KEY,KEYESC,KEYF1,KEYF2,KEYF3,KEYF4,KEYF5,KEYF6,KEYF7,KEYF8,KEYF9,KEYF10,KEYF11,KEYF12,KEYCR
PUBLIC KEYPGUP,KEYPGDN,KEYDN,KEYUP,KEYRIGHT,KEYLEFT,KEYHOME,KEYEND,KEYDEL,KEYINS
PUBLIC KEYCTRLPGUP,KEYCTRLPGDN,KEYCTRLRIGHT,KEYCTRLLEFT,KEYCTRLHOME,KEYCTRLEND
public indndx,indndx2,indndx3,POL1,POL2,POL3
KEY=12
KEYCR=13
KEYESC=27
KEYF1=28
KEYF2=-1
KEYF3=-2
KEYF4=-3
KEYF5=-4
KEYF6=-5
KEYF7=-6
KEYF8=-7
KEYF9=-8
KEYF10=-9
KEYF11=0
KEYF12=0
KEYPGUP=18
KEYPGDN=3
KEYUP=5
KEYDN=24
KEYRIGHT=4
KEYLEFT=19
KEYHOME=1
KEYEND=6
KEYDEL=7
KEYINS=22
KEYCTRLPGUP=31
KEYCTRLPGDN=30
KEYCTRLRIG=2
KEYCTRLLET=26
KEYCTRLHOM=29
KEYCTRLEND=23
IF FILE("CLAVIER.MEM")
REST FROM CLAVIER ADDI
ENDI
PUBLIC C0,C1,C2,C3,C4,C5,C6,C7,C8,C9,C10
IF ISCO()
C0="N"
C1="W/N"
C2="+W/GR"
C3="+R/N"
C4="+R/N"
C5="+B/N"
C6="GR/N"
C7="+W/R"
C8="+B/W"
C9="N/W"
C10="+R/W"
C10=""
ELSE
C0="N"
C1="W/N"
C2="N/W"
C3="+W/N"
C4="+W/N"
C5="U/N"
C6="W/N"
C7="N/W"
C8="+U/N"
C9="N/W"
C10="+W/N"
ENDI
IF FILE("COULEUR.MEM")
REST FROM COULEUR ADDI
ENDI
retu