* Namen von Funktionen und Types sind immer Global

* Nur Variablen (und Blitzarrays) im Hauptprogramm können mit Global in Funktionen verfügbar gemacht werden

* Funktionsparameter und Variablendefinitionen in Funktionen sind immer Lokal. Es gibt zwar die Möglichkeit, den Namen einer globalen Variable in einer Funktionsdefinition anzugeben, jedoch erstellt man dadurch nur eine lokale Variable mit dem gleichen Namen in der Funktion und kann dadurch nicht mehr aus der Funktion auf die globale Variable zugreifen. (das gleiche gilt für in der Funktion erstellte lokale Variablen)

Global A=6
Testfunction A
Print "Wert von A außerhalb der Function: "+A
WaitKey
Function Testfunction(A)
   A=4
   Print "Wert von A innerhalb der Function: "+A
End Function

Global A#[5]
Testfunction
WaitKey
Function Testfunction()
   Local A#[3], N%
   For N=0 To 5
      A[N]=N
   Next
End Function

Global Test.Testtype[5]
Type Testtype
   Field A%
End Type
Testfunction 5
WaitKey
Function Testfunction(A)
   Test[A]=New Testtype
   Test[A]\A=A
   If A>0 Then Testfunction A-1
End Function

Type Testtype
   Field A#
End Type
;Der Rückgabewert von Handle wird nicht benötigt,aber ein fortlaufender
;Integerwert wird für neue Elemente erst beim Aufruf von Handle erstellt.
;Beim Aufruf der Funktion braucht der Datentyp nicht angegeben werden,
;da der (globale) Funktionsname fest mit dem Datentyp verbunden ist. 
Function Element_Erstellen.Testtype(Anzahl=1)
   Local E.Testtype,H%
   If Anzahl>0 Then E=New Testtype:H=Handle(E) Else Return Null
   If Anzahl=1 Then Return E
   Element_Erstellen Anzahl-1
End Function
;Solange kein "Insert" oder "Delete" verwendet wird, gibt das Handle 
;des letzten Elements die Anzahl der Elemente zurück.
Function Element_Anzahl%()
   Return Handle(Last Testtype)
End Function
;Da Handle nach jedem New aufgerufen wurde, sind die Handles fortlaufend
;nummeriert und man kann man mit Object über die Angabe eines Index
;direkt ein bestimmtes Element ansprechen, ohne die Liste mit Each 
;durchlaufen zu müssen.
;Blitzarrays oder Dimfelder brechen das Programm mit einer Fehlermeldung ab,
;wenn ein Element ausserhalb der Dimensionen angesprochen wird. Bei dieser
;Liste erfolgt jedoch kein Programmabbruch, wenn man den Rückgabewert auf Null
;testet, bevor man auf den Inhalt zugreift.
Function Element_Auswaehlen.Testtype(Index%)
   Return Object.Testtype(Index)
End Function
;Man kann jetzt Testtype um beliebige Felder erweitern und anstelle der
;Funktion "Element_Auswaehlen.Testtype" für jedes Feld zwei Funktionen
;schreiben, um den Inhalt der Felder direkt über Angabe des Index zu lesen
;oder zu schreiben. Dabei muss man aber auf den richtigen Datentyp bei den
;Definitionen der Funktionen achten. Aber das sollte nach diesem Tutorial
;kein Problem mehr sein....
Function Feld_A_Auslesen#(Index%)
   Local E.Testtype
   E=Object.Testtype(Index)
   If E=Null Return 0.0 Else Return E\A
End Function
;Schreiben gibt den vorherigen Wert (zur Kontrolle) zurück
Function Feld_A_Schreiben#(Index%,NeuerWert#)
   Local E.Testtype,AlterWert#
   E=Object.Testtype(Index)
   If E=Null Return 0.0
   AlterWert=E\A
   E\A=NeuerWert
   Return AlterWert
End Function
;zu beachten ist nur noch, das Blitzarrays und Dimfelder mit Element 0 beginnen,
;diese Liste jedoch erst mit 1. Aber auch ein Zugriff auf Element 0 erzeugt keine
;Fehlermeldung, sondern gibt nur einen Default-Wert zurück. Daher kann sich jeder
;seine eigene Fehlerbehandlung schreiben.