modified: BBSLIST.PAS

new file:   UPGRADE/BBSLEDT.ASC
	modified:   UPGRADE/BBSLEH.ASC
This commit is contained in:
R. Eric Wheeler 2013-07-21 01:09:13 -07:00
parent c7f6d50ba8
commit 9afcab2458
3 changed files with 9 additions and 5 deletions

View File

@ -626,7 +626,7 @@ BEGIN
ReadBuffer('BBSLEM');
DisplayBuffer(BBSListMCI,@BBSList,Data2);
NL;
IF (PYNQ(' |03Would you like to edit this BBS Listing? |11',0,TRUE)) THEN
IF (PYNQ(' Would you like to edit this BBS Listing? ',0,TRUE)) THEN
BEGIN
BBSListScriptFile(BBSList);
@ -637,7 +637,7 @@ BEGIN
DisplayBuffer(BBSListMCI,@BBSList,Data2);
PrintF('BBSNT');
NL;
IF (PYNQ(' |03Would you like to save this BBS Listing? |11',0,TRUE)) THEN
IF (PYNQ(' Would you like to save this BBS Listing? ',0,TRUE)) THEN
BEGIN
Seek(BBSListFile,(Edit -1));
BBSList.DateEdited := GetPackDateTime;
@ -731,7 +731,7 @@ BEGIN
PrintF('BBSLET');
NL;
MPL(FileSize(BBSListFile));
InputLongIntWOC(' View which BBS? :',Edit,[],1,FileSize(BBSListFile));
InputLongIntWOC(' View which BBS? ',Edit,[],1,FileSize(BBSListFile));
Abort := (Edit <> 0 );

View File

@ -0,0 +1,4 @@
%CL
|03矬闡闡薩闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡醴
逖17|15 Num |16|03逖17|15 BBS Name |11Last Edited |16|03<30>
斂闡闡謐闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡囁

View File

@ -1,4 +1,4 @@
%CL
|08矬闡闡薩闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡醴
03 Num |08逖03 BBS Name Last Edited |08<EFBFBD>
|03矬闡闡薩闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡醴
17|15 Num |16|03逖17|15 BBS Name |11Last Edited |16|03<EFBFBD>
タトトトトトチトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトル