src/CREATE.PAS

   1 {//-------------------------------------------------------------------------}\r
   2 {/*                                                                         }\r
   3 {Copyright (C) 1990, 2009 - Apogee Software, Ltd.                           }\r
   4 {                                                                           }\r
   5 {This file is part of Supernova.  Supernova is free software; you can       }\r
   6 {redistribute it and/or modify it under the terms of the GNU General Public }\r
   7 {License as published by the Free Software Foundation; either version 3     }\r
   8 {of the License, or (at your option) any later version.                     }\r
   9 {                                                                           }\r
  10 {This program is distributed in the hope that it will be useful,            }\r
  11 {but WITHOUT ANY WARRANTY; without even the implied warranty of             }\r
  12 {MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                       }\r
  13 {                                                                           }\r
  14 {See the GNU General Public License for more details.                       }\r
  15 {                                                                           }\r
  16 {You should have received a copy of the GNU General Public License          }\r
  17 {along with this program; if not, see https://gnu.org/licenses or write to: }\r
  18 {  Free Software Foundation, Inc.                                           }\r
  19 {  51 Franklin Street, Fifth Floor                                          }\r
  20 {  Boston, MA 02110-1301                                                    }\r
  21 {  USA                                                                      }\r
  22 {                                                                           }\r
  23 {Original Source: 1990 Scott Miller                                         }\r
  24 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
  25 {*/                                                                         }\r
  26 {//-------------------------------------------------------------------------}\r
  27 const max = 228;\r
  28 \r
  29 type\r
  30    Str228 = string[228];\r
  31 \r
  32 var\r
  33    r1,r2  : file of Str228;\r
  34 \r
  35 BEGIN\r
  36 assign(r1,'S1');\r
  37 {assign(r2,'R2');}\r
  38 rewrite(r1);\r
  39 {rewrite(r2);}\r
  40 close(r1);\r
  41 {close(r2);}\r
  42 writeln('File(s) Created!');\r
  43 END.\1a\r