Commodore 128 Handbuch Seite 138

möchten, sollten wir Ihn aus der Adressendatei nehmen.
Wir benötigen also eine Funktion "löschen":
-5- ADRESSEN LOESCHEN
Nun kommt das wichtigste: Alle Daten nutzen uns wenig,
wenn wir diese nicht ausgeben, also abrufen können. Mit
folgendem Teilprogramm sollen Adressen ausgegeben werden:
-6- ADRESSEN AUSGEBEN
Kein Programm sollte mit dem Netzschalter des Rechners
beendet werden. Wir schaffen deshalb mit dem letzen Punkt
den Programmausgang:
-7- PROGRAMM BEENDEN
Nachdem wir uns über alle Programmfunktionen im Klaren
sind, erweitern
Funktionen als Menü ausgegeben werden. Die folgenden
Anweisungen werden hinzugefügt:
PRINT"
1005 COLOR 5,4:
+";:C0L0R 5,8:PRINT" PROGRAMMFUNKTIONEN:";:COLOR 5,4
1010 PRINT"
:PRINT" +"
+++++++++++++++++++++++";COLOR 5,8
1015 PRINT"
1030 PRINT
1040 COLOR 5.1 :PRINT"
1050 COLOR 5.1 :PRINT"
1060 COLOR 5.1 •.PRINT"
1070 COLOR 5,1 :PRI NT"
1080 COLOR 5,1 :PRINT"
1090 COLOR 5.1 :PRINT"
1100 COLOR 5,1 iPRINT"
Hier wurde das '+' Zeichen und Farbcodes verwendet, die
zwar das Programm etwas unübersichtlich, jedoch optisch
schöner machen. Nun muß der Anwender des Programms
entscheiden, welche Programmfunktion er
lesen dazu eine numerische Variable ein, die den Wert 1
bis 7 entsprechend der ausgewählten Funktion enthalten
soll. Vorher wird noch ein PRINT mit dem Inhalt "AUSWAHL"
wir unser Programm
+++++++++++++++++++++++"
:COLOR 5,8:PRINT"DATEI LADEN"
-1-
COLOR 5,8:PRINT"DATEI SPEICHERN"
-2-
COLOR 5,8¡PRINT"ADRESSEN EINGEBEN'
■3*
COLOR 5,8:PRINT"ADRESSEN AENDERN"
-4-
COLOR 5,8:PRINT"ADRESSEN LOESCHEN'
-5-
COLOR 5,8:PRINT"ADRESSEN AUSGEBEN'
-6-
-7- ";:COLOR 5,8:PRINT"PR0GRAMM BEENDEN"
126
-
so, daß diese
benötigt. Wir