home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 173 / BLAKJACK.sis / BLAKJACK.APP / BLAKJACK.txt
Encoding:
Text File  |  2001-10-19  |  11.4 KB  |  522 lines
  1. &c:\Programming\My S5 listings\Blakjacks
  2. INSS%
  3. MATCH&
  4. HIGH&
  5. TITLE$
  6. PROG$
  7. REGNET$
  8. VERSION$
  9. ADDR1$
  10. ADDR2$
  11. MACHINE$
  12. TIMES%
  13. PLUS%
  14. FORM$
  15. INIT$
  16. NEWID
  17. IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
  18. Black Jack
  19. Blakjack
  20. + HTTP://WWW.BJV.BTINTERNET.CO.UK/
  21. +1Ben Vaughan. 25 Upper Bevendean Avenue, Brighton,
  22. +"East Sussex, BN2-4FG. England. UK.
  23. CAJDFGC
  24. -PrefsKO
  25. -RegKO
  26. BJSAVGAMO
  27. BJ-Prefs
  28. SO1% 
  29. SO2% 
  30. BJ-RegW
  31. BJ-Reg
  32. CasinoBlackjack
  33. +    BJACK.MBMW(
  34. UP.MBMW(
  35. DN.MBMW(
  36. BJSAVGAMW
  37. BJSAVGAM
  38. O'O#O
  39. O'O&O
  40. O'O&O
  41. Ob@[    
  42. CASINO BLACKJACK
  43. Number of packsO
  44. +.You must register to change number of packs...
  45. Packs set to 
  46. O'O`O
  47. O'OFO
  48. Casino Blackjack
  49. OF|RO<|Jy
  50. O:O    O    O
  51. O1O    O    O
  52. O:O    O    O
  53. O1O    O    O
  54. O:O    O    O
  55. O1O    O    O
  56. O:O    O    O
  57. O    O    O
  58. CASINO BLACKJACK
  59. Number of packsO
  60. +.You must register to change number of packs...
  61. Number of packs set to 
  62. Press MenuO
  63. Press MenuO
  64.  B J Vaughan
  65. *** CASINO BLACKJACK ***
  66. PLACE YOUR BET...
  67. HEY!!!... Wait a minute.
  68. +$You are not suposed to keep winning!
  69. +&You must have been counting the cards!
  70. Take your 
  71. and consider yourself
  72. BANNED !!!
  73. Game log deleted...
  74. BJSAVGAM
  75. Press any key...O
  76. +(Not enough money, moving to new table...
  77. +>UNREGISTERED  -  YOU MUST START A NEW GAME  -  PLEASE REGISTERO
  78. +>UNREGISTERED  -  YOU MUST START A NEW GAME  -  PLEASE REGISTERO
  79. +>UNREGISTERED  -  YOU MUST START A NEW GAME  -  PLEASE REGISTERO
  80. O2O2O
  81. O2O2O
  82. O2O#O
  83. O2O#O
  84. OFFC[
  85. OH0\[
  86. D\`[q
  87. Op@[B
  88. +;Not possible to change the number of packs while playing...
  89. Om@[t
  90. Oc8\[
  91. Od0[    
  92. Op@[B
  93. +;Not possible to change the number of packs while playing...
  94. 0\`\[$
  95. |*333333
  96. @RO6|Jy
  97. |JO    |RO
  98. *STAND OFF*
  99. *STAND OFF*
  100. Insurance lost...
  101. |*333333
  102. @RO6|Jy
  103. |JO    |RO
  104. Game log deleted...
  105. BJSAVGAM
  106. YOU HAVE LOST ALL YOUR MONEY
  107. *HA-HA-HA-HE-HE-HE-HO-HO-HO*
  108. You are our favorite customer
  109. Feel free to come again soon.
  110. INSS%
  111. * BUST *
  112. * BUST *
  113. Insurance paid...
  114. Insurance lost...
  115. OsO#O
  116. STANDO
  117. OsO#O
  118. SPLITO
  119. OsO#O
  120. DOUBLEO
  121. OsO#O
  122. +    SURRENDERO
  123. OsO#O
  124. OFFC\
  125. OFFC\[
  126. EVEN MONEY?
  127. Take even money now or risk
  128. the dealer getting Blackjack...
  129. NoOn(
  130. YesOy(
  131. Oy@[[
  132. *EVEN MONEY*
  133. *EVEN MONEY*
  134. OFFC\[
  135. Insurance?
  136. +$Pay half your bet to insure yourself
  137. +#against dealer getting Blackjack...
  138. NoOn(
  139. YesOy(
  140. Oy@[%
  141. O80\[
  142. Oe0\[
  143. Too late to surrender now...
  144. SURRENDER ?
  145. Get back half your bet
  146. and end this hand...
  147. NoOn(
  148. YesOy(
  149. Oy@[b
  150. *SURRENDER*
  151. *SURRENDER*
  152. Finish this deal first...
  153. Op@[B
  154. +;Not possible to change the number of packs while playing...
  155. Oh@[r
  156. *HIT*
  157. Os@[K
  158. *STAND*
  159. *SPLIT*
  160. *DOUBLE*
  161. *LOSING HAND*
  162. *LOSING HAND*
  163. Insurance paid...
  164. Insurance lost...
  165. *WINNING HAND*
  166. *WINNING HAND*
  167. Insurance lost...
  168. +.                                              
  169. +&                                      
  170. *STAND OFF*
  171. *STAND OFF*
  172. L4@B(
  173. *BLACK*
  174. L4@B(
  175. J-A-C-K
  176. L4@B(
  177. *BLACK*
  178. L4@B(
  179. J-A-C-K
  180. L4@B(
  181. *BLACK*
  182. L4@B(
  183. J-A-C-K
  184. L4@B(
  185. *BLACK*
  186. L4@B(
  187. J-A-C-K
  188. L4@B(
  189. *BLACK*
  190. L4@B(
  191. J-A-C-K
  192. {QM1[
  193. {Q1[0
  194. +)Cards will be shuffled after this deal...
  195. REGINFO
  196. NEWID
  197. VERSION$
  198. TIMES%
  199. PLUS%
  200. INIT$
  201. TITLE$
  202. ADDR1$
  203. ADDR2$
  204. Game+
  205. Start non-logged gameOb+
  206. Start/Continue logged gameOl+
  207. RegisterOr+
  208. Return to title screenOw+
  209. Audio optionsOa+
  210. CloseOe
  211. Game+
  212. Start non-logged gameOb+
  213. Start/Continue logged gameOl+
  214. Return to title screenOw+
  215. Audio optionsOa+
  216. CloseOe
  217. Options+
  218. Number of packs (    .
  219. )KOp+
  220. Change tableOt+
  221. Set default betOf+
  222. Set CurrencyOj+
  223. Turn auto deal 
  224. Turn Insurance 
  225. Turn Even money 
  226. Information+
  227. How to playOh+
  228. More programsOu+
  229. How to RegisterOz+
  230. About Black JackOo
  231. Information+
  232. How to playOh+
  233. More programsOu+
  234. About Black JackOo
  235. CASINO BLACKJACK
  236. Of@[Y
  237. Start a game first...
  238. Default bet is now 
  239. Casino Black Jack V 
  240. +)All code, graphics & sounds 
  241.  Ben Vaughan(
  242. Written in OPL on a Series 5(
  243. Oj@[^
  244. Select Currency:+
  245. Ol@[k
  246. +%You must register to log your game...O
  247. Load log ?
  248. NoOn(
  249. YesOy(
  250. BJSAVGAMW
  251. BJSAVGAM
  252. BJSAVGAM
  253. {UE[H
  254. +!The log has been tampered with...
  255. +    DELETED !
  256. BJSAVGAM
  257. Od{1[
  258. Your game is loggedO
  259. with less than 
  260. 100KO
  261. do you want itO
  262. +    reset to 
  263. 100 ?KO
  264. NoOn(
  265. YesOy(
  266. log loaded...
  267. +!Allready playing a loaded game...
  268. Oc@[X
  269. OFFC[&
  270. Insurance is now OFF
  271. Insurance is now ON
  272. Ox@[Z
  273. OFFC['
  274. Even money is now OFF
  275. Even money is now ON
  276. Audio options
  277. Volume+
  278. OFF,LOW,MEDIUM,HIGH
  279. Bets please
  280. Options voice
  281. Please Register...
  282. +>Registering will enable all features, and give you a chance toO
  283. +@build up your winnings and see if you can bankrupt the casino...(
  284. +?It took a lot of time to write this program, so if you like it,O
  285. +>register, and I will keep writing programs for your enjoyment.(
  286. +8To find out how, select 'How to Register' from the menu.(
  287. OKOU(
  288. Finish this hand first...
  289. Return to title screen ?
  290. NoOn(
  291. YesOy(
  292. Start a fresh game ?
  293. CURRENT GAME WILLO
  294. BE LOGGED FIRST !O
  295. NoOn(
  296. YesOy(
  297. Oy@[|
  298. LOG SAVED...
  299. BJSAVGAM
  300. Start a game first...
  301. Finish this deal first...
  302. SELECT TABLE STAKES
  303. MIN BET=
  304. 2 - MAX BET=K
  305. 50,MIN BET=K
  306. 10 - MAX BET=K
  307. 250,MIN BET=K
  308. 50 - MAX BET=K
  309. 1000K
  310. You don't have enough money...
  311. O2{1[(
  312. You don't have enough money...
  313. Moving to a new table...
  314. Od@[X
  315. OFFC[&
  316. Auto deal is now OFF
  317. Auto deal is now ON
  318. -RegK
  319. -RegK
  320. + Incorrect code for this Series 5(
  321. +,Have you registered the Series 5 version of 
  322. YESOy(
  323. NOOn(
  324. Oy@[C
  325. +BHas your Series 5 been repaired or replaced since you registered ?(
  326. YESOy(
  327. NOOn(
  328. +GCheck that you entered the code exactly as it was supplied, if you did,O
  329. +Dand you are sure that you answered the previous questions correctly,O
  330. contact me, writing '
  331.  reg error with K
  332. +7Include the registration code that I supplied you with.(
  333. +2Include the approximate date of your registration.(
  334. +3I will do my best to quickly deal with the problem.O
  335. +&Select 'How to register' from the menu(
  336. +(to find out how to get the correct code.O
  337. No code enteredO
  338. How to play...
  339. +FThe dealers cards are dealt to the top on the screen. and yours to theO
  340. +Gbottom, try to make your cards total as close as possible to 21, but noO
  341. +Lhigher, or you will bust, and lose the hand. Select Hit to get another card,O
  342. +Eselect Stand when no more cards are wanted. The dealer will then takeO
  343. +Jcards until totaling 17 or higher, at which point if your cards total lessO
  344. +Jthan the dealers you lose, more than the dealers and you win, otherwise itO
  345. +Mis a Stand off and you get your bet back. Being dealt an Ace with a 10, Jack,O
  346. +LQueen or King is Blackjack, which wins unless the dealer also has Blackjack.O
  347. That is just the basics...
  348. +6Would you like to read a detailed guide to Blackjack ?(
  349. NoOn(
  350. YesOy(
  351. Oy@[e
  352. Opening document...
  353. +,If you get the message 'In use' click on theO
  354. ++Continue button, then press the 'Word' icon(
  355. +5You will need to select the Blackjack icon to return.(
  356. BJGuideK+
  357. +$Unable to display Blackjack guide...
  358. +)Make more memory available and try again.(
  359. +3All my programs can be downloaded from my Web site:(
  360. +6To receive all my Series 5 programs on a PC 3.5" disk,O
  361. +9write 'Series 5 shareware disk' and send together with 
  362. +0Cash, UK Cheque, Eurocheque or Postal Order madeO
  363. +;payable to B Vaughan, or US $10 cash or 10 Euro's cash to:-(
  364. Oe@[:
  365. Close Blackjack ?
  366. NoOn(
  367. YesOy(
  368. LOG SAVED...O
  369. BJSAVGAM
  370. BJ-Prefs
  371. SO1%$
  372. SO2%$
  373. O[0\[
  374. |*333333
  375. @RO2|Jy
  376. |RO)|Jy
  377. *BUST*
  378. |*333333
  379. @RO2|Jy
  380. |RO)|Jy
  381. *BUST*
  382. |*333333
  383. @RO2|Jy
  384. |RO)|Jy
  385. *BUST*
  386. +hA1A2A3A42122232431323334414243445152535461626364717273748182838491929394T1T2T3T4J1J2J3J4Q1Q2Q3Q4K1K2K3K4
  387. *ffffff!@Ry
  388. O5O@O
  389. O8OCO
  390. A1C[!
  391. O'O#O
  392. A2C[!
  393. O'O'O
  394. A3C[!
  395. O'O'O
  396. O|O<O
  397. 23C[!
  398. OCO    O<O
  399. OyOCO
  400. 33C[!
  401. OCO    O<O
  402. 43C[!
  403. 53C[!
  404. OyOCO
  405. 63C[!
  406. O[OCO
  407. 73C[!
  408. O<OCO
  409. 83C[!
  410. 93C[!
  411. OrO<O    O
  412. O<O    O
  413. T3C[!
  414. O    O    O
  415. O    O    O
  416. +(******* SHUFFLING * THE * CARDS ********
  417. *ffffff!@Ry
  418. O8OCO
  419. }RWBIx
  420. O    |RO
  421. REGISTERING MACHINE 
  422. Enter registration code here...O
  423. +# I  have  not  got  the  code  yet O
  424. `+- I  have  entered  the  Code - Register  now O
  425. +6SELECT 'HOW TO REGISTER' FROM THE MENU TO GET THE CODE(
  426. TITLE$
  427. ADDR1$
  428. ADDR2$
  429. REGNET$
  430. +=Registering is very easy, you will receive a code to type in,O
  431. +'you will then have the full version of 
  432.  for this Series 5,KO
  433. +<You will NOT need to re-install, your code will remain validO
  434. for all future versions of 
  435.  for the Series 5.K(
  436. +@There are 3 ways to register, select one from the choices below.(
  437. +4When registering by credit card, you will be chargedO
  438. +8the equivalent to the US $ price in your local currency.(
  439. +DTo register 3 programs and get 1 FREE, select 'Register 3 + 1 FREE'.(
  440. +  BY  MAIL / POST:  
  441. 12  or  $20 Oa(
  442. ***  Register 3 + 1 FREE  ***Ob(
  443. BY  CREDIT  CARD:  $25Oc(
  444. Oa@[)
  445. Write clearly 'Series 5 
  446. ', andK(
  447. ' (This Series 5's Unique ID)K(
  448. +1Write clearly your email address if you have one.(
  449. +FInclude 
  450. 12 cash, postal order, UK cheque or Euro cheque, made payableO
  451. +Fto B Vaughan, or send US $20 (cash only) or 20 Euro's (cash only) to:-(
  452. +#I will send you a code to register 
  453.  to this Series 5.K(
  454. +EMake sure that the ID (above) is copied correctly and is easily read.O
  455.  BACK Oc(
  456. REGISTER 3 - GET 1 FREE(
  457. +3All my programs can be downloaded from my Web site,(
  458. ++or I can mail them to you on a floppy disk,O
  459. +1select 'More programs' from the menu for details.(
  460. +JThere are two ways you can take advantage of this offer, select one below.(
  461.  BACK Oc(
  462. `+  BY  MAIL / POST:  
  463. 36  or  $60 Oa(
  464.  BY  CREDIT  CARD:  $75 Ob(
  465. +HChoose any 4 of my Series 5 programs and write down their names clearly.(
  466. Write clearly '
  467. ' (this Series 5's unique ID),K(
  468. +Iinclude your email address if you have one (write clearly), and 
  469. 36 cash,O
  470. +BUK cheque, Euro cheque or Postal Order, made payable to B vaughan,O
  471. +8or send US $60 (Cash only) or 60 Euro's (Cash only) to:-O
  472. +JI will send you codes to register the programs for use with this Series 5.(
  473.  BACK Oc(
  474. Ob@[7
  475. ++You can use your credit card to register...(
  476. +8If you have access to the Internet, you can register via(
  477. +:If you have difficulty registering via my web site, try...(
  478. +&http://www.reg.net/product.asp?ID=2760(
  479. This Series 5's Unique ID is 
  480. +5Make sure that in the appropriate box, you enter the,O
  481. +BID correctly and the names of the 4 programs you wish to register.(
  482. +>Or phone 1-800-999-2734 (USA), this offers REGNET code is 2760(
  483.  BACK Oc(
  484. Oc@[-
  485. ++You can use your credit card to register...(
  486. +8If you have access to the Internet, you can register via(
  487. +:If you have difficulty registering via my web site, try...(
  488. +"http://www.reg.net/product.asp?ID=
  489. This Series 5's Unique ID is 
  490. +<Make sure that you enter it correctly in the appropriate box(
  491. +<Or phone 1-800-999-2734 (USA), this programs REGNET code is 
  492. +2MAKE SURE YOU GIVE THE CORRECT SERIES 5 ID (ABOVE)O
  493.  BACK Oc(
  494. TITLE$
  495. NEW UNIQUE ID(
  496. +#A NEW REGISTRATION CODE IS REQUIRED(
  497. +4Registration entitles you to 1 free replacment code.O
  498. +5If you have previously received this then you need toO
  499. +ARegister for your new Series 5, you will then receive a new code,O
  500. +8and will be again be entitled to a free replacment code.(
  501. +;If you have not had a replacment code, contact me, writing,O
  502. ''Series 5 
  503.  replacment code for K
  504.  Why  only  2  codes Oh(
  505. Oh@[%
  506. +GThe readme.txt file that acompanies this program explains registration.(
  507. +DUp to 2 codes per registration are supplied as a means of minimisingO
  508. +@piracy, and also to keep the total ammount of time spent dealingO
  509. +1with any one registration to an acceptable level.(
  510. +GThis way most of the registration fee ends up paying for the time spentO
  511. +Hcreating each program, instead of just paying for the time spent dealingO
  512. +Iwith the registration. This is necessary when you consider the small costO
  513. +Lof registration. The end result is that I am able to spend the time requiredO
  514. +Cto make quality programs, and can charge just 
  515. 12 per registration,O
  516. +Gcompared to, for example, Purple Software's Chess which retails at 
  517.  OK O
  518. ZAPtV
  519. REGINFOdf
  520. NEWID
  521. SYSTEM\
  522.