Tips & Tricks zum C 16

Auch zu Commodores Kleinstem haben wir ein paar nützliche Programmierhinweise gesammelt. Zum Beispiel eine kurze Hardcopy-Routine zum Ausdruck des Textbildschirms.

Noch vor gar nicht allzu langer Zeit wurde der C 16/C 116 noch liebevoll als das »schwarze Schaf« der Commodore-Familie bezeichnet. Langsam kommen jedoch immer mehr Leute darauf, daß dieser Computer, mit einer Speichererweiterung ausgerüstet, eine durchaus ernstzunehmende Alternative zum C 64 ist; wenn nur nicht der überwältigende Software-Vorteil des größeren Bruderswäre. Unser Beitrag, um dem C 16 etwas auf die Sprünge zu helfen, ist die Tips & Tricks-Ecke. Dabei zeigt sich wieder einmal, daß wir eine Zeitschrift von Lesern für Leser sind. Zum größten Teil bestimmen Sie durch Ihre Beiträge das Angebot unserer Tips & Tricks-Rubrik. Wenn Ihnen ein Programmiertrick bekannt ist, und möge er Ihnen noch so selbstverständlich erscheinen, schicken Sie ihn an die 64’er-Redaktion! Auch wäre es für uns interessant zu wissen, ob unsere Leser sich auch weiterhin eine Tips & Tricks-Ecke zum C 16 wünschen.

Windows im Programm

Im Sonderheft zum C 16 wird auf die Möglichkeit hingewiesen, Bildschirmfenster innerhalb eines laufenden Programms zu erstellen. Die beschriebenen Methoden sind jedoch weiter verbesserungsfähig.

Unter Umgehung des Escape-Modus: Die Koordinaten zur Festlegung eines Windows können direkt in die Systemadressen für die aktuelle Bildschirmgröße »gePOKEt« werden.

Ein Beispiel: Mit POKE 2022,2 wird die erste Bildschirmzeile »eingefroren« (zum Beispiel als Titelzeile), indem der obere Rand des aktuellen Bildschirms herabgesetzt wird.

Der Normalzustand (Window = normale Bildschirmgröße) wird wie üblich durch zweimaliges Drücken der Home-Taste beziehungsweise durch PHlNT"[2x Home]" wiederhergestellt.

Hardcopy-Routine

Wenn Sie einen Drucker an Ihren Computer angeschlossen haben, können Sie mit Hilfe dieser kjeinen Unterroutine (Listing) den Bildschirminhalt zu Papier bringen.

Aufgerufen wird das Programm durch »GOSUB 1000«. Um den Bildschirminhalt herum wird ein Rand gedruckt.

1000 rem hardcopy-routine
1020 open 4,4,0
1030 for x=1 to 42:x$=x$+"-":next x
1040 print#4,x$
1050 for x=0 to 24:y$="!"
1060 for y=1 to 40:y%=peek(3071+x*40+y):if y%<32 then y%=y%+64
1070 y$=y$+chr$(y%):next y
1080 y$=y$+"!":print#4,y$:next x
1090 print#4,x$:print#4:print#4:print#4:print#4:print#4
1100 print#4:print#4:print#4:print#4:close4:x$="":y$="":return

Das seltsame Listing

Wer glücklicher Besitzer des C 16-Sonderheftes (3/86) ist, wird sich beim Abtippen des Farbdemos auf Seite 22 etwas gewundert haben: Das Listing befindet sich nämlich in einem absolut »unabtippbaren« Zustand. Unser Umsetzprogramm für die Steuerzeichen (CLR, Farben etc.) hat die Verarbeitung dieses Listings verweigert. Nachfolgend finden Sie nun die fehlerfreie Version.

10 rem *********************************
20 rem *                               *
30 rem *   (c 16)  farbdemo    (116)   *
40 rem *           --------            *
50 rem *   christian quirin spitzner   *
60 rem *   gruberstr. 53, 8011 poing   *
70 rem *   telefon:      08121/81100   *
80 rem *                               *
90 rem *********************************
100 color0,4
110 color4,4
120 print"{clr}{down}{blk}          f a r b d e m o
130 print"          ==============={down}"
140 print" h  s w r z p g b g o b g r b h d h"
150 print" e  c e o y u r l e r r e o l e u e"
160 print" l  h i t a r u a l a a l s a l n l"
170 print" l  w e . n p e u b n u b a u l k l"
180 print" i  a s . . u n . . g . g . g b e g"
190 print" g  r s . . r . . . e . r . r l l r"
200 print" k  z . . . . . . . . . u . u a b u"
210 print" e  . . . . . . . . . . e . e u l e
220 print" i  . . . . . . . . . . n . n . a n
230 print" t  . . . . . . . . . . . . . . u ."
240 print
250 for j=7 to 0 step -1
260 :  print"{blk}"j;
270 :  for i=1 to 16
280 :  color 1,i,j
290 :  print" {rvon} {rvof}";
300 :  next i
310 :  print
320 nextj
330 getkeya$