COURSE

Taper à la main

Vous ne possédez pas de câble ? Alors vous pourrez néanmoins taper les programmes à la main sur votre calculatrice. Pour cela, appuyez sur la touche [pgrm], la flèche de gauche puis sur [entrer].

 

Taper à la main: (Français)

SauveBDG 0
Lbl 0
EffEcr
Menu(">>>> COURSE <<<<","JOUER",1,"QUITTER",2
Lbl 1
EffDessin
AxesNAff
FonctOff
0→Xmin
E2→Xmax
0→Ymin
62→Ymax
0→A
0→B
Horizontale Ymin
Horizontale 8
Horizontale 54
Horizontale Ymax
Verticale Xmin
Verticale Xmax
Texte(1,23,"DIFFERENCE:
Texte(55,2,"J1:
Texte(55,76,"J2:
Repeat A=E2 or B=E2
Texte(55,12,A
Texte(55,86,B
Texte(1,68,"   
Texte(1,65,abs(A-B
codeTouche→C
If C=45
Goto 0
If C=105
Pause
If C=21
A+1→A
If C=91
B+1→B
Pt-On(A,36
Pt-On(B,26
End
Output(1,6,"COURSE
Output(4,4,"JOUEUR   A
If A=E2
Then
Output(4,11,"1
Else
Output(4,11,"2
End
Output(5,6,"GAGNE!
Pause
Goto 0
Lbl 2
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar XEffVar YEffVar GDB0
Output(1,1,"

 

Taper à la main: (Anglais)

StoreGDB 0
Lbl 0
ClrHome
Menu(">>>> COURSE <<<<","JOUER",1,"QUITTER",2
Lbl 1
ClrDraw
AxesOff
FnOff
0→Xmin
E2→Xmax
0→Ymin
62→Ymax
0→A
0→B
Horizontal Ymin
Horizontal 8
Horizontal 54
Horizontal Ymax
Vertical Xmin
Vertical Xmax
Text(1,23,"DIFFERENCE:
Text(55,2,"J1:
Text(55,76,"J2:
Repeat A=E2 or B=E2
Text(55,12,A
Text(55,86,B
Text(1,68,"   
Text(1,65,abs(A-B
getKey→C
If C=45
Goto 0
If C=105
Pause
If C=21
A+1→A
If C=91
B+1→B
Pt-On(A,36
Pt-On(B,26
End
Output(1,6,"COURSE
Output(4,4,"JOUEUR   A
If A=E2
Then
Output(4,11,"1
Else
Output(4,11,"2
End
Output(5,6,"GAGNE!
Pause
Goto 0
Lbl 2
Output(4,6,"ALEXIS
RecallGDB 0
DelVar ADelVar BDelVar CDelVar XDelVar YDelVar GDB0
Output(1,1,"

Retour Sommaire

Créer un site gratuit avec e-monsite - Signaler un contenu illicite sur ce site

×