FST 3.0 problem 
Author Message
 FST 3.0 problem

I have a sample program:

MODULE Test;

FROM WriteCard IMPORT WriteCardinal;
FROM Terminal IMPORT WriteLn;
FROM Strings IMPORT Length;

VAR
  j,
  k:    CARDINAL;
  s,
  t:    ARRAY [ 0 .. 255 ] OF CHAR;

BEGIN
  s := "foo";  t := "bar";
  WriteCardinal( Length( s ), 1 );
  WriteLn;
  WriteCardinal( Length( t ), 1 );
  WriteLn;
  WriteCardinal( Length( s ) - Length( t ), 1 );
  WriteLn;
  j := Length( s ) - Length( t );
  WriteCardinal( j, 1 );
  WriteLn;
  j := Length( s );
  k := Length( t );
  WriteCardinal( j - k, 1 );
  WriteLn;
END Test.

Which produces this output:

3
3
4947
4947
0

--  
uucp: uunet!m2xenix!puddle!3645!20!Jim.Long



Fri, 12 May 1995 19:05:26 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. FST 3.0 problem

2. FST 3.0 problem...

3. Problem installing FST 3.0

4. FST version 3.0

5. FST 3.0 OR 3.1 WANTED

6. FST 3.0 OR 3.1 WANTED!!!

7. FST 3.0 OR 3.1 WANTED!!!

8. FST 3.0

9. FST 3.0

10. FST 3.0

11. FST 3.0 DOS compiler ftpable

12. FST 3.0 DOS and LZEXE

 

 
Powered by phpBB® Forum Software