Duplicates

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

• AEW website » database » database_3_5_discs_Arcade-Game-Creator_A-AGC.adf » 2_PROG1
• AEW website » database » database_5_25_discs_Arcade-Game-Creator_D-AGC.ssd » 2_PROG1
• AEW website » database » database_tapes_Arcade-Game-Creator_ArcadeGameCreator_E.uef » 2_PROG1
• Personal collection » Acorn tapes » Commercial_Releases » box02_tape07b_acorn_eu_arcade_game_creator.wav » 2_PROG1
• Personal collection » Acorn tapes » Commercial_Releases » box02_tape07a_acorn_eu_arcade_game_creator.wav » 2_PROG1

File contents

• BASIC
• Preview
• Hex Dump
• MODE 0 render
• MODE 1 render
• MODE 2 render
• MODE 4 render
• MODE 5 render

   10REM Data Maker
   20MODE 6
   30INPUT''"Sprite file name:"sprite$
   40OSCLI"LOAD "+sprite$+" B00"
   50PRINT''"Sprite loaded..."
   60INPUT''"Data file name:"name$
   70OSCLI"SPOOL "+name$
   80X%=?&B00:Y%=?&B01:L%=9020:B%=&B02:a$="9020DATA "
   90PRINT"9000REM "sprite$
  100PRINT"9010REM X=";X%;"/Y=";Y%
  110FOR I%=0 TO X%-1
  120FOR J%=0 TO Y%-1
  130a$=a$+STR$(?B%)+",":B%=B%+1
  140IF LEN(a$)>200 OR (I%=X%-1 AND J%=Y%-1) a$=LEFT$(a$,LEN(a$)-1):PRINT a$:L%=L%+10:a$=STR$(L%)+"DATA "
  150NEXT
  160NEXT
  170*SPOOL

� Data Maker
� 6
!�''"Sprite file name:"sprite$
(�"LOAD "+sprite$+" B00"
2�''"Sprite loaded..."
<�''"Data file name:"name$
F�"SPOOL "+name$
P4X%=?&B00:Y%=?&B01:L%=9020:B%=&B02:a$="9020DATA "
Z�"9000REM "sprite$
d�"9010REM X=";X%;"/Y=";Y%
n� I%=0 � X%-1
x� J%=0 � Y%-1
�a$=a$+�(?B%)+",":B%=B%+1
�T� �(a$)>200 � (I%=X%-1 � J%=Y%-1) a$=�a$,�(a$)-1):� a$:L%=L%+10:a$=�(L%)+"DATA "
��
��
�
*SPOOL
�

00000000  0d 00 0a 10 f4 20 44 61  74 61 20 4d 61 6b 65 72  |..... Data Maker|
00000010  0d 00 14 07 eb 20 36 0d  00 1e 21 e8 27 27 22 53  |..... 6...!.''"S|
00000020  70 72 69 74 65 20 66 69  6c 65 20 6e 61 6d 65 3a  |prite file name:|
00000030  22 73 70 72 69 74 65 24  0d 00 28 1b ff 22 4c 4f  |"sprite$..(.."LO|
00000040  41 44 20 22 2b 73 70 72  69 74 65 24 2b 22 20 42  |AD "+sprite$+" B|
00000050  30 30 22 0d 00 32 19 f1  27 27 22 53 70 72 69 74  |00"..2..''"Sprit|
00000060  65 20 6c 6f 61 64 65 64  2e 2e 2e 22 0d 00 3c 1d  |e loaded..."..<.|
00000070  e8 27 27 22 44 61 74 61  20 66 69 6c 65 20 6e 61  |.''"Data file na|
00000080  6d 65 3a 22 6e 61 6d 65  24 0d 00 46 13 ff 22 53  |me:"name$..F.."S|
00000090  50 4f 4f 4c 20 22 2b 6e  61 6d 65 24 0d 00 50 34  |POOL "+name$..P4|
000000a0  58 25 3d 3f 26 42 30 30  3a 59 25 3d 3f 26 42 30  |X%=?&B00:Y%=?&B0|
000000b0  31 3a 4c 25 3d 39 30 32  30 3a 42 25 3d 26 42 30  |1:L%=9020:B%=&B0|
000000c0  32 3a 61 24 3d 22 39 30  32 30 44 41 54 41 20 22  |2:a$="9020DATA "|
000000d0  0d 00 5a 16 f1 22 39 30  30 30 52 45 4d 20 22 73  |..Z.."9000REM "s|
000000e0  70 72 69 74 65 24 0d 00  64 1d f1 22 39 30 31 30  |prite$..d.."9010|
000000f0  52 45 4d 20 58 3d 22 3b  58 25 3b 22 2f 59 3d 22  |REM X=";X%;"/Y="|
00000100  3b 59 25 0d 00 6e 11 e3  20 49 25 3d 30 20 b8 20  |;Y%..n.. I%=0 . |
00000110  58 25 2d 31 0d 00 78 11  e3 20 4a 25 3d 30 20 b8  |X%-1..x.. J%=0 .|
00000120  20 59 25 2d 31 0d 00 82  1c 61 24 3d 61 24 2b c3  | Y%-1....a$=a$+.|
00000130  28 3f 42 25 29 2b 22 2c  22 3a 42 25 3d 42 25 2b  |(?B%)+",":B%=B%+|
00000140  31 0d 00 8c 54 e7 20 a9  28 61 24 29 3e 32 30 30  |1...T. .(a$)>200|
00000150  20 84 20 28 49 25 3d 58  25 2d 31 20 80 20 4a 25  | . (I%=X%-1 . J%|
00000160  3d 59 25 2d 31 29 20 61  24 3d c0 61 24 2c a9 28  |=Y%-1) a$=.a$,.(|
00000170  61 24 29 2d 31 29 3a f1  20 61 24 3a 4c 25 3d 4c  |a$)-1):. a$:L%=L|
00000180  25 2b 31 30 3a 61 24 3d  c3 28 4c 25 29 2b 22 44  |%+10:a$=.(L%)+"D|
00000190  41 54 41 20 22 0d 00 96  05 ed 0d 00 a0 05 ed 0d  |ATA "...........|
000001a0  00 aa 0a 2a 53 50 4f 4f  4c 0d ff                 |...*SPOOL..|
000001ab

2_PROG1.m0

2_PROG1.m1

2_PROG1.m2

2_PROG1.m4

2_PROG1.m5