0ÞL
Cls
0ÞS
F-Line 15,52,110,52
F-Line 110,52,110,15
F-Line 110,15,15,15
F-Line 15,15,15,52
Text 10,53,"MENU"
Text 25,32,"™NOUVELLE PARTIE"
Text 35,32,"™SAUVEGARDE"
25ÞA
Lbl 1
Text A,25,"Þ"
Lbl 2
GetkeyÞZ
Z=0ãGoto 2
If 37=Z And A=25:Then Text A,20,"   "
A‰10ÞA
Goto 1
IfEnd
If 28=Z And A=35:Then Text A,20,"   "
A™10ÞA
Goto 1
IfEnd
31=ZãGoto 3
Goto 2
Lbl 3
If A=25:Then ClrText
Locate 5,2,"PERSONNAGE:"
Locate 5,3,"ŒŒŒŒŒŒŒŒŒŒŒ"
Locate 2,4,"™CLAD........Þ[C]"
Locate 2,5,"™YOUFIE......Þ[Y]"
Locate 4,7,"ANNULER:[DEL]"
Lbl A
GetkeyÞZ
Z=0ãGoto A
If Z=44:Then PlotOff 1,1
Goto 1
IfEnd
If Z=56:Then 1ÞÍ
100ÞQ
Return
IfEnd
If Z=32:Then 2ÞÍ
0ÞQ
Return
IfEnd
Goto A
IfEnd
If A=35:Then ClrText
"DANS QUELLE MEMOIRE  SE TROUVE VOTRE      PARTIE? (1/2)        ANNULER:[DEL]"
Lbl Z
GetkeyÞZ
Z=0ãGoto Z
0ÞÍ
If Z=72:Then 1ÞS
Return
IfEnd
If Z=62:Then 2ÞS
Return
IfEnd
If Z=44:Then PlotOff 1,1
Goto 1
IfEnd
Goto Z
IfEnd