(31
Zeilennummer-Neuzuweisunv
Durch Verschieben zu anderen Zeilenpositionen kënnen
Programmzellen Zeile für Zelle neu numeriert
werden,
ohne daB sich ihr I nhalt
ândert.
G leichzeitig kann aber
auch der
I
nhalt von Zeilen geandert werden
a.
Verschieben einer Programmzeile zu einer anderen
Nummernstelle ohne Ânderung ihres lnhalts.
(31
Re-num6t-otage d• lignel
Les
lignes
du programme peuvent être ra-numérotées en
faisant passer les numéros d'une
ligne
à l'autre en pro-
cédant ligne par ligne sans pour autant changer le contenu
de ces lignes. On peut cependant, si besoin est, modifier
le contenu des lignes par la même
occasion.
a. Déplacement d'un numéro de ligne à une autre posi-
tion
sans modifier le contenu des
lignes.
Beispiel/Exemple:
Das folgende Programm ist ln
P2
geschrieben./Le programme suivant est enregistré en
P2.
INPUT
N
I
=0
:
T=~~1
It·JPUT
H
IF
I
<
N
THEt~
I
=
I +
1
T=T+R
PRINT
T
E tH)
3f1
Verschiebe die 40ste Zeile
(
1
F-Anweisung) zwischen die 60ste und 70ste Zeile /
Déplacer la
ligne
40 (instruction IF) à une position entre les lignes 60 et
70.
Bedienung.
•
Rufen Sie die 40ste Zeile mit Hilfe eines EDIT-Befehls
auf
EDIT
40
~
..
•
Bringen Sie den Cursor zu der Stelle unter der
"4"
der
Zeilennummer
"40"
•
Ândern Sie 40 zu 66 und geben Sie die Anderung
ein.
65~
•
Beenden Sie die Zeilennummernanderung
durch
Lëschen des
EDIT-Befehls.
lndem Sie einen "Break"
eingeben.
Opération:
•
Appeler la ligne 40 avec la commande EDIT.
~:
EADV
F'2
:E
C:,
IT4~3
4
û
IF
I
<
t-~
THEN
30
•
Amener la curseur sous le "4" de la ligne
40.
RERD\'
P2
: EC:il
T4~3
40
IF
I
<
N
THEN
30
•
Remplacer 40 par 66 et l'introduire.
RERD'v'
P2
:EOIT40
65
IF
I<N
THEN
30
50
I
=
I
+
1
•
Mettre fin à l'opération de modification en annulant la
commande EDIT par une interruption.
-
50
-
REROV
P2
:EDIT40
40
IF
I
<
N THEN
30
50
I
=I+
l
READ'-.'
F'2