GFA BASIC 3.0 Bedienungsanleitung Seite 82

Anwender-Dokumentation GFA-BASIC 3.0
DIM x(3)
change(*x())
PRINT x(2)
PROCEDURE change(adr%)
SWAP *adr%,a()
ARRAYFILL a(),1
SWAP *adr%,a()
RETURN
--> Das Array x() wird in der Prozedur change mit Einsen gefüllt, ohne daß der Name x() im
Unterprogramm auftaucht. So kann ein Unterprogramm für mehrere Felder verwendet
werden. Dann wird, wie im Beispiel, die Deskriptoradresse übergeben und durch SWAP
am Anang und am Ende werden diese Felder dann unter einem Namen angesprochen.
In der Version 3.0 empfiehlt sich hierbei die indirekte Feldübergabe als
VAR-Parameter:
DIM x(3)
CHANGE (x())
PRINT x(2)
PROCEDURE change (VAR a())
ARRAYFILL a(),1
RETURN