Home » Personal collection » Commodore disks » disk30c2_loadstar_131.d64 » slot.main
slot.main
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore disks » disk30c2_loadstar_131.d64 |
| Filename: | slot.main |
| Read OK: | ✔ |
| File size: | 38C4 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
5 POKE55,0:POKE56,96:CLR
10 POKE53280,0:POKE53281,0:PRINT"<yellow>"
20 DV=PEEK(186):IFDV<8THENDV=8
30 SYS57812"SLOT.FONT",DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493
33 SYS57812"SLOT.SWAPPYMEM",DV,0:POKE780,0:POKE781,0:POKE782,156:SYS65493
35 SYS57812"SLOT.SFX",DV,0:POKE780,0:POKE781,0:POKE782,157:SYS65493
37 SYS57812"SLOT.DTEXT",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
38 SYS36864,"P.STAR SLOTS",DV,24576
40 POKE53272,19
41 AD=49152:FX=40192:CR=100:WI=0:A=RND(-TI):FL=1:CM=0:NB$="🭲🭸1237*"
45 SYSFX+15:SYSFX:SYSFX+12:V=53248:POKEV+39,14:POKEV+40,14:POKEV+41,14
46 POKEV+29,7:POKEV+23,7:POKEV+16,0
47 POKE53275,PEEK(53275)OR0
50 R$(1)="<rev off><black>↑↑↑↑<cursor down><cursor left><cursor left><cursor left><cursor left>↑↑↑↑<cursor down><cursor left><cursor left><cursor left><cursor left>↑↑↑↑<cursor down><cursor left><cursor left><cursor left><cursor left>↑↑↑↑<rev off>"
60 R$(2)="<reverse on><red>TUVW<cursor down><cursor left><cursor left><cursor left><cursor left>4567<cursor down><cursor left><cursor left><cursor left><cursor left>🭰╭╳○<cursor down><cursor left><cursor left><cursor left><cursor left>▎▍🮈🮂<rev off>"
70 R$(3)="<reverse on><cyan>XXXX<cursor down><cursor left><cursor left><cursor left><cursor left>89:;<cursor down><cursor left><cursor left><cursor left><cursor left>♣🭵♦┼<cursor down><cursor left><cursor left><cursor left><cursor left>XXXX<rev off>"
80 R$(4)="<reverse on><cyan>DEFG<cursor down><cursor left><cursor left><cursor left><cursor left>$%&'<cursor down><cursor left><cursor left><cursor left><cursor left>🭷🭶🭺🭱<cursor down><cursor left><cursor left><cursor left><cursor left>▁▏▒▕<rev off>"
90 R$(5)="<reverse on><cyan>HIJK<cursor down><cursor left><cursor left><cursor left><cursor left>()*+<cursor down><cursor left><cursor left><cursor left><cursor left>🭴╮╰╯<cursor down><cursor left><cursor left><cursor left><cursor left>🮏◤🮇├<rev off>"
100 R$(6)="<reverse on><blue>LMNO<cursor down><cursor left><cursor left><cursor left><cursor left>,-./<cursor down><cursor left><cursor left><cursor left><cursor left>🭼╲╱🭽<cursor down><cursor left><cursor left><cursor left><cursor left>▗└┐▗<rev off>"
110 R$(7)="<reverse on><yellow>PQRS<cursor down><cursor left><cursor left><cursor left><cursor left>0123<cursor down><cursor left><cursor left><cursor left><cursor left>🭾●🭻♥<cursor down><cursor left><cursor left><cursor left><cursor left>┌┴┬┤<rev off>"
115 R$(8)="<reverse on><cyan>£]↑←<cursor down><cursor left><cursor left><cursor left><cursor left><=>?<cursor down><cursor left><cursor left><cursor left><cursor left>🮌│π◥<cursor down><cursor left><cursor left><cursor left><cursor left>▝▘▘▚<rev off>"
116 R$(9)="<reverse on><red>@ABC<rev off>"
117 X$="<cursor up><cursor up><cursor up>":B$=" <cursor down><cursor left><cursor left><cursor left><cursor left> <cursor down><cursor left><cursor left><cursor left><cursor left> <cursor down><cursor left><cursor left><cursor left><cursor left> "
118 Y$="<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>"
119 Z$="<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>"
120 RR$="<white><rev off>▌▌▌▌<cursor down><cursor left><cursor left><cursor left><cursor left>▌▌▌▌<cursor down><cursor left><cursor left><cursor left><cursor left>▌▌▌▌<cursor down><cursor left><cursor left><cursor left><cursor left>▌▌▌▌"
130 AA$(1)="<pink><reverse on>🭹♠<cursor down><cursor left><cursor left> ▌"
131 AA$(2)="<pink><reverse on>🭲🭸<cursor down><cursor left><cursor left>▄▔"
132 AA$(3)="<pink><rev off>🮈🮂<cursor down><cursor left><cursor left>🮃▃"
133 AA$(4)="<pink><rev off>┼🮌<cursor down><cursor left><cursor left>▖▝"
134 AA$(5)="<pink><rev off>π◥<cursor down><cursor left><cursor left>▘▚"
135 GOTO8000
140 GOSUB200:GOTO300
150 STOP
200 Q(1)=31:Q(2)=39:Q(3)=59:Q(4)=74:Q(5)=84:Q(6)=94:M(1)=30:M(2)=38:M(3)=58
210 M(4)=73:M(5)=83:M(6)=93
220 RETURN
300 PRINT"<clr>":SYSAD+18,1,"🭾 ♠ 🭵 🭽 🭺 🭺 🭸 🭴 ♠ 🭻 🭰"
310 PRINT:PRINTR$(2)"<cursor up>"R$(9)R$(9);"<cursor right><rev off><white>2"
320 PRINT"<cursor down>"R$(2)"<cursor up><cursor up><cursor up>"R$(2)"<cursor up>"R$(9);"<cursor right><white><rev off>5"
330 PRINT"<cursor down>"R$(2)"<cursor up><cursor up><cursor up>"R$(2)"<cursor up><cursor up><cursor up>"R$(2);"<rev off><white><cursor up><cursor right>10"
340 PRINT"<cyan><cursor down>"R$(8)X$R$(8)X$R$(8);"<rev off><cursor up><cursor right><cursor up><white>5"
350 PRINT"<cursor down><cursor down>"R$(3)X$R$(3)X$R$(3);"<cursor up><rev off><cursor right><white>10"
360 PRINTR$(4)X$R$(4)X$R$(4);"<rev off><cursor up><cursor right><white>25"
370 PRINTLEFT$(Y$,3)LEFT$(Z$,20)R$(5)X$R$(5)X$R$(5)"<rev off><cursor up><cursor right><white>40"
380 PRINTLEFT$(Y$,7)LEFT$(Z$,20)R$(6)X$R$(6)X$R$(6)"<cursor up><cursor right><rev off><white>80"
390 PRINTLEFT$(Y$,12)LEFT$(Z$,20)R$(7)X$R$(7)X$R$(7)
400 PRINTLEFT$(Y$,16)LEFT$(Z$,20)R$(7)X$R$(7)X$R$(7)
410 PRINTLEFT$(Y$,20)LEFT$(Z$,20)R$(7)X$R$(7)X$R$(7)
420 PRINTLEFT$(Y$,11)LEFT$(Z$,32)"<cyan>5000<cursor down><cursor down><cursor left><cursor left><cursor left><cursor left>2400<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left><cursor left><cursor left>800<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left><cursor left>1600"
430 PRINTLEFT$(Y$,24)LEFT$(Z$,32)"<cyan>3200"
440 SYSAD+15,15,24,"<blue>£<green>🭾RESS A KEY<blue>£"
445 SYSAD+6,208
450 GETA$:IFA$=""THEN450
455 PRINT"<clr>"
470 PRINT:PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor down>"R$(7)"<rev off><cursor up><green><cursor up>♣2"
480 PRINTLEFT$(Y$,4)LEFT$(Z$,23)R$(7)X$R$(7)"<rev off><green><cursor up><cursor up>♣4"
490 PRINT"<cursor down><cursor down><cursor down><cyan>♥🭰♠🭻 ♥🭼🭽🭰♥ IS MORE OR LESS BASED ON THE
500 PRINT"EVER POPULAR 🭷OUBLE 🭷IAMONDS FOUND IN"
510 PRINT"MOST CASINOS AROUND THE COUNTRY."
520 PRINT"╮NSTEAD OF THE BORING 🭷OUBLE 🭷IAMOND"
530 PRINT"SYMBOLS, ╮ HAVE REPLACED THEM WITH A"
540 PRINT"MORE INTERESTING SYMBOL. ♠S WITH"
550 PRINT"THE ORIGINAL, IF YOU GET 1 🭼🭽♠🭷♥🭰♠🭻"
560 PRINT"SYMBOL WITH A WINNING COMBINATION,"
570 PRINT"IT WILL BE DOUBLED. ╮F YOU GET 2"
580 PRINT"SYMBOLS WITH A WINNING COMBINATION,"
590 PRINT"IT WILL QUADRUPLE YOUR WINNINGS."
600 PRINT"<cursor down>🭰HIS VERSION USES 5 LINES PER ROLL"
610 PRINT"AS IT IS MY FAVORITE ONE ╮ PLAY ALL"
620 PRINT"THE TIME HERE IN 🭱ULFPORT ╲♥."
630 SYSAD+18,24,"<blue>£<green>🭾RESS A KEY<blue>£"
635 SYSAD+6,216
640 GETA$:IFA$=""THEN640
700 PRINT"<clr>"
705 FORE=1TO23
710 PRINT"<blue> <reverse on> "
720 NEXTE
721 SYSAD+54,0,39,0,24,7
722 SYSAD+54,4,19,3,18,2
723 SYSAD+54,25,33,3,7,5
724 SYSAD+54,25,33,9,13,5
730 PRINTLEFT$(Y$,5)LEFT$(Z$,5)B$
740 PRINTLEFT$(Y$,5)LEFT$(Z$,10)B$
750 PRINTLEFT$(Y$,5)LEFT$(Z$,15)B$
760 PRINTLEFT$(Y$,10)LEFT$(Z$,5)B$
770 PRINTLEFT$(Y$,10)LEFT$(Z$,10)B$
780 PRINTLEFT$(Y$,10)LEFT$(Z$,15)B$
790 PRINTLEFT$(Y$,15)LEFT$(Z$,5)B$
800 PRINTLEFT$(Y$,15)LEFT$(Z$,10)B$
810 PRINTLEFT$(Y$,15)LEFT$(Z$,15)B$
820 SYSAD+15,26,4,"<cyan>🭸🭻🭶🭷╮🭰♥<cursor down><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left> <cursor down><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left> "
830 SYSAD+15,26,10,"<cyan>○╮╱╱╮╱🭱<cursor down><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left> <cursor down><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left> "
835 PRINTLEFT$(Y$,21)LEFT$(Z$,14)"<yellow>"UP"<cursor left> "
840 SYSAD+15,25,15,"<light blue>♥PIN ○HEELS "
850 SYSAD+15,25,16,"🭾AYOFF 🭸HART"
860 SYSAD+15,25,17,"🭻EAD 🭷OCS "
867 SYSAD+15,25,18,"🭽PTIONS ╲ENU"
868 SYSAD+15,25,19,"🭸HANGE 🭰ILE "
869 SYSAD+15,25,20,"●UIT "
870 GOSUB1000
871 SYSAD+15,20,1,AA$(5)
872 SYSAD+15,20,5,AA$(3)
873 SYSAD+15,20,10,AA$(1)
874 SYSAD+15,20,15,AA$(2)
875 SYSAD+15,20,19,AA$(4)
880 GOSUB1160
890 P$="<light blue> 🭾LEASE ♥ELECT 🭽PTION ":GOSUB1140:POKEV+21,0
895 POKE198,0
900 SYSAD,15,25,36,6,142,129,"SPROCQ"
910 ONF%GOTO2000,950,1021,3730,7500,1680
950 SYSAD+6,224
955 SYSAD+9,208
960 GETA$:IFA$=""THEN960
965 SYSAD+9,216
970 GETA$:IFA$=""THEN970
975 SYSAD+9,224
980 GOTO900
1000 PRINTLEFT$(Y$,7)LEFT$(Z$,27)"<white> <cursor left><cursor left><cursor left><cursor left><cursor left>"CR
1005 IFFL=1THENSYSFX+9,0
1010 PRINTLEFT$(Y$,13)LEFT$(Z$,27)"<white> <cursor left><cursor left><cursor left><cursor left><cursor left>"WI
1020 RETURN
1021 SYSAD+6,224
1022 SYSAD+30,24576,7,5,"♥🭰♠🭻 ♥🭼🭽🭰♥ ╮NSTRUCTIONS"
1023 SYSAD+9,224
1024 GOTO880
1025 GOSUB200:GOSUB3940:GOTO4120
1030 REM REEL ROLL EFFECT
1040 SYSAD+36,97,98,128
1050 SYSAD+36,98,99,128
1060 SYSAD+36,99,100,128
1070 SYSAD+36,100,101,128
1080 SYSAD+36,101,102,128
1090 SYSAD+36,102,103,128
1100 SYSAD+36,103,104,128
1110 SYSAD+36,104,97,128
1130 RETURN
1140 SYSAD+18,22,P$
1150 RETURN
1160 PRINT"<blue>":SYSAD+18,22,"<reverse on> <rev off>"
1170 RETURN
1500 FORQQ=1TO T(X)
1510 WI=WI+1
1515 IFCM=0THENCR=CR+1
1520 GOSUB1000
1530 NEXTQQ
1540 RETURN
1600 GOSUB1160
1605 POKEV+21,0
1610 SYSAD+15,9,22,"<pink> 🭸HECKING 🭾AYLINE "
1615 IFX=1THENGOSUB7000
1620 IFX=1THENSYSAD+15,27,22,"<light blue>🭽NE "
1625 IFX=2THENGOSUB7100
1630 IFX=2THENSYSAD+15,27,22,"<light blue>🭰WO "
1635 IFX=3THENGOSUB7200
1640 IFX=3THENSYSAD+15,27,22,"<light blue>🭰HREE "
1645 IFX=4THENGOSUB7300
1650 IFX=4THENSYSAD+15,27,22,"<light blue>🭺OUR "
1655 IFX=5THENGOSUB7400
1660 IFX=5THENSYSAD+15,27,22,"<light blue>🭺IVE "
1670 RETURN
1680 GOSUB1160:P$="<yellow> ●UIT? ♠RE 🭵OU ♥URE? ":GOSUB1140
1690 SYSAD+48,"YN"
1700 ONF%GOTO40000,880
2000 GOSUB1160
2001 IFCR<5THEN6000
2002 IFCM=0THENCR=CR-5:WI=0:GOSUB1000
2003 IFCM=1THENWI=0:GOSUB1000
2006 T(1)=0:T(2)=0:T(3)=0:T(4)=0:T(5)=0:L(1)=0:L(2)=0:L(3)=0:L(4)=0:L(5)=0
2008 IFCM=1THEN2021
2009 CP=INT(RND(1)*20)+1
2010 PRINTLEFT$(Y$,21)LEFT$(Z$,5)"<white>"CP"<cursor left> "
2011 IFUP=CPTHENP$="<yellow> ╱ ╭ ╲ 🭲 🭶 🭻 ♥ ╲ ♠ 🭰 🭸 🭴 ":GOSUB1140
2015 IFUP=CPANDFL=1THENSYSFX+9,4
2016 IFUP=CPTHENFORMM=1TO100:NEXTMM
2018 FORX=1TO9
2019 S(X)=INT(RND(1)*99)+1
2020 NEXTX
2021 FORQW=1TO9
2022 IFCM=1ANDCM(QW)=7THENS(QW)=Q(6)
2023 IFCM=1ANDCM(QW)=6THENS(QW)=Q(5)
2024 IFCM=1ANDCM(QW)=5THENS(QW)=Q(4)
2025 IFCM=1ANDCM(QW)=4THENS(QW)=Q(3)
2026 IFCM=1ANDCM(QW)=3THENS(QW)=Q(2)
2027 IFCM=1ANDCM(QW)=2THENS(QW)=Q(1)
2028 IFCM=1ANDCM(QW)=1THENS(QW)=1
2038 NEXTQW
2039 FORX=1TO9
2040 IFS(X)>=Q(6)ANDS(X)<=99THENTE$(X)=R$(7):O(X)=5000:NEXTX
2050 IFS(X)>=Q(5)ANDS(X)<=M(6)THENTE$(X)=R$(6):O(X)=1000:NEXTX
2060 IFS(X)>=Q(4)ANDS(X)<=M(5)THENTE$(X)=R$(5):O(X)=250:NEXTX
2070 IFS(X)>=Q(3)ANDS(X)<=M(4)THENTE$(X)=R$(4):O(X)=70:NEXTX
2080 IFS(X)>=Q(2)ANDS(X)<=M(3)THENTE$(X)=R$(3):O(X)=20:NEXTX
2090 IFS(X)>=Q(1)ANDS(X)<=M(2)THENTE$(X)=R$(2):O(X)=5:NEXTX
2100 IFS(X)>=1ANDS(X)<=M(1)THENTE$(X)=R$(1):O(X)=1:NEXTX
2110 SYSAD+15,5,4,RR$
2120 SYSAD+15,10,4,RR$
2130 SYSAD+15,15,4,RR$
2140 SYSAD+15,5,9,RR$
2150 SYSAD+15,10,9,RR$
2160 SYSAD+15,15,9,RR$
2170 SYSAD+15,5,14,RR$
2180 SYSAD+15,10,14,RR$
2190 SYSAD+15,15,14,RR$
2210 FORII=1TO3:GOSUB1030:NEXTII
2215 IFFL=1THENSYSFX+9,1
2220 SYSAD+15,5,4,TE$(1)
2230 SYSAD+15,5,9,TE$(2)
2240 SYSAD+15,5,14,TE$(3)
2250 FORII=1TO5:GOSUB1030:NEXTII
2255 IFFL=1THENSYSFX+9,2
2260 SYSAD+15,10,4,TE$(4)
2270 SYSAD+15,10,9,TE$(5)
2280 SYSAD+15,10,14,TE$(6)
2290 FORII=1TO5:GOSUB1030:NEXTII
2295 IFFL=1THENSYSFX+9,3
2300 SYSAD+15,15,4,TE$(7)
2310 SYSAD+15,15,9,TE$(8)
2320 SYSAD+15,15,14,TE$(9)
2330 L(1)=O(2)+O(5)+O(8)
2340 L(2)=O(3)+O(6)+O(9)
2350 L(3)=O(1)+O(4)+O(7)
2360 L(4)=O(1)+O(5)+O(9)
2370 L(5)=O(3)+O(5)+O(7)
2380 REM SCORING ROUTINE
2390 FORX=1TO5
2395 GOSUB1600
2400 IFL(X)=7ORL(X)=26ORL(X)=76ORL(X)=256ORL(X)=1006THENT(X)=2:GOSUB1500:NEXTX
2410 IFL(X)=45ORL(X)=95ORL(X)=275ORL(X)=1025THENT(X)=2:GOSUB1500:NEXTX
2420 IFL(X)=145ORL(X)=325ORL(X)=1075ORL(X)=505THENT(X)=2:GOSUB1500:NEXTX
2430 IFL(X)=1255ORL(X)=2005THENT(X)=2:GOSUB1500:NEXTX
2440 IFL(X)=11ORL(X)=30ORL(X)=80ORL(X)=260ORL(X)=1010THENT(X)=5:GOSUB1500:NEXTX
2450 IFL(X)=15ORL(X)=5006ORL(X)=5025ORL(X)=5075THENT(X)=10:GOSUB1500:NEXTX
2460 IFL(X)=5255ORL(X)=6005THENT(X)=10:GOSUB1500:NEXTX
2470 IFL(X)=5010THENT(X)=20:GOSUB1500:NEXTX
2480 IFL(X)=10005THENT(X)=40:GOSUB1500:NEXTX
2490 IFX=1ANDL(X)=15000THENT(X)=800:GOSUB1500:NEXTX
2500 IFX=2ANDL(X)=15000THENT(X)=1600:GOSUB1500:NEXTX
2510 IFX=3ANDL(X)=15000THENT(X)=2400:GOSUB1500:NEXTX
2520 IFX=4ANDL(X)=15000THENT(X)=3200:GOSUB1500:NEXTX
2530 IFX=5ANDL(X)=15000THENT(X)=5000:GOSUB1500:NEXTX
3400 IFL(X)=60THENT(X)=10:GOSUB1500:NEXTX
3410 IFL(X)=210THENT(X)=25:GOSUB1500:NEXTX
3420 IFL(X)=750THENT(X)=40:GOSUB1500:NEXTX
3430 IFL(X)=3000THENT(X)=80:GOSUB1500:NEXTX
3440 IFL(X)=7000THENT(X)=160:GOSUB1500:NEXTX
3450 IFL(X)=11000THENT(X)=320:GOSUB1500:NEXTX
3460 IFL(X)=5500THENT(X)=80:GOSUB1500:NEXTX
3470 IFL(X)=10250THENT(X)=160:GOSUB1500:NEXTX
3480 IFL(X)=5140THENT(X)=50:GOSUB1500:NEXTX
3490 IFL(X)=10070THENT(X)=100:GOSUB1500:NEXTX
3500 IFL(X)=5040THENT(X)=20:GOSUB1500:NEXTX
3510 IFL(X)=10020THENT(X)=40:GOSUB1500:NEXTX
3511 IFL(X)=110THENT(X)=5:GOSUB1500:NEXTX
3512 IFL(X)=290THENT(X)=5:GOSUB1500:NEXTX
3513 IFL(X)=160THENT(X)=5:GOSUB1500:NEXTX
3514 IFL(X)=340THENT(X)=5:GOSUB1500:NEXTX
3515 IFL(X)=520THENT(X)=5:GOSUB1500:NEXTX
3516 IFL(X)=390THENT(X)=5:GOSUB1500:NEXTX
3517 IFL(X)=570THENT(X)=5:GOSUB1500:NEXTX
3630 IFL(X)-5000=90THENT(X)=10:GOSUB1500:NEXTX
3640 IFL(X)-5000=270THENT(X)=10:GOSUB1500:NEXTX
3650 IFL(X)-5000=320THENT(X)=10:GOSUB1500:NEXTX
3660 IFX<=5THENNEXTX
3661 IFUP=CPANDCM=0THENPOKEV+21,0
3662 IFUP=CPANDCM=0THENFORMM=1TO500:NEXTMM
3663 IFUP=CPANDCM=0THENWI=WI*10
3664 IFUP=CPANDCM=0ANDWI=0THENWI=50
3665 IFUP=CPANDCM=0THENGOSUB1000
3666 IFUP=CPANDCM=0ANDFL=1THENSYSFX+9,5
3667 IFUP=CPANDCM=0THENFORMM=1TO1000:NEXTMM
3668 IFUP=CPANDCM=0THENCR=CR+WI
3669 IFUP=CPANDCM=0THENGOSUB1000
3670 IFUP=CPANDCM=0ANDFL=1THENSYSFX+9,6
3671 IFUP=CPANDCM=0THENFORMM=1TO500:NEXTMM
3680 GOTO880
3730 PRINT"<clr>"
3740 SYSAD+18,0,"<purple>🭽 🭾 🭰 ╮ 🭽 ╱ ♥ ╲ 🭶 ╱ ╭"
3745 SYSAD+15,6,2,"<yellow>╲🭶╱╭ #1"
3750 SYSAD+15,3,3,"<green>+ 100 🭸REDITS"
3760 SYSAD+15,3,4,"; 100 🭸REDITS"
3763 SYSAD+15,1,5,"♥OUND 🭶FFECTS 🭽N"
3766 SYSAD+15,1,6,"♥OUND 🭶FFECTS 🭽FF"
3770 SYSAD+15,6,7,"╲ENU #2"
3775 SYSAD+15,1,8,"🭺ORCED ♥ETUP ╲ENU"
3780 SYSAD+15,1,9,"🭲ACK 🭰O 🭰HE ♥LOTS"
3785 SYSAD+15,6,12,"<yellow>╲🭶╱╭ #2"
3790 SYSAD+15,2,13,"<blue>🭼🭽♠🭷♥🭰♠🭻 ♥YMBOL...."
3800 SYSAD+15,3,14,"♥EVEN ♥YMBOL......"
3810 SYSAD+15,4,15,"🭰RIPLE 🭲AR......."
3820 SYSAD+15,4,16,"🭷OUBLE 🭲AR......."
3830 SYSAD+15,4,17,"♥INGLE 🭲AR......."
3840 SYSAD+15,5,18,"🭸HERRIES........"
3850 SYSAD+15,3,19,"🭲LANK ♥YMBOL......"
3860 SYSAD+15,1,20,"🭻ESETS 🭰O 🭷EFAULT"
3870 SYSAD+15,5,21,"╲ENU #1"
3880 SYSAD+15,22,1,"<yellow>🭸URRENT 🭸REDITS"
3890 PRINTLEFT$(Y$,3)LEFT$(Z$,27)"<blue>"CR
3900 SYSAD+15,27,13,"<cyan>THRU<cursor down><cursor left><cursor left><cursor left><cursor left>THRU<cursor down><cursor left><cursor left><cursor left><cursor left>THRU<cursor down><cursor left><cursor left><cursor left><cursor left>THRU<cursor down><cursor left><cursor left><cursor left><cursor left>THRU<cursor down><cursor left><cursor left><cursor left><cursor left>THRU<cursor down><cursor left><cursor left><cursor left><cursor left>THRU
3902 SYSAD+15,23,3,"<yellow>♥OUND 🭶FFECTS"
3903 IFFL=1THENSYSAD+15,28,4,"<blue>🭽N"
3904 IFFL=0THENSYSAD+15,28,4,"<blue>🭽FF"
3905 SYSAD+15,24,5,"<yellow>🭺ORCED ╲ODE"
3906 IFCM=1THENSYSAD+15,28,6,"<blue>🭽N "
3907 IFCM=0THENSYSAD+15,28,6,"<blue>🭽FF"
3910 SYSAD+15,25,19,"<red>1<cursor up><cursor up><cursor up><cursor up><cursor up><cursor up><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>99"
3920 SYSAD+15,21,21,"<red>↑<rev off>=🭸AN'T 🭲E 🭸HANGED"
3930 SYSAD+15,21,22,"<blue>↑<rev off>=╭SER 🭸HANGED"
3931 SYSAD+15,21,23,"<purple>↑<rev off>=🭾GM 🭸HANGED"
3933 SYSAD+15,22,12,"<yellow>🭸URRENT ╳ALUES"
3935 GOSUB3940
3937 GOTO4020
3940 PRINTLEFT$(Y$,14)LEFT$(Z$,22)"<yellow> <cursor left><cursor left><blue>"Q(6)
3950 PRINTLEFT$(Y$,15)LEFT$(Z$,22)" <cursor left><cursor left>"Q(5)"<cursor right><cursor right><cursor right><cursor right><cursor right> <cursor left><cursor left><cursor left><cursor left><purple>"M(6)
3960 PRINTLEFT$(Y$,16)LEFT$(Z$,22)" <cursor left><cursor left><blue>"Q(4)"<cursor right><cursor right><cursor right><cursor right><cursor right> <cursor left><cursor left><cursor left><cursor left><purple>"M(5)
3970 PRINTLEFT$(Y$,17)LEFT$(Z$,22)" <cursor left><cursor left><blue>"Q(3)"<cursor right><cursor right><cursor right><cursor right><cursor right> <cursor left><cursor left><cursor left><cursor left><purple>"M(4)
3980 PRINTLEFT$(Y$,18)LEFT$(Z$,22)" <cursor left><cursor left><blue>"Q(2)"<cursor right><cursor right><cursor right><cursor right><cursor right> <cursor left><cursor left><cursor left><cursor left><purple>"M(3)
3990 PRINTLEFT$(Y$,19)LEFT$(Z$,22)" <cursor left><cursor left><blue>"Q(1)"<cursor right><cursor right><cursor right><cursor right><cursor right> <cursor left><cursor left><cursor left><cursor left><purple>"M(2)
4000 PRINTLEFT$(Y$,20)LEFT$(Z$,31)" <cursor left><cursor left><purple>"M(1)
4010 RETURN
4020 SYSAD,3,1,17,7,133,129,"1234567"
4030 ONF%GOTO4040,4080,4071,4075,4120,5000,700
4040 IFCR+100>1000THEN4020
4050 CR=CR+100
4060 PRINTLEFT$(Y$,3)LEFT$(Z$,27)"<purple> <cursor left><cursor left><cursor left><cursor left><cursor left><cursor left><blue>"CR
4070 GOTO4020
4071 FL=1:SYSAD+15,28,4,"<blue> <cursor left><cursor left><cursor left><cursor left><cursor left>🭽N"
4072 GOTO4020
4075 FL=0:SYSAD+15,28,4,"<blue> <cursor left><cursor left><cursor left><cursor left><cursor left>🭽FF"
4076 GOTO4020
4080 IFCR-100<=0THEN4020
4090 CR=CR-100
4100 PRINTLEFT$(Y$,3)LEFT$(Z$,27)"<purple> <cursor left><cursor left><cursor left><cursor left><cursor left><cursor left><blue>"CR
4110 GOTO4020
4120 U=0:SYSAD,13,1,20,9,134,129,"123456789"
4130 ONF%GOTO4140,4140,4140,4140,4140,4140,4120,1025,4020
4140 IFF%=1THENU=6
4145 IFF%=2THENU=5
4150 IFF%=3THENU=4
4155 IFF%=4THENU=3
4160 IFF%=5THENU=2
4165 IFF%=6THENU=1
4200 SYSAD+15,23,8,"<light blue><1>=╳ALUE +1"
4210 SYSAD+15,23,9,"<2>=╳ALUE ;1"
4220 SYSAD+15,23,10,"🭾REVIOUS ╲ENU"
4230 SYSAD,8,23,36,3,134,129,"123"
4240 ONF%GOTO4250,4300,4120
4250 IFU=6ANDQ(6)=98THEN4230
4260 Q(U)=Q(U)+1:M(U)=Q(U)-1
4280 GOSUB3940
4290 GOTO4230
4300 IFU=1ANDQ(1)=2THEN4230
4310 Q(U)=Q(U)-1:M(U)=Q(U)-1
4330 GOSUB3940
4340 GOTO4230
5000 SYSAD+6,224
5100 SYSAD+54,0,39,0,23,7
5105 SYSAD+3,1,38,1,22,32,0
5110 SYSAD+18,1,"<purple>🭺 🭽 🭻 🭸 🭶 🭷 ♥ 🭶 🭰 ╭ 🭾"
5120 SYSAD+15,2,3,"<blue>🭸HANGE ○INDOW #1"
5130 SYSAD+15,2,4,"🭸HANGE ○INDOW #2"
5140 SYSAD+15,2,5,"🭸HANGE ○INDOW #3"
5150 SYSAD+15,2,6,"🭸HANGE ○INDOW #4"
5160 SYSAD+15,2,7,"🭸HANGE ○INDOW #5"
5170 SYSAD+15,2,8,"🭸HANGE ○INDOW #6"
5180 SYSAD+15,2,9,"🭸HANGE ○INDOW #7"
5190 SYSAD+15,2,10,"🭸HANGE ○INDOW #8"
5200 SYSAD+15,2,11,"🭸HANGE ○INDOW #9"
5210 SYSAD+15,8,12,"🭷ONE"
5220 SYSAD+54,21,27,4,10,2
5230 SYSAD+15,22,5,"<red><cursor right>│<cursor right>│<cursor down><cursor left><cursor left><cursor left><cursor left>🭹┴🭹┴🭹<cursor down><cursor left><cursor left><cursor left><cursor left>│<cursor right>│<cursor down><cursor left><cursor left><cursor left><cursor left>🭹┴🭹┴🭹<cursor down><cursor left><cursor left><cursor left><cursor left>│<cursor right>│"
5235 SYSAD+15,5,14,"<yellow>🭸HANGE 🭰O:"
5240 SYSAD+15,5,15,"<blue>🭲LANK"
5250 SYSAD+15,5,16,"🭸HERRY"
5260 SYSAD+15,5,17,"♥INGLE 🭲AR"
5270 SYSAD+15,5,18,"🭷OUBLE 🭲AR"
5280 SYSAD+15,5,19,"🭰RIPLE 🭲AR"
5290 SYSAD+15,5,20,"♥EVEN"
5300 SYSAD+15,5,21,"🭼🭽♠🭷♥🭰♠🭻"
5310 SYSAD+15,5,22,"🭸ANCEL"
5320 SYSAD+15,29,3,"<green>○INDOW #S"
5330 SYSAD+15,31,5,"1 4 7<cursor down><cursor down><cursor left><cursor left><cursor left><cursor left><cursor left>2 5 8<cursor down><cursor down><cursor left><cursor left><cursor left><cursor left><cursor left>3 6 9"
5340 SYSAD+15,28,15,"<purple>🭼EGEND:"
5350 SYSAD+15,25,16,"🭲 = 🭲LANK"
5360 SYSAD+15,25,17,"🭸 = 🭸HERRY"
5370 SYSAD+15,25,18,"1 = ♥INGLE 🭲AR"
5380 SYSAD+15,25,19,"2 = 🭷OUBLE 🭲AR"
5390 SYSAD+15,25,20,"3 = 🭰RIPLE 🭲AR"
5400 SYSAD+15,25,21,"7 = ♥EVEN"
5410 SYSAD+15,25,22,"* = 🭼🭽♠🭷♥🭰♠🭻"
5411 SYSAD+15,19,13,"<yellow>╲ODE:"
5412 SYSAD+15,20,14,"<blue>🭽N "
5413 SYSAD+15,20,15,"🭽FF"
5414 SYSAD,14,20,23,2,134,129,"12"
5415 ONF%GOTO5416,5417
5416 CM=1:GOTO5420
5417 CM=0:GOTO700
5420 FORNB=1TO9
5430 CM(NB)=1
5440 NEXTNB
5500 PRINT"<cyan>"
5510 SYSAD+15,22,5,MID$(NB$,CM(1),1)
5520 SYSAD+15,24,5,MID$(NB$,CM(4),1)
5530 SYSAD+15,26,5,MID$(NB$,CM(7),1)
5540 SYSAD+15,22,7,MID$(NB$,CM(2),1)
5550 SYSAD+15,24,7,MID$(NB$,CM(5),1)
5560 SYSAD+15,26,7,MID$(NB$,CM(8),1)
5570 SYSAD+15,22,9,MID$(NB$,CM(3),1)
5580 SYSAD+15,24,9,MID$(NB$,CM(6),1)
5590 SYSAD+15,26,9,MID$(NB$,CM(9),1)
5600 SYSAD,3,2,18,10,134,129,"123456789D"
5610 ONF%GOTO5620,5620,5620,5620,5620,5620,5620,5620,5620,5660
5620 KP=F%
5630 SYSAD,15,5,15,8,134,129,"12345678"
5640 ONF%GOTO5650,5650,5650,5650,5650,5650,5650,5600
5650 CM(KP)=F%:GOTO5500
5660 GOTO700
6000 GOTO6005
6001 FORIY=1TO10:NEXTIY
6002 RETURN
6005 FORH=0TO10
6007 SYSAD+3,H,39-H,H,24-H,30,10-H
6009 GOSUB6001
6010 NEXTH
6020 SYSAD+18,11,"<yellow>🭽╭🭰 🭽🭺 ╲🭽╱🭶🭵!"
6030 SYSAD+18,13,"🭶╲🭾🭰🭵 🭵🭽╭🭻 🭾🭽🭸╯🭶🭰♥"
6040 GETA$:IFA$=""THEN6040
6050 GOTO3730
7000 POKE2040,13:POKE2041,13:POKE2042,13
7010 POKEV+1,117:POKEV+3,117:POKEV+5,117
7020 POKEV,63:POKEV+2,100:POKEV+4,129
7030 POKEV+21,7
7040 RETURN
7100 POKEV+1,157:POKEV+3,157:POKEV+5,157
7110 POKEV,63:POKEV+2,100:POKEV+4,129
7120 POKEV+21,7
7130 RETURN
7200 POKEV+1,77:POKEV+3,77:POKEV+5,77
7210 POKEV,63:POKEV+2,100:POKEV+4,129
7220 POKEV+21,7
7230 RETURN
7300 POKE2040,15:POKE2041,15:POKE2042,15
7310 POKEV+1,81:POKEV+3,117:POKEV+5,153
7320 POKEV,64 :POKEV+2,98 :POKEV+4,133
7330 POKEV+21,7
7340 RETURN
7400 POKE2040,14:POKE2041,14:POKE2042,14
7410 POKEV+1,81:POKEV+3,117:POKEV+5,153
7420 POKEV,129 :POKEV+2,94 :POKEV+4,59
7430 POKEV+21,7
7440 RETURN
7500 SYSAD+6,224
7510 SYSAD+3,5,18,4,17,32,6
7520 SYSAD+15,7,6,"<green>🭷EFAULT"
7530 SYSAD+15,7,7,"🭾ATTERN #1"
7540 SYSAD+15,7,8,"🭾ATTERN #2"
7550 SYSAD+15,7,9,"🭾ATTERN #3"
7560 SYSAD+15,7,10,"🭾ATTERN #4"
7570 SYSAD+15,7,11,"🭾ATTERN #5"
7580 SYSAD+15,7,12,"🭾ATTERN #6"
7590 SYSAD+15,7,13,"🭾ATTERN #7"
7600 SYSAD+15,7,14,"🭾ATTERN #8"
7610 SYSAD+15,7,15,"🭷ONE"
7620 SYSAD,6,6,16,10,133,129,"D12345678X"
7630 ONF%GOTO7640,7660,7680,7700,7720,7740,7760,7780,7800,7820
7640 SYS39936,2968,2968+9,3328
7650 GOTO7620
7660 SYS39936,2912,2912+9,3328
7670 GOTO7620
7680 SYS39936,2896,2896+9,3328
7690 GOTO7620
7700 SYS39936,2936,2936+9,3328
7710 GOTO7620
7720 SYS39936,2960,2960+9,3328
7730 GOTO7620
7740 SYS39936,2888,2888+9,3328
7750 GOTO7620
7760 SYS39936,2976,2976+9,3328
7770 GOTO7620
7780 SYS39936,2984,2984+9,3328
7790 GOTO7620
7800 SYS39936,2816,2816+9,3328
7810 GOTO7620
7820 SYSAD+9,224
7830 GOTO880
8000 PRINT"<clr>"
8003 SYSAD+18,3,"<yellow>♥ 🭰 ♠ 🭻 ♥ 🭼 🭽 🭰 ♥"
8004 SYSAD+18,5,"<red>@ 1995"
8010 SYSAD+18,12,"<cyan>🭾LEASE ENTER YOUR 🭼UCKY ╱UMBER"
8020 SYSAD+15,10,14,"(1 THROUGH 20) "
8030 GOSUB50000:UP=VAL(Q9$)
8040 IFUP<1ORUP>20THEN8000
8050 GOTO140
10000 DV=PEEK(186):OPEN15,DV,15,"S0:SLOT.MAIN":CLOSE15:SAVE"SLOT.MAIN",DV:END
40000 SYSFX+15:POKEV+21,0
40002 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"<clr>":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"<clr>":POKE53272,23
40080 PRINT"<clr><cursor down><cursor down><cursor down>P🭽2048,0:P🭽44,8:P🭽43,1:P🭽56,160:P🭽55,0:CLR:L🭽"Q$A$Q$","I
40090 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN:<home>":POKE631,13:POKE632,13:POKE198,2:END
50000 Q9$="":POKE198,0
50010 GETA$
50020 POKE646,RND(1)*15+1:PRINT"▁<cursor left>";:IFA$=""THEN50010
50030 IFA$=CHR$(13)THENPRINT" ":RETURN
50040 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO50080
50050 IFLEN(Q9$)>=2THEN50010
50060 IFA$<"0"ORA$>"9"THEN50010
50070 Q9$=Q9$+A$
50080 PRINT"<white>"A$;:GOTO50010
�55,0:�56,96:� / �53280,0:�53281,0:�"�"