home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64games / slots.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-07-18  |  4.4 KB  |  94 lines
  1. 10 POKE56,48:POKE55,0:CLR:GOTO40
  2. 20 POKEXR,YC:POKEXR+1,X:POKEXR+2,0:SYS65520:RETURN
  3. 30 X=11:YC=23:GOTO20
  4. 40 IFPEEK(808)=237THENPOKE53281,15:POKE53280,15:KB=198:FL=1:XR=781:GOTO60
  5. 50 KB=239:FL=0:XR=2035:POKE65305,241
  6. 60 GOSUB470:PRINT"ô":C$(0)="£╔╩╦¥¥¥╠═╬":C$(1)=""+RIGHT$(C$(0),10)
  7. 70 IFFL=0THENPOKE12909,0:POKE12910,255
  8. 80 PRINT"      Æ     Æ           Æ         Æ       Æ     Æ    Æ    ";
  9. 90 PRINT"Æ        Æ    Æ      Æ      Æ    Æ    Æ        Æ        Æ ";
  10. 100 PRINT"   Æ      Æ      Æ           Æ     Æ        Æ    Æ      Æ ";
  11. 110 PRINT"        Æ         Æ    Æ        Æ    Æ      Æ          Æ  ";
  12. 120 PRINT"  Æ    Æ    Æ        Æ    Æ      Æ      Æ    Æ       Æ   ";
  13. 130 PRINT"      Æ       Æ       Æ         Æ"
  14. 140 X=8:YC=21:GOSUB20:PRINT"DO YOU WANT TO GO FIRST":POKEKB,0
  15. 150 GETY$:IFY$<>"Y"ANDY$<>"N"THEN150
  16. 160 L1=0:GOSUB430
  17. 170 L1=1:SYS12445
  18. 180 PRINT"ô"SPC(4);:FORA=1TO8:PRINTA" ";:NEXT
  19. 190 PRINT"É":FORA=1TO16:PRINT"   ▌   ▌   ▌   ▌   ▌   ▌   ▌   ▌   ▌":NEXT
  20. 200 PRINT"                                    "
  21. 210 IFY$="Y"THEN250
  22. 220 Y=INT(RND(TI+Y)*7+.2)
  23. 230 POKE12288+Y,255:POKE12369+Y,Y+9
  24. 240 X=4+Y*4:YC=17:GOSUB20:PRINTC$(0)
  25. 250 GOSUB30:PRINT" YOUR MOVE (1-8)   ¥¥";:POKEKB,0
  26. 260 GETY$:IFY$="L"THENGOSUB430:GOSUB30:PRINT"ææ                 ":GOTO250
  27. 270 IFY$<"1"ORY$>"8"THEN260
  28. 280 Y=VAL(Y$)-1:POKE12400,Y:TK=1:CL=1:GOSUB390
  29. 290 IFYC<5THEN360
  30. 300 GOSUB30:PRINT"£ COMPUTER MOVES ":SYS12468
  31. 310 P5=PEEK(12397):IFP5=1THEN360
  32. 320 Y=PEEK(12389):TK=255:CL=0:GOSUB390
  33. 330 IFP5=255THEN370
  34. 340 GOSUB30:PRINTSPC(15)Y+1"¥    "
  35. 350 FORI=1TO1800:NEXT:GOTO250
  36. 360 GOSUB30:PRINT"     YOU WIN        ":GOTO380
  37. 370 GOSUB30:PRINT"     YOU LOSE       "
  38. 380 FORI=1TO3500:NEXT:GOTO140
  39. 390 P=PEEK(12369+Y)
  40. 400 POKE12288+P,TK:POKE12369+Y,P+9
  41. 410 P1=INT(P/9):P2=INT((P/9-P1)*9+.1)
  42. 420 X=P2*4+4:YC=17-2*P1:GOSUB20:PRINTC$(CL):RETURN
  43. 430 GOSUB30:PRINT"æ楥¥¥    ENTER LEVEL (1-4)    ":POKEKB,0
  44. 440 GETA$:IFA$<"1"ORA$>"4"THEN440
  45. 450 L=VAL(A$):IFL1THENL=L-1
  46. 460 POKE12399,L:POKE12397,0:RETURN
  47. 470 PRINT"ô":X=14:YC=12:GOSUB20:PRINT"ÉPLEASE WAIT"
  48. 480 IFFLTHENPOKE56334,0:POKE1,51
  49. 490 IFFL=0THENPOKE1177,62
  50. 500 FORA=0TO2047:POKEA+14336,PEEK(A+53248):NEXTA:IFFL=0THENPOKE1177,63:GOTO520
  51. 510 POKE1,55:POKE56334,129:POKE53272,30:GOTO530
  52. 520 POKE65298,PEEK(65298)AND251:POKE65299,PEEK(65299)AND3OR56
  53. 530 FORA=584TO631:READB:POKEA+14336,B:NEXT
  54. 535 REM POKE 53296,0
  55. 540 C=0:FORA=12402TO12972:READB:C=C+B:POKEA,B:NEXT:IFC=58347THENRETURN
  56. 550 PRINT"ôERROR IN DATA":STOP
  57. 560 DATA 0,3,15,31,63,63,127,127
  58. 570 DATA 254,255,255,255,255,255,255,255
  59. 580 DATA 0,128,224,240,248,248,252,252
  60. 590 DATA 127,127,63,63,31,15,3,0
  61. 600 DATA 255,255,255,255,255,255,255,254
  62. 610 DATA 252,252,248,248,240,224,128,0
  63. 620 DATA 255,1,8,248,10,246,247,1,255,1,255,255,1,255,1,0,2,8,36
  64. 630 DATA 0,1,2,16,142,108,48,174,107,48,189,129,48,24,121,93,48,153,93
  65. 640 DATA 48,174,108,48,96,206,111,48,160,7,152,153,81,48,136,16,249,160,80
  66. 650 DATA 169,0,153,0,48,136,16,248,96,172,111,48,169,0,153,97,48,9,64
  67. 660 DATA 153,93,48,41,0,136,16,243,200,169,1,141,75,49,169,8,141,141,48
  68. 670 DATA 169,121,141,57,49,169,7,141,110,48,174,112,48,189,81,48,56,233,9
  69. 680 DATA 157,81,48,32,12,49,169,107,141,141,48,174,112,48,189,81,48,24,105
  70. 690 DATA 9,157,81,48,173,109,48,208,8,169,0,141,109,48,76,95,49,96,190
  71. 700 DATA 89,48,189,81,48,141,105,48,169,0,141,106,48,170,173,105,48,141,113
  72. 710 DATA 48,173,106,48,208,5,169,0,141,107,48,189,114,48,24,109,113,48,141
  73. 720 DATA 113,48,141,54,49,173,1,48,217,121,48,208,19,238,107,48,32,137,48
  74. 730 DATA 173,107,48,201,3,208,222,169,1,141,109,48,96,173,106,48,73,1,141
  75. 740 DATA 106,48,232,236,110,48,208,186,96,169,0,153,89,48,190,89,48,189,81
  76. 750 DATA 48,201,54,144,30,201,63,176,8,169,0,153,93,48,76,140,49,185,89
  77. 760 DATA 48,153,101,48,185,125,48,141,109,48,153,97,48,76,151,50,74,74,74
  78. 770 DATA 24,121,93,48,153,93,48,169,129,141,144,48,169,121,141,57,49,169,7
  79. 780 DATA 141,110,48,32,9,49,169,0,141,109,48,185,125,48,141,75,49,169,133
  80. 790 DATA 141,144,48,169,125,141,57,49,169,7,141,110,48,32,9,49,173,109,48
  81. 800 DATA 240,12,153,97,48,185,89,48,153,101,48,76,151,50,169,0,141,109,48
  82. 810 DATA 190,89,48,189,81,48,24,105,9,141,105,48,169,0,141,106,48,170,173
  83. 820 DATA 105,48,141,113,48,173,106,48,208,5,169,0,141,107,48,189,114,48,24
  84. 830 DATA 109,113,48,141,113,48,141,11,50,173,221,48,217,121,48,208,18,238,107
  85. 840 DATA 48,173,107,48,201,3,208,225,169,0,153,93,48,76,50,50,173,106,48
  86. 850 DATA 73,1,141,106,48,232,236,110,48,208,187,204,111,48,240,53,190,89,48
  87. 860 DATA 189,81,48,141,68,50,185,125,48,141,221,48,24,169,9,125,81,48,157
  88. 870 DATA 81,48,200,32,95,49,169,0,141,109,48,190,89,48,189,81,48,56,233
  89. 880 DATA 9,141,106,50,157,81,48,169,0,141,221,48,173,18,208,41,3,24,121
  90. 890 DATA 93,48,217,97,48,144,9,153,97,48,185,89,48,153,101,48,169,64,153
  91. 900 DATA 93,48,190,89,48,224,7,240,8,152,170,254,89,48,76,100,49,136,48
  92. 910 DATA 18,200,152,170,185,97,48,74,202,208,252,136,24,121,93,48,153,93,48,96
  93. 8224                                                                                                                          
  94.