home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / basic / race2.arc / TRACK.BAS < prev   
BASIC Source File  |  1987-07-05  |  580b  |  16 lines
  1. 10 'D. R. Racing program Filespec:TRACK.BAS
  2. 20 'Public domain, feel free to distribute and modify.
  3. 30 CLS:LOCATE 2,33:PRINT "Track Length Program."
  4. 40 LOCATE 4,30:PRINT "Make sure CAPS lock is on."
  5. 50 LOCATE 12,1:INPUT "Enter laptime in seconds";T
  6. 60 INPUT "Enter lapspeed in mph";S
  7. 70 LET L=(S*T)/3600
  8. 80 LOCATE 17,27:PRINT "The track length is";L;"miles."
  9. 90 LOCATE 20,34:PRINT "Again(Y/N)?"
  10. 100 Y$=INKEY$:IF Y$=" "THEN 90
  11. 110 IF Y$="Y"THEN CLS:GOTO 50
  12. 120 IF Y$="N"THEN 140
  13. 130 IF Y$<>"Y"OR Y$<>"N"THEN 90
  14. 140 CLS:LOCATE 12,32:PRINT "T h a n k  Y o u!"
  15. 150 END
  16.