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:�"�"