Modifying Beyond The Titanic to compile with the Free Pascal compiler and run on...

[beyond-the-titanic.git] / src / ADPARSER.PAS

diff --git a/src/ADPARSER.PAS b/src/ADPARSER.PAS
index 1def3ca2853dff80d66f98b46a8def14a50e9bba..863dca1cdfcf1d4d1c9788dc13856ce86b663d5b 100644 (file)
--- a/src/ADPARSER.PAS
+++ b/src/ADPARSER.PAS
@@ -1,21 +1,46 @@
 {//-------------------------------------------------------------------------}\r
 {/*                                                                         }\r
 {//-------------------------------------------------------------------------}\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
 {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
 {                                                                           }\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
 {                                                                           }\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
 {Original Source: 1990 Scott Miller                                         }\r
 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r


@@ -31,17 +56,25 @@
 \r
 procedure  RR(RoomNum : integer);\r
     begin FlagSA:='s';\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
     end; {of RoomRead}\r
 \r
 \r
 procedure  RS(RoomNum : integer);\r
    begin\r

+{   writeln('RS');   }\r

      FlagSA:='s';\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
      writeln(text1,text2);\r
    end;  {of SpecialRead}\r
 \r


@@ -356,4 +389,3 @@ procedure Check(var SepWord : Str14);
   end;  {of Check}\r
 \r
 {***************************** END OF ADPARSER ******************************}\r
   end;  {of Check}\r
 \r
 {***************************** END OF ADPARSER ******************************}\r

-\1a
\ No newline at end of file