GFA BASIC 3.0 Bedienungsanleitung Seite 449

AES-Bibliotheken
Beispiel:
DO
EVNT MOUSE(0,100,100,200,90,mx% ,my%,bu%, kb%)
IF bu%
PBOX mx%-10,my%-10,mx%+10,my%+10
ELSE
PLOT mx%,my%
ENDIF
LOOP UNTIL BTST(kb%,2)
--> Es wird gewartet, bis sich der Maus-Cursor in einem Rechteck befindet. Dann wird bei
gedrückter Maustaste ein Rechteck gezeichnet, sonst ein Punkt. Ende durch Drücken
von Control, wenn Mauszeiger innerhalb eines Rechtecks ist.
Achtung: Während der Ausführung von GEM-Routinen kann zwar Shift-
Control-Alternate gedrückt werden, eine Auswirkung hat dies aber erst
nach Rückkehr ins BASIC.
So legt zum Beispiel - EVNT_TIMER(3600000) oder DELAY 3600 eine
Stunde Pause ein, bis der Rechner aus dem GEM wiederkomntt.
11-23