home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / t / tguquit.zip / WAIT8902.ZIP / WAIT8902.DOC < prev   
Text File  |  1989-02-06  |  4KB  |  118 lines
  1.  
  2.                 wait - version 8902   February 6, 1989
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  *****************************************************************************
  11.  * wait - version 8902   February 6, 1989                                    *
  12.  * compiled with MSC 5.10; command line: cl /Ox wait.c                       *
  13.  *                                                                           *
  14.  *                                                                           *
  15.  *         Copyright (C) 1989 Larry Fox; ALL RIGHTS RESERVED                 *
  16.  *         *ShareWare* from Opus (1:368/19.0) 1-407-879-3020                 *
  17.  *                                                                           *
  18.  *                                                                           *
  19.  *****************************************************************************
  20.  
  21.  
  22.  
  23.    This program is meant to be used in a batch file that will test for
  24.    errorlevels 0 thru 2.  Errorlevel 0 is returned when the pause time
  25.    expires.  Errorlevel 1 is returned to your batch file if a space, tab
  26.    or return character is pressed.  This is what is meant by the term
  27.    whitespace.  Errorlevel 2 is returned if a letter or number key is
  28.    detected.
  29.  
  30.  
  31.  
  32.                 wait - version 8902   February 6, 1989
  33.  
  34.  
  35.    The following batch files should give you the general idea.  The first
  36.    one is for testing purposes.
  37.  
  38.    echo off
  39.    cls
  40.    echo Pausing for 30 seconds.  Press the space bar for errorlevel 1.
  41.    echo Press a letter or number for errorlevel 2.  Program will time-
  42.    echo out with errorlevel 0 in thirty seconds if no key is pressed.
  43.    wait 30
  44.    if errorlevel 3 goto error
  45.    if errorlevel 2 goto e2
  46.    if errorlevel 1 goto e1
  47.    if errorlevel 0 echo errorlevel = 0 (go for main-engine start)
  48.    goto end
  49.    :e1
  50.    echo errorlevel = 1 (whitespace)
  51.    goto end
  52.    :e2
  53.    echo errorlevel = 2 (non-whitespace)
  54.    goto end
  55.    :error
  56.    eek a bug!
  57.    :end
  58.  
  59.  
  60.    This is my autoexec.bat that runs the Genesis Project.  Normally
  61.    BinkleyTerm will automatically start after the 30 second pause,
  62.    but if I happen to be at the keyboard and get impatient I can also
  63.    type a letter or number key to cut the nonsense and start my BBS.
  64.  
  65.    echo off
  66.    prompt $p $g
  67.    path=c:\;c:\dos;c:\dos\util
  68.    SET TZ=EST5
  69.    SET BINKLEY=C:\BINKLEY
  70.    cls
  71.    echo -                                                              -
  72.    echo ----------------------------------------------------------------
  73.    echo - Binkley will start in 30 seconds.  Tap the space bar to exit -
  74.    echo ----------------------------------------------------------------
  75.    echo -                                                              -
  76.    wait 30
  77.    if errorlevel 2 goto e2
  78.    if errorlevel 1 goto e1
  79.    rem if errorlevel 0 (normal time-out) or a letter or number is hit
  80.    rem BinkleyTerm will start.
  81.    :e2
  82.    cls
  83.    echo Loading BinkleyTerm
  84.    cd c:\binkley
  85.    binkley
  86.    :e1
  87.    echo Who tapped the space bar?
  88.    :end
  89.  
  90.                wait - version 8902   February 6, 1989
  91.  
  92.  
  93.  
  94.    That should about do it...now for the good part.
  95.  
  96.    This program is self-registering. [huh?]  Here's how you can get
  97.    your *ShareWare* copy registered.
  98.  
  99.    1:  *Share* some of your valuable time and/or expertise with a
  100.        fellow modem junkie.
  101.  
  102.    2:  Support the FidoNet Experience...any way you can.  If you aren't
  103.        sure how you could do that, a good way would be to join the
  104.        International FidoNet Association.  Anyone can join and you can
  105.        find an application in the Fido Newsletters that are available
  106.        for download on most good bulletin boards.
  107.  
  108.    Anything of the sort will do it.  Use your imagination if you want.
  109.  
  110.    Thank You
  111.  
  112.    Larry Fox
  113.    Genesis Project SDS: Port Saint Lucie FL
  114.    Opus (1:368/19.0) 1-407-879-3020
  115.  
  116.  
  117.  
  118.