home *** CD-ROM | disk | FTP | other *** search
- 1 POKE53280,0:POKE53281,0
- 7 PRINT"[147]DO YOU REQUEST INSTRUCTIONS ?"
- 8 GETA$:IFA$=""THEN8
- 9 IFA$="Y"THENGOSUB25000
- 11 GOSUB1950:GOSUB15:GOTO170
- 15 PRINT"[147][158] GOLD SOVERIGN SLOT MACHINE [146]"
- 19 POKE53280,0:POKE53281,0
- 20 PRINT"WIN LINES."
- 30 PRINT"CHERRY ANY ANY =002"
- 40 PRINT"CHERRY CHERRY ANY =004"
- 50 PRINT"CHERRY CHERRY CHERRY =008"
- 60 PRINT"BELL BELL BAR =010"
- 70 PRINT"PLUM PLUM ANY =010"
- 80 PRINT"ORANGE ORANGE ANY =010"
- 90 PRINT"BELL BELL BELL =012"
- 100 PRINT"PLUM PLUM BAR =015"
- 110 PRINT"PLUM PLUM PLUM =015"
- 120 PRINT"ORANGE ORANGE ORANGE =020"
- 130 PRINT"ORANGE ORANGE BAR =025"
- 140 PRINT"BAR BAR ANY =030"
- 150 PRINT"BAR BAR BAR =050"
- 160 PRINT"GOLD GOLD GOLD =100"
- 161 IFA=1THENPRINTTAB(85)"PRESS ANY KEY TO CONTINUE[146]"
- 162 IFA=0THEN169
- 163 GETE$:IFE$=""THEN162
- 164 POKE53280,9:POKE53281,6:GOSUB1090
- 169 RETURN
- 170 DIMW$(59,2)
- 176 FORI=0TO59
- 180 READW$(I,0)
- 190 NEXTI
- 200 FORI=0TO59
- 210 READW$(I,1)
- 220 NEXTI
- 230 FORI=0TO59
- 240 READW$(I,2)
- 250 NEXTI
- 260 PRINT" PRESS SPACE TO CONT [146]"
- 270 GETC$:IFC$<>" "THEN270
- 280 POKE53280,9:POKE53281,6
- 360 F0=(INT(RND(1)*9))*6
- 365 D=8
- 400 F1=(INT(RND(1)*9))*6
- 410 F2=(INT(RND(1)*9))*6
- 420 GOTO1090
- 421 REM
- 497 :
- 498 IFH1=1ANDH2=1ANDH3=1THENH1=0:H2=0:H3=0:GOSUB12000:RETURN
- 499 IFH1=1THENH$(1)="":GOTO510
- 500 T0=(INT(RND(9)*6)+1)*6
- 510 FORI=0TO6 :POKE54276,17
- 511 D=8
- 512 FORJ=0TO5
- 513 PRINT"";LEFT$(D$,D);"";H$(1);"";H$(2);"";H$(3)
- 515 D=D+1
- 520 NEXTJ
- 525 D=8
- 530 FORK=0TO5
- 540 PRINT"";LEFT$(D$,D);"";H$(1);"";H$(2);"";H$(3)
- 545 D=D+1:POKE54276,0
- 550 NEXTK
- 560 NEXTI
- 565 IFH1=1THEN580
- 570 F0=((F0+T0)/10)*6
- 575 F0=(INT(F0/6))*6
- 580 D=8
- 585 H1=0:H$(1)=" "
- 590 FORI=0TO5
- 595 IFF0>59THENF0=0
- 600 PRINT"";LEFT$(D$,D);"";W$(F0,0)
- 605 IFF0>59THENF0=0
- 610 D=D+1:F0=F0+1
- 620 NEXTI
- 621 F0=F0-6:IFF0<0THENF0=53
- 625 IFH2=1THENH$(2)="":GOTO640
- 630 T1=(INT(RND(9)*6)+1)*6
- 640 FORI=0TO5:POKE54276,17
- 650 D=8
- 660 FORJ=0TO5
- 670 PRINT"";LEFT$(D$,D);"";H$(2);"";H$(3)
- 680 D=D+1
- 690 NEXTJ
- 700 D=8
- 710 FORK=0TO5
- 720 PRINT"";LEFT$(D$,D);"";H$(2);"";H$(3)
- 730 D=D+1:POKE54276,0
- 740 NEXTK
- 750 NEXTI
- 755 IFH2=1THEN780
- 760 F1=((F1+T1)/10)*6
- 770 F1=(INT(F1/6))*6
- 780 D=8
- 785 H2=0:H$(2)=" "
- 790 FORI=0TO5
- 795 IFF1>59THENF1=0
- 800 PRINT"";LEFT$(D$,D);"";W$(F1,1)
- 805 IFF1>59THENF1=0
- 810 D=D+1:F1=F1+1
- 820 NEXTI
- 821 F1=F1-6:IFF1<0THENF1=53
- 825 IFH3=1THENH$(3)="":GOTO840
- 830 T2=(INT(RND(9)*6)+1)*6
- 840 FORI=0TO5:POKE54276,17
- 850 D=8
- 860 FORJ=0TO5
- 870 PRINT"";LEFT$(D$,D);"";H$(3)
- 880 D=D+1:POKE54276,0
- 890 NEXTJ
- 900 D=8
- 910 FORK=0TO5
- 920 PRINT"";LEFT$(D$,D);"";H$(3)
- 930 D=D+1
- 940 NEXTK
- 950 NEXTI
- 955 IFH3=1THEN980
- 960 F2=((F2+T2)/10)*6
- 970 F2=(INT(F2/6))*6
- 980 D=8
- 985 H3=0:H$(3)=" "
- 990 FORI=0TO5
- 995 IFF2>59THENF2=0
- 1000 PRINT"";LEFT$(D$,D);"";W$(F2,2)
- 1005 IFF2>59THENF2=0
- 1010 D=D+1:F2=F2+1
- 1020 NEXTI
- 1021 F2=F2-6:D=8:IFF2<0THENF2=53
- 1022 GOSUB12000
- 1030 RETURN
- 1040 REM
- 1080 GETC$:IFC$<>" "THEN270
- 1090 PRINT"[147][152] [146]"
- 1100 FORI=0TO5
- 1110 PRINT" [146]"
- 1120 NEXTI
- 1130 PRINT" [146]"
- 1140 PRINT"CREDITS=";C;"[152]"
- 1150 PRINT"*WIN* *LINE*[152]"
- 1160 D=8
- 1165 IFF0=60THENF0=0
- 1170 FORI=0TO5
- 1180 PRINT"";LEFT$(D$,D);" ";W$(F0,0):D=D+1:F0=F0+1
- 1190 NEXTI
- 1200 D=8:F0=F0-6:IFF0<0THENF0=53
- 1205 IFF1=60THENF1=0
- 1210 FORI=0TO5
- 1220 PRINT"";LEFT$(D$,D);"";W$(F1,1):D=D+1:F1=F1+1
- 1230 NEXTI
- 1240 D=8:F1=F1-6:IFF1<0THENF1=53
- 1245 IFF2=60THENF2=0
- 1250 FORI=0TO5
- 1260 PRINT"";LEFT$(D$,D);"";W$(F2,2):D=D+1:F2=F2+1
- 1270 NEXTI
- 1280 D=8:F2=F2-6:IFF2<0THENF2=53:GOSUB12000
- 1799 REM
- 1810 REM
- 1815 PRINT"PRESS SPACE TO CONT:S TO STOP [146]"
- 1816 PRINT" F7 TO SEE WIN LINES [146]"
- 1817 PRINT"[152] [146]"
- 1818 IFC=0THEN13100
- 1820 GETC$
- 1825 IFHE$=" "THENC$=" ":HE$=""
- 1826 IFC$=" "THENC=C-1:GOSUB13000:GOSUB497
- 1830 IFC$="[136]"THENA=1:GOSUB15
- 1840 IFC$=""THEN1820
- 1845 IFC$="S"THEN20010
- 1850 GOTO1817
- 1860 REM
- 1950 POKE650,127:POKE54276,0:POKE54283,0:POKE54290,0
- 1960 GOSUB16000
- 1980 C=10:P0=0:P1=0:P2=0:T0=0:T1=0:T2=0:A=0:H$(1)=" ":H$(2)=" "
- 1985 H$(3)=" ":H1=0:H2=0:H3=0
- 1990 D$="":AC$=""
- 2000 RETURN
- 2999 REM
- 3000 DATA"B*A*R*[146]","[158] [146]","B*A*R*[146]","[158] [146]","B*A*R*[146]"
- 3010 DATA"[154] [146]"
- 3020 REM
- 3030 DATA"B*A*R*[146]","[158] [146]","B*A*R*[146]","[158] [146]","B*A*R*[146]"
- 3040 DATA"[154] [146]"
- 3050 REM
- 3060 DATA"[152] [185] ","[152] [169] [223][146] ","[152] [146] ","[152] [169] [223][146]","[152] [202][198][203] "
- 3070 DATA" "
- 3080 REM
- 3090 DATA"[129] ","[129] [169] [223][146] ","[129] [146] ","[129] [146] ","[129] [223] [146][169] "
- 4000 DATA" "
- 4010 REM
- 4020 DATA"[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]"
- 4030 DATA"[158] **** [146]"
- 4040 REM
- 4050 DATA"[156] ","[156] [169] [223][146] ","[156] [146] ","[156] [146] ","[156] [223] [146][169] "
- 4060 DATA" "
- 4070 REM
- 4080 DATA"[150] [146]","[150] [146] [213] [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
- 4090 DATA"[150] [146] [146]","[150] [146]"
- 5000 REM
- 5010 DATA"[129] ","[129] [169] [223][146] ","[129] [146] ","[129] [146] ","[129] [223] [146][169] "
- 5020 DATA" "
- 5030 REM
- 5040 DATA"[150] [146]","[150] [146] [213] [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
- 5050 DATA"[150] [146] [146]","[150] [146]"
- 5060 REM
- 5070 DATA"[152] [185] ","[152] [169] [223][146] ","[152] [146] ","[152] [169] [223][146]","[152] [202][198][203] "
- 5080 DATA" "
- 6000 DATA"B*A*R*[146]","[158] [146]","B*A*R*[146]","[158] [146]","B*A*R*[146]"
- 6010 DATA"[154] [146]"
- 6020 REM
- 6030 DATA"[156] ","[156] [169] [223][146] ","[156] [146] ","[156] [146] ","[156] [223] [146][169] "
- 6040 DATA" "
- 6050 REM
- 6060 DATA"[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]"
- 6070 DATA"[158] **** [146]"
- 6080 REM
- 6090 DATA"[150] [146]","[150] [146] [213] [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
- 7000 DATA"[150] [146] [146]","[150] [146]"
- 7010 REM
- 7020 DATA"[152] [185] ","[152] [169] [223][146] ","[152] [146] ","[152] [169] [223][146]","[152] [202][198][203] "
- 7030 DATA" "
- 7040 REM
- 7050 DATA"[129] ","[129] [169] [223][146] ","[129] [146] ","[129] [146] ","[129] [223] [146][169] "
- 7060 DATA" "
- 7070 REM
- 7080 DATA"[150] [146]","[150] [146] [213] [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
- 7090 DATA"[150] [146] [146]","[150] [146]"
- 8000 REM
- 8010 DATA"[152] [185] ","[152] [169] [223][146] ","[152] [146] ","[152] [169] [223][146]","[152] [202][198][203] "
- 8020 DATA" "
- 8030 REM
- 8040 DATA"[156] ","[156] [169] [223][146] ","[156] [146] ","[156] [146] ","[156] [223] [146][169] "
- 8050 DATA" "
- 8060 REM
- 8070 DATA"[129] ","[129] [169] [223][146] ","[129] [146] ","[129] [146] ","[129] [223] [146][169] "
- 8080 DATA" "
- 8090 REM
- 9000 DATA"[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]","[158] **** [146]","[158] GOLD [146]"
- 9010 DATA"[158] **** [146]"
- 9020 REM
- 9030 DATA"[150] [146]","[150] [146] [213] [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
- 9040 DATA"[150] [146] [146]","[150] [146]"
- 9050 REM
- 9060 DATA"[156] ","[156] [169] [223][146] ","[156] [146] ","[156] [146] ","[156] [223] [146][169] "
- 9070 DATA" "
- 9080 REM
- 9090 DATA"[152] [185] ","[152] [169] [223][146] ","[152] [146] ","[152] [169] [223][146]","[152] [202][198][203] "
- 10000 DATA" "
- 10010 REM
- 10020 DATA"[129] ","[129] [169] [223][146] ","[129] [146] ","[129] [146] ","[129] [223] [146][169] "
- 10030 DATA" "
- 10040 REM
- 10050 DATA"B*A*R*[146]","[158] [146]","B*A*R*[146]","[158] [146]","B*A*R*[146]"
- 10060 DATA"[154] [146]"
- 10080 REM
- 10090 DATA"[150] [146]","[150] [146] [213] [150] [146]","[150] [146][172][219][191][146] [150] [146]","[150] [146][156][209][177][156][209] [150] [146]"
- 11000 DATA"[150] [146] [146]","[150] [146]"
- 11010 REM
- 11020 DATA"[129] ","[129] [169] [223][146] ","[129] [146] ","[129] [146] ","[129] [223] [146][169] "
- 11030 DATA" "
- 11040 REM
- 11050 DATA"[156] ","[156] [169] [223][146] ","[156] [146] ","[156] [146] ","[156] [223] [146][169] "
- 11060 DATA" "
- 11070 REM
- 11080 DATA"[152] [185] ","[152] [169] [223][146] ","[152] [146] ","[152] [169] [223][146]","[152] [202][198][203] "
- 11090 DATA" "
- 12000 REM
- 12005 A$=W$(F0,0):B$=W$(F1,1):G$=W$(F2,2):H$(1)=" ":H$(2)=" "
- 12006 H$(3)=" "
- 12500 IFA$="[129] "ANDB$=A$ANDG$=A$THENC=C+20:GOSUB15000:GOTO13000
- 12510 IFA$="B*A*R*"ANDB$=A$ANDG$=A$THENC=C+50:GOSUB15000:GOTO13000
- 12520 IFA$="[158] GOLD [146]"ANDB$=A$ANDG$=A$THENC=C+100:GOSUB15000:GOTO13000
- 12530 IFA$="[156] "ANDB$=A$ANDG$=A$THENC=C+15:GOSUB15000:GOTO13000
- 12540 IFA$="[152] [162] "ANDB$=A$ANDG$=A$THENC+12:GOSUB15000:GOTO13000
- 12550 IFA$="[150] [146]"ANDB$=A$ANDG$=A$THENC=C+8:GOSUB15000:GOTO13000
- 12560 IFA$="[150] [146]"ANDB$=A$ANDG$<>A$THENC=C+4:GOSUB15000:GOTO13000
- 12570 IFA$="[152] [162] "ANDB$=A$ANDG$="B*A*R*[146]"THENC+10:GOSUB15000:GOTO13000
- 12580 IFA$="[156] "ANDB$=A$ANDG$<>A$THENC=C+10:GOSUB15000:GOTO13000
- 12590 IFA$="[129] "ANDB$=A$ANDG$<>A$THENC=C+10:GOSUB15000:GOTO13000
- 12600 IFA$="[156] "ANDB$=A$ANDG$="B*A*R*[146]"THENC=C+15:GOSUB15000:GOTO13000
- 12620 IFA$="B*A*R*"ANDB$=A$ANDG$<>A$THENC=C+30:GOSUB15000:GOTO13000
- 12630 IFA$="[150] [146]"ANDB$=A$ANDG$<>A$THENC=C+2:GOSUB15000:GOTO13000
- 12635 GOSUB15500
- 12640 HO=INT(RND(9)*2)+1
- 12645 PRINT"[152] "
- 12650 IFHO<>1THEN13000
- 12660 PRINT"[152] HOLD 1 HOLD 2 HOLD 3 [146]"
- 12680 GETHE$:IFHE$=""THEN12680
- 12690 IFHE$=" "THEN13000
- 12695 IFHE$="S"THEN20010
- 12700 IFHE$="1"THENH1=1:H$(1)="":PRINT"HELD 1"
- 12710 IFHE$="2"THENH2=1:H$(2)="":PRINT"";LEFT$(AC$,17);"HELD 2"
- 12720 IFHE$="3"THENH3=1:H$(3)="":PRINT"";LEFT$(AC$,24);"HELD 3"
- 12730 GOTO12680
- 13000 PRINT"";C;"[157] ":IFC<0THEN13100
- 13020 RETURN
- 13100 PRINT"[147]SORRY YOU HAVE NO MORE CREDITS"
- 13105 PRINT"WOULD YOU LIKE TO PLAY AGAIN ?"
- 13110 GETM$:IFM$="Y"THENRUN
- 13115 IFM$="N"THENPRINT"[147]":STOP
- 13120 M$="":GOTO13110
- 13130 PRINT" ":GOSUB12000
- 13140 GOTO1815
- 15000 POKE54296,15
- 15010 POKE54273,45:POKE54272,255:POKE54277,9:POKE54278,000:POKE54275,0
- 15020 POKE54274,255:POKE54276,17
- 15030 FORL=0TO100:NEXTL
- 15040 POKE54273,65:POKE54272,200:POKE54276,17
- 15065 FORL=0TO300:NEXTL:POKE54276,0
- 15070 GOSUB16000:RETURN
- 15500 POKE54296,15
- 15510 POKE54273,15:POKE54272,25:POKE54277,9:POKE54278,000:POKE54275,0
- 15520 POKE54274,255:POKE54276,33
- 15530 FORL=0TO500:NEXTL
- 15565 POKE54276,0
- 15570 GOSUB16000:RETURN
- 15999 :
- 16000 POKE54296,15
- 16010 POKE54273,32:POKE54272,55:POKE54277,9:POKE54278,000:POKE54275,0
- 16070 :RETURN
- 20010 PRINT"[147]PLAY AGAIN SOMETIME !!"
- 20015 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
- 20020 POKE650,0
- 20030 END
- 25000 PRINT"[147]YOU START WITH 10 CREDITS ON THE SLOT MACHINE.THESE DECREASE ";
- 25010 PRINT"BY 1 EACH TIME THAT YOU SPIN THE WHEELS.AT THE START OF THE ";
- 25020 PRINT"PROGRAM THE WINNING LINES AND THEIR VALUES WILL BE DISPLAYED.";
- 25030 PRINT"IF YOU WISH TO SEE THESE ONCE YOU HAVE STARTED PRESS 'F7'.TO ";
- 25040 PRINT"RETURN TO THE WHEELS PRESS ANY KEY."
- 25060 PRINT"THERE IS A HOLD FACILITY WHICH IS USED BY INDICATING THE NUMBER ";
- 25070 PRINT"OF THE WHEEL(S) TO BE HELD (1-3).";
- 25080 PRINT"IF YOU WISH TO STOP THE PROGRAM "
- 25090 PRINT"PRESS 'SPACE' TO CONTINUE[146]"
- 25100 GETK$:IFK$<>" "THEN25100
- 25110 RETURN
- 28010 REM
- 29000 :
- 29010 :
- 40000 PRINT"[150] [146]":PRINT"[150] [146] [213] [150] [146]":"[150] [146][172][219][191][146] [150] [146]":PRINT"[150] [146][209][129]
-