Programmes pour la calculatrice Casio fx 92+

Mettre C à 0
Mettre A à 0
Mettre B à 0
Style croix
S'orienter à RanInt#(0;360)
Répéter jusqu'à : C=10
 Avancer de 10 px
 Si x>95 Alors
  Mettre A à A+3
  Aller à x=-80+A; y=20
  S'orienter à 270 degrés
  Stylo écrit
  Avancer de 8 px
  Stylo relevé
  Aller à x=0; y=0
 Fin
 Si x<-95 Alors
  Mettre B à B+3
  Aller à x=55+B; y=20
  S'orienter à 270 degrés
  Stylo écrit
  Avancer de 8 px
  Stylo relevé
  Aller à x=0; y=0
 Fin
 Si y≥23 Alors (si y est égal ou supérieur à 23, pour l'écrire appuyez sur OPTN est sur le chiffre qui lui correpond.)
  S'orienter à RanInt#(340;380)-Ɵ
 Fin
 Si y≤-23 Alors (inférieur ou égal à -23)
  S'orienter à RanInt#(340;380)-Ɵ
 Fin
 Si A=33 Alors
  Mettre C à 10 (donc fin du jeu)
 Fin
 Si B=33 Alors
  Mettre C à 10
 Fin
 Si A=15 ALors
  Mettre A à 18 (permet d'ajouter un espace après 5 points sur l'écran)
 Fin
 Si B=15 ALors
  Mettre B à 18
 Fin
⤴

Mettre var A à 0
Mettre var B à 0
Mettre var C à 9
Mettre var D à 7
Mettre var E à 0
Mettre var M à -55
Répéter 2 fois
 Aller à x=M; y=-23;
 S'orienter à 90 degrés
 Stylo écrit
 Répéter 2 fois
  Avancer de 10 px
  Tourner de 90 degrés
  Avancer de 17 px
  Tourner de 90 degrés
 ⤴
 Stylo relevé
 Mettre var M à 72
⤴
Aller à x=2; y=-23;
Stylo écrit
Répéter 2 fois
 Avancer de 10 px
 Tourner de 90 degrés
 Avancer de 4 px
 Tourner de 90 degrés
⤴
Avancer de -1 px
Tourner de 45 degrés
Répéter 2 fois
 Avancer de 4 px
 Tourner de 270 degrés
 Avancer de 4 px
 Tourner de 90 degrés
⤴
Stylo relevé
Aller à x=0; y=0;
Style : Croix
S'orienter à RanInt#(0;1)×180 degrés
Mettre var F à Ɵ-180
Répéter 1000 fois
 Si F=0 Alors
  Tourner de C degrés
 Sinon
  Tourner de -C degrés
 Fin
 Avancer de D px
 Si y<-20 Alors
  S'orienter à 90 degrés
  Avancer de 5 px
  Mettre var D à D×RanInt#(15;17)/30
  Mettre var C à C×1,9
  Mettre var E à E+1
 Fin
 Si E=2 Alors
  Si x<0 Alors
   Stylo relevé
   Aller à x=20; y=10;
   S'orienter à 0 degrés
   Avancer de B×3 px
   Stylo écrit
   S'orienter à 90 degrés
   Avancer de 8 px
   S'orienter à 180 degrés
   Mettre var B à B+1
  Sinon
   Stylo relevé
   Aller à x=-80; y=10;
   S'orienter à 0 degrés
   Avancer de A×3 px
   Stylo écrit
   S'orienter à 90 degrés
   Avancer de 8 px
   S'orienter à 0 degrés
   Mettre var A à A+1
  Fin
  Stylo relevé
  Aller à x=0; y=0;
  Mettre var E à 0
  Mettre var C à RanInt#(7;10)
  Mettre var D à 7
 ⤴
 Si -23<y<-10 Alors
  Si -50>x>-75 Alors
   S'orienter à RanInt#(30;65) degrés
   Mettre var E à 0
   Mettre var F à 1
   Mettre var C à RanInt#(7;10)
   Mettre var D à 10
   Avancer de 10 px
  Fin
  Si 50<x<75 Alors
   S'orienter à RanInt#(115;150) degrés
   Mettre var E à 0
   Mettre var F à 0
   Mettre var C à RanInt#(7;10)
   Mettre var D à 10
   Avancer de 10 px
  Fin
 Fin
 Si A=5 Alors
  Mettre var A à A+1
 Fin
 Si B=5 Alors
  Mettre var B à B+1
 Fin
⤴
Si A>B Alors
 Aller à x=-63; y=-10;
Sinon
 Si A>B Alors
  Aller à x=63; y=-10;
 Sinon
  Aller à x=0; y=0;
 Fin
Fin