Slot Machine

REAL LAS VEGAS STYLE CASINO ENTERTAINMENT!

The program is a slot machine which plays 25 cent pieces, and keeps track of your winnings and losses (it even plays a little fanfare if you hit the jackpot). The odds ought to be pretty close to Nevada odds, and should keep the children quiet for hours. It is important to get the spacing just right in line 15, since the “fruit” which appear in the slot machine windows are “slices” of the character string “A$”. (EDITOR’S NOTE: this listing was made with a printer that doesn’t use “Ø” for zero. So be careful when entering numbers in this program.)

   1 REM  **********************
   2 REM  *BILLY'S SLOT MACHINE*
   3 REM  **********************
   5 INK 1
   6 LET P=0
   7 PAPER 6
   8 BORDER 6
   9 CLS
  10 LET S=500
  11 GO SUB 1000
  13 PRINT  AT 1,28;s
  14 PAUSE 150
  15 LET A$="CHERRYLEMON  PLUM ORANGE BELL  -BAR-CHERRY"
  16 PAPER 6
  18 GO TO 81
  20 FOR J=1 TO 22
  21 PRINT  AT 7,20;"   "
  25 PRINT  AT 10,J;" "
  30 PRINT  AT 11,J;" "
  35 PRINT  AT 12,J;" "
  39 PRINT  AT 20,1;"3 BAR OR BELL=JACKPOT"
  40 NEXT J
  55 DIM B$(3,6)
  60 FOR J=1 TO 3
  65 LET B$(J)=A$(1+6* INT ( RND *7) TO 42)
  67 IF B$(J)="CHERRY"  THEN  PAPER 2
  68 IF B$(J)="LEMON " THEN  PAPER 6
  69 IF B$(J)=" PLUM " THEN  PAPER 3
  70 IF B$(J)="ORANGE" THEN  PAPER 2: INK 6
  71 IF B$(J)=" BELL " THEN  PAPER 0: INK 6
  72 IF B$(J)=" -BAR-" THEN  PAPER 7: INK 0
  73 PRINT  AT 11,7*J-5;B$(J)
  74 BEEP .05,15
  75  PAPER 6: INK 1
  76 NEXT J
  78 PLOT 214,49
  79 DRAW 0,55: DRAW 2,0: DRAW 0,23: DRAW -8,0: DRAW 0,-23: DRAW 2,0: DRAW 0,-55
  80 GO SUB 2000
  81 PRINT  AT 7,2;"DEPOSIT 2 BITS-->"
  82 PRINT  AT 7,21; FLASH 1;"D"
  83 IF  INKEY$ ="d" OR  INKEY$ ="D" THEN  PRINT  AT 7,2;"                 ": PR
INT  AT 7,20;"25c": GO TO 85
  84 GO TO 83
  85 PRINT  AT 6,28;"PULL": PRINT  AT 7,27;"<----"
  86 PRINT  AT 7,26; FLASH 1;"P"
  87 LET S=S-25: PRINT  AT 1,28;S
  89 IF  INKEY$ ="p" OR  INKEY$ ="P" THEN  GO TO 91
  90 GO TO 89
  91 PRINT  AT 5,26;" "; AT 6,26;"      "; AT 7,26;"      "; AT 8,26;"  "; AT 9,
26;" "; AT 10,26;" "; AT 11,26;" "; AT 12,26;" "; AT 13,26;" "; AT 14,26;" "
  95 GO TO 20
1000 PRINT
1001 PLOT 0,4
1002 DRAW 192,0
1003 DRAW 0,148
1004 DRAW -192,0
1005 DRAW 0,-148
1006 PLOT 192,24
1007 DRAW 8,0
1008 DRAW 0,40
1009 DRAW -8,0
1010 PLOT 200,40
1011 DRAW 12,0
1012 PLOT 200,48
1013 DRAW 12,0
1014 CIRCLE 212,44,5
1015 PLOT 210,49
1016 DRAW 0,55
1017 PLOT 214,49
1018 DRAW 0,55
1019 DRAW 2,0
1020 DRAW 0,23
1021 DRAW -8,0
1022 DRAW 0,-23
1023 CIRCLE 172,116,14
1024 PLOT 6,70
1025 DRAW 180,0
1026 DRAW 0,28
1027 DRAW -180,0
1028 DRAW 0,-28
1029 PRINT  AT 4,5;"BILLYS SLOT"
1030 PRINT  AT 5,7;"MACHINE"
1033 PRINT  AT 14,4;"2 CHERRY PAYS 2"
1034 PRINT  AT 15,4;"3 CHERRY PAYS 5"
1035 PRINT  AT 16,4;"2 PLUM   PAYS 5"
1036 PRINT  AT 17,4;"3 PLUM   PAYS 10"
1037 PRINT  AT 18,4;"2 ORANGE PAYS 5"
1038 PRINT  AT 19,4;"3 ORANGE PAYS 10"
1039 PRINT  AT 1,15;"YOU NOW HAVE"
1040 RETURN
2010 IF B$(1)=B$(2) AND B$(1)="CHERRY" THEN  LET P=50: PRINT  AT 1,1; FLASH 1;"Y
OU WIN ";P
2011 IF B$(1)=B$(2) AND B$(1)=B$(3) AND B$(1)="CHERRY" THEN  LET P=125: PRINT  A
T 1,1; FLASH 1;"YOU WIN ";P
2012 IF B$(1)=B$(2) AND B$(1)=" PLUM " THEN  LET P=125: PRINT  AT 1,1; FLASH 1;"
YOU WIN ";P
2013 IF B$(1)=B$(2) AND B$(1)=B$(3) AND B$(1)=" PLUM " THEN  LET P=250: PRINT  A
T 1,1; FLASH 1;"YOU WIN ";P
2014 IF B$(1)=B$(2) AND B$(1)="ORANGE" THEN  LET P=125: PRINT  AT 1,1; FLASH 1;"
YOU WIN ";P
2015 IF B$(1)=B$(2) AND B$(1)=B$(3) AND B$(1)="ORANGE" THEN  LET P=250: PRINT  A
T 1,1; FLASH 1;"YOU WIN ";P
2016 IF B$(1)=B$(2) AND B$(1)="LEMON " THEN  PRINT  AT 1,1; FLASH 1;"SORRY, NO W
IN": PAUSE 100
2017 IF B$(1)=B$(2) AND B$(1)=B$(3) AND B$(1)=" -BAR-" THEN  PRINT  AT 1,1; FLAS
H 1;"JACKPOT - $10": LET P=1000: GO SUB 4000
2018 IF B$(1)=B$(2) AND B$(1)=B$(3) AND B$(1)=" BELL " THEN  PRINT  AT 1,1; FLAS
H 1;"JACKPOT - $10": LET P=1000: GO SUB 4000
2019 LET S=S+P
2020 PRINT  AT 1,28;"    "
2021 PRINT  AT 1,28;S
2022 LET P=0
2025 IF S=0 THEN  GO TO 3000
2040 PAUSE 75
2050 PRINT  AT 1,1;"              "
2060 RETURN
3000 PRINT  AT 1,0;"YOU ARE BUSTED-FOR REPLAY HIT "; FLASH 1;"R"
3010 IF  INKEY$ ="R" THEN  RUN
3020 GO TO 3010
4000 BEEP .2,-3: BEEP .2,2: BEEP .2,6: BEEP .4,9: BEEP .2,6: BEEP .8,9
4010 RETURN