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;
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;

6
scripts/rumors.mps
View File

@ -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))
}