Home » Personal collection » Acorn ADFS disks » Archimedes » Rhythm_Box_11B.ADF » Code/Sprites/Monster

Code/Sprites/Monster

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 » Acorn ADFS disks » Archimedes » Rhythm_Box_11B.ADF
Filename: Code/Sprites/Monster
Read OK:
File size: 02B7 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10 MODE2:*LOAD SPR2 4000
   20 VDU23,128,0,0,7,&0C,&18,0,0,0
   30 VDU23,130,0,0,&E0,&30,&18,0,0,0
   40 VDU23,131,&60,&F0,&F0,&F0,&F0,&F0,&F0,&60
   50 VDU23,132,&90,&90,&48,&90,0,0,0,0
   60 VDU23,134,&90,&90,&48,&24,0,0,0,0
   70 VDU5:MOVE0,1024:GCOL0,4:PRINTCHR$128;CHR$130:MOVE16,1004:GCOL0,3:PRINTCHR$131;CHR$131:GCOL0,4:MOVE0,1008:PRINTCHR$128;CHR$130
   80GCOL0,1:MOVE16,972:PRINTCHR$132;CHR$134
   90FORr=&3000TO&303F:?(r+&1180)=?r:?(r+&11C0)=?(r+&280):NEXT
  100FORr=&3040TO&307F:?(r+&11C0)=?r:?(r+&120)=?(r+&280):NEXT
  110VDU4:PRINTTAB(0,0)"  "'"  "
  120 VDU23,135,&24,&48,&90,&90,0,0,0,0
  130 VDU5:MOVE16,1004:GCOL0,1:PRINTCHR$131;CHR$131:GCOL0,3:MOVE16,972:PRINTCHR$132;CHR$134:MOVE16,1016:PRINTCHR$132;CHR$135
  140 FORr=&3000TO&303F:?(r+&1200)=?r:?(r+&1240)=?(r+&280):NEXT
  150 FORr=&3040TO&307F:?(r+&1240)=?r:?(r+&120)=?(r+&280):NEXT
  160 *SAVE SPRDAT 4000 4280

 �2:*LOAD SPR2 4000
  �23,128,0,0,7,&0C,&18,0,0,0
