aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--src/ROOMRITE.PAS89
-rw-r--r--src/SPECIAL.PAS54
2 files changed, 106 insertions, 37 deletions
diff --git a/src/ROOMRITE.PAS b/src/ROOMRITE.PAS
index ebf64b7..df00970 100644
--- a/src/ROOMRITE.PAS
+++ b/src/ROOMRITE.PAS
@@ -1,5 +1,38 @@
{//-------------------------------------------------------------------------}
{/* }
+{Copyright (C) 2014 Jason Self <j@jxself.org> }
+{ }
+{This file is free software: you may copy, redistribute and/or modify it }
+{under the terms of the GNU Affero General Public License as published by }
+{the Free Software Foundation, either version 3 of the License, or (at your }
+{option) any later version. }
+{ }
+{This file is distributed in the hope that it will be useful, but WITHOUT }
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
+{for more details. }
+{ }
+{You should have received a copy of the GNU Affero General Public License }
+{along with this program; if not, see https://gnu.org/licenses or write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{This file incorporates work covered by the following copyright and }
+{permission notice: }
+{ }
+{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
+{ }
+{This file is part of Beyond The Titanic. Beyond The Titanic is free }
+{software; you can redistribute it and/or modify it under the terms of the }
+{GNU General Public License as published by the Free Software Foundation; }
+{either version 3 of the License, or (at your option) any later version. }
+{ }
+{This program is distributed in the hope that it will be useful, but WITHOUT}
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. }
+{ }
{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
{ }
{This file is part of Supernova. Supernova is free software; you can }
@@ -28,6 +61,9 @@ program
'rooms2'. If a description exceeds 240 letters (Max), then the file
'rooms2' is used. Otherwise 'rooms2' = ''.}
{This program has the line edit feature!}
+
+uses Crt, Printer;
+
const
Max = 240;
@@ -47,7 +83,7 @@ procedure Diskwrite(text1,text2: Descriptionlength; pointer: integer);
begin
seek(rooms1,pointer); seek(rooms2,pointer);
WRITE(rooms1,text1); WRITE(rooms2,text2);
- writeln('Room decription ',pointer,
+ writeln('Room description ',pointer,
' is written! Size = ',filesize(rooms1));
close(rooms1); close(rooms2);
end; {End of Diskwrite.}
@@ -57,16 +93,19 @@ var
counter : integer;
text1, text2 : descriptionlength;
begin
- assign(rooms1,'rooms1');assign(rooms2,'rooms2');
- reset(rooms1); reset(rooms2);
- seek(rooms1,start); seek(rooms2,start);
+ assign(rooms1,'ROOMS1');
+ assign(rooms2,'ROOMS2');
+ reset(rooms1);
+ reset(rooms2);
+ seek(rooms1,start);
+ seek(rooms2,start);
for counter:= start to stop do
begin
highvideo;
READ(rooms1,text1); READ(rooms2,text2);
if list then
begin
- writeln(lst,'Discription # ',counter);
+ writeln(lst,'Description # ',counter);
writeln(lst,text1,text2);
end
else
@@ -77,8 +116,8 @@ text1, text2 : descriptionlength;
highvideo;
end;
end;
+ write('The file contains ',FileSize(rooms1),' room descriptions.');
close(rooms1); close(rooms2);
- write('The file contains ',filesize(rooms1),' room descriptions.');
end; {End of Diskread.}
procedure Beep;
@@ -93,11 +132,11 @@ repeat {Main loop.}
writeln;
writeln('Do you want to R)ead or W)rite?');
-read(kbd,answer);
+readln(answer);
if upcase(answer) <> 'R' then {Write to 'Rooms'.}
begin
writeln;writeln;
- assign(rooms1,'rooms1'); assign(rooms2,'rooms2');
+ assign(rooms1,'ROOMS1'); assign(rooms2,'ROOMS2');
writeln('Now RESETing room files.');
RESET(rooms1); RESET(rooms2);
writeln;
@@ -105,14 +144,16 @@ if upcase(answer) <> 'R' then {Write to 'Rooms'.}
' ''\''-Ends string.');
lowvideo;
repeat
- read(trm,letter);
+ letter := ReadKey;
+ write(letter);
if letter = ^h then
begin
- write(^h,' ',^h);
- delete(text1,length(text1),2);
+ write(' ', ^h);
+ delete(text1,length(text1),1);
+
end;
beep;
- if (letter <> '\') and (letter <> ^h) then text1:=text1+letter
+ if (letter <> '\') and (letter <> ^h) then text1:=text1+letter;
until (length(text1)=Max) or (letter='\');
writeln;
if letter = '\' then
@@ -128,11 +169,12 @@ if upcase(answer) <> 'R' then {Write to 'Rooms'.}
writeln('String #1 is full! Now writing to string #2.',^g);
lowvideo;
repeat
- read(trm,letter);
+ letter := ReadKey;
+ write(letter);
if letter = ^h then
begin
- write(^h,' ',^h);
- delete(text2,length(text2),2);
+ write(' ',^h);
+ delete(text2,length(text2),1);
end;
beep;
if (letter <> '\') and (letter <> ^h) then text2:=text2+letter
@@ -150,15 +192,18 @@ else {Read from 'Rooms'.}
begin
writeln;writeln;
writeln('To the S)creen or the P)rinter');
- read(kbd,answer);
+ readln(answer);
if(upcase(answer)='P')then List:=True else List:=False;
- assign(rooms1,'rooms1');
+ assign(rooms1,'ROOMS1');
reset(rooms1);
writeln('Filesize = ',filesize(rooms1),
' (From 0 to ',filesize(rooms1)-1,')');
- close(rooms1);
+ // close(rooms1);
writeln('Enter starting position:');
readln(start);
+ writeln('Evo filesize rooms1: ');
+ writeln(filesize(rooms1));
+
if(start > filesize(rooms1)-5)then stop:=(filesize(rooms1)-1) else
begin
writeln('Enter final position:');
@@ -166,11 +211,9 @@ else {Read from 'Rooms'.}
end;
Diskread(start,stop);
end; {End of else clause.}
-writeln;writeln('Another room description? Y)es or N)o');
-read(kbd,answer);
+writeln;
+writeln('Another room description? Y)es or N)o');
+read(answer);
until upcase(answer) = 'N'; {End of Main loop.}
writeln; writeln(^g,'You are now out of the program.')
END.
-
-
-
diff --git a/src/SPECIAL.PAS b/src/SPECIAL.PAS
index 4c8b34d..3ac4066 100644
--- a/src/SPECIAL.PAS
+++ b/src/SPECIAL.PAS
@@ -1,5 +1,27 @@
{//-------------------------------------------------------------------------}
{/* }
+{Copyright (C) 2014 Jason Self <j@jxself.org> }
+{ }
+{This file is free software: you may copy, redistribute and/or modify it }
+{under the terms of the GNU Affero General Public License as published by }
+{the Free Software Foundation, either version 3 of the License, or (at your }
+{option) any later version. }
+{ }
+{This file is distributed in the hope that it will be useful, but WITHOUT }
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
+{for more details. }
+{ }
+{You should have received a copy of the GNU Affero General Public License }
+{along with this program; if not, see https://gnu.org/licenses or write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{This file incorporates work covered by the following copyright and }
+{permission notice: }
+{ }
{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
{ }
{This file is part of Supernova. Supernova is free software; you can }
@@ -28,6 +50,9 @@ program
'special1' and 'special2'. If a description exceeds 240 letters (Max),
then the file 'special2' is used. Otherwise 'special2' = ''.}
{This program has the line edit feature!}
+
+uses Crt, Printer;
+
const
Max = 240;
@@ -77,8 +102,9 @@ text1, text2 : descriptionlength;
highvideo;
end;
end;
- close(special1); close(special2);
+
write('The file contains ',filesize(special1),' special responces.');
+ close(special1); close(special2);
end; {End of Diskread.}
procedure Beep;
@@ -93,7 +119,7 @@ repeat {Main loop.}
writeln;
writeln('Do you want to R)ead or W)rite?');
-read(kbd,answer);
+readln(answer);
if upcase(answer) <> 'R' then {Write to 'Special' files.}
begin
writeln;writeln;
@@ -105,11 +131,12 @@ if upcase(answer) <> 'R' then {Write to 'Special' files.}
' ''\''-Ends string.');
lowvideo;
repeat
- read(trm,letter);
+ letter := ReadKey;
+ write(letter);
if letter = ^h then
begin
- write(^h,' ',^h);
- delete(text1,length(text1),2);
+ write(' ',^h);
+ delete(text1,length(text1),1);
end;
beep;
if (letter <> '\') and (letter <> ^h) then text1:=text1+letter
@@ -128,11 +155,12 @@ if upcase(answer) <> 'R' then {Write to 'Special' files.}
writeln('String #1 is full! Now writing to string #2.',^g);
lowvideo;
repeat
- read(trm,letter);
+ letter := ReadKey;
+ write(letter);
if letter = ^h then
begin
- write(^h,' ',^h);
- delete(text2,length(text2),2);
+ write(' ',^h);
+ delete(text2,length(text2),1);
end;
beep;
if (letter <> '\') and (letter <> ^h) then text2:=text2+letter
@@ -150,13 +178,13 @@ else {Read from 'Rooms'.}
begin
writeln;writeln;
writeln('To the S)creen or the P)rinter?');
- read(kbd,answer);
+ readln(answer);
if(upcase(answer)='P')then List:=True else List:=False;
assign(special1,'special1');
reset(special1);
writeln('Filesize = ',filesize(special1),
' (From 0 to ',filesize(special1)-1,')');
- close(special1);
+
writeln('Enter starting position:');
readln(start);
if(start > filesize(special1)-5)then stop:=(filesize(special1)-1) else
@@ -165,12 +193,10 @@ else {Read from 'Rooms'.}
readln(stop);
end;
Diskread(start,stop);
+
end; {End of else clause.}
writeln;writeln('Another special responce? Y)es or N)o');
-read(kbd,answer);
+readln(answer);
until upcase(answer) = 'N'; {End of Main loop.}
writeln; writeln(^g,'You are now out of the program.')
END.
-
-
-
bgstack15