Commodore 128 Handbuch Seite 147

der Cursor einmal nach oben gesetzt, damit die erneute
Abfrage nicht
nochmals erscheint.
Das Programm
fortgesetzt.
15160 PR INT"WEITERE EINGABEN (J/N)";
15170 X$="":INPUT X$
15180 IF X$="J" THEN 15000
15190 IF X$="N" THEN 1000
15200 PRINT CHR$(U5);:GOTO 15160
Hier muß der Anwender entscheiden, ob er weitere Adressen
eingeben möchte oder nicht. Wenn ja, dann wird der
Programmteil erneut gestartet. Wenn nein, so wird zurück
ins Menü verzweigt.
Damit haben wir den ersten Programmteil abgeschlossen.
Man kann nun beliebig viele Daten eingeben, aber noch
nicht viel damit anfangen. Zum Schluß folgt nochmals das
gesamte Programmteil "ADRESSEN EINGEBEN!", das Sie mit
Ihrem nun vergleichen können:
15000 REM ===================
15010 REM ADRESSEN EINGEBEN
15020 REM ===================
15030 GOSUB 300
15040 Z=Z+1
15050 PRINT
15060 FOR 1=1 TO 7
15070 PRINT F$(I);
15080 INPUT D$(Z,I)
15090 NEXT I
15100 PRINT
15110 PRINT"DATEN RICHTIG EINGEGEBEN (J/N)";
15120 X$="":INPUT X$
15130 IF X$="J" THEN 15160
15140 IF X$="N" THEN Z=Z-1:GOTO 15000
15150 PRINT CHR$(145);:GOTO 15110
15160 PRINT"WEITERE EINGABEN (J/N)";
15170 X$="":INPUT X$
eine Zeile unter
wird nun mit
135
-
der letzten
einer weiteren
Abfrage
Frage