code:

---

*doslist.DosList = LockDosList_(flags)
If *doslist
  Repeat
    *doslist = NextDosEntry_(*doslist,flags)
    If *doslist
      name.s = ???
    End If
  Until *doslist = 0
  UnLockDosList_(flags)
End If

---

code:

---

Genre            : Action RPG + Story
Programiersprache: Amiblitz3
Scriptingsprache : MonkeyScript
Binary Code      : 68K (evtl. PPC Extentions als Library, falls zu langsam)
Zielplatformen   : OS4/MOS/UAE/Amithlon/evtl. Classic(60er)
Grafik           : min. 640x480x16, opt. 800x600x24
Perspektive      : 30° ISO, 3D Oberfläche 
Welt             : min. 200x100 Screens
Musik            : MP3 Stream (Background/Musik)
Sounds           : 16bit Samples
Sprachausgabe    : erstmal nicht geplant (mangels "glaubwürdiger" Sprecher)
Multiplayer/Inet : erstmal nicht geplant
Grafik Tools     : Bleistift+Papier (Gegenstände/Häuser)
                   ArtEffect4 (kolorieren)
                   PerlinFX (Boden/Textur)
                   Foto (Boden/Textur)
                   TreeGen (Bäume)
                   Poser6 (Figuren)
Sound Tools      : HD-Rec
Entwicklerpltfrm.: MS Vista/WinUAE (1,83GHz Core2Duo Laptop)

---

code:

---

Syntax 2
optimize 7
XINCLUDE "eclock.include.bb2"

NPrint "Starte Benchmark..."
eclock_Start{1000}
For X.l = 1 To 500
  For A.l = 0 To 128
    B.l = A + 1
    C.l = B - 1
    D.l = A * 2
    E.l = D / 2
  Next A
  For A = 0 To 32768 Step 128
    B = A + 1
    C = B - 1
    D = A * 2
    E = D / 2
  Next A
  For A = 0 To 8388608 Step 32768
    B = A + 1
    C = B - 1
    D = A * 2
    E = D / 2
  Next A
  For F.f = 0 To 32768
    G.f = F + 3.141592
    H.f = G - 1.414213
    I.f = H * 3.141592
    J.f = I / 1.414213
  Next F
  For F = 0 To 32768
    G = F + 3.1415926;54123456
    H = G - 1.1412135;62123456
    I = H * 3.1415926;54123456
    J = I / 1.1412135;62123456
  Next F
  For F = 0 To 32768
    G = Sqr(F)
    H = Sin(F)
    I = Cos(F)
    J = Tan(F)
  Next F
  For F = 0 To 32768
    G = Sqr(F)
    H = Sin(F)
    I = Cos(F)
    J = Tan(F)
  Next F
  Y.l = Y + 1: If Y = 10 Then Print "#" : Y = 0
Next X
NPrint "nFertig !!!"
duration.f = eclock_Stop{}/1000
Format "###,###,##0.000"
NPrint "Zeitdauer : ",duration,"s"
End

---