home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / handcap3 / handcap.scr < prev    next >
Text File  |  1990-10-30  |  6KB  |  294 lines
  1. script
  2. ;10/25/90 init release
  3. ;10/29/90 return to menu added
  4. ;*************************************************************************
  5. ;PLEASE DO NOT ALTER THE FORMULA FOR PREDICTIONS. BUTCHER WHAT EVER ELSE
  6. ;YOU WANT. SPORTS LINE BBS 702-565-5271 NICK HARD SYSOP
  7. ;**************************************************************************
  8. noabort
  9. clear (screen)
  10. define  var8 = 'c:\express\menus_80\handcap.hlp';YOUR handicap menu
  11. define  var7 = 'c:\express\call_log\log'; Location of system log file
  12. define  var6 = 'c:\express\handcap\picks.dat';Where PICKS.DAT will be written
  13. define  var0                          
  14. define  var1 
  15. define  var2 
  16. define  var3
  17. integer var4=50
  18. integer var5=50
  19. O:
  20. dump
  21.            Sports_Line_BBS_Online_Football_Handicapper_v1.0
  22.                              702-565-5271
  23.  ===========================================================================
  24.   This Handicapper is for entertainment only. Not to be used for gambling
  25.   purposes. The formula used may be used for College or Pro football teams.
  26.  
  27.  Some things you will need to know before starting:
  28.  
  29.    A. Which Team is HOME or ROAD.
  30.    B. The Las Vegas Spread. Points being Given or Taken.
  31.    C. How both teams did for the last 2 weeks ATS.(Against The Spread)
  32.    D. Both teams home Turf, and what Turf they will be playing on.(ART-NAT)
  33. end
  34. open('[var7]', append)
  35. fprinte'           **&01 on &24 at &23 TRIED HANDICAPPING**'
  36. close
  37. end
  38. E:
  39. printe
  40.  printe 'You may now choose to eXit. Enter X for Home Team to terminate'
  41.  printe 'Enter Home Team up to 20 char. (eXit)'
  42.  print  '----> '
  43.  input var2 20 noreturn
  44. if var2 = 'x' then
  45. goto x
  46. else
  47. endif
  48. printe
  49.  printe 'Enter Road Team up to 20 char. '
  50.  print  '----> '
  51.  input var1 20 noreturn
  52. printe
  53. printe '   ROAD: [var1]'
  54. printe '   HOME: [var2]'
  55. printe
  56. printe ' Home and Road teams correct? Y/N' center
  57.  print '----> '
  58.  input (var3, 1, noreturn)
  59.  if var3 = 'y' then
  60. goto ET
  61. else
  62. goto E
  63. endif
  64. ET:
  65. printe
  66.  printe 'Is this a Monday Night Game? Y/N'
  67.  print '----> '
  68.  input (var3, 1, noreturn)
  69.  if var3 = 'y' then
  70. goto MN
  71. else
  72.  goto H
  73. endif
  74. MN:
  75. printe
  76.  printe 'Is [var2] a Monday Night Favorite? Y/N'
  77.  print '----> '
  78.  input (var3, 1, noreturn)
  79.  if var3 = 'y' then
  80.  increase var4 4
  81. goto mn1
  82. else
  83.  increase var4 0
  84. endif
  85. printe
  86.  printe 'Is [var1] a Monday Night Favorite? Y/N'
  87.  print '----> '
  88.  input (var3, 1, noreturn)
  89.  if var3 = 'y' then
  90.  decrease var5 6
  91. else
  92.  decrease var5 0
  93. endif
  94. MN1:
  95. printe
  96.  printe 'Is [var1] a Monday Night dog? Y/N'
  97.  print '----> '
  98.  input (var3, 1, noreturn)
  99.  if var3 = 'y' then
  100.  decrease var5 20
  101. else
  102.  decrease var5 0
  103. endif
  104. printe
  105.  printe 'Is [var2] a Monday Night dog? Y/N'
  106.  print '----> '
  107.  input (var3, 1, noreturn)
  108.  if var3 = 'y' then
  109.  inecrease var4 30
  110. else
  111.  decrease var4 0
  112. endif
  113. goto mn2
  114. H: 
  115. printe
  116.  printe 'Is [var2] a Favorite?  Y/N'
  117.  print '----> '
  118.  input (var3, 1, noreturn)
  119.  if var3 = 'y' then
  120.  decrease var4 2
  121. else
  122.  increase var4 1
  123. endif
  124. MN2:
  125. printe
  126.  printe 'Did [var2] Beat the spread Last week?  Y/N'
  127.  print '----> '
  128.  input (var3, 1, noreturn)
  129.  if var3 = 'y' then
  130.  increase var4 5
  131.  ef var3 ='n' then
  132.  decrease var4 1
  133. goto R
  134. else
  135. endif
  136. printe
  137.  printe 'Did [var2] Beat the spread 2 weeks in a row?  Y/N'
  138.  print '----> '
  139.  input (var3, 1, noreturn)
  140.  if var3 = 'y' then
  141.  increase var4 6
  142. else
  143.  increase var4 5
  144. endif
  145. R:
  146. printe
  147.  printe 'Did [var1] Beat the spread Last week?  Y/N'
  148.  print '----> '
  149.  input (var3, 1, noreturn)
  150.  if var3 = 'y' then
  151.  increase var5 5
  152.  ef var3 = 'n' then
  153.  decrease var5 1
  154. goto L:
  155. else
  156. endif
  157. printe
  158.  printe 'Did [var1] Beat the spread 2 weeks in a row?  Y/N'
  159.  print '----> '
  160.  input (var3, 1, noreturn)
  161.  if var3 = 'y' then
  162.  increase var5 6
  163. else
  164.  increase var5 5
  165. endif
  166. L:
  167. printe
  168.  printe 'Are you laying (-) more than 10 points at Home? Y/N'
  169.  print '----> '
  170.  input (var3, 1, noreturn)
  171.  if var3 = 'y' then
  172.  decrease var4 4
  173. goto T
  174. else
  175.  decrease var4 0
  176. endif
  177. printe
  178.  printe 'Are you Getting (+) more than 10 points at Home? Y/N'
  179.  print '----> '
  180.  input (var3, 1, noreturn)
  181.  if var3 = 'y' then
  182.  increase var4 4
  183. goto T
  184. else
  185.  decrease var4 0
  186. endif
  187. printe
  188.  printe 'Are you laying (-) 7.5 to 10 points at Home? Y/N'
  189.  print '----> '
  190.  input (var3, 1, noreturn)
  191.  if var3 = 'y' then
  192.  increase var4 4
  193. goto T
  194. else
  195.  decrease var4 0
  196. endif
  197. printe
  198.  printe 'Are you Getting (+) 7.5 to 10 points at Home? Y/N'
  199.  print '----> '
  200.  input (var3, 1, noreturn)
  201.  if var3 = 'y' then
  202.  decrease var4 4
  203. goto T
  204. else
  205.  increase var4 0
  206. endif
  207. printe
  208.  printe 'Are you laying (-) 3.5 to 7 points at Home? Y/N'
  209.  print '----> '
  210.  input (var3, 1, noreturn)
  211.  if var3 = 'y' then
  212.  increase var4 0
  213. goto T
  214. else
  215.  decrease var4 0
  216. endif
  217. printe
  218.  printe 'Are you Getting (+) 3.5 to 7 points at Home? Y/N'
  219.  print '----> '
  220.  input (var3, 1, noreturn)
  221.  if var3 = 'y' then
  222.  decrease var4 3
  223. goto T
  224. else
  225.  increase var4 0
  226. endif
  227. printe
  228.  printe 'Are you laying (-) 0 to 3 points at Home? Y/N'
  229.  print '----> '
  230.  input (var3, 1, noreturn)
  231.  if var3 = 'y' then
  232.  increase var4 3
  233. goto T
  234. else
  235.  decrease var4 0
  236. endif
  237. T:
  238. printe
  239.  printe 'Does [var1] have a grass field at their stadium'
  240.  printe 'but is playing on artificial today? Y/N'
  241.  print '----> '
  242.  input (var3, 1, noreturn)
  243.  if var3 = 'y' then
  244.  increase var5 3
  245. else
  246.  decrease var5 0
  247. endif
  248. R:
  249. printe'  ROAD: [var1]  '
  250. printe'  HOME: [var2]  '
  251. if var4 > var5 then
  252. var0 = [var4 - var5]
  253. printe 'I like the [var2] by [var0]'center
  254. open('[var6]', append)
  255. fprinte
  256. fprinte'&01 on &24 at &23 Handicapped the following'
  257. fprinte'  ROAD: [var1]'
  258. fprinte'  HOME: [var2]'
  259. fprinte'I like the [var2] by [var0]'
  260. fprinte
  261. close
  262. end
  263. goto x
  264. ef var4 < var5 then
  265. var0 = [var5 - var4]
  266. printe 'I like the [var1] by [var0]'center
  267. open('[var6]', append)
  268. fprinte
  269. fprinte'&01 on &24 at &23 Handicapped the following'
  270. fprinte'  ROAD: [var1]'
  271. fprinte'  HOME: [var2]'
  272. fprinte'I like the [var1] by [var0]'
  273. fprinte
  274. close
  275. end
  276. goto x
  277. ef var4 = var5 then
  278. printe 'Too Close to Call, in fact, [var1] and [var2] are a Dead Even'
  279. else
  280. endif
  281. open('[var6]', append)
  282. fprinte
  283. fprinte'&01 on &24 at &23 Handicapped the following'
  284. fprinte'  ROAD: [var1]'
  285. fprinte'  HOME: [var2]'
  286. fprinte' Too Close to Call, in fact, [var1] and [var2] are a Dead Even'
  287. fprinte
  288. close
  289. end
  290. x:
  291. execute ('[var8]')
  292.  
  293.  
  294.