Commodore 128 Handbuch Seite 170

+";:COLOR 5,8:PR1NTPT$(F);' -COLOR 5,4:PR1NT"+"
430 PRINT"
440 PRINT"
450 RETURN
500 REM =================
510 REM DATEN IM RECHNER?
520 REM =================
530 IF Z>0 THEN 560
540 FE$="KEINE DATEN IM RECHNER!"
550 GOSUB 200
560 RETURN
1000 GOSUB 100
1005 COLOR 5,4:PRINT"
1010 PRINT" +";:COLOR 5,8:PRINT" PROGRAMMFUNKTIONEN:";tCOLOR 5,4:PR
INT" +"
1015 PRINT" +++++++++++++++++++++++":COLOR 5,8
1030 PRINT
1040 COLOR 5,1:PRINT"
1050 COLOR 5,1:PRINT"
1060 COLOR 5,1:PRINT"
1070 COLOR 5,1:PRINT"
1080 COLOR 5,1:PRI NT"
1090 COLOR 5,1:PRINT"
1100 COLOR 5,1:PRINT"
1105 PRINT:PRINT
1110 COLOR 5,1:PRINT"
1115 INPUT F
1120 IF F<1 OR F>7 THEN FE$="UNGUELTIGER WERT":GOSUB 200:GOTO 1000
1130 ON F GOTO 5000,10000,15000,20000,25000,30000,35000
5000 REM ===============
5010 REM DATEI LADEN
5020 REM ===============
5030 GOSUB 300:PRINT:PR INT
5040 PRINT"BITTE DATENDISKETTE INS LAUFWERK LEGEN!"
5050 PRINT
5060 INPUT"DRUECKEN SIE DANACH RETURN";X$
5070 DOPEN #1,"ADRESSEN"
5080 INPUT#1,Z
5090 FOR Y=1TO Z
5100 FOR 1=1 TO 7
5110 INPUT#1,D$(Y,I)
5120 NEXT I
5130 NEXT Y
+++++++++++++++++++":COLOR 5,8
+++++++++++++++++++++++"
1
:COLOR 5,8:PRINT"DATEI LADEN"
- -
-.COLOR 5,8:PRINT"DATEI SPEICHERN"
2
- -
:COLOR 5,8:PR1NT"ADRESSEN EINGEBEN"
-3-
:COLOR 5,8:PRINT"ADRESSEN AENDERN»
-4-
-5- :COLOR 5,8:PRINT"ADRESSEN LOESCHEN"
:COLOR 5,8:PRINT"ADRESSEN AUSGEBEN"
6
- -
:COLOR 5,8:PRINT"PROGRAMH BEENDEN"
7
- -
AUSWAHL ";:COLOR 5,8
158
-