X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2FSPECIAL.PAS;h=97031c289f0dfa22a2c86a28a67bd982f470f90b;hb=c39dca3ccc60c8967191a68325d59ef3fd293bae;hp=cd8127152313d2df59e54c6fec5f4124da764b9e;hpb=d954bdd52e5461f890c60c3b3834d9224f52f838;p=supernova.git

diff --git a/src/SPECIAL.PAS b/src/SPECIAL.PAS
index cd81271..97031c2 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       }
@@ -14,14 +36,19 @@
 {See the GNU General Public License for more details.                       }
 {                                                                           }
 {You should have received a copy of the GNU General Public License          }
-{along with this program; if not, write to the Free Software                }
-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.}
+{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                                                                      }
 {                                                                           }
 {Original Source: 1990 Scott Miller                                         }
 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
 {*/                                                                         }
 {//-------------------------------------------------------------------------}
 {$c-}
+uses crt, dos;
+
 const
   Max = 234;
 
@@ -61,8 +88,8 @@ text1   : MaxLength;
         READ(S1,text1);
         if list then
           begin
-            writeln(lst,'Discription # ',counter);
-            writeln(lst,text1);
+            writeln('Discription # ',counter);
+            writeln(text1);
           end
         else
           begin
@@ -90,7 +117,7 @@ repeat          {Main loop.}
 
 writeln;
 writeln('Do you want to R)ead, W)rite or Q)uit?');
-read(kbd,answer);
+answer:=readkey;
 if upcase(answer) = 'Q' then begin writeln('FINISHED');halt;end;
 if upcase(answer) <> 'R' then       {Write to 'SPECIAL'.}
     begin
@@ -104,7 +131,7 @@ if upcase(answer) <> 'R' then       {Write to 'SPECIAL'.}
       x:=wherey;if(x>17)then x:=18;for stop:=1 to 7 do writeln;gotoxy(1,x);
       textcolor(11);
         repeat
-          read(trm,letter);
+          letter:=readkey;
           if letter = ^h then
             begin
               if(wherex=1)then
@@ -133,7 +160,7 @@ else                      {Read from 'SPECIAL'.}
   begin
     writeln;writeln;
     writeln('To the S)creen or the P)rinter');
-    read(kbd,answer);
+    answer:=readkey;
     if(upcase(answer)='P')then List:=True else List:=False;
     assign(S1,'S1');
     reset(S1);