home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_A.d64 / jackpot (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  153 lines
  1. 1 qw=13:lp=3
  2. 2 we=178
  3. 3 er=459
  4. 4 rt=400
  5. 5 ty=460
  6. 10 print"[147]"
  7. 20 poke53280,1:poke53281,0
  8. 30 print"       [215] [215][215][215] [215][215][215] [215]  [215] [215][215][215] [215][215][215] [215][215][215]"
  9. 40 print"       [215] [215] [215] [215]   [215] [215]  [215] [215] [215] [215]  [215]"
  10. 50 print"       [215] [215][215][215] [215]   [215][215]   [215][215][215] [215] [215]  [215]"
  11. 60 print"     [215] [215] [215] [215] [215]   [215] [215]  [215]   [215] [215]  [215]"
  12. 70 print"     [215][215][215] [215] [215] [215][215][215] [215]  [215] [215]   [215][215][215]  [215]"
  13. 80 print:print
  14. 90 print"         written by mr.joker"
  15. 110 l1=54272:l2=54279:l3=54286
  16. 120 h1=l1+1:h2=l2+1:h3=l3+1
  17. 130 v1=l1+4:v2=l2+4:v3=l3+4
  18. 140 poke 54296,15
  19. 150 poke v1+1,9:poke v2+2,0
  20. 160 poke v2+1,36:poke v2+2,36
  21. 170 poke v3+1,18:poke v3+2,170
  22. 180 t=ti
  23. 200 poke v1,16:poke v2,32:poke v3,16
  24. 210 read s:if s=0 goto 290
  25. 220 read x1,y1,x2,y2,x3,y3
  26. 230 if x1 then poke h1,x1:poke l1,y1:poke v1,17
  27. 240 if x2 then poke h2,x2:poke l2,y2:poke v2,33
  28. 250 if x3 then poke h3,x3:poke l3,y3:poke v3,17
  29. 260 t=t+s
  30. 270 if t>ti goto 270
  31. 280 goto 200
  32. 290 forj=l1 to 54296:poke j,0:next j
  33. 300 data 10,51,97,0,0,0,0
  34. 310 data 10,43,52,0,0,0,0
  35. 320 data 20,34,75,21,154,8,147
  36. 330 data 20,34,75,25,177,0,0
  37. 340 data 10,34,75,17,37,6,108
  38. 350 data 10,38,126,0,0,0,0
  39. 360 data 10,43,52,25,177,0,0
  40. 370 data 10,45,198,0,0,0,0
  41. 400 data 20,51,97,21,154,8,147
  42. 410 data 20,51,97,25,177,0,0
  43. 420 data 20,51,97,17,37,9,159
  44. 430 data 20,43,52,25,177,10,205
  45. 440 data 20,57,172,22,227,11,114
  46. 450 data 20,57,172,34,75,0,0
  47. 460 data 20,57,172,28,214,8,147
  48. 470 data 10,0,0,34,75,0,0
  49. 480 data 10,51,97,0,0,0,0
  50. 500 data 20,57,172,22,227,11,114
  51. 510 data 10,0,0,34,75,0,0
  52. 520 data 10,51,97,0,0,0,0
  53. 530 data 10,57,172,28,214,10,205
  54. 540 data 10,64,188,0,0,0,0
  55. 550 data 10,68,149,34,75,9,159
  56. 560 data 10,76,252,0,0,0,0
  57. 600 data 20,86,105,21,154,8,147
  58. 610 data 20,0,0,25,177,0,0
  59. 620 data 20,0,0,17,37,6,108
  60. 630 data 10,68,149,25,177,0,0
  61. 640 data 10,51,97,0,0,0,0
  62. 650 data 20,68,149,21,154,8,147
  63. 660 data 20,0,0,25,177,0,0
  64. 670 data 20,0,0,17,37,8,23
  65. 680 data 10,51,97,25,177,7,53
  66. 690 data 10,43,52,0,0,0,0
  67. 700 data 20,51,97,22,227,6,108
  68. 710 data 20,0,0,25,177,0,0
  69. 720 data 20,0,0,19,63,9,159
  70. 730 data 10,38,126,25,177,0,0
  71. 740 data 10,43,100,0,0,0,0
  72. 750 data 20,34,75,21,154,8,147
  73. 760 data 20,0,0,25,177,6,108
  74. 770 data 20,0,0,21,154,4,73
  75. 780 data 20,0,0,0,0,0,0
  76. 790 data 0
  77. 800 g=15
  78. 810 ifg<lp then run
  79. 815 print"[147]"
  80. 820 print"             [213][195][195][195][195][195][195][195][201]"
  81. 830 print"             [194] [195] [195] [195] [194]"
  82. 840 print"             [194] [195] [195] [195] [194]"
  83. 850 print"            [213][177][195][195][195][195][195][195][195][177][201]"
  84. 860 print"            [194]*jackpot*[194][209]"
  85. 870 print"            [194][195][195][195][195][195][195][195][195][195][194][194]"
  86. 880 print"            [194]*******$[194][171][203]"
  87. 890 print"            [173][195][195][195][195][195][195][195][195][195][189]"
  88. 895 print:print" 1 game costs 3$"
  89. 896 print" [218][218][218] or [193]j[193] =10"
  90. 897 print" [211][211][193] =5"
  91. 900 print:print"you have got ";g;" $"
  92. 905 g=g-3
  93. 910 za=int(500*rnd(1))+1
  94. 920 geta$:ifa$=""then920
  95. 930 zs=int(5*rnd(1))+1
  96. 940 if za=qw then goto 5000
  97. 950 if za=we then goto 5000
  98. 960 if za=er then goto 5000
  99. 970 if za>ty then goto 1000
  100. 980 if za>rt then goto 1150
  101. 990 if za<rt then goto 1290
  102. 1000 g=g+10
  103. 1010 on zs goto 1020,1040,1060,1080,1100
  104. 1020 print"":print"             [213][195][195][195][195][195][195][195][201]"
  105. 1030 print"             [194] [211] j [211] [194]":goto1130
  106. 1040 print"":print"             [213][195][195][195][195][195][195][195][201]"
  107. 1050 print"             [194] [193] [193] j [194]":goto1130
  108. 1060 print"":print"             [213][195][195][195][195][195][195][195][201]"
  109. 1070 print"             [194] [218] [218] [218] [194]":goto1130
  110. 1080 print"":print"             [213][195][195][195][195][195][195][195][201]"
  111. 1090 print"             [194] [216] j [216] [194]":goto1130
  112. 1100 print"":print"             [213][195][195][195][195][195][195][195][201]"
  113. 1110 print"             [194] [211] [211] [211] [194]"
  114. 1130 forx=1to2000:nextx
  115. 1140 goto 810
  116. 1150 g=g+5
  117. 1160 on zs goto 1170,1190,1210,1230,1250
  118. 1170 print"":print"             [213][195][195][195][195][195][195][195][201]"
  119. 1180 print"             [194] [218] [216] [218] [194]":goto1270
  120. 1190 print"":print"             [213][195][195][195][195][195][195][195][201]"
  121. 1200 print"             [194] [193] [211] [211] [194]":goto1270
  122. 1210 print"":print"             [213][195][195][195][195][195][195][195][201]"
  123. 1220 print"             [194] [193] [193] [216] [194]":goto1270
  124. 1230 print"":print"             [213][195][195][195][195][195][195][195][201]"
  125. 1240 print"             [194] [216] [211] [216] [194]":goto1270
  126. 1250 print"":print"             [213][195][195][195][195][195][195][195][201]"
  127. 1260 print"             [194] [193] [211] [193] [194]"
  128. 1270 forx=1to2000:nextx
  129. 1280 goto810
  130. 1290 on zs goto 1300,1320,1340,1360,1380
  131. 1300 print"":print"             [213][195][195][195][195][195][195][195][201]"
  132. 1310 print"             [194] [193] [211] [218] [194]":goto1400
  133. 1320 print"":print"             [213][195][195][195][195][195][195][195][201]"
  134. 1330 print"             [194] [211] [216] [193] [194]":goto1400
  135. 1340 print"":print"             [213][195][195][195][195][195][195][195][201]"
  136. 1350 print"             [194] [216] [218] j [194]":goto1400
  137. 1360 print"":print"             [213][195][195][195][195][195][195][195][201]"
  138. 1370 print"             [194] [218] [193] [211] [194]":goto1400
  139. 1380 print"":print"             [213][195][195][195][195][195][195][195][201]"
  140. 1390 print"             [194] j [193] [216] [194]"
  141. 1400 forx=1to2000:nextx
  142. 1410 goto810
  143. 5000 print"":print"             [213][195][195][195][195][195][195][195][201]"
  144. 5001 print"             [194] j j j [194]":forx=1to3000:nextx
  145. 5005 print"[147]":print:print:print
  146. 5010 print"jackpot jackpot jackpot jackpot jackpot"
  147. 5020 poke54296,15:poke54278,240
  148. 5030 for i=1to80
  149. 5040 poke54276,17:poke54273,99+100*rnd(0)
  150. 5050 next:poke54276,0
  151. 5060 g=g+1523
  152. 5070 goto 810
  153.