SCREEN 7

LOCATE 2, 10
PRINT "Elapse Timer Program"
LOCATE 5, 10
PRINT "Written by Vince Long"
LOCATE 7, 7
PRINT "Copyright 2003, Vince Long"
LOCATE 10, 10
PRINT "Press a Key to Start"
DO
I$ = INKEY$
LOOP WHILE I$ = ""


CLS

LOCATE 5, 1
PRINT "Enter the Input Address"
INPUT "of Your Parallel Port"; Port

CLS


LOCATE 1, 10
PRINT "--------------------"
LOCATE 2, 10
PRINT "Elapse Timer Program"
LOCATE 3, 10
PRINT "--------------------"
LOCATE 5, 6
PRINT "- Calibrate the Detectors -"
LOCATE 7, 10
PRINT "Press a key to start"

DO
I$ = INKEY$
LOOP WHILE I$ = ""


LOCATE 7, 1
FOR I = 1 TO 40: PRINT " "; : NEXT I

LOCATE 7, 6
PRINT "Reading Ambient Light Level"

LOCATE 15, 9
PRINT "Press a key to accept"

DO
Ambient = INP(889)
LOCATE 10, 10
PRINT "Current Reading: "; Ambient
LOOP WHILE INKEY$ = ""

FOR R = 7 TO 15
LOCATE R, 1
FOR I = 1 TO 40: PRINT " "; : NEXT I
NEXT R

LOCATE 7, 9
PRINT "Reading Starting Beam"
LOCATE 10, 10
PRINT "------------------"
LOCATE 11, 10
PRINT "->Cover the Beam<-"
LOCATE 12, 10
PRINT "------------------"

LOCATE 17, 9
PRINT "Press a key to accept"

DO
Starting = INP(889)
LOCATE 14, 9
PRINT "Current Reading: "; Starting
LOOP WHILE INKEY$ = ""

FOR R = 7 TO 15
LOCATE R, 1
FOR I = 1 TO 40: PRINT " "; : NEXT I
NEXT R

LOCATE 7, 10
PRINT "Reading Finish Beam"
LOCATE 10, 10
PRINT "------------------"
LOCATE 11, 10
PRINT "->Cover the Beam<-"
LOCATE 12, 10
PRINT "------------------"

LOCATE 17, 9
PRINT "Press a key to accept"

DO
Finish = INP(889)
LOCATE 14, 9
PRINT "Current Reading: "; Finish
LOOP WHILE INKEY$ = ""

FOR R = 5 TO 17
LOCATE R, 1
FOR I = 1 TO 40: PRINT " "; : NEXT I
NEXT R


StartTimerHere:

LOCATE 5, 10
PRINT "Press a key to begin"

DO
I$ = INKEY$
LOOP WHILE I$ = ""


LOCATE 5, 2
PRINT "Waiting for the Starting Beam to Break"



DO
LOOP WHILE INP(889) <> Starting
StartTime = TIMER

LOCATE 5, 1
FOR I = 1 TO 40: PRINT " "; : NEXT I

LOCATE 5, 12
PRINT "Timer is running"



DO
LOOP WHILE INP(889) <> Finish

FinishTime = TIMER

z = FinishTime - StartTime

LOCATE 5, 1
FOR I = 1 TO 40: PRINT " "; : NEXT I

PRINT "Elapsed time is: "; z; " seconds"


LOCATE 10, 5
PRINT "Press any key to run timer again"
LOCATE 12, 19
PRINT "or"
LOCATE 14, 10
PRINT "Press 'ESC' to Quit"

DO
I$ = INKEY$
LOOP WHILE I$ = ""

IF I$ = CHR$(27) THEN
   CLS
   END
END IF

FOR R = 5 TO 15
LOCATE R, 1
FOR I = 1 TO 40: PRINT " "; : NEXT I
NEXT R

GOTO StartTimerHere



PRINT z

GOTO StartTimerHere