{//-------------------------------------------------------------------------}\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
{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, 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
{Original Source: 1990 Scott Miller }\r
{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
{*/ }\r
{//-------------------------------------------------------------------------}\r
{$c-}\r
+uses crt, dos;\r
+\r
const\r
Max = 234;\r
\r
READ(S1,text1);\r
if list then\r
begin\r
- writeln(lst,'Discription # ',counter);\r
- writeln(lst,text1);\r
+ writeln('Discription # ',counter);\r
+ writeln(text1);\r
end\r
else\r
begin\r
\r
writeln;\r
writeln('Do you want to R)ead, W)rite or Q)uit?');\r
-read(kbd,answer);\r
+answer:=readkey;\r
if upcase(answer) = 'Q' then begin writeln('FINISHED');halt;end;\r
if upcase(answer) <> 'R' then {Write to 'SPECIAL'.}\r
begin\r
x:=wherey;if(x>17)then x:=18;for stop:=1 to 7 do writeln;gotoxy(1,x);\r
textcolor(11);\r
repeat\r
- read(trm,letter);\r
+ letter:=readkey;\r
if letter = ^h then\r
begin\r
if(wherex=1)then\r
begin\r
writeln;writeln;\r
writeln('To the S)creen or the P)rinter');\r
- read(kbd,answer);\r
+ answer:=readkey;\r
if(upcase(answer)='P')then List:=True else List:=False;\r
assign(S1,'S1');\r
reset(S1);\r