pngData$=CVS( input$(pos(","=input$)+1), "Base64:ASCII")open purge (hfn,isz=-1) "somename.png"write record (lfo) pngData$close (lfo)