b.mandala

Home » Personal collection » Commodore disks » disk30b3_loadstar_131.d64 » b.mandala

b.mandala

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

Duplicates

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

Personal collection » Commodore disks » disk30b2_loadstar_131.d64 » b.mandala
Personal collection » Commodore disks » disk30b3_loadstar_131.d64 » b.mandala
Personal collection » Commodore disks » disk30b_loadstar_131.d64 » b.mandala

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,16:POKE4096,0
    30 PRINT"<home><cursor down><cursor down><cursor down><black>LOAD"CHR$(34)"MANDALA"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):OPEN15,DV,15,"S0:B.MANDALA":CLOSE15:SAVE"B.MANDALA",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 ╯NEES 🭸ALHOON
 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>
�53281,0:�53280,0:�"�":�60000W�43,1:�44,16:�4096,0��"�LOAD"�(34)"MANDALA"�(34)","DV�(�"RUN"�2�631,13:�632,13:�198,2:��'DV��(186):�15,DV,15,"S0:B.MANDALA":�15:�"B.MANDALA",DV:�,	`�"�":Z$�" �                                      ":�214,10:�j	j�" ���������������������������������������":�I�0�9:�Z$:��	t�" ����������������������������������������"�	~�Z$(0)�"������'� ���� ��������":Z$(1)�"BY �NEES �ALHOON
��Z$(2)�"(�) 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@wHT@.43,1:.44,16:.4096,0@.H.@."SQQQ.load".(34)"mandala".(34)","dv@.H(@."QQQQrunS"@.H2@.631,13:.632,13:.198,2:.@.HP'dv..(186):.15,dv,15,"s0:b.mandala":.15:."b.mandala",dv:.@,I...".":z$." R.                                      ":.214,10:.@JIJ.." .R......................................":.i.0.9:.z$:.@.IT.." .R.......................................S"@.I..z$(0).".......'. ....... .........":z$(1)."by .nees .alhoon@OJ..z$(2)."(.) 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 57 08 14  |"...":.60000.W..|
00000040  00 97 34 33 2c 31 3a 97  34 34 2c 31 36 3a 97 34  |..43,1:.44,16:.4|
00000050  30 39 36 2c 30 00 80 08  1e 00 99 22 13 11 11 11  |096,0......"....|
00000060  90 4c 4f 41 44 22 c7 28  33 34 29 22 4d 41 4e 44  |.LOAD".(34)"MAND|
00000070  41 4c 41 22 c7 28 33 34  29 22 2c 22 44 56 00 90  |ALA".(34)","DV..|
00000080  08 28 00 99 22 11 11 11  11 52 55 4e 13 22 00 ad  |.(.."....RUN."..|
00000090  08 32 00 97 36 33 31 2c  31 33 3a 97 36 33 32 2c  |.2..631,13:.632,|
000000a0  31 33 3a 97 31 39 38 2c  32 3a 80 00 ea 08 10 27  |13:.198,2:.....'|
000000b0  44 56 b2 c2 28 31 38 36  29 3a 9f 31 35 2c 44 56  |DV..(186):.15,DV|
000000c0  2c 31 35 2c 22 53 30 3a  42 2e 4d 41 4e 44 41 4c  |,15,"S0:B.MANDAL|
000000d0  41 22 3a a0 31 35 3a 94  22 42 2e 4d 41 4e 44 41  |A":.15:."B.MANDA|
000000e0  4c 41 22 2c 44 56 3a 80  00 2c 09 60 ea 99 22 93  |LA",DV:..,.`..".|
000000f0  22 3a 5a 24 b2 22 20 12  98 20 20 20 20 20 20 20  |":Z$." ..       |
00000100  20 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 22  |               "|
00000120  3a 97 32 31 34 2c 31 30  3a 99 00 6a 09 6a ea 99  |:.214,10:..j.j..|
00000130  22 20 9b 12 b8 b8 b8 b8  b8 b8 b8 b8 b8 b8 b8 b8  |" ..............|
00000140  b8 b8 b8 b8 b8 b8 b8 b8  b8 b8 b8 b8 b8 b8 b8 b8  |................|
00000150  b8 b8 b8 b8 b8 b8 b8 b8  b8 b8 22 3a 81 49 b2 30  |..........":.I.0|
00000160  a4 39 3a 99 5a 24 3a 82  00 9d 09 74 ea 99 22 20  |.9:.Z$:....t.." |
00000170  97 12 b9 b9 b9 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |................|
00000180  b9 b9 b9 b9 b9 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |................|
00000190  b9 b9 b9 b9 b9 b9 b9 b9  98 13 22 00 dd 09 7e ea  |.........."...~.|
000001a0  5a 24 28 30 29 b2 22 c3  c1 cc c8 cf cf ce 27 d3  |Z$(0).".......'.|
000001b0  20 cd c1 ce c4 c1 cc c1  20 c3 c8 c1 cc cc c5 ce  | ....... .......|
000001c0  c7 c5 22 3a 5a 24 28 31  29 b2 22 42 59 20 cb 4e  |..":Z$(1)."BY .N|
000001d0  45 45 53 20 c3 41 4c 48  4f 4f 4e 00 0f 0a 88 ea  |EES .ALHOON.....|
000001e0  5a 24 28 32 29 b2 22 28  c3 29 20 31 39 39 35 20  |Z$(2)."(.) 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 .