2002-12-20 01:46

     $APPTYPE CONSOLE
     $TYPECHECK ON

     $INCLUDE "RapidQ.inc"
     $INCLUDE "QFiles.inc"
     DIM f AS LONG
     DECLARE SUB xxx

     CALL xxx
     END

     SUB xxx
      CALL fINITIALIZE: f=GetFileNum
      IF f<0 THEN PRINT "Could not get file number": EXIT SUB
      PRINT "fNum = ";STR$(f)
      fOPEN(f,"test.txt",2)
      fPOSITION(f,fSIZE(f))
      fWRITELINE(f,"This is a test")
      fCLOSE(f)
      f=GetFileNum
      IF f<0 THEN PRINT "Could not get file number": EXIT SUB
      PRINT "fNum = ";STR$(f)
      fOPEN(f,"test.txt",2)
      PRINT "fSIZE = ";STR$(fSIZE(f))
      PRINT fREADBINSTR(f,16)
      fCLOSE(f)
     END SUB

2002-12-20 01:46