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