! PROGRAMS WRITTEN BY D.F. CHRISTOPHERSON OF COMMERCIAL COMMUNICATIONS
! FOR USE WITH LARRY WHITE COMMUNICATION PROGRAMS
! DONATED TO THE AMUS NETWORK 01/23/86
!
!
!  COPY THIS PROGRAM TO [1,4] OF THE REMOTE COMPUTER
!  THIS SENDS THE HANGUP CODE TO THE REMOTE MODEM TERMINATING THE CALL
!  IT IS OPERATED BY HANGUP.CMD[2,2] OF THE REMOTE COMPUTER
!
10 OPEN #3,"TRM:PHONE",OUTPUT
15 FOR N=1 TO 3000 : NEXT N     ; MODEM MUST HAVE AT LEAST ONE SECOND WITH NO DATA
20 PRINT #3,"+++";
30 CLOSE #3
40 FOR N=1 TO 3000 : NEXT N     ; MODEM MUST HAVE AT LEAST ONE SECOND WITH NO DATA
50 CHAIN "DSK0:PASWRD.RUN[1,4]"
END