German / Deutsch:
Listschutz durch ein Programm
Dieser Listschutz ist eine Kombination von Kodierung im Programm und einer Auswertung dieses Kodes durch einen Programmteil. Die zu schützende Zeile wird mit 5 Doppelpunkten gekennzeichnet.
10 :::::PRINT"TESTZEILE"
Ein kurzes Programm ab Ende des Hauptprogrammes besorgt dann den Schutz.
Dieses Programm wird mit RUN 62000 gestartet. Es ersetzt im ganzen Programm den ersten Doppelpunkt durch eine 0, wenn ihm noch 4 weitere Doppelpunkte folgen. Meldet sich der Rechner wieder mit READY, können die Zeilen 62000 bis 62040 durch DELETE 62000 - 62040 gelöscht werden.
Wird nun LIST eingegeben, so passiert folgendes:
Errreicht die LIST-Routine eine geschützte Zeile, so wird durch die 0 das Ende der Zeile simuliert. Die Zeilennummer wird zwar ausgegeben, der Rest der Zeile aber übersprungen, und der List Vorgang bei der nächsten Zeile fortgesetzt. Dieser Listschutz wirkt auch bei Auslisten auf einen Drucker. | English:
List protection by a program
This list protection is a combination of coding in the program and an evaluation of this code by a program part. The line to be protected is marked with 5 colons.
10 :::::PRINT"TEST LINE"
A short program from the end of the main program then provides the protection.
This program is started with RUN 62000. It replaces the first colon in the entire program with a 0 if it is followed by 4 more colons. If the computer reports READY again, lines 62000 to 62040 can be deleted with DELETE 62000 - 62040.
If LIST is now entered, the following happens:
If the LIST routine reaches a protected line, the 0 simulates the end of the line. The line number is output, but the rest of the line is skipped and the list process continues with the next line. This list protection also applies when a printer is delisted. |
