home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 August / 1986-08.d64 / slots (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  93 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"[147]":c$(0)="[156][201][202][203][157][157][157][204][205][206]":c$(1)=""+right$(c$(0),10)
  7. 70 iffl=0thenpoke12909,0:poke12910,255
  8. 80 print"      [146]     [146]           [146]         [146]       [146]     [146]    [146]    ";
  9. 90 print"[146]        [146]    [146]      [146]      [146]    [146]    [146]        [146]        [146] ";
  10. 100 print"   [146]      [146]      [146]           [146]     [146]        [146]    [146]      [146] ";
  11. 110 print"        [146]         [146]    [146]        [146]    [146]      [146]          [146]  ";
  12. 120 print"  [146]    [146]    [146]        [146]    [146]      [146]      [146]    [146]       [146]   ";
  13. 130 print"      [146]       [146]       [146]         [146]"
  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"[147]"spc(4);:fora=1to8:printa" ";:next
  19. 190 print"[144]":fora=1to16:print"   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]":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)   [157][157]";:pokekb,0
  26. 260 gety$:ify$="l"thengosub430:gosub30:print"[145][145]                 ":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"[156] 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"[157]    "
  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"[145][145][157][157][157][157]    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"[147]":x=14:yc=12:gosub20:print"[144]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"[147]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.