fork download 
  1. : q
  2.    begin source drop >in @ + c@ bl <> until
  3.    source drop >in @ + c@
  4.    1 >in +!
  5.    parse
  6.    state @ if postpone sliteral then
  7. ; immediate
  8.  
  9. q "это строка" type cr
  10. q 'это строка' type cr
  11. q *и это строка* type cr
  12.  
  13. : test  q /в режиме компиляции тоже работает/ type cr ;
  14.  
  15. test
Success #stdin #stdout 0s 22520KB
comments (?)
stdin 
Standard input is empty
stdout 
это строка
это строка
и это строка
в режиме компиляции тоже работает
https://ideone.com/NcO3b6
language:
Forth (gforth 0.7.3)
created:
7 years 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!