home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / handcap3 / all.scr next >
Encoding:
Text File  |  1990-10-30  |  3.6 KB  |  143 lines
  1. script
  2. ;10/26/90 init release
  3. ;10/29/90 return to menu added
  4. ;
  5. ;                    SPORTS LINE BBS 702-565-5271 SysOp 
  6. ;                            N.Hard GEine address
  7. clear(screen)
  8. noabort
  9. define var1 
  10. define var2 
  11. define var3=0 
  12. define var4=0
  13. define var5=0
  14. define var6=0
  15. define var7=0
  16. define var8=0
  17. define var9=0
  18. define var10 = 'c:\express\call_log\log'        ;YOUR call log
  19. define var11 = 'c:\express\menus_80\handcap.hlp';YOUR handicap menu
  20.  
  21. define var13=0
  22. define var14=0
  23. define var15 = 'c:\express\handcap\picks.dat'   ;Where PICKS.DAT writes 
  24. define var20=0
  25. define var21=0
  26. define var22=0
  27. define var23=0
  28. define var24=0
  29. define var25=0
  30. define var26=0
  31. define var27=0
  32. define var30=0
  33. define var31=0
  34. dump
  35.  
  36.                       NHL NBA MLB NCAA HANDICAPPER
  37.  
  38.  This Handicapper is suggested for use with sporting events that are played
  39.  on a daily basis such as Basketball, Hockey, and Baseball, since it uses
  40.  moving averages to predict scores. Games like Football, played weekly, are
  41.  not consistent enough in my opinion to set weighted average points scored.
  42.  
  43.  You will be asked to enter the points scored for each team for their last
  44.  3 games. They should be entered in the following order.
  45.  
  46.    1. MOST RECENT
  47.    2. BEFORE MOST RECENT
  48.    3. LEAST RECENT
  49.  
  50.  The MOST RECENT score is given more 'weight' than BEFORE MOST RECENT, which
  51.  recieves more 'weight' than LEAST RECENT. All three scores will be weighted
  52.  and then averaged, and you will receive a fairly good 'line' on the game.
  53.  
  54. end
  55.  
  56. open('[var10]', append)
  57. fprinte'           **&01 on &24 at &23 TRIED HANDICAPPING**'
  58. close
  59. end
  60. E:
  61. printe
  62. printe 'You may now choose to eXit. Enter X for Home Team to terminate'center
  63. printe 'Enter Home Team up to 20 char. (eXit)                         'center
  64. printe 
  65. print  '----> 'center
  66. input var2 20 noreturn
  67. if var2 = 'x' then
  68. goto x
  69. else
  70. endif
  71. printe
  72. printe 'Enter Road Team up to 20 char.                                'center
  73. print  '----> 'center
  74. input var1 20 noreturn
  75. printe
  76. printe 'ROAD: [var1]'center
  77. printe 'HOME: [var2]'center
  78. printe
  79. printe ' Home and Road teams correct? Y/N' center
  80. print '----> 'center
  81. input (var3, 1, noreturn)
  82. if var3 = 'y' then
  83. goto ET
  84. else
  85. goto E
  86. endif
  87. ET:
  88. printe'How many points did the [var1] score? 1 Entry per Line.'center
  89. print'1 Most Recent  ---------> 'center
  90. input (var4,3 noreturn)
  91. print'2 Before Most Recent ---> 'center
  92. input (var5,3 noreturn)
  93. print'3 Least Recent ---------> 'center
  94. input (var6,3 noreturn)
  95. printe
  96. printe ' 1)  [var4]   2)  [var5]   3)  [var6]'center
  97. printe
  98. printe'How many points did the  [var2] score? 1 Entry per Line.'center
  99. print'1 Most Recent ----------> 'center
  100. input (var7,3 noreturn)
  101. print'2 Before Most Recent ---> 'center
  102. input (var8,3 noreturn)
  103. print'3 Least Recent ---------> 'center
  104. input (var9,3 noreturn)
  105. printe
  106. printe ' 1)  [var7]   2)  [var8]   3)  [var9]'center
  107. printe
  108. var20 = [var4]*9
  109. var21 = [var5]*7
  110. var22 = [var6]*3
  111. var23 = [var7]*9
  112. var24 = [var8]*7
  113. var25 = [var9]*3   
  114. var13 = [var20]+[var21]+[var22]   
  115. var14 = [var23]+[var24]+[var25] 
  116. var26 = [var13]/19
  117. var27 = [var14]/19
  118. if [var26]>[var27]then
  119. var30 = [var26]-[var27]
  120. printe'I like the [var1] by [var30] points.'center
  121. else
  122. var31 = [var27]-[var26]
  123. printe'I like the [var2] by [var31] points.'center
  124. endif
  125. open('[var15]', append)
  126. fprinte
  127. fprinte'&01 on &24 at &23 Handicapped the following'
  128. fprinte'  ROAD: [var1] '
  129. fprinte'  HOME: [var2] '
  130. if [var26]>[var27]then
  131. var30 = [var26]-[var27]
  132. fprinte'I like the [var1] by [var30] points.
  133. else
  134. var31 = [var27]-[var26]
  135. fprinte'I like the [var2] by [var31] points.
  136. endif
  137. close
  138. end
  139. x:
  140. execute ('[var11]')
  141. exit
  142.  
  143.