Function ParseRiddleData(path:String)
   Local stream:TStream = LoadRiddleFile(path)
   '... hier jede Menge Parse funktionen
   If stream <> Null CloseStream stream
end function

Function LoadRiddleFile:TStream(path:String)
   Local inStream:TStream = ReadFile(path)
   If inStream = Null Return Null
   
   'test
   Local variante:Byte = 2
   
   If variante = 1
      Local outStream:TStream = WriteFile("tmp")
      TXor.crypt(inStream, outStream)
      CloseFile inStream
      CloseFile outStream
      Return (ReadFile("tmp"))
   ElseIf variante = 2
      Local bank:TBank = new TBank
      Local bankStream:TBankStream = CreateBankStream(bank)
      TXor.crypt(inStream, bankStream)
      SeekStream bankStream, 0
      bank = Null
      Return bankStream
   EndIf
End Function

Function LoadRiddleFile:TStream(path:String)
   Local inStream:TStream = ReadFile(path)
   If inStream = Null Return Null
   
   'test
   Local variante:Byte = 2
   
   If variante = 1
      Local outStream:TStream = WriteFile("tmp")
      TXor.crypt(inStream, outStream)
      CloseFile inStream
      CloseFile outStream
      Return (ReadFile("tmp"))
   ElseIf variante = 2
      Local bank:TBank = CreateBank(StreamSize(inStream)) 'New TBank
      Local bankStream:TBankStream = CreateBankStream(bank)
      TXor.crypt(inStream, bankStream)
      SeekStream bankStream, 0
      bank = Null
      Return bankStream
   EndIf
End Function