� BASIC > ROM IMAGE
� (c) 1988 A&B COMPUTING
�4
(	�init
2�cls
<
�title
F�window(2,12,35,15)
P%�'"Basic program filename:"Fname$
Z� �(Fname$)>9 � �DP@
d+Action$="L. "+Fname$+" 3700":�(Action$)
nzparam=&C00:file=&C20:$file=Fname$+�13:param?0=file � 256:param?1=file � 256:A%=5:X%=param � 256:Y%=param � 256:� &FFDD
x� &FFDD
�exec=param?6+256*param?7
�L%=param?10+256*param?11
�R� exec<>&8023 � exec<>&801F �''"Sorry, not a BASIC program. Try again."':�DP@
�>�:� GR(4):�=&3500:�'"  BASIC program length:&";~L%:*FX15,0
�L%=L%+&100
�J�''"Enter desired load address: &"bB$:llA%=�("&"+bB$):lA%=llA% � 256  
�!�"Eprom title (Max.20) :"T$  
�T$=�T$,20):TL%=�(T$)
�!�"Author's name (Max.15) :"C$
�C$=�C$,15):CL%=�(C$)
�)�"Activation command (Max.10): *"COM$
�COM$=�COM$,10):COM%=�(COM$)
�� X%=0 � 2 � 2

P%=&3500

[OPT X%

BRK

"BRK

,BRK

6JMP&8030

@]

J?P%=&82

TP%=P%+1

^?P%=(9+TL%)

hP%=P%+1

r
?P%=00

|P%=P%+1

�
$P%=T$

�
P%=P%+TL%

�
?P%=00

�P%=P%+1

�?P%=&28

�P%=P%+1

�?P%=&43

�P%=P%+1

�?P%=&29

�P%=P%+1

�$P%=C$ 

�
P%=P%+CL%

