home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C64 / GAMES / JACKPOT.C64 (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  6KB  |  175 lines
  1. 0 REM  * * *  J A C K P O T  * * *            COMPUTE MAGAZINE (AUGUST 1984)    .
  2. 5 PRINT"[147]";:POKE51,0:POKE55,0:POKE52,48:CLR:GOSUB60
  3. 10 TT=50:S=54272:FORL=STOS+24:POKEL,0:NEXT
  4. 15 POKES+1,112:POKES+5,9:POKES+15,208:POKES+24,15
  5. 20 POKES+8,150:POKES+12,8:POKES+13,0
  6. 25 PRINT"[147]";:FORA=1TO5:FORB=1TO40:PRINT" ";:NEXTB,A
  7. 30 FORB=1TO5:PRINT"         [146]        [146]        [146]               ";:NEXT
  8. 35 FORA=1TO5:FORB=1TO40:PRINT" ";:NEXTB,A:POKE53269,255
  9. 40 PRINT:PRINT" (        2    ( (      5    & & %   10"
  10. 45 PRINT:PRINT" &[160]&[160]&   10    [158]&[160]&[160]&   10    [156]'[160]' %   14"
  11. 50 PRINT:PRINT"[156] '[160]'[160]'   14    ([160]([160](   15    [158]#[160]#[160]%   18"
  12. 55 PRINT:PRINT"[158] #[160]#[160]#[160][160][160]18    $[160]$[160]$   50    %[160]%[160]%  100":GOTO400
  13. 60 POKE 53281,1:POKE53275,255:D$="":ZZ=1
  14. 65 PRINT"[144]JACKPOT"
  15. 70 PRINT" YOU WILL BEGIN WITH $50 AND TRY AND"
  16. 75 PRINT"        TURN IT INTO A FORTUNE."
  17. 80 PRINT" IT WILL COST YOU $1 FOR EACH PULL."
  18. 85 PRINT" TO PULL THE HANLDLE USE THE KEYS 1-4."
  19. 90 PRINT" THE HIGHER THE NUMBER, THE HARDER THE
  20. 95 [153]"             PULL WILL BE."
  21. 100 [153]" TO STOP THE GAME AT ANY TIME PRESS (E)"
  22. 105 [153]" PLEASE WAIT WHILE I LOAD THE SPRITES"
  23. 110 [134] WIN$(24)
  24. 115 [129] A[178]1 [164] 24:[135]WIN$(A):[130]
  25. 120 [131] CHERRY,2,CHERRYCHERRY,5,LIMELIMEBAR,10,LIMELIMELIME,10
  26. 125 [131] PLUMPLUMBAR,14,PLUMPLUMPLUM,14,BELLBELLBAR,18
  27. 130 [131] BELLBELLBELL,18,SEVENSEVENSEVEN,50,BARBARBAR,100
  28. 135 [131] LEMONLEMONLEMON,10,CHERRYCHERRYCHERRY,15
  29. 140 M[178]2047:NN[178]12288:OO[178]53248:S[178]54272:[129]L[178]S[164]S[170]24:[151]L,0:[130]
  30. 145 [151]S[170]5,9:[151]S[170]6,0:[151]S[170]24,15:[151]S[170]1,120
  31. 150 [129]I[178]49664[164]49714:[135]B:B[178]B[170]239:[151]I,B:[130]
  32. 155 [131] 4,2,3,7,5,6,7,6,3,1,5,5,7,4,6,7,6
  33. 160 [131] 1,2,5,4,5,6,7,4,3,7,5,6,7,2,6,7,3
  34. 165 [131] 1,2,3,4,5,6,7,7,3,4,5,6,7,5,6,7,4
  35. 170 [129]I[178]830[164]833:[151]I,0:[130]
  36. 175 AA[178]15360:BB[178]15807:CC[178]12568:DD[178]12615
  37. 180 [129]A[178]AA [164] BB:[135]B:[139] B[178][177]0 [167] [151]A,B:[137]190
  38. 185 D[178][182](B)[171]1:[129]C[178]0 [164] D:[151] A[170]C,0:[130]:A[178]A[170]D
  39. 190 [130]
  40. 195 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251:[129]I[178]0[164]M
  41. 200 [151]NN[170]I,[194](OO[170]I):[130]:[151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
  42. 205 [153]"LOAD":[129]I[178]CC[164]DD:[135]B:[151]I,B:[130]
  43. 210 [151]53272,([194](53272)[175]240)[176]12
  44. 215 [151]53249,48:[151]53251,90:[151]53253,48:[151]53255,90
  45. 220 [151]53257,48:[151]53259,90
  46. 225 [129]Q[178]2041[164]2045[169]2:[151]Q,240:[130]
  47. 230 [151]53248,97:[151]53250,97:[151]53252,160:[151]53254,160:[151]53256,223
  48. 235 [151]53258,223:[151]53271,255:[151]53277,255
  49. 240 U[178]0:A[178]49152:B[178]49475:[129]I[178]A[164]B:[135]C::U[178]U[170]C:[151]I,C:[130]:[139]U[178]38200[167][142]
  50. 245 [153]"ERROR IN DATA STATEMENTS 645-845!":[128]
  51. 250 [129]A[178]679[164]685:[151]A,[181]([187](1)[172]16)[170]1:[130]
  52. 255 [153]D$"                                   ":[158] 49152:[151] S[170]11,128
  53. 260 SPIN$[178]"":[129]B[178]2041[164]2045[169]2:Q[178][194](B)[171]239
  54. 265 [145]Q[141]365,370,375,380,385,390,395
  55. 270 [130]:WIN[178]0
  56. 275 [139]SPIN$[178]"BARBARBAR"[167][141]850
  57. 280 [129]A[178]1[164]24:L[178][195](WIN$(A)):[139][200](SPIN$,L)[178]WIN$(A)[167]WIN[178][197](WIN$(A[170]1))
  58. 285 [130]:TT[178]TT[171]1
  59. 290 [139] WIN[179][177]0[167][153]D$"          YOU WIN "WIN" DOLLARS";
  60. 295 [139] WIN[177]5 [167] [153]"!";
  61. 300 [139] WIN[178]0[167] 325
  62. 305 [151]S,80:[151]S[170]1,112:[151]S[170]15,208
  63. 310 [129]TT[178]TT[170]1[164]TT[170]WIN[171]1:[151]S[170]4,21:[129]TD[178]1[164]150[171]WIN:[130]
  64. 315 T$[178][196](TT):[153]D$"     YOUR TOTAL IS NOW "T$" DOLLARS  ";
  65. 320 [151]S[170]4,20:[129]T[178]1[164]150:[130]:[130]:[151]S[170]1,0:[151]S[170]15,0
  66. 325 T$[178][196](TT):[153]D$"     YOUR TOTAL IS NOW "T$" DOLLARS  ";
  67. 330 [139] TT[177]0 [167] 360
  68. 335 [153]D$"        SORRY BUT YOU'RE BROKE"
  69. 340 [153]"   DO YOU WANT TO PLAY AGAIN?  Y/N    ";
  70. 345 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]345
  71. 350 [139]A$[178]"Y"[167]10
  72. 355 [151]53269,0:[153]"LOAD":[128]
  73. 360 [151]198,0:[137]400
  74. 365 SPIN$[178]SPIN$[170]"BAR":[142]
  75. 370 SPIN$[178]SPIN$[170]"SEVEN":[142]
  76. 375 SPIN$[178]SPIN$[170]"BELL":[142]
  77. 380 SPIN$[178]SPIN$[170]"CHERRY":[142]
  78. 385 SPIN$[178]SPIN$[170]"LIME":[142]
  79. 390 SPIN$[178]SPIN$[170]"PLUM":[142]
  80. 395 SPIN$[178]SPIN$[170]"LEMON":[142]
  81. 400 [161]A$:[139]A$[178]"E"[167][153]"LOAD":[151] 53269,0:[128]
  82. 410 [139] A$[179]"1" [176] A$[177]"4" [167] 400
  83. 415 [151] 49238,[197](A$):[137]250
  84. 420 [131]-12,255,255,255,204
  85. 425 [131]204,205,128,0,3,158,28,115
  86. 430 [131]209,34,73,209,34,73,158,62
  87. 435 [131]115,145,34,75,209,34,73,222
  88. 440 [131]34,73,128,0,3,153,153,179
  89. 445 [131]255,255,255,-22
  90. 450 [131]3,255,240,3,255,240,3
  91. 455 [131]0,112,0,0,224,0,1,192
  92. 460 [131]0,3,128,0,14,0,0,28
  93. 465 [131]0,0,56,0,0,112,0,0
  94. 470 [131]112,0,0,112,0,0,112,0
  95. 475 [131]0,112,-21,60
  96. 480 [131]0,0,255,0,1,255,128,3
  97. 485 [131]255,192,3,255,192,3,255,192
  98. 490 [131]3,255,192,3,255,192,3,255
  99. 495 [131]192,7,255,224,15,255,240,63
  100. 500 [131]255,252,127,255,254,127,255,254
  101. 504 A[178][187](1)
  102. 505 [131]127,255,254,0,24,-18,48
  103. 510 [131]0,0,80,0,0,136,0,1
  104. 515 [131]4,0,2,2,0,2,1,240
  105. 520 [131]15,129,248,31,195,252,63,227
  106. 525 [131]252,63,227,252,063,225,248,63
  107. 530 [131]224,240,31,192,0,15,128,-27
  108. 535 [131]255,0,3,255,192,15
  109. 540 [131]255,240,31,255,248,63,255,252
  110. 545 [131]127,255,254,255,255,255,127,255
  111. 550 [131]254,63,255,252,31,255,248,15
  112. 555 [131]255,240,3,255,192,0,255,-16,255
  113. 560 [131]0,0,0,0,2,0,0,4
  114. 565 [131]0,0,8,0,0,60,0,0
  115. 570 [131]255,0,3,255,192,7,255,224
  116. 575 [131]15,255,240,15,255,240,15,255
  117. 580 [131]240,15,255,240,7,255,224,3
  118. 585 [131]255,192,0,255,0,0,60,-16,255,-10
  119. 590 [131]255,0,3,255,192,15
  120. 595 [131]255,240,31,255,248,63,255,252
  121. 600 [131]127,255,254,255,255,255,127,255
  122. 605 [131]254,63,255,252,31,255,248,15
  123. 610 [131]255,240,3,255,192,0,255,-16,255
  124. 615 [131]24,60,60,60,126,255,255,24
  125. 620 [131]127,3,6,12,24,24,24,0
  126. 625 [131]0,255,129,255,255,129,255,0
  127. 630 [131]0,0,60,126,255,126,60,0
  128. 635 [131]4,8,60,126,255,126,60,0
  129. 640 [131]8,20,38,111,255,246,96,0
  130. 645 [131]169,0,141,176,2,141,177,2
  131. 650 [131]141,178,2,173,176,2,208,16
  132. 655 [131]206,167,2,208,11,173,168,2
  133. 660 [131]141,167,2,162,0,32,234,192
  134. 665 [131]173,177,2,208,16,206,169,2
  135. 670 [131]208,11,173,170,2,141,169,2
  136. 675 [131]162,4,32,234,192,173,178,2
  137. 680 [131]208,16,206,171,2,208,11,173
  138. 685 [131]172,2,141,171,2,162,8,32
  139. 690 [131]234,192,238,173,2,208,188,238
  140. 695 [131]61,3,173,61,3,201,2,208
  141. 700 [131]178,169,0,141,61,3,169,128
  142. 705 [131]141,11,212,238,168,2,208,5
  143. 710 [131]169,255,141,168,2,173,168,2
  144. 715 [131]201,112,144,22,173,176,2,208
  145. 720 [131]17,173,1,208,201,48,208,10
  146. 725 [131]169,129,141,11,212,169,1,141
  147. 730 [131]176,2,238,170,2,208,5,169
  148. 735 [131]255,141,170,2,173,170,2,201
  149. 740 [131]112,144,22,173,177,2,208,17
  150. 745 [131]173,5,208,201,48,208,10,169
  151. 750 [131]129,141,11,212,169,1,141,177
  152. 755 [131]2,238,172,2,208,5,169,255
  153. 760 [131]141,172,2,173,172,2,201,112
  154. 765 [131]144,22,173,178,2,208,17,173
  155. 770 [131]9,208,201,48,208,10,169,129
  156. 775 [131]141,11,212,169,1,141,178,2
  157. 780 [131]24,173,176,2,109,177,2,109
  158. 785 [131]178,2,201,3,240,3,76,11
  159. 790 [131]192,96,160,2,254,1,208,189
  160. 795 [131]1,208,201,130,208,62,169,194
  161. 800 [131]133,252,152,72,138,72,74,141
  162. 805 [131]80,3,74,170,189,65,193,133
  163. 810 [131]251,254,62,3,189,62,3,201
  164. 815 [131]17,208,5,169,0,157,62,3
  165. 820 [131]168,177,251,174,80,3,157,248
  166. 825 [131]7,56,233,240,168,185,58,193
  167. 830 [131]157,39,208,104,170,104,168,169
  168. 835 [131]48,157,1,208,232,232,136,208
  169. 840 [131]179,96,2,2,7,2,5,4
  170. 845 [131]7,0,17,34
  171. 850 B[178]0:[151]S[170]5,9:[151]S[170]6,9
  172. 855 [129]A[178]1[164]130:[151]53281,A:[151]53280,256[171]A:B[178][171](B[178]0):[151]53271,255[171]255[172]B
  173. 860 [151]53277,255[171]255[172]B:[151]S[170]1,A:[151]S[170]4,33:[129]D[178]1[164]20:[151]S[170]4,32
  174. 865 [129]D[178]1[164]20:[130]:[130]:[151]S[170]4,32:[151]S[170]1,0:[151]S[171]992,6:[142]
  175.