Adapted to tell the user what language they were written in (because they're too...

diff --git a/examples/hilo.b b/examples/hilo.b
index 7493b97..bdde01e 100644 (file)
--- a/examples/hilo.b
+++ b/examples/hilo.b
@@ -2,7 +2,7 @@
 2 ' $State$
 3 ' $Revision$
 
-10 print "Hi there! Before we start, what is your name?"
+10 print "Hi there! I'm written in Basic. Before we start, what is your name?"
 20 input "> ", PlayerName$
 30 print
 40 print "Hello, "; PlayerName$; "!"

diff --git a/examples/hilo.c b/examples/hilo.c
index 21b4073..c5e5992 100644 (file)
--- a/examples/hilo.c
+++ b/examples/hilo.c
@@ -59,7 +59,7 @@ void game(void)
 
 int main(int argc, char* argv[])
 {
-       printf("\nHi there! Before we start, what is your name?\n");
+       printf("\nHi there! I'm written in C. Before we start, what is your name?\n");
        reads();
        strcpy(PlayerName, buffer);
        printf("\nHello, %s! ", PlayerName);

diff --git a/examples/hilo.mod b/examples/hilo.mod
index 7711f73..11f494c 100644 (file)
--- a/examples/hilo.mod
+++ b/examples/hilo.mod
@@ -66,7 +66,7 @@ VAR
        finished : BOOLEAN;
 BEGIN
        WriteLn;
-       WriteString("Hi there! Before we start, what is your name?");
+       WriteString("Hi there! I'm written in Modula-2. Before we start, what is your name?");
        WriteLn;
        reads;
        WriteLn;

diff --git a/examples/hilo.ocm b/examples/hilo.ocm
index 85bafaa..7af29a5 100644 (file)
--- a/examples/hilo.ocm
+++ b/examples/hilo.ocm
@@ -56,7 +56,7 @@ proc random(value range, var result) =
 proc getname =
   var seed, buffer[128]:
   seq
-    puts("*nHi there! Before we start, what is your name?*n")
+    puts("*nHi there! I'm written in Occam. Before we start, what is your name?*n")
     puts("> ")
     gets(buffer)
     

diff --git a/examples/hilo.p b/examples/hilo.p
index e316b46..b13bbd1 100644 (file)
--- a/examples/hilo.p
+++ b/examples/hilo.p
@@ -29,10 +29,12 @@ function random(range : integer) : integer;
                random := seed mod range;
        end;
 
-{ Pascal doesn't provide string input, so we interface to the _read() syscall
-  and do it manually. }
+{ Pascal doesn't provide string input, so we interface to the read() syscall
+  and do it manually. But... we can't interface to read() directly because
+  that conflicts with a Pascal keyword. Luckily there's a private function
+  uread() in the ACK Pascal library that we can use instead. }
   
-function _read(fd : integer; var buffer : char; count : integer) : integer;
+function uread(fd : integer; var buffer : char; count : integer) : integer;
        extern;
 
 function readchar : char;
@@ -42,7 +44,7 @@ function readchar : char;
                
        begin
                c := chr(0);
-               dummy := _read(0, c, 1);
+               dummy := uread(0, c, 1);
                readchar := c;
        end;
        
@@ -79,7 +81,7 @@ procedure getname;
                
        begin
                writeln;
-               writeln('Hi there! Before we start, what is your name?');
+               writeln('Hi there! I''m written in Pascal. Before we start, what is your name?');
                writeln;
                readstring(name, namelen);
                writeln;