Automatische Zeilennumerierung

Die lästige Arbeit, vor jeder Zeile die entsprechende Nummer einzutippen, nimmt Ihnen diese kleine Routine ab.

Die Maschinen-Routine — ganze 141 Bytes — wird vom Basic-Lader über DATAs in den Speicherbereich ab Adresse $C000 beziehungsweise 49152 Dezimal geschützt abgelegt. Dabei führt das Basic-Programm eine Checksummenprüfung durch, da sich der Basic-Lader nach Ablauf von selbst löscht.

Vom Programm aus wird eine Schrittweite von 10 eingestellt. Diese kann aber durch Verändern des Wertes in Adresse 49296 — im Bereich von 1 bis 255 — eingestellt werden. Der Wert der ersten Zeilennummer wird in die Adressen: 49294 (High-Byte) und 49295 (Low-Byte) eingepoket, wenn Sie mit einem anderen Wert als 10 beginnen soll.
Beispiel: POKE 49296,S:POKE 49294,INT(Z/256):POKE 49295,Z-(INT(Z/256) * 256)
S = Schrittweite ; Z = Wert der ersten Zeilennummer Durch Eingabe von Pfeil-links/Return kann nun eine Zeilennummer angefordert werden. Die Vorgabe einer Zeilennummer wird akustisch untermalt. Nun kann eine Basic-Zeile wie gewohnt eingegeben und mit der Return-Taste abgeschlossen werden. Die nächste Ausgabe erfolgt wieder auf Anforderung, mit der eingestellten Schrittweite.