1
5 3 + 7 2 + * .

1
2
3
4
5
6
int main(){
unsigned int a = 6;
int b = -3;
(a+b > 6) ? puts("> 6") :puts("<= 6");
return 0;
}

1
2
3
4
5
6
7
8
9
import com.jinvoke.win32.User32;
import static com.jinvoke.win32.WinConstants.*;
 
public class HelloWindows2 {
   public static void main(String[] args) {
      User32.MessageBox(0, 
                        "This MessageBox is a native Win32 MessageBox", 
                        "Hello Windows", MB_ICONINFORMATION|MB_OK);
        }
 ...

1
2
3
4
5
6
7
8
9
                        
                                 
                          
                         
                 
             
                           
                          
                                 
 ...

1
 

1
2
3
4
5
6
7
8
class sumadora
{
        public static void main( String args[] )
        {
                int n1=6;
                ìnt n2=4;
 
                System.out.println(n1*n2);
 ...

1
2
3
4
5
6
7
8
class sumadora
{
        public static void main( String args[] )
        {
                int n1=6;
                ìnt n2=4;
 
                System.out.println(n1*n2));
 ...

1
2
3
4
5
6
7
8
class sumadora
{
        public static void main( String args[] )
        {
                byte n1=6;
                byte n2=4;
 
                System.out.println(n1*n2));
 ...

1
dup -

1
2 dup - rot

1
2
3
4
8
8
+
.

1
2
3
4
5
6
7
8
9
( copy input to output until specified number is found )
( a buffer for input line )
create linebuf 80 chars allot
 
: copyloop
 
begin
  linebuf 78 accept ( - chars )
  dup 0 > if ( - chars )
 ...

1
2
3
4
5
6
7
8
9
( copy input to output until 42 is encountered in input )
create inbuf 80 chars allot ( a buffer for input line )
 
: copyloop
begin
." started" cr
inbuf 78 accept ( read input line, stack:number of inputted chars )
0 > if ( if there were any input, stack:empty )
  ." had input" cr
 ...

1
2
3
4
5
6
7
8
9
( copy input to output until 42 is encountered in input )
create inbuf 80 chars allot ( a buffer for input line )
 
: copyloop
begin
." started" cr
inbuf 78 accept ( read input line )
0 > if ( if there were any input )
  ." had input" cr
 ...

1
2
3
4
5
6
7
8
9
( copy input to output until 42 is encountered in input )
create inbuf 80 chars allot ( a buffer for input line )
 
: copyloop
begin
." started" cr
inbuf 78 accept ( read input line )
1 > if ( if there were any input )
  ." had input" cr
 ...

1
2
3
4
5
6
7
8
9
( copy input to output until 42 is encountered in input )
create inbuf 80 chars allot ( a buffer for input line )
 
: copyloop
begin
inbuf 78 accept ( read input line )
1 > if ( if there were any input )
  inbuf s>number? ( convert to number, and success flag )
  if ( was succesfull )
 ...

1
2
3
4
5
6
7
8
9
( copy input to output until 42 is encountered in input )
create inbuf 80 chars allot ( a buffer for input line )
 
: copyloop 
begin
inbuf 78 accept ( read input line )
1 > if ( if there were any input )
  inbuf s>number? (convert to number, and success flag )
  if ( was succesfull )
 ...

1
2
3
4
5
6
7
8
9
( copy input to output until 42 is encountered in input )
create inbuf 80 chars allot ( a buffer for input line )
 
begin
inbuf 78 accept ( read input line )
1 > if ( if there were any input )
  inbuf s>number? (convert to number, and success flag )
  if ( was succesfull )
    dup 42 <> ( was it the magic number )
 ...

1
words

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

1
: HELLO  ( -- )  CR ." Hello, world!" ; HELLO <cr>

1
1 1 + .

1
1 .

1
1 p

1
 

1
2
3
4
5
6
7
8
9
: jvm_class.getField_offset() { addr c-addr n -- off wior }
  addr BEGIN 
    dup jvm_class.getField_offset_wid()
    c-addr n rot 
    TRY 
      jvm_find_word false
      IFERROR
        drop \ wid
        2drop \ c-addr n 
 ...

1
2
3
4
5
6
7
8
9
: jvm_class.getField_offset() { addr c-addr n -- off wior }
  addr BEGIN 
    dup jvm_class.getField_offset_wid()
    c-addr n rot 
    TRY 
      jvm_find_word
      IFERROR
        2drop \ weird stack effect o_O
      ENDIF
 ...

1
2
3
4
5
6
7
8
9
: jvm_class.getField_offset2() { addr c-addr n -- off wior }
  addr BEGIN 
    dup jvm_class.getField_offset_wid()
    c-addr n rot 
    TRY 
      jvm_find_word
      invert IFERROR
        false WHILE
      ENDIF
 ...

1
http://pastebin.com/MAzpmPuP

1
4 5 + .