GFA BASIC 3.0 Bedienungsanleitung Seite 476

Anwender-Dokumentation GFA-BASIC 3.0
Beispiel:
DO
~ EVNT_BUTTON(1,1,1,mx%,my%,bu%,kb%)
~ GRAF_RUBBERBOX(mx% ,my%,1,1,w%,h%)
BOX mx%,my%,mx%+w% ‚my%+h%
LOOP UNTIL BTST(kb%,3)
--> Wartet auf Mausklick. Dann läßt sich ein Rechteck aufziehen (Gummiband), das an-
schließend gezeichnet wird. Abbruch durch Drücken von Alternate und linker Maus-
taste.
11-50