home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / PRG.CASINO (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.0 KB  |  120 lines
  1. 1 A$="[147][139][139]\C5[195]ASINO \C7(\C3C\C7) \C81987 \C5[211]YS[207]P [200]ELP [193]SSOCIATION":SYSO
  2. 2 A$="[139]\C1--------------------------------------\C5":SYSO
  3. 3 :
  4. 5 A$="[139][139][208]ICK A CHOICE:[139][139]\C71\C1) \C5[195]RAPS":SYSO
  5. 8 A$="[139]\C72\C1) \C5[199]UESS MY [206]UMBER[139]\C73\C1) \C5[200]IGHER/[204]OWER":SYSO
  6. 10 A$="[139]\C74\C1) \C5[209]UIT[139][139][195]MD:\C1":SYSO:GOSUB1006:IFTR$<""THEN1080
  7. 11 A=VAL(AN$):ON-(A>5)GOTO1
  8. 12 ONAGOTO30,200,300,1812
  9. 15 GOTO1
  10. 30 IFCR=.THENA$="[139]\C2[217]OU HAVE NO CREDITS!\W2[139]":SYSO:GOTO1
  11. 31 GOSUB950
  12. 32 A$="[139]\C5[195]RAPS \C3(\C7[195]OURTESY OF [200]OODLUM\C3)[139]":SYSO
  13. 33 N1=INT(RND(0)*6)+1
  14. 34 N2=INT(RND(0)*6)+1
  15. 35 A$="[139]\C5[195]REDITS:\C7"+STR$(CR):SYSO
  16. 36 A$="[139][139]\C5[200]OW MUCH DO YOU WANT TO BET?":SYSO
  17. 37 GOSUB1006:IFTR$<""THEN1080
  18. 38 B1=INT(VAL(AN$))
  19. 39 :
  20. 40 IFB1>CRTHEN A$="[139]\C1[206]OT [197]NOUGH [195]REDITS![139]":GOTO35
  21. 41 A$="[139]\W2\C1[215]HITE [196]ICE:"+STR$(N1)+"\W2":SYSO
  22. 42 A$="[139]\W1  \C2[210]ED [196]ICE:"+STR$(N2)+"[139]\C6--------------[139]":SYSO
  23. 43 T1=N1+N2
  24. 44 A$="\W2\C5[205]UST [205]ATCH:\C7"+STR$(T1):SYSO
  25. 45 IFT1=7THEN69
  26. 46 IFT1=11THEN69
  27. 47 IFT1=2THEN61
  28. 53 Z1=INT(RND(0)*11)+2
  29. 55 A$="[139][139]\W2\C5[210]OLLING:\W2\C7"+STR$(Z1):SYSO
  30. 56 IFZ1=7THEN61
  31. 57 IFZ1=11THEN61
  32. 58 IFZ1=2THEN61
  33. 59 IFZ1<>T1THEN46
  34. 60 IFZ1=T1THEN69
  35. 61 CR=CR-B1
  36. 62 A$="[139][139]\W2\C5[217]OU LOSE\C7"+STR$(B1)+" \C5CREDITS.\W2\B2[139]":SYSO
  37. 63 IFCR=.THENA$="[139]\W2\C3[217]OU LOST ALL YOUR CREDITS!\W2[139]":SYSO:GOTO1
  38. 64 GOTO980
  39. 65 REM
  40. 66 REM
  41. 67 REM
  42. 69 CR=CR+B1
  43. 70 A$="[139]\W2\C2[217]EAH \C1[195]RAPS\C2![139]"
  44. 71 A$="[139]\W2\C5[217]OU WON\C7"+STR$(B1)+" \C5CREDITS![139]":SYSO:GOTO64
  45. 200 A$="[139]\C7[199]UESS MY [206]UMBER[139]":SYSO
  46. 201 IFCR=.THENA$="[139]\C6[206]OT [197]NOUGH [195]REDITS!\W2[139]":SYSO:GOTO1
  47. 202 GOSUB950
  48. 203 KK=.:I1=INT(RND(1)*100)+1
  49. 204 KK=KK+1:IFKK=5THENA$="[139]\C5[211]ORRY, TRY NEXT LOG-ON![139]":SYSO:GOTO971
  50. 205 A$="[139]\C5[199]UESS #\C7"+STR$(KK)+"[139]\C1>\CO":SYSO
  51. 206 GOSUB1006:IFTR$<""THEN1080
  52. 207 AB=VAL(AN$)
  53. 208 REM
  54. 209 IFAB=I1THENA$="[139]\C6[195]ONGRATULATIONS, YOU WIN \C7100 \C6CREDITS![139]":SYSO:GOTO970
  55. 210 A$="[139]\CN[206]OPE\C1![139]":SYSO:GOTO204
  56. 300 A$="[139]\C5[200]IGHER/[204]OWER \C3([201]DEA AND ORIGINAL[139]PROGRAMMING BY [200]OODLUM)[139]":SYSO
  57. 301 IFCR=.THENA$="[139]\C7[207]UT OF CREDITS!\W2[139]":SYSO:GOTO1
  58. 302 GOSUB950
  59. 303 A$="[139]\C5[217]OU HAVE\C1"+STR$(CR)+" \C5CREDITS.[139]":SYSO
  60. 304 A$="[139]\C6[200]OW MUCH DO YOU WANT TO BET? \C1":SYSO:GOSUB1006:IFTR$<""THEN1080
  61. 305 AB=VAL(AN$)
  62. 306 IFAB>CRTHENA$="[139]\C7[206]OT [197]NOUGH [195]REDITS![139]":SYSO:GOTO303
  63. 307 T1=INT(RND(1)*10)+1
  64. 308 A$="[139]\C5[212]HE NUMBER IS\C7"+STR$(T1)+"\C5![139]":SYSO
  65. 309 T2=INT(RND(1)*10)+1
  66. 310 A$="[139]\C1(\C7[200]\C1)\C5IGHER OR \C1(\C7[204]\C1)\C5OWER? \C4":SYSO
  67. 311 GOSUB1006:IFTR$<""THEN1080
  68. 312 IFAN$="[204]"ANDT2>T1THEN330
  69. 313 IFAN$="[204]"ANDT2<T1THEN335
  70. 314 IFAN$="[200]"ANDT2<T1THEN330
  71. 315 IFAN$="[200]"ANDT2>T1THEN335
  72. 316 GOTO308
  73. 330 CR=CR-AB:A$="[139]\C5[212]HE NUMBER WAS\C7"+STR$(T2)+"\C5![139]":SYSO
  74. 331 A$="[139]\C5[217]OU LOSE\C1"+STR$(AB)+" \C5CREDITS![139][217]OU":SYSO
  75. 332 A$=" NOW HAVE\C1"+STR$(CR)+" \C5CREDITS![139]":SYSO:GOTO350
  76. 335 CR=CR+AB:A$="[139]\C5[212]HE NUMBER WAS\C7"+STR$(T2)+"\C5![139]":SYSO
  77. 336 A$="[139][217]OU WIN\C1"+STR$(AB)+" \C5CREDITS![139][217]OU":SYSO
  78. 337 A$=" NOW HAVE\C1"+STR$(CR)+" \C5CREDITS![139]":SYSO:GOTO350
  79. 350 IFCR=.THENA$="[139]\C2[217]OU RAN OUT OF CREDITS![139]":SYSO:GOTO1
  80. 351 GOTO980
  81. 500 A$="[139]\C1- \CN[195][210][193][208][211] \C1-[139]":SYSO
  82. 501 A$="[139]\C5    [212]HE OBJECT  OF THIS  GAME IS":SYSO
  83. 502 A$="[139]SIMPLE- ROLL TWO DICE AND TRY TO":SYSO
  84. 503 A$="[139]MATCH YOUR PREVIOUS SCORE ON":SYSO
  85. 504 A$="[139]ANOTHER ROLL. [201]F IT IS 7 OR 11 ON":SYSO
  86. 505 A$="[139]THE FIRST ROLL IT IS AN AUTOMATIC":SYSO
  87. 506 A$="[139]WIN.  [201]F A 2 RESULTS ANY TIME":SYSO
  88. 507 A$="[139]THROUGHOUT THE GAME YOU LOSE![139]":SYSO
  89. 509 A$="[139][200]IT [210][197][212][213][210][206]:\I1":SYSO:RETURN
  90. 510 A$="[139]\C1- \CN[200]IGHER/[204]OWER \C1-[139]":SYSO
  91. 511 A$="[139]\C7    [212]HE COMPUTER WILL FIRST GIVE":SYSO
  92. 512 A$="[139]YOU A NUMBER AND THEN RANDOMLY":SYSO
  93. 513 A$="[139]PICK ANOTHER NUMBER.  [217]OU WILL":SYSO
  94. 514 A$="[139]THEN HAVE TO GUESS WHETHER THE":SYSO
  95. 515 A$="[139]RANDOM NUMBER IS HIGHER OR LOWER":SYSO
  96. 516 A$="[139]THAN THE FIRST NUMBER.":SYSO
  97. 517 A$="[139][139]\C6[200]OT [210][197][212][213][210][206]:\C7\I1":SYSO:RETURN
  98. 530 A$="[139]\C1- \C7[199]UESS MY [206]UMBER \C1-\C5[139]":SYSO
  99. 531 A$="[139]    [217]OU WILL GET 5 CHANCES TO GUESS A":SYSO
  100. 532 A$="[139]NUMBER BETWEEN 1 AND 100.  [201]F YOU DO":SYSO
  101. 533 A$="[139]GUESS IT, YOU WILL WIN 100 CREDITS.":SYSO
  102. 534 A$="[139][201]F AFTER 5 TRIES YOU DON'T GET IT,":SYSO
  103. 535 A$="[139]YOU GET LOGGED OFF.[139]":SYSO
  104. 536 A$="[139]\C6[200]IT [210][197][212][213][210][206]:\C7\I1":SYSO:RETURN
  105. 950 A$="[139]\C6[196]O YOU NEED INSTRUCTIONS? \C1":SYSO
  106. 951 GOSUB1006:IFTR$<""THEN1080
  107. 952 IFAN$<>"[217]" THEN RETURN
  108. 953 ONAGOTO500,530,510
  109. 954 RETURN
  110. 970 CR=CR+100:GOTO980
  111. 971 A$="[139]\C6[212]HE NUMBER WAS\C7"+STR$(I1)+"\C6![139]":SYSO
  112. 980 A$="[139]\C5[204]OG-ON; \C7"+LT$+"[139]\C5[204]OGOFF; \C7\V0":SYSO
  113. 981 AN$=" INFINITE TIME":IFPEEK(53251)<>255THENAN$=STR$(PEEK(53251))+" MINUTES"
  114. 982 A$="[139]\C5[217]OU HAD\C7\V7 \C5REMAINING.[139]":SYSO
  115. 983 A$="[139]\C1>\C5[204]OG-OFF CONFIRMED.[139]":SYSO
  116. 984 DR=1:A$="SYS.END":GOSUB1076
  117. 985 GOTO1704
  118. 999 REM/SHA/1-201-854-0273
  119. 0 
  120.