Home » Personal collection » Acorn tapes » Commercial_Releases » box02_tape07a_acorn_eu_arcade_game_creator.wav » 4_PROG1

4_PROG1

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: 4_PROG1
Read OK: ✔
File size: 08FA bytes
Load address: 2000
Exec address: 1900
Duplicates

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

File contents
   10REM Maps 1
   12REM By R.A.Waddilove
   14REM (c) Electron User
   20PROCassemble
   30MODE 5:VDU23,1,0;0;0;0;:*FX16
   40COLOUR131:COLOUR0
   50A%=0
   60REPEAT
   70CALL &900
   80PRINT TAB(5,1)"Hit  Space"
   90A%=(A%+1)MOD 5
  100UNTIL GET=FALSE
  110END
  120 
  130DEF PROCassemble
  140map=&50
  150addr=&51
  160xcount=&53:ycount=&54
  170taddr=&55
  180index=&57
  190FOR pass=0 TO 2 STEP 2
  200P%=&900
  210[ OPT pass
  220SEI
  340ASL A:TAY  \screen*2
  350LDA table,Y:STA screen+1:LDA table+1,Y:STA screen+2
  360LDY #&58:STY addr+1:LDY #&00:STY addr
  370STY index
  380LDA #8:STA ycount
  390.yloop
  400LDA addr:STA taddr:LDA addr+1:STA taddr+1
  410LDY index
  420.screen LDA &3000,Y:STA map
  430LDA #8:STA xcount
  440.xloop
  460ASL map:BCC block
  465LDA addr:STA new+1:LDA addr+1:STA new+2
  470JSR print:JMP skip
  480.block
  481LDA addr:STA bloop+1:LDA addr+1:STA bloop+2
  490JSR blank
  500.skip
  510LDA addr:ADC #5*8:STA addr:BCC m1:INC addr+1:.m1
  520DEC xcount:BNE xloop
  530LDA taddr:ADC #(4*&140)MOD256:STA addr:LDA taddr+1:ADC #(4*&140)DIV256:STA addr+1
  540INC index
  550DEC ycount:BNE yloop
  560CLI
  570RTS
  580 
  590.table
  600EQUW scr0
  610EQUW scr1
  620EQUW scr2
  630EQUW scr3
  640EQUW scr4
  650 
  660.scr0 EQUD &21AB89FF:EQUD &FF818BA8
  670.scr1 EQUD &84D591FF:EQUD &EFA581BF
  680.scr2 EQUD &F59581FF:EQUD &F791BD05
  690.scr3 EQUD &89ABA9BD:EQUD &FF9185ED
  700.scr4 EQUD &BF1185FF:EQUD &F794B581
  710 
  720.print
  730LDA #brick MOD256:STA ploop+1:LDA #brick DIV256:STA ploop+2
  740LDX #4
  750.loop
  760LDY #5*8-1
  770.ploop
  780LDA brick,Y:.new STA &5800,Y
  790DEY:BPL ploop
  800CLC:LDA new+1:ADC #&40:STA new+1:LDA new+2:ADC #&1:STA new+2
  810LDA ploop+1:ADC #40:STA ploop+1:BCC p1:INC ploop+2:.p1
  820DEX:BNE loop
  830RTS
  840 
  850.blank
  860LDX #4
  870.loop
  880LDY #5*8-1
  885LDA #0
  890.bloop
  900STA &5800,Y
  910DEY:BPL bloop
  920CLC:LDA bloop+1:ADC #&40:STA bloop+1:LDA bloop+2:ADC #&1:STA bloop+2
  930DEX:BNE loop
  940RTS
  950 
  960.brick
  970OPT FNdata
  980]
  990NEXT
 1000ENDPROC
 1010 
 1020DEF FNdata
 1030RESTORE
 1040FOR I%=0 TO 5*32-1 STEP 4
 1050READ a$
 1060[ OPT pass
 1070EQUD EVAL("&"+a$)
 1080]
 1090NEXT
 1100=pass
 1110 
 1120REM Brick
 1130DATA F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F,F00F0F0F,2D2D2D2D,F02D2D2D,F0F0F0F,F00F0F0F,2D2D2D2D,F02D2D2D,F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F
 1140DATA F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F,F00F0F0F,2D2D2D2D,F02D2D2D,F0F0F0F,F00F0F0F,2D2D2D2D,F02D2D2D,F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B


