'**************************************************************************** '* '* SREENRD.BAS - QBASIC-Programm zum Auslesen des Text-Bildschirms mit SCREEN '* =========== '* Mit Hilfe der SCREEN-Funktion werden die ersten 40 Zeichen einer '* Bildschirmzeile ausgelesen und in die Variable text$ eingetragen. '* text$ wird anschlieáend - nach Loeschen des Bildschirms wieder in die '* 24. Bildschirmzeile ausgegeben. '* '* Verwendete Befehle: SCREEN-Funktion '* '* '* '* \ (c) Thomas Antoni, 16.09.99 - 27.07.05 '* \ /\ Mailto:thomas@antonis.de '* ( ) http://www.antonis.de '* .( o ). '* ----==== Hottest QBasic Stuff on Earth !!! ====---- '* '**************************************************************************** CLS zeile% = 4 LOCATE zeile% PRINT "Thomas Antoni" FOR spalte% = 1 TO 40 text$ = text$ + CHR$(SCREEN(zeile%, spalte%)) NEXT spalte% CLS LOCATE 24, 1 PRINT text$ SLEEP