Commodore 128 Handbuch Seite 174

30270 IF G$="D" THEN
30280 NEXT I
30285 IF G$="D" THEN 30300
PRINT: INPUT*'DRUECKEN SIE RETURN'*;X$
30290
30300 NEXT Y
30310 GOSUB 300:PRINT:PRINT
30320 PRINT"DATEIENDE"
30330 INPUT"DRUECKEN SIE RETURN";X$
30340 IF G$="D" THEN CLOSE 1
30350 GOTO 1000
35000 REM ====================
35010 REM PROGRAMM BEENDEN
35020 REM ====================
35030 GOSUB 300:PRINT
35040 IF Z=0 THEN 35150
35050 PRINT"SIND ALLE DATEN GESICHERT (J/N)
35060 INPUT X$
35070 IF X$="N" THEN 1000
35080 IF X$="J" THEN 35100
35090 PRINT CHR$(145);:GOTO 35050
35100 GOSUB 300
35110 PRINT"DAS PROGRAMM KANN MIT 'GOTO 1000' WIEDER",
35120 PRINT"GESTARTET WERDEN, OHNE DASS DATEN VER-
35130 PRINT"LOREN GEHEN!"
35140 PRINT
35150 END
F$(I);D$(Y,I)
P R I N T # 1 ,
162
-