Programme cas

If Íâ0

Then ClrText

Locate 1,1,"-< TORSEUR MANAGER >-"

Locate 1,3,"1º DEMARRER UNE"

Locate 4,4,"NOUVELLE ETUDE"

Locate 1,6,"2º REPRENDRE UNE"

Locate 4,7,"ETUDE INTERROMPUE"

Lbl L

If GetKey=72

Then Goto 1

IfEnd

If GetKey=62

Then ClrText

If Í=25

Then 0ºA

Goto N

IfEnd

Í=10äGoto Y

Í=15äGoto Z

Goto 1

IfEnd

Goto L

IfEnd

Lbl 1

Norm

0ºÍ

0ºA~Z

0ºÎ

5ºF

ClrText

Identity 14ºMat A

Fill(0,Mat A)

ViewWindow 1,127,1,1,63,1

F-Line 127,2,1,2

F-Line 127,63,1,63

F-Line 1,63,1,2

F-Line 127,63,127,2

F-Line 100,48,28,48

F-Line 100,58,28,58

F-Line 28,58,28,48

F-Line 100,58,100,48

F-Line 101,47,29,47

F-Line 101,57,101,48

Text 9,33,"TORSEUR MANAGER"

Orange Text 22,18,"> VERSION 1.8.21 BETA <"

Text 34,4,">"

Text 34,122,"<"

Text 34,9,"TORSEUR-MANAGER.POPULUS.CH"

Text 45,19,"REALISE PAR"

Goto 7

Lbl 8

Do:LpWhile GetKeyâ31

ClrText

ClrGraph

Locate 1,1,"-< TORSEUR MANAGER >-"

Locate 2,3,"1º EFFECTUER UN"

Locate 5,4,"SIMPLE TRANSFER"

Locate 2,6,"2º ETUDE COMPLETE"

Locate 5,7,"D'UN MECANISME"

Lbl 6

If GetKey=72

Then 1ºF

Goto 3

IfEnd

If GetKey=62

Then 0ºF

Goto 5

IfEnd

Goto 6

Lbl 5

ClrText

Locate 2,2,"VALEUR DES FORCES ?"

Locate 3,4,"1º[NEWTONS]"

Locate 3,5,"2º[DECA NEWTONS]"

Locate 3,6,"3º[HECTO NEWTONS]"

Lbl K

If GetKey=72

Then 1ºMat A[10,1]

Goto J

IfEnd

If GetKey=62

Then 2ºMat A[10,1]

Goto J

IfEnd

If GetKey=52

Then 3ºMat A[10,1]

Goto J

IfEnd

Goto K

Lbl J

ClrText

Locate 2,1,"COMBIEN DE TORSEURS"

Locate 6,2,"A ETUDIER ?"

Locate 4,4,"1º[-]"

Locate 4,5,"2º[2]"

Locate 4,6,"3º[3]"

Locate 14,4,"4º[4]"

Locate 14,5,"5º[5]"

Locate 14,6,"6º[6]"

0ºÎ

Lbl E

If GetKey=62

Then 2ºS

Goto 3

IfEnd

If GetKey=52

Then 3ºS

Goto 3

IfEnd

If GetKey=73

Then 4ºS

Goto 3

IfEnd

If GetKey=63

Then 5ºS

Goto 3

IfEnd

If GetKey=53

Then 6ºS

Goto 3

IfEnd

Goto E

Lbl 3

ClrText

Locate 2,1,"POINT DE RESOLUTION"

Locate 5,2,"DES TORSEURS"

Locate 4,4,"1º[A]"

Locate 4,5,"2º[B]"

Locate 4,6,"3º[C]"

...