From 0c512542028fbc9b06de3cb613fa75395016e08a Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 20 May 2013 05:35:10 -0400
Subject: [PATCH] A35 begin

---
 scripts/mpltest.mps | 13 -------------
 scripts/rumors.mps  |  6 +++---
 2 files changed, 3 insertions(+), 16 deletions(-)

diff --git a/scripts/mpltest.mps b/scripts/mpltest.mps
index 185368c..74e2e2e 100644
--- a/scripts/mpltest.mps
+++ b/scripts/mpltest.mps
@@ -63,18 +63,6 @@ begin
   end;
 end;
 
-procedure testgoto
-begin
-  write('Testing GOTO statement... ')
-  goto start
-:uphere
-  writeln('PASSED');
-  goto end
-:start
-  goto uphere
-:end
-end;
-
 procedure testnumbers;
 var
   num1,
@@ -470,7 +458,6 @@ begin
   writeln ('');
 
   testcase;
-  testgoto;
   testnumbers;
   testrecords;
   testprocedures;
diff --git a/scripts/rumors.mps b/scripts/rumors.mps
index 60095ff..28831c9 100644
--- a/scripts/rumors.mps
+++ b/scripts/rumors.mps
@@ -78,7 +78,7 @@ proc rumoradd {
   fassign (f, justpath(progname) + "rumors.dat", 2)
   freset  (f);
 
-  if ioresult <> 0 frewrite(f);
+  if ioresult != 0 frewrite(f);
 
   while !feof(f) && datasize < 50 {
     datasize = datasize + 1
@@ -110,7 +110,7 @@ proc rumorshow {
   fassign (f, justpath(progname) + "rumors.dat", 2)
   freset (f)
 
-  if ioresult <> 0 exit
+  if ioresult != 0 exit
 
   while !feof(f) && datasize < 50 {
     datasize = datasize + 1
@@ -121,7 +121,7 @@ proc rumorshow {
   datasize = 0
 
   freset(f)
-  while datasize <> count {
+  while datasize != count {
     datasize = datasize + 1
     freadln(f, data(datasize))
   }