Je vous l'accorde, ce programme est vraiment sans intérêt et inutile mais puisque je l'avais réalisé pour expliquer la programmation à un pote, je vous le livre en espérant qu'il sera utile à certains (pour apprendre, pas pour convertir) !

Méthodes:
  -Utilisation des Getkey
  -Randomizes pour l'effet de calcul
  -Locates pour les menus

Signes:
  - <> pour diférent de
  - -> mise en mémoire
  - => implication (Then)
  - / division
  - * multiplication (Then)

//EURO CONVERSER
//Taille: ?? (200 ?)
//Date: 26/03/98
//Auteur: Gfx, alias Romain GUY

0->A~Z:6.62->T
Lbl 0
ClrText
" CONVERSER"
" ~~~~~~~~~~~~~~~~~~~"
" 1/FRANCS->EUROS"
" 2/EUROS->FRANCS"
" 3/SETUP 0/EXIT"
" "
" (C) 1998 GFX"
While Getkey<>71
Getkey=72=>Goto 1
Getkey=62=>Goto 2
Getkey=52=>Goto 3
WhileEnd
ClrText:Stop
Lbl 3
ClrText
"TAUX ACTUEL:"
T
"1 EURO=X FRANCS"
"X= "?->T
Goto 0
Lbl 1
ClrText
"FRANCS: "?->F
F/T->R
Goto D
Lbl 2
ClrText
"EUROS: "?->E
E*T->R
Lbl D
For 1->C To 20
Int 999999Ran#->B
Locate 1,4,B
Next
Locate 1,4," "
Locate 1,4,R#
Goto 0

<< Sommaire >>