home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / Beispiele / International.mod < prev    next >
Encoding:
Text File  |  1992-10-10  |  460 b   |  28 lines
  1. MODULE International;
  2.  
  3. IMPORT io;
  4.  
  5. VAR
  6.   string: ARRAY 80 OF CHAR;
  7.  
  8. CONST
  9. (* $IF English *)
  10.   hallo = "Hello!";
  11.   nochmal = "once again?";
  12. (* $ELSE *)
  13.   hallo = "Hallihallo!";
  14.   nochmal = "nochmal?";
  15. (* $END *)
  16.  
  17. BEGIN
  18.   REPEAT
  19.     io.WriteString(hallo); io.WriteLn;
  20.     io.WriteString(nochmal); io.ReadString(string);
  21. (* $IFNOT English *)
  22.   UNTIL (string#"ja") & (string#"j");
  23. (* $ELSE *)
  24.   UNTIL (string#"yes") & (string#"y");
  25. (* $END; *)
  26. END International.
  27.  
  28.