� Maps 1
� By R.A.Waddilove
� (c) Electron User

�assemble
� 5:�23,1,0;0;0;0;:*FX16
(�131:�0
2A%=0
<�
F
� &900
P� �5,1)"Hit  Space"
ZA%=(A%+1)� 5
d	� �=�
n�
x 
�� �assemble
�map=&50
�addr=&51
�xcount=&53:ycount=&54
�
taddr=&55
�
index=&57
�� pass=0 � 2 � 2
�P%=&900
�[ OPT pass
�SEI
TASL A:TAY  \screen*2
^7LDA table,Y:STA screen+1:LDA table+1,Y:STA screen+2
h)LDY #&58:STY addr+1:LDY #&00:STY addr
r
STY index
|LDA #8:STA ycount
�
.yloop
�-LDA addr:STA taddr:LDA addr+1:STA taddr+1
�
LDY index
�.screen LDA &3000,Y:STA map
�LDA #8:STA xcount
�
.xloop
�ASL map:BCC block
�+LDA addr:STA new+1:LDA addr+1:STA new+2
�JSR print:JMP skip
�
.block
�/LDA addr:STA bloop+1:LDA addr+1:STA bloop+2
�
JSR blank
�	.skip
�4LDA addr:ADC #5*8:STA addr:BCC m1:INC addr+1:.m1
DEC xcount:BNE xloop
QLDA taddr:ADC #(4*&140)�256:STA addr:LDA taddr+1:ADC #(4*&140)�256:STA addr+1

INC index
&DEC ycount:BNE yloop
0CLI
:RTS
D 
N
.table
X
EQUW scr0
b
EQUW scr1
l
EQUW scr2
v
EQUW scr3
�
EQUW scr4
� 
�'.scr0 EQUD &21AB89FF:EQUD &FF818BA8
�'.scr1 EQUD &84D591FF:EQUD &EFA581BF
�'.scr2 EQUD &F59581FF:EQUD &F791BD05
�'.scr3 EQUD &89ABA9BD:EQUD &FF9185ED
�'.scr4 EQUD &BF1185FF:EQUD &F794B581
� 
�
.print
�;LDA #brick �256:STA ploop+1:LDA #brick �256:STA ploop+2
�
LDX #4
�	.loop
�LDY #5*8-1

.ploop
 LDA brick,Y:.new STA &5800,Y
DEY:BPL ploop
 @CLC:LDA new+1:ADC #&40:STA new+1:LDA new+2:ADC #&1:STA new+2
