GFA BASIC 3.0 Bedienungsanleitung Seite 294

Anwender-Dokumentation GFA-BASIC 3.0
Beispiel:
TRON tr_proc
GRAPHMODE 3
DO UNTIL MOUSEK
x1%=100+RAND(200)
y1%=100+RAND(100)
x2%=200+RAND(200)
y2%=200+RAND(100)
PBOX x1%,y1%,x2%,y2%
LOOP
PROCEDURE tr_proc
IF BIOS(11,-1) AND 4 ! Control-Taste
adr%=XBI0S(2)
BMOVE adr%+1280,adr%,4*1280
PRINT AT(1,5);SPACE$(80);
PRINT AT(1,5);LEFT$(TRACE$, 79);
PAUSE 20
ENDIF
RETURN
--> Dieses Programm zeichnet zufällig verteilte Rechtecke auf den Bildschirm. Das Drücken
der Control-Taste läßt die gerade abgearbeiteten Befehle auf dem Bildschirm erschei-
nen. Durch das Drücken einer Maustaste wird das Programm beendet.
7-54