File CONV17A.PAS:
  write('Telegard Conversion for '+ver1+' ^P¯¯¯¯¯¯¯¯¯^P '+ver);
  writeln('This program is provided to add/modify/create files used by Telegard to');
    write('Thank you for choosing Telegard!');
File CONV17A9.PAS:
  write(' Telegard Conversion for '+ver1+' ^P¯¯¯¯¯¯¯¯¯^P '+ver);
  writeln('This program is provided to add/modify/create files used by Telegard to');
    write('Thank you for choosing Telegard!');
File CONV18A.PAS:
  write(' Telegard Conversion for '+ver1+' ^P¯¯¯¯¯¯¯¯¯^P '+ver);
  writeln('This program is provided to add/modify/create files used by Telegard to');
    write('Thank you for choosing Telegard!');
File FILE5.PAS:
    print('Telegard(R) Mini-DOS(R)  Version '+ver);
    print('            (C)Copyright 1988,89,90 The Telegard Team');
        print('Licensed for internal usage in Telegard v'+ver);
        print(s+' - Telegard archive conversion command.');
        print('Telegard will convert from the one archive format to the other.');
        print(s+' - Telegard archive de-compression command.');
        print('configured into Telegard via System Configuration.');
        print(s+' - Telegard archive compression command.');
        print('configured into Telegard via System Configuration.');
  print('Type "EXIT" to return to Telegard.');
File INIT.PAS:
(*>  Telegard Bulletin Board System - Copyright 1988,89,90 by               <*)
    bbsname:='Telegard BBS';
                       {* A-32767.1 is the "Greetings from Telegard" message *}
    note[1]:='Enter your Telegard NAME or USER NUMBER';
    waiting:=1;         {* A-32767.1 -- "Greetings from Telegard" message *}
    title:='Greetings, new Telegard SysOp!!';
      as:='The Telegard Team';
      real:='The Telegard Team';
      alias:='The Telegard Team';
    name:='The Telegard Team';
    citystate:='Telegard Development HQ, MI';
    msg:='Telegard system initialized on '+date+' at '+time+'.';
  ttl('Creating Telegard directory paths');
  ttl('Creating Telegard data files');
  write('Telegard v'+ver+' Initialization Utility - Copyright 1988,89,90 by');
    writeln('Telegard has already been initialized!');
  writeln('that will be used by Telegard.  Each directory will be created');
  writeln('GFILES pathname.  This is the directory where the Telegard data');
  writeln('files and miscellaneous Telegard text files will be located.');
  writeln('files (*.BRD, *.MIX, *.TRE) used by Telegard for both private');
  writeln('MENUS pathname.  This is the directory where the Telegard menu');
  writeln('TFILES pathname.  This is the directory where the Telegard');
  writeln('AFILES pathname.  This is the directory where the Telegard');
  writeln('TRAP pathname.  This is the directory where Telegard will');
  writeln('TEMP pathname.  Telegard uses this directory to convert between');
  writeln('SWAP pathname.  This is the directory where Telegard''s swap');
  star('Telegard BBS installed and initialized successfully!');
  star('Thanks for trying Telegard!');
File INIT16D3.PAS:
    bbsname:='Telegard BBS';
                       {* A-32767.1 is the "Greetings from Telegard" message *}
    note[1]:='Enter your Telegard NAME or USER NUMBER';
    waiting:=1;         {* A-32767.1 -- "Greetings from Telegard" message *}
    title:='Greetings from Telegard';
    msg:='Telegard files initialized on '+date+' '+time+'.';
  ttl('Creating Telegard directory paths');
  ttl('Creating Telegard data files');
  clreol; write(' Initialization Utility for Telegard version '+ver);
    writeln('Telegard has already been initialized!');
  writeln('that will be used by Telegard.  Each directory will be created');
  writeln('GFILES pathname.  This is the directory where the Telegard data');
  writeln('files and miscellaneous Telegard text files will be located.');
  writeln('MSGS pathname.  This is the directory where the Telegard message');
  writeln('MENUS pathname.  This is the directory where the Telegard menu');
  writeln('TFILES pathname.  This is the directory where the Telegard');
  star('Telegard BBS installed and initialized successfully!');
  star('Thanks for trying Telegard!');
File INIT16E1.PAS:
    bbsname:='Telegard BBS';
                       {* A-32767.1 is the "Greetings from Telegard" message *}
    note[1]:='Enter your Telegard NAME or USER NUMBER';
    waiting:=1;         {* A-32767.1 -- "Greetings from Telegard" message *}
    title:='Greetings from Telegard';
    description:='A NEW Telegard Event';
    msg:='Telegard files initialized on '+date+' '+time+'.';
  ttl('Creating Telegard directory paths');
  ttl('Creating Telegard data files');
  clreol; write(' Initialization Utility for Telegard version '+ver);
    writeln('Telegard has already been initialized!');
  writeln('that will be used by Telegard.  Each directory will be created');
  writeln('GFILES pathname.  This is the directory where the Telegard data');
  writeln('files and miscellaneous Telegard text files will be located.');
  writeln('directory paths used by Telegard, including private mail (EMAIL).');
  writeln('Located in these paths are the text of the Telegard messages.');
  writeln('MENUS pathname.  This is the directory where the Telegard menu');
  writeln('TFILES pathname.  This is the directory where the Telegard');
  writeln('AFILES pathname.  This is the directory where the Telegard');
  writeln('TRAP pathname.  This is the directory where Telegard will');
  writeln('TEMP pathname.  Telegard uses this directory to convert between');
  star('Telegard BBS installed and initialized successfully!');
  star('Thanks for trying Telegard!');
