Commodore 128 Handbuch Seite 144

300 REM ====================
310 REM KOEPFE PROGRAMMTEILE
320 REM ====================
330 PT$(1)="
340 PT$(2)=" DATEI SPEICHERN "
350 PT$(3)="ADRESSEN EINGEBEN"
360 PT$(4)="ADRESSEN AENDERN "
370 PT$(5)="ADRESSEN LOESCHEN"
380 PT$(6)="ADRESSEN AUSGEBEN"
390 PT$(7)="PROGRAMM BEENDEN "
400 GOSUB 100
410 PRINT"
430 PRINT"
1NT"+"
440 PRINT"
450 RETURN
In den Zeilen 330-390 werden die Namen der Programmteile
in einem Array
Unterprogramm"PROGRAMMKOPF"(Zeile 100)auf .Danachwird
der grün umrahmte Name der ausgewählten Programmfunktion
ausgegeben. Dieses Unterprogramm
jedem Programmteil aufgerufen.
DATEI LADEN ■ '
";:COLOR 5,4
+"; ¡COLOR 5,8:PRINTPT$(F)»" ' ^ °' - O R 5,4:PR
+++++++++++++++++++"¡COLOR 5,8
gespeichert. Die Zeile
wird als erstes von
132
- -
400 ruft das