Home » Personal collection » Acorn tapes » Commercial_Releases » box02_tape07a_acorn_eu_arcade_game_creator.wav » CONVERT

CONVERT

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 tapes » Commercial_Releases » box02_tape07a_acorn_eu_arcade_game_creator.wav
Filename: CONVERT
Read OK:
File size: 01BC bytes
Load address: 2000
Exec address: 1900
File contents
   10REM Sprite Converter
   20REM By R.A.Waddilove
   30REM (c) Electron User
   40MODE 6
   50INPUT''"File to load:"name$
   60OSCLI"LOAD "+name$+" B00"
   70MODE 5
   80A%=&5BC0
   90B%=&B02
  100FOR X%=0 TO ?&B00-1
  110FOR Y%=0 TO ?&B01-1
  120?(A%+X%*8+&140*(Y%DIV8)+Y%MOD8)=?B%
  130B%=B%+1
  140NEXT
  150NEXT
  160 
  170A%=&5BC0
  180B%=&B02
  190FOR Y%=0 TO (?&B01-1)DIV 8
  200FOR X%=0 TO ?&B00*8-1 STEP 4
  210!B%=!(A%+X%+&140*Y%)
  220B%=B%+4
  230NEXT
  240NEXT
  250MODE 6
  260INPUT''"File to save:"name$
  270OSCLI "SAVE "+name$+" B00 "+STR$~B%

� Sprite Converter
� By R.A.Waddilove
� (c) Electron User
(� 6
2�''"File to load:"name$
<�"LOAD "+name$+" B00"
F� 5
PA%=&5BC0
ZB%=&B02
d� X%=0 � ?&B00-1
n� Y%=0 � ?&B01-1
x#?(A%+X%*8+&140*(Y%�8)+Y%�8)=?B%
�B%=B%+1
��
��
� 
�A%=&5BC0
�B%=&B02
�� Y%=0 � (?&B01-1)� 8
�� X%=0 � ?&B00*8-1 � 4
�!B%=!(A%+X%+&140*Y%)
�B%=B%+4
��
��
�� 6
�''"File to save:"name$
 � "SAVE "+name$+" B00 "+�~B%
�
00000000  0d 00 0a 16 f4 20 53 70  72 69 74 65 20 43 6f 6e  |..... Sprite Con|
00000010  76 65 72 74 65 72 0d 00  14 16 f4 20 42 79 20 52  |verter..... By R|
00000020  2e 41 2e 57 61 64 64 69  6c 6f 76 65 0d 00 1e 17  |.A.Waddilove....|
00000030  f4 20 28 63 29 20 45 6c  65 63 74 72 6f 6e 20 55  |. (c) Electron U|
00000040  73 65 72 0d 00 28 07 eb  20 36 0d 00 32 1b e8 27  |ser..(.. 6..2..'|
00000050  27 22 46 69 6c 65 20 74  6f 20 6c 6f 61 64 3a 22  |'"File to load:"|
00000060  6e 61 6d 65 24 0d 00 3c  19 ff 22 4c 4f 41 44 20  |name$..<.."LOAD |
00000070  22 2b 6e 61 6d 65 24 2b  22 20 42 30 30 22 0d 00  |"+name$+" B00"..|
00000080  46 07 eb 20 35 0d 00 50  0c 41 25 3d 26 35 42 43  |F.. 5..P.A%=&5BC|
00000090  30 0d 00 5a 0b 42 25 3d  26 42 30 32 0d 00 64 14  |0..Z.B%=&B02..d.|
000000a0  e3 20 58 25 3d 30 20 b8  20 3f 26 42 30 30 2d 31  |. X%=0 . ?&B00-1|
000000b0  0d 00 6e 14 e3 20 59 25  3d 30 20 b8 20 3f 26 42  |..n.. Y%=0 . ?&B|
000000c0  30 31 2d 31 0d 00 78 23  3f 28 41 25 2b 58 25 2a  |01-1..x#?(A%+X%*|
000000d0  38 2b 26 31 34 30 2a 28  59 25 81 38 29 2b 59 25  |8+&140*(Y%.8)+Y%|
000000e0  83 38 29 3d 3f 42 25 0d  00 82 0b 42 25 3d 42 25  |.8)=?B%....B%=B%|
000000f0  2b 31 0d 00 8c 05 ed 0d  00 96 05 ed 0d 00 a0 05  |+1..............|
00000100  20 0d 00 aa 0c 41 25 3d  26 35 42 43 30 0d 00 b4  | ....A%=&5BC0...|
00000110  0b 42 25 3d 26 42 30 32  0d 00 be 19 e3 20 59 25  |.B%=&B02..... Y%|
00000120  3d 30 20 b8 20 28 3f 26  42 30 31 2d 31 29 81 20  |=0 . (?&B01-1). |
00000130  38 0d 00 c8 1a e3 20 58  25 3d 30 20 b8 20 3f 26  |8..... X%=0 . ?&|
00000140  42 30 30 2a 38 2d 31 20  88 20 34 0d 00 d2 18 21  |B00*8-1 . 4....!|
00000150  42 25 3d 21 28 41 25 2b  58 25 2b 26 31 34 30 2a  |B%=!(A%+X%+&140*|
00000160  59 25 29 0d 00 dc 0b 42  25 3d 42 25 2b 34 0d 00  |Y%)....B%=B%+4..|
00000170  e6 05 ed 0d 00 f0 05 ed  0d 00 fa 07 eb 20 36 0d  |............. 6.|
00000180  01 04 1b e8 27 27 22 46  69 6c 65 20 74 6f 20 73  |....''"File to s|
00000190  61 76 65 3a 22 6e 61 6d  65 24 0d 01 0e 20 ff 20  |ave:"name$... . |
000001a0  22 53 41 56 45 20 22 2b  6e 61 6d 65 24 2b 22 20  |"SAVE "+name$+" |
000001b0  42 30 30 20 22 2b c3 7e  42 25 0d ff              |B00 "+.~B%..|
000001bc
CONVERT.m0
CONVERT.m1
CONVERT.m2
CONVERT.m4
CONVERT.m5