home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / runner (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  93 lines
  1. 100 goto120
  2. 110 open1,8,15,"s0:runner2":close1:save"0:runner2",8:clr:end
  3. 120 poke53280,6:poke53281,2:poke646,1:rem red,white,blue screen
  4. 122 print"[147]  "chr$(142)
  5. 130 rem ---------------------------
  6. 140 rem running pace chart to print
  7. 150 rem on screen or printer
  8. 160 rem ---------------------------
  9. 170 rem           by
  10. 180 rem ---------------------------
  11. 190 rem      m.d.smith, iv
  12. 200 rem   1000 monte sano blvd.
  13. 210 rem   huntsville, al  35801
  14. 220 rem     205/533-3131
  15. 230 rem ---------------------------
  16. 240 rem     november 1984  v2.2
  17. 250 rem ---------------------------
  18. 260 print"    ********************************":print
  19. 262 print"         runner's pace chart":print
  20. 264 print"                  by":print
  21. 266 print"              m.d. smith":print:print
  22. 268 print"    ********************************":print:print
  23. 300 print "    do you want instructions?(y/n)";:inputz$
  24. 310 ifz$="y"then gosub5000
  25. 320 print"[147]         runner's pace chart":print:print
  26. 330 print" enter finish time range "
  27. 340 print"(from,to[146])in minutes.";:input a,b
  28. 342 ifb<=athenprint:print"[144]sorry!! please make the second number":
  29. 343 ifb<=athenprint"larger than the first.":print:goto330
  30. 350 print
  31. 360 print"enter interval[146] in seconds";:input i
  32. 370 print
  33. 380 print" enter distance[146] in miles";:input c
  34. 400 print"[147]*runner's pace chart for ";c;" miles*":print
  35. 410 print"finish time","pace"
  36. 500 rem ----calculations----
  37. 508 printchr$(158)
  38. 510 for d=a*60 to b*60 step i
  39. 520 print"  ";int((d/60)*100+.5)/100,tab(20);int((d/c/60)*100+.5)/100:print
  40. 524 ct=ct+1
  41. 525 if (ct/8)=int(ct/8)thengosub700
  42. 526 :
  43. 527 :
  44. 528 :
  45. 529 :
  46. 530 next d
  47. 600 printchr$(5)"   hardcopy to printer? (y/n)";:inputp$
  48. 610 if p$="y"thengosub7000
  49. 615 printchr$(158)
  50. 620 print"  do you want another chart?(y/n) ";:inputr$
  51. 625 printchr$(5)
  52. 630 ifr$="y"then100
  53. 640 printchr$(158)"[147]   thanks, good running to you. [146]"chr$(5)
  54. 690 goto63000
  55. 691 rem
  56. 692 rem-------------------------------
  57. 693 rem sub-routines start here
  58. 694 rem ------------------------------
  59. 695 rem
  60. 700 print" hit any key to continue [146]"
  61. 710 getp$:if p$=""then710
  62. 715 print"[147]*runner's pace chart for ";c;" miles*":print
  63. 717 print"finish time","pace[158]"
  64. 720 return
  65. 5000 print"[147]    this runner's program is designed"
  66. 5010 print"to let you input a range of finishing"
  67. 5020 print"times for a given distance. let's use   6.2 miles for an example."
  68. 5030 print"you might finish anywhere from[146] 45 to[146] 50  minutes.";
  69. 5040 print" so you would answer the range input with "chr$(34)"45"chr$(44)"50";
  70. 5050 printchr$(34)".":print
  71. 5060 print"now suppose you want to see your pace   times in 30 second ";
  72. 5070 print"intervals[146]. you input a "chr$(34)"30."chr$(34):print
  73. 5080 print"finally,you input the distance[146] in miles.";
  74. 5090 print" in this example,you would enter "chr$(34)"6.2"chr$(34)"  miles."
  75. 5100 print"       hit any key to continue[146]"
  76. 5110 get y$:if y$="" then 5110
  77. 5120 return
  78. 7000 open 4,4
  79. 7010 print#4,chr$(14)"runner's pace chart for ";c;" miles"chr$(10)chrs$(10)
  80. 7020 print#4,chr$(14)"finish time";tab(10);"pace/mile"chr$(10)
  81. 7030 for d=a*60 to b*60 step i
  82. 7040 let k=int((d/60)*100+.5)/100
  83. 7042 let l=int((d/c/60)*100+.5)/100
  84. 7044 print#4,chr$(14);k;
  85. 7045 print#4,spc(22-len(str$(k)));l;chr$(10)chr$(10)
  86. 7050 next d
  87. 7055 print#4,chr$(10);chr$(10);chr$(10)
  88. 7060 close4
  89. 7070 return
  90. 63000 rem    connect back to l.s.
  91. 63002 print"load"chr$(34)"payload"chr$(34)",8":print"run"
  92. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  93.