Home » Personal collection » Commodore disks » disk30b3_loadstar_131.d64 » b.double deck

b.double deck

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 » disk30b3_loadstar_131.d64
Filename: b.double deck
Read OK: ✔
File size: 035A bytes
Load address: 0801
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
     3 DV=PEEK(186):IFDV<8THENDV=8
     4 PRINT"<clr><cyan><text mode><shift disable>":POKE53280,0:POKE53281,0:GOSUB60000
    10 SYS57812"MT.DUO",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
    12 POKE4096,0:POKE44,16:POKE43,1
    20 PRINT"<clr>"
    30 PRINT"<cursor down><cursor down><black>LOAD"CHR$(34)"DOUBLE DECK DUO"CHR$(34)","DV
    40 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN<home>"
    90 POKE631,13:POKE632,13:POKE198,2:END
 10000 DV=PEEK(186):OPEN15,DV,15,"S0:B.DOUBLE DECK":CLOSE15
 10010 SAVE"B.DOUBLE DECK",DV: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 ╲AURICE ╰ONES"
 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


DV��(186):�DV�8�DV�8?�"��":�53280,0:�53281,0:�60000u
�57812"MT.DUO",DV,0:�780,0:�781,0:�782,192:�65493��4096,0:�44,16:�43,1��"�"��"�LOAD"�(34)"DOUBLE DECK DUO"�(34)","DV�(�"RUN"�Z�631,13:�632,13:�198,2:�"	'DV��(186):�15,DV,15,"S0:B.DOUBLE DECK":�15<	'�"B.DOUBLE DECK",DV:�~	`�"�":Z$�" �                                      ":�214,10:��	j�" ���������������������������������������":�I�0�9:�Z$:��	t�" ����������������������������������������"3
~�Z$(0)�"� � � � � �   � � � �   � � �" :Z$(1)�"BY �AURICE �ONES"e
��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."/��214,12:�Y��I�0�6:��20�(�(Z$(I))�2))""Z$(I):�:�
ZHC@dv..(186):.dv.8.dv.8@?HD@."..NH":.53280,0:.53281,0:.60000@UHJ@.57812"mt.duo",dv,0:.780,0:.781,0:.782,192:.65493@.HL@.4096,0:.44,16:.43,1@.HT@."."@.H.@."QQ.load".(34)"double deck duo".(34)","dv@.H(@."QQQQrunS"@.Hz@.631,13:.632,13:.198,2:.@"IP'dv..(186):.15,dv,15,"s0:b.double deck":.15@<IZ'."b.double deck",dv:.@.I...".":z$." R.                                      ":.214,10:.@.IJ.." .R......................................":.i.0.9:.z$:.@.IT.." .R.......................................S"@3J..z$(0).". . . . . .   . . . .   . . ." :z$(1)."by .aurice .ones"@EJ..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."@/K...214,12:.@yK...i.0.6:..20.(.(z$(i)).2))"R"z$(i):.:.@@@
00000000  1a 08 03 00 44 56 b2 c2  28 31 38 36 29 3a 8b 44  |....DV..(186):.D|
00000010  56 b3 38 a7 44 56 b2 38  00 3f 08 04 00 99 22 93  |V.8.DV.8.?....".|
00000020  9f 0e 08 22 3a 97 35 33  32 38 30 2c 30 3a 97 35  |...":.53280,0:.5|
00000030  33 32 38 31 2c 30 3a 8d  36 30 30 30 30 00 75 08  |3281,0:.60000.u.|
00000040  0a 00 9e 35 37 38 31 32  22 4d 54 2e 44 55 4f 22  |...57812"MT.DUO"|
00000050  2c 44 56 2c 30 3a 97 37  38 30 2c 30 3a 97 37 38  |,DV,0:.780,0:.78|
00000060  31 2c 30 3a 97 37 38 32  2c 31 39 32 3a 9e 36 35  |1,0:.782,192:.65|
00000070  34 39 33 00 8e 08 0c 00  97 34 30 39 36 2c 30 3a  |493......4096,0:|
00000080  97 34 34 2c 31 36 3a 97  34 33 2c 31 00 97 08 14  |.44,16:.43,1....|
00000090  00 99 22 93 22 00 c6 08  1e 00 99 22 11 11 90 4c  |.."."......"...L|
000000a0  4f 41 44 22 c7 28 33 34  29 22 44 4f 55 42 4c 45  |OAD".(34)"DOUBLE|
000000b0  20 44 45 43 4b 20 44 55  4f 22 c7 28 33 34 29 22  | DECK DUO".(34)"|
000000c0  2c 22 44 56 00 d6 08 28  00 99 22 11 11 11 11 52  |,"DV...(.."....R|
000000d0  55 4e 13 22 00 f3 08 5a  00 97 36 33 31 2c 31 33  |UN."...Z..631,13|
000000e0  3a 97 36 33 32 2c 31 33  3a 97 31 39 38 2c 32 3a  |:.632,13:.198,2:|
000000f0  80 00 22 09 10 27 44 56  b2 c2 28 31 38 36 29 3a  |.."..'DV..(186):|
00000100  9f 31 35 2c 44 56 2c 31  35 2c 22 53 30 3a 42 2e  |.15,DV,15,"S0:B.|
00000110  44 4f 55 42 4c 45 20 44  45 43 4b 22 3a a0 31 35  |DOUBLE DECK":.15|
00000120  00 3c 09 1a 27 94 22 42  2e 44 4f 55 42 4c 45 20  |.<..'."B.DOUBLE |
00000130  44 45 43 4b 22 2c 44 56  3a 80 00 7e 09 60 ea 99  |DECK",DV:..~.`..|
00000140  22 93 22 3a 5a 24 b2 22  20 12 98 20 20 20 20 20  |".":Z$." ..     |
00000150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000170  20 22 3a 97 32 31 34 2c  31 30 3a 99 00 bc 09 6a  | ":.214,10:....j|
00000180  ea 99 22 20 9b 12 b8 b8  b8 b8 b8 b8 b8 b8 b8 b8  |.." ............|
00000190  b8 b8 b8 b8 b8 b8 b8 b8  b8 b8 b8 b8 b8 b8 b8 b8  |................|
000001a0  b8 b8 b8 b8 b8 b8 b8 b8  b8 b8 b8 b8 22 3a 81 49  |............":.I|
000001b0  b2 30 a4 39 3a 99 5a 24  3a 82 00 ef 09 74 ea 99  |.0.9:.Z$:....t..|
000001c0  22 20 97 12 b9 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |" ..............|
000001d0  b9 b9 b9 b9 b9 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |................|
000001e0  b9 b9 b9 b9 b9 b9 b9 b9  b9 b9 98 13 22 00 33 0a  |............".3.|
000001f0  7e ea 5a 24 28 30 29 b2  22 c4 20 cf 20 d5 20 c2  |~.Z$(0).". . . .|
00000200  20 cc 20 c5 20 20 20 c4  20 c5 20 c3 20 cb 20 20  | . .   . . . .  |
00000210  20 c4 20 d5 20 cf 22 20  3a 5a 24 28 31 29 b2 22  | . . ." :Z$(1)."|
00000220  42 59 20 cd 41 55 52 49  43 45 20 ca 4f 4e 45 53  |BY .AURICE .ONES|
00000230  22 00 65 0a 88 ea 5a 24  28 32 29 b2 22 28 c3 29  |".e...Z$(2)."(.)|
00000240  20 31 39 39 35 20 42 59  20 d3 4f 46 54 44 49 53  | 1995 BY .OFTDIS|
00000250  4b 20 d0 55 42 4c 49 53  48 49 4e 47 22 aa c7 28  |K .UBLISHING"..(|
00000260  31 33 29 00 95 0a 92 ea  5a 24 28 33 29 b2 22 d4  |13).....Z$(3).".|
00000270  48 49 53 20 50 52 4f 47  52 41 4d 20 49 53 20 54  |HIS PROGRAM IS T|
00000280  48 45 20 43 4f 50 59 52  49 47 48 54 45 44 20 57  |HE COPYRIGHTED W|
00000290  4f 52 4b 00 c4 0a 9c ea  5a 24 28 34 29 b2 22 4f  |ORK.....Z$(4)."O|
000002a0  46 20 d3 cf c6 d4 c4 c9  d3 cb 20 d0 d5 c2 cc c9  |F ........ .....|
000002b0  d3 c8 c9 ce c7 2e 20 20  c9 54 20 49 53 20 4e 4f  |......  .T IS NO|
000002c0  54 22 00 f3 0a a6 ea 5a  24 28 35 29 b2 22 53 48  |T".....Z$(5)."SH|
000002d0  41 52 45 57 41 52 45 20  4f 52 20 49 4e 20 54 48  |AREWARE OR IN TH|
000002e0  45 20 50 55 42 4c 49 43  20 44 4f 4d 41 49 4e 2e  |E PUBLIC DOMAIN.|
000002f0  22 00 21 0b b0 ea 5a 24  28 36 29 b2 22 d4 4f 20  |".!...Z$(6).".O |
00000300  53 55 42 53 43 52 49 42  45 20 43 41 4c 4c 20 31  |SUBSCRIBE CALL 1|
00000310  2d 38 30 30 2d 35 39 34  2d 33 33 37 30 2e 22 00  |-800-594-3370.".|
00000320  2f 0b ba ea 97 32 31 34  2c 31 32 3a 99 00 59 0b  |/....214,12:..Y.|
00000330  c4 ea 81 49 b2 30 a4 36  3a 99 a3 32 30 ab 28 c3  |...I.0.6:..20.(.|
00000340  28 5a 24 28 49 29 29 ad  32 29 29 22 12 22 5a 24  |(Z$(I)).2))"."Z$|
00000350  28 49 29 3a 82 3a 8e 00  00 00                    |(I):.:....|
0000035a

© Dominic Ford 2021–2024.

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