Var Count T T2 TestFile

StandardIO
TestFile = 'f:\tmpfiles\' + Str(NovConnection) + '.bak'

loop 10000
   Test
   if LoopIndex mod 10 = 0
      writeln LoopIndex
      if KbdReady
         T = ReadKey
         exitmenu
      endif
   endif
endloop


Procedure Test
   Count = Count + 1
   ReadTextFile 'f:\public\nsk\level1.mnu' T
   WriteTextFile TestFile T
   ReadTextFile TestFile T2
   Loop T
      if LoopVal <> T2[LoopIndex]
         Writeln 'Error at ' Count ' Line ' LoopIndex
         Writeln FileSize('f:\public\nsk\level1.mnu') ' ' FileSize(TestFile)
         Writeln '[' LoopVal ']'
         Writeln '[' T2[LoopIndex] ']'
         ExitMenu
      endif
   EndLoop
   DelFile TestFile
EndProc