Das Gesamte Programm Auf Gelistet - Commodore 128 Handbuch

10 COLOR 4,3:COLOR 0,3:COLOR 5,8
20 DIM D$(200,7)
30 F$(1)="ANREDE
31 F$(2)="VORNAHE
32 F$(3)="MAME
33 F$(4)="STRASSE
34 F$(5)="PLZ/ORT
35 F$(6)="TELEF0N
36 F$(7)="BEMERKUNG ■ '
50 N=1:FOR I=1T07STEP2:KEYI,CHR$(132+N):KEYI+1,CHR$(136+N):N=N+1:NEXT
99 GOTO 1000
100 REM ===================
110 REM PROGRAMMKOPF
120 REM ===================
130 PRINT CHR$(147);
140 FOR I=1TO40:PRINT"=";:NEXT 1
150 PRINT"
160 FOR I=1TO40;PRINT"=";:NEXT I
170 PRINTiPRINT
180 RETURN
200 REM =================
210 REM FEHLERMELDUNG
220 REM =================
230 PRINT CHR$(19);
240 FOR X=1 TO 24:PRINT CHR$(17);:NEXT X
250 PRINT CHR$(18);FE$;CHR$(146);
260 SLEEP 1
270 RETURN
300 REM ====================
310 REM KOEPFE PROGRAHMTEILE
320 REM ====================
330 PT$(1)=" DATEI LADEN
340 PT$(2)=" DATEI SPEICHERN "
350 PT$(3)="ADRESSEN EINGEBEN"
360 PT$(4)="ADRESSEN AENDERN "
370 PT$(5)="ADRESSEN LOESCHEN"
380 PT$(6)="ADRESSEN AUSGEBEN"
390 PT$(7)="PROGRAMM BEENDEN "
400 GOSUB 100
410 PRINT"
420 PRINT"+++++++++++++++++++"
"
"
• '
"
"
"
ADRESSENVERUALTUNG"
"
";¡COLOR 5,4
157
- -