home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Garbo
/
Garbo.cdr
/
pc
/
opus
/
opin103d.lzh
/
DEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-12-03
|
4KB
|
145 lines
Program Test;
{***************************************************************************}
{* *}
{* O p u s I n t e r f a c e V e r 1.03 Demo Program. *}
{* *}
{* Opus V 1.0x Interface for Turbo Pascal Ver 4.0, 5.0 and 5.5 *}
{* *}
{* These Structures,Procedures and Functions may help you to make OPUS *}
{* utilities for to help other SysOps, Please read the Documentation. *}
{* *}
{* Regards *}
{* Per Holm *}
{* *}
{* FIDO: Per Holm - Asgaard BBS 2:230/22.0 *}
{* UUCP: perholm@daimi.DK *}
{* *}
{***************************************************************************}
Uses
OPINT;
Var
i:Integer;
PROCEDURE Error;
VAR
Err: Integer;
BEGIN
Err:=OpIntERROR;
IF Err>0 THEN
BEGIN
Writeln('You Got Yourself an Error ',Err,' During OpInt Access');
Readln;
END;
END;
PROCEDURE DemoPrmFile;
VAR
Prm: _Prm;
BEGIN
ReadPrm('BBS.PRM',Prm);
Error;
WritePrm('bbs2.prm',Prm);
Error;
With Prm DO
BEGIN
Writeln('Compiler Version ..............: ',Version);
write('Keyboard Mode .................: ');
IF TestMode=1 THEN
Writeln('Yes')
ELSE
writeln('No');
writeln('Exit Val ......................: ',ExitVal);
writeln('Privilige to see Ctrl A lines..: ',CtlaPriv);
write('Multitasker ...................: ');
IF Multitasker=1 THEN
Writeln('Yes')
ELSE
writeln('No');
write('Snooping ......................: ');
IF Snooping=1 THEN
Writeln('Yes')
ELSE
writeln('No');
WriteLn('Max Baud rate .................: ',MaxBaud);
writeln;
writeln('SysOp''s Name .................: ',SysOp);
writeln('Board Name ....................: ',SystemName);
END;
END;
PROCEDURE DemoSystemFiles;
VAR
Sys:_Sys;
BEGIN
ReadSys('SYSTEM.BBS',Sys);
Error;
WriteSys('SYSTEMxx.BBS',Sys);
Error;
with Sys DO
BEGIN
writeln('lscaller : ',ls_caller);
writeln('Priv : ',priv);
writeln('msgpath : ',msgpath);
writeln('bbspath : ',bbspath);
writeln('hlppath : ',hlppath);
writeln('uppath : ',uplpath);
writeln('filepath : ',filepath);
writeln('Attrib : ',Attrib);
writeln('ms_caller : ',ms_caller);
writeln('quote : ',quote);
END;
END;
PROCEDURE ChkSched;
VAR
Scheds: _Scheds;
Sched: _Sched;
BEGIN
ReadScheds('Sched.Bbs',Scheds);
Error;
WriteScheds('Schedx.BBS',Scheds);
Error;
Sched:=Scheds[2];
With Sched DO
BEGIN
writeln('Year .......: ',Year);
writeln('Month ......: ',Month);
writeln('DaY ........: ',Day);
writeln('DayOfWeek...: ',DayWk);
writeln('Hour .......: ',Hour);
writeln('Min ........: ',Min);
writeln('Sec ........: ',Sec);
writeln('Len ........: ',Len);
writeln('Enable .....: ',Enable);
writeln('Trigger ....: ',Trigger);
writeln('Tag ........: ',Tag);
writeln('LastRan ....: ',Last_Ran);
writeln('Opus Reserv.: ',b);
writeln('Ext Reserv..: ',c);
writeln('Behavior ...: ',Behavior);
writeln('Event Mask..: ',EventMask);
writeln('GMT ........: ',GMT);
END;
END;
BEGIN
DemoPrmFile;
Readln;
DemoSystemFiles;
Readln;
ChkSched;
readln;
END.