Re: delay that will work in all Windows versions?
Herbert Kleebauer
>
> Trying to create a batch in XP that needs a delay of a couple seconds. The
> method I am used to uses the "choice" command, but it doesn't exist in the
> XP version. Is there any way to create a simple batch to execute one
> program, delay 2 seconds, and execute another program, that could be used in
> Windows 95 - XP?
You can use a small sleep.exe which works from DOS6 - XP:
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off
echo Bj@jzh`0X-`/PPPPPPa(DE(DM(DO(Dh(Ls(Lu(LX(LeZRR]EEEUYRX2Dx=>sleep.com
echo 0DxFP,0Xx.t0P,=XtGsB4o@$?PIyU WwX0GwUY Wv;ovBX2Gv0ExGIuht6>>sleep.com
echo T}{z~~@GwkBG@OEKcUt`~}@MqqBsy?seHB~_Phxr?@zAB`LrPEyoDt@Cj?>>sleep.com
echo pky_jN@QEKpEt@ij?jySjN@REKpEt@jj?jyGjN@SEKkjtlGuNw?p@pjirz>>sleep.com
echo LFvAURQ?OYLTQ@@?~QCoOL~RDU@?aU?@{QOq?@}IKuNWpe~FpeQFwH?Vkk>>sleep.com
echo _GSqoCvH{OjeOSeIQRmA@KnEFB?p??mcjNne~B?M??QhetLBgBPHexh@e=>>sleep.com
echo EsOgwTLbLK?sFU`?LDOD@@K@xO?SUudA?_FKJ@N?KD@?UA??O}HCQOQ??R>>sleep.com
echo _OQOL?CLA?CEU?_FU?UAQ?UBD?LOC?ORO?UOL?UOD?OOI?UgL?LOR@YUO?>>sleep.com
echo dsmSQswDOR[BQAQ?LUA?_L_oUNUScLOOuLOODUO?UOE@OwH?UOQ?DJTSDM>>sleep.com
echo QTqrK@kcmSULkPcLOOuLOOFUO?hwDTqOsTdbnTQrrDsdFTlnBTm`lThKcT>>sleep.com
echo @dmTkRQSoddTT~?K?OCOQp?o??Gds?wOw?PGAtaCHQvNntQv_w?A?it\EH>>sleep.com
echo {zpQpKGk?Jbs?FqokOH{T?jPvP@IQBDFAN?OHROL?Kj??pd~aN?OHROd?G>>sleep.com
echo Q??PGT~B??OC~?ipO?T?~U?p~cUo0x>>sleep.com
sleep.com>sleep.exe
del sleep.com
::wait 10 seconds:
sleep.exe 10000
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
The DOS part of the programs uses INT 15 /AH=86
dosmain:
bclr.w #10,sr
move.w #$81,r5
movu.bw -1.b(r5.w),r2
eor.l r1,r1
eor.l r0,r0
_10: dec.w r2
bmi.b _50
move.b (r5.w)+-,r0
sub.b #'0',r0
bcs.b _20
cmp.b #9,r0
bhi.b _20
mulsq.l #10,r1,r1
add.l r0,r1
move.w #_50,_30{s6}
br.b _10
_20: jmp.w (_30{s6})
_30: dc.w _10
_50: muls.l #1000,r1,r1
move.l r1,r2
lsr.l #16,r2
move.b #$86,m0
trap #$15
move.w #$4c00,r0
trap #$21
and the Windows part uses a call to KERNEL32/Sleep
winmain::
jsr.l (GetCommandLine)
eor.l r1,r1 ; not within ""
; skip program name
dec.l r0
_20: inc.l r0
cmp.b #0,(r0)
beq.b _10
cmp.b #'"',(r0)
bne.b _30
not.l r1
_30: or.l r1,r1
bne.b _20
cmp.b #' ',(r0)
bne.b _20
inc.l r0
_10:
get_number:
bclr.w #10,sr
move.l r0,r5
eor.l r1,r1
eor.l r0,r0
_10: move.b (r5)+-,r0
or.b r0,r0
beq.b _50
sub.b #'0',r0
bcs.b _20
cmp.b #9,r0
bhi.b _20
mulsq.l #10,r1,r1
add.l r0,r1
move.l #_50,_30
br.b _10
_20: jmp.l (_30)
_30: dc.l _10
_50: move.l r1,-(sp)
jsr.l (Sleep)
moveq.l #0,-(sp)
jsr.l (ExitProcess) ; exit program