{//-------------------------------------------------------------------------}\r
{/* }\r
+{Copyright (C) 2014 Jason Self <j@jxself.org> }\r
+{ }\r
+{This file is free software: you may copy, redistribute and/or modify it }\r
+{under the terms of the GNU Affero General Public License as published by }\r
+{the Free Software Foundation, either version 3 of the License, or (at your }\r
+{option) any later version. }\r
+{ }\r
+{This file is distributed in the hope that it will be useful, but WITHOUT }\r
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }\r
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}\r
+{for more details. }\r
+{ }\r
+{You should have received a copy of the GNU Affero General Public License }\r
+{along with this program; if not, see https://gnu.org/licenses or write to: }\r
+{ Free Software Foundation, Inc. }\r
+{ 51 Franklin Street, Fifth Floor }\r
+{ Boston, MA 02110-1301 }\r
+{ USA }\r
+{ }\r
+{This file incorporates work covered by the following copyright and }\r
+{permission notice: }\r
+{ }\r
{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }\r
{ }\r
-{This file is part of Supernova. Supernova is free software; you can }\r
-{redistribute it and/or modify it under the terms of the GNU General Public }\r
-{License as published by the Free Software Foundation; either version 2 }\r
-{of the License, or (at your option) any later version. }\r
+{This file is part of Beyond The Titanic. Beyond The Titanic is free }\r
+{software; you can redistribute it and/or modify it under the terms of the }\r
+{GNU General Public License as published by the Free Software Foundation; }\r
+{either version 3 of the License, or (at your option) any later version. }\r
{ }\r
-{This program is distributed in the hope that it will be useful, }\r
-{but WITHOUT ANY WARRANTY; without even the implied warranty of }\r
-{MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }\r
+{This program is distributed in the hope that it will be useful, but WITHOUT}\r
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }\r
+{FITNESS FOR A PARTICULAR PURPOSE. }\r
{ }\r
{See the GNU General Public License for more details. }\r
{ }\r
{You should have received a copy of the GNU General Public License }\r
-{along with this program; if not, write to the Free Software }\r
-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.}\r
+{along with this program; if not, write to: }\r
+{ Free Software Foundation, Inc. }\r
+{ 51 Franklin Street, Fifth Floor }\r
+{ Boston, MA 02110-1301 }\r
+{ USA }\r
{ }\r
{Original Source: 1990 Scott Miller }\r
{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
\r
procedure RR(RoomNum : integer);\r
begin FlagSA:='s';\r
- seek(rooms1,RoomNum);seek(rooms2,RoomNum);\r
- READ(rooms1,text1);READ(rooms2,text2);\r
- writeln(text1,text2);\r
+ reset(rooms1);\r
+ seek(rooms1,RoomNum);\r
+ reset(rooms2);\r
+ seek(rooms2,RoomNum);\r
+ READ(rooms1,text1);\r
+ READ(rooms2,text2);\r
+ {window(1,1,25,80);}\r
+ writeln(text1,text2);\r
end; {of RoomRead}\r
\r
\r
procedure RS(RoomNum : integer);\r
begin\r
+{ writeln('RS'); }\r
FlagSA:='s';\r
- seek(Special1,RoomNum);seek(Special2,RoomNum);\r
- READ(Special1,text1);READ(Special2,text2);\r
+ seek(Special1,RoomNum);\r
+ seek(Special2,RoomNum);\r
+ READ(Special1,text1);\r
+ READ(Special2,text2);\r
writeln(text1,text2);\r
end; {of SpecialRead}\r
\r
end; {of Check}\r
\r
{***************************** END OF ADPARSER ******************************}\r
-\1a
\ No newline at end of file