home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: OtherApp / OtherApp.zip / am4pmsrc.zip / amc / exit.amc < prev    next >
Text File  |  1995-05-21  |  905b  |  21 lines
  1. /*********************************************************************/
  2. /* EXIT.AMC - AM4PM is terminating                                   */
  3. /*                                                                   */
  4. /* This program is called by AM4PM.EXE.                              */
  5. /*                                                                   */
  6. /* Input:  arg(1) 1 if COM open and 0 if not                         */
  7. /*                                                                   */
  8. /* Output: 0  Normal.                                                */
  9. /*                                                                   */
  10. /*********************************************************************/
  11.  
  12. CALL AMDPrint 'EXIT.AMC('arg(1)') started'
  13. CALL AMSetStateText 'Terminating'
  14.  
  15. if arg(1) then
  16.    CALL AMSendAT('ATZ{OK}')
  17.  
  18. CALL AMSetStateText 'Terminated'
  19.  
  20. Exit 0
  21.