★ APPLICATIONS ★ DIVERS ★ UNSICHTBARE ZEILEN (CPC MAGAZIN) ★ |
| Unsichtbare Zeilen (CPC Magazin) | Applications Divers |
Jeder Programmierer möchte seine selbstgeschriebenen Programme schützen, damit sie nicht unberechtigt kopiert werden. Dieses Programm hilft Ihnen dabei. Sie möchten vielleicht auch manchmal Zeilen verstek-ken, so daß diese nicht mehr gelistet werden können. In diesen Zeilen kann man dann POKEs oder CALLs unter-bringen, um z. B. die Breaktaste abzuschalten. Eine fremde Person kann dann die versteckten Zeilen weder sehen noch löschen. Als Programmierer will man seinen Namen auch in REM-Zeilen festhalten. Diese sollen zwar sichtbar sein, müssen aber ebenfalls löschgeschützt sein. Diese Möglichkeiten bietet mein Programm SICHERE KENNZEILE. Tippen Sie das abgedruckte Listing ein und starten Sie es mit RUN, Sollten Sie einen Fehler in den DATAs gemacht haben, teilt Ihnen das der Rechner mit. Sie müsen dann Ihre DATAs nochmal überprüfen und dann erneut mit RUN starten. Tritt kein Fehler mehr auf, wird das 180 Byte lange Maschinenprogramm, welches ab Adresse 42400 steht, auf Band abgespeichert. So gehen Sie vor:
Nun stehen Ihnen die RSX-Befehle I SICHERN, Zeile und i ENTSICHERN, Zeiie zur Verfügung. Mit I SICHERN, Zeile wird die angegebene Zeile in eine 0 Zeile umgewandelt. Jetzt kann Sie weder editiert noch gelöscht werden. Wandeln Sie die erste Zeile um, ist diese Zeile zusätzlich unsichtbar. Wenn Sie immer die erste Zeile sichern, können Sie auch mehrere Zeilen unsichtbar machen. Geben Sie keine Zeilennummern an, passiert gar nichts. Geben Sie eine nicht existierende Zeiiennummer an, meldet der Rechner "LINE DOES NOT EXIST”. Mit |ENTSICHERN, Zeile wird die erste gefundene 0 Zeile umgewandelt. Geben Sie keine Zeilennummern an, passiert gar nichts. Existiert keine 0 Zeile, so meldet der Rechner entweder "LINE DOES NOT EXIST” oder es passiert nichts, je nachdem, ob Sie schon Variablen angelegt haben. Bemerkungen: Die RSX-Befehle stehen nach NEW zur Verfügung. Achten Sie auch darauf, daß im Programm kein GOSUB oder GOTO zu einer gesicherten Zeile geht, da die Zeile ja jetzt nicht mehr die alte Zeilennummer hat und der Rechner sie nicht finden kann. Es wird dann die Fehlermeldung ”LINE DOES NOT EXIST” ausgegeben. GOTO 0 führt zu einem "SYNTAX ERROR”. Wenn Sie mit RUN ein Programm starten, werden auch die unsichtbaren Zeilen ausgeführt.
|
