b.star slots

Home » Personal collection » Commodore disks » disk30c2_loadstar_131.d64 » b.star slots

b.star slots

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:	b.star slots
Read OK:	✔
File size:	0362 bytes
Load address:	0801
Exec address:	0000

File contents

     5 POKE43,1:POKE44,16:POKE4096,0:CLR
    10 DV=PEEK(186):IFDV<8THENDV=8
    15 POKE53281,0:POKE53280,0:PRINT"<clr><text mode><shift disable>":GOSUB60000
    22 SYS57812"SLOT.TOOLS",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
    25 SYS49152+51,"SLOT.SPRITES",DV,832
    30 PRINT"<home><cursor down><cursor down><cursor down><black>LOAD"CHR$(34)"SLOT.MAIN"CHR$(34)","DV
    40 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN<home>"
    50 POKE631,13:POKE632,13:POKE198,2:END
 10000 D=PEEK(186):OPEN15,D,15,"S0:B.STAR SLOTS":CLOSE15:SAVE"B.STAR SLOTS",D:END
 60000 PRINT"<clr>":Z$=" <reverse on><medium gray>                                      ":POKE214,10:PRINT
 60010 PRINT" <light gray><reverse on>🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃🮃":FORI=0TO9:PRINTZ$:NEXT
 60020 PRINT" <dark gray><reverse on>▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃<medium gray><home>"
 60030 Z$(0)="♥ 🭰 ♠ 🭻   ♥ 🭼 🭽 🭰 ♥":Z$(1)="BY ○ILLIAM 🭼AABS"
 60040 Z$(2)="(🭸) 1995 BY ♥OFTDISK 🭾UBLISHING"+CHR$(13)
 60050 Z$(3)="🭰HIS PROGRAM IS THE COPYRIGHTED WORK
 60060 Z$(4)="OF ♥🭽🭺🭰🭷╮♥╯ 🭾╭🭲🭼╮♥🭴╮╱🭱.  ╮T IS NOT"
 60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
 60080 Z$(6)="🭰O SUBSCRIBE CALL 1-800-594-3370."
 60090 POKE214,12:PRINT
 60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))"<reverse on>"Z$(I):NEXT:RETURN

�43,1:�44,16:�4096,0:�5
DV��(186):�DV�8�DV�8Y�53281,0:�53280,0:�"�":�60000��57812"SLOT.TOOLS",DV,0:�780,0:�781,0:�782,192:�65493��49152�51,"SLOT.SPRITES",DV,832��"�LOAD"�(34)"SLOT.MAIN"�(34)","DV�(�"RUN"	2�631,13:�632,13:�198,2:�O	'D��(186):�15,D,15,"S0:B.STAR SLOTS":�15:�"B.STAR SLOTS",D:��	`�"�":Z$�" �                                      ":�214,10:��	j�" ���������������������������������������":�I�0�9:�Z$:�
t�" ����������������������������������������";
~�Z$(0)�"� � � �   � � � � �":Z$(1)�"BY �ILLIAM �AABS"m
��Z$(2)�"(�) 1995 BY �OFTDISK �UBLISHING"��(13)�
��Z$(3)�"�HIS PROGRAM IS THE COPYRIGHTED WORK�
��Z$(4)�"OF �������� ����������.  �T IS NOT"�
��Z$(5)�"SHAREWARE OR IN THE PUBLIC DOMAIN.")��Z$(6)�"�O SUBSCRIBE CALL 1-800-594-3370."7��214,12:�a��I�0�6:��20�(�(Z$(I))�2))""Z$(I):�:�

