Hello All!
I wanted a way commo to report if I had and REP's I hadn't
uploaded yet...so wrote this to do the job, executes with the
{:start} label in my commo.mac :
===================[BEGIN SCRIPT]=============================
{:start}{Clear}
{ifexist c:\commo\rep.tmp,report_reps,no_reps}
{:report_reps}
{SETV num,0}
{ROPEN c:\commo\rep.tmp,display_reps}
{:READLOOP}{INCR num}{READ d%num}{GOTO READLOOP}
{:display_reps}{rclose}
{DISP 1,2,02,-=>Hey ^(COMMO^) dude! These REP's need to be uploaded:<=-}
{DISP 2,2,0E, }
{DISP 3,2,03,%d1}
{DISP 4,2,04,%d2}
{DISP 5,2,05,%d3}
{DISP 6,2,06,%d4}
{DISP 7,2,07,%d5}
{DISP 8,2,08,%d6}
{DISP 9,2,09,%d7}
{:no_reps}
{Send AT&C1&D2X1V1M0S11=55|} * My INIT string
{capt y,c:\commo\cap\%_mon-%_day-%_yea.cap}{} * Capture OPEN
================[END SCRIPT]====================================
Also I use this batch file to start my COMMO:
===================[BEGIN CO.BAT]======================
c:
cd\commo
if exist c:\up\*.rep goto report_reps
If not exist c:\up\*.rep goto cont1
:report_reps
dir /b/e/f c:\up\*.rep > c:\commo\rep.tmp
REM DIR command above are 4DOS specific!
:cont1
commo /in /scommo.set/v10000 /mcommo.mac /:start
if exist c:\up\*.rep goto del_rep_tmp
If not exist c:\up\*.rep goto cont2
:del_rep_tmp
del c:\commo\rep.tmp
goto end
:cont2
goto end
:end
exit
===================[END CO.BAT]===============
Here's the actual display all this produces minus the COLOR .
-=> Hey {COMMO} dude! These REP's need to be uploaded: <=-
C:\UP\FUSION.REP
C:\UP\GLINE.REP
C:\UP\SOURCE.REP
C:\UP\TRACKIT!.REP
---
þ Bruce Thomas þ I can't seem to find time to procrastinate ...
--- GAPNet Enhanced
---------------
* Origin: *The Upper Room * Hampton, VA (804)851-5033 (1:271/320.0)
|