home *** CD-ROM | disk | FTP | other *** search
- 10 'D. R. Racing program Filespec:LAPS.BAS
- 20 'Public Domain, feel free to distribute and modify.
- 30 CLS:LOCATE 2,33,:PRINT "Lap Speed Program"
- 40 LOCATE 4,30:PRINT "Make sure CAPS lock is on."
- 50 LOCATE 12,1:INPUT "Enter length of track in miles";L
- 60 INPUT "Enter lap time in seconds";T
- 70 LET S=(L*3600)/T
- 80 LOCATE 17,27:PRINT "The lap speed is";S;"mph."
- 90 LOCATE 20,34,:PRINT "Again(Y/N)?"
- 100 Y$=INKEY$:IF Y$=" "THEN 100
- 110 IF Y$="Y"THEN CLS:GOTO 50
- 120 IF Y$="N"THEN 140
- 130 IF Y$<>"Y"OR Y$<>"N"THEN 100
- 140 CLS:LOCATE 12,32:PRINT "T h a n k Y o u!"
- 150 END