Cursor selbst gemacht

Lassen Sie Ihrer Fantasie freien Lauf, konstruieren Sie sich Ihren eigenen, ganz persönlichen Cursor. »Wahl Cursor« stellt Ihnen das erforderliche Handwerkszeug zur Verfügung.

Mit dem Programm »Wahl Cursor« (Listing) kann jeder seinen eigenen Cursor gestalten. Es läßt sich jedes Zeichen mit Hilfe seines Bildschirm-Codes als Cursor-Zeichen definieren (voreingestellt das Zeichen 160, ein reverses »Blank«), Falls diese Auswahl nicht reichen sollte, kann auch ein eigenes Zeichen als Cursor-Zeichen realisiert werden.

Bedienungsanleitung:

Der neue Befehl hat die drei folgenden Grundstrukturen. Erstens:
SYS 49152, Bildschirm-Code

Hiermit kann als Cursor-Zeichen jedes Zeichen des Originalzeichensatzes gewählt werden. Man übergibt dem Befehl einfach den Code des Zeichens (nachschlagen im Anhang des Handbuchs) und läßt sich überraschen.

Probieren wir das doch am besten mal aus. Tippen Sie ein:
SYS 49152,100.

Na, da kommt doch ein Hauch PC herüber, denn wenn Sie alles richtig gemacht haben, sollte sich Ihr Cursor nun in einen Strich verwandelt haben (ASCII-Code 114, Bildschirm-Code 100). Unser normaler Cursor ist das Zeichen 160, ein invertiertes Leerzeichen. Wenn wir dieses Zeichen in den Befehl einsetzen, hat auf den ersten Blick alles seine Ordnung. Wird aber der Cursor über ein anderes Zeichen geführt, verschwindet es auf einmal. Abhilfe schafft hier die zweite Art des Befehls:
SYS 49152, Bildschirm-Code, Operand

Der Grund für das anormale Verhalten liegt in der Art, wie der Cursor erzeugt wird. Klären wir also zuerst dieses Problem: Jedes Zeichen kommt im Zeichensatz des Computers zweimal vor, einmal normal und einmal in invertierter Form (die RVS-Zeichen). Die Funktion des Cursors besteht nun darin, in einem bestimmten Zeitabschnitt immer wieder das Zeichen, auf dem er steht, mit seinem Partner zu vertauschen.

Was dieses Programm macht, ist weiter nichts, als daß es neue RVS-Zeichen erstellt, und zwar kann es das auf zwei Arten:

Operand\<>0: Es kopiert das Muster des Cursor-Zeichens einfach über die Grundzeichen. Ist das Cursor-Zeichen also ein Block wie das Zeichen 160, so werden alle RVS-Zeichen zu Blöcken, der Effekt von vorhin!

Operand=0: Es kopiert so, daß eine Art Negativ des Zeichens entsteht (Also in Richtung alter RVS-Zeichensatz).

Doch genug der Theorie, Computer einschalten und los geht’s!
SYS 49152,160,0 bringt uns unsern alten Cursor wieder,
SYS 49152,121,1 gibt einen Balken, der die Zeichen verdeckt,
SYS 49152,121,0 liefert als Ergebnis einen Balken mit invertierten Zeichen. Hier hilft am besten ausprobieren!

Für alle, die schon immer ein Quadrat als Cursor wollten und nun enttäuscht seufzen: »das ist ja nicht im Originalzeichensatz enthalten«, die dritte Art des Befehls:
SYS 49152,x,Operand, b0,b1,b2,b3,b4,b5,b6,b7

Das Zeichen (x) hat nun keine Bedeutung mehr, denn nun gestalten wir unseren Cursor selbst: Die Byte »b0« bis »b7« definieren ein Zeichen in einer 8*8 Bit-Matrix. Der Operand hat die gleiche Wirkung wie bei dem zuvor behandelten SYS-Aufrufen. Nun, machen wir uns einen Quadrat-Cursor:
SYS 49152,0,1,255,129,129,129,129,129,129,255

Der eigenen Fantasie sind also wirklich keine Grenzen mehr gesetzt. Es kann jedes nur erdenkliche Zeichen als Cursor benutzt werden.

Nun noch eine Bemerkung zu den alten RVS-Zeichen: Es kann sein, daß gewisse Kontroll-Zeichen nun ein wenig fremd aussehen. Wen das stört, kann diealten Zeichen mit RUN/ STOP-RESTORE wieder einschalten und den neuen Cursor dann erst im Programm einsetzen, wo die seltsamen RVS-Zeichen kaum stören.

PROGRAMM : WAHL CURSOR    C000 C14E
-----------------------------------
C000 : 20 E0 C0 20 0D C0 20 4A   B0
C008 : C0 20 94 C0 60 78 A9 03   8C
C010 : 85 01 A9 D0 85 FF A9 00   99
C018 : 85 FE 85 FC A8 A9 D4 85   53
C020 : FD A2 04 20 39 C0 A9 D8   65
C028 : 85 FF A9 DC 85 FD A2 04   8E
C030 : 20 39 C0 A9 07 85 01 58   A3
C038 : 60 B1 FE 91 FE 91 FC C8   65
C040 : D0 F7 E6 FD E6 FF CA D0   C0
C048 : F0 60 78 A9 03 85 01 A2   61
C050 : 04 A9 D4 85 FF 20 73 C0   5F
C058 : A9 DC 85 FF 2C 3D 03 30   EA
C060 : 07 18 A9 08 65 FA 85 FA   19
C068 : A2 04 20 73 C0 A9 07 85   03
C070 : 01 58 60 20 3C C1 B1 FE   50
C078 : 20 47 C1 11 F9 91 FE C8   88
C080 : C0 08 D0 EF 98 A0 00 18   35
C088 : 65 FE 85 FE 90 E5 E6 FF   81
C090 : CA D0 E0 60 2C 88 02 30   76
C098 : 08 A9 C4 8D 88 02 20 B6   DE
C0A0 : C0 AD 00 DD 29 FC 8D 00   A3
C0A8 : DD A9 D6 78 8D 18 03 A9   17
C0B0 : C0 8D 19 03 58 60 A2 04   F9
C0B8 : A9 04 85 FD A9 C4 85 FF   5B
C0C0 : A9 00 85 FC 85 FE A8 B1   C1
C0C8 : FC 91 FE C8 D0 F9 E6 FD   DA
C0D0 : E6 FF CA D0 F2 60 48 A9   29
C0D8 : 04 8D 88 02 68 4C 47 FE   09
C0E0 : 20 F1 B7 8E 3C 03 A9 00   3B
C0E8 : 85 F9 85 FA 8D 3D 03 8A   0E
C0F0 : 18 2A 26 FA 2A 26 FA 2A   1A
C0F8 : 26 FA 85 F9 A9 D0 18 65   88
C100 : FA 85 FA A9 11 8D 7B C0   9E
C108 : 20 06 E2 20 F1 B7 A9 11   8E
C110 : E0 00 D0 02 A9 51 8D 7B   B7
C118 : C0 A0 00 20 06 E2 A9 80   4C
C120 : 8D 3D 03 98 48 20 F1 B7   DC
C128 : 68 A8 8A 99 3E 03 C8 C0   5B
C130 : 08 D0 F0 A9 3E 85 F9 A9   5D
C138 : 03 85 FA 60 48 A5 01 85   89
C140 : 02 A9 00 85 01 68 60 48   2D
C148 : A5 02 85 01 68 60         7F