home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 21 / Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_C.d64 / 7.c64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  110 lines
  1. 0 poke45,211:poke46,23:clr:j=rnd(-ti):poke53281,0:poke53280,14:print"[155]"chr$(142)
  2. 1 m=1000:dima(15),b(3):poke36879,45:ve=36878:t1=ve-4:t3=ve-2:pokeve,15:goto9000
  3. 2 poke198,0:wait198,1:getr$:r=val(r$):return
  4. 5 a=int(rnd(8)*6)+int(rnd(8)*6)+2:return
  5. 7 gosub2:ifr$="y"orr$="n"thenreturn
  6. 8 goto7
  7. 100 print"[147] =========== e[146]ven or o[146]dd? ===========
  8. 107 [129]q[178]0[164]15:a(q)[178].5:[130]:[129]q[178]0[164]3:b(q)[178][181](2[172][187](8)):[130]:c[178].8:d[178].3:e[178].
  9. 110 [129]f[178]0[164]4:[153]"";:[129]f1[178]0[164]9:g[178]b(3)[172]8[170]b(2)[172]4[170]b(1)[172]2[170]b(0):h[178]a(g):i[178]h
  10. 115 [139]i[178].5[167]i[178][187](8):[137]130
  11. 120 i[178]i[172]d[171](1[171]d)[172](i[177].5)
  12. 130 k[178].:j[178][171](i[179][187](8))
  13. 140 [141]2:[139]z[167]z[178].:[139]r$[178]"m"[167]9020
  14. 141 [139]r$[178]" "[167]r$[178][202]("eo",[187](8)[172]2[170]1,1):[137]150
  15. 145 [139]r$[179][177]"o"[175]r$[179][177]"e"[167]140
  16. 150 [153]:[153][163]f[172]8[170]2)r$;:[139]r$[178]"e"[167]k[178]1
  17. 160 e[178]e[170]1:[139]j[171]k[167]e[178]e[171]1:[153]"*";:v%[178]30:[141]10000
  18. 170 [153]:b(0)[178]b(2):b(1)[178]b(3):b(2)[178]k:b(3)[178]j:a(g)[178]c[172]a(g)[170](1[171]c)[172]b(2):[130]:[153]:[130]
  19. 180 [153]"loadi guessed"50[171]e"out of 50":wl[178]100[170]200[172](e[179]25)
  20. 190 [139]wl[179].[167][141]2000:[137]200
  21. 195 [141]2100
  22. 200 [141]7000:z[178]1:[137]100
  23. 400 c[178]0:f[178][171]25:[141]5:e[178]a
  24. 405 c[178]c[170]1:[153]"load          *** d i c e ***"
  25. 410 [153]"           first roll="e
  26. 411 [153]"":[139]c[179]2[167]414
  27. 412 [141]5:[153]"on          roll #"c"="a
  28. 413 [139]e[178]a[167][153]"            ***you lose***":[141]2000:m[178]m[171]25:[137]440
  29. 414 f[178]f[170]a:[153]"          running total = "f
  30. 415 [153]"          roll again?";:[141]7:v%[178]20:[141]10000:[139]r$[178]"y"[167]405
  31. 430 [153]" no":m[178]m[170]f
  32. 440 [139]m[179].[167]wl[178]0:[137]7020
  33. 442 [153]"":[129]j[178]1[164]9:[153]"":[130]:[153]"          you now have $"m:[129]j[178]1[164]500:[130]
  34. 445 [143]
  35. 450 [153]"            play again?":[141]7:[139]r$[178]"n"[167]9020
  36. 455 [137]400
  37. 700 [153]"load           *** high numbers ***":[153][163]24)"bet:wait
  38. 705 b=.:wl=1
  39. 710 fora=0to9:a(a)=int(rnd(9)*900)+100:ifa(a)>bthenb=a(a):c=a
  40. 720 next
  41. 730 fora=0to8:printa(a)tab(5)"d[146]ouble/s[146]kip/b[146]et";
  42. 740 gosub2:v%=20:gosub10000:ifzthenz=0:ifr$="m"then9020
  43. 745 ifr$="b"thenprint:print:wl=-wl-2*(a=c)*wl:d=a+1:a=8:next:goto800
  44. 750 ifr$="d"thenwl=2*wl:goto760
  45. 755 ifr$<>"s"then740
  46. 760 wl$=str$(wl):printtab(28-len(wl$))wl$
  47. 770 print:next:d=9:ifc-9thenwl=-wl
  48. 800 fora=dto9:printa(a):ifa=9thennext:goto810
  49. 805 print:next
  50. 810 print"":fora=0toc:print:print:next:print">":gosub12000
  51. 812 ifwl<.thengosub2000:goto820
  52. 814 gosub2100
  53. 820 forf=1to1500:next:print"[147]":gosub7000:z=1:goto700
  54. 901 print"time's up!":poke198,0
  55. 910 print"ready for another round?":gosub2:run
  56. 2000 poket1,150:forxx=1to900:next:poket1,0:return
  57. 2100 foryy=220to235step5:poket3,yy:forxx=1to80:next:next
  58. 2110 forxx=1to250:next:poket3,0:return
  59. 3000 return
  60. 4000 print"[147]               **even-odd**"
  61. 4005 print"i will calculate your next entry
  62. 4010 [153]"based on an analysis of your previous
  63. 4020 print"entries.  if you outwit me 50% of the
  64. 4030 [153]"time, you win $100.  otherwise, you
  65. 4040 print"will lose $100.
  66. 4100 [153][163]6)"          ***dice***"
  67. 4105 [153]"roll the dice as long as you can without";
  68. 4110 [153]"matching your first roll.
  69. 4120 print"if you match, you lose.  otherwise, you keep the points you rolled.
  70. 4130 [153]"it costs $25.00 to get in on the action each time.
  71. 4199 gosub4900
  72. 4200 print"            ***high numbers***"
  73. 4205 print"i will pick ten random numbers between
  74. 4210 [153]"100 and 999 and i will show them to you
  75. 4220 print"one at a time.  you start off with a onedollar bet.
  76. 4230 [153]"after each number you may:
  77. 4240 print" 1. bet that it is the largest              of the ten.
  78. 4250 [153]" 2. double your bet.
  79. 4260 print" 3. skip to the next number.
  80. 4900 [153]"(hit any key for more)":[141]2:[153]"load":[142]
  81. 6000 [153]"load":x[178]12
  82. 6100 [153][163]x)"for(NULL)                (NULL)"
  83. 6110 [153][163]x)" waitsys (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) for "
  84. 6120 [153][163]x)" waitclr victory casino for "
  85. 6130 [153][163]x)" waitsys usrusrusrusrusrusrusrusrusrusrusrusrusrusr for "
  86. 6140 [153][163]x)"for(NULL)                (NULL)"
  87. 6200 [153]"print#    copyright (c) 1982 bruce robinson"
  88. 6210 x[178]13:[153][163]x)"victory software":[153][163]x)"paoli, pa  19301"
  89. 6999 x[178]0:[142]
  90. 7000 q[178][187]([171]ti):[139]wl[179]0[167][153]"you lose $";[171]wl:[137]7020
  91. 7010 [153]"you win $"wl"!"
  92. 7020 m[178]m[170]wl:[153]"you now ";:[139]m[179].[167][153]"owe";:[137]7025
  93. 7021 [153]"have";
  94. 7025 [153]" $"[182](m)
  95. 7029 [139]m[177]0[167][153]"hit <m> for menu at beginning of game.":[129]q[178]1[164]4e3:[130]:[142]
  96. 7030 [153]"cough it up by tuesday or al and the
  97. 7040 print"boys are gonna pay you a little visit!!!
  98. 7050 [137]910
  99. 9000 [141]6000
  100. 9010 [153]"welcome to the victory casino!
  101. 9015 ti$="200440":goto9021
  102. 9020 print"[147]":ifpeek(657)=0thennew:
  103. 9021 q=rnd(-ti):print" you now have $"m
  104. 9050 print"which game would you like to play?":print" 1) even-odd":print" 2) dice
  105. 9055 [153]" 3) high numbers":[153]" i) instructions";
  106. 9060 [141]2:[153]"load":z[178]1:[145]r[137]100,400,700:[141]4000:[137]9020
  107. 10000 vo[178]54296:[151]vo,15:a8[178]54272:[151]a8,40:[151]a8[170]1,40:[151]a8[170]5,15:[151]a8[170]6,240
  108. 10002 [151]a8[170]4,17:[129]em[178]1[164]v%:[130]:[151]a8[170]4,16:[151]vo,0:[142]
  109. 12000 v%[178]100:[129]a[178]1[164]4:[141]10000:[129]aa[178]1[164]100:[130]:[130]:[142]
  110.