*:LDA ploop+1:ADC #40:STA ploop+1:BCC p1:INC ploop+2:.p1
4DEX:BNE loop
>RTS
H 
R
.blank
\
LDX #4
f	.loop
pLDY #5*8-1
u
LDA #0
z
.bloop
�STA &5800,Y
�DEY:BPL bloop
�HCLC:LDA bloop+1:ADC #&40:STA bloop+1:LDA bloop+2:ADC #&1:STA bloop+2
�DEX:BNE loop
�RTS
� 
�
.brick
�
OPT �data
�]
��
��
� 
�� �data
�
� I%=0 � 5*32-1 � 4
� a$
$[ OPT pass
.EQUD �("&"+a$)
8]
B�
L	=pass
V 
`� Brick
j�� F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F,F00F0F0F,2D2D2D2D,F02D2D2D,F0F0F0F,F00F0F0F,2D2D2D2D,F02D2D2D,F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F
t�� F00F0F0F,4B4B4B4B,F04B4B4B,F0F0F0F,F00F0F0F,2D2D2D2D,F02D2D2D,F0F0F0F,F00F0F0F,2D2D2D2D,F02D2D2D,F0F0F0F,F00F0F0F,4B4B4B4B,F04B4B4B
�
00000000  0d 00 0a 0c f4 20 4d 61  70 73 20 31 0d 00 0c 16  |..... Maps 1....|
00000010  f4 20 42 79 20 52 2e 41  2e 57 61 64 64 69 6c 6f  |. By R.A.Waddilo|
00000020  76 65 0d 00 0e 17 f4 20  28 63 29 20 45 6c 65 63  |ve..... (c) Elec|
00000030  74 72 6f 6e 20 55 73 65  72 0d 00 14 0d f2 61 73  |tron User.....as|
00000040  73 65 6d 62 6c 65 0d 00  1e 1c eb 20 35 3a ef 32  |semble..... 5:.2|
00000050  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 3a 2a 46 58  |3,1,0;0;0;0;:*FX|
00000060  31 36 0d 00 28 0b fb 31  33 31 3a fb 30 0d 00 32  |16..(..131:.0..2|
00000070  08 41 25 3d 30 0d 00 3c  05 f5 0d 00 46 0a d6 20  |.A%=0..<....F.. |
00000080  26 39 30 30 0d 00 50 17  f1 20 8a 35 2c 31 29 22  |&900..P.. .5,1)"|
00000090  48 69 74 20 20 53 70 61  63 65 22 0d 00 5a 10 41  |Hit  Space"..Z.A|
000000a0  25 3d 28 41 25 2b 31 29  83 20 35 0d 00 64 09 fd  |%=(A%+1). 5..d..|
000000b0  20 a5 3d a3 0d 00 6e 05  e0 0d 00 78 05 20 0d 00  | .=...n....x. ..|
000000c0  82 0f dd 20 f2 61 73 73  65 6d 62 6c 65 0d 00 8c  |... .assemble...|
000000d0  0b 6d 61 70 3d 26 35 30  0d 00 96 0c 61 64 64 72  |.map=&50....addr|
000000e0  3d 26 35 31 0d 00 a0 19  78 63 6f 75 6e 74 3d 26  |=&51....xcount=&|
000000f0  35 33 3a 79 63 6f 75 6e  74 3d 26 35 34 0d 00 aa  |53:ycount=&54...|
00000100  0d 74 61 64 64 72 3d 26  35 35 0d 00 b4 0d 69 6e  |.taddr=&55....in|
00000110  64 65 78 3d 26 35 37 0d  00 be 14 e3 20 70 61 73  |dex=&57..... pas|
00000120  73 3d 30 20 b8 20 32 20  88 20 32 0d 00 c8 0b 50  |s=0 . 2 . 2....P|
00000130  25 3d 26 39 30 30 0d 00  d2 0e 5b 20 4f 50 54 20  |%=&900....[ OPT |
00000140  70 61 73 73 0d 00 dc 07  53 45 49 0d 01 54 18 41  |pass....SEI..T.A|
00000150  53 4c 20 41 3a 54 41 59  20 20 5c 73 63 72 65 65  |SL A:TAY  \scree|
00000160  6e 2a 32 0d 01 5e 37 4c  44 41 20 74 61 62 6c 65  |n*2..^7LDA table|
00000170  2c 59 3a 53 54 41 20 73  63 72 65 65 6e 2b 31 3a  |,Y:STA screen+1:|
00000180  4c 44 41 20 74 61 62 6c  65 2b 31 2c 59 3a 53 54  |LDA table+1,Y:ST|
00000190  41 20 73 63 72 65 65 6e  2b 32 0d 01 68 29 4c 44  |A screen+2..h)LD|
000001a0  59 20 23 26 35 38 3a 53  54 59 20 61 64 64 72 2b  |Y #&58:STY addr+|
000001b0  31 3a 4c 44 59 20 23 26  30 30 3a 53 54 59 20 61  |1:LDY #&00:STY a|
000001c0  64 64 72 0d 01 72 0d 53  54 59 20 69 6e 64 65 78  |ddr..r.STY index|
000001d0  0d 01 7c 15 4c 44 41 20  23 38 3a 53 54 41 20 79  |..|.LDA #8:STA y|
000001e0  63 6f 75 6e 74 0d 01 86  0a 2e 79 6c 6f 6f 70 0d  |count.....yloop.|
000001f0  01 90 2d 4c 44 41 20 61  64 64 72 3a 53 54 41 20  |..-LDA addr:STA |
00000200  74 61 64 64 72 3a 4c 44  41 20 61 64 64 72 2b 31  |taddr:LDA addr+1|
00000210  3a 53 54 41 20 74 61 64  64 72 2b 31 0d 01 9a 0d  |:STA taddr+1....|
00000220  4c 44 59 20 69 6e 64 65  78 0d 01 a4 1f 2e 73 63  |LDY index.....sc|
00000230  72 65 65 6e 20 4c 44 41  20 26 33 30 30 30 2c 59  |reen LDA &3000,Y|
00000240  3a 53 54 41 20 6d 61 70  0d 01 ae 15 4c 44 41 20  |:STA map....LDA |
00000250  23 38 3a 53 54 41 20 78  63 6f 75 6e 74 0d 01 b8  |#8:STA xcount...|
00000260  0a 2e 78 6c 6f 6f 70 0d  01 cc 15 41 53 4c 20 6d  |..xloop....ASL m|
00000270  61 70 3a 42 43 43 20 62  6c 6f 63 6b 0d 01 d1 2b  |ap:BCC block...+|
00000280  4c 44 41 20 61 64 64 72  3a 53 54 41 20 6e 65 77  |LDA addr:STA new|
00000290  2b 31 3a 4c 44 41 20 61  64 64 72 2b 31 3a 53 54  |+1:LDA addr+1:ST|
000002a0  41 20 6e 65 77 2b 32 0d  01 d6 16 4a 53 52 20 70  |A new+2....JSR p|
000002b0  72 69 6e 74 3a 4a 4d 50  20 73 6b 69 70 0d 01 e0  |rint:JMP skip...|
000002c0  0a 2e 62 6c 6f 63 6b 0d  01 e1 2f 4c 44 41 20 61  |..block.../LDA a|
000002d0  64 64 72 3a 53 54 41 20  62 6c 6f 6f 70 2b 31 3a  |ddr:STA bloop+1:|
000002e0  4c 44 41 20 61 64 64 72  2b 31 3a 53 54 41 20 62  |LDA addr+1:STA b|
000002f0  6c 6f 6f 70 2b 32 0d 01  ea 0d 4a 53 52 20 62 6c  |loop+2....JSR bl|
00000300  61 6e 6b 0d 01 f4 09 2e  73 6b 69 70 0d 01 fe 34  |ank.....skip...4|
00000310  4c 44 41 20 61 64 64 72  3a 41 44 43 20 23 35 2a  |LDA addr:ADC #5*|
00000320  38 3a 53 54 41 20 61 64  64 72 3a 42 43 43 20 6d  |8:STA addr:BCC m|
00000330  31 3a 49 4e 43 20 61 64  64 72 2b 31 3a 2e 6d 31  |1:INC addr+1:.m1|
00000340  0d 02 08 18 44 45 43 20  78 63 6f 75 6e 74 3a 42  |....DEC xcount:B|
00000350  4e 45 20 78 6c 6f 6f 70  0d 02 12 51 4c 44 41 20  |NE xloop...QLDA |
00000360  74 61 64 64 72 3a 41 44  43 20 23 28 34 2a 26 31  |taddr:ADC #(4*&1|
00000370  34 30 29 83 32 35 36 3a  53 54 41 20 61 64 64 72  |40).256:STA addr|
00000380  3a 4c 44 41 20 74 61 64  64 72 2b 31 3a 41 44 43  |:LDA taddr+1:ADC|
00000390  20 23 28 34 2a 26 31 34  30 29 81 32 35 36 3a 53  | #(4*&140).256:S|
000003a0  54 41 20 61 64 64 72 2b  31 0d 02 1c 0d 49 4e 43  |TA addr+1....INC|
000003b0  20 69 6e 64 65 78 0d 02  26 18 44 45 43 20 79 63  | index..&.DEC yc|
000003c0  6f 75 6e 74 3a 42 4e 45  20 79 6c 6f 6f 70 0d 02  |ount:BNE yloop..|
000003d0  30 07 43 4c 49 0d 02 3a  07 52 54 53 0d 02 44 05  |0.CLI..:.RTS..D.|
000003e0  20 0d 02 4e 0a 2e 74 61  62 6c 65 0d 02 58 0d 45  | ..N..table..X.E|
000003f0  51 55 57 20 73 63 72 30  0d 02 62 0d 45 51 55 57  |QUW scr0..b.EQUW|
00000400  20 73 63 72 31 0d 02 6c  0d 45 51 55 57 20 73 63  | scr1..l.EQUW sc|
00000410  72 32 0d 02 76 0d 45 51  55 57 20 73 63 72 33 0d  |r2..v.EQUW scr3.|
00000420  02 80 0d 45 51 55 57 20  73 63 72 34 0d 02 8a 05  |...EQUW scr4....|
00000430  20 0d 02 94 27 2e 73 63  72 30 20 45 51 55 44 20  | ...'.scr0 EQUD |
00000440  26 32 31 41 42 38 39 46  46 3a 45 51 55 44 20 26  |&21AB89FF:EQUD &|
00000450  46 46 38 31 38 42 41 38  0d 02 9e 27 2e 73 63 72  |FF818BA8...'.scr|
00000460  31 20 45 51 55 44 20 26  38 34 44 35 39 31 46 46  |1 EQUD &84D591FF|
00000470  3a 45 51 55 44 20 26 45  46 41 35 38 31 42 46 0d  |:EQUD &EFA581BF.|
00000480  02 a8 27 2e 73 63 72 32  20 45 51 55 44 20 26 46  |..'.scr2 EQUD &F|
00000490  35 39 35 38 31 46 46 3a  45 51 55 44 20 26 46 37  |59581FF:EQUD &F7|
000004a0  39 31 42 44 30 35 0d 02  b2 27 2e 73 63 72 33 20  |91BD05...'.scr3 |
000004b0  45 51 55 44 20 26 38 39  41 42 41 39 42 44 3a 45  |EQUD &89ABA9BD:E|
000004c0  51 55 44 20 26 46 46 39  31 38 35 45 44 0d 02 bc  |QUD &FF9185ED...|
000004d0  27 2e 73 63 72 34 20 45  51 55 44 20 26 42 46 31  |'.scr4 EQUD &BF1|
000004e0  31 38 35 46 46 3a 45 51  55 44 20 26 46 37 39 34  |185FF:EQUD &F794|
000004f0  42 35 38 31 0d 02 c6 05  20 0d 02 d0 0a 2e 70 72  |B581.... .....pr|
00000500  69 6e 74 0d 02 da 3b 4c  44 41 20 23 62 72 69 63  |int...;LDA #bric|
00000510  6b 20 83 32 35 36 3a 53  54 41 20 70 6c 6f 6f 70  |k .256:STA ploop|
00000520  2b 31 3a 4c 44 41 20 23  62 72 69 63 6b 20 81 32  |+1:LDA #brick .2|
00000530  35 36 3a 53 54 41 20 70  6c 6f 6f 70 2b 32 0d 02  |56:STA ploop+2..|
00000540  e4 0a 4c 44 58 20 23 34  0d 02 ee 09 2e 6c 6f 6f  |..LDX #4.....loo|
00000550  70 0d 02 f8 0e 4c 44 59  20 23 35 2a 38 2d 31 0d  |p....LDY #5*8-1.|
00000560  03 02 0a 2e 70 6c 6f 6f  70 0d 03 0c 20 4c 44 41  |....ploop... LDA|
00000570  20 62 72 69 63 6b 2c 59  3a 2e 6e 65 77 20 53 54  | brick,Y:.new ST|
00000580  41 20 26 35 38 30 30 2c  59 0d 03 16 11 44 45 59  |A &5800,Y....DEY|
00000590  3a 42 50 4c 20 70 6c 6f  6f 70 0d 03 20 40 43 4c  |:BPL ploop.. @CL|
000005a0  43 3a 4c 44 41 20 6e 65  77 2b 31 3a 41 44 43 20  |C:LDA new+1:ADC |
000005b0  23 26 34 30 3a 53 54 41  20 6e 65 77 2b 31 3a 4c  |#&40:STA new+1:L|
000005c0  44 41 20 6e 65 77 2b 32  3a 41 44 43 20 23 26 31  |DA new+2:ADC #&1|
000005d0  3a 53 54 41 20 6e 65 77  2b 32 0d 03 2a 3a 4c 44  |:STA new+2..*:LD|
000005e0  41 20 70 6c 6f 6f 70 2b  31 3a 41 44 43 20 23 34  |A ploop+1:ADC #4|
000005f0  30 3a 53 54 41 20 70 6c  6f 6f 70 2b 31 3a 42 43  |0:STA ploop+1:BC|
00000600  43 20 70 31 3a 49 4e 43  20 70 6c 6f 6f 70 2b 32  |C p1:INC ploop+2|
00000610  3a 2e 70 31 0d 03 34 10  44 45 58 3a 42 4e 45 20  |:.p1..4.DEX:BNE |
00000620  6c 6f 6f 70 0d 03 3e 07  52 54 53 0d 03 48 05 20  |loop..>.RTS..H. |
00000630  0d 03 52 0a 2e 62 6c 61  6e 6b 0d 03 5c 0a 4c 44  |..R..blank..\.LD|
00000640  58 20 23 34 0d 03 66 09  2e 6c 6f 6f 70 0d 03 70  |X #4..f..loop..p|
00000650  0e 4c 44 59 20 23 35 2a  38 2d 31 0d 03 75 0a 4c  |.LDY #5*8-1..u.L|
00000660  44 41 20 23 30 0d 03 7a  0a 2e 62 6c 6f 6f 70 0d  |DA #0..z..bloop.|
00000670  03 84 0f 53 54 41 20 26  35 38 30 30 2c 59 0d 03  |...STA &5800,Y..|
00000680  8e 11 44 45 59 3a 42 50  4c 20 62 6c 6f 6f 70 0d  |..DEY:BPL bloop.|
00000690  03 98 48 43 4c 43 3a 4c  44 41 20 62 6c 6f 6f 70  |..HCLC:LDA bloop|
000006a0  2b 31 3a 41 44 43 20 23  26 34 30 3a 53 54 41 20  |+1:ADC #&40:STA |
000006b0  62 6c 6f 6f 70 2b 31 3a  4c 44 41 20 62 6c 6f 6f  |bloop+1:LDA bloo|
000006c0  70 2b 32 3a 41 44 43 20  23 26 31 3a 53 54 41 20  |p+2:ADC #&1:STA |
000006d0  62 6c 6f 6f 70 2b 32 0d  03 a2 10 44 45 58 3a 42  |bloop+2....DEX:B|
000006e0  4e 45 20 6c 6f 6f 70 0d  03 ac 07 52 54 53 0d 03  |NE loop....RTS..|
000006f0  b6 05 20 0d 03 c0 0a 2e  62 72 69 63 6b 0d 03 ca  |.. .....brick...|
00000700  0d 4f 50 54 20 a4 64 61  74 61 0d 03 d4 05 5d 0d  |.OPT .data....].|
00000710  03 de 05 ed 0d 03 e8 05  e1 0d 03 f2 05 20 0d 03  |............. ..|
00000720  fc 0b dd 20 a4 64 61 74  61 0d 04 06 05 f7 0d 04  |... .data.......|
00000730  10 17 e3 20 49 25 3d 30  20 b8 20 35 2a 33 32 2d  |... I%=0 . 5*32-|
00000740  31 20 88 20 34 0d 04 1a  08 f3 20 61 24 0d 04 24  |1 . 4..... a$..$|
00000750  0e 5b 20 4f 50 54 20 70  61 73 73 0d 04 2e 12 45  |.[ OPT pass....E|
00000760  51 55 44 20 a0 28 22 26  22 2b 61 24 29 0d 04 38  |QUD .("&"+a$)..8|
00000770  05 5d 0d 04 42 05 ed 0d  04 4c 09 3d 70 61 73 73  |.]..B....L.=pass|
00000780  0d 04 56 05 20 0d 04 60  0b f4 20 42 72 69 63 6b  |..V. ..`.. Brick|
00000790  0d 04 6a df dc 20 46 30  46 30 46 30 46 2c 46 30  |..j.. F0F0F0F,F0|
000007a0  30 46 30 46 30 46 2c 34  42 34 42 34 42 34 42 2c  |0F0F0F,4B4B4B4B,|
000007b0  46 30 34 42 34 42 34 42  2c 46 30 46 30 46 30 46  |F04B4B4B,F0F0F0F|
000007c0  2c 46 30 30 46 30 46 30  46 2c 34 42 34 42 34 42  |,F00F0F0F,4B4B4B|
000007d0  34 42 2c 46 30 34 42 34  42 34 42 2c 46 30 46 30  |4B,F04B4B4B,F0F0|
000007e0  46 30 46 2c 46 30 30 46  30 46 30 46 2c 32 44 32  |F0F,F00F0F0F,2D2|
000007f0  44 32 44 32 44 2c 46 30  32 44 32 44 32 44 2c 46  |D2D2D,F02D2D2D,F|
00000800  30 46 30 46 30 46 2c 46  30 30 46 30 46 30 46 2c  |0F0F0F,F00F0F0F,|
00000810  32 44 32 44 32 44 32 44  2c 46 30 32 44 32 44 32  |2D2D2D2D,F02D2D2|
00000820  44 2c 46 30 46 30 46 30  46 2c 46 30 30 46 30 46  |D,F0F0F0F,F00F0F|
00000830  30 46 2c 34 42 34 42 34  42 34 42 2c 46 30 34 42  |0F,4B4B4B4B,F04B|
00000840  34 42 34 42 2c 46 30 46  30 46 30 46 2c 46 30 30  |4B4B,F0F0F0F,F00|
00000850  46 30 46 30 46 2c 34 42  34 42 34 42 34 42 2c 46  |F0F0F,4B4B4B4B,F|
00000860  30 34 42 34 42 34 42 2c  46 30 46 30 46 30 46 0d  |04B4B4B,F0F0F0F.|
00000870  04 74 89 dc 20 46 30 30  46 30 46 30 46 2c 34 42  |.t.. F00F0F0F,4B|
00000880  34 42 34 42 34 42 2c 46  30 34 42 34 42 34 42 2c  |4B4B4B,F04B4B4B,|
00000890  46 30 46 30 46 30 46 2c  46 30 30 46 30 46 30 46  |F0F0F0F,F00F0F0F|
000008a0  2c 32 44 32 44 32 44 32  44 2c 46 30 32 44 32 44  |,2D2D2D2D,F02D2D|
000008b0  32 44 2c 46 30 46 30 46  30 46 2c 46 30 30 46 30  |2D,F0F0F0F,F00F0|
000008c0  46 30 46 2c 32 44 32 44  32 44 32 44 2c 46 30 32  |F0F,2D2D2D2D,F02|
000008d0  44 32 44 32 44 2c 46 30  46 30 46 30 46 2c 46 30  |D2D2D,F0F0F0F,F0|
000008e0  30 46 30 46 30 46 2c 34  42 34 42 34 42 34 42 2c  |0F0F0F,4B4B4B4B,|
000008f0  46 30 34 42 34 42 34 42  0d ff                    |F04B4B4B..|
000008fa
4_PROG1.m0
4_PROG1.m1
4_PROG1.m2
4_PROG1.m4
4_PROG1.m5

© Dominic Ford 2021–2024.

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