fork download
copy 
  1. HEX
  2. : .POUNDS \ u --
  3.    [CHAR] £ EMIT 
  4.    S>D <# # # [CHAR] . HOLD #S #> TYPE
  5. ; 
  6.  
  7. DECIMAL
  8. 5050 .POUNDS
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
�50.50
https://ideone.com/tJIFGy
language:
Forth (gforth 0.7.3)
created:
13 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!