Adressen Ausgeben - Commodore 128 Handbuch

25130 GOSUB 300:PRINT
25135 FOR 1=1 TO 7
25140 PRINT F$(I);D$(X,1)
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 Z-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

Adressen ausgeben

Dieser Programmabschnitt gehört sicherlich nicht zu den
leichtesten. Hier wollen wir zum ersten Mal auf dem
Drucker ausgeben.
ermöglicht werden. Nach Auswahl, ob denn nun auf dem
Bildschirm oder dem Drucker ausgegeben werden soll, geben
Sie die Suchbegriffe ein. Doch schreiben wir zunächst die
ersten Zeilen.
30000 REM ===================
30010 REM ADRESSEN AUSGEBEN
30020 REM ===================
30030 GOSUB 300:PRINT
30040 GOSUB 500
30050 IF 2=0 THEN 1000
30060 INPUT"DRUCKER ODER BILDSCHIRM (D/B) ";G$
30070 IF G$o"B" AND G$<>"D" THEN PRINT CHR$(145);:GOTO 3
0060
30075 IF G$="D" THEN OPEN 1,4
Hier wird wieder geprüft, ob Daten im Rechner sind
(Zeilen 30040-30050). Danach wird gefragt, ob auf Drucker
oder Bildschirm ausgegeben werden soll. Die Antwort ('D'
oder 'B') wird in der Stringvariablen G$ festgehalten, da
Doch auch Bildschirmausgabe
146
- -
soll