{//-------------------------------------------------------------------------}\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 3 }\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
'special1' and 'special2'. If a description exceeds 240 letters (Max),\r
then the file 'special2' is used. Otherwise 'special2' = ''.}\r
{This program has the line edit feature!}\r
+\r
+uses Crt, Printer;\r
+\r
const\r
Max = 240;\r
\r
highvideo;\r
end;\r
end;\r
- close(special1); close(special2);\r
+\r
write('The file contains ',filesize(special1),' special responces.');\r
+ close(special1); close(special2);\r
end; {End of Diskread.}\r
\r
procedure Beep;\r
\r
writeln;\r
writeln('Do you want to R)ead or W)rite?');\r
-read(kbd,answer);\r
+readln(answer);\r
if upcase(answer) <> 'R' then {Write to 'Special' files.}\r
begin\r
writeln;writeln;\r
' ''\''-Ends string.');\r
lowvideo;\r
repeat\r
- read(trm,letter);\r
+ letter := ReadKey;\r
+ write(letter);\r
if letter = ^h then\r
begin\r
- write(^h,' ',^h);\r
- delete(text1,length(text1),2);\r
+ write(' ',^h);\r
+ delete(text1,length(text1),1);\r
end;\r
beep;\r
if (letter <> '\') and (letter <> ^h) then text1:=text1+letter\r
writeln('String #1 is full! Now writing to string #2.',^g);\r
lowvideo;\r
repeat\r
- read(trm,letter);\r
+ letter := ReadKey;\r
+ write(letter);\r
if letter = ^h then\r
begin\r
- write(^h,' ',^h);\r
- delete(text2,length(text2),2);\r
+ write(' ',^h);\r
+ delete(text2,length(text2),1);\r
end;\r
beep;\r
if (letter <> '\') and (letter <> ^h) then text2:=text2+letter\r
begin\r
writeln;writeln;\r
writeln('To the S)creen or the P)rinter?');\r
- read(kbd,answer);\r
+ readln(answer);\r
if(upcase(answer)='P')then List:=True else List:=False;\r
assign(special1,'special1');\r
reset(special1);\r
writeln('Filesize = ',filesize(special1),\r
' (From 0 to ',filesize(special1)-1,')');\r
- close(special1);\r
+\r
writeln('Enter starting position:');\r
readln(start);\r
if(start > filesize(special1)-5)then stop:=(filesize(special1)-1) else\r
readln(stop);\r
end;\r
Diskread(start,stop);\r
+\r
end; {End of else clause.}\r
writeln;writeln('Another special responce? Y)es or N)o');\r
-read(kbd,answer);\r
+readln(answer);\r
until upcase(answer) = 'N'; {End of Main loop.}\r
writeln; writeln(^g,'You are now out of the program.')\r
END.\r
-\r
-\r
-\1a\r