Commodore 128 Handbuch Seite 172

15180 IF X$="J" THEN 15000
15190 IF X$="N" THEN 1000
15200 PRINT CHR$(145);:GOTO 15160
20000 REM ====================
20010 REM ADRESSEN AENDERN
20020 REM ====================
20030 ZZ=1
20040 GOSUB 300
20050 PRINT
20060 FOR 1=1 TO 7
20070 PRINT I;F$(I);D$(ZZ,I)
20080 NEXT I
20090 GETKEY X$
20100 IF ASC(X$)<133 OR ASC(X$)>136 THEN 20090
20110 IF ASC(X$)=136 THEN 1000
20120 IF ASC(X$)=133 AND ZZ<Z THEN ZZ=ZZ+1:GOTO 20040
20130 IF ASC(X$)=134 AND ZZ>1 THEN ZZ=ZZ-1:GOTO 20040
20140 IF ASC(X$)=135 THEN 20160
20150 GOTO 20090
20160 PRINT
20170 INPUT"FELDNUMMER (1-7) ";X
20180 IF X<1 OR X>7 THEN PRINT CHR$(145);:GOTO 20170
20190 PRINT
20200 INPUT"NEUER INHALT: ";D$(ZZ,X)
20210 GOTO 20040
25000 REM ===================
25010 REM ADRESSEN LOESCHEN
25020 REM ===================
25030 GOSUB 300:REM KOPF
25040 PRINT
25050 GOSUB 500:REM DATEN IM RECHNER
25055 IF Z=0 THEN 1000
25060 INPUT "yORNAME: ";D1$
25070 INPUT "NAME
25080 X=1
25090 IF D$(X,2)=D1$ AND D$(X,3)=D2$ THEN 25130
25100 IF X<Z THEN X=X+1:GOTO 25090
25110 FE$="NAMEN NICHT GEFUNDEN!:»
25120 GOSUB 200:GOTO 1000
25130 GOSUB 300:PRINT
25135 FOR 1=1 TO 7
25140 PRINT F$(I);D$(X,I)
: ";D2$
160
-