Oakland CPM Archive/oakcpm.iso/cpm/basic/xfer13.bas

BASIC Source File | 1983-09-09 | 5.5 KB | 102 lines

10 '             XFER UTILITY FOR BUILDING SUBMIT FILES
15 '                           version 1.3
20 '                       11/11/81 AL JEWER
25 '
30 '        This program will create the submit file "XFER.SUB" used
35 '  to transfer programs over the phone lines with a minimum of
40 '  delays, using the SENDOUT and MODEM programs.
45 '  1.  Use the Command to Remote line for commands such as User disk etc.
50 '  2.  FILENAME is the file you wish to send or receive.
55 '  3.  If you need more than one command to the remote, such as move to
60 '      user 2 then to disk B:, type 'USER 1', then type '$$$' for the
65 '      filename and the Command line will reappear. Type 'B:' and continue.
66 '  4.  Added option of a command to local. Type 'XXX' instead of '$$$'.
70 '  5.  Enter other modem options if you desire. (CR to skip)
75 '  6.  Specify YOUR (local) disk when asked. (A:,B:,etc) Use the colon!
80 '  7.  A CR for filename will end input.
85 '  8.  SPECIAL NOTE:  Be sure to use the (O) originate  MODEM option!
90 '      Certain versions of BYE require the (Q)uiet mode.
95 '
99 '===================================================================
100 ' Modifications listed in reverse order to minimize read time.
135 '
140 ' 12/15/81  Added ability for remote to utilize 'C' option for
145 '   CRC. Added COM FILE warning notice since most XMODEM pgms
150 '   don't allow COM file xfers. Change line 392 to a REM to
155 '   disable the COM trap. Changed to version 1.3    (wmh)
160 ' 12/01/81  Added routine to freeze Modem in Disk options so that
165 '   program only asks these questions once if selected. (this is
175 '   similar to the original version, but now you have the choice.)
180 '   Changed to Version 1.2 (wmh)
185 ' 11/29/81  Added routine to insert any command to the local, such as
190 '   a DIR to check space, or Modem T or Modem D.  Useful if you make the
195 '   last command BYE the last command to the remote. Just type 'XXX'
210 '   at the FILE NAME prompt. (wmh)
215 ' 11/19/81  Added routine to allow user to select additional modem
220 '   options. (wmh)
225 '       Added routine to allow user to select drive to send or
230 '   receive from or to. Original version would default to remote
235 '   drive. ie if you received a file from drive D it would try to
240 '   write that file on YOUR drive D! That's bad news if you only have
245 '   two drives! (The only other alternative was to write to the default
250 '   drive, and I like to be able to speficy such things.)
255 '       Renamed prompts to make them more accurate.
260 '       Added routine to enable more than one command to the remote
265 '   per file by using $$$ as a filename to get additional command prompts.
270 '   Usefull when you want to move to a differnt drive AND user area.
275 '       Added REM's for clearer documentation
280 '       Re-wrote header and DOC file to reflect changes and enhance-
285 '   ments. Cleaned up file and Revised version number to 1.1 and
290 '   re-numbered to allow room for future revisions.   (Wayne M. Hammerly)
295 '
299 '=====================================================================
300 CLEAR 1000:MO=0
310 INPUT "DO YOU WANT TO SEND OR RECIEVE (S/R) ";A$
312 IF A$="R" THEN 320
314 INPUT "DOES REMOTE ACCEPT 'C' OPTION  (Y/N) ";Q$
320 IF A$="S" THEN B$="R" ELSE B$="S"
330 INPUT "WHAT BAUD RATE (110, 300, 450, 600, 710) ";BR$
334 IF Q$="Y" THEN B$="RC"
340 INPUT "WANT TO FREEZE MODEM/DISK OPTIONS? (Y/N) ";F$
342 IF F$="Y" THEN GOSUB 600:IF F$="y" then GOSUB 600
345 ON ERROR GOTO 360
350 KILL "XFER.SUB"
360 OPEN "O",#1,"XFER.SUB"
365 IF MO=1 THEN MO=2
370 GOTO 510                                 'make command to remote first
380 PRINT"FILE NAME >";                      'filename.filetype for xfer
390 LINE INPUT X$
392 IF RIGHT$(X$,3)="COM" THEN 800           'make this a REM if sending COM files
395 IF X$="$$$" THEN 510                     'type $$$ to get another cmd to remote
400 IF LEN(X$)=0 THEN 570                    'no more files? then done
402 IF X$="XXX" THEN 700                     'type XXX for a cmd to local
405 IF MO=2 THEN 470
410 PRINT "OTHER MODEM OPTIONS >";           '++NOTE++ many XMODEM prgms require the
420 LINE INPUT O$                            'the local to use the O option!!!!
430 IF LEN(O$)=0 THEN 440                    'if no option then continue
440 PRINT "DISK TO SEND/RECEIVE FROM/TO >";  'your disk, not the remote's
450 LINE INPUT D$
460 IF LEN(D$)=0 THEN 570
470 S$="SENDOUT XMODEM "+B$+" "+X$
480 G$="MODEM "+A$++O$+"."+BR$+" "+D$++X$
490 PRINT #1, S$                             'write XMODEM command line to SUB
500 PRINT #1, G$                             'write MODEM command line to SUB
510 PRINT"COMMAND TO REMOTE >";              'log to different disk, user area etc.
520 LINE INPUT X$
530 IF LEN(X$)=0 THEN 380
540 X$="SENDOUT "+X$
550 PRINT #1, X$
560 GOTO 380
570 CLOSE                                    'close the open sub file
580 SYSTEM                                   'all done, do a warmboot!!
600 PRINT "MODEM OPTION TO FREEZE >";        'routine to freeze options so prgm
610 LINE INPUT O$                            'only asks once
620 PRINT "DISK TO SEND TO/RECEIVE FROM >";
630 LINE INPUT D$
640 MO=1:RETURN
700 PRINT "COMMAND TO LOCAL >";              'to insert a local command, such
710 LINE INPUT L$:IF LEN(L$)=0 THEN 380      'as MODEM D
720 PRINT #1,L$:GOTO 380                     'return to file name prompt
800 PRINT:PRINT TAB(5) "+++WARNING! XMODEM MAY REJECT A COM FILE+++"
810 PRINT TAB(11)   "+++RENAME TO OBJ TO BE SAFE+++":PRINT:GOTO 380