[categories] [index] [all (552)] [latest]

1. Read and write files on printer

   /ListFiles {
       (*) { == } 256 string filenameforall
   } def
   
   /_s_fn_WriteFile {
       /f exch (w) file def
       f exch writestring
       f flushfile
       f closefile 
   } def
   
   /_fn_ReadFile_s_ {
       (r) file
       256 string
       readstring
       pop
   } def
   
   
   (123) (test.txt) _s_fn_WriteFile
   
   ListFiles
   

   (test.txt)

   (test.txt) _fn_ReadFile_s_ ==
   

   (123)

   (test2.txt) deletefile
   
   ListFiles
   

   -