Commodore 128 Handbuch Seite 173

25150 NEXT I
25155 PRINT
25160 INPUT"ADRESSE LOESCHEN (J/N) ";X$
25170 IF X$="J" THEN 25200
25180 IF X$="N" THEN 1000
25190 PRINT CHR$(145);:GOTO 25160
25200 FOR Y=X TO 2-1
25210 FOR 1=1 TO 7
25220 D$(Y,I)=D$(Y+1,I)
25230 NEXT I
25240 NEXT Y
25250 Z=Z-1
25260 GOTO 1000
30000 REH ===================
30010 REH ADRESSEN AUSGEBEN
30020 REH ===================
30030 GOSUB 300:PRINT
30040 GOSUB 500
30050 IF Z=0 THEN 1000
30060 INPUT"DRUCKER ODER BILDSCHIRH (D/B) ";G$
30070 IF G$o"B" AND G$o"D" THEN PRINT CHR$(145); :GOTO 30060
30075 IF G$=''D" THEN OPEN 1,4
30080 GOSUB 300:PR INT
30090 PRINT"SUCHBEGRIFFE:"
30100 PRINT". . . . . . . ."
30110 PRINT
30120 FOR 1=1 TO 7:S$(I)="":NEXT I
30130 FOR 1=1 TO 7
30140 PRINT F$(I);
30150 INPUT S$(I)
30160 NEXT I
30170 FOR Y=1 TO Z
30180 S=0
30190 FOR 1=1 TO 7
30200 IF S$(I)="" THEN S=S+1:GOTO 30220
30210 IF D$(Y,I)=S$(I) THEN S=S+1
30220 NEXT I
30230 IF S<>7 THEN 30300
30240 IF G$="D" THEN PRINT#1
30245 IF G$="B" THEN GOSUB 300:PRINT
30250 FOR 1=1 TO 7
30260 IF G$="B" THEN PRINT F$(I);D$(Y,I)
161
- -