File INITP.PAS:
    description:='Telegard Nightly Events';
      description:='A NEW Telegard Event';
File MAIL1.PAS:
        s:=#3+cstr(tear_color)+'--- Telegard v'+ver;
File MINITERM.PAS:
(*>  MINITERM.PAS - Telegard Communications Program                         <*)
    wcenter('Telegard MiniTerm - Version '+ver,15,2);
File MISC1.PAS:
  sprint('^5Telegard Time Bank v'+ver);
File MISCX.PAS:
    sl1('\  Telegard SysOp Log for '+date+':  /');
      writeln(sysopf1,'>> Telegard SysOp Log for '+nam+': <<');
File MMODEM.PAS:
        cwriteat(2,25,'Telegard:'+#3#14);
File SEPMSGS.PAS:
  star('Each message base in Telegard can now occupy its own, seperate directory');
  star('Message directories will be created off of your current Telegard MSGS\');
File SYSOP2A.PAS:
(*>  Telegard Bulletin Board System - Copyright 1988,89,90 by               <*)
              print('This is the baud rate that Telegard will use when waiting for calls');
              print('This is the baud rate Telegard will USE between Telegard and your');
              print('These are communications flags used by Telegard.');
File T2T.PAS:
  backtotag:boolean;  { CONVERTING TO TELEGARD .. }
        ttl('Converting "NAMES.LST" to Telegard format');
        ttl('Converting "USER.LST" to Telegard format');
        ttl('Converting "BOARDS.DAT" to Telegard format');
        ttl('Converting "FBOARDS.DAT" to Telegard format ("UPLOADS.DAT")');
        ttl('Converting "VOTING.DAT" to Telegard format.');
  write(' Conversion for TAG '+tag_ver+' ^Q®®®®®-¯¯¯¯¯^P Telegard '+s_ver);
  writeln('TAG '+tag_ver+' to the proper formats used by Telegard '+s_ver+'.');
  writeln('It may ALSO be used to convert from Telegard format to TAG.');
  writeln('   TAG '+tag_ver+'                Telegard '+s_ver);
  writeln('   already in the correct Telegard '+s_ver+' format.');
    writeln('1. From TAG to Telegard format');
    writeln('2. From Telegard to TAG format');
      writeln('such files are here, and will be used to create the Telegard');
      writeln('equivalents in your Telegard paths.');
      textcolor(15); writeln('Enter your Telegard MAIN BBS pathname.');
      writeln('This step is involved to ensure you have a version of Telegard');
      textcolor(9); write('Telegard Path: '); infield(tgpath,40);
      textcolor(15); writeln('Enter your Telegard MAIN BBS pathname.');
      writeln('The Telegard file STATUS.DAT should exist in this directory.');
      textcolor(9); write('Telegard Path: '); infield(tgpath,40);
      else writeln('TO TELEGARD FORMAT');
    textcolor(9); write('Telegard Path: '); textcolor(15); writeln(tgpath);
    writeln('Now you need to enter your Telegard MSGS directory, where you');
    textcolor(9); write('Telegard MSGS Path: '); infield(tmsgpath,40);
        writeln('Convert Telegard '+s_ver+' ^P¯¯¯¯¯¯¯¯¯^P TAG '+tag_ver)
        writeln('Convert TAG '+tag_ver+' ^P¯¯¯¯¯¯¯¯¯^P Telegard '+s_ver);
        writeln('If Telegard data files are not in version '+s_ver+' format,')
    if (not backtotag) then write('Thank you for choosing Telegard!')
                       else write('Well, thanks for TRYING Telegard!');
File TA2Z.PAS:
  textcolor(15); write('CONVERSION UTILITY for Telegard '+ver+': ');
  writeln('your Telegard v'+ver+' BBS to the newer .ZIP format.  PKZIP.EXE');
  elog('Telegard v'+ver+' ARC ---> ZIP file conversion utility');
  write('Thank you for choosing Telegard!');
File TMU.PAS:
program TelegardMasterUtility;
                   #3#14+'for Telegard '+
File SYSOP6.PAS:
        description:='A NEW Telegard Event';
File SYSOP7.PAS:
      writeln(f,'New TeleGard-X Menu');
      ldesc:='(XXX)New TeleGard-X Command';
      sprint(#3#3+'TeleGard-X Menu Editor');
File COMMON.PAS:
        s:='TeleGard-X Bulletin Board System, Version '+ver;
File COMMON1.PAS:
    writeln(trapfile,'***** TeleGard-X User Audit - '+nam+' on at '+date+' '+time+' *****');
  tc(11); writeln('[> Type "EXIT" to return to TeleGard-X.');