~~~ #0 'DEVICE:OUTPUT const #1 'DEVICE:KEYBOARD const #2 'DEVICE:FLOATS const #4 'DEVICE:FILES const #3 'DEVICE:BLOCKS const #5 'DEVICE:CLOCK const #6 'DEVICE:RESERVED6 const #7 'DEVICE:SOCKET const #8 'DEVICE:UNIX const #9 'DEVICE:SCRIPTING const #10 'DEVICE:RNG const #11 'DEVICE:RESERVED11 const #12 'DEVICE:RESERVED12 const #13 'DEVICE:RESERVED13 const #14 'DEVICE:RESERVED14 const #15 'DEVICE:MALLOC const #1000 'DEVICE:IMAGE const #1234 'DEVICE:ERROR const #8000 'DEVICE:MULTICORE const #8100 'DEVICE:FFI const #8101 'DEVICE:UNSIGNED const 'interface/devices.retro s:dedup dup 'DEVICE:UNSIGNED d:set-source dup 'DEVICE:FFI d:set-source dup 'DEVICE:MULTICORE d:set-source dup 'DEVICE:ERROR d:set-source dup 'DEVICE:IMAGE d:set-source dup 'DEVICE:MALLOC d:set-source dup 'DEVICE:RESERVED14 d:set-source dup 'DEVICE:RESERVED13 d:set-source dup 'DEVICE:RESERVED12 d:set-source dup 'DEVICE:RESERVED11 d:set-source dup 'DEVICE:RNG d:set-source dup 'DEVICE:SCRIPTING d:set-source dup 'DEVICE:UNIX d:set-source dup 'DEVICE:SOCKET d:set-source dup 'DEVICE:RESERVED6 d:set-source dup 'DEVICE:CLOCK d:set-source dup 'DEVICE:BLOCKS d:set-source dup 'DEVICE:FILES d:set-source dup 'DEVICE:FLOATS d:set-source dup 'DEVICE:KEYBOARD d:set-source dup 'DEVICE:OUTPUT d:set-source drop ~~~