YOU SAID:
Random.forth x := (Random.item \\ (Field.upper - Field.lower + 1)) + Field.lower Random.forth y := (Random.item \\ (Field.upper - Field.lower + 1)) + Field.lower IO.put_integer (x) IO.put_string (" ") IO.put_integer (y) IO.put_new_line
INTO JAPANESE
Random.forth x:=(Random.item \\(Field.upper-Field.lower + 1))+ Field.lower Random.forth y:=(Random.item \\(Field.upper-Field.lower + 1 ))+ Field.lower IO.put_integer(x)IO.put_string( "")IO.put_integer(y)IO.put_new_line
BACK INTO ENGLISH
Random.forth x: = (Random.item \\ (Field.upper-Field.lower + 1)) + Field.lower Random.forth y: = (Random.item \\ (Field.upper-Field.lower + 1 )) + Field.lower IO.put_integer (x) IO.put_string ("") IO.put_integer (y) IO.put_new_line
INTO JAPANESE
Random.forth x:=(Random.item \\(Field.upper-Field.lower + 1))+ Field.lower Random.forth y:=(Random.item \\(Field.upper-Field.lower + 1 ))+ Field.lower IO.put_integer(x)IO.put_string( "")IO.put_integer(y)IO.put_new_line
BACK INTO ENGLISH
Random.forth x: = (Random.item \\ (Field.upper-Field.lower + 1)) + Field.lower Random.forth y: = (Random.item \\ (Field.upper-Field.lower + 1 )) + Field.lower IO.put_integer (x) IO.put_string ("") IO.put_integer (y) IO.put_new_line
You've done this before, haven't you.