GFA BASIC 3.0 Bedienungsanleitung Seite 70

Anwender-Dokumentation GFA-BASIC 3.0
Beispiel:
PROCEDURE change(ptr%)
SWAP *ptr%,x()
ARRAYFILL x(),1
SWAP *ptr%,x()
RETURN
--> Der Inhalt des Arrays a() wird verändert, ohne daß sein Name in der Prozedur change
auftaucht. Es wird die Zahl 1 auf den Bildschirm geschrieben (siehe auch SWAP).
Oder in 3.0 besser:
DIM a(3)
change(a())
PRINT a(2)
PROCEDURE change(VAR x())
ARRAYFILL x(),1
RETURN