169 lines
9.3 KiB
Plaintext
169 lines
9.3 KiB
Plaintext
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.');
|