home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / asn83.dms / asn83.adf / AUTOEXEC.AMOS / AUTOEXEC.amosSourceCode
AMOS Source Code  |  1989-04-11  |  75KB  |  1,489 lines
  1. '############################################################################# 
  2. '#                                                                           # 
  3. '#   #####  #     #    #    ######  ####### #  #  #    #    ######  #######  # 
  4. '#  #     # #     #   # #   #     # #       #  #  #   # #   #     # #        # 
  5. '#  #       #     #  #   #  #     # #       #  #  #  #   #  #     # #        # 
  6. '#  #       #     # #     # #     # #       #  #  # #     # #     # #        # 
  7. '#   #####  ####### ####### ######  ####    #  #  # ####### ######  ####     #   
  8. '#        # #     # #     # #  #    #       #  #  # #     # #  #    #        # 
  9. '#        # #     # #     # #   #   #       #  #  # #     # #   #   #        # 
  10. '#  #     # #     # #     # #    #  #       #  #  # #     # #    #  #        # 
  11. '#   #####  #     # #     # #     # #######  ## ##  #     # #     # #######  # 
  12. '#                                                                           # 
  13. '#   This Disk is Shareware so if you find it useful plaese send me ï¿½5.00    # 
  14. '#                                                                           # 
  15. '############################################################################# 
  16. Set Buffer 20
  17. Break Off 
  18. Screen Open 1,320,500,32,Lowres
  19. Flash Off : Curs Off 
  20. Load Iff "P4"
  21. Get Block 101,0,0,60,120,1 : Get Block 102,0,60,60,120,1 : Get Block 103,0,120,60,120,1 : Get Block 104,0,180,60,120,1 : Get Block 105,0,240,60,120,1
  22. Get Block 106,0,300,60,120,1 : Get Block 107,0,360,60,120,1 : Get Block 108,59,0,60,120,1 : Get Block 109,59,60,60,120,1 : Get Block 110,59,120,60,120,1
  23. Get Block 111,59,180,60,120,1 : Get Block 112,59,240,60,120,1 : Get Block 113,59,300,60,120,1 : Get Block 114,59,360,60,120,1 : Get Block 115,118,0,60,120,1
  24. Get Block 116,118,60,60,120,1 : Get Block 117,118,120,60,120,1 : Get Block 118,118,180,60,120,1 : Get Block 119,118,240,60,120,1 : Get Block 120,118,300,60,120,1
  25. Get Block 121,118,360,60,120,1 : Get Block 122,177,0,60,120,1 : Get Block 123,177,60,60,120,1 : Get Block 124,177,120,60,120,1 : Get Block 125,177,180,60,120,1
  26. Get Block 126,177,240,60,120,1 : Get Block 127,177,300,60,120,1 : Get Block 128,177,360,60,120,1 : Get Block 129,236,0,60,120,1 : Get Block 130,236,60,60,120,1 : Get Block 131,236,120,60,120,1
  27. Screen Open 1,320,400,32,Lowres
  28. Flash Off : Curs Off 
  29. Load Iff "P5"
  30. Get Block 1,118,117,61,121,1 : Get Block 2,181,117,61,121,1 : Get Block 3,244,117,61,121,1 : Get Block 4,244,241,61,121,1
  31. Get Block 201,0,0,30,30,1 : Get Block 202,29,0,30,30,1 : Get Block 203,58,0,30,30,1 : Get Block 204,87,0,30,30,1 : Get Block 205,0,29,30,30,1
  32. Get Block 206,29,29,30,30,1 : Get Block 207,58,29,30,30,1 : Get Block 208,87,29,30,30,1 : Get Block 209,0,58,30,30,1 : Get Block 210,29,58,30,30,1
  33. Get Block 211,58,58,30,30,1 : Get Block 212,87,58,30,30,1 : Get Block 213,0,87,30,30,1 : Get Block 214,29,87,30,30,1 : Get Block 215,58,87,30,30,1
  34. Get Block 216,87,87,30,30,1 : Get Block 217,0,118,117,117,1 : Get Block 218,122,2,25,25,1 : Get Block 219,148,2,25,25,1 : Get Block 220,174,2,25,25,1
  35. Get Block 221,200,2,25,25,1 : Get Block 222,227,2,20,10,1 : Get Block 223,227,16,20,10,1 : Get Block 224,250,2,20,10,1 : Get Block 225,250,16,20,10,1
  36. Get Block 226,273,1,9,10,1 : Get Block 227,284,1,9,10,1 : Get Block 228,273,13,10,9,1 : Get Block 229,285,13,10,9,1 : Get Block 230,295,1,9,9,1
  37. Get Block 231,306,1,9,9,1 : Get Block 232,297,13,9,9,1 : Get Block 233,308,13,9,9,1 : Get Block 234,123,29,39,31,1 : Get Block 235,164,29,39,31,1
  38. Get Block 236,205,29,39,31,1 : Get Block 237,246,29,39,31,1 : Get Block 238,287,29,19,19,1 : Get Block 239,287,50,19,19,1 : Get Block 240,307,29,11,11,1
  39. Get Block 241,307,41,11,11,1 : Get Block 242,307,53,11,11,1 : Get Block 243,121,63,13,44,1 : Get Block 244,136,63,13,44,1 : Get Block 245,152,63,50,17,1
  40. Get Block 246,152,81,50,17,1 : Get Block 247,152,99,50,17,1 : Get Block 248,203,63,47,22,1 : Get Block 249,203,86,47,22,1 : Get Block 250,252,63,22,11,1
  41. Get Block 251,252,75,22,11,1 : Get Block 252,253,88,25,25,1 : Get Block 253,287,71,20,11,1 : Get Block 254,287,84,20,11,1 : Get Block 265,2,241,21,34,1
  42. Get Block 266,25,241,22,34,1 : Get Block 267,49,241,19,34,1 : Get Block 268,70,241,12,34,1 : Get Block 269,84,241,14,34,1 : Get Block 270,100,241,19,34,1
  43. Get Block 271,120,241,20,34,1 : Get Block 272,142,241,16,34,1 : Get Block 273,159,241,20,34,1 : Get Block 278,2,277,21,34,1 : Get Block 279,25,277,22,34,1
  44. Get Block 280,49,277,19,34,1 : Get Block 281,70,277,12,34,1 : Get Block 282,84,277,14,34,1 : Get Block 283,100,277,19,34,1 : Get Block 284,120,277,20,34,1
  45. Get Block 285,142,277,16,34,1 : Get Block 286,159,277,20,34,1 : Get Block 297,132,312,49,15,1 : Get Block 298,132,328,49,15,1
  46. Screen Open 1,320,256,16,Lowres
  47. Flash Off : Curs Off 
  48. Palette 1,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  49. Load Iff "P2"
  50. Limit Mouse 134,48 To 441,291
  51. Flash 4,"(F00,1)(D80,1)(FF0,1)(0A0,1)(00D,1)(90F,1)(B0B,1)" : Flash 5,"(D80,1)(FF0,1)(0A0,1)(00D,1)(90F,1)(B0B,1)(F00,1)"
  52. Flash 6,"(FF0,1)(0A0,1)(00D,1)(90F,1)(B0B,1)(F00,1)(D80,1)" : Flash 12,"(0A0,1)(00D,1)(90F,1)(B0B,1)(F00,1)(D80,1)(FF0,1)"
  53. Flash 3,"(00D,1)(90F,1)(B0B,1)(F00,1)(D80,1)(FF0,1)(0A0,1)" : Flash 14,"(90F,1)(B0B,1)(F00,1)(D80,1)(FF0,1)(0A0,1)(00D,1)"
  54. Flash 13,"(B0B,1)(F00,1)(D80,1)(FF0,1)(0A0,1)(00D,1)(90F,1)"
  55. Do 
  56. If Mouse Click<>0 Then Exit 
  57. Loop 
  58. Ink 8 : Bar 16,66 To 303,238 : Pen 15 : Paper 8
  59. Locate 3,9 : Print "    Welcome to AMOSLOADSAMONEY"; : Locate 3,10 : Print "      Programmed By Gary Hunt"; : Locate 3,11 : Print "        Copyright (c) 1992";
  60. Locate 3,12 : Print "      Written using AMOS V1.3"; : Locate 3,13 : Print "Copyright (c) 1992 (Mandarin/Jawx)"; : Locate 3,14 : Print " N.B. This Programme is 1MB. (Pal)";
  61. Locate 3,15 : Print "   This Programme is an updated"; : Locate 3,16 : Print "   version of my last programme"; : Locate 3,17 : Print "       Amos Fruit Machine II";
  62. Locate 3,18 : Print " Which can be found in most Public"; : Locate 3,19 : Print " Domain Libraries, under the Title"; : Locate 3,20 : Print "      (APD Disk Number 329)";
  63. Locate 3,21 : Print "  This new version has many new"; : Locate 3,22 : Print " features over the last version"; : Locate 3,23 : Print "Which will now be explained to you.";
  64. Locate 3,25 : Print "I hope you enjoy playing this game."; : Locate 3,27 : Print " Look out for more Programmes from"; : Locate 3,28 : Print "         me in the future.";
  65. Locate 3,29 : Print "        CLICK MOUSE BUTTON";
  66. Do 
  67. If Mouse Click<>0 Then Exit 
  68. A=Rnd(10.0)
  69. Loop 
  70. Ink 8 : Bar 16,66 To 303,238
  71. Locate 3,9 : Print "HOLDS"; : Locate 3,11 : Print "At certain times you will get a"; : Locate 3,12 : Print "chance to 'HOLD' any of the four";
  72. Locate 3,13 : Print "fruit reels, this will be shown as"; : Locate 3,14 : Print "'HOLD' flashing under each reel."; : Locate 3,15 : Print "If you wish to 'HOLD' any or all";
  73. Locate 3,16 : Print "of the four fruits on display all"; : Locate 3,17 : Print "you have to do is click on the"; : Locate 3,18 : Print "flashing 'HOLD' panel under the";
  74. Locate 3,19 : Print "reel or reels that you want to"; : Locate 3,20 : Print "'HOLD', if you make a mistake or"; : Locate 3,21 : Print "change your mind you can reset the";
  75. Locate 3,22 : Print "'HOLDS' by clicking on the"; : Locate 3,23 : Print "'CANCEL' panel."; : Locate 3,26 : Print "   NEXT I WILL EXPLAIN LETTERS";
  76. Locate 11,28 : Print "CLICK MOUSE BUTTON";
  77. Do 
  78. If Mouse Click<>0 Then Exit 
  79. Loop 
  80. Bar 16,66 To 303,238
  81. Locate 3,9 : Print "LETTERS";
  82. Locate 3,11 : Print "Sometimes you will get big numbers"; : Locate 3,12 : Print "on the fruits that stop on the"; : Locate 3,13 : Print "reels, all these numbers will be";
  83. Locate 3,14 : Print "swapped for the letters of the"; : Locate 3,15 : Print "word 'AMOSLOADSAMONEY' if you"; : Locate 3,16 : Print "manage to light up all the letters";
  84. Locate 3,17 : Print "of the word 'AMOSLOADSAMONEY' you"; : Locate 3,18 : Print "will be sent to the number stack,"; : Locate 3,19 : Print "to assist you in collecting all";
  85. Locate 3,20 : Print "the letters, at certain times you"; : Locate 3,21 : Print "will be given a feature hold this"; : Locate 3,22 : Print "will have the effect of holding";
  86. Locate 3,23 : Print "all the letters that you have"; : Locate 3,24 : Print "collected so far."; : Locate 3,26 : Print " NEXT I WILL EXPLAIN NUMBER STACK";
  87. Locate 11,28 : Print "CLICK MOUSE BUTTON";
  88. Do 
  89. If Mouse Click<>0 Then Exit 
  90. Loop 
  91. Bar 16,66 To 303,238
  92. Locate 3,9 : Print "NUMBER STACK"; : Locate 3,11 : Print "When you are presented with the"; : Locate 3,12 : Print "number stack you will see two";
  93. Locate 3,13 : Print "columns of numbers, the left hand"; : Locate 3,14 : Print "column arrow indicates what win"; : Locate 3,15 : Print "you have. You can climb up this";
  94. Locate 3,16 : Print "column by correctly guessing"; : Locate 3,17 : Print "whether the next number on the"; : Locate 3,18 : Print "right hand column. To make your";
  95. Locate 3,19 : Print "guess simply click on HIGHER/LOWER"; : Locate 3,20 : Print "or COLLECT, but if you should get"; : Locate 3,21 : Print "a HIGHER/LOWER guess wrong you";
  96. Locate 3,22 : Print "will lose all your extra collected"; : Locate 3,23 : Print "prize arrows and be left with only"; : Locate 3,24 : Print "a 20p win.";
  97. Locate 3,26 : Print "NEXT I WILL EXPLAIN THE FRUIT GRID"; : Locate 11,28 : Print "CLICK MOUSE BUTTON";
  98. Do 
  99. If Mouse Click<>0 Then Exit 
  100. Loop 
  101. Bar 16,66 To 303,238
  102. Locate 3,9 : Print "FRUIT GRID"; : Locate 3,11 : Print "After each spin of the reels you"; : Locate 3,12 : Print "will see the fruit grid, and all";
  103. Locate 3,13 : Print "the fruits that appeared on the"; : Locate 3,14 : Print "reels will be lit on the fruit"; : Locate 3,15 : Print "grid. When you have lit any line";
  104. Locate 3,16 : Print "of four fruits indicated by the"; : Locate 3,17 : Print "arrows you will get one win spin."; : Locate 3,18 : Print "If you manage to light all the";
  105. Locate 3,19 : Print "fruits in the fruit grid you will"; : Locate 3,20 : Print "get ten win spins. To help you in"; : Locate 3,21 : Print "getting more lines sometimes the";
  106. Locate 3,22 : Print "fruit grid will hold all the"; : Locate 3,23 : Print "fruits that you collected."; : Locate 3,25 : Print "  NEXT I WILL EXPLAIN WIN SPINS";
  107. Locate 11,28 : Print "CLICK MOUSE BUTTON";
  108. Do 
  109. If Mouse Click<>0 Then Exit 
  110. Loop 
  111. Bar 16,66 To 303,238
  112. Locate 3,9 : Print "WIN SPINS"; : Locate 3,11 : Print "If you get any win spins from the"; : Locate 3,12 : Print "number stack or the fruit grid all";
  113. Locate 3,13 : Print "the reels will shuffle to give you"; : Locate 3,14 : Print "a random line of three fruits from"; : Locate 3,15 : Print "the left or the right, this will";
  114. Locate 3,16 : Print "be worth anything from 30p to ï¿½5"; : Locate 3,17 : Print "You will then have the chance to"; : Locate 3,18 : Print "gamble or collect your winnings.";
  115. Locate 3,20 : Print "SUPERWINS"; : Locate 3,21 : Print "Superwins work the same way as win"; : Locate 3,22 : Print "spins except they are four of a";
  116. Locate 3,23 : Print "kind instead of three of a kind."; : Locate 3,24 : Print "N.B. After any type of winspin the"; : Locate 3,25 : Print "reels will reset to their original";
  117. Locate 3,26 : Print "positions."; : Locate 3,28 : Print "  NEXT I WILL EXPLAIN SKILL CASH"; : Locate 11,29 : Print "CLICK MOUSE BUTTON";
  118. Do 
  119. If Mouse Click<>0 Then Exit 
  120. Loop 
  121. Bar 16,66 To 303,238
  122. Locate 3,9 : Print "SKILL CASH"; : Locate 3,11 : Print "If you get to the skill cash you"; : Locate 3,12 : Print "will see a column of coins moving";
  123. Locate 3,13 : Print "across the screen, use the mouse"; : Locate 3,14 : Print "to grab as many coins as possible."; : Locate 3,15 : Print "This will be repeated on six lines";
  124. Locate 3,16 : Print "Line 1 is worth ï¿½0.10p per Coin"; : Locate 3,17 : Print "Line 2 is worth ï¿½0.10p per Coin"; : Locate 3,18 : Print "Line 3 is worth ï¿½0.20p per Coin";
  125. Locate 3,19 : Print "Line 4 is worth ï¿½0.20p per Coin"; : Locate 3,20 : Print "Line 5 is worth ï¿½0.50p per Coin"; : Locate 3,21 : Print "Line 6 is worth ï¿½1.00p per Coin";
  126. Locate 3,22 : Print "After you have stopped all six"; : Locate 3,23 : Print "lines of coins you will have the"; : Locate 3,24 : Print "chance to multiply your total by";
  127. Locate 3,25 : Print "one, two, or three."; : Locate 3,26 : Print " NEXT I WILL EXPLAIN SKILL FRUIT"; : Locate 11,28 : Print "CLICK MOUSE BUTTON";
  128. Do 
  129. If Mouse Click<>0 Then Exit 
  130. Loop 
  131. Bar 16,66 To 303,238
  132. Locate 3,9 : Print "SKILL CASH"; : Locate 3,11 : Print "When you get to the skill fruit"; : Locate 3,12 : Print "you will see a large wheel that is";
  133. Locate 3,13 : Print "containing all of the fruits in"; : Locate 3,14 : Print "this game. Use your skill with"; : Locate 3,15 : Print "the mouse to try and stop the orb";
  134. Locate 3,16 : Print "on the fruit you most want a line"; : Locate 3,17 : Print "of, when you have selected the"; : Locate 3,18 : Print "fruit you want, the machine will";
  135. Locate 3,19 : Print "then spin you a win of that fruit."; : Locate 3,20 : Print "sometimes it will be a line of"; : Locate 3,21 : Print "three of a kind, and sometimes it";
  136. Locate 3,22 : Print "will be a line of four of a kind,"; : Locate 3,23 : Print "but this will be at random."; : Locate 3,24 : Print "N.B. The reels will also reset";
  137. Locate 3,25 : Print "after spinning your win."; : Locate 3,27 : Print " NEXT I WILL EXPLAIN SKILL NUDGE"; : Locate 11,28 : Print "CLICK MOUSE BUTTON";
  138. Do 
  139. If Mouse Click<>0 Then Exit 
  140. Loop 
  141. Bar 16,66 To 303,238
  142. Locate 3,9 : Print "SKILL NUDGE"; : Locate 3,11 : Print "When you get a skill nudge you"; : Locate 3,12 : Print "will see a stack of nudge lights";
  143. Locate 3,13 : Print "moving up the screen, by using"; : Locate 3,14 : Print "your skill try to get as many"; : Locate 3,15 : Print "nudges as possible, up to a";
  144. Locate 3,16 : Print "maximum of 14. You will then be"; : Locate 3,17 : Print "sent to the reels and you see that"; : Locate 3,18 : Print "the hold lights, now read 'NUDGE'";
  145. Locate 3,19 : Print "also you will see above the start"; : Locate 3,20 : Print "button the number and direction of"; : Locate 3,21 : Print "the nudges, if you wish to change";
  146. Locate 3,22 : Print "the direction of the nudges click"; : Locate 3,23 : Print "on the unlit direction arrow."; : Locate 3,26 : Print "      CONTINUED ON NEXT PAGE";
  147. Locate 11,28 : Print "CLICK MOUSE BUTTON";
  148. Do 
  149. If Mouse Click<>0 Then Exit 
  150. Loop 
  151. Bar 16,66 To 303,238
  152. Locate 3,9 : Print "SKILL NUDGE CONTINUED"; : Locate 3,11 : Print "This will not cost you any nudges,"; : Locate 3,12 : Print "so you can swap direction as many";
  153. Locate 3,13 : Print "times as you like. To nudge any"; : Locate 3,14 : Print "reel to a winning combination all"; : Locate 3,15 : Print "you have to do is click under the";
  154. Locate 3,16 : Print "reel you want to move, nudges will"; : Locate 3,17 : Print "end when you run out of nudges or"; : Locate 3,18 : Print "you get a win. Nudge carefully";
  155. Locate 3,19 : Print "when you are going for a four of a"; : Locate 3,20 : Print "kind win as if you get three of a"; : Locate 3,21 : Print "kind first at either end, the";
  156. Locate 3,22 : Print "nudges will stop. E.G. nudge so"; : Locate 3,23 : Print "that the reels fall in as 1,3,2,4"; : Locate 3,24 : Print "and not 1,2,3,4.";
  157. Locate 3,26 : Print "  NEXT I WILL EXPLAIN MONEY POTS"; : Locate 11,28 : Print "CLICK MOUSE BUTTON";
  158. Do 
  159. If Mouse Click<>0 Then Exit 
  160. Loop 
  161. Bar 16,66 To 303,238
  162. Locate 3,9 : Print "BRONZE/SILVER/GOLD/CASH POTS"; : Locate 3,11 : Print "If you get four of a kind of any"; : Locate 3,12 : Print "of these pots you will win what";
  163. Locate 3,13 : Print "ever is inside them, during normal"; : Locate 3,14 : Print "play all of these pots will slowly"; : Locate 3,15 : Print "increase in value until they are";
  164. Locate 3,16 : Print "won or reach their maximum, the"; : Locate 3,17 : Print "limits for each pot is as follows:"; : Locate 3,19 : Print "Bronze Pot ï¿½25.00p";
  165. Locate 3,20 : Print "Silver Pot ï¿½50.00p"; : Locate 3,21 : Print "Gold Pot  ï¿½100.00p"; : Locate 3,22 : Print "Cash Pot  ï¿½150.00p";
  166. Locate 3,26 : Print "    NEXT I WILL EXPLAIN GAMBLE"; : Locate 11,28 : Print "CLICK MOUSE BUTTON";
  167. Do 
  168. If Mouse Click<>0 Then Exit 
  169. Loop 
  170. Bar 16,66 To 303,238
  171. Locate 3,9 : Print "GAMBLE"; : Locate 3,11 : Print "After a win of any kind on any"; : Locate 3,12 : Print "feature you will be sent to the";
  172. Locate 3,13 : Print "gamble screen. On the gamble"; : Locate 3,14 : Print "screen you will see a large stack"; : Locate 3,15 : Print "of odds buttons and numbers, to";
  173. Locate 3,16 : Print "gamble simply select the odds and"; : Locate 3,17 : Print "the numbers you think the orb will"; : Locate 3,18 : Print "land in, then just click on that";
  174. Locate 3,19 : Print "button, the orb will then spin and"; : Locate 3,20 : Print "stop at a random position. If your"; : Locate 3,21 : Print "selection was right then your win";
  175. Locate 3,22 : Print "will be multiplied by the odds you"; : Locate 3,23 : Print "selected. You can gamble as many"; : Locate 3,24 : Print "times as you like up to a maximum";
  176. Locate 3,25 : Print "win of ï¿½ 99999.90p"; : Locate 3,26 : Print " NEXT I WILL SHOW WHAT EACH FRUIT"; : Locate 3,27 : Print "             IS WORTH.";
  177. Locate 11,28 : Print "CLICK MOUSE BUTTON";
  178. Do 
  179. If Mouse Click<>0 Then Exit 
  180. Loop 
  181. Bar 16,66 To 303,238
  182. Locate 3,9 : Print "FRUIT VALUES"; : Locate 3,11 : Print "              x3        x4"; : Locate 3,12 : Print "Cherry      ï¿½0.30p  ï¿½  2.00p";
  183. Locate 3,13 : Print "Lemon       ï¿½0.50p  ï¿½  3.00p"; : Locate 3,14 : Print "Orange      ï¿½0.80p  ï¿½  4.00p"; : Locate 3,15 : Print "Plum        ï¿½1.00p  ï¿½  5.00p";
  184. Locate 3,16 : Print "Apple       ï¿½1.20p  ï¿½  6.00p"; : Locate 3,17 : Print "Pear        ï¿½1.40p  ï¿½  7.00p"; : Locate 3,18 : Print "Grape       ï¿½1.60p  ï¿½  8.00p";
  185. Locate 3,19 : Print "Melon       ï¿½1.80p  ï¿½ 10.00p"; : Locate 3,20 : Print "Single Bar  ï¿½2.00p  ï¿½ 20.00p"; : Locate 3,21 : Print "Double Bar  ï¿½2.50p  ï¿½ 50.00p";
  186. Locate 3,22 : Print "Triple Bar  ï¿½3.50p  ï¿½100.00p"; : Locate 3,23 : Print "Bronze Pot  ï¿½2.20p  ï¿½ 25.00p (Max)"; : Locate 3,24 : Print "Silver Pot  ï¿½3.00p  ï¿½ 50.00p (Max)";
  187. Locate 3,25 : Print "Gold Pot    ï¿½4.00p  ï¿½100.00p (Max)"; : Locate 3,26 : Print "Cash Pot    ï¿½4.50p  ï¿½150.00p (Max)"; : Locate 3,27 : Print "Jackpot     ï¿½5.00p  ï¿½150.00p";
  188. Locate 3,28 : Print "  NOW FOR THE CUSTOMARY GREETINGS "; : Locate 11,29 : Print "CLICK MOUSE BUTTON";
  189. Do 
  190. If Mouse Click<>0 Then Exit 
  191. Loop 
  192. Bar 16,66 To 303,238
  193. Locate 3,9 : Print "GREETINGS"; : Locate 3,11 : Print "Here it is the boring bit, the"; : Locate 3,12 : Print "Greetings to one and all..."; : Locate 3,14 : Print "Greetings to Francois Lionet and";
  194. Locate 3,15 : Print "all the team at Mandarin/Jawx for"; : Locate 3,16 : Print "creating this wonderful programme"; : Locate 3,17 : Print "AMOS, keep up the good work. P.S."; : Locate 3,18 : Print "is there any more updates in the";
  195. Locate 3,19 : Print "pipeline ?.  Also Greetings go to"; : Locate 3,20 : Print "Sandra Sharkey at Deja Vu."; : Locate 3,21 : Print "and Anne Tucker at AMOS P.D";
  196. NAME:
  197. Locate 3,24 : Print "                                  ";
  198. Locate 3,23 : Print "Enter Your Name (Max 8 Letters)";
  199. Locate 3,24 : Input NAME$; : Curs Off 
  200. If Len(NAME$)>8 Then Goto NAME : 
  201. Locate 3,28 : Print "NEXT IS A NOTE FROM THE PROGRAMMER";
  202. Locate 9,29 : Print "CLICK MOUSE TO CONTINUE";
  203. Do 
  204. If Mouse Click<>0 Then Exit 
  205. Loop 
  206. Bar 16,66 To 303,238
  207. Locate 3,9 : Print "NOTE";
  208. Locate 3,11 : Print "This Programme is Shareware."; : Locate 3,12 : Print "If you find it useful please send"; : Locate 3,13 : Print "Me ï¿½5.00 (Sterling) at the address";
  209. Locate 3,14 : Print "below thank you...."; : Locate 3,16 : Print "Have you wrote an AMOS Programme ?"; : Locate 3,17 : Print "If so why not send me a copy!";
  210. Locate 3,18 : Print "Also if you have any comments or"; : Locate 3,19 : Print "suggestions about this Programme"; : Locate 3,20 : Print "you can drop me a line at this";
  211. Locate 3,21 : Print "address:"; : Locate 3,23 : Print "Mr Gary Hunt."; : Locate 3,24 : Print "74, Ferndale Road,";
  212. Locate 3,25 : Print "Leytonstone,"; : Locate 3,26 : Print "London. E11 3DN."; : Locate 3,27 : Print "England. UK.";
  213. Do 
  214. If Mouse Click<>0 Then Exit 
  215. Loop 
  216. Fade 15 : Wait 225 : Flash Off : Cls 
  217. Screen Open 1,320,256,32,Lowres
  218. Flash Off : Curs Off 
  219. Load Iff "P9"
  220. Screen Open 2,320,256,32,Lowres
  221. Flash Off : Curs Off 
  222. Load Iff "P1"
  223. Screen To Front 1 : Screen 1
  224. CA#=5.0 : BRO#=10.0 : SIL#=15.0 : GOL#=20.0 : CSS#=25.0 : NUDGES=0.0 : R1=119.0 : R2=127.0 : R3=123.0 : R4=112.0
  225. STRT:
  226. FE=Rnd(6.0)
  227. If CHEAT=1.0 Then FE=6.0
  228. If FE=6.0 and NUM>0.0 Then Gosub LITEFH : 
  229. If FE<>6.0 Then Put Block 244,8,8
  230. If F2<>6.0 Then Gosub WIPEFRUITGRID : 
  231. Limit Mouse 403,199 To 432,253 : HO=Rnd(6.0)
  232. If CHEAT=1.0 Then HO=6.0
  233. If HO=6.0 Then Limit Mouse 141,199 To 434,282
  234. Pen 3 : Paper 2 : Locate 2,8 : Print NAME$; : Print "'s Cash ï¿½ "; : Print Using "#####.#";CA#;
  235. Locate 36,15 : Print Using "##";NUDGES; : Colour 24,$0
  236. If HO=6.0 Then Colour 25,$C00 : Play 2,20,5 : Play 2,30,5 : Play 2,40,5 : Colour 24,$A0
  237. SRS:
  238. TME=0.0
  239. Do 
  240. If Mouse Click<>0 Then Exit 
  241. Colour 24,$0
  242. If HO=6.0 Then Colour 25,$0
  243. Wait 4 : A=Rnd(10.0) : Colour 24,$F0
  244. If HO=6.0 Then Colour 25,$C00
  245. Wait 4 : TME=TME+1.0
  246. If TME>200.0 Then Gosub VVV : 
  247. Loop 
  248. TME=0.0
  249. If X Mouse>402 and X Mouse<433 and Y Mouse>198 and Y Mouse<254 Then Goto STS : 
  250. If HO=6.0 and X Mouse>140 and X Mouse<189 and Y Mouse>267 and Y Mouse<283 Then Put Block 247,12,225 : H1=1.0 : Play 2,30,5
  251. If HO=6.0 and X Mouse>201 and X Mouse<250 and Y Mouse>267 and Y Mouse<283 Then Put Block 247,73,225 : H2=1.0 : Play 2,30,5
  252. If HO=6.0 and X Mouse>262 and X Mouse<311 and Y Mouse>267 and Y Mouse<283 Then Put Block 247,134,225 : H3=1.0 : Play 2,30,5
  253. If HO=6.0 and X Mouse>323 and X Mouse<372 and Y Mouse>267 and Y Mouse<283 Then Put Block 247,195,225 : H4=1.0 : Play 2,30,5
  254. If HO=6.0 and X Mouse>384 and X Mouse<433 and Y Mouse>267 and Y Mouse<283 Then Put Block 245,12,225 : Put Block 245,73,225 : Put Block 245,134,225 : Put Block 245,195,225 : H1=0.0 : H2=0.0 : H3=0.0 : H4=0.0 : Play 2,10,5
  255. Goto SRS : 
  256. STS:
  257. If FE<>6.0 Then Gosub WIPELETTERS : 
  258. Colour 24,$0 : Colour 25,$0 : CA#=CA#-0.2 : PI=Rnd(3.0)+1.0 : AD#=Rnd(20.0)/10.0
  259. If PI=4.0 Then BRO#=BRO#+AD#
  260. If PI=3.0 Then SIL#=SIL#+AD#
  261. If PI=2.0 Then GOL#=GOL#+AD#
  262. If PI=1.0 Then CSS#=CSS#+AD#
  263. If BRO#>25.0 Then BRO#=25.0
  264. If SIL#>50.0 Then SIL#=50.0
  265. If GOL#>100.0 Then GOL#=100.0
  266. If CSS#>150.0 Then CSS#=150.0
  267. Screen 2
  268. If F2<>6.0 Then Put Block 217,189,57
  269. Screen 1
  270. Locate 2,8 : Print "                                 ";
  271. MESSAGE=Rnd(24.0)+1.0
  272. If MESSAGE=1.0 Then Locate 2,8 : Print "Good luck you're going to need it";
  273. If MESSAGE=2.0 Then Locate 2,8 : Print "Gambling is a mug's game you know";
  274. If MESSAGE=3.0 Then Locate 2,8 : Print "You're not going to win. I am";
  275. If MESSAGE=4.0 Then Locate 2,8 : Print "I'm Better than Dirty Cash";
  276. If MESSAGE=5.0 Then Locate 2,8 : Print "I'm Too Sexy for P.D";
  277. If MESSAGE=6.0 Then Locate 2,8 : Print "I always win in the end";
  278. If MESSAGE=7.0 Then Locate 2,8 : Print "Heads I win tails you lose";
  279. If MESSAGE=8.0 Then Locate 2,8 : Print "Good job this is not for (Reel)";
  280. If MESSAGE=9.0 Then Locate 2,8 : Print "Money Money Money and all mine";
  281. If MESSAGE=10.0 Then Locate 2,8 : Print "That's another 20p you've lost";
  282. If MESSAGE=11.0 Then Locate 2,8 : Print "One born every minute";
  283. If MESSAGE=12.0 Then Locate 2,8 : Print "Feeling Fruity ?";
  284. If MESSAGE=13.0 Then Locate 2,8 : Print "Will you get a Win this go ?";
  285. If MESSAGE=14.0 Then Locate 2,8 : Print "Are you addicted yet ?";
  286. If MESSAGE=15.0 Then Locate 2,8 : Print "I've been programmed to Lose";
  287. If MESSAGE=16.0 Then Locate 2,8 : Print "I've already paid the Jackpot today";
  288. If MESSAGE=17.0 Then Locate 2,8 : Print "I've got all your money";
  289. If MESSAGE=18.0 Then Locate 2,8 : Print "Another one bites the dust";
  290. If MESSAGE=19.0 Then Locate 2,8 : Print "Gimme all your money";
  291. If MESSAGE=20.0 Then Locate 2,8 : Print "Do you feel lucky ?";
  292. If MESSAGE=21.0 Then Locate 2,8 : Print "It's not your lucky day";
  293. If MESSAGE=22.0 Then Locate 2,8 : Print "Better luck next go";
  294. If MESSAGE=23.0 Then Locate 2,8 : Print "I could get used to this";
  295. If MESSAGE=24.0 Then Locate 2,8 : Print "Where is that Jackpot ?";
  296. If MESSAGE=25.0 Then Locate 2,8 : Print "I'll be a Millionaire at this rate";
  297. If H1=0.0 Then R1=Rnd(30.0)+101.0
  298. If H2=0.0 Then R2=Rnd(30.0)+101.0
  299. If H3=0.0 Then R3=Rnd(30.0)+101.0
  300. If H4=0.0 Then R4=Rnd(30.0)+101.0
  301. For XX=1 To 3
  302. If H1=0.0 Then Put Block 1,13,87
  303. If H2=0.0 Then Put Block 1,75,87
  304. If H3=0.0 Then Put Block 1,137,87
  305. If H4=0.0 Then Put Block 1,199,87
  306. If H1=0.0 Then Put Block 2,13,87
  307. If H2=0.0 Then Put Block 2,75,87
  308. If H3=0.0 Then Put Block 2,137,87
  309. If H4=0.0 Then Put Block 2,199,87
  310. If H1=0.0 Then Put Block 3,13,87
  311. If H2=0.0 Then Put Block 3,75,87
  312. If H3=0.0 Then Put Block 3,137,87
  313. If H4=0.0 Then Put Block 3,199,87
  314. If H1=0.0 Then Put Block 4,13,87
  315. If H2=0.0 Then Put Block 4,75,87
  316. If H3=0.0 Then Put Block 4,137,87
  317. If H4=0.0 Then Put Block 4,199,87
  318. Next XX
  319. Put Block R1,14,88 : Play 1,10,0 : Plot 14,147,1 : Plot 73,147,1 : Plot 14,207,1
  320. For XX=1 To 4
  321. If H2=0.0 Then Put Block 1,75,87
  322. If H3=0.0 Then Put Block 1,137,87
  323. If H4=0.0 Then Put Block 1,199,87
  324. If H2=0.0 Then Put Block 2,75,87
  325. If H3=0.0 Then Put Block 2,137,87
  326. If H4=0.0 Then Put Block 2,199,87
  327. If H2=0.0 Then Put Block 3,75,87
  328. If H3=0.0 Then Put Block 3,137,87
  329. If H4=0.0 Then Put Block 3,199,87
  330. If H2=0.0 Then Put Block 4,75,87
  331. If H3=0.0 Then Put Block 4,137,87
  332. If H4=0.0 Then Put Block 4,199,87
  333. Next XX
  334. Put Block R2,76,88 : Play 1,10,0 : Plot 76,147,1 : Plot 135,147,1 : Plot 76,207,1
  335. For XX=1 To 6
  336. If H3=0.0 Then Put Block 1,137,87
  337. If H4=0.0 Then Put Block 1,199,87
  338. If H3=0.0 Then Put Block 2,137,87
  339. If H4=0.0 Then Put Block 2,199,87
  340. If H3=0.0 Then Put Block 3,137,87
  341. If H4=0.0 Then Put Block 3,199,87
  342. If H3=0.0 Then Put Block 4,137,87
  343. If H4=0.0 Then Put Block 4,199,87
  344. Next XX
  345. Put Block R3,138,88 : Play 1,10,0 : Plot 138,147,1 : Plot 197,147,1 : Plot 138,207,1
  346. For XX=1 To 10
  347. If H4=0.0 Then Put Block 1,199,87
  348. If H4=0.0 Then Put Block 2,199,87
  349. If H4=0.0 Then Put Block 3,199,87
  350. If H4=0.0 Then Put Block 4,199,87
  351. Next XX
  352. Put Block R4,200,88 : Play 1,10,0 : Plot 200,147,1 : Plot 259,147,1 : Plot 200,207,1
  353. Put Block 245,12,225 : Put Block 245,73,225 : Put Block 245,134,225 : Put Block 245,195,225
  354. H1=0.0 : H2=0.0 : H3=0.0 : H4=0.0 : Wait 50
  355. Locate 2,8 : Print Space$(36);
  356. Gosub CHECKIFWIN : 
  357. Gosub FRUITGRID : 
  358. If WS>0.0 Then Gosub WINSPINS : 
  359. If WI#>0.0 Then Gosub GAMBLE : 
  360. Gosub COUNTNUMBERS : 
  361. Gosub LIGHTLETTERS : 
  362. If NUM=15.0 Then Gosub NUMBERSTACK : 
  363. Wait 20
  364. If CA#<0.2 Then Gosub TZX : 
  365. Goto STRT : 
  366. TZX:
  367. A$="                                   "
  368. A$=A$+"Unlucky "+NAME$+" AMOSLOADSAMONEY has won yet again, Just like I "
  369. A$=A$+"said I would. Well as the old saying goes 'A Fool and His/Her "
  370. A$=A$+"money are soon parted'. "+NAME$+" do you want to play again ?. If "
  371. A$=A$+"so just press 'y' if you want to quit just press 'n'. So go on hit "
  372. A$=A$+"a key. If you have any comments or suggestions about this game you "
  373. A$=A$+"can write to me at this address: Mr Gary Hunt. 74 Ferndale Road, "
  374. A$=A$+"Leytonstone, London, E11 3DN. Don't Forget "+NAME$+" This Disk is "
  375. A$=A$+"Shareware so if you find it useful please send me ï¿½5.00 (Sterling). "
  376. A$=A$+"to the address in this scroll. "
  377. SGH:
  378. For P=1 To Len(A$)
  379. Locate 2,8 : Print Mid$(A$,P,36);
  380. If Inkey$="y" Then CA#=CA#+5.0 : Locate 2,8 : Print Space$(36); : Return 
  381. If Inkey$="n" Then Goto SHK : 
  382. If Inkey$="z" Then Gosub PASS : 
  383. Wait 8
  384. Next P
  385. Goto SGH : 
  386. SHK:
  387. Hide : Cls 2 : Locate 16,15 : Pen 1 : Paper 2 : Print "Game  Over";
  388. Locate 2,25 : Print "Good bye "+NAME$+" I hope to see you";
  389. Locate 2,26 : Print "again sometime in the future. Gary.";
  390. Do 
  391. Loop 
  392. PASS:
  393. Locate 2,8 : Print Space$(36) : Locate 2,8 : Print "Enter Password";
  394. Input PASS$
  395. If PASS$="Oranges and Lemons" Then CHEAT=1.0
  396. Locate 2,8 : Print Space$(36); : Curs Off : Return 
  397. CHECKIFWIN:
  398. Z1=Point(73,207) : Z2=Point(135,207) : Z3=Point(197,207) : Z4=Point(259,207)
  399. If Z2<>Z3 Then Return 
  400. If Z1=3 and Z2=3 and Z3=3 and Z4<>3 Then WI#=WI#+0.3
  401. If Z1<>3 and Z2=3 and Z3=3 and Z4=3 Then WI#=WI#+0.3
  402. If Z1=4 and Z2=4 and Z3=4 and Z4<>4 Then WI#=WI#+0.5
  403. If Z1<>4 and Z2=4 and Z3=4 and Z4=4 Then WI#=WI#+0.5
  404. If Z1=5 and Z2=5 and Z3=5 and Z4<>5 Then WI#=WI#+0.8
  405. If Z1<>5 and Z2=5 and Z3=5 and Z4=5 Then WI#=WI#+0.8
  406. If Z1=6 and Z2=6 and Z3=6 and Z4<>6 Then WI#=WI#+1.0
  407. If Z1<>6 and Z2=6 and Z3=6 and Z4=6 Then WI#=WI#+1.0
  408. If Z1=7 and Z2=7 and Z3=7 and Z4<>7 Then WI#=WI#+1.2
  409. If Z1<>7 and Z2=7 and Z3=7 and Z4=7 Then WI#=WI#+1.2
  410. If Z1=8 and Z2=8 and Z3=8 and Z4<>8 Then WI#=WI#+1.4
  411. If Z1<>8 and Z2=8 and Z3=8 and Z4=8 Then WI#=WI#+1.4
  412. If Z1=9 and Z2=9 and Z3=9 and Z4<>9 Then WI#=WI#+1.6
  413. If Z1<>9 and Z2=9 and Z3=9 and Z4=9 Then WI#=WI#+1.6
  414. If Z1=10 and Z2=10 and Z3=10 and Z4<>10 Then WI#=WI#+1.8
  415. If Z1<>10 and Z2=10 and Z3=10 and Z4=10 Then WI#=WI#+1.8
  416. If Z1=11 and Z2=11 and Z3=11 and Z4<>11 Then WI#=WI#+2.0
  417. If Z1<>11 and Z2=11 and Z3=11 and Z4=11 Then WI#=WI#+2.0
  418. If Z1=12 and Z3=12 and Z3=12 and Z4<>12 Then WI#=WI#+2.2
  419. If Z1<>12 and Z2=12 and Z3=12 and Z4=12 Then WI#=WI#+2.2
  420. If Z1=13 and Z2=13 and Z3=13 and Z4<>13 Then WI#=WI#+2.5
  421. If Z1<>13 and Z2=13 and Z3=13 and Z4=13 Then WI#=WI#+2.5
  422. If Z1=14 and Z2=14 and Z3=14 and Z4<>14 Then WI#=WI#+3.0
  423. If Z1<>14 and Z2=14 and Z3=14 and Z4=14 Then WI#=WI#+3.0
  424. If Z1=15 and Z2=15 and Z3=15 and Z4<>15 Then WI#=WI#+3.5
  425. If Z1<>15 and Z2=15 and Z3=15 and Z4=15 Then WI#=WI#+3.5
  426. If Z1=16 and Z2=16 and Z3=16 and Z4<>16 Then WI#=WI#+4.0
  427. If Z1<>16 and Z2=16 and Z3=16 and Z4=16 Then WI#=WI#+4.0
  428. If Z1=17 and Z2=17 and Z3=17 and Z4<>17 Then WI#=WI#+4.5
  429. If Z1<>17 and Z2=17 and Z3=17 and Z4=17 Then WI#=WI#+4.5
  430. If Z1=18 and Z2=18 and Z3=18 and Z4<>18 Then WI#=WI#+5.0
  431. If Z1<>18 and Z2=18 and Z3=18 and Z4=18 Then WI#=WI#+5.0
  432. If Z1=3 and Z2=3 and Z3=3 and Z4=3 Then WI#=WI#+2.0
  433. If Z1=4 and Z2=4 and Z3=4 and Z4=4 Then WI#=WI#+3.0
  434. If Z1=5 and Z2=5 and Z3=5 and Z4=5 Then WI#=WI#+4.0
  435. If Z1=6 and Z2=6 and Z3=6 and Z4=6 Then WI#=WI#+5.0
  436. If Z1=7 and Z2=7 and Z3=7 and Z4=7 Then WI#=WI#+6.0
  437. If Z1=8 and Z2=8 and Z3=8 and Z4=8 Then WI#=WI#+7.0
  438. If Z1=9 and Z2=9 and Z3=9 and Z4=9 Then WI#=WI#+8.0
  439. If Z1=10 and Z2=10 and Z3=10 and Z4=10 Then WI#=WI#+10.0
  440. If Z1=11 and Z2=11 and Z3=11 and Z4=11 Then WI#=WI#+20.0
  441. If Z1=12 and Z2=12 and Z3=12 and Z4=12 Then WI#=WI#+BRO#
  442. If Z1=13 and Z2=13 and Z3=13 and Z4=13 Then WI#=WI#+50.0
  443. If Z1=14 and Z2=14 and Z3=14 and Z4=14 Then WI#=WI#+SIL#
  444. If Z1=15 and Z2=15 and Z3=15 and Z4=15 Then WI#=WI#+100.0
  445. If Z1=16 and Z2=16 and Z3=16 and Z4=16 Then WI#=WI#+GOL#
  446. If Z1=17 and Z2=17 and Z3=17 and Z4=17 Then WI#=WI#+CSS#
  447. If Z1=18 and Z2=18 and Z3=18 and Z4=18 Then WI#=WI#+150.0
  448. If WI#>0.0 Then Gosub QT : Gosub GAMBLE : 
  449. Return 
  450. QT:
  451. NW=20.0
  452. For QU=1 To 12
  453. Play 1,NW,3 : Play 1,NW+3.0,3 : NW=NW+5.0
  454. Next QU
  455. Return 
  456. COUNTNUMBERS:
  457. If R1=101 Then NUM=NUM+3.0
  458. If R1=105 Then NUM=NUM+4.0
  459. If R1=107 Then NUM=NUM+5.0
  460. If R1=109 Then NUM=NUM+2.0
  461. If R1=111 Then NUM=NUM+1.0
  462. If R1=115 Then NUM=NUM+5.0
  463. If R1=117 Then NUM=NUM+2.0
  464. If R1=118 Then NUM=NUM+4.0
  465. If R1=126 Then NUM=NUM+1.0
  466. If R1=129 Then NUM=NUM+3.0
  467. If R2=101 Then NUM=NUM+3.0
  468. If R2=105 Then NUM=NUM+4.0
  469. If R2=107 Then NUM=NUM+5.0
  470. If R2=109 Then NUM=NUM+2.0
  471. If R2=111 Then NUM=NUM+1.0
  472. If R2=115 Then NUM=NUM+5.0
  473. If R2=117 Then NUM=NUM+2.0
  474. If R2=118 Then NUM=NUM+4.0
  475. If R2=126 Then NUM=NUM+1.0
  476. If R2=129 Then NUM=NUM+3.0
  477. If R3=101 Then NUM=NUM+3.0
  478. If R3=105 Then NUM=NUM+4.0
  479. If R3=107 Then NUM=NUM+5.0
  480. If R3=109 Then NUM=NUM+2.0
  481. If R3=111 Then NUM=NUM+1.0
  482. If R3=115 Then NUM=NUM+5.0
  483. If R3=117 Then NUM=NUM+2.0
  484. If R3=118 Then NUM=NUM+4.0
  485. If R3=126 Then NUM=NUM+1.0
  486. If R3=129 Then NUM=NUM+3.0
  487. If R4=101 Then NUM=NUM+3.0
  488. If R4=105 Then NUM=NUM+4.0
  489. If R4=107 Then NUM=NUM+5.0
  490. If R4=109 Then NUM=NUM+2.0
  491. If R4=111 Then NUM=NUM+1.0
  492. If R4=115 Then NUM=NUM+5.0
  493. If R4=117 Then NUM=NUM+2.0
  494. If R4=118 Then NUM=NUM+4.0
  495. If R4=126 Then NUM=NUM+1.0
  496. If R4=129 Then NUM=NUM+3.0
  497. Return 
  498. LIGHTLETTERS:
  499. If NUM>15.0 Then NUM=15.0
  500. Put Block 286,286,14 : Put Block 285,270,14 : Put Block 284,249,14 : Put Block 280,231,14 : Put Block 279,208,14
  501. Put Block 278,189,14 : Put Block 281,177,14 : Put Block 283,157,14 : Put Block 278,137,14 : Put Block 280,118,14
  502. Put Block 282,104,14 : Put Block 281,91,14 : Put Block 280,71,14 : Put Block 279,48,14 : Put Block 278,29,14
  503. If NUM>0.0 Then Put Block 265,29,14 : Wait 2 : Play 1,5,5
  504. If NUM>1.0 Then Put Block 266,48,14 : Wait 2 : Play 1,10,5
  505. If NUM>2.0 Then Put Block 267,71,14 : Wait 2 : Play 1,15,5
  506. If NUM>3.0 Then Put Block 268,91,14 : Wait 2 : Play 1,20,5
  507. If NUM>4.0 Then Put Block 269,104,14 : Wait 2 : Play 1,25,5
  508. If NUM>5.0 Then Put Block 267,118,14 : Wait 2 : Play 1,30,5
  509. If NUM>6.0 Then Put Block 265,137,14 : Wait 2 : Play 1,35,5
  510. If NUM>7.0 Then Put Block 270,157,14 : Wait 2 : Play 1,40,5
  511. If NUM>8.0 Then Put Block 268,177,14 : Wait 2 : Play 1,45,5
  512. If NUM>9.0 Then Put Block 265,189,14 : Wait 2 : Play 1,50,5
  513. If NUM>10.0 Then Put Block 266,208,14 : Wait 2 : Play 1,55,5
  514. If NUM>11.0 Then Put Block 267,231,14 : Wait 2 : Play 1,60,5
  515. If NUM>12.0 Then Put Block 271,249,14 : Wait 2 : Play 1,65,5
  516. If NUM>13.0 Then Put Block 272,270,14 : Wait 2 : Play 1,70,5
  517. If NUM>14.0 Then Put Block 273,286,14 : Wait 2 : Play 1,75,5
  518. If NUM>14.0 Then Gosub RLW : 
  519. Return 
  520. RLW:
  521. TU=10 : Locate 2,8 : Print "Higher/Lower your way to ï¿½ 150.00p";
  522. For TT=1 To 20
  523. Put Block 286,286,14 : Put Block 272,270,14 : Put Block 284,249,14 : Put Block 267,231,14 : Put Block 279,208,14
  524. Put Block 265,189,14 : Put Block 281,177,14 : Put Block 270,157,14 : Put Block 278,137,14 : Put Block 267,118,14
  525. Put Block 282,104,14 : Put Block 268,91,14 : Put Block 280,71,14 : Put Block 266,48,14 : Put Block 278,29,14
  526. Play 1,TU,2 : Play 2,TU+2,2
  527. Put Block 273,286,14 : Put Block 285,270,14 : Put Block 271,249,14 : Put Block 280,231,14 : Put Block 266,208,14
  528. Put Block 278,189,14 : Put Block 268,177,14 : Put Block 283,157,14 : Put Block 265,137,14 : Put Block 280,118,14
  529. Put Block 269,104,14 : Put Block 281,91,14 : Put Block 267,71,14 : Put Block 279,48,14 : Put Block 265,29,14
  530. Play 1,TU+3,2 : Play 2,TU+5,2 : TU=TU+3
  531. Next TT
  532. Put Block 273,286,14 : Put Block 272,270,14 : Put Block 271,249,14 : Put Block 267,231,14 : Put Block 266,208,14
  533. Put Block 265,189,14 : Put Block 268,177,14 : Put Block 270,157,14 : Put Block 265,137,14 : Put Block 267,118,14
  534. Put Block 269,104,14 : Put Block 268,91,14 : Put Block 267,71,14 : Put Block 266,48,14 : Put Block 265,29,14
  535. Locate 2,8 : Print Space$(36);
  536. Return 
  537. WIPELETTERS:
  538. NUM=0.0
  539. Put Block 286,286,14 : Put Block 285,270,14 : Put Block 284,249,14 : Put Block 280,231,14 : Put Block 279,208,14
  540. Put Block 278,189,14 : Put Block 281,177,14 : Put Block 283,157,14 : Put Block 278,137,14 : Put Block 280,118,14
  541. Put Block 282,104,14 : Put Block 281,91,14 : Put Block 280,71,14 : Put Block 279,48,14 : Put Block 278,29,14
  542. Return 
  543. FRUITGRID:
  544. Z1=Point(73,207) : Z2=Point(135,207) : Z3=Point(197,207) : Z4=Point(259,207)
  545. Screen To Front 2 : Screen 2
  546. If Z1=3 or Z2=3 or Z3=3 or Z4=3 Then Put Block 203,247,57 : X3Y1=1.0 : Play 2,10,10
  547. If Z1=4 or Z2=4 or Z3=4 or Z4=4 Then Put Block 212,276,115 : X4Y3=1.0 : Play 2,10,10
  548. If Z1=5 or Z2=5 or Z3=5 or Z4=5 Then Put Block 205,189,86 : X1Y2=1.0 : Play 2,10,10
  549. If Z1=6 or Z2=6 or Z3=6 or Z4=6 Then Put Block 214,218,144 : X2Y4=1.0 : Play 2,10,10
  550. If Z1=7 or Z2=7 or Z3=7 or Z4=7 Then Put Block 209,189,115 : X1Y3=1.0 : Play 2,10,10
  551. If Z1=8 or Z2=8 or Z3=8 or Z4=8 Then Put Block 215,247,144 : X3Y4=1.0 : Play 2,10,10
  552. If Z1=9 or Z2=9 or Z3=9 or Z4=9 Then Put Block 202,218,57 : X2Y1=1.0 : Play 2,10,10
  553. If Z1=10 or Z2=10 or Z3=10 or Z4=10 Then Put Block 208,276,86 : X4Y2=1.0 : Play 2,10,10
  554. If Z1=11 or Z2=11 or Z3=11 or Z4=11 Then Put Block 211,247,115 : X3Y3=1.0 : Play 2,10,10
  555. If Z1=12 or Z2=12 or Z3=12 or Z4=12 Then Put Block 207,247,86 : X3Y2=1.0 : Play 2,10,10
  556. If Z1=13 or Z2=13 or Z3=13 or Z4=13 Then Put Block 206,218,86 : X2Y2=1.0 : Play 2,10,10
  557. If Z1=14 or Z2=14 or Z3=14 or Z4=14 Then Put Block 210,218,115 : X2Y3=1.0 : Play 2,10,10
  558. If Z1=15 or Z2=15 or Z3=15 or Z4=15 Then Put Block 213,189,144 : X1Y4=1.0 : Play 2,10,10
  559. If Z1=16 or Z2=16 or Z3=16 or Z4=16 Then Put Block 216,276,144 : X4Y4=1.0 : Play 2,10,10
  560. If Z1=17 or Z2=17 or Z3=17 or Z4=17 Then Put Block 204,276,57 : X4Y1=1.0 : Play 2,10,10
  561. If Z1=18 or Z2=18 or Z3=18 or Z4=18 Then Put Block 201,189,57 : X1Y1=1.0 : Play 2,10,10
  562. Wait 10
  563. Put Block 227,287,35 : Put Block 227,258,35 : Put Block 227,229,35 : Put Block 227,200,35 : Put Block 231,168,36
  564. Put Block 229,167,66 : Put Block 229,167,96 : Put Block 229,167,125 : Put Block 229,167,155 : Put Block 233,168,186
  565. If X4Y1=1.0 and X4Y2=1.0 and X4Y3=1.0 and X4Y4=1.0 Then Put Block 226,287,35 : WS=WS+1.0 : Play 1,20,10
  566. If X3Y1=1.0 and X3Y2=1.0 and X3Y3=1.0 and X3Y4=1.0 Then Put Block 226,258,35 : WS=WS+1.0 : Play 1,20,10
  567. If X2Y1=1.0 and X2Y2=1.0 and X2Y3=1.0 and X2Y4=1.0 Then Put Block 226,229,35 : WS=WS+1.0 : Play 1,20,10
  568. If X1Y1=1.0 and X1Y2=1.0 and X1Y3=1.0 and X1Y4=1.0 Then Put Block 226,200,35 : WS=WS+1.0 : Play 1,20,10
  569. If X1Y1=1.0 and X2Y2=1.0 and X3Y3=1.0 and X4Y4=1.0 Then Put Block 230,168,36 : WS=WS+1.0 : Play 1,20,10
  570. If X1Y1=1.0 and X2Y1=1.0 and X3Y1=1.0 and X4Y1=1.0 Then Put Block 228,167,66 : WS=WS+1.0 : Play 1,20,10
  571. If X1Y2=1.0 and X2Y2=1.0 and X3Y2=1.0 and X4Y2=1.0 Then Put Block 228,167,96 : WS=WS+1.0 : Play 1,20,10
  572. If X1Y3=1.0 and X2Y3=1.0 and X3Y3=1.0 and X4Y3=1.0 Then Put Block 228,167,125 : WS=WS+1.0 : Play 1,20,10
  573. If X1Y4=1.0 and X2Y4=1.0 and X3Y4=1.0 and X4Y4=1.0 Then Put Block 228,167,155 : WS=WS+1.0 : Play 1,20,10
  574. If X1Y4=1.0 and X2Y3=1.0 and X3Y2=1.0 and X4Y1=1.0 Then Put Block 232,168,186 : WS=WS+1.0 : Play 1,20,10
  575. If WS=0.0 Then Goto WXYZ : 
  576. YY=206 : Wait 10
  577. For ZZ=1 To WS
  578. Put Block 238,17,YY : Play 2,40,10 : YY=YY-21.0
  579. Next ZZ
  580. WXYZ:
  581. Wait 10 : F2=Rnd(6.0)
  582. If CHEAT=1.0 Then F2=6.0
  583. If F2=6.0 Then Put Block 248,225,190 : Gosub FHH : 
  584. If F2<>6.0 Then Put Block 249,225,190
  585. Wait 50
  586. Screen To Front 1 : Screen 1
  587. Return 
  588. FHH:
  589. For TR=1 To 5
  590. Put Block 249,225,190 : Play 1,60,5 : Put Block 248,225,190 : Play 1,40,5
  591. Next TR
  592. Return 
  593. WIPEFRUITGRID:
  594. Screen 2
  595. Put Block 249,225,190
  596. X1Y1=0.0 : X2Y1=0.0 : X3Y1=0.0 : X4Y1=0.0 : X1Y2=0.0 : X2Y2=0.0 : X3Y2=0.0 : X4Y2=0.0 : X1Y3=0.0 : X2Y3=0.0 : X3Y3=0.0 : X4Y3=0.0 : X1Y4=0.0 : X2Y4=0.0 : X3Y4=0.0 : X4Y4=0.0
  597. Put Block 227,287,35 : Put Block 227,258,35 : Put Block 227,229,35 : Put Block 227,200,35 : Put Block 231,168,36
  598. Put Block 229,167,66 : Put Block 229,167,96 : Put Block 229,167,125 : Put Block 229,167,155 : Put Block 233,168,186
  599. WS=0.0
  600. For YY=17 To 206 Step 21
  601. Put Block 239,17,YY
  602. Next YY
  603. Screen 1
  604. Return 
  605. WINSPINS:
  606. For SS=1 To WS
  607. CW=Rnd(124.0)+1.0
  608. If CW=1.0 Then S1=110 : S2=110 : S4=111 : WI#=WI#+0.3
  609. If CW=2.0 Then S1=109 : S2=121 : S4=121 : WI#=WI#+0.3
  610. If CW=3.0 Then S1=121 : S2=121 : S4=122 : WI#=WI#+0.3
  611. If CW=4.0 Then S1=121 : S2=110 : S4=109 : WI#=WI#+0.3
  612. If CW=5.0 Then S1=110 : S2=110 : S4=120 : WI#=WI#+0.3
  613. If CW=6.0 Then S1=115 : S2=110 : S4=110 : WI#=WI#+0.3
  614. If CW=7.0 Then S1=121 : S2=110 : S4=125 : WI#=WI#+0.3
  615. If CW=8.0 Then S1=101 : S2=121 : S4=110 : WI#=WI#+0.3
  616. If CW=9.0 Then S1=110 : S2=121 : S4=117 : WI#=WI#+0.3
  617. If CW=10.0 Then S1=109 : S2=110 : S4=121 : WI#=WI#+0.3
  618. If CW=11.0 Then S1=110 : S2=110 : S4=131 : WI#=WI#+0.3
  619. If CW=12.0 Then S1=108 : S2=121 : S4=121 : WI#=WI#+0.3
  620. If CW=13.0 Then S1=102 : S2=102 : S4=101 : WI#=WI#+0.5
  621. If CW=14.0 Then S1=115 : S2=126 : S4=126 : WI#=WI#+0.5
  622. If CW=15.0 Then S1=102 : S2=126 : S4=120 : WI#=WI#+0.5
  623. If CW=16.0 Then S1=117 : S2=126 : S4=102 : WI#=WI#+0.5
  624. If CW=17.0 Then S1=126 : S2=102 : S4=128 : WI#=WI#+0.5
  625. If CW=18.0 Then S1=125 : S2=126 : S4=102 : WI#=WI#+0.5
  626. If CW=19.0 Then S1=102 : S2=102 : S4=103 : WI#=WI#+0.5
  627. If CW=20.0 Then S1=127 : S2=126 : S4=102 : WI#=WI#+0.5
  628. If CW=21.0 Then S1=126 : S2=126 : S4=124 : WI#=WI#+0.5
  629. If CW=22.0 Then S1=107 : S2=102 : S4=126 : WI#=WI#+0.5
  630. If CW=23.0 Then S1=102 : S2=126 : S4=115 : WI#=WI#+0.5
  631. If CW=24.0 Then S1=119 : S2=126 : S4=126 : WI#=WI#+0.5
  632. If CW=25.0 Then S1=101 : S2=101 : S4=102 : WI#=WI#+0.8
  633. If CW=26.0 Then S1=124 : S2=125 : S4=125 : WI#=WI#+0.8
  634. If CW=27.0 Then S1=101 : S2=125 : S4=131 : WI#=WI#+0.8
  635. If CW=28.0 Then S1=126 : S2=125 : S4=101 : WI#=WI#+0.8
  636. If CW=29.0 Then S1=125 : S2=125 : S4=123 : WI#=WI#+0.8
  637. If CW=30.0 Then S1=111 : S2=101 : S4=125 : WI#=WI#+0.8
  638. If CW=31.0 Then S1=101 : S2=125 : S4=129 : WI#=WI#+0.8
  639. If CW=32.0 Then S1=116 : S2=101 : S4=101 : WI#=WI#+0.8
  640. If CW=33.0 Then S1=101 : S2=101 : S4=130 : WI#=WI#+0.8
  641. If CW=34.0 Then S1=112 : S2=125 : S4=101 : WI#=WI#+0.8
  642. If CW=35.0 Then S1=106 : S2=106 : S4=107 : WI#=WI#+1.0
  643. If CW=36.0 Then S1=110 : S2=109 : S4=109 : WI#=WI#+1.0
  644. If CW=37.0 Then S1=106 : S2=109 : S4=108 : WI#=WI#+1.0
  645. If CW=38.0 Then S1=108 : S2=109 : S4=109 : WI#=WI#+1.0
  646. If CW=39.0 Then S1=109 : S2=109 : S4=119 : WI#=WI#+1.0
  647. If CW=40.0 Then S1=105 : S2=106 : S4=109 : WI#=WI#+1.0
  648. If CW=41.0 Then S1=106 : S2=106 : S4=131 : WI#=WI#+1.0
  649. If CW=42.0 Then S1=111 : S2=106 : S4=109 : WI#=WI#+1.0
  650. If CW=43.0 Then S1=109 : S2=109 : S4=122 : WI#=WI#+1.0
  651. If CW=44.0 Then S1=128 : S2=109 : S4=109 : WI#=WI#+1.0
  652. If CW=45.0 Then S1=115 : S2=115 : S4=116 : WI#=WI#+1.2
  653. If CW=46.0 Then S1=131 : S2=130 : S4=130 : WI#=WI#+1.2
  654. If CW=47.0 Then S1=115 : S2=130 : S4=114 : WI#=WI#+1.2
  655. If CW=48.0 Then S1=129 : S2=130 : S4=130 : WI#=WI#+1.2
  656. If CW=49.0 Then S1=115 : S2=115 : S4=123 : WI#=WI#+1.2
  657. If CW=50.0 Then S1=113 : S2=130 : S4=115 : WI#=WI#+1.2
  658. If CW=51.0 Then S1=130 : S2=130 : S4=118 : WI#=WI#+1.2
  659. If CW=52.0 Then S1=104 : S2=115 : S4=130 : WI#=WI#+1.2
  660. If CW=53.0 Then S1=130 : S2=130 : S4=121 : WI#=WI#+1.2
  661. If CW=54.0 Then S1=126 : S2=115 : S4=130 : WI#=WI#+1.2
  662. If CW=55.0 Then S1=112 : S2=112 : S4=111 : WI#=WI#+1.4
  663. If CW=56.0 Then S1=130 : S2=129 : S4=129 : WI#=WI#+1.4
  664. If CW=57.0 Then S1=104 : S2=112 : S4=112 : WI#=WI#+1.4
  665. If CW=58.0 Then S1=129 : S2=112 : S4=113 : WI#=WI#+1.4
  666. If CW=59.0 Then S1=113 : S2=112 : S4=129 : WI#=WI#+1.4
  667. If CW=60.0 Then S1=112 : S2=112 : S4=105 : WI#=WI#+1.4
  668. If CW=61.0 Then S1=118 : S2=129 : S4=112 : WI#=WI#+1.4
  669. If CW=62.0 Then S1=112 : S2=112 : S4=110 : WI#=WI#+1.4
  670. If CW=63.0 Then S1=107 : S2=129 : S4=129 : WI#=WI#+1.4
  671. If CW=64.0 Then S1=129 : S2=129 : S4=117 : WI#=WI#+1.4
  672. If CW=65.0 Then S1=107 : S2=107 : S4=124 : WI#=WI#+1.6
  673. If CW=66.0 Then S1=122 : S2=123 : S4=123 : WI#=WI#+1.6
  674. If CW=67.0 Then S1=107 : S2=123 : S4=128 : WI#=WI#+1.6
  675. If CW=68.0 Then S1=102 : S2=123 : S4=123 : WI#=WI#+1.6
  676. If CW=69.0 Then S1=123 : S2=123 : S4=124 : WI#=WI#+1.6
  677. If CW=70.0 Then S1=125 : S2=107 : S4=123 : WI#=WI#+1.6
  678. If CW=71.0 Then S1=123 : S2=123 : S4=112 : WI#=WI#+1.6
  679. If CW=72.0 Then S1=107 : S2=107 : S4=118 : WI#=WI#+1.6
  680. If CW=73.0 Then S1=121 : S2=123 : S4=107 : WI#=WI#+1.6
  681. If CW=74.0 Then S1=123 : S2=123 : S4=115 : WI#=WI#+1.6
  682. If CW=75.0 Then S1=111 : S2=111 : S4=128 : WI#=WI#+1.8
  683. If CW=76.0 Then S1=112 : S2=127 : S4=127 : WI#=WI#+1.8
  684. If CW=77.0 Then S1=111 : S2=127 : S4=126 : WI#=WI#+1.8
  685. If CW=78.0 Then S1=110 : S2=111 : S4=127 : WI#=WI#+1.8
  686. If CW=79.0 Then S1=127 : S2=127 : S4=130 : WI#=WI#+1.8
  687. If CW=80.0 Then S1=116 : S2=111 : S4=127 : WI#=WI#+1.8
  688. If CW=81.0 Then S1=111 : S2=111 : S4=109 : WI#=WI#+1.8
  689. If CW=82.0 Then S1=102 : S2=127 : S4=111 : WI#=WI#+1.8
  690. If CW=83.0 Then S1=127 : S2=127 : S4=115 : WI#=WI#+1.8
  691. If CW=84.0 Then S1=122 : S2=111 : S4=111 : WI#=WI#+1.8
  692. If CW=85.0 Then S1=108 : S2=108 : S4=125 : WI#=WI#+2.0
  693. If CW=86.0 Then S1=107 : S2=124 : S4=124 : WI#=WI#+2.0
  694. If CW=87.0 Then S1=124 : S2=124 : S4=109 : WI#=WI#+2.0
  695. If CW=88.0 Then S1=120 : S2=108 : S4=108 : WI#=WI#+2.0
  696. If CW=89.0 Then S1=108 : S2=124 : S4=123 : WI#=WI#+2.0
  697. If CW=90.0 Then S1=101 : S2=108 : S4=108 : WI#=WI#+2.0
  698. If CW=91.0 Then S1=124 : S2=124 : S4=109 : WI#=WI#+2.0
  699. If CW=92.0 Then S1=113 : S2=108 : S4=124 : WI#=WI#+2.0
  700. If CW=93.0 Then S1=105 : S2=105 : S4=106 : WI#=WI#+2.2
  701. If CW=94.0 Then S1=118 : S2=119 : S4=119 : WI#=WI#+2.2
  702. If CW=95.0 Then S1=119 : S2=105 : S4=104 : WI#=WI#+2.2
  703. If CW=96.0 Then S1=120 : S2=119 : S4=119 : WI#=WI#+2.2
  704. If CW=97.0 Then S1=105 : S2=105 : S4=107 : WI#=WI#+2.2
  705. If CW=98.0 Then S1=120 : S2=105 : S4=119 : WI#=WI#+2.2
  706. If CW=99.0 Then S1=119 : S2=119 : S4=122 : WI#=WI#+2.2
  707. If CW=100.0 Then S1=125 : S2=119 : S4=105 : WI#=WI#+2.2
  708. If CW=101.0 Then S1=116 : S2=116 : S4=117 : WI#=WI#+2.5
  709. If CW=102.0 Then S1=103 : S2=131 : S4=131 : WI#=WI#+2.5
  710. If CW=103.0 Then S1=131 : S2=131 : S4=115 : WI#=WI#+2.5
  711. If CW=104.0 Then S1=116 : S2=116 : S4=112 : WI#=WI#+2.5
  712. If CW=105.0 Then S1=107 : S2=131 : S4=116 : WI#=WI#+2.5
  713. If CW=106.0 Then S1=131 : S2=116 : S4=130 : WI#=WI#+2.5
  714. If CW=107.0 Then S1=114 : S2=114 : S4=113 : WI#=WI#+3.0
  715. If CW=108.0 Then S1=118 : S2=117 : S4=117 : WI#=WI#+3.0
  716. If CW=109.0 Then S1=117 : S2=114 : S4=115 : WI#=WI#+3.0
  717. If CW=110.0 Then S1=116 : S2=117 : S4=114 : WI#=WI#+3.0
  718. If CW=111.0 Then S1=114 : S2=114 : S4=109 : WI#=WI#+3.0
  719. If CW=112.0 Then S1=123 : S2=117 : S4=117 : WI#=WI#+3.0
  720. If CW=113.0 Then S1=103 : S2=103 : S4=114 : WI#=WI#+3.5
  721. If CW=114.0 Then S1=102 : S2=113 : S4=113 : WI#=WI#+3.5
  722. If CW=115.0 Then S1=113 : S2=103 : S4=104 : WI#=WI#+3.5
  723. If CW=116.0 Then S1=104 : S2=103 : S4=103 : WI#=WI#+3.5
  724. If CW=117.0 Then S1=120 : S2=120 : S4=121 : WI#=WI#+4.0
  725. If CW=118.0 Then S1=129 : S2=128 : S4=128 : WI#=WI#+4.0
  726. If CW=119.0 Then S1=119 : S2=120 : S4=120 : WI#=WI#+4.0
  727. If CW=120.0 Then S1=128 : S2=120 : S4=121 : WI#=WI#+4.0
  728. If CW=121.0 Then S1=104 : S2=104 : S4=103 : WI#=WI#+4.5
  729. If CW=122.0 Then S1=117 : S2=118 : S4=118 : WI#=WI#+4.5
  730. If CW=123.0 Then S1=118 : S2=104 : S4=103 : WI#=WI#+4.5
  731. If CW=124.0 Then S1=122 : S2=122 : S4=123 : WI#=WI#+5.0
  732. If CW=125.0 Then S1=121 : S2=122 : S4=122 : WI#=WI#+5.0
  733. S3=S2 : NW=20.0
  734. Gosub SPINAWIN : 
  735. Next SS
  736. WS=0.0
  737. Gosub RSETREELS : 
  738. Return 
  739. GAMBLE:
  740. Screen 2
  741. Load Iff "P3"
  742. Screen To Front 2
  743. Colour 26,$0 : Colour 25,$0
  744. Limit Mouse 334,68 To 430,277
  745. Pen 3 : Paper 2
  746. RPEAT:
  747. WRW:
  748. Locate 3,25 : Print "Cash     ï¿½ "; : Print Using "#####.#";CA#; : Locate 3,26 : Pen 13 : Print "Winnings ï¿½ "; : Print Using "#####.#";WI#;
  749. Locate 3,27 : Pen 22 : Print "Bronze     ï¿½ "; : Print Using "###.#";BRO#; : Locate 3,28 : Pen 29 : Print "Silver     ï¿½ "; : Print Using "###.#";SIL#; : Locate 3,29 : Pen 11 : Print "Gold       ï¿½ "; : Print Using "###.#";GOL#; : Pen 3
  750. If WI#=0.0 or WI#>8333.3 Then Goto XXX : 
  751. Do 
  752. Colour 25,$0 : Colour 26,$FA0 : Play 1,45,2 : Play 2,47,2 : Colour 25,$F00 : Colour 26,$0 : Play 2,49,2 : Play 2,51,2
  753. If Mouse Click<>0 Then Exit 
  754. Loop 
  755. XD=0.0 : Colour 25,$0 : Colour 26,$0
  756. If Y Mouse>67 and Y Mouse<81 Then MULTI=12.0 : Goto SPIN : 
  757. If Y Mouse>81 and Y Mouse<95 Then MULTI=6.0 : Goto SPIN : 
  758. If Y Mouse>95 and Y Mouse<108 Then MULTI=41.0 : Goto SPIN : 
  759. If Y Mouse>109 and Y Mouse<122 Then MULTI=42.0 : Goto SPIN : 
  760. If Y Mouse>123 and Y Mouse<136 Then MULTI=31.0 : Goto SPIN : 
  761. If Y Mouse>137 and Y Mouse<150 Then MULTI=32.0 : Goto SPIN : 
  762. If Y Mouse>150 and Y Mouse<176 Then MULTI=21.0 : Goto SPIN : 
  763. If Y Mouse>176 and Y Mouse<202 Then MULTI=22.0 : Goto SPIN : 
  764. If Y Mouse>202 and Y Mouse<228 Then MULTI=23.0 : Goto SPIN : 
  765. If Y Mouse>228 and Y Mouse<254 Then MULTI=24.0 : Goto SPIN : 
  766. If Y Mouse>250 and Y Mouse<274 Then Gosub ZHK : Goto XXX : 
  767. Goto WRW : 
  768. XXX:
  769. CA#=CA#+WI# : WI#=0.0 : NUDGES=0.0 : XD=0.0
  770. Screen 2
  771. Load Iff "P1"
  772. Gosub RSETFG : 
  773. Screen To Front 1 : Screen 1
  774. Return 
  775. SPIN:
  776. SPO=Rnd(24.0)+48.0
  777. XX:
  778. If SPO=0.0 Then Goto RES : Else Put Block 240,108,21 : Play 1,30,2 : Put Block 241,108,21 : SPO=SPO-1.0 : NI=10.0
  779. If SPO=0.0 Then Goto RES : Else Put Block 240,141,38 : Play 1,30,2 : Put Block 241,141,38 : SPO=SPO-1.0 : NI=5.0
  780. If SPO=0.0 Then Goto RES : Else Put Block 240,160,72 : Play 1,30,2 : Put Block 241,160,72 : SPO=SPO-1.0 : NI=11.0
  781. If SPO=0.0 Then Goto RES : Else Put Block 240,160,108 : Play 1,30,2 : Put Block 241,160,108 : SPO=SPO-1.0 : NI=7.0
  782. If SPO=0.0 Then Goto RES : Else Put Block 240,141,140 : Play 1,30,2 : Put Block 241,141,140 : SPO=SPO-1.0 : NI=4.0
  783. If SPO=0.0 Then Goto RES : Else Put Block 240,108,159 : Play 1,30,2 : Put Block 241,108,159 : SPO=SPO-1.0 : NI=12.0
  784. If SPO=0.0 Then Goto RES : Else Put Block 240,72,159 : Play 1,30,2 : Put Block 241,72,159 : SPO=SPO-1.0 : NI=3.0
  785. If SPO=0.0 Then Goto RES : Else Put Block 240,40,140 : Play 1,30,2 : Put Block 241,40,140 : SPO=SPO-1.0 : NI=8.0
  786. If SPO=0.0 Then Goto RES : Else Put Block 240,21,108 : Play 1,30,2 : Put Block 241,21,108 : SPO=SPO-1.0 : NI=2.0
  787. If SPO=0.0 Then Goto RES : Else Put Block 240,21,72 : Play 1,30,2 : Put Block 241,21,72 : SPO=SPO-1.0 : NI=6.0
  788. If SPO=0.0 Then Goto RES : Else Put Block 240,40,38 : Play 1,30,2 : Put Block 241,40,38 : SPO=SPO-1.0 : NI=9.0
  789. If SPO=0.0 Then Goto RES : Else Put Block 240,72,21 : Play 1,30,2 : Put Block 241,72,21 : SPO=SPO-1.0 : NI=1.0
  790. Goto XX : 
  791. RES:
  792. If MULTI=12.0 and NI=7.0 Then WI#=WI#*12.0 : XD=1.0
  793. If MULTI=6.0 and NI=3.0 Then WI#=WI#*6.0 : XD=1.0
  794. If MULTI=6.0 and NI=10.0 Then WI#=WI#*6.0 : XD=1.0
  795. If MULTI=41.0 and NI<4.0 Then WI#=WI#*4.0 : XD=1.0
  796. If MULTI=42.0 and NI>9.0 Then WI#=WI#*4.0 : XD=1.0
  797. If MULTI=31.0 and NI>1.0 and NI<6.0 Then WI#=WI#*3.0 : XD=1.0
  798. If MULTI=32.0 and NI>5.0 and NI<10.0 Then WI#=WI#*3.0 : XD=1.0
  799. If MULTI=21.0 and NI<7.0 Then WI#=WI#*2.0 : XD=1.0
  800. If MULTI=22.0 and NI>6.0 Then WI#=WI#*2.0 : XD=1.0
  801. If MULTI=23.0 and NI=1.0 Then WI#=WI#*2.0 : XD=1.0
  802. If MULTI=23.0 and NI=3.0 Then WI#=WI#*2.0 : XD=1.0
  803. If MULTI=23.0 and NI=5.0 Then WI#=WI#*2.0 : XD=1.0
  804. If MULTI=23.0 and NI=7.0 Then WI#=WI#*2.0 : XD=1.0
  805. If MULTI=23.0 and NI=9.0 Then WI#=WI#*2.0 : XD=1.0
  806. If MULTI=23.0 and NI=11.0 Then WI#=WI#*2.0 : XD=1.0
  807. If MULTI=24.0 and NI=2.0 Then WI#=WI#*2.0 : XD=1.0
  808. If MULTI=24.0 and NI=4.0 Then WI#=WI#*2.0 : XD=1.0
  809. If MULTI=24.0 and NI=6.0 Then WI#=WI#*2.0 : XD=1.0
  810. If MULTI=24.0 and NI=8.0 Then WI#=WI#*2.0 : XD=1.0
  811. If MULTI=24.0 and NI=10.0 Then WI#=WI#*2.0 : XD=1.0
  812. If MULTI=24.0 and NI=12.0 Then WI#=WI#*2.0 : XD=1.0
  813. If NI=10.0 Then X=108 : Y=21
  814. If NI=5.0 Then X=141 : Y=38
  815. If NI=11.0 Then X=160 : Y=72
  816. If NI=7.0 Then X=160 : Y=108
  817. If NI=4.0 Then X=141 : Y=140
  818. If NI=12.0 Then X=108 : Y=159
  819. If NI=3.0 Then X=72 : Y=159
  820. If NI=8.0 Then X=40 : Y=140
  821. If NI=2.0 Then X=21 : Y=108
  822. If NI=6.0 Then X=21 : Y=72
  823. If NI=9.0 Then X=40 : Y=38
  824. If NI=1.0 Then X=72 : Y=21
  825. If XD=0.0 Then WI#=0.0
  826. Locate 3,26 : Pen 13 : Print "Winnings ï¿½ "; : Print Using "#####.#";WI#; : Pen 3
  827. For YU=1 To 10
  828. If XD=0.0 Then Colour 26,$FA0
  829. If XD=1.0 Then Colour 25,$C00
  830. Put Block 240,X,Y : Play 1,(YU*5)+1,2 : Play 2,(YU*5)+2,2 : Put Block 241,X,Y
  831. If XD=0.0 Then Colour 26,$0
  832. If XD=1.0 Then Colour 25,$0
  833. Play 1,(YU*5)+3,2 : Play 2,(YU*5)+4,2
  834. Next YU
  835. Wait 20
  836. If WI#=0.0 Then Goto XXX : 
  837. Goto RPEAT : 
  838. NUMBERSTACK:
  839. Screen 2
  840. Load Iff "P8"
  841. Screen To Front 2
  842. Limit Mouse 363,168 To 429,247
  843. LAST=Rnd(11.0)+1.0 : NS=1.0
  844. If CHEAT=1.0 Then NS=Rnd(21.0)+1.0
  845. ADVANCE:
  846. For AB=94 To 226 Step 12
  847. Put Block 254,195,AB
  848. Next AB
  849. For AC=16 To 226 Step 10
  850. Put Block 251,40,AC
  851. Next AC
  852. AY=226.0
  853. If NS>22.0 Then NS=22.0
  854. If NS=22.0 Then Gosub VTX : Goto CLT : 
  855. Pen 3 : Paper 2 : Locate 22,3 : Print "Cash  ï¿½ "; : Print Using "#####.#";CA#; : Locate 22,4 : Pen 22 : Print "Bronze  ï¿½ "; : Print Using "###.#";BRO#;
  856. Locate 22,5 : Pen 29 : Print "Silver  ï¿½ "; : Print Using "###.#";SIL#; : Locate 22,6 : Pen 11 : Print "Gold    ï¿½ "; : Print Using "###.#";GOL#; : Locate 22,7 : Pen 13 : Print "Cashpot ï¿½ "; : Print Using "###.#";CSS#; : Pen 3
  857. If LAST=1.0 Then Put Block 253,195,226
  858. If LAST=2.0 Then Put Block 253,195,214
  859. If LAST=3.0 Then Put Block 253,195,202
  860. If LAST=4.0 Then Put Block 253,195,190
  861. If LAST=5.0 Then Put Block 253,195,178
  862. If LAST=6.0 Then Put Block 253,195,166
  863. If LAST=7.0 Then Put Block 253,195,154
  864. If LAST=8.0 Then Put Block 253,195,142
  865. If LAST=9.0 Then Put Block 253,195,130
  866. If LAST=10.0 Then Put Block 253,195,118
  867. If LAST=11.0 Then Put Block 253,195,106
  868. If LAST=12.0 Then Put Block 253,195,94
  869. NV=10
  870. For AD=1 To NS
  871. Put Block 250,40,AY : Play 1,NV,5 : Wait 2 : NV=NV+4 : AY=AY-10.0
  872. Next AD
  873. Do 
  874. Colour 25,$C00 : Colour 26,$0 : Play 1,45,2 : Play 2,47,2 : Colour 25,$0 : Colour 26,$FA0 : Play 1,49,2 : Play 2,51,2
  875. If Mouse Click<>0 Then Exit 
  876. Loop 
  877. If Y Mouse>167 and Y Mouse<193 Then HIGHER=1.0 : LOWER=0.0
  878. If Y Mouse>192 and Y Mouse<223 Then Gosub ZHJ : Goto CLT : 
  879. If Y Mouse>222 and Y Mouse<248 Then HIGHER=0.0 : LOWER=1.0
  880. If HIGHER=1.0 and LOWER=0.0 Then Colour 25,$C00 : Colour 26,$0
  881. If HIGHER=0.0 and LOWER=1.0 Then Colour 25,$0 : Colour 26,$FA0
  882. For GNN=1 To 20
  883. SNN:
  884. TRY=Rnd(11.0)+1.0
  885. If TRY=LAST Then Goto SNN : 
  886. If TRY=1.0 Then Put Block 253,195,226 : Wait 2 : Put Block 254,195,226 : Play 1,12,2
  887. If TRY=2.0 Then Put Block 253,195,214 : Wait 2 : Put Block 254,195,214 : Play 1,13,2
  888. If TRY=3.0 Then Put Block 253,195,202 : Wait 2 : Put Block 254,195,202 : Play 1,14,2
  889. If TRY=4.0 Then Put Block 253,195,190 : Wait 2 : Put Block 254,195,190 : Play 1,15,2
  890. If TRY=5.0 Then Put Block 253,195,178 : Wait 2 : Put Block 254,195,178 : Play 1,16,2
  891. If TRY=6.0 Then Put Block 253,195,166 : Wait 2 : Put Block 254,195,166 : Play 1,17,2
  892. If TRY=7.0 Then Put Block 253,195,154 : Wait 2 : Put Block 254,195,154 : Play 1,18,2
  893. If TRY=8.0 Then Put Block 253,195,142 : Wait 2 : Put Block 254,195,142 : Play 1,19,2
  894. If TRY=9.0 Then Put Block 253,195,130 : Wait 2 : Put Block 254,195,130 : Play 1,20,2
  895. If TRY=10.0 Then Put Block 253,195,118 : Wait 2 : Put Block 254,195,118 : Play 1,21,2
  896. If TRY=11.0 Then Put Block 253,195,106 : Wait 2 : Put Block 254,195,106 : Play 1,22,2
  897. If TRY=12.0 Then Put Block 253,195,94 : Wait 2 : Put Block 254,195,94 : Play 1,23,2
  898. Next GNN
  899. For AB=94 To 226 Step 12
  900. Put Block 254,195,AB
  901. Next AB
  902. If TRY=1.0 Then Put Block 253,195,226
  903. If TRY=2.0 Then Put Block 253,195,214
  904. If TRY=3.0 Then Put Block 253,195,202
  905. If TRY=4.0 Then Put Block 253,195,190
  906. If TRY=5.0 Then Put Block 253,195,178
  907. If TRY=6.0 Then Put Block 253,195,166
  908. If TRY=7.0 Then Put Block 253,195,154
  909. If TRY=8.0 Then Put Block 253,195,142
  910. If TRY=9.0 Then Put Block 253,195,130
  911. If TRY=10.0 Then Put Block 253,195,118
  912. If TRY=11.0 Then Put Block 253,195,106
  913. If TRY=12.0 Then Put Block 253,195,94
  914. Play 2,8,5 : Wait 10
  915. For AC=16 To 226 Step 10
  916. Put Block 251,40,AC
  917. Next AC
  918. AY=226.0
  919. If NS>22.0 Then NS=22.0
  920. If HIGHER=1.0 and TRY>LAST Then NS=NS+1.0 : Gosub ZHJ : LAST=TRY : Goto ADVANCE : 
  921. If LOWER=1.0 and TRY<LAST Then NS=NS+1.0 : Gosub ZHJ : LAST=TRY : Goto ADVANCE : 
  922. If HIGHER=1.0 and TRY<LAST Then NS=1.0 : Gosub ZHK : Goto CLT : 
  923. If LOWER=1.0 and TRY>LAST Then NS=1.0 : Gosub ZHK : Goto CLT : 
  924. Goto ADVANCE : 
  925. VTX:
  926. For ZO=1 To 7
  927. For YP=16 To 226 Step 10
  928. Put Block 251,40,YP
  929. Next YP
  930. YX=226.0 : ZA=1.0
  931. For YP=1 To NS
  932. Put Block 250,40,YX
  933. Play 1,(ZO*10)+ZA,2 : ZA=ZA+1.0 : YX=YX-10.0
  934. Next YP
  935. Next ZO
  936. Return 
  937. CLT:
  938. For YP=16 To 226 Step 10
  939. Put Block 251,40,YP
  940. Next YP
  941. YX=226.0 : CD=56.0
  942. For YP=1 To NS
  943. Put Block 250,40,YX : Play 1,CD,4 : CD=CD-1.0 : YX=YX-10.0
  944. Next YP
  945. On NS Gosub WIN1,WIN2,WIN3,WIN4,WIN5,WIN6,WIN7,WIN8,WIN9,WIN10,WIN11,WIN12,WIN13,WIN14,WIN15,WIN16,WIN17,WIN18,WIN19,WIN20,WIN21,WIN22
  946. Screen To Front 1 : Screen 2
  947. Load Iff "P1"
  948. Gosub RSETFG : 
  949. Screen 1
  950. Return 
  951. ZHJ:
  952. For XC=40 To 70
  953. Play 1,XC,2 : Play 2,XC-2,2
  954. Next XC
  955. Return 
  956. ZHK:
  957. For XC=40 To 10 Step -1
  958. Play 1,XC,2 : Play 1,XC-2,2
  959. Next XC
  960. Return 
  961. WIN1:
  962. WI#=0.2
  963. Gosub GAMBLE : 
  964. Return 
  965. WIN2:
  966. WS=1.0
  967. Screen To Front 1 : Screen 1
  968. Gosub WINSPINS : 
  969. Screen To Front 2 : Screen 2
  970. Gosub GAMBLE : 
  971. Return 
  972. WIN3:
  973. WS=2.0
  974. Screen To Front 1 : Screen 1
  975. Gosub WINSPINS : 
  976. Screen To Front 2 : Screen 2
  977. Gosub GAMBLE : 
  978. Return 
  979. WIN4:
  980. WS=3.0
  981. Screen To Front 1 : Screen 1
  982. Gosub WINSPINS : 
  983. Screen To Front 2 : Screen 2
  984. Gosub GAMBLE : 
  985. Return 
  986. WIN5:
  987. SW=1.0
  988. Screen To Front 1 : Screen 1
  989. Gosub SUPERWINS : 
  990. Screen To Front 2 : Screen 2
  991. Gosub GAMBLE : 
  992. Return 
  993. WIN6:
  994. WS=4.0
  995. Screen To Front 1 : Screen 1
  996. Gosub WINSPINS : 
  997. Screen To Front 2 : Screen 2
  998. Gosub GAMBLE : 
  999. Return 
  1000. WIN7:
  1001. MSC=1.0
  1002. Gosub SKILLCASH : 
  1003. Screen To Front 2 : Screen 2
  1004. Gosub GAMBLE : 
  1005. Return 
  1006. WIN8:
  1007. SW=2.0
  1008. Screen To Front 1 : Screen 1
  1009. Gosub SUPERWINS : 
  1010. Screen To Front 2 : Screen 2
  1011. Gosub GAMBLE : 
  1012. Return 
  1013. WIN9:
  1014. Gosub SKILLFRUIT : 
  1015. Screen To Front 2 : Screen 2
  1016. Gosub GAMBLE : 
  1017. Return 
  1018. WIN10:
  1019. WS=5.0
  1020. Screen To Front 1 : Screen 1
  1021. Gosub WINSPINS : 
  1022. Screen To Front 2 : Screen 2
  1023. Gosub GAMBLE : 
  1024. Return 
  1025. WIN11:
  1026. MSC=2.0
  1027. Gosub SKILLCASH : 
  1028. Screen To Front 2 : Screen 2
  1029. Gosub GAMBLE : 
  1030. Return 
  1031. WIN12:
  1032. SW=3.0
  1033. Screen To Front 1 : Screen 1
  1034. Gosub SUPERWINS : 
  1035. Screen To Front 2 : Screen 2
  1036. Gosub GAMBLE : 
  1037. Return 
  1038. WIN13:
  1039. Gosub SKILLFRUIT : 
  1040. Screen To Front 2 : Screen 2
  1041. Gosub GAMBLE : 
  1042. Return 
  1043. WIN14:
  1044. Gosub BRONZEPOT : 
  1045. Screen To Front 2 : Screen 2
  1046. Gosub GAMBLE : 
  1047. Return 
  1048. WIN15:
  1049. SW=4.0
  1050. Screen To Front 1 : Screen 1
  1051. Gosub SUPERWINS : 
  1052. Screen To Front 2 : Screen 2
  1053. Gosub GAMBLE : 
  1054. Return 
  1055. WIN16:
  1056. MSC=3.0
  1057. Gosub SKILLCASH : 
  1058. Screen To Front 2 : Screen 2
  1059. Gosub GAMBLE : 
  1060. Return 
  1061. WIN17:
  1062. Gosub SILVERPOT : 
  1063. Screen To Front 2 : Screen 2
  1064. Gosub GAMBLE : 
  1065. Return 
  1066. WIN18:
  1067. SW=5.0
  1068. Screen To Front 1 : Screen 1
  1069. Gosub SUPERWINS : 
  1070. Screen To Front 2 : Screen 2
  1071. Gosub GAMBLE : 
  1072. Return 
  1073. WIN19:
  1074. Gosub SKILLNUDGE : 
  1075. Screen To Front 2 : Screen 2
  1076. If WI#=0.0 Then Load Iff "P1"
  1077. If WI#>0.0 Then Goto RVV : 
  1078. Gosub RSETFG : 
  1079. RVV:
  1080. If WI#>0.0 Then Gosub GAMBLE : 
  1081. Return 
  1082. WIN20:
  1083. Gosub GOLDPOT : 
  1084. Screen To Front 2 : Screen 2
  1085. Gosub GAMBLE : 
  1086. Return 
  1087. WIN21:
  1088. Gosub CASHPOT : 
  1089. Screen To Front 2 : Screen 2
  1090. Gosub GAMBLE : 
  1091. Return 
  1092. WIN22:
  1093. Gosub JACKPOT : 
  1094. Screen To Front 2 : Screen 2
  1095. Gosub GAMBLE : 
  1096. Return 
  1097. SUPERWINS:
  1098. Screen To Front 1 : Screen 1
  1099. For QW=1 To SW
  1100. SUP=Rnd(99.0)+1.0
  1101. If SUP>0.0 and SUP<16.0 Then S1=110 : WI#=WI#+2.0
  1102. If SUP>15.0 and SUP<31.0 Then S1=102 : WI#=WI#+3.0
  1103. If SUP>30.0 and SUP<45.0 Then S1=125 : WI#=WI#+4.0
  1104. If SUP>44.0 and SUP<59.0 Then S1=106 : WI#=WI#+5.0
  1105. If SUP>58.0 and SUP<73.0 Then S1=130 : WI#=WI#+6.0
  1106. If SUP>72.0 and SUP<86.0 Then S1=112 : WI#=WI#+7.0
  1107. If SUP>85.0 and SUP<96.0 Then S1=123 : WI#=WI#+8.0
  1108. If SUP>95.0 and SUP<99.0 Then S1=127 : WI#=WI#+10.0
  1109. If SUP=98.0 Then S1=108 : WI#=WI#+20.0
  1110. If SUP=99.0 Then S1=116 : WI#=WI#+50.0
  1111. If SUP=100.0 Then S1=113 : WI#=WI#+100.0
  1112. S2=S1 : S3=S1 : S4=S1
  1113. Gosub SPINAWIN : 
  1114. Next QW
  1115. SW=0.0
  1116. Gosub RSETREELS : 
  1117. Return 
  1118. SKILLCASH:
  1119. Screen To Front 1 : Screen 2
  1120. Load Iff "P0"
  1121. Screen To Front 2
  1122. Limit Mouse 392,86 To 434,114
  1123. XC=217.0 : COIN=221.0 : COVL#=0.1 : CNT=35.0
  1124. Pen 3 : Paper 2
  1125. CH:
  1126. Locate 2,2 : Print "Winnings ï¿½ "; : Print Using "###.#";WI#;
  1127. For L1=29 To 263 Step 26
  1128. Put Block COIN,L1,XC : Play 2,CNT,1
  1129. If Mouse Click<>0 Then Goto TK : 
  1130. Next L1
  1131. For L1=263 To 29 Step -26
  1132. Put Block 252,L1,XC
  1133. Next L1
  1134. Goto CH : 
  1135. TK:
  1136. KL=(L1-3.0)/26.0 : WI#=WI#+(KL*COVL#) : XC=XC-26.0
  1137. If XC=191 Then COIN=221.0 : COVL#=0.1
  1138. If XC=165 Then COIN=220.0 : COVL#=0.2
  1139. If XC=139 Then COIN=220.0 : COVL#=0.2
  1140. If XC=113 Then COIN=219.0 : COVL#=0.5
  1141. If XC=87 Then COIN=218.0 : COVL#=1.0
  1142. If XC=61 Then Goto TXX : 
  1143. CNT=CNT+2.0
  1144. Goto CH : 
  1145. TXX:
  1146. Locate 2,2 : Print Space$(21); : Locate 2,2 : Print "Winnings ï¿½ "; : Print Using "###.#";WI#;
  1147. VB:
  1148. MTL=Rnd(99.0)+1.0 : Put Block 234,113,43 : Play 1,30,2 : Put Block 237,113,43
  1149. Put Block 235,163,43 : Play 1,33,2 : Put Block 237,163,43 : Put Block 236,213,43 : Play 1,39,2 : Put Block 237,213,43
  1150. If Mouse Click<>0 Then Goto VC : 
  1151. Goto VB : 
  1152. VC:
  1153. If MSC=1.0 and MTL>0.0 and MTL<91.0 Then Put Block 234,113,43 : WI#=WI#*1.0
  1154. If MSC=1.0 and MTL>90.0 and MTL<99.0 Then Put Block 235,163,43 : WI#=WI#*2.0
  1155. If MSC=1.0 and MTL>98.0 and MTL<101.0 Then Put Block 236,213,43 : WI#=WI#*3.0
  1156. If MSC=2.0 and MTL>0.0 and MTL<11.0 Then Put Block 234,113,43 : WI#=WI#*1.0
  1157. If MSC=2.0 and MTL>10.0 and MTL<95.0 Then Put Block 235,163,43 : WI#=WI#*2.0
  1158. If MSC=2.0 and MTL>96.0 and MTL<101.0 Then Put Block 236,213,43 : WI#=WI#*3.0
  1159. If MSC=3.0 and MTL>0.0 and MTL<3.0 Then Put Block 234,113,43 : WI#=WI#*1.0
  1160. If MSC=3.0 and MTL>2.0 and MTL<20.0 Then Put Block 235,163,43 : WI#=WI#*2.0
  1161. If MSC=3.0 and MTL>19.0 and MTL<101.0 Then Put Block 236,213,43 : WI#=WI#*3.0
  1162. Locate 2,2 : Print "Winnings ï¿½ "; : Print Using "###.";WI#;
  1163. Return 
  1164. SKILLFRUIT:
  1165. Screen To Front 1
  1166. Screen 2
  1167. Load Iff "P6"
  1168. Screen To Front 2
  1169. Limit Mouse 219,142 To 290,191
  1170. Do 
  1171. Put Block 240,132,64 : Play 1,10,1 : SF=1.0 : OX=132 : OY=64
  1172. If Mouse Click<>0 Then Exit 
  1173. Put Block 241,132,64 : Put Block 240,153,73 : Play 1,15,1 : SF=2.0 : OX=153 : OY=73
  1174. If Mouse Click<>0 Then Exit 
  1175. Put Block 241,153,73 : Put Block 240,169,89 : Play 1,20,1 : SF=3.0 : OX=169 : OY=89
  1176. If Mouse Click<>0 Then Exit 
  1177. Put Block 241,169,89 : Put Block 240,178,110 : Play 1,25,1 : SF=4.0 : OX=178 : OY=110
  1178. If Mouse Click<>0 Then Exit 
  1179. Put Block 241,178,110 : Put Block 240,177,132 : Play 1,30,1 : SF=5.0 : OX=177 : OY=132
  1180. If Mouse Click<>0 Then Exit 
  1181. Put Block 241,177,132 : Put Block 240,169,153 : Play 1,35,1 : SF=6.0 : OX=169 : OY=153
  1182. If Mouse Click<>0 Then Exit 
  1183. Put Block 241,169,153 : Put Block 240,153,169 : Play 1,40,1 : SF=7.0 : OX=153 : OY=169
  1184. If Mouse Click<>0 Then Exit 
  1185. Put Block 241,153,169 : Put Block 240,132,178 : Play 1,45,1 : SF=8.0 : OX=132 : OY=178
  1186. If Mouse Click<>0 Then Exit 
  1187. Put Block 241,132,178 : Put Block 240,110,177 : Play 1,50,1 : SF=9.0 : OX=110 : OY=177
  1188. If Mouse Click<>0 Then Exit 
  1189. Put Block 241,110,177 : Put Block 240,89,169 : Play 1,55,1 : SF=10.0 : OX=89 : OY=169
  1190. If Mouse Click<>0 Then Exit 
  1191. Put Block 241,89,169 : Put Block 240,73,153 : Play 1,60,1 : SF=11.0 : OX=73 : OY=153
  1192. If Mouse Click<>0 Then Exit 
  1193. Put Block 241,73,153 : Put Block 240,64,132 : Play 1,65,1 : SF=12.0 : OX=64 : OY=132
  1194. If Mouse Click<>0 Then Exit 
  1195. Put Block 241,64,132 : Put Block 240,64,110 : Play 1,70,1 : SF=13.0 : OX=64 : OY=110
  1196. If Mouse Click<>0 Then Exit 
  1197. Put Block 241,64,110 : Put Block 240,73,89 : Play 1,75,1 : SF=14.0 : OX=73 : OY=89
  1198. If Mouse Click<>0 Then Exit 
  1199. Put Block 241,73,89 : Put Block 240,89,73 : Play 1,80,1 : SF=15.0 : OX=89 : OY=73
  1200. If Mouse Click<>0 Then Exit 
  1201. Put Block 241,89,73 : Put Block 240,110,64 : Play 1,85,1 : SF=16.0 : OX=110 : OY=64
  1202. If Mouse Click<>0 Then Exit 
  1203. Put Block 241,110,64
  1204. Loop 
  1205. For LO=1 To 20
  1206. Put Block 240,OX,OY : Play 2,40,2 : Put Block 241,OX,OY : Play 1,50,2
  1207. Next LO
  1208. FG=Rnd(99.0)+1.0
  1209. If SF=1.0 and FG<34.0 Then S1=130 : S4=129 : WI#=WI#+1.2
  1210. If SF=1.0 and FG>33.0 and FG<67.0 Then S1=130 : S4=131 : WI#=WI#+1.2
  1211. If SF=1.0 and FG>66.0 Then S1=130 : S4=130 : WI#=WI#+6.0
  1212. If SF=2.0 and FG<48.0 Then S1=114 : S4=115 : WI#=WI#+3.0
  1213. If SF=2.0 and FG>47.0 and FG<97.0 Then S1=114 : S4=113 : WI#=WI#+3.0
  1214. If SF=2.0 and FG>96.0 Then S1=114 : S4=114 : WI#=WI#+SIL#
  1215. If SF=3.0 and FG<34.0 Then S1=106 : S4=105 : WI#=WI#+1.0
  1216. If SF=3.0 and FG>33.0 and FG<67.0 Then S1=106 : S4=107 : WI#=WI#+1.0
  1217. If SF=3.0 and FG>66.0 Then S1=106 : S4=106 : WI#=WI#+5.0
  1218. If SF=4.0 and FG<47.0 Then S1=113 : S4=114 : WI#=WI#+3.5
  1219. If SF=4.0 and FG>46.0 and FG<97.0 Then S1=113 : S4=112 : WI#=WI#+3.5
  1220. If SF=4.0 and FG>96.0 Then S1=113 : S4=113 : WI#=WI#+100
  1221. If SF=5.0 and FG<34.0 Then S1=125 : S4=126 : WI#=WI#+0.8
  1222. If SF=5.0 and FG>33.0 and FG<67.0 Then S1=125 : S4=124 : WI#=WI#+0.8
  1223. If SF=5.0 and FG>66.0 Then S1=125 : S4=125 : WI#=WI#+4.0
  1224. If SF=6.0 and FG<47.0 Then S1=104 : S4=105 : WI#=WI#+4.5
  1225. If SF=6.0 and FG>46.0 and FG<97.0 Then S1=104 : S4=103 : WI#=WI#+4.5
  1226. If SF=6.0 and FG>96.0 Then S1=104 : S4=104 : WI#=WI#+CSS#
  1227. If SF=7.0 and FG<34.0 Then S1=110 : S4=109 : WI#=WI#+0.3
  1228. If SF=7.0 and FG>33.0 and FG<67.0 Then S1=110 : S4=111 : WI#=WI#+0.3
  1229. If SF=7.0 and FG>66.0 Then S1=110 : S4=110 : WI#=WI#+2.0
  1230. If SF=8.0 and FG<47.0 Then S1=122 : S4=123 : WI#=WI#+5.0
  1231. If SF=8.0 and FG>46.0 and FG<97.0 Then S1=122 : S4=121 : WI#=WI#+5.0
  1232. If SF=8.0 and FG>96.0 Then S1=122 : S4=122 : WI#=WI#+150.0
  1233. If SF=9.0 and FG<34.0 Then S1=102 : S4=103 : WI#=WI#+0.5
  1234. If SF=9.0 and FG>33.0 and FG<67.0 Then S1=102 : S4=101 : WI#=WI#+0.5
  1235. If SF=9.0 and FG>66.0 Then S1=102 : S4=102 : WI#=WI#+3.0
  1236. If SF=10.0 and FG<47.0 Then S1=128 : S4=127 : WI#=WI#+4.0
  1237. If SF=10.0 and FG>46.0 and FG<97.0 Then S1=128 : S4=129 : WI#=WI#+4.0
  1238. If SF=10.0 and FG>96.0 Then S1=128 : S4=128 : WI#=WI#+GOL#
  1239. If SF=11.0 and FG<34.0 Then S1=112 : S4=111 : WI#=WI#+1.4
  1240. If SF=11.0 and FG>33.0 and FG<67.0 Then S1=112 : S4=113 : WI#=WI#+1.4
  1241. If SF=11.0 and FG>66.0 Then S1=112 : S4=112 : WI#=WI#+7.0
  1242. If SF=12.0 and FG<47.0 Then S1=116 : S4=115 : WI#=WI#+2.5
  1243. If SF=12.0 and FG>46.0 and FG<97.0 Then S1=116 : S4=117 : WI#=WI#+2.5
  1244. If SF=12.0 and FG>96.0 Then S1=116 : S4=116 : WI#=WI#+50.0
  1245. If SF=13.0 and FG<34.0 Then S1=127 : S4=128 : WI#=WI#+1.8
  1246. If SF=13.0 and FG>33.0 and FG<67.0 Then S1=127 : S4=126 : WI#=WI#+1.8
  1247. If SF=13.0 and FG>66.0 Then S1=127 : S4=127 : WI#=WI#+10.0
  1248. If SF=14.0 and FG<47.0 Then S1=119 : S4=120 : WI#=WI#+2.2
  1249. If SF=14.0 and FG>46.0 and FG<97.0 Then S1=119 : S4=118 : WI#=WI#+2.2
  1250. If SF=14.0 and FG>96.0 Then S1=119 : S4=119 : WI#=WI#+BRO#
  1251. If SF=15.0 and FG<34.0 Then S1=123 : S4=122 : WI#=WI#+1.6
  1252. If SF=15.0 and FG>33.0 and FG<67.0 Then S1=123 : S4=124 : WI#=WI#+1.6
  1253. If SF=15.0 and FG>66.0 Then S1=123 : S4=123 : WI#=WI#+8.0
  1254. If SF=16.0 and FG<34.0 Then S1=108 : S4=107 : WI#=WI#+2.0
  1255. If SF=16.0 and FG>33.0 and FG<67.0 Then S1=108 : S4=109 : WI#=WI#+2.0
  1256. If SF=16.0 and FG>66.0 Then S1=108 : S4=108 : WI#=WI#+20.0
  1257. S2=S1 : S3=S1
  1258. Screen To Front 1 : Screen 1
  1259. Gosub SPINAWIN : 
  1260. Gosub RSETREELS : 
  1261. Return 
  1262. SKILLNUDGE:
  1263. Screen To Front 1 : Screen 2
  1264. Load Iff "P6"
  1265. Screen To Front 2
  1266. Limit Mouse 383,60 To 429,84
  1267. SKN:
  1268. SY=50.0
  1269. For NUD=225 To 43 Step -14
  1270. Put Block 297,254,NUD : Play 2,SY,2 : SY=SY-2.0 : NUDGES=NUDGES+1.0
  1271. If Mouse Click<>0 Then Goto CON : 
  1272. Next NUD
  1273. For NUD=43 To 225 Step 14
  1274. Put Block 298,254,NUD : Next NUD : NUDGES=0.0
  1275. Goto SKN : 
  1276. CON:
  1277. Wait 50
  1278. Screen To Front 1 : Screen 1
  1279. Limit Mouse 148,141 To 429,282
  1280. Locate 36,15 : Print Using "##";NUDGES; : Locate 2,8 : Print "Nudge Yourself a Winner!!!";
  1281. DWN=1.0 : UP=0.0 : V1=R1 : V2=R2 : V3=R3 : V4=R4
  1282. Put Block 246,12,225 : Put Block 246,73,225 : Put Block 246,134,225 : Put Block 246,195,225
  1283. If DWN=1.0 and UP=0.0 Then Put Block 223,282,138 : Put Block 224,282,99
  1284. If DWN=0.0 and UP=1.0 Then Put Block 222,282,99 : Put Block 225,282,138
  1285. STRTNUDGE:
  1286. Do 
  1287. If Mouse Click<>0 Then Exit 
  1288. Colour 26,$0 : Wait 3 : Colour 26,$FA0 : Wait 3
  1289. Loop 
  1290. Locate 36,15 : Print Using "##";NUDGES;
  1291. If X Mouse>140.0 and X Mouse<189.0 and Y Mouse>267.0 and Y Mouse<283.0 and DWN=1.0 and UP=0.0 Then V1=V1-1.0 : NUDGES=NUDGES-1.0
  1292. If X Mouse>140.0 and X Mouse<189.0 and Y Mouse>267.0 and Y Mouse<283.0 and DWN=0.0 and UP=1.0 Then V1=V1+1.0 : NUDGES=NUDGES-1.0
  1293. If X Mouse>201.0 and X Mouse<250.0 and Y Mouse>267.0 and Y Mouse<283.0 and DWN=1.0 and UP=0.0 Then V2=V2-1.0 : NUDGES=NUDGES-1.0
  1294. If X Mouse>201.0 and X Mouse<250.0 and Y Mouse>267.0 and Y Mouse<283.0 and DWN=0.0 and UP=1.0 Then V2=V2+1.0 : NUDGES=NUDGES-1.0
  1295. If X Mouse>262.0 and X Mouse<311.0 and Y Mouse>267.0 and Y Mouse<283.0 and DWN=1.0 and UP=0.0 Then V3=V3-1.0 : NUDGES=NUDGES-1.0
  1296. If X Mouse>262.0 and X Mouse<311.0 and Y Mouse>267.0 and Y Mouse<283.0 and DWN=0.0 and UP=1.0 Then V3=V3+1.0 : NUDGES=NUDGES-1.0
  1297. If X Mouse>323.0 and X Mouse<372.0 and Y Mouse>267.0 and Y Mouse<283.0 and DWN=1.0 and UP=0.0 Then V4=V4-1.0 : NUDGES=NUDGES-1.0
  1298. If X Mouse>323.0 and X Mouse<372.0 and Y Mouse>267.0 and Y Mouse<283.0 and DWN=0.0 and UP=1.0 Then V4=V4+1.0 : NUDGES=NUDGES-1.0
  1299. If X Mouse>409.0 and X Mouse<430.0 and Y Mouse>140.0 and Y Mouse<151.0 Then UP=1.0 : DWN=0.0 : Put Block 222,282,99 : Put Block 225,282,138 : Goto STRTNUDGE : 
  1300. If X Mouse>409.0 and X Mouse<430.0 and Y Mouse>179.0 and Y Mouse<190.0 Then UP=0.0 : DWN=1.0 : Put Block 224,282,99 : Put Block 223,282,138 : Goto STRTNUDGE : 
  1301. Locate 36,15 : Print Using "##";NUDGES;
  1302. If V1<101.0 Then V1=131.0
  1303. If V1>131.0 Then V1=101.0
  1304. If V2<101.0 Then V2=131.0
  1305. If V2>131.0 Then V2=101.0
  1306. If V3<101.0 Then V3=131.0
  1307. If V3>131.0 Then V3=101.0
  1308. If V4<101.0 Then V4=131.0
  1309. If V4>131.0 Then V4=101.0
  1310. Put Block V1,14,88 : Plot 14,147,1 : Plot 73,147,1 : Plot 14,207,1
  1311. Put Block V2,76,88 : Plot 76,147,1 : Plot 135,147,1 : Plot 76,207,1
  1312. Put Block V3,138,88 : Plot 138,147,1 : Plot 197,147,1 : Plot 138,207,1
  1313. Put Block V4,200,88 : Plot 200,147,1 : Plot 259,147,1 : Plot 200,207,1
  1314. Play 1,20,4
  1315. Gosub CHECKIFWIN : 
  1316. If WI#>0.0 Then Goto XTC : 
  1317. If WI#=0.0 and NUDGES=0.0 Then Goto XTC : 
  1318. Goto STRTNUDGE : 
  1319. XTC:
  1320. Locate 2,8 : Print Space$(36); : Colour 26,$0 : Locate 36,15 : Print Using "##";NUDGES;
  1321. If WI#>0.0 Then Locate 2,8 : Print "Winnings ï¿½"; : Print Using "#####.#";WI#; : NUDGES=0.0
  1322. Put Block 223,282,138 : Put Block 225,282,138 : Put Block 245,12,225 : Put Block 245,73,225 : Put Block 245,134,225 : Put Block 245,195,225
  1323. Wait 100
  1324. Gosub RSETREELS : 
  1325. Return 
  1326. BRONZEPOT:
  1327. S1=119 : S2=119 : S3=119 : S4=119 : WI#=WI#+BRO#
  1328. Screen To Front 1 : Screen 1
  1329. Gosub SPINAWIN : 
  1330. Gosub RSETREELS : 
  1331. BRO#=10.0
  1332. Return 
  1333. SILVERPOT:
  1334. S1=114 : S2=114 : S3=114 : S4=114 : WI#=WI#+SIL#
  1335. Screen To Front 1 : Screen 1
  1336. Gosub SPINAWIN : 
  1337. Gosub RSETREELS : 
  1338. SIL#=15.0
  1339. Return 
  1340. GOLDPOT:
  1341. S1=128 : S2=128 : S3=128 : S4=128 : WI#=WI#+GOL#
  1342. Screen To Front 1 : Screen 1
  1343. Gosub SPINAWIN : 
  1344. Gosub RSETREELS : 
  1345. GOL#=20.0
  1346. Return 
  1347. CASHPOT:
  1348. S1=104 : S2=104 : S3=104 : S4=104 : WI#=WI#+CSS#
  1349. Screen To Front 1 : Screen 1
  1350. Gosub SPINAWIN : 
  1351. Gosub RSETREELS : 
  1352. CSS#=25.0
  1353. Return 
  1354. LITEFH:
  1355. For AA=1 To 5
  1356. Put Block 244,8,8 : Play 1,40,2 : Wait 2 : Put Block 243,8,8 : Play 1,50,2 : Wait 2
  1357. Next AA
  1358. Return 
  1359. VVV:
  1360. TME=0.0
  1361. C$="                                   "
  1362. C$=C$+"AMOSLOADSAMONEY by Gary Hunt. Copyright (c) 1992. Look here "+NAME$+" I am not "
  1363. C$=C$+"going to sit here all day waiting for you (Click that Mouse). "
  1364. Do 
  1365. For P=1 To Len(C$)
  1366. Locate 2,8 : Print Mid$(C$,P,36); : Wait 8
  1367. If Mouse Click<>0 Then Locate 2,8 : Print Space$(36); : Locate 2,8 : Print "Cash ï¿½ "; : Print Using "#####.#";CA#; : Return 
  1368. Next P
  1369. Loop 
  1370. JACKPOT:
  1371. S1=122 : S2=122 : S3=122 : S4=122 : WI#=150.0
  1372. Screen To Front 1 : Screen 1
  1373. Gosub SPINAWIN : 
  1374. TU=50 : Locate 2,8 : Print " Jackpot  Jackpot  Jackpot  Jackpot ";
  1375. For TT=1 To 20
  1376. Put Block 286,286,14 : Put Block 272,270,14 : Put Block 284,249,14 : Put Block 267,231,14 : Put Block 279,208,14
  1377. Put Block 265,189,14 : Put Block 281,177,14 : Put Block 270,157,14 : Put Block 278,137,14 : Put Block 267,118,14
  1378. Put Block 282,104,14 : Put Block 268,91,14 : Put Block 280,71,14 : Put Block 266,48,14 : Put Block 278,29,14
  1379. Put Block 222,282,99 : Put Block 223,282,138 : Put Block 247,12,225 : Put Block 247,73,225 : Put Block 247,134,225 : Put Block 247,195,225
  1380. Colour 24,$F0 : Colour 25,$C00 : Colour 12,$FF0 : Colour 13,$DD0 : Colour 14,$BB0 : Play 1,TU,2 : Play 2,TU+2,2
  1381. Put Block 273,286,14 : Put Block 285,270,14 : Put Block 271,249,14 : Put Block 280,231,14 : Put Block 266,208,14
  1382. Put Block 278,189,14 : Put Block 268,177,14 : Put Block 283,157,14 : Put Block 265,137,14 : Put Block 280,118,14
  1383. Put Block 269,104,14 : Put Block 281,91,14 : Put Block 267,71,14 : Put Block 279,48,14 : Put Block 265,29,14
  1384. Put Block 224,282,99 : Put Block 225,282,138 : Put Block 245,12,225 : Put Block 245,73,225 : Put Block 245,134,225 : Put Block 245,195,225
  1385. Colour 24,$0 : Colour 25,$0 : Colour 12,$F0 : Colour 13,$C0 : Colour 14,$90 : Play 1,TU+3,2 : Play 2,TU+5,2 : TU=TU-2
  1386. Next TT
  1387. Locate 2,8 : Print Space$(36);
  1388. Put Block 273,286,14 : Put Block 272,270,14 : Put Block 271,249,14 : Put Block 267,231,14 : Put Block 266,208,14
  1389. Put Block 265,189,14 : Put Block 268,177,14 : Put Block 270,157,14 : Put Block 265,137,14 : Put Block 267,118,14
  1390. Put Block 269,104,14 : Put Block 268,91,14 : Put Block 267,71,14 : Put Block 266,48,14 : Put Block 265,29,14
  1391. For JA=1 To 150
  1392. WX#=WX#+1.0 : Locate 2,8 : Print "Winnings ï¿½ "; : Print Using "#####.#";WX#; : Wait 5
  1393. Next JA
  1394. WX#=0.0 : B$="                                    "
  1395. B$=B$+"CONGRATULATIONS "+NAME$+" you have won the 'Jackpot' you are now "
  1396. B$=B$+"�150.00p better off. But next time you won't be so lucky, because "
  1397. B$=B$+"I'm going to get my own back by being really mean next go! "
  1398. For P=1 To Len(B$)
  1399. Locate 2,8 : Print Mid$(B$,P,36) : Wait 8
  1400. Next P
  1401. Gosub RSETREELS : 
  1402. Return 
  1403. RSETFG:
  1404. If X3Y1=1.0 Then Put Block 203,247,57
  1405. If X4Y3=1.0 Then Put Block 212,276,115
  1406. If X1Y2=1.0 Then Put Block 205,189,86
  1407. If X2Y4=1.0 Then Put Block 214,218,144
  1408. If X1Y3=1.0 Then Put Block 209,189,115
  1409. If X3Y4=1.0 Then Put Block 215,247,144
  1410. If X2Y1=1.0 Then Put Block 202,218,57
  1411. If X4Y2=1.0 Then Put Block 208,276,86
  1412. If X3Y3=1.0 Then Put Block 211,247,115
  1413. If X3Y2=1.0 Then Put Block 207,247,86
  1414. If X2Y2=1.0 Then Put Block 206,218,86
  1415. If X2Y3=1.0 Then Put Block 210,218,115
  1416. If X1Y4=1.0 Then Put Block 213,189,144
  1417. If X4Y4=1.0 Then Put Block 216,276,144
  1418. If X4Y1=1.0 Then Put Block 204,276,57
  1419. If X1Y1=1.0 Then Put Block 201,189,57
  1420. If X4Y1=1.0 and X4Y2=1.0 and X4Y3=1.0 and X4Y4=1.0 Then Put Block 226,287,35
  1421. If X3Y1=1.0 and X3Y2=1.0 and X3Y3=1.0 and X3Y4=1.0 Then Put Block 226,258,35
  1422. If X2Y1=1.0 and X2Y2=1.0 and X2Y3=1.0 and X2Y4=1.0 Then Put Block 226,229,35
  1423. If X1Y1=1.0 and X1Y2=1.0 and X1Y3=1.0 and X1Y4=1.0 Then Put Block 226,200,35
  1424. If X1Y1=1.0 and X2Y2=1.0 and X3Y3=1.0 and X4Y4=1.0 Then Put Block 230,168,36
  1425. If X1Y1=1.0 and X2Y1=1.0 and X3Y1=1.0 and X4Y1=1.0 Then Put Block 228,167,66
  1426. If X1Y2=1.0 and X2Y2=1.0 and X3Y2=1.0 and X4Y2=1.0 Then Put Block 228,167,96
  1427. If X1Y3=1.0 and X2Y3=1.0 and X3Y3=1.0 and X4Y3=1.0 Then Put Block 228,167,125
  1428. If X1Y4=1.0 and X2Y4=1.0 and X3Y4=1.0 and X4Y4=1.0 Then Put Block 228,167,155
  1429. If X1Y4=1.0 and X2Y3=1.0 and X3Y2=1.0 and X4Y1=1.0 Then Put Block 232,168,186
  1430. Return 
  1431. SPINAWIN:
  1432. For XX=1 To 3
  1433. Gosub MV1 : 
  1434. Next XX
  1435. Put Block S1,14,88 : Play 1,10,0 : Plot 14,147,1 : Plot 73,147,1 : Plot 14,207,1
  1436. For XX=1 To 4
  1437. Gosub MV2 : 
  1438. Next XX
  1439. Put Block S2,76,88 : Play 1,10,0 : Plot 76,147,1 : Plot 135,147,1 : Plot 76,207,1
  1440. For XX=1 To 6
  1441. Gosub MV3 : 
  1442. Next XX
  1443. Put Block S3,138,88 : Play 1,10,0 : Plot 138,147,1 : Plot 197,147,1 : Plot 138,207,1
  1444. For XX=1 To 10
  1445. Gosub MV4 : 
  1446. Next XX
  1447. Put Block S4,200,88 : Play 1,10,0 : Plot 200,147,1 : Plot 259,147,1 : Plot 200,207,1 : Locate 2,8 : Print "Winnings ï¿½ "; : Print Using "###.#";WI#;
  1448. NW=20.0
  1449. For QU=1 To 12
  1450. Play 1,NW,3 : Play 1,NW+3.0,3 : NW=NW+5.0
  1451. Next QU
  1452. Return 
  1453. MV1:
  1454. Put Block 1,13,87 : Put Block 1,75,87 : Put Block 1,137,87 : Put Block 1,199,87
  1455. Put Block 2,13,87 : Put Block 2,75,87 : Put Block 2,137,87 : Put Block 2,199,87
  1456. Put Block 3,13,87 : Put Block 3,75,87 : Put Block 3,137,87 : Put Block 3,199,87
  1457. Put Block 4,13,87 : Put Block 4,75,87 : Put Block 4,137,87 : Put Block 4,199,87
  1458. Return 
  1459. MV2:
  1460. Put Block 1,75,87 : Put Block 1,137,87 : Put Block 1,199,87
  1461. Put Block 2,75,87 : Put Block 2,137,87 : Put Block 2,199,87
  1462. Put Block 3,75,87 : Put Block 3,137,87 : Put Block 3,199,87
  1463. Put Block 4,75,87 : Put Block 4,137,87 : Put Block 4,199,87
  1464. Return 
  1465. MV3:
  1466. Put Block 1,137,87 : Put Block 1,199,87 : Put Block 2,137,87 : Put Block 2,199,87
  1467. Put Block 3,137,87 : Put Block 3,199,87 : Put Block 4,137,87 : Put Block 4,199,87
  1468. Return 
  1469. MV4:
  1470. Put Block 1,199,87 : Put Block 2,199,87 : Put Block 3,199,87 : Put Block 4,199,87
  1471. Return 
  1472. RSETREELS:
  1473. For XX=1 To 3
  1474. Gosub MV1 : 
  1475. Next XX
  1476. Put Block R1,14,88 : Play 1,10,0 : Plot 14,147,1 : Plot 73,147,1 : Plot 14,207,1
  1477. For XX=1 To 4
  1478. Gosub MV2 : 
  1479. Next XX
  1480. Put Block R2,76,88 : Play 1,10,0 : Plot 76,147,1 : Plot 135,147,1 : Plot 76,207,1
  1481. For XX=1 To 6
  1482. Gosub MV3 : 
  1483. Next XX
  1484. Put Block R3,138,88 : Play 1,10,0 : Plot 138,147,1 : Plot 197,147,1 : Plot 138,207,1
  1485. For XX=1 To 10
  1486. Gosub MV4 : 
  1487. Next XX
  1488. Put Block R4,200,88 : Play 1,10,0 : Plot 200,147,1 : Plot 259,147,1 : Plot 200,207,1 : Locate 2,8 : Print Space$(36);
  1489. Return