10 'D. R. Racing program Filespec:LAPS.BAS 20 'Converted to CP/M 18 July 87, Jim Lill 30 'Added lc to uc conversion 40 'Added LAP=L etc. for rerun same track 50 'Public Domain, feel free to distribute and modify. 60 CLS$=CHR$(26):' CHANGE THIS FOR YOUR TERMINAL 70 PRINT CLS$:PRINT :PRINT "Lap Speed Program" 80 PRINT :INPUT "Enter length of track in miles";L 90 INPUT "Enter lap time in seconds";T 100 IF L>0 THEN LAP = L 110 LET S=(LAP*3600)/T 120 PRINT :PRINT "The lap speed is";S;"mph." 130 PRINT :PRINT "Again(Y/N)?" 140 Y$=INKEY$ 150 IF Y$= "" THEN 140 160 IF ASC(Y$) > 90 THEN Y$=CHR$(ASC(Y$) - 32) 170 IF Y$="Y" THEN PRINT CLS$:PRINT "Enter 0 Miles for Same Track":GOTO 80 180 IF Y$="N" THEN 200 190 IF Y$<>"Y"OR Y$<>"N"THEN 140 200 PRINT CLS$:PRINT :PRINT "T h a n k Y o u!" 210 END