home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / FRUIT-MACHINE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.1 KB  |  336 lines

  1. 1 POKE53280,0:POKE53281,0
  2. 7 PRINT"[147]DO YOU REQUEST INSTRUCTIONS ?"
  3. 8 GETA$:IFA$=""THEN8
  4. 9 IFA$="Y"THENGOSUB25000
  5. 11 GOSUB1950:GOSUB15:GOTO170
  6. 15 PRINT"[147][158] GOLD SOVERIGN SLOT MACHINE [146]"
  7. 19 POKE53280,0:POKE53281,0
  8. 20 PRINT"WIN LINES."
  9. 30 PRINT"CHERRY  ANY     ANY       =002"
  10. 40 PRINT"CHERRY  CHERRY  ANY       =004"
  11. 50 PRINT"CHERRY  CHERRY  CHERRY    =008"
  12. 60 PRINT"BELL    BELL    BAR       =010"
  13. 70 PRINT"PLUM    PLUM    ANY       =010"
  14. 80 PRINT"ORANGE  ORANGE  ANY       =010"
  15. 90 PRINT"BELL    BELL    BELL      =012"
  16. 100 PRINT"PLUM    PLUM    BAR       =015"
  17. 110 PRINT"PLUM    PLUM    PLUM      =015"
  18. 120 PRINT"ORANGE  ORANGE  ORANGE    =020"
  19. 130 PRINT"ORANGE  ORANGE  BAR       =025"
  20. 140 PRINT"BAR     BAR     ANY       =030"
  21. 150 PRINT"BAR     BAR     BAR       =050"
  22. 160 PRINT"GOLD    GOLD    GOLD      =100"
  23. 161 IFA=1THENPRINTTAB(85)"PRESS ANY KEY TO CONTINUE[146]"
  24. 162 IFA=0THEN169
  25. 163 GETE$:IFE$=""THEN162
  26. 164 POKE53280,9:POKE53281,6:GOSUB1090
  27. 169 RETURN
  28. 170 DIMW$(59,2)
  29. 176 FORI=0TO59
  30. 180 READW$(I,0)
  31. 190 NEXTI
  32. 200 FORI=0TO59
  33. 210 READW$(I,1)
  34. 220 NEXTI
  35. 230 FORI=0TO59
  36. 240 READW$(I,2)
  37. 250 NEXTI
  38. 260 PRINT" PRESS SPACE TO CONT [146]"
  39. 270 GETC$:IFC$<>" "THEN270
  40. 280 POKE53280,9:POKE53281,6
  41. 360 F0=(INT(RND(1)*9))*6
  42. 365 D=8
  43. 400 F1=(INT(RND(1)*9))*6
  44. 410 F2=(INT(RND(1)*9))*6
  45. 420 GOTO1090
  46. 421 REM
  47. 497 :
  48. 498 IFH1=1ANDH2=1ANDH3=1THENH1=0:H2=0:H3=0:GOSUB12000:RETURN
  49. 499 IFH1=1THENH$(1)="":GOTO510
  50. 500 T0=(INT(RND(9)*6)+1)*6
  51. 510 FORI=0TO6 :POKE54276,17
  52. 511 D=8
  53. 512 FORJ=0TO5
  54. 513 PRINT"";LEFT$(D$,D);"";H$(1);"";H$(2);"";H$(3)
  55. 515 D=D+1
  56. 520 NEXTJ
  57. 525 D=8
  58. 530 FORK=0TO5
  59. 540 PRINT"";LEFT$(D$,D);"";H$(1);"";H$(2);"";H$(3)
  60. 545 D=D+1:POKE54276,0
  61. 550 NEXTK
  62. 560 NEXTI
  63. 565 IFH1=1THEN580
  64. 570 F0=((F0+T0)/10)*6
  65. 575 F0=(INT(F0/6))*6
  66. 580 D=8
  67. 585 H1=0:H$(1)="     "
  68. 590 FORI=0TO5
  69. 595 IFF0>59THENF0=0
  70. 600 PRINT"";LEFT$(D$,D);"";W$(F0,0)
  71. 605 IFF0>59THENF0=0
  72. 610 D=D+1:F0=F0+1
  73. 620 NEXTI
  74. 621 F0=F0-6:IFF0<0THENF0=53
  75. 625 IFH2=1THENH$(2)="":GOTO640
  76. 630 T1=(INT(RND(9)*6)+1)*6
  77. 640 FORI=0TO5:POKE54276,17
  78. 650 D=8
  79. 660 FORJ=0TO5
  80. 670 PRINT"";LEFT$(D$,D);"";H$(2);"";H$(3)
  81. 680 D=D+1
  82. 690 NEXTJ
  83. 700 D=8
  84. 710 FORK=0TO5
  85. 720 PRINT"";LEFT$(D$,D);"";H$(2);"";H$(3)
  86. 730 D=D+1:POKE54276,0
  87. 740 NEXTK
  88. 750 NEXTI
  89. 755 IFH2=1THEN780
  90. 760 F1=((F1+T1)/10)*6
  91. 770 F1=(INT(F1/6))*6
  92. 780 D=8
  93. 785 H2=0:H$(2)="      "
  94. 790 FORI=0TO5
  95. 795 IFF1>59THENF1=0
  96. 800 PRINT"";LEFT$(D$,D);"";W$(F1,1)
  97. 805 IFF1>59THENF1=0
  98. 810 D=D+1:F1=F1+1
  99. 820 NEXTI
  100. 821 F1=F1-6:IFF1<0THENF1=53
  101. 825 IFH3=1THENH$(3)="":GOTO840
  102. 830 T2=(INT(RND(9)*6)+1)*6
  103. 840 FORI=0TO5:POKE54276,17
  104. 850 D=8
  105. 860 FORJ=0TO5
  106. 870 PRINT"";LEFT$(D$,D);"";H$(3)
  107. 880 D=D+1:POKE54276,0
  108. 890 NEXTJ
  109. 900 D=8
  110. 910 FORK=0TO5
  111. 920 PRINT"";LEFT$(D$,D);"";H$(3)
  112. 930 D=D+1
  113. 940 NEXTK
  114. 950 NEXTI
  115. 955 IFH3=1THEN980
  116. 960 F2=((F2+T2)/10)*6
  117. 970 F2=(INT(F2/6))*6
  118. 980 D=8
  119. 985 H3=0:H$(3)="      "
  120. 990 FORI=0TO5
  121. 995 IFF2>59THENF2=0
  122. 1000 PRINT"";LEFT$(D$,D);"";W$(F2,2)
  123. 1005 IFF2>59THENF2=0
  124. 1010 D=D+1:F2=F2+1
  125. 1020 NEXTI
  126. 1021 F2=F2-6:D=8:IFF2<0THENF2=53
  127. 1022 GOSUB12000
  128. 1030 RETURN
  129. 1040 REM
  130. 1080 GETC$:IFC$<>" "THEN270
  131. 1090 PRINT"[147][152]                      [146]"
  132. 1100 FORI=0TO5
  133. 1110 PRINT"    [146]"
  134. 1120 NEXTI
  135. 1130 PRINT"                      [146]"
  136. 1140 PRINT"CREDITS=";C;"[152]"
  137. 1150 PRINT"*WIN* *LINE*[152]"
  138. 1160 D=8
  139. 1165 IFF0=60THENF0=0
  140. 1170 FORI=0TO5
  141. 1180 PRINT"";LEFT$(D$,D);" ";W$(F0,0):D=D+1:F0=F0+1
  142. 1190 NEXTI
  143. 1200 D=8:F0=F0-6:IFF0<0THENF0=53
  144. 1205 IFF1=60THENF1=0
  145. 1210 FORI=0TO5
  146. 1220 PRINT"";LEFT$(D$,D);"";W$(F1,1):D=D+1:F1=F1+1
  147. 1230 NEXTI
  148. 1240 D=8:F1=F1-6:IFF1<0THENF1=53
  149. 1245 IFF2=60THENF2=0
  150. 1250 FORI=0TO5
  151. 1260 PRINT"";LEFT$(D$,D);"";W$(F2,2):D=D+1:F2=F2+1
  152. 1270 NEXTI
  153. 1280 D=8:F2=F2-6:IFF2<0THENF2=53:GOSUB12000
  154. 1799 REM
  155. 1810 REM
  156. 1815 PRINT"PRESS SPACE TO CONT:S TO STOP [146]"
  157. 1816 PRINT" F7 TO SEE WIN LINES [146]"
  158. 1817 PRINT"[152]                     [146]"
  159. 1818 IFC=0THEN13100
  160. 1820 GETC$
  161. 1825 IFHE$=" "THENC$=" ":HE$=""
  162. 1826 IFC$=" "THENC=C-1:GOSUB13000:GOSUB497
  163. 1830 IFC$="[136]"THENA=1:GOSUB15
  164. 1840 IFC$=""THEN1820
  165. 1845 IFC$="S"THEN20010
  166. 1850 GOTO1817
  167. 1860 REM
  168. 1950 POKE650,127:POKE54276,0:POKE54283,0:POKE54290,0
  169. 1960 GOSUB16000
  170. 1980 C=10:P0=0:P1=0:P2=0:T0=0:T1=0:T2=0:A=0:H$(1)="      ":H$(2)="      "
  171. 1985 H$(3)="      ":H1=0:H2=0:H3=0
  172. 1990 D$="":AC$=""
  173. 2000 RETURN
  174. 2999 REM
  175. 3000 DATA"B*A*R*[146]","[158]      [146]","B*A*R*[146]","[158]      [146]","B*A*R*[146]"
  176. 3010 DATA"[154]      [146]"
  177. 3020 REM
  178. 3030 DATA"B*A*R*[146]","[158]      [146]","B*A*R*[146]","[158]      [146]","B*A*R*[146]"
  179. 3040 DATA"[154]      [146]"
  180. 3050 REM
  181. 3060 DATA"[152]   [185]  ","[152]  [169] [223][146] ","[152]     [146] ","[152] [169]   [223][146]","[152]  [202][198][203] "
  182. 3070 DATA"      "
  183. 3080 REM
  184. 3090 DATA"[129]      ","[129] [169]  [223][146] ","[129]     [146] ","[129]     [146] ","[129] [223]  [146][169] "
  185. 4000 DATA"      "
  186. 4010 REM
  187. 4020 DATA"[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]"
  188. 4030 DATA"[158] **** [146]"
  189. 4040 REM
  190. 4050 DATA"[156]      ","[156] [169]  [223][146] ","[156]     [146] ","[156]     [146] ","[156] [223]  [146][169] "
  191. 4060 DATA"      "
  192. 4070 REM
  193. 4080 DATA"[150]      [146]","[150] [146] [213]  [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
  194. 4090 DATA"[150] [146]     [146]","[150]      [146]"
  195. 5000 REM
  196. 5010 DATA"[129]      ","[129] [169]  [223][146] ","[129]     [146] ","[129]     [146] ","[129] [223]  [146][169] "
  197. 5020 DATA"      "
  198. 5030 REM
  199. 5040 DATA"[150]      [146]","[150] [146] [213]  [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
  200. 5050 DATA"[150] [146]     [146]","[150]      [146]"
  201. 5060 REM
  202. 5070 DATA"[152]   [185]  ","[152]  [169] [223][146] ","[152]     [146] ","[152] [169]   [223][146]","[152]  [202][198][203] "
  203. 5080 DATA"      "
  204. 6000 DATA"B*A*R*[146]","[158]      [146]","B*A*R*[146]","[158]      [146]","B*A*R*[146]"
  205. 6010 DATA"[154]      [146]"
  206. 6020 REM
  207. 6030 DATA"[156]      ","[156] [169]  [223][146] ","[156]     [146] ","[156]     [146] ","[156] [223]  [146][169] "
  208. 6040 DATA"      "
  209. 6050 REM
  210. 6060 DATA"[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]"
  211. 6070 DATA"[158] **** [146]"
  212. 6080 REM
  213. 6090 DATA"[150]      [146]","[150] [146] [213]  [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
  214. 7000 DATA"[150] [146]     [146]","[150]      [146]"
  215. 7010 REM
  216. 7020 DATA"[152]   [185]  ","[152]  [169] [223][146] ","[152]     [146] ","[152] [169]   [223][146]","[152]  [202][198][203] "
  217. 7030 DATA"      "
  218. 7040 REM
  219. 7050 DATA"[129]      ","[129] [169]  [223][146] ","[129]     [146] ","[129]     [146] ","[129] [223]  [146][169] "
  220. 7060 DATA"      "
  221. 7070 REM
  222. 7080 DATA"[150]      [146]","[150] [146] [213]  [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
  223. 7090 DATA"[150] [146]     [146]","[150]      [146]"
  224. 8000 REM
  225. 8010 DATA"[152]   [185]  ","[152]  [169] [223][146] ","[152]     [146] ","[152] [169]   [223][146]","[152]  [202][198][203] "
  226. 8020 DATA"      "
  227. 8030 REM
  228. 8040 DATA"[156]      ","[156] [169]  [223][146] ","[156]     [146] ","[156]     [146] ","[156] [223]  [146][169] "
  229. 8050 DATA"      "
  230. 8060 REM
  231. 8070 DATA"[129]      ","[129] [169]  [223][146] ","[129]     [146] ","[129]     [146] ","[129] [223]  [146][169] "
  232. 8080 DATA"      "
  233. 8090 REM
  234. 9000 DATA"[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]"
  235. 9010 DATA"[158] **** [146]"
  236. 9020 REM
  237. 9030 DATA"[150]      [146]","[150] [146] [213]  [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
  238. 9040 DATA"[150] [146]     [146]","[150]      [146]"
  239. 9050 REM
  240. 9060 DATA"[156]      ","[156] [169]  [223][146] ","[156]     [146] ","[156]     [146] ","[156] [223]  [146][169] "
  241. 9070 DATA"      "
  242. 9080 REM
  243. 9090 DATA"[152]   [185]  ","[152]  [169] [223][146] ","[152]     [146] ","[152] [169]   [223][146]","[152]  [202][198][203] "
  244. 10000 DATA"      "
  245. 10010 REM
  246. 10020 DATA"[129]      ","[129] [169]  [223][146] ","[129]     [146] ","[129]     [146] ","[129] [223]  [146][169] "
  247. 10030 DATA"      "
  248. 10040 REM
  249. 10050 DATA"B*A*R*[146]","[158]      [146]","B*A*R*[146]","[158]      [146]","B*A*R*[146]"
  250. 10060 DATA"[154]      [146]"
  251. 10080 REM
  252. 10090 DATA"[150]      [146]","[150] [146] [213]  [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
  253. 11000 DATA"[150] [146]     [146]","[150]      [146]"
  254. 11010 REM
  255. 11020 DATA"[129]      ","[129] [169]  [223][146] ","[129]     [146] ","[129]     [146] ","[129] [223]  [146][169] "
  256. 11030 DATA"      "
  257. 11040 REM
  258. 11050 DATA"[156]      ","[156] [169]  [223][146] ","[156]     [146] ","[156]     [146] ","[156] [223]  [146][169] "
  259. 11060 DATA"      "
  260. 11070 REM
  261. 11080 DATA"[152]   [185]  ","[152]  [169] [223][146] ","[152]     [146] ","[152] [169]   [223][146]","[152]  [202][198][203] "
  262. 11090 DATA"      "
  263. 12000 REM
  264. 12005 A$=W$(F0,0):B$=W$(F1,1):G$=W$(F2,2):H$(1)="      ":H$(2)="      "
  265. 12006 H$(3)="      "
  266. 12500 IFA$="[129]      "ANDB$=A$ANDG$=A$THENC=C+20:GOSUB15000:GOTO13000
  267. 12510 IFA$="B*A*R*"ANDB$=A$ANDG$=A$THENC=C+50:GOSUB15000:GOTO13000
  268. 12520 IFA$="[158] GOLD [146]"ANDB$=A$ANDG$=A$THENC=C+100:GOSUB15000:GOTO13000
  269. 12530 IFA$="[156]      "ANDB$=A$ANDG$=A$THENC=C+15:GOSUB15000:GOTO13000
  270. 12540 IFA$="[152]   [162]   "ANDB$=A$ANDG$=A$THENC+12:GOSUB15000:GOTO13000
  271. 12550 IFA$="[150]      [146]"ANDB$=A$ANDG$=A$THENC=C+8:GOSUB15000:GOTO13000
  272. 12560 IFA$="[150]      [146]"ANDB$=A$ANDG$<>A$THENC=C+4:GOSUB15000:GOTO13000
  273. 12570 IFA$="[152]   [162]   "ANDB$=A$ANDG$="B*A*R*[146]"THENC+10:GOSUB15000:GOTO13000
  274. 12580 IFA$="[156]      "ANDB$=A$ANDG$<>A$THENC=C+10:GOSUB15000:GOTO13000
  275. 12590 IFA$="[129]      "ANDB$=A$ANDG$<>A$THENC=C+10:GOSUB15000:GOTO13000
  276. 12600 IFA$="[156]      "ANDB$=A$ANDG$="B*A*R*[146]"THENC=C+15:GOSUB15000:GOTO13000
  277. 12620 IFA$="B*A*R*"ANDB$=A$ANDG$<>A$THENC=C+30:GOSUB15000:GOTO13000
  278. 12630 IFA$="[150]      [146]"ANDB$=A$ANDG$<>A$THENC=C+2:GOSUB15000:GOTO13000
  279. 12635 GOSUB15500
  280. 12640 HO=INT(RND(9)*2)+1
  281. 12645 PRINT"[152]                      "
  282. 12650 IFHO<>1THEN13000
  283. 12660 PRINT"[152] HOLD 1 HOLD 2 HOLD 3 [146]"
  284. 12680 GETHE$:IFHE$=""THEN12680
  285. 12690 IFHE$=" "THEN13000
  286. 12695 IFHE$="S"THEN20010
  287. 12700 IFHE$="1"THENH1=1:H$(1)="":PRINT"HELD 1"
  288. 12710 IFHE$="2"THENH2=1:H$(2)="":PRINT"";LEFT$(AC$,17);"HELD 2"
  289. 12720 IFHE$="3"THENH3=1:H$(3)="":PRINT"";LEFT$(AC$,24);"HELD 3"
  290. 12730 GOTO12680
  291. 13000 PRINT"";C;"[157] ":IFC<0THEN13100
  292. 13020 RETURN
  293. 13100 PRINT"[147]SORRY YOU HAVE NO MORE CREDITS"
  294. 13105 PRINT"WOULD YOU LIKE TO PLAY AGAIN ?"
  295. 13110 GETM$:IFM$="Y"THENRUN
  296. 13115 IFM$="N"THENPRINT"[147]":STOP
  297. 13120 M$="":GOTO13110
  298. 13130 PRINT"                                       ":GOSUB12000
  299. 13140 GOTO1815
  300. 15000 POKE54296,15
  301. 15010 POKE54273,45:POKE54272,255:POKE54277,9:POKE54278,000:POKE54275,0
  302. 15020 POKE54274,255:POKE54276,17
  303. 15030 FORL=0TO100:NEXTL
  304. 15040 POKE54273,65:POKE54272,200:POKE54276,17
  305. 15065 FORL=0TO300:NEXTL:POKE54276,0
  306. 15070 GOSUB16000:RETURN
  307. 15500 POKE54296,15
  308. 15510 POKE54273,15:POKE54272,25:POKE54277,9:POKE54278,000:POKE54275,0
  309. 15520 POKE54274,255:POKE54276,33
  310. 15530 FORL=0TO500:NEXTL
  311. 15565 POKE54276,0
  312. 15570 GOSUB16000:RETURN
  313. 15999 :
  314. 16000 POKE54296,15
  315. 16010 POKE54273,32:POKE54272,55:POKE54277,9:POKE54278,000:POKE54275,0
  316. 16070 :RETURN
  317. 20010 PRINT"[147]PLAY AGAIN SOMETIME !!"
  318. 20015 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  319. 20020 POKE650,0
  320. 20030 END
  321. 25000 PRINT"[147]YOU START WITH 10 CREDITS ON THE SLOT MACHINE.THESE DECREASE ";
  322. 25010 PRINT"BY 1 EACH TIME THAT YOU SPIN THE WHEELS.AT THE START OF THE ";
  323. 25020 PRINT"PROGRAM THE WINNING LINES AND THEIR VALUES WILL BE DISPLAYED.";
  324. 25030 PRINT"IF YOU WISH TO SEE THESE ONCE YOU HAVE STARTED PRESS 'F7'.TO ";
  325. 25040 PRINT"RETURN TO THE WHEELS PRESS ANY KEY."
  326. 25060 PRINT"THERE IS A HOLD FACILITY WHICH IS USED BY INDICATING THE NUMBER ";
  327. 25070 PRINT"OF THE WHEEL(S) TO BE HELD (1-3).";
  328. 25080 PRINT"IF YOU WISH TO STOP THE PROGRAM "
  329. 25090 PRINT"PRESS 'SPACE' TO CONTINUE[146]"
  330. 25100 GETK$:IFK$<>" "THEN25100
  331. 25110 RETURN
  332. 28010 REM
  333. 29000 :
  334. 29010 :
  335. 40000 PRINT"[150]      [146]":PRINT"[150] [146] [213]  [150] [146]":"[150] [146][172][219][191][146] [150] [146]":PRINT"[150] [146][209][129]
  336.