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'); ReadBuffer('BBSLEM');
DisplayBuffer(BBSListMCI,@BBSList,Data2); DisplayBuffer(BBSListMCI,@BBSList,Data2);
NL; 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 BEGIN
BBSListScriptFile(BBSList); BBSListScriptFile(BBSList);
@ -637,7 +637,7 @@ BEGIN
DisplayBuffer(BBSListMCI,@BBSList,Data2); DisplayBuffer(BBSListMCI,@BBSList,Data2);
PrintF('BBSNT'); PrintF('BBSNT');
NL; 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 BEGIN
Seek(BBSListFile,(Edit -1)); Seek(BBSListFile,(Edit -1));
BBSList.DateEdited := GetPackDateTime; BBSList.DateEdited := GetPackDateTime;
@ -731,7 +731,7 @@ BEGIN
PrintF('BBSLET'); PrintF('BBSLET');
NL; NL;
MPL(FileSize(BBSListFile)); MPL(FileSize(BBSListFile));
InputLongIntWOC(' View which BBS? :',Edit,[],1,FileSize(BBSListFile)); InputLongIntWOC(' View which BBS? ',Edit,[],1,FileSize(BBSListFile));
Abort := (Edit <> 0 ); 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 %CL
|08矬闡闡薩闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡醴 |03矬闡闡薩闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡醴
03 Num |08逖03 BBS Name Last Edited |08<EFBFBD> 17|15 Num |16|03逖17|15 BBS Name |11Last Edited |16|03<EFBFBD>
タトトトトトチトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトル タトトトトトチトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトトル