home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / DP / Programmation / PureBasic_Demo / Examples / Sources / File.pb < prev    next >
Text File  |  1999-10-10  |  587b  |  33 lines
  1. ;
  2. ; ********************************
  3. ;
  4. ; File example file for Pure Basic
  5. ;
  6. ;  © 1999 - Fantaisie Software -
  7. ;
  8. ; ********************************
  9. ;
  10. ;
  11.  
  12. InitFile(0)
  13.  
  14. If CreateFile(0,"ram:PureBasic.test")      ; Create a file and put some text in it.
  15.                                            ;
  16.   WriteString("Hello I'm Pure Basic")      ;
  17.   WriteString("What do you think of me ?") ;
  18.  
  19.   CloseFile(0)
  20. Endif
  21.  
  22.  
  23. If ReadFile(0,"ram:PureBasic.test")
  24.  
  25.   NPrint("Displaying string content:")
  26.  
  27.   NPrint(ReadString())
  28.   NPrint(ReadString())
  29.  
  30. Endif
  31.  
  32. End   ; File is automagically closed at the end.
  33.