Graphics3D 1024,768,32,1
SetBuffer BackBuffer()

Global hm_dir$,lm_dir$,cm_dir$,hm,lm,cm

While Not KeyHit(1)
   UpdateWorld()
   RenderWorld()
   
   If KeyHit(67) Then load()
   
   Text 0,0,hm_dir$
   Text 0,20,lm_dir$
   Text 0,40,cm_dir$
   
   Flip 0
Wend
End

Function load()
   file = ReadFile("maps\file001.TMF")
      hm_dir$ = ReadLine(file)
      lm_dir$ = ReadLine(file)
      cm_dir$ = ReadLine(file)
      
      hm = LoadImage(hm_dir$)
      lm = LoadImage(lm_dir$)
      cm = LoadImage(cm_dir$)
      
      DrawImage(hm,0,0)
   CloseFile(file)
End Function