Hi Al,
What would a program be without a couple minor bugs :) My beta
tester (me) neglected to give me prompt feedback. Try this on for
size, instead:
RINGBACK.MAC
~~~~~~~~~~~~
{:START}
{WOPE-A %_hom%ringback.log}
{WRIT -=-=-=-=-=-=-=-= %_mon%/%_day%/%_yea -=-=-=-=-=-=-=-=}
{WCLO}
{:ST1}
{SETL 0} <-Added
{WOPE-A %_hom%ringback.log}
{WRIT %_24h%:%_min -- Monitoring Phone Line For Single Ring}
{WCLO}{SETE-P0 exit}{CLEA}
{DISP 4,28,74,+-----------------------+}
{DISP 5,28,74,| Ringback Macro Active |}
{DISP 6,28,74,| Press "Esc" To Exit |}
{DISP 7,28,74,+-----------------------+}
{SETV rback}{CURS n}{LOOK RING} <- "CURS n" correct syntax
{WOPE-A %_hom%ringback.log}
{WRIT %_24h%:%_min% -- Incoming Call}
{WCLO}{SETL 8,rback_y}
{:OTHER}
{LOOK RING}{SETL 8,rback_n}
{GOTO other}
{:LOADB}
{COMP rback,yes}{IFCO ,st1}
{CURS y}{CALL bbs,mosthost.mac} <- "CURS y" correct syntax
{GOTO st1}
{:RBACK_Y}
{WOPE-A %_hom%ringback.log}
{WRIT %_24h%:%_min% -- Single RING: MostHost Being Activated}
{WCLO}{SETV rback,yes}{GOTO loadb}
{:RBACK_N}
{WOPE-A %_hom%ringback.log}
{WRIT %_24h%:%_min% -- Multiple RINGs: Returning to Monitor Line}
{WCLO}{SETV rback,no}{GOTO loadb}
{:EXIT}
{WOPE-A %_hom%ringback.log}
{WRIT %_24h%:%_min% -- Exiting To DOS}
{WCLO}{EXIT}
___--
See, I was able to also provide a little lesson in debugging..hehe
Regards..
Jim
--- Maximus/2 2.02
---------------
* Origin: Tech. Support - Tucson,AZ V.34 520-797-9785 (1:300/603)
|