1
2
3
4
5
6
7
8
9
: place over over >r >r char+ swap chars cmove r> r> c! ;
 
create str1 32 chars allot 
create str2 32 chars allot 
create str3 32 chars allot 
create str4 32 chars allot 
 
: test
 
 ...

1
2
3
4
5
6
7
8
9
: place over over >r >r char+ swap chars cmove r> r> c! ;
 
create str1 32 chars allot 
create str2 32 chars allot 
create str3 32 chars allot 
create str4 32 chars allot 
 
: test
 
 ...

1
2
3
4
5
6
7
: saccept 1- swap 1+ swap accept ;
 
  64 constant #texto
  create texto #texto chars allot
 
  texto #texto saccept
  texto 1+ swap type cr

1
:HELLO ."Hello, world!" CR;

1
2
3
4
5
:STAR [CHAR] * EMIT;
:STARS 0 DO STAR LOOP CR;
:SQUARE     DUP 0 DO DUP STARS LOOP DROP ;
:TRIANGLE           1 DO I STARS LOOP ;
:TOWER ( n -- )   DUP TRIANGLE SQUARE ;

1
5 6 4 6 * * + .

1
5 6 4 6 * * +

1
5 2 + .

1
2
3
4
5
6
7
8
9
C     Program to get the CC#5 Coordinates
      Program CC5
C
      IMPLICIT REAL*8 (e-f,k-o)
C
      CALL Get_Coords (North,East)
      WRITE (*,1000) North, East
1000  FORMAT ('Cache coordinates: N50',F7.3,', E014',F7.3)
C
 ...

1
2 2 + dup . 3 + .

1
10 1 do i . loop

1
2
: test 123 . ;
test

1
2
: test 123 . ;
test

1
2
: test 123 . ;
test

1
2
: test 123 . ;
test

1
2
USING: math prettyprint ;
40 2 + .

1
 

1
10 24 0 [do] 2 * 10 + [loop] .

1
2
3
4
: CIAG
   10 2 DO
     I . 2
   +LOOP ;

1
2
3
( POTEGA 3; a -- b )
 : POW DUP DUP * * ;
 5 POW

1
2 3 + .

1
in-dictionary?

1
vlist

1
2
3
4
1
3
+
.

1
2
3
4
5
6
7
8
9
include<stdio.h>
#include<conio.h>
int main()
 
 {
  if(result >=45)
  printf("PASS\n");
 
  else if(result >=75)
 ...

1
2
3
4
5
6
7
8
9
include<stdio.h>
#include<conio.h>
int main()
 
 {
  if(result >=45)
  printf("PASS\n");
 
  else if(result >=75)
 ...

1
2
3
4
5
6
7
8
#include<stdio.h>
int main()
 
 {
  int result;
 
  printf("ENTER YOR RESULT");
  scanf("%d",&result);
 ...

1
2
3
4
5
6
7
8
#include<stdio.h>
int main()
 
 {
  int result;
 
  printf("ENTER YOR RESULT");
  scanf("%d",&result);
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
 int main()
 
 {
  if(result >=45)
  printf("PASS\n");
 
  else
  printf("FAIL\n");
 ...

1
2
3
4
5
6
7
8
9
#include<stdio.h>
 int main()
 
 {
  if(result >=45)
  printf("PASS\n");
 
  else
  printf("FAIL\n");
 ...