graphics(640,480,0,30)

local PlayerX:int=320

local shotlist:int[]
local Count:int

local Shotwait:int=1000


repeat
   cls()
   ShotWait=ShotWait+1
   //Player Sachen
   Drawrect(PlayerX-5,430,10,10)
   
   if (KeyDown(KEY_LEFT))
      PlayerX=PlayerX-4
   elseif (KeyDown(KEY_RIGHT))
      PlayerX=PlayerX+4
   endif
   
   if (keydown(key_space) and shotwait>10)
      Count=Count+1
      ShotWait=0
      ShotList[Count][y]=430
      ShotList[Count][x]=PlayerX-5
   endif
   
   //Schüsse Updaten
   local i:string
   Steps=0
   
   foreach ("ShotList","i")
      
      drawoval(ShotList[i][x]+5,shotlist[i][y],5,5)
      shotlist[i][y]=shotlist[i][y]-4
      if (shotlist[i][y]<0)
         ShotList[i]=null
      endif
   next
   

   DrawText(getfps(),10,20)
   
   flip(1)
until (keydown(Key_escape))

Local Array:Int[] // Eckige Klammern bedeuten, dass es ein
Array ist
Array[1]=100 //Setze den Wert 100 mit dem Index 1
Array["MeinArrayIndex"]=1000 //Auch Strings gehen als
bezeichner
Array[-10]=-100 //Sowie Negative
'//Mehrdimensionale Array
Local i:Int=10
Array[i][x]=10 //Die Gänsefüßchen können auch weggelassen
werden (Dann ists nicht Case Senistive und auch Leerzeichen
sind verboten)
Array[i][y]=100 //Auch mehrere sind erlaubt
Array[i]=-900 //Auch dieser Index kann angenommen werden
Local index:String //Muss String sein, da die Indexe auch
Strings sein können
ForEach ("Array","index")
Print (Array[index])
Next

 .text
main:
   int input,"Ihr Name: "
   push cmd
   call AnfangSetzen
   int delay,2000
   end

AnfangSetzen:
   mov cmd,"Ihr Name ist also "
   call AddName
ret

AddName:
   pop dx
   add cmd,dx
   call ausgeben
ret

ausgeben:
   int print
ret

f1:
   call f2
ret

f2:
   call f3
ret

f3:
   call f4
ret

...


f199:
   call f200
ret

f200:
   call f201 ' an der Stelle gäbe es dann eine MAV
ret

f201:
ret