" �23,130,0,0,&E0,&30,&18,0,0,0
(, �23,131,&60,&F0,&F0,&F0,&F0,&F0,&F0,&60
2$ �23,132,&90,&90,&48,&90,0,0,0,0
<$ �23,134,&90,&90,&48,&24,0,0,0,0
FP �5:�0,1024:�0,4:�128;�130:�16,1004:�0,3:�131;�131:�0,4:�0,1008:�128;�130
P�0,1:�16,972:�132;�134
Z7�r=&3000�&303F:?(r+&1180)=?r:?(r+&11C0)=?(r+&280):�
d6�r=&3040�&307F:?(r+&11C0)=?r:?(r+&120)=?(r+&280):�
n�4:�0,0)"  "'"  "
x$ �23,135,&24,&48,&90,&90,0,0,0,0
�L �5:�16,1004:�0,1:�131;�131:�0,3:�16,972:�132;�134:�16,1016:�132;�135
�8 �r=&3000�&303F:?(r+&1200)=?r:?(r+&1240)=?(r+&280):�
�7 �r=&3040�&307F:?(r+&1240)=?r:?(r+&120)=?(r+&280):�
� *SAVE SPRDAT 4000 4280
�
00000000  0d 00 0a 17 20 eb 32 3a  2a 4c 4f 41 44 20 53 50  |.... .2:*LOAD SP|
00000010  52 32 20 34 30 30 30 0d  00 14 20 20 ef 32 33 2c  |R2 4000...  .23,|
00000020  31 32 38 2c 30 2c 30 2c  37 2c 26 30 43 2c 26 31  |128,0,0,7,&0C,&1|
00000030  38 2c 30 2c 30 2c 30 0d  00 1e 22 20 ef 32 33 2c  |8,0,0,0..." .23,|
00000040  31 33 30 2c 30 2c 30 2c  26 45 30 2c 26 33 30 2c  |130,0,0,&E0,&30,|
00000050  26 31 38 2c 30 2c 30 2c  30 0d 00 28 2c 20 ef 32  |&18,0,0,0..(, .2|
00000060  33 2c 31 33 31 2c 26 36  30 2c 26 46 30 2c 26 46  |3,131,&60,&F0,&F|
00000070  30 2c 26 46 30 2c 26 46  30 2c 26 46 30 2c 26 46  |0,&F0,&F0,&F0,&F|
00000080  30 2c 26 36 30 0d 00 32  24 20 ef 32 33 2c 31 33  |0,&60..2$ .23,13|
00000090  32 2c 26 39 30 2c 26 39  30 2c 26 34 38 2c 26 39  |2,&90,&90,&48,&9|
000000a0  30 2c 30 2c 30 2c 30 2c  30 0d 00 3c 24 20 ef 32  |0,0,0,0,0..<$ .2|
000000b0  33 2c 31 33 34 2c 26 39  30 2c 26 39 30 2c 26 34  |3,134,&90,&90,&4|
000000c0  38 2c 26 32 34 2c 30 2c  30 2c 30 2c 30 0d 00 46  |8,&24,0,0,0,0..F|
000000d0  50 20 ef 35 3a ec 30 2c  31 30 32 34 3a e6 30 2c  |P .5:.0,1024:.0,|
000000e0  34 3a f1 bd 31 32 38 3b  bd 31 33 30 3a ec 31 36  |4:..128;.130:.16|
000000f0  2c 31 30 30 34 3a e6 30  2c 33 3a f1 bd 31 33 31  |,1004:.0,3:..131|
00000100  3b bd 31 33 31 3a e6 30  2c 34 3a ec 30 2c 31 30  |;.131:.0,4:.0,10|
00000110  30 38 3a f1 bd 31 32 38  3b bd 31 33 30 0d 00 50  |08:..128;.130..P|
00000120  1b e6 30 2c 31 3a ec 31  36 2c 39 37 32 3a f1 bd  |..0,1:.16,972:..|
00000130  31 33 32 3b bd 31 33 34  0d 00 5a 37 e3 72 3d 26  |132;.134..Z7.r=&|
00000140  33 30 30 30 b8 26 33 30  33 46 3a 3f 28 72 2b 26  |3000.&303F:?(r+&|
00000150  31 31 38 30 29 3d 3f 72  3a 3f 28 72 2b 26 31 31  |1180)=?r:?(r+&11|
00000160  43 30 29 3d 3f 28 72 2b  26 32 38 30 29 3a ed 0d  |C0)=?(r+&280):..|
00000170  00 64 36 e3 72 3d 26 33  30 34 30 b8 26 33 30 37  |.d6.r=&3040.&307|
00000180  46 3a 3f 28 72 2b 26 31  31 43 30 29 3d 3f 72 3a  |F:?(r+&11C0)=?r:|
00000190  3f 28 72 2b 26 31 32 30  29 3d 3f 28 72 2b 26 32  |?(r+&120)=?(r+&2|
000001a0  38 30 29 3a ed 0d 00 6e  16 ef 34 3a f1 8a 30 2c  |80):...n..4:..0,|
000001b0  30 29 22 20 20 22 27 22  20 20 22 0d 00 78 24 20  |0)"  "'"  "..x$ |
000001c0  ef 32 33 2c 31 33 35 2c  26 32 34 2c 26 34 38 2c  |.23,135,&24,&48,|
000001d0  26 39 30 2c 26 39 30 2c  30 2c 30 2c 30 2c 30 0d  |&90,&90,0,0,0,0.|
000001e0  00 82 4c 20 ef 35 3a ec  31 36 2c 31 30 30 34 3a  |..L .5:.16,1004:|
000001f0  e6 30 2c 31 3a f1 bd 31  33 31 3b bd 31 33 31 3a  |.0,1:..131;.131:|
00000200  e6 30 2c 33 3a ec 31 36  2c 39 37 32 3a f1 bd 31  |.0,3:.16,972:..1|
00000210  33 32 3b bd 31 33 34 3a  ec 31 36 2c 31 30 31 36  |32;.134:.16,1016|
00000220  3a f1 bd 31 33 32 3b bd  31 33 35 0d 00 8c 38 20  |:..132;.135...8 |
00000230  e3 72 3d 26 33 30 30 30  b8 26 33 30 33 46 3a 3f  |.r=&3000.&303F:?|
00000240  28 72 2b 26 31 32 30 30  29 3d 3f 72 3a 3f 28 72  |(r+&1200)=?r:?(r|
00000250  2b 26 31 32 34 30 29 3d  3f 28 72 2b 26 32 38 30  |+&1240)=?(r+&280|
00000260  29 3a ed 0d 00 96 37 20  e3 72 3d 26 33 30 34 30  |):....7 .r=&3040|
00000270  b8 26 33 30 37 46 3a 3f  28 72 2b 26 31 32 34 30  |.&307F:?(r+&1240|
00000280  29 3d 3f 72 3a 3f 28 72  2b 26 31 32 30 29 3d 3f  |)=?r:?(r+&120)=?|
00000290  28 72 2b 26 32 38 30 29  3a ed 0d 00 a0 1b 20 2a  |(r+&280):..... *|
000002a0  53 41 56 45 20 53 50 52  44 41 54 20 34 30 30 30  |SAVE SPRDAT 4000|
000002b0  20 34 32 38 30 0d ff                              | 4280..|
000002b7
Code/Sprites/Monster.m0
Code/Sprites/Monster.m1
Code/Sprites/Monster.m2
Code/Sprites/Monster.m4
Code/Sprites/Monster.m5