; 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 TO [2,2] OF THE LOCAL COMPUTER
;
; TO OPERATE THIS RUN REMOTE.CMD TO ESTABLISH COMMUNICATIONS WITH THE
; REMOTE COMPUTER. ENTER THE PASSWORD, LOG 300,0 THEN DO CONTROL X TO
; GET THE LOCAL COMPUTER AT THE COMMAND LEVEL. THEN ENTER "TRANSFER" & CR
;
; THIS MAY BE RUN WITH "TRANSFER" FORCED TO A JOB ATTACHED TO THE PRINTER.
; TO DO THAT YOU MUST USE TELFRE ON YOUR JOB SO THE FORCED JOB MAY TELSET.
:T
DETACH PHONE
TELSET PHONE             ; MUST BE RUN BY JOB DOING TRANSFER
LOG DSK2:50,6            ; LOG LOCAL COMPUTER TO 50,6
BILLS                    ; PASSWORD
ERASE *.*                ; CLEAR PPN
RUN DSK0:LOG1.RUN[1,4]   ; LOG REMOTE COMPUTER TO 50,6
RGET NUMLST.PRT          ; GET FILES
;
; LIST FILES OR WILD CARDS YOU WISH TO TRANSFER HERE
;
;
RUN DSK0:CNTRLC.RUN[1,4] ; TERMINATES RIO IN REMOTE COMPUTER
RUN DSK0:LOG2.RUN[1,4]   ; LOG REMOTE COMPUTER TO 50,7
LOG DSK2:[50,7]          ; LOG LOCAL COMPUTER TO 50,7
ERASE *.*                ; CLEAR PPN
RGET EDIT.DAT            ; GET FILES
;
; LIST FILES OR WILD CARDS YOU WISH TO TRANSFER HERE
;
;
RUN DSK0:CNTRLC.RUN[1,4] ; TERMINATES RIO IN REMOTE COMPUTER
RUN DSK0:LOG3.RUN[1,4]   ; LOG REMOTE COMPUTER TO 31,1
LOG DSK1:[31,1]          ; LOG LOCAL COMPUTER TO 31,1
BILLS                    ; PASSWORD
RPUT A.A                 ; PUT FILES
RGET B.B
;
; LIST FILES OR WILD CARDS YOU WISH TO TRANSFER HERE
;
;
RUN DSK0:CNTRLC.RUN[1,4] ; TERMINATES RIO IN REMOTE COMPUTER
RUN DSK0:LOG4.RUN[1,4]   ; LOG REMOTE COMPUTER TO 31,3
LOG DSK1:[31,3]          ; LOG LOCAL COMPUTER TO 31,3
RPUT A.A                 ; PUT FILES
RGET B.B
;
; LIST FILES OR WILD CARDS YOU WISH TO TRANSFER HERE
;
;
RUN DSK0:CNTRLC.RUN[1,4] ; TERMINATES RIO IN REMOTE COMPUTER
RUN DSK0:LOG6.RUN[1,4]   ; LOG REMOTE COMPUTER TO 31,6
LOG DSK1:[31,6]          ; LOG LOCAL COMPUTER TO 31,6
RPUT A.A                 ; PUT FILES
;
; LIST FILES OR WILD CARDS YOU WISH TO TRANSFER HERE
;
;
RUN DSK0:CNTRLC.RUN[1,4] ; TERMINATES RIO IN REMOTE COMPUTER
RUN DSK0:LOG7.RUN[1,4]   ; LOG REMOTE COMPUTER TO 31,7
LOG DSK1:[31,7]          ; LOG LOCAL COMPUTER TO 31,7
RPUT A.A                 ; PUT FILES
;
; LIST FILES OR WILD CARDS YOU WISH TO TRANSFER HERE
;
;
RUN DSK0:CNTRLC.RUN[1,4] ; TERMINATE RIO IN REMOTE COMPUTER
RUN DSK0:LOG99.RUN[1,4]  ; LOG REMOTE COMPUTER TO 300,0, HANGUP, RUN PASWRD
TALKTO                   ; VERIFY THE MODEM HUNG UP (NO CARRIER)