10 'D. R. Racing program Filespec:TRACK.BAS
20 'Public domain, feel free to distribute and modify.
30 'CP/M conversion 18 July 87, Jim Lill
40 CLS$ = CHR$(26):' SET FOR YOUR TERMINAL
50 PRINT CLS$:PRINT :PRINT "Track Length Program."
60 PRINT :INPUT "Enter laptime in seconds";T
70 INPUT "Enter lapspeed in mph";S
80 LET L=(S*T)/3600
90 PRINT :PRINT "The track length is";L;"miles."
100 PRINT :PRINT "Again(Y/N)?"
110 Y$=INKEY$:
120 IF Y$=""THEN 110
130 IF ASC(Y$) > 90 THEN Y$=CHR$(ASC(Y$) -32)
140 IF Y$="Y"THEN PRINT CLS$:GOTO 60
150 IF Y$="N"THEN 170
160 IF Y$<>"Y"OR Y$<>"N"THEN 100
170 PRINT CLS$:PRINT 12,32:PRINT "T h a n k  Y o u!"
180 END