Tips und Tricks für GFA-Basic

Wie erzeuge ich unter GFA-Basic 3.x blinkenden Text auf dem Bildschirm?

Die Prozedur in Listing 1 löst diese Aufgabe mit dem Befehl »RC_COPY« bzw. »GET« und »PUT«. Mit dem Aufruf »@txt_flash( ... )« übergeben Sie nacheinander die x- und y-Koordinate des ersten Buchstabens. Darauf folgt die Anzahl der blinkenden Buchstaben, der Zeilen und die Blinkfrequenz. Der letzte Parameter gibt den Blinkmodus an. Ist »mod& = TRUE«, blinkt der Text invertiert, setzen Sie »mod& = FALSE«, löscht die Funktion den Text kurzzeitig.

Ein Benutzer kann mein Programm auch mittels Tastatur bedienen. Drückt der Anwender aber während einer Prozedur weiterhin eine Taste, führt der Computer nach dem Rücksprung die weiteren Eingaben aus. Wie kann ich diesen Effekt verhindern?

Die Atari ST und TT haben einen Tastaturpuffer. In ihm speichert der Computer jede Tastatureingabe. Befehle wie »INKEY$« holen sich dann aus diesem Puffer Informationen. Sobald der Benutzer ein Taste drückt, findet sich im Tastaturpuffer der entsprechende Wert. Wenn Sie »INKEY$« anwenden, holt sich der Befehl den ersten Wert aus dem Puffer. Um dem oben genannten Effekt entgegenzuwirken, genügt es, den Puffer vor Aufruf von »INKEY$« zu löschen. Dies erledigt der Befehl:

	LPOKE XBIOS (14, 1) +6, 0

Wie kann man einen beliebigen Text durch Einfügen, von je einem Leerzeichen strecken?

Mit der Prozedur »every_letter_space« in Listing 2 übergeben Sie den zu sperrenden Text. Zurück erhalten Sie die Variable »string$«, die den veränderten Text enthält. Mit »UPPFR$« wandelt die Prozedur vorher alle Buchstaben in Großbuchstaben um.

Ich möchte einen Text, der unter 1st Word Plus geschrieben und im WP-Modus gespeichert ist, in meinem Programm als normalen ASCII-Text verarbeiten. Wie kann ich ohne viel Aufwand die Merkmale des WP-Modus löschen?

Texte, die im WP-Modus gespeichert sind, enthalten Textattribute sowie ein Textlineal. Außerdem entsprechen die 1st Word Plus-eigenen Leerzeichen einem anderen ASCII-Code. Listing 3 löscht die Merkmale aus dem Text, beginnend mit den Linealen. Diese erkennt das Programm durch das vorangestellte Zeichen »CHR$(31)«. Danach ersetzen wir die 1st Word Plus-Leerstellen (CHR$(30))» durch »normale« Leerzeichen (CHR$(32)). Die Textattribute leitet 1st Word Plus durch das Escape-Zeichen ein, gefolgt vom Attribut-Byte, die das Programm zum Schluß behandelt.
(Sandro Lucifora/ah)

Textattribute von 1st Word Plus

REPEAT 			! Schleife ...
	@txt_flash (3, 3, 30, 1, 10, FALSE)	! ruft procedure auf
UNTIL INKEY$ <> „„	! ... bis taste gedrückt
EDIT				! zum editor
PROCEDURE txt_flash (tx%, ty%, anz.bs%, anz.z%, flash.frq%, mod&)
	LOCAL tf_x%, tf_y%, tf_w%, tf_h%, bh%, ret$
	bh%   = MUL (XBIOS (4), 8)	! Buchstabenhöhe ermitteln
	bb%   = MUL (XBIOS (4)+1, 6)	! Buchstabenbreite ermitteln
	tf_x% = MUL (tx%-1, 8)	! x-koordinate ermitteln
	tf_y% = MUL (ty%-1, bh%)	! y-koordinate ermitteln
	tf_w% = MUL (anz.bs%, 8)	! breite ermitteln
	tf_h% = MUL (anz.z%, bh%)	! höhe ermitteln
	IF mod&
		RC_COPY XBIOS (2), tf_x%, tf_y%, tf_w%, tf_h%
		TO XBIOS(2), tf_x%, tf_y%, 10	! feld invertieren
		PAUSE flash.frq%	! zeit abwarten
		RC_COPY XBIOS (2), tf_x%, tf_y%, tf_w%, tf_h%
		TO XBIOS (2), tf_x%, tf_y%, 10	! feld invertieren
		PAUSE flash.frq%	! zeit abwarten
	ELSE
		GET tf_x%, tf_y%, tf_x% + tf_w%, tf_y% + tf_h%, ret$
		DEFFILL 0, 0
		PBOX tf_x%, tf_y%, tf_x% + tf_w%, tf_y% + tf_h%
		PAUSE flash.frq%
		PUT tf_x%, tf_y%, ret$
		PAUSE flash.frq%	! zeit abwarten
	ENDIF
RETURN

Listing 2: Die Prozedur »every _letter_space« fügt nach jedem Zeichen eine Leerstelle ein @every_letter_space („TOS, die Zeitschrift für den ATARI ST/TT“)

PROCEDURE every_letter_space (string$)
	LOCAL i%
	string$ = UPPER$ (string$)
	FOR i% = LEN (string$) DOWNTO 1
		string$ = LEFT$ (string$, i%) + „ “
		+ RIGHT$ (string$, LEN(string$)-i%)
	NEXT i%
	string$ = TRIM$ (string$)	! Leerzeichen an den Seiten entfernen
RETURN

Listing 3: In 1st Word Plus geschriebene Texte in ASCII-Format wandeln

@init
FILESELECT „*.*“,““, file$
´
wahl$ = file$
IF wahl$ <>-““ AND EXIST (wahl$)
	@wp_filter (file$)
	´
	FOR z% = 1 TO textlaenge%
		PRINT text$ (z%)
	NEXT z%
	~INP(2)
ENDIF
´
EDIT
´
PROCEDURE init
	DIM text$ (60)
RETURN
PROCEDURE wp_filter(wahl$)
	OPEN „i“‚ #1, wahl$
	textlaenge% = 0
	WHILE EOF (#1) <> TRUE
		INC textlaenge%
		INPUT #1, text$ (z%)
	WEND
	CLOSE #1
	@filtern
RETURN
´
PROCEDURE filtern
	LOCAL z%, zz%
	FOR z% = 1 TO textlaenge%
		WHILE ASC (LEFT$ (text% (z%))) = 31
			@zeile_loeschen (z%)
		WEND
		@varspace
		@attribute
	NEXT z%
RETURN
´
PROCEDURE zeile_loeschen (znr%)
	LOCAL z%
	DEC textlaenge%
	FOR z% = znr% TO textlaenge%
		text$ (z%) = text$ (z%+1)
	NEXT z%
RETURN
´
PROCEDURE varspace
	LOCAL pos%
	REPEAT
		pos% = INSTR (text$ (z%), CHR$(30))
		MID$ (text$(z%),pos%) - CHR$(32)
	UNTIL pos% = 0
RETURN
´
PROCEDURE attribute
	LOCAL pos%
	DO
		pos% = INSTR (text$(z%), CHR$(27))
		EXIT IF pos% = 0
		text$(z%) = LEFT$(text$ (z%), pos% - 1)
		            + RIGHT$ (text$(z%), LEN text$(z%)) - pos% -1)
	LOOP
RETURN