home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MDUTIL.ZIP / RUNTIME.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-01  |  4.7 KB  |  166 lines
  1. 1  REM
  2. 3  KEY OFF:SCREEN 0,1:WIDTH 40:COLOR 14,0,0:CLS:LOCATE 5,19:PRINT "MDS"
  3. 5  LOCATE 7,8,0:PRINT "Micro Development Software"
  4. 6  LOCATE 8,8:COLOR 12,0,0:PRINT STRING$(26,196)
  5. 7  COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(201)+STRING$(21,205)+CHR$(187)
  6. 9  LOCATE 11,9:PRINT CHR$(186)+"    RUN/TIME CHART   "+CHR$(186)
  7. 11  LOCATE 12,9:PRINT CHR$(186)+STRING$(21,32)+CHR$(186)
  8. 13  LOCATE 13,9:PRINT CHR$(186)+"    Version 6.5      "+CHR$(186)
  9. 15  LOCATE 14,9:PRINT CHR$(200)+STRING$(21,205)+CHR$(188)
  10. 17  LOCATE 17,10:PRINT"Written By M.D. Smith"
  11. 19  COLOR 14,0:LOCATE 19,7:PRINT "         Circa 1985"
  12. 21  COLOR 9,0:LOCATE 23,7:PRINT "Press space bar to continue"
  13. 23  POKE 106,0:REM CLEAR KYBD BUFFER
  14. 25  A$ = INKEY$:IF A$="" THEN GOTO 25
  15. 27  REM
  16. 29  REM
  17. 31  REM
  18. 100  REM
  19. 110  REM
  20. 120  REM: -------------------------
  21. 130  :
  22. 140  REM---M.D.SMITH--- 11/17/84
  23. 150  REM   1000 MONTE SANO BLVD.
  24. 160  REM   HUNTSVILLE,AL 35801
  25. 170  REM   (205) 533-3131
  26. 180  REM  --------------------------
  27. 190  REM CONVERTED TO IBM BASIC--MAY 85
  28. 200  :
  29. 210  WIDTH 40:COLOR 14,0,0:CLS
  30. 220  DIM DZ(26),DI(26)
  31. 230  LOCATE 3,6
  32. 240  PRINT"  RUN/DISTANCE/TIME CHART  "
  33. 250  LOCATE 7,9
  34. 260  PRINT"*** BY M.D. SMITH ***
  35. 270  LOCATE 12,4
  36. 280  PRINT" (P)RINTER OR  (S)CREEN?";:INPUT Q$
  37. 290  IF Q$="P" GOTO 800
  38. 300  CLS:LOCATE 4,6
  39. 310  PRINT"  RUN/DISTANCE/TIME CHART  "
  40. 320  LOCATE 8,9
  41. 330  PRINT"*** BY M.D. SMITH ***
  42. 340  PRINT:PRINT SPC(2)  " DO YOU WANT CLOCK TIMES (Y OR N)";:INPUT CL$
  43. 350  IF CL$="Y" THEN PRINT:PRINT"  WHAT HOUR DOES RACE BEGIN. NOTE:"
  44. 360  IF CL$="Y"THEN PRINT"(15 MIN=.25 HOUR,SO 9:30=9.5) TIME";:INPUT CL
  45. 370  PRINT:PRINT:PRINT" ENTER NUMBER OF SPEED RATES (1-4)";:INPUT N
  46. 380  IF N<1 OR N>4 THEN 370
  47. 390  PRINT:PRINT" ENTER RATES IN MINUTES PER MILE"
  48. 400  FOR I=1 TO N
  49. 410  PRINT:PRINT:PRINT"   ENTER ACTUAL PACES (";I;")";:INPUT PZ(I)
  50. 420  NEXT I
  51. 430  PRINT"-------------------------------------"
  52. 440  PRINT
  53. 450  PRINT"HOW MANY DISTANCE INTERVALS(1-26)";:INPUT D
  54. 460  IF D<1 OR D>26 THEN 450
  55. 470  FOR DI=1 TO D
  56. 480  PRINT:PRINT:PRINT"ENTER EACH DISTANCE (";DI;")";:INPUT DZ(DI)
  57. 490  NEXT DI
  58. 500  WIDTH 80:COLOR 14,0,0:CLS:LOCATE 3,15
  59. 510  PRINT" RUN DISTANCE/TIME CHART   "
  60. 520  PRINT SPC(10);" PRINTS TIME TO REACH A GIVEN DISTANCE "
  61. 530  PRINT:PRINT"MILE #","RATE 1","RATE 2","RATE 3","RATE 4"
  62. 540  PRINT " ",;
  63. 550  FOR I=1 TO N:PRINT PZ(I);"MIN.",:NEXT
  64. 560  PRINT:PRINT
  65. 570  CH=INT(CL):CM=(CL-CH)*60
  66. 580  FOR DI=1 TO D:PRINT DZ(DI),;
  67. 590  FOR I=1 TO N
  68. 600  SU=((PZ(I))*(DZ(DI)))
  69. 610  HR=INT(SU/60):MN=INT(SU)-(HR*60)
  70. 620  IF CL$="Y" THEN HR=HR+CH:MN=MN+CM
  71. 630  IF MN>59 THEN HR=HR+1:MN=MN-60
  72. 640  IF HR>12 THEN HR=HR-12
  73. 650  MN$=RIGHT$(STR$(MN+100),2):HR$=STR$(HR)
  74. 660  PRINT HR$;":";MN$,:NEXT I:PRINT
  75. 670  IF N<3 THEN PRINT""
  76. 680  IF DI=6 THEN GOSUB 760
  77. 690  IF DI=12 THEN GOSUB 760
  78. 695  IF DI=18 THEN GOSUB 760
  79. 700  NEXT DI
  80. 710  IF CL$="Y" THEN PRINT"  ACTUAL CLOCK TIMES TO POINTS! "
  81. 720  CH$=STR$(CH):CM$=STR$(CM)
  82. 730  IF CL$="Y"THEN PRINT:PRINT"   STARTING TIME: "CH$":"CM$
  83. 740  GOTO 1500
  84. 750  REM: PUT GET/WAIT LINE HERE TO KEEP     SCREEN FROM SCROLLING OFF
  85. 760  PRINT:PRINT"    < HIT ANY KEY TO CONTINUE >"
  86. 770  Y$=INKEY$:IF Y$="" THEN 770
  87. 780  RETURN
  88. 790  GOTO 1500
  89. 800  CLS:LOCATE 3,6
  90. 810  PRINT"  RUN/DISTANCE/TIME CHART  "
  91. 820  LOCATE 7,9
  92. 830  PRINT"*** BY M.D. SMITH ***
  93. 840  PRINT:PRINT"   DO YOU WANT CLOCK TIMES (Y OR N)";:INPUT CL$
  94. 850  IF CL$="Y" THEN PRINT:PRINT"   WHAT HOUR DOES RACE BEGIN. NOTE:"
  95. 860  IF CL$="Y" THEN PRINT"(15 MIN=.25 HOUR,SO 9:30=9.5) TIME";:INPUT CL
  96. 870  REM ----------------------------
  97. 880  REM---THIS IS PRINTER PROGRAM---
  98. 890  REM ----------------------------
  99. 900  PRINT:PRINT"    ENTER NUMBER OF SPEED RATES0)";:INPUT N
  100. 910  IF N<1 OR N>4 THEN 900
  101. 920  PRINT:PRINT"  ENTER RATES IN MINUTES PER MILE"
  102. 930  FOR I=1 TO N
  103. 940  PRINT:PRINT"   ENTER ACTUAL PACES (";I;")";:INPUT PZ(I)
  104. 950  NEXT I
  105. 960  PRINT"-------------------------------------"
  106. 970  PRINT:PRINT"   HOW MANY DISTANCE INTERVALS(1-26)";:INPUT D
  107. 980  IF D<1 OR D>26 THEN 970
  108. 990  CH=INT(CL):CM=(CL-CH)*60
  109. 1000  FOR DI=1 TO D
  110. 1010  PRINT:PRINT"  ENTER EACH DISTANCE (";DI;")";:INPUT DZ(DI)
  111. 1020  NEXT DI
  112. 1022  PRINT:INPUT"WANT DOUBLESTRIKE (Y/N)";T2$
  113. 1024  IF T2$="Y" THEN LPRINT CHR$(27)"G"CHR$(27)"E"
  114. 1030  REM GET READY TO PRINT ******
  115. 1040  LPRINT SPC(27)"RUN DISTANCE/TIME CHART";CHR$(13)
  116. 1050  LPRINT SPC(18)"PRINTS TIME TO REACH A GIVEN DISTANCE "
  117. 1060  LPRINT SPC(18)"FOR A VARIETY OF MINUTE-PER-MILE PACES"CHR$(13)
  118. 1070  LPRINT"MILE #";SPC(10);"RATE 1";SPC(10);"RATE 2";SPC(10);"RATE 3";SPC(10);"RATE 4"
  119. 1080  LPRINT CHR$(13)
  120. 1090  LPRINT SPC(16);
  121. 1100  FOR I= 1 TO N
  122. 1110  LPRINT PZ(I);SPC(15-LEN(STR$(PZ(I))));:NEXT I
  123. 1120  REM
  124. 1130  REM--------------------------------
  125. 1140  REM HEADER WAS ABOVE...ACTUAL
  126. 1150  REM CHART FOLLOWS BELOW !
  127. 1160  REM--------------------------------
  128. 1170  REM
  129. 1180  LPRINT CHR$(10)CHR$(10)
  130. 1190  FOR DI=1TO D:LPRINT DZ(DI);SPC(15-LEN(STR$(DZ(DI))));
  131. 1200  FOR I=1 TO N
  132. 1210  SU=((PZ(I))*(DZ(DI)))
  133. 1220  HR=INT(SU/60):MN=INT(SU)-(HR*60)
  134. 1230  IF CL$="Y" THEN HR=HR+CH:MN=MN+CM
  135. 1240  IF MN>59 THEN HR=HR+1:MN=MN-60
  136. 1250  IF HR>12 THEN HR=HR-12
  137. 1260  MN$=RIGHT$(STR$(MN+100),2):HR$=STR$(HR)
  138. 1270  LPRINT HR$;":";MN$;
  139. 1280  LPRINT SPC(15-LEN(HR$+MN$));
  140. 1290  NEXT I
  141. 1300  LPRINT "";CHR$(13)
  142. 1310  NEXT DI
  143. 1320  IF CL$="Y" THEN LPRINT "ACTUAL CLOCK TIMES TO POINTS!"
  144. 1330  CH$=STR$(CH):CM$=STR$(CM)
  145. 1340  IF CL$="Y" THEN LPRINT "STARTING TIME: ";CH$;":";CM$
  146. 1345  LPRINT CHR$(27)"F"CHR$(27)"H"
  147. 1350  REM  THAT'S IT FOR PRINTER
  148. 1360  GOTO 1500
  149. 1370  REM
  150. 1380  REM------------------------------
  151. 1390  REM THIS VERSION 8.4 PRINTS IN
  152. 1400  REM HOURS AND MINS AND HAS BETTER
  153. 1410  REM PRINTER PROGRAM THAN ORIGINAL
  154. 1420  REM
  155. 1430  REM   DATE OF HOUR    MOD 12-20-84
  156. 1440  REM   DATE OF V 8.4   1-18-85
  157. 1450  REM------------------------------
  158. 1460  REM  ACTUAL CLOCK TIME ADDED
  159. 1470  REM  CONVERTED FOR IBM 5-26-85
  160. 1480  REM------------------------------
  161. 1490  REM
  162. 1500  END
  163. 50000  REM **** THIS IS THE AUTO SAVER *****
  164. 50005  SAVE"RUNTIME.BAS"
  165. 50010  SAVE"B:RUNTIME.BAS"
  166.