b.super mole

Home » Personal collection » Commodore disks » disk30c2_loadstar_131.d64 » b.super mole

b.super mole

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.super mole
Read OK:	✔
File size:	0304 bytes
Load address:	0801
Exec address:	0000

File contents

     8 DV=PEEK(186):IFDV<8THENDV=8
    10 POKE53281,0:POKE53280,0:PRINT"<clr><text mode><shift disable>":GOSUB60000
    20 POKE43,1:POKE44,64:POKE64*256,0
    30 PRINT"<home><cursor down><cursor down><cursor down><black>LOAD"CHR$(34)"SUPER MOLE"CHR$(34)","DV
    40 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN<home>"
    50 POKE631,13:POKE632,13:POKE198,2:END
 10000 DV=PEEK(186):N$="B.SUPER MOLE":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,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 ♥TEVE 🭶MSLEY"
 60040 Z$(2)="(C) 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>
�53281,0:�53280,0:�"�":�60000Y�43,1:�44,64:�64�256,0��"�LOAD"�(34)"SUPER MOLE"�(34)","DV�(�"RUN"�2�631,13:�632,13:�198,2:��'DV��(186):N$�"B.SUPER MOLE":�15,DV,15,"S0:"�N$:�15:�N$,DV:�4	`�"�":Z$�" �                                      ":�214,10:�r	j�" ���������������������������������������":�I�0�9:�Z$:��	t�" ����������������������������������������"�	~�Z$(0)�"� � � � �   � � � �":Z$(1)�"BY �TEVE �MSLEY"
��Z$(2)�"(C) 1995 BY �OFTDISK �UBLISHING"��(13)?
��Z$(3)�"�HIS PROGRAM IS THE COPYRIGHTED WORKn
��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:���I�0�6:��20�(�(Z$(I))�2))""Z$(I):�:�

