Category : Communication (modem) tools and utilities
Archive   : ZSCRIPTS.ZIP
Filename : XZBG.XTS
;;; SEND files using ZMODEM, background, & putkeys. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; M O D I F I C A T I O N L O G
;___________________________________________________________________
; 1-24-89 Added check for "DSZ FINISHED" on a larger portion
; of the DOS screen to compensate for the 1-89
; version of DSZ (whose message changed)
;
; 12-28-88 Fixed speed problem for Autobaud connections
;
var string ddir[70], spd[6], temp[50]
var int x, done
cl /a
sc a
LABEL ASK_FILE
say at 1,1 color "i" " ZMODEM";
say color "i" " UPLOAD "
;
; Determine Mirror's current drive/path
;
temp = value("drive",1)
x = instr("ABCD",temp)
temp = temp + ":" + value("cdir",x)
if (right(temp,1) <> "\") temp = temp + "\"
say at 6,4 "Current drive\path : "; color "i" temp
message
[6,4]Current drive\path : [i]@(temp)
[8,4][n]Please enter the name of the file you would like to upload.
[9,4]If the file is not in your current drive\path then include
[10,4]the drive\path below.
[12,4]Enter file name:
.
input ddir at 14,4 alluc
say at 16,4 color "b" " ";
say color "b" " "
if (ddir = "") say at 20,4 "Aborted. No file specified." : end
if [@(ddir)] jump go_send
al 5n
say at 16,4 color "b" "ERROR: "; color "n"; "Can't find "; ddir
jump ask_file
LABEL GO_SEND
if (mid(ddir,2,1) = ":") jump swap
if (findchar(ddir,"\")) jump swap
;
; Since the user has not specified a drive/path, use current
;
ddir = temp + ddir
LABEL SWAP
repeat
x = findchar(ddir,"\")
if (x) ddir=insert(ddir,"/",x) : ddir = delete(ddir,x+1,1)
until x = 0
putkeys enable
ba go
if (value("speed",2)) spd = value("speed",3) : jump got_speed
spd = value("speed",1)
LABEL GOT_SPEED
putkeys "DSZ port ",str(value("port",1))," speed ",spd," sz ",ddir
putkeys chr(13)
done = 0
repeat
wait delay 40
for x = 20 to 25
ddir = winstring(x,1,70,"d")
if (instr(ddir,"DSZ FINISHED")) x = 25 : done = 5
next
until done
ba return
putkeys disable
sc t
end
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/