| Sponsored By: | |
Subject: Re2: Drive rate check software
From: DK0179@AppleLink.Apple.COM
Reply To: mapug@shore.net
Date: Fri Jun 16 00:48:00 1995
Software drive check.
The Qbasic program below will work, though not as good as the program being
constructed by Ralph.
Ralph, if possible, could you please publish the source text too ?
Some of us only have mail access, no FTP access.
Best greetings, looking forward to get all these drive rate problems clarified.
Mogens.
OPEN "COM2:9600,N,8,1,CD0,CS0,DS0,OP0,RS,TB2048,RB2048" FOR RANDOM AS #1
OPEN "C:\RESULT.TXT" FOR OUTPUT AS 2
GEML$ = "1!"
GEMM$ = "2!"
WHILE LEN(INKEY$) = 0
C$ = "#:GR#"
PRINT #1, C$
d$ = INPUT$(8, 1)
RAL$ = LEFT$(d$, 3)
RAM$ = MID$(d$, 4, 4)
IF (RAL$ <> GEML$) OR (RAM$ <> GEMM$) THEN
PRINT #2, TIME$, d$
PRINT TIME$, d$
END IF
GEML$ = RAL$
GEMM$ = RAM$
FOR i% = 1 TO 10000
NEXT i%
WEND
CLOSE
END