PRESS

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
1→dim(LPR
Lbl 0
EffEcr
Menu(">>>> PRESS <<<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
EffDessin
AxesNAff
FonctNAff
0→Xmin
100→Xmax
0→Ymin
62→Ymax
Horizontale 0
Horizontale 8
For(A,22,30
Horizontale A
End
Horizontale 44
Horizontale 52
Horizontale Ymax
Verticale 0
0→B
For(A,1,95,5
Texte(11,A,"<
Texte(55,A,"<
End
Verticale Xmax
Texte(2,2,"SCORE:
Texte(2,64,"TEMPS:
For(A,99,0,‾.1
codeTouche→C
If C=105
Pause
If C=21
B+entAléat(3,5→B
If C=45
Goto 0
Texte(2,24,B
Texte(2,86,ent(A
If A<10
Texte(2,90,"   
Ligne(A,23,A,29,0
End
If B>LPR(1
Then
Output(8,2,"RECORD VAINCU!
B→LPR(1
End
Output(1,6,"PRESS
Disp "","","SCORE:",B,"RECORD:
Pause LPR(1
Goto 0
Lbl 2
Output(1,6,"PRESS
Disp "","","","RECORD:
Pause LPR(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar YEffVar BDG0
Output(1,1,"

 

Taper à la main: (Anglais)

StoreGDB 0
1→dim(LPR
Lbl 0
ClrHome
Menu(">>>> PRESS <<<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
ClrDraw
AxesOff
FnOff
0→Xmin
100→Xmax
0→Ymin
62→Ymax
Horizontal 0
Horizontal 8
For(A,22,30
Horizontal A
End
Horizontal 44
Horizontal 52
Horizontal Ymax
Vertical 0
0→B
For(A,1,95,5
Text(11,A,"<
Text(55,A,"<
End
Vertical Xmax
Text(2,2,"SCORE:
Text(2,64,"TEMPS:
For(A,99,0,‾.1
getKey→C
If C=105
Pause
If C=21
B+randInt(3,5→B
If C=45
Goto 0
Text(2,24,B
Text(2,86,iPart(A
If A<10
Text(2,90,"   
Line(A,23,A,29,0
End
If B>LPR(1
Then
Output(8,2,"RECORD VAINCU!
B→LPR(1
End
Output(1,6,"PRESS
Disp "","","SCORE:",B,"RECORD:
Pause LPR(1
Goto 0
Lbl 2
Output(1,6,"PRESS
Disp "","","","RECORD:
Pause LPR(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
RecallGDB 0
DelVar ADelVar BDelVar CDelVar YDelVar GDB0
Output(1,1,"

Retour Sommaire

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

×