Tips und Tricks für Programmierer

Wie speichere ich einen String, der auch Dateiende-Zeichen ($A) enthält?

Öffnen Sie zunächst eine Random-Access-Datei ohne feste Satzlänge (OPEN "U"). Auf diese Datei greifen Sie mit GET (extended) und PUT (extended) zu. Den Dateizeiger positionieren Sie mit SEEK. Mit folgenden Prozeduren schreiben Sie einen String beliebigen Inhalts in diese Datei oder lesen ihn aus ihr.
(Günther Heidel/ah)

DEF PROC SCHREIBEN (A$)
	OPEN "U", 1,"BEISPIEL.XXX"
	PUT 1, MKI$(LEN (A$) )	! erst Länge schreiben
	PUT 1, A$
	CLOSE 1
RETURN
DEF PROC LESEN (R Lese$)
	LOCAL Laenge
	OPEN "U", 1, "BEISPIEL.XXX"
	SEEK 1, 0
	GET 1, Lese$, 2
	Laenge = CVI (Lese$)
	GET 1, Lese$, Laenge
	CLOSE 1
RETURN

Wie kann ich ein Degas-Bild von Diskette laden?

Eine Degas-Bild-Datei besteht aus 2 Byte Vorspann (Kennzahl für die Bildschirmauflösung), 32 Byte Farbpalette und genau 32000 Byte für das eigentliche Bild. Die eventuell vorhandenen Informationen über Farbanimation wollen wir nicht berücksichtigen. Sie laden Bild und Farbpalette am einfachsten direkt mit dem Befehl OPEN "U".

OPEN "U", 1, "PICTURE.PI3"
SEEK 1, 2	! überspringen des Vorspanns
GET 1, $FF8240, $ 20	! schreibt die Farbpalette
			! direkt in die Register des Videoshifters
SEEK 1, 34	! ab hier stehen die Bilddaten
XBIOS (Screen_Adr, 2?)	! holt die physikalische Bildschirmadresse
GET 1, Screen_Adr, 32000	! und schreibt die Daten hinein
CLOSE 1

Selbstverständlich muß man das Bild nicht gleich in den Bildschirm schreiben, sondern kann es zum Beispiel in einen MEMORY-Block laden. (Günther Heidel/ah)

Wie kann ich eine Musikdatei, die im XBIOS32-Code gespeichert ist, in selbstgeschriebene Basic-Programme einbinden?

Dazu laden Sie die Musik-Datei in einen MEMORY-Block und übergeben dessen Adresse sowie die Länge-1 der Musik-Datei an die XBios-Funktion »Dosound«.

OPEN "U", 1, "A:\BEISPIEL.MUS"
L = LOF(1)	! Länge der Datei ermitteln
M = MEMORY(L)	! Speicherblock reservieren
GET 1, M, L	! Musikdaten laden
CLOSE 1
XBIOS 32, L, M	! Musik abspielen
REPEAT 
	XBIOS R, 32, L, -1 
UNTIL R = 0	! Warten
FRE M		! Speicherblock wieder freigeben

Vertikales Scrolling

Der Quelltext auf der TOS-Diskette sucht zunächst das aktuelle Verzeichnis nach allen Bildern (Dateien mit der Endung *.PIC) ab und läßt diese dann nacheinander von unten in den Bildschirm scrollen. Der kleine »Ruck«, der nach je zwei Bildern auftritt, läßt sich mit etwas Aufwand beheben: Sie laden zunächst alle Bilder in ein Stringfeld und geben sie nacheinander auf dem Bildschirm aus. Dies erfordert allerdings viel Speicher. Apropos umschreiben: Das Programm arbeitet nur mit dem Screenformat (32000 Byte) und bedarf einer Anpassung für eventuell vorhandene Grafikkarten.
(Günther Heidel/ah)

Steuerzeichen

Jeder Computer verwendet bestimmte Steuerzeichen, um etwa Ausgaben auf dem Bildschirm zu koordinieren. Wenn Sie in einem Editor einen Text schreiben, bewegen Sie zum Beispiel mit der Hochpfeiltaste den Cursor (Schreibmarke) eine Zeile nach oben. Wenn der Editor feststellt, daß die Hochpfeiltaste gedrückt wurde, setzt er sich nicht selbst den Cursor eine Zeile höher, sondern läßt diese Arbeit vom Betriebssystem erledigen, genauer vom VT52-Emulator. Dieser Teil des Betriebssystems emuliert die Funktion des VT52-Terminals der Firma Digital Equipment. Der Emulator erledigt aber noch weitere Aufgaben: Eine Aufschlüsselung aller Funktionen finden Sie in Tabelle 2.

Neben den Steuerzeichen des VT52-Emulators gibt es noch Control-Sequenzen. Bei diesen handelt es sich um Steuerzeichen, die sich durch Kombination der Control-Taste und einer Buchstaben-Taste aufrufen lassen (Tabelle 1). Einige dieser Funktionen entsprechen einer speziellen Taste. So entspricht Control l der Taste TAB und Control M der Taste Return. Ein Anwendungsbeispiel für die Funktionen des VT52-Emulators finden Sie als Omikron-Quelltext auf der TOS-Diskette. (Günther Heidel/ah)

Tabelle 1. Die Control-Steuercodes

Tabelle 2: Die Funktionen des VT-52-Emulators