FileStream fileIn: 'users:[alistair.smalltalk.lib]vmsdynamicfunction.st' !

| dynfun |

dynfun := VmsDynamicFunction new.
dynfun addLibrary: 'VAXCRTL'.
dynfun defineExternFunc: 'printf'
     withSelectorArgs: 'printf: aString value: aValue'
     forClass: Object class
     returning: #int
     args: #(string int).
!

!Object methodsFor: 'printing'!

printNl
    self print.
    Object printf: '%c' value: 10.
    Character nl print
!!

'SmallTalk Emacs Mode 1.00-00' printNl !