�P%=&3530
[OPT X%
CMP #&04

BEQ ASEPT
&RTS
0.FINISH
:PLA
DTAX
NPLA
XTAY
bPLA
lRTS
vRTS
�
.ASEPT
�PHA
�TYA
�PHA
�TXA
�PHA
�]
�R%=P%+3
�� H%=1 � COM%
�[OPT X%
�LDA (&F2),Y
�CMP #&00
�BNE FINISH
INY
]
� H%
  [OPT X%
*LDA (&F2),Y
4CMP #&0D
>BNE FINISH
H
LDA #lA% 
RSTA &71
\LDA #&82
fSTA &73
pLDA #&00
zSTA &70
�STA &72
�LDY #&FF
�
.MAINLOOP
�]
�	S%=P%
�[OPT X%
�LDA &73
�CMP #&00
�BEQ LASTLOOP
�INY
�LDA (&72),Y
�STA (&70),Y
�CPY #&FF
BNE MAINLOOP
INC &71
INC &73
$CLC
.BCC MAINLOOP
8
.LASTLOOP
BINY
LCPY #&00
VBEQ DONE
`LDA (&72),Y
jSTA (&70),Y
tCLC
~BCC LASTLOOP
�	.DONE
�LDX #&00
�LDA #&8A
�LDY #&50
�
JSR &FFF4
�LDY #&41
�
JSR &FFF4
�LDY #&2E
�
JSR &FFF4
�LDY #&3D
�
JSR &FFF4
�LDY #&26

JSR &FFF4

]
� �(bB$)=3 � bB$="0"+bB$
� GY=1 � 4
(GR(GY)=�(�bB$,GY,1))
2� GY
<[OPT X%
FLDY #GR(1)
P
JSR &FFF4
ZLDY #GR(2)
d
JSR &FFF4
nLDY #GR(3)
x
JSR &FFF4
�LDY #GR(4)
�
JSR &FFF4
�LDY #&D
�
JSR &FFF4
�LDY #&4F
�
JSR &FFF4
�LDY #&4C
�
JSR &FFF4
�LDY #&44
�
JSR &FFF4
�LDY #&0D
�
JSR &FFF4
�LDY #&52

JSR &FFF4
LDY #&55

JSR &FFF4
"LDY #&4E
,
JSR &FFF4
6LDY #&0D
@
JSR &FFF4
JPLA
TTAX
^PLA
hTAY
rPLA
|LDA #&00
�RTS
�]
�� X%
�� X%=1 � COM%
�?R%=�(�COM$,X%,1))
�R%=R%+7
�� X%
�PLH%=(L% � 256)+&82
�PLL%=(L% � 256)
�
S%?3=PLH%
�S%?24=PLL%
��'"The ROM image is now located in memory at &4000 to &";~((&4200+L%)-1);". It can be"'"either loaded in sideways RAM or Blown int an EPROM (with appropriate hardware and software)."
��'"Save to Disc (Y/N) ?";
G$=�
�;G$
� G$="Y" � G$="y" � � �TpG
&�=&1900:�'':*BASIC
0�''"Enter Filename: "File$
:� �(File$)>9 � �TpG
D#� (&200+L%)<&4000 � Len$="4000"
N#� (&200+L%)<&2000 � Len$="2000"
X#� (&200+L%)<&1000 � Len$="1000"
b!� (&200+L%)<&400 � Len$="400"
l5Action$="*SAVE "+File$+" 3500+"+Len$+" D9CD 8000"
v�'" ";Action$
��(Action$) 
��
� 
�
� �cls
��26
�� I%=1 � 5
�� �248,�224);
��
�� 0,28:� 0,1023
�� 1278,1023:� 1278,28
�
� 0,28
��
�� �init
(� 23,224,85,170,85,170,85,170,85,170

� 129:� 0
�
 � �window(X%,Y%,W%,H%)
*!�28,X%+1,Y%+1+H%,X%+1+W%,Y%+1
4� 128:�
>�28,X%,Y%+H%,X%+W%,Y%
H
�129:�
R�28 X%+1,Y%+H%,X%+W%,Y%+1 
\�
f� �title
p�window(4,2,30,6) 
z#�"ROM IMAGE CREATER V2.02 1991"
�%�:�"UPGRADED BY BOB (c) A&B 1988"
��
�

00000000  0d 00 0a 17 f4 20 42 41  53 49 43 20 3e 20 52 4f  |..... BASIC > RO|
00000010  4d 20 49 4d 41 47 45 0d  00 14 1c f4 20 28 63 29  |M IMAGE..... (c)|
00000020  20 31 39 38 38 20 41 26  42 20 43 4f 4d 50 55 54  | 1988 A&B COMPUT|
00000030  49 4e 47 0d 00 1e 06 eb  34 0d 00 28 09 f2 69 6e  |ING.....4..(..in|
00000040  69 74 0d 00 32 08 f2 63  6c 73 0d 00 3c 0a f2 74  |it..2..cls..<..t|
00000050  69 74 6c 65 0d 00 46 17  f2 77 69 6e 64 6f 77 28  |itle..F..window(|
00000060  32 2c 31 32 2c 33 35 2c  31 35 29 0d 00 50 25 e8  |2,12,35,15)..P%.|
00000070  27 22 42 61 73 69 63 20  70 72 6f 67 72 61 6d 20  |'"Basic program |
00000080  66 69 6c 65 6e 61 6d 65  3a 22 46 6e 61 6d 65 24  |filename:"Fname$|
00000090  0d 00 5a 18 e7 20 a9 28  46 6e 61 6d 65 24 29 3e  |..Z.. .(Fname$)>|
000000a0  39 20 e5 20 8d 44 50 40  0d 00 64 2b 41 63 74 69  |9 . .DP@..d+Acti|
000000b0  6f 6e 24 3d 22 4c 2e 20  22 2b 46 6e 61 6d 65 24  |on$="L. "+Fname$|
000000c0  2b 22 20 33 37 30 30 22  3a ff 28 41 63 74 69 6f  |+" 3700":.(Actio|
000000d0  6e 24 29 0d 00 6e 7a 70  61 72 61 6d 3d 26 43 30  |n$)..nzparam=&C0|
000000e0  30 3a 66 69 6c 65 3d 26  43 32 30 3a 24 66 69 6c  |0:file=&C20:$fil|
000000f0  65 3d 46 6e 61 6d 65 24  2b bd 31 33 3a 70 61 72  |e=Fname$+.13:par|
00000100  61 6d 3f 30 3d 66 69 6c  65 20 83 20 32 35 36 3a  |am?0=file . 256:|
00000110  70 61 72 61 6d 3f 31 3d  66 69 6c 65 20 81 20 32  |param?1=file . 2|
00000120  35 36 3a 41 25 3d 35 3a  58 25 3d 70 61 72 61 6d  |56:A%=5:X%=param|
00000130  20 83 20 32 35 36 3a 59  25 3d 70 61 72 61 6d 20  | . 256:Y%=param |
00000140  81 20 32 35 36 3a d6 20  26 46 46 44 44 0d 00 78  |. 256:. &FFDD..x|
00000150  0b d6 20 26 46 46 44 44  0d 00 82 1c 65 78 65 63  |.. &FFDD....exec|
00000160  3d 70 61 72 61 6d 3f 36  2b 32 35 36 2a 70 61 72  |=param?6+256*par|
00000170  61 6d 3f 37 0d 00 8c 1c  4c 25 3d 70 61 72 61 6d  |am?7....L%=param|
00000180  3f 31 30 2b 32 35 36 2a  70 61 72 61 6d 3f 31 31  |?10+256*param?11|
00000190  0d 00 96 52 e7 20 65 78  65 63 3c 3e 26 38 30 32  |...R. exec<>&802|
000001a0  33 20 80 20 65 78 65 63  3c 3e 26 38 30 31 46 20  |3 . exec<>&801F |
000001b0  f1 27 27 22 53 6f 72 72  79 2c 20 6e 6f 74 20 61  |.''"Sorry, not a|
000001c0  20 42 41 53 49 43 20 70  72 6f 67 72 61 6d 2e 20  | BASIC program. |
000001d0  54 72 79 20 61 67 61 69  6e 2e 22 27 3a e5 8d 44  |Try again."':..D|
000001e0  50 40 0d 00 a0 3e db 3a  de 20 47 52 28 34 29 3a  |P@...>.:. GR(4):|
000001f0  d3 3d 26 33 35 30 30 3a  f1 27 22 20 20 42 41 53  |.=&3500:.'"  BAS|
00000200  49 43 20 70 72 6f 67 72  61 6d 20 6c 65 6e 67 74  |IC program lengt|
00000210  68 3a 26 22 3b 7e 4c 25  3a 2a 46 58 31 35 2c 30  |h:&";~L%:*FX15,0|
00000220  0d 00 aa 0e 4c 25 3d 4c  25 2b 26 31 30 30 0d 00  |....L%=L%+&100..|
00000230  b4 4a e8 27 27 22 45 6e  74 65 72 20 64 65 73 69  |.J.''"Enter desi|
00000240  72 65 64 20 6c 6f 61 64  20 61 64 64 72 65 73 73  |red load address|
00000250  3a 20 26 22 62 42 24 3a  6c 6c 41 25 3d a0 28 22  |: &"bB$:llA%=.("|
00000260  26 22 2b 62 42 24 29 3a  6c 41 25 3d 6c 6c 41 25  |&"+bB$):lA%=llA%|
00000270  20 81 20 32 35 36 20 20  0d 00 be 21 e8 22 45 70  | . 256  ...!."Ep|
00000280  72 6f 6d 20 74 69 74 6c  65 20 28 4d 61 78 2e 32  |rom title (Max.2|
00000290  30 29 20 3a 22 54 24 20  20 0d 00 c8 18 54 24 3d  |0) :"T$  ....T$=|
000002a0  c0 54 24 2c 32 30 29 3a  54 4c 25 3d a9 28 54 24  |.T$,20):TL%=.(T$|
000002b0  29 0d 00 d2 21 e8 22 41  75 74 68 6f 72 27 73 20  |)...!."Author's |
000002c0  6e 61 6d 65 20 28 4d 61  78 2e 31 35 29 20 3a 22  |name (Max.15) :"|
000002d0  43 24 0d 00 dc 18 43 24  3d c0 43 24 2c 31 35 29  |C$....C$=.C$,15)|
000002e0  3a 43 4c 25 3d a9 28 43  24 29 0d 00 e6 29 e8 22  |:CL%=.(C$)...)."|
000002f0  41 63 74 69 76 61 74 69  6f 6e 20 63 6f 6d 6d 61  |Activation comma|
00000300  6e 64 20 28 4d 61 78 2e  31 30 29 3a 20 2a 22 43  |nd (Max.10): *"C|
00000310  4f 4d 24 0d 00 f0 1f 43  4f 4d 24 3d c0 43 4f 4d  |OM$....COM$=.COM|
00000320  24 2c 31 30 29 3a 43 4f  4d 25 3d a9 28 43 4f 4d  |$,10):COM%=.(COM|
00000330  24 29 0d 00 fa 12 e3 20  58 25 3d 30 20 b8 20 32  |$)..... X%=0 . 2|
00000340  20 88 20 32 0d 01 04 0c  50 25 3d 26 33 35 30 30  | . 2....P%=&3500|
00000350  0d 01 0e 0b 5b 4f 50 54  20 58 25 0d 01 18 07 42  |....[OPT X%....B|
00000360  52 4b 0d 01 22 07 42 52  4b 0d 01 2c 07 42 52 4b  |RK..".BRK..,.BRK|
00000370  0d 01 36 0c 4a 4d 50 26  38 30 33 30 0d 01 40 05  |..6.JMP&8030..@.|
00000380  5d 0d 01 4a 0b 3f 50 25  3d 26 38 32 0d 01 54 0b  |]..J.?P%=&82..T.|
00000390  50 25 3d 50 25 2b 31 0d  01 5e 0f 3f 50 25 3d 28  |P%=P%+1..^.?P%=(|
000003a0  39 2b 54 4c 25 29 0d 01  68 0b 50 25 3d 50 25 2b  |9+TL%)..h.P%=P%+|
000003b0  31 0d 01 72 0a 3f 50 25  3d 30 30 0d 01 7c 0b 50  |1..r.?P%=00..|.P|
000003c0  25 3d 50 25 2b 31 0d 01  86 0a 24 50 25 3d 54 24  |%=P%+1....$P%=T$|
000003d0  0d 01 90 0d 50 25 3d 50  25 2b 54 4c 25 0d 01 9a  |....P%=P%+TL%...|
000003e0  0a 3f 50 25 3d 30 30 0d  01 a4 0b 50 25 3d 50 25  |.?P%=00....P%=P%|
000003f0  2b 31 0d 01 ae 0b 3f 50  25 3d 26 32 38 0d 01 b8  |+1....?P%=&28...|
00000400  0b 50 25 3d 50 25 2b 31  0d 01 c2 0b 3f 50 25 3d  |.P%=P%+1....?P%=|
00000410  26 34 33 0d 01 cc 0b 50  25 3d 50 25 2b 31 0d 01  |&43....P%=P%+1..|
00000420  d6 0b 3f 50 25 3d 26 32  39 0d 01 e0 0b 50 25 3d  |..?P%=&29....P%=|
00000430  50 25 2b 31 0d 01 ea 0b  24 50 25 3d 43 24 20 0d  |P%+1....$P%=C$ .|
00000440  01 f4 0d 50 25 3d 50 25  2b 43 4c 25 0d 01 fe 0c  |...P%=P%+CL%....|
00000450  50 25 3d 26 33 35 33 30  0d 02 08 0b 5b 4f 50 54  |P%=&3530....[OPT|
00000460  20 58 25 0d 02 12 0c 43  4d 50 20 23 26 30 34 0d  | X%....CMP #&04.|
00000470  02 1c 0d 42 45 51 20 41  53 45 50 54 0d 02 26 07  |...BEQ ASEPT..&.|
00000480  52 54 53 0d 02 30 0b 2e  46 49 4e 49 53 48 0d 02  |RTS..0..FINISH..|
00000490  3a 07 50 4c 41 0d 02 44  07 54 41 58 0d 02 4e 07  |:.PLA..D.TAX..N.|
000004a0  50 4c 41 0d 02 58 07 54  41 59 0d 02 62 07 50 4c  |PLA..X.TAY..b.PL|
000004b0  41 0d 02 6c 07 52 54 53  0d 02 76 07 52 54 53 0d  |A..l.RTS..v.RTS.|
000004c0  02 80 0a 2e 41 53 45 50  54 0d 02 8a 07 50 48 41  |....ASEPT....PHA|
000004d0  0d 02 94 07 54 59 41 0d  02 9e 07 50 48 41 0d 02  |....TYA....PHA..|
000004e0  a8 07 54 58 41 0d 02 b2  07 50 48 41 0d 02 bc 05  |..TXA....PHA....|
000004f0  5d 0d 02 c6 0b 52 25 3d  50 25 2b 33 0d 02 d0 11  |]....R%=P%+3....|
00000500  e3 20 48 25 3d 31 20 b8  20 43 4f 4d 25 0d 02 da  |. H%=1 . COM%...|
00000510  0b 5b 4f 50 54 20 58 25  0d 02 e4 0f 4c 44 41 20  |.[OPT X%....LDA |
00000520  28 26 46 32 29 2c 59 0d  02 ee 0c 43 4d 50 20 23  |(&F2),Y....CMP #|
00000530  26 30 30 0d 02 f8 0e 42  4e 45 20 46 49 4e 49 53  |&00....BNE FINIS|
00000540  48 0d 03 02 07 49 4e 59  0d 03 0c 05 5d 0d 03 16  |H....INY....]...|
00000550  08 ed 20 48 25 0d 03 20  0c 20 5b 4f 50 54 20 58  |.. H%.. . [OPT X|
00000560  25 0d 03 2a 0f 4c 44 41  20 28 26 46 32 29 2c 59  |%..*.LDA (&F2),Y|
00000570  0d 03 34 0c 43 4d 50 20  23 26 30 44 0d 03 3e 0e  |..4.CMP #&0D..>.|
00000580  42 4e 45 20 46 49 4e 49  53 48 0d 03 48 0d 4c 44  |BNE FINISH..H.LD|
00000590  41 20 23 6c 41 25 20 0d  03 52 0b 53 54 41 20 26  |A #lA% ..R.STA &|
000005a0  37 31 0d 03 5c 0c 4c 44  41 20 23 26 38 32 0d 03  |71..\.LDA #&82..|
000005b0  66 0b 53 54 41 20 26 37  33 0d 03 70 0c 4c 44 41  |f.STA &73..p.LDA|
000005c0  20 23 26 30 30 0d 03 7a  0b 53 54 41 20 26 37 30  | #&00..z.STA &70|
000005d0  0d 03 84 0b 53 54 41 20  26 37 32 0d 03 8e 0c 4c  |....STA &72....L|
000005e0  44 59 20 23 26 46 46 0d  03 98 0d 2e 4d 41 49 4e  |DY #&FF.....MAIN|
000005f0  4c 4f 4f 50 0d 03 a2 05  5d 0d 03 ac 09 53 25 3d  |LOOP....]....S%=|
00000600  50 25 0d 03 b6 0b 5b 4f  50 54 20 58 25 0d 03 c0  |P%....[OPT X%...|
00000610  0b 4c 44 41 20 26 37 33  0d 03 ca 0c 43 4d 50 20  |.LDA &73....CMP |
00000620  23 26 30 30 0d 03 d4 10  42 45 51 20 4c 41 53 54  |#&00....BEQ LAST|
00000630  4c 4f 4f 50 0d 03 de 07  49 4e 59 0d 03 e8 0f 4c  |LOOP....INY....L|
00000640  44 41 20 28 26 37 32 29  2c 59 0d 03 f2 0f 53 54  |DA (&72),Y....ST|
00000650  41 20 28 26 37 30 29 2c  59 0d 03 fc 0c 43 50 59  |A (&70),Y....CPY|
00000660  20 23 26 46 46 0d 04 06  10 42 4e 45 20 4d 41 49  | #&FF....BNE MAI|
00000670  4e 4c 4f 4f 50 0d 04 10  0b 49 4e 43 20 26 37 31  |NLOOP....INC &71|
00000680  0d 04 1a 0b 49 4e 43 20  26 37 33 0d 04 24 07 43  |....INC &73..$.C|
00000690  4c 43 0d 04 2e 10 42 43  43 20 4d 41 49 4e 4c 4f  |LC....BCC MAINLO|
000006a0  4f 50 0d 04 38 0d 2e 4c  41 53 54 4c 4f 4f 50 0d  |OP..8..LASTLOOP.|
000006b0  04 42 07 49 4e 59 0d 04  4c 0c 43 50 59 20 23 26  |.B.INY..L.CPY #&|
000006c0  30 30 0d 04 56 0c 42 45  51 20 44 4f 4e 45 0d 04  |00..V.BEQ DONE..|
000006d0  60 0f 4c 44 41 20 28 26  37 32 29 2c 59 0d 04 6a  |`.LDA (&72),Y..j|
000006e0  0f 53 54 41 20 28 26 37  30 29 2c 59 0d 04 74 07  |.STA (&70),Y..t.|
000006f0  43 4c 43 0d 04 7e 10 42  43 43 20 4c 41 53 54 4c  |CLC..~.BCC LASTL|
00000700  4f 4f 50 0d 04 88 09 2e  44 4f 4e 45 0d 04 92 0c  |OOP.....DONE....|
00000710  4c 44 58 20 23 26 30 30  0d 04 9c 0c 4c 44 41 20  |LDX #&00....LDA |
00000720  23 26 38 41 0d 04 a6 0c  4c 44 59 20 23 26 35 30  |#&8A....LDY #&50|
00000730  0d 04 b0 0d 4a 53 52 20  26 46 46 46 34 0d 04 ba  |....JSR &FFF4...|
00000740  0c 4c 44 59 20 23 26 34  31 0d 04 c4 0d 4a 53 52  |.LDY #&41....JSR|
00000750  20 26 46 46 46 34 0d 04  ce 0c 4c 44 59 20 23 26  | &FFF4....LDY #&|
00000760  32 45 0d 04 d8 0d 4a 53  52 20 26 46 46 46 34 0d  |2E....JSR &FFF4.|
00000770  04 e2 0c 4c 44 59 20 23  26 33 44 0d 04 ec 0d 4a  |...LDY #&3D....J|
00000780  53 52 20 26 46 46 46 34  0d 04 f6 0c 4c 44 59 20  |SR &FFF4....LDY |
00000790  23 26 32 36 0d 05 00 0d  4a 53 52 20 26 46 46 46  |#&26....JSR &FFF|
000007a0  34 0d 05 0a 05 5d 0d 05  14 1c e7 20 a9 28 62 42  |4....]..... .(bB|
000007b0  24 29 3d 33 20 8c 20 62  42 24 3d 22 30 22 2b 62  |$)=3 . bB$="0"+b|
000007c0  42 24 0d 05 1e 0e e3 20  47 59 3d 31 20 b8 20 34  |B$..... GY=1 . 4|
000007d0  0d 05 28 18 47 52 28 47  59 29 3d 97 28 c1 62 42  |..(.GR(GY)=.(.bB|
000007e0  24 2c 47 59 2c 31 29 29  0d 05 32 08 ed 20 47 59  |$,GY,1))..2.. GY|
000007f0  0d 05 3c 0b 5b 4f 50 54  20 58 25 0d 05 46 0e 4c  |..<.[OPT X%..F.L|
00000800  44 59 20 23 47 52 28 31  29 0d 05 50 0d 4a 53 52  |DY #GR(1)..P.JSR|
00000810  20 26 46 46 46 34 0d 05  5a 0e 4c 44 59 20 23 47  | &FFF4..Z.LDY #G|
00000820  52 28 32 29 0d 05 64 0d  4a 53 52 20 26 46 46 46  |R(2)..d.JSR &FFF|
00000830  34 0d 05 6e 0e 4c 44 59  20 23 47 52 28 33 29 0d  |4..n.LDY #GR(3).|
00000840  05 78 0d 4a 53 52 20 26  46 46 46 34 0d 05 82 0e  |.x.JSR &FFF4....|
00000850  4c 44 59 20 23 47 52 28  34 29 0d 05 8c 0d 4a 53  |LDY #GR(4)....JS|
00000860  52 20 26 46 46 46 34 0d  05 96 0b 4c 44 59 20 23  |R &FFF4....LDY #|
00000870  26 44 0d 05 a0 0d 4a 53  52 20 26 46 46 46 34 0d  |&D....JSR &FFF4.|
00000880  05 aa 0c 4c 44 59 20 23  26 34 46 0d 05 b4 0d 4a  |...LDY #&4F....J|
00000890  53 52 20 26 46 46 46 34  0d 05 be 0c 4c 44 59 20  |SR &FFF4....LDY |
000008a0  23 26 34 43 0d 05 c8 0d  4a 53 52 20 26 46 46 46  |#&4C....JSR &FFF|
000008b0  34 0d 05 d2 0c 4c 44 59  20 23 26 34 34 0d 05 dc  |4....LDY #&44...|
000008c0  0d 4a 53 52 20 26 46 46  46 34 0d 05 e6 0c 4c 44  |.JSR &FFF4....LD|
000008d0  59 20 23 26 30 44 0d 05  f0 0d 4a 53 52 20 26 46  |Y #&0D....JSR &F|
000008e0  46 46 34 0d 05 fa 0c 4c  44 59 20 23 26 35 32 0d  |FF4....LDY #&52.|
000008f0  06 04 0d 4a 53 52 20 26  46 46 46 34 0d 06 0e 0c  |...JSR &FFF4....|
00000900  4c 44 59 20 23 26 35 35  0d 06 18 0d 4a 53 52 20  |LDY #&55....JSR |
00000910  26 46 46 46 34 0d 06 22  0c 4c 44 59 20 23 26 34  |&FFF4..".LDY #&4|
00000920  45 0d 06 2c 0d 4a 53 52  20 26 46 46 46 34 0d 06  |E..,.JSR &FFF4..|
00000930  36 0c 4c 44 59 20 23 26  30 44 0d 06 40 0d 4a 53  |6.LDY #&0D..@.JS|
00000940  52 20 26 46 46 46 34 0d  06 4a 07 50 4c 41 0d 06  |R &FFF4..J.PLA..|
00000950  54 07 54 41 58 0d 06 5e  07 50 4c 41 0d 06 68 07  |T.TAX..^.PLA..h.|
00000960  54 41 59 0d 06 72 07 50  4c 41 0d 06 7c 0c 4c 44  |TAY..r.PLA..|.LD|
00000970  41 20 23 26 30 30 0d 06  86 07 52 54 53 0d 06 90  |A #&00....RTS...|
00000980  05 5d 0d 06 9a 08 ed 20  58 25 0d 06 a4 11 e3 20  |.]..... X%..... |
00000990  58 25 3d 31 20 b8 20 43  4f 4d 25 0d 06 ae 16 3f  |X%=1 . COM%....?|
000009a0  52 25 3d 97 28 c1 43 4f  4d 24 2c 58 25 2c 31 29  |R%=.(.COM$,X%,1)|
000009b0  29 0d 06 b8 0b 52 25 3d  52 25 2b 37 0d 06 c2 08  |)....R%=R%+7....|
000009c0  ed 20 58 25 0d 06 cc 17  50 4c 48 25 3d 28 4c 25  |. X%....PLH%=(L%|
000009d0  20 81 20 32 35 36 29 2b  26 38 32 0d 06 d6 13 50  | . 256)+&82....P|
000009e0  4c 4c 25 3d 28 4c 25 20  83 20 32 35 36 29 0d 06  |LL%=(L% . 256)..|
000009f0  e0 0d 53 25 3f 33 3d 50  4c 48 25 0d 06 ea 0e 53  |..S%?3=PLH%....S|
00000a00  25 3f 32 34 3d 50 4c 4c  25 0d 06 f4 ba f1 27 22  |%?24=PLL%.....'"|
00000a10  54 68 65 20 52 4f 4d 20  69 6d 61 67 65 20 69 73  |The ROM image is|
00000a20  20 6e 6f 77 20 6c 6f 63  61 74 65 64 20 69 6e 20  | now located in |
00000a30  6d 65 6d 6f 72 79 20 61  74 20 26 34 30 30 30 20  |memory at &4000 |
00000a40  74 6f 20 26 22 3b 7e 28  28 26 34 32 30 30 2b 4c  |to &";~((&4200+L|
00000a50  25 29 2d 31 29 3b 22 2e  20 49 74 20 63 61 6e 20  |%)-1);". It can |
00000a60  62 65 22 27 22 65 69 74  68 65 72 20 6c 6f 61 64  |be"'"either load|
00000a70  65 64 20 69 6e 20 73 69  64 65 77 61 79 73 20 52  |ed in sideways R|
00000a80  41 4d 20 6f 72 20 42 6c  6f 77 6e 20 69 6e 74 20  |AM or Blown int |
00000a90  61 6e 20 45 50 52 4f 4d  20 28 77 69 74 68 20 61  |an EPROM (with a|
00000aa0  70 70 72 6f 70 72 69 61  74 65 20 68 61 72 64 77  |ppropriate hardw|
00000ab0  61 72 65 20 61 6e 64 20  73 6f 66 74 77 61 72 65  |are and software|
00000ac0  29 2e 22 0d 06 fe 1d f1  27 22 53 61 76 65 20 74  |).".....'"Save t|
00000ad0  6f 20 44 69 73 63 20 28  59 2f 4e 29 20 3f 22 3b  |o Disc (Y/N) ?";|
00000ae0  0d 07 08 08 47 24 3d be  0d 07 12 08 f1 3b 47 24  |....G$=......;G$|
00000af0  0d 07 1c 1e e7 20 47 24  3d 22 59 22 20 84 20 47  |..... G$="Y" . G|
00000b00  24 3d 22 79 22 20 8c 20  e5 20 8d 54 70 47 0d 07  |$="y" . . .TpG..|
00000b10  26 16 d0 3d 26 31 39 30  30 3a f1 27 27 3a 2a 42  |&..=&1900:.'':*B|
00000b20  41 53 49 43 0d 07 30 1e  e8 27 27 22 45 6e 74 65  |ASIC..0..''"Ente|
00000b30  72 20 46 69 6c 65 6e 61  6d 65 3a 20 22 46 69 6c  |r Filename: "Fil|
00000b40  65 24 0d 07 3a 17 e7 20  a9 28 46 69 6c 65 24 29  |e$..:.. .(File$)|
00000b50  3e 39 20 8c 20 8d 54 70  47 0d 07 44 23 e7 20 28  |>9 . .TpG..D#. (|
00000b60  26 32 30 30 2b 4c 25 29  3c 26 34 30 30 30 20 8c  |&200+L%)<&4000 .|
00000b70  20 4c 65 6e 24 3d 22 34  30 30 30 22 0d 07 4e 23  | Len$="4000"..N#|
00000b80  e7 20 28 26 32 30 30 2b  4c 25 29 3c 26 32 30 30  |. (&200+L%)<&200|
00000b90  30 20 8c 20 4c 65 6e 24  3d 22 32 30 30 30 22 0d  |0 . Len$="2000".|
00000ba0  07 58 23 e7 20 28 26 32  30 30 2b 4c 25 29 3c 26  |.X#. (&200+L%)<&|
00000bb0  31 30 30 30 20 8c 20 4c  65 6e 24 3d 22 31 30 30  |1000 . Len$="100|
00000bc0  30 22 0d 07 62 21 e7 20  28 26 32 30 30 2b 4c 25  |0"..b!. (&200+L%|
00000bd0  29 3c 26 34 30 30 20 8c  20 4c 65 6e 24 3d 22 34  |)<&400 . Len$="4|
00000be0  30 30 22 0d 07 6c 35 41  63 74 69 6f 6e 24 3d 22  |00"..l5Action$="|
00000bf0  2a 53 41 56 45 20 22 2b  46 69 6c 65 24 2b 22 20  |*SAVE "+File$+" |
00000c00  33 35 30 30 2b 22 2b 4c  65 6e 24 2b 22 20 44 39  |3500+"+Len$+" D9|
00000c10  43 44 20 38 30 30 30 22  0d 07 76 11 f1 27 22 20  |CD 8000"..v..'" |
00000c20  22 3b 41 63 74 69 6f 6e  24 0d 07 80 0f ff 28 41  |";Action$.....(A|
00000c30  63 74 69 6f 6e 24 29 20  0d 07 8a 05 e0 0d 07 94  |ction$) ........|
00000c40  05 20 0d 07 9e 0a dd 20  f2 63 6c 73 0d 07 a8 07  |. ..... .cls....|
00000c50  ef 32 36 0d 07 b2 0e e3  20 49 25 3d 31 20 b8 20  |.26..... I%=1 . |
00000c60  35 0d 07 bc 11 f1 20 c4  32 34 38 2c bd 32 32 34  |5..... .248,.224|
00000c70  29 3b 0d 07 c6 05 ed 0d  07 d0 13 ec 20 30 2c 32  |);.......... 0,2|
00000c80  38 3a df 20 30 2c 31 30  32 33 0d 07 da 19 df 20  |8:. 0,1023..... |
00000c90  31 32 37 38 2c 31 30 32  33 3a df 20 31 32 37 38  |1278,1023:. 1278|
00000ca0  2c 32 38 0d 07 e4 0a df  20 30 2c 32 38 0d 07 ee  |,28..... 0,28...|
00000cb0  05 e1 0d 07 f8 0b dd 20  f2 69 6e 69 74 0d 08 02  |....... .init...|
00000cc0  28 ef 20 32 33 2c 32 32  34 2c 38 35 2c 31 37 30  |(. 23,224,85,170|
00000cd0  2c 38 35 2c 31 37 30 2c  38 35 2c 31 37 30 2c 38  |,85,170,85,170,8|
00000ce0  35 2c 31 37 30 0d 08 0c  0d fb 20 31 32 39 3a fb  |5,170..... 129:.|
00000cf0  20 30 0d 08 16 05 e1 0d  08 20 1a dd 20 f2 77 69  | 0....... .. .wi|
00000d00  6e 64 6f 77 28 58 25 2c  59 25 2c 57 25 2c 48 25  |ndow(X%,Y%,W%,H%|
00000d10  29 0d 08 2a 21 ef 32 38  2c 58 25 2b 31 2c 59 25  |)..*!.28,X%+1,Y%|
00000d20  2b 31 2b 48 25 2c 58 25  2b 31 2b 57 25 2c 59 25  |+1+H%,X%+1+W%,Y%|
00000d30  2b 31 0d 08 34 0b fb 20  31 32 38 3a db 0d 08 3e  |+1..4.. 128:...>|
00000d40  19 ef 32 38 2c 58 25 2c  59 25 2b 48 25 2c 58 25  |..28,X%,Y%+H%,X%|
00000d50  2b 57 25 2c 59 25 0d 08  48 0a fb 31 32 39 3a db  |+W%,Y%..H..129:.|
00000d60  0d 08 52 1e ef 32 38 20  58 25 2b 31 2c 59 25 2b  |..R..28 X%+1,Y%+|
00000d70  48 25 2c 58 25 2b 57 25  2c 59 25 2b 31 20 0d 08  |H%,X%+W%,Y%+1 ..|
00000d80  5c 05 e1 0d 08 66 0c dd  20 f2 74 69 74 6c 65 0d  |\....f.. .title.|
00000d90  08 70 16 f2 77 69 6e 64  6f 77 28 34 2c 32 2c 33  |.p..window(4,2,3|
00000da0  30 2c 36 29 20 0d 08 7a  23 f1 22 52 4f 4d 20 49  |0,6) ..z#."ROM I|
00000db0  4d 41 47 45 20 43 52 45  41 54 45 52 20 56 32 2e  |MAGE CREATER V2.|
00000dc0  30 32 20 31 39 39 31 22  0d 08 84 25 f1 3a f1 22  |02 1991"...%.:."|
00000dd0  55 50 47 52 41 44 45 44  20 42 59 20 42 4f 42 20  |UPGRADED BY BOB |
00000de0  28 63 29 20 41 26 42 20  31 39 38 38 22 0d 08 8e  |(c) A&B 1988"...|
00000df0  05 e1 0d ff                                       |....|
00000df4