ZHH@dv..(186):.dv.8.dv.8@>HJ@.53281,0:.53280,0:.".NH":.60000@yHT@.43,1:.44,64:.64.256,0@.H.@."SQQQ.load".(34)"super mole".(34)","dv@.H(@."QQQQrunS"@.H2@.631,13:.632,13:.198,2:.@.HP'dv..(186):n$."b.super mole":.15,dv,15,"s0:".n$:.15:.n$,dv:.@4I...".":z$." R.                                      ":.214,10:.@RIJ.." .R......................................":.i.0.9:.z$:.@.IT.." .R.......................................S"@.I..z$(0).". . . . .   . . . .":z$(1)."by .teve .msley"@OJ..z$(2)."(c) 1995 by .oftdisk .ublishing"..(13)@?J..z$(3).".his program is the copyrighted work@NJ..z$(4)."of ........ ...........  .t is not"@.J..z$(5)."shareware or in the public domain."@.J..z$(6).".o subscribe call 1-800-594-3370."@.J...214,12:.@CK...i.0.6:..20.(.(z$(i)).2))"R"z$(i):.:.@@@

00000000  1a 08 08 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 3e 08 0a 00 97 35 33  |V.8.DV.8.>....53|
00000020  32 38 31 2c 30 3a 97 35  33 32 38 30 2c 30 3a 99  |281,0:.53280,0:.|
00000030  22 93 0e 08 22 3a 8d 36  30 30 30 30 00 59 08 14  |"...":.60000.Y..|
00000040  00 97 34 33 2c 31 3a 97  34 34 2c 36 34 3a 97 36  |..43,1:.44,64:.6|
00000050  34 ac 32 35 36 2c 30 00  85 08 1e 00 99 22 13 11  |4.256,0......"..|
00000060  11 11 90 4c 4f 41 44 22  c7 28 33 34 29 22 53 55  |...LOAD".(34)"SU|
00000070  50 45 52 20 4d 4f 4c 45  22 c7 28 33 34 29 22 2c  |PER MOLE".(34)",|
00000080  22 44 56 00 95 08 28 00  99 22 11 11 11 11 52 55  |"DV...(.."....RU|
00000090  4e 13 22 00 b2 08 32 00  97 36 33 31 2c 31 33 3a  |N."...2..631,13:|
000000a0  97 36 33 32 2c 31 33 3a  97 31 39 38 2c 32 3a 80  |.632,13:.198,2:.|
000000b0  00 f2 08 10 27 44 56 b2  c2 28 31 38 36 29 3a 4e  |....'DV..(186):N|
000000c0  24 b2 22 42 2e 53 55 50  45 52 20 4d 4f 4c 45 22  |$."B.SUPER MOLE"|
000000d0  3a 9f 31 35 2c 44 56 2c  31 35 2c 22 53 30 3a 22  |:.15,DV,15,"S0:"|
000000e0  aa 4e 24 3a a0 31 35 3a  94 4e 24 2c 44 56 3a 80  |.N$:.15:.N$,DV:.|
000000f0  00 34 09 60 ea 99 22 93  22 3a 5a 24 b2 22 20 12  |.4.`..".":Z$." .|
00000100  98 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000110  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000120  20 20 20 20 20 20 20 22  3a 97 32 31 34 2c 31 30  |       ":.214,10|
00000130  3a 99 00 72 09 6a ea 99  22 20 9b 12 b8 b8 b8 b8  |:..r.j.." ......|
00000140  b8 b8 b8 b8 b8 b8 b8 b8  b8 b8 b8 b8 b8 b8 b8 b8  |................|
*
00000160  b8 b8 22 3a 81 49 b2 30  a4 39 3a 99 5a 24 3a 82  |..":.I.0.9:.Z$:.|
00000170  00 a5 09 74 ea 99 22 20  97 12 b9 b9 b9 b9 b9 b9  |...t.." ........|
00000180  b9 b9 b9 b9 b9 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |................|
*
000001a0  98 13 22 00 dd 09 7e ea  5a 24 28 30 29 b2 22 d3  |.."...~.Z$(0).".|
000001b0  20 d5 20 d0 20 c5 20 d2  20 20 20 cd 20 cf 20 cc  | . . . .   . . .|
000001c0  20 c5 22 3a 5a 24 28 31  29 b2 22 42 59 20 d3 54  | .":Z$(1)."BY .T|
000001d0  45 56 45 20 c5 4d 53 4c  45 59 22 00 0f 0a 88 ea  |EVE .MSLEY".....|
000001e0  5a 24 28 32 29 b2 22 28  43 29 20 31 39 39 35 20  |Z$(2)."(C) 1995 |
000001f0  42 59 20 d3 4f 46 54 44  49 53 4b 20 d0 55 42 4c  |BY .OFTDISK .UBL|
00000200  49 53 48 49 4e 47 22 aa  c7 28 31 33 29 00 3f 0a  |ISHING"..(13).?.|
00000210  92 ea 5a 24 28 33 29 b2  22 d4 48 49 53 20 50 52  |..Z$(3).".HIS PR|
00000220  4f 47 52 41 4d 20 49 53  20 54 48 45 20 43 4f 50  |OGRAM IS THE COP|
00000230  59 52 49 47 48 54 45 44  20 57 4f 52 4b 00 6e 0a  |YRIGHTED WORK.n.|
00000240  9c ea 5a 24 28 34 29 b2  22 4f 46 20 d3 cf c6 d4  |..Z$(4)."OF ....|
00000250  c4 c9 d3 cb 20 d0 d5 c2  cc c9 d3 c8 c9 ce c7 2e  |.... ...........|
00000260  20 20 c9 54 20 49 53 20  4e 4f 54 22 00 9d 0a a6  |  .T IS NOT"....|
00000270  ea 5a 24 28 35 29 b2 22  53 48 41 52 45 57 41 52  |.Z$(5)."SHAREWAR|
00000280  45 20 4f 52 20 49 4e 20  54 48 45 20 50 55 42 4c  |E OR IN THE PUBL|
00000290  49 43 20 44 4f 4d 41 49  4e 2e 22 00 cb 0a b0 ea  |IC DOMAIN.".....|
000002a0  5a 24 28 36 29 b2 22 d4  4f 20 53 55 42 53 43 52  |Z$(6).".O SUBSCR|
000002b0  49 42 45 20 43 41 4c 4c  20 31 2d 38 30 30 2d 35  |IBE CALL 1-800-5|
000002c0  39 34 2d 33 33 37 30 2e  22 00 d9 0a ba ea 97 32  |94-3370."......2|
000002d0  31 34 2c 31 32 3a 99 00  03 0b c4 ea 81 49 b2 30  |14,12:.......I.0|
000002e0  a4 36 3a 99 a3 32 30 ab  28 c3 28 5a 24 28 49 29  |.6:..20.(.(Z$(I)|
000002f0  29 ad 32 29 29 22 12 22  5a 24 28 49 29 3a 82 3a  |).2))"."Z$(I):.:|
00000300  8e 00 00 00                                       |....|
00000304

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