£HE@.43,1:.44,16:.4096,0:.@5HJ@dv..(186):.dv.8.dv.8@yHO@.53281,0:.53280,0:.".NH":.60000@.HV@.57812"slot.tools",dv,0:.780,0:.781,0:.782,192:.65493@.HY@.49152.51,"slot.sprites",dv,832@.H.@."SQQQ.load".(34)"slot.main".(34)","dv@.H(@."QQQQrunS"@OI2@.631,13:.632,13:.198,2:.@oIP'd..(186):.15,d,15,"s0:b.star slots":.15:."b.star slots",d:.@.I...".":z$." R.                                      ":.214,10:.@.IJ.." .R......................................":.i.0.9:.z$:.@BJT.." .R.......................................S"@;J..z$(0).". . . .   . . . . .":z$(1)."by .illiam .aabs"@MJ..z$(2)."(.) 1995 by .oftdisk .ublishing"..(13)@.J..z$(3).".his program is the copyrighted work@.J..z$(4)."of ........ ...........  .t is not"@.J..z$(5)."shareware or in the public domain."@)K..z$(6).".o subscribe call 1-800-594-3370."@7K...214,12:.@AK...i.0.6:..20.(.(z$(i)).2))"R"z$(i):.:.@@@

00000000  1c 08 05 00 97 34 33 2c  31 3a 97 34 34 2c 31 36  |.....43,1:.44,16|
00000010  3a 97 34 30 39 36 2c 30  3a 9c 00 35 08 0a 00 44  |:.4096,0:..5...D|
00000020  56 b2 c2 28 31 38 36 29  3a 8b 44 56 b3 38 a7 44  |V..(186):.DV.8.D|
00000030  56 b2 38 00 59 08 0f 00  97 35 33 32 38 31 2c 30  |V.8.Y....53281,0|
00000040  3a 97 35 33 32 38 30 2c  30 3a 99 22 93 0e 08 22  |:.53280,0:."..."|
00000050  3a 8d 36 30 30 30 30 00  93 08 16 00 9e 35 37 38  |:.60000......578|
00000060  31 32 22 53 4c 4f 54 2e  54 4f 4f 4c 53 22 2c 44  |12"SLOT.TOOLS",D|
00000070  56 2c 30 3a 97 37 38 30  2c 30 3a 97 37 38 31 2c  |V,0:.780,0:.781,|
00000080  30 3a 97 37 38 32 2c 31  39 32 3a 9e 36 35 34 39  |0:.782,192:.6549|
00000090  33 00 b7 08 19 00 9e 34  39 31 35 32 aa 35 31 2c  |3......49152.51,|
000000a0  22 53 4c 4f 54 2e 53 50  52 49 54 45 53 22 2c 44  |"SLOT.SPRITES",D|
000000b0  56 2c 38 33 32 00 e2 08  1e 00 99 22 13 11 11 11  |V,832......"....|
000000c0  90 4c 4f 41 44 22 c7 28  33 34 29 22 53 4c 4f 54  |.LOAD".(34)"SLOT|
000000d0  2e 4d 41 49 4e 22 c7 28  33 34 29 22 2c 22 44 56  |.MAIN".(34)","DV|
000000e0  00 f2 08 28 00 99 22 11  11 11 11 52 55 4e 13 22  |...(.."....RUN."|
000000f0  00 0f 09 32 00 97 36 33  31 2c 31 33 3a 97 36 33  |...2..631,13:.63|
00000100  32 2c 31 33 3a 97 31 39  38 2c 32 3a 80 00 4f 09  |2,13:.198,2:..O.|
00000110  10 27 44 b2 c2 28 31 38  36 29 3a 9f 31 35 2c 44  |.'D..(186):.15,D|
00000120  2c 31 35 2c 22 53 30 3a  42 2e 53 54 41 52 20 53  |,15,"S0:B.STAR S|
00000130  4c 4f 54 53 22 3a a0 31  35 3a 94 22 42 2e 53 54  |LOTS":.15:."B.ST|
00000140  41 52 20 53 4c 4f 54 53  22 2c 44 3a 80 00 91 09  |AR SLOTS",D:....|
00000150  60 ea 99 22 93 22 3a 5a  24 b2 22 20 12 98 20 20  |`..".":Z$." ..  |
00000160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000180  20 20 20 20 22 3a 97 32  31 34 2c 31 30 3a 99 00  |    ":.214,10:..|
00000190  cf 09 6a ea 99 22 20 9b  12 b8 b8 b8 b8 b8 b8 b8  |..j.." .........|
000001a0  b8 b8 b8 b8 b8 b8 b8 b8  b8 b8 b8 b8 b8 b8 b8 b8  |................|
000001b0  b8 b8 b8 b8 b8 b8 b8 b8  b8 b8 b8 b8 b8 b8 b8 22  |..............."|
000001c0  3a 81 49 b2 30 a4 39 3a  99 5a 24 3a 82 00 02 0a  |:.I.0.9:.Z$:....|
000001d0  74 ea 99 22 20 97 12 b9  b9 b9 b9 b9 b9 b9 b9 b9  |t.." ...........|
000001e0  b9 b9 b9 b9 b9 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |................|
000001f0  b9 b9 b9 b9 b9 b9 b9 b9  b9 b9 b9 b9 b9 98 13 22  |..............."|
00000200  00 3b 0a 7e ea 5a 24 28  30 29 b2 22 d3 20 d4 20  |.;.~.Z$(0).". . |
00000210  c1 20 d2 20 20 20 d3 20  cc 20 cf 20 d4 20 d3 22  |. .   . . . . ."|
00000220  3a 5a 24 28 31 29 b2 22  42 59 20 d7 49 4c 4c 49  |:Z$(1)."BY .ILLI|
00000230  41 4d 20 cc 41 41 42 53  22 00 6d 0a 88 ea 5a 24  |AM .AABS".m...Z$|
00000240  28 32 29 b2 22 28 c3 29  20 31 39 39 35 20 42 59  |(2)."(.) 1995 BY|
00000250  20 d3 4f 46 54 44 49 53  4b 20 d0 55 42 4c 49 53  | .OFTDISK .UBLIS|
00000260  48 49 4e 47 22 aa c7 28  31 33 29 00 9d 0a 92 ea  |HING"..(13).....|
00000270  5a 24 28 33 29 b2 22 d4  48 49 53 20 50 52 4f 47  |Z$(3).".HIS PROG|
00000280  52 41 4d 20 49 53 20 54  48 45 20 43 4f 50 59 52  |RAM IS THE COPYR|
00000290  49 47 48 54 45 44 20 57  4f 52 4b 00 cc 0a 9c ea  |IGHTED WORK.....|
000002a0  5a 24 28 34 29 b2 22 4f  46 20 d3 cf c6 d4 c4 c9  |Z$(4)."OF ......|
000002b0  d3 cb 20 d0 d5 c2 cc c9  d3 c8 c9 ce c7 2e 20 20  |.. ...........  |
000002c0  c9 54 20 49 53 20 4e 4f  54 22 00 fb 0a a6 ea 5a  |.T IS NOT".....Z|
000002d0  24 28 35 29 b2 22 53 48  41 52 45 57 41 52 45 20  |$(5)."SHAREWARE |
000002e0  4f 52 20 49 4e 20 54 48  45 20 50 55 42 4c 49 43  |OR IN THE PUBLIC|
000002f0  20 44 4f 4d 41 49 4e 2e  22 00 29 0b b0 ea 5a 24  | DOMAIN.".)...Z$|
00000300  28 36 29 b2 22 d4 4f 20  53 55 42 53 43 52 49 42  |(6).".O SUBSCRIB|
00000310  45 20 43 41 4c 4c 20 31  2d 38 30 30 2d 35 39 34  |E CALL 1-800-594|
00000320  2d 33 33 37 30 2e 22 00  37 0b ba ea 97 32 31 34  |-3370.".7....214|
00000330  2c 31 32 3a 99 00 61 0b  c4 ea 81 49 b2 30 a4 36  |,12:..a....I.0.6|
00000340  3a 99 a3 32 30 ab 28 c3  28 5a 24 28 49 29 29 ad  |:..20.(.(Z$(I)).|
00000350  32 29 29 22 12 22 5a 24  28 49 29 3a 82 3a 8e 00  |2))"."Z$(I):.:..|
00000360  00 00                                             |..|
00000362

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .