Scoring code is fully translated to C.

diff --git a/score.c b/score.c
index 3bf3ae04edd467a7b79fe7b6fa104ff76fde073b..f97cd46b0254652b9450a416b833fa6ad5f7def6 100644 (file)
--- a/score.c
+++ b/score.c
@@ -110,18 +110,16 @@ void score(long mode)
     SETPRM(3,game.turns,game.turns);
     RSPEAK(262);
     for (i=1; i<=CLSSES; i++) {
     SETPRM(3,game.turns,game.turns);
     RSPEAK(262);
     for (i=1; i<=CLSSES; i++) {

-       if(CVAL[i] >= score) goto L20210;
-    } /* end loop */
-    SPK=265;
-    goto L25000;
-
-L20210: SPEAK(CTEXT[i]);
-    SPK=264;
-    if(i >= CLSSES) goto L25000;
-    i=CVAL[i]+1-score;
-    SETPRM(1,i,i);
-    SPK=263;
-L25000: RSPEAK(SPK);
+       if(CVAL[i] >= score) {
+           SPEAK(CTEXT[i]);
+           i=CVAL[i]+1-score;
+           SETPRM(1,i,i);
+           RSPEAK(263);
+           exit(0);
+       }
+    }
+    RSPEAK(265);
+    RSPEAK(264);

     exit(0);
 
 }
     exit(0);
 
 }