10 REM -------------------------------------------------------------------------
11 REM 12-BIT DATA RECORDER DOWNLOADS RESULTS TO PC 
15 REM BILL DONOFRIO
16 REM -------------------------------------------------------------------------
20 INPUT" INPUT NUMBER OF SECONDS BETWEEN READINGS";B
30 INPUT" INPUT NUMBER OF READINGS";Q
40 INPUT" INPUT FILENAME",P$
50 TIME$="00:00:00"
60 CLS
70 OPEN "COM1:2400,N,8,1,CS,DS" AS #1
80 TRIES =10:ON ERROR GOTO 410
90 A$=INPUTS(1,1#)
100 IF ASC(A$)=128 THEN 120 ELSE 90
110 REM WHEN THE NUMBER 128 IS RECEIVED, PROCEED.
111 REM THE NUMBER 128 IS USED TO SYNCHRONIZE THE 
112 REM DATA RECORDER WITH THE COMPUTER.
120 B$=INPUT$(1,1#)
130 REM CHECK TO MAKE SURE THE ASCII VALVE OF B$ > 31 
140 IF ASC(B$)>31 THEN 120 ELSE 160
150 REM CHECK IF THE NUMBER IS POSITIVE OR NEGATIVE. 
151 REM NEGATIVE NUMBERS RANGE FROM 0 TO 15
152 REM POSITIVE NUMBERS RANGE FROM 16 TO 31.
160 IF ASC(B$)<16 THEN 170 ELSE 210
170 C$=INPUT$(1,1#)
180 REM CALCULATION FOR A NEGATIVE NUMBER.
190 X=(CINT(((ASC(B$)*256)+ASC(C$))*-2000/4096))/1000
200 GOTO 240
210 C$-INPUT$(1,1#)
220 REM CALCULATION   FOR A POSITIVE NUMBER.
230 X=(CINT((((ASC(B$)-16)*256)+ASC(C$))*2000/4096))/1000
240 E=E+1
250 T=TIMER
260 REM TIMER CONTROLS THE SPEED OF THE PROGRAM.
270 WHILE TIMER &lt; (T+B)
280 WEND
290 LOCATE 8, 15
300 PRINT" NUMBER OF       VOLTS           TIME"
310 LOCATE 9,15
320 PRINT" READINGS"
330 LOCATE 11,18
340 PRINT E,X,T
350 CLOSE
360 REM OPEN THE DESTINATION FILE
370 OPEN "A",#2,P$
380 WRITE #2, E,X,T
390 IF E=Q THEN 420 ELSE 400
400 GOTO 70
410 RESUME
420 END