eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A35 begin

This commit is contained in:
mysticbbs 2013-05-20 05:35:10 -04:00
parent 1a40514261
commit 0c51254202
2 changed files with 3 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scripts/mpltest.mps
View File

@ -63,18 +63,6 @@ begin
end; end;
end; end;
procedure testgoto
begin
write('Testing GOTO statement... ')
goto start
:uphere
writeln('PASSED');
goto end
:start
goto uphere
:end
end;
procedure testnumbers; procedure testnumbers;
var var
num1, num1,
@ -470,7 +458,6 @@ begin
writeln (''); writeln ('');
testcase; testcase;
testgoto;
testnumbers; testnumbers;
testrecords; testrecords;
testprocedures; testprocedures;

6
scripts/rumors.mps
View File

@ -78,7 +78,7 @@ proc rumoradd {
fassign (f, justpath(progname) + "rumors.dat", 2) fassign (f, justpath(progname) + "rumors.dat", 2)
freset (f); freset (f);
if ioresult <> 0 frewrite(f); if ioresult != 0 frewrite(f);
while !feof(f) && datasize < 50 { while !feof(f) && datasize < 50 {
datasize = datasize + 1 datasize = datasize + 1
@ -110,7 +110,7 @@ proc rumorshow {
fassign (f, justpath(progname) + "rumors.dat", 2) fassign (f, justpath(progname) + "rumors.dat", 2)
freset (f) freset (f)
if ioresult <> 0 exit if ioresult != 0 exit
while !feof(f) && datasize < 50 { while !feof(f) && datasize < 50 {
datasize = datasize + 1 datasize = datasize + 1
@ -121,7 +121,7 @@ proc rumorshow {
datasize = 0 datasize = 0
freset(f) freset(f)
while datasize <> count { while datasize != count {
datasize = datasize + 1 datasize = datasize + 1
freadln(f, data(datasize)) freadln(f, data(datasize))
} }