�: MODONE
�7
�=&3C00
(diff=&8000-�
2H%=�
<address=&70
Fromnumber=&F4
P
phrom=&F5
Zrompoint=&F6
dstack=&103
nosasci=&FFE3
xosnewl=&FFE7
�osbyte=&FFF4
�oscli=&FFF7
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�#OPT �equs("MODULAR ROM DESIGN")

.copyright

BRK

+OPT �equs("(C) Gordon Horsington 1987")

"BRK

,.service

6PHA

@CMP #13

JBNE fourteen

TTYA

^	� #&F

hCMP romnumber

rBCC out

|.A%

�)LDA #0 \ replace with LSB of RFS data

�STA rompoint

�.B%

�)LDA #0 \ replace with MSB of RFS data

�STA rompoint+1

�LDA romnumber

�	� #&F

�
STA phrom

�	.exit

�PLA

�
LDA #0

�RTS

�
.fourteen
CMP #14
BNE trythree

LDA phrom
&	� #&F
0CMP romnumber
:BNE out
D
LDY #0
NLDA (rompoint),Y
XTAY
bINC rompoint
lBNE exit
vINC rompoint+1
�JMP exit+diff
�.out
�PLA
�RTS
�
.trythree
�TXA
�PHA
�TYA
�PHA
�TSX
�LDA stack,X
�
CMP #3
�
BEQ three
)JMP lastbyte+diff \ continue in �ULE2

.three
LDA #&7A
 JSR osbyte
*CPX #&33 \ Is it R Break?
4BEQ rbreak
>PLA
HTAY
RPLA
\TAX
fPLA
pRTS
z.rbreak
�LDA #&C9
�
LDX #1
�
LDY #0
�!JSR osbyte \ Disable keyboard
�LDA #&0F
�
LDX #0
�"JSR osbyte \ Flush all buffers
�LDA address
�PHA
�LDA address+1
�PHA
�LDX #(rfs+diff) � 256
�LDY #(rfs+diff) � 256
JSR print+diff
LDX #(cat+diff) � 256
LDY #(cat+diff) � 256
$JSR print+diff
.LDA #&8D
8JSR osbyte \ Select RFS
BLDA #&8B
L
LDX #1
V
LDY #2
`JSR osbyte \ *OPT1,2
jLDX #(dot+diff) � 256
tLDY #(dot+diff) � 256
~JSR oscli \ Catalogue RFS
�LDA #&8B
�
LDX #0
�
LDY #0
�JSR osbyte \ *OPT 1,0
�JSR osnewl
�LDX #(rfs+diff) � 256
�LDY #(rfs+diff) � 256
�JSR print+diff
�LDX #(act+diff) � 256
�LDY #(act+diff) � 256
�JSR print+diff
�PLA
STA address+1

PLA
STA address
LDA #&C9
(
LDX #0
2
LDY #0
< JSR osbyte \ Enable keyboard
FPLA
PPLA
ZPLA
d
LDA #0
nRTS
x
.print
�.C%
�STX address
�STY address+1
�LDY #&FF
�.printloop
�INY
�LDA (address),Y
�BEQ endprint
�JSR osasci
�JMP printloop+diff
�
.endprint
�RTS
�.dot
OPT �equs("CAT")
OPT �equb(&0D)
.rfs
"#OPT �equs("ROM Filing System ")
,BRK
6.cat
@OPT �equs("Catalogue")
JOPT �equb(&0D)
TBRK
^.act
hOPT �equs("active")
rOPT �equw(&0D0D)
|BRK
�
.lastbyte
�]
��
�O%=lastbyte
�
�"MODTWO"
�ݤequb(byte)
�?P%=byte
�P%=P%+1
�	=pass
�ݤequw(word)
�?P%=word � 256
�P%?1=word � 256
�P%=P%+2
	=pass
ݤequd(double)
!P%=double
&P%=P%+4
0	=pass
:ݤequs(string$)
D$P%=string$
NP%=P%+�(string$)
X	=pass
�

00000000  0d 00 0a 0d f4 3a 20 4d  4f 44 4f 4e 45 0d 00 14  |.....: MODONE...|
00000010  06 eb 37 0d 00 1e 0b d3  3d 26 33 43 30 30 0d 00  |..7.....=&3C00..|
00000020  28 10 64 69 66 66 3d 26  38 30 30 30 2d 93 0d 00  |(.diff=&8000-...|
00000030  32 08 48 25 3d 93 0d 00  3c 0f 61 64 64 72 65 73  |2.H%=...<.addres|
00000040  73 3d 26 37 30 0d 00 46  11 72 6f 6d 6e 75 6d 62  |s=&70..F.romnumb|
00000050  65 72 3d 26 46 34 0d 00  50 0d 70 68 72 6f 6d 3d  |er=&F4..P.phrom=|
00000060  26 46 35 0d 00 5a 10 72  6f 6d 70 6f 69 6e 74 3d  |&F5..Z.rompoint=|
00000070  26 46 36 0d 00 64 0e 73  74 61 63 6b 3d 26 31 30  |&F6..d.stack=&10|
00000080  33 0d 00 6e 10 6f 73 61  73 63 69 3d 26 46 46 45  |3..n.osasci=&FFE|
00000090  33 0d 00 78 10 6f 73 6e  65 77 6c 3d 26 46 46 45  |3..x.osnewl=&FFE|
000000a0  37 0d 00 82 10 6f 73 62  79 74 65 3d 26 46 46 46  |7....osbyte=&FFF|
000000b0  34 0d 00 8c 0f 6f 73 63  6c 69 3d 26 46 46 46 37  |4....oscli=&FFF7|
000000c0  0d 00 96 16 e3 20 70 61  73 73 20 3d 20 30 20 b8  |..... pass = 0 .|
000000d0  20 32 20 88 20 32 0d 00  a0 08 50 25 3d 93 0d 00  | 2 . 2....P%=...|
000000e0  aa 0d 5b 4f 50 54 20 70  61 73 73 0d 00 b4 07 42  |..[OPT pass....B|
000000f0  52 4b 0d 00 be 07 42 52  4b 0d 00 c8 07 42 52 4b  |RK....BRK....BRK|
00000100  0d 00 d2 14 4a 4d 50 20  73 65 72 76 69 63 65 2b  |....JMP service+|
00000110  64 69 66 66 0d 00 dc 12  4f 50 54 20 a4 65 71 75  |diff....OPT .equ|
00000120  62 28 26 38 32 29 0d 00  e6 25 4f 50 54 20 a4 65  |b(&82)...%OPT .e|
00000130  71 75 62 28 28 63 6f 70  79 72 69 67 68 74 2b 64  |qub((copyright+d|
00000140  69 66 66 29 20 83 20 32  35 36 29 0d 00 f0 07 42  |iff) . 256)....B|
00000150  52 4b 0d 00 fa 23 4f 50  54 20 a4 65 71 75 73 28  |RK...#OPT .equs(|
00000160  22 4d 4f 44 55 4c 41 52  20 52 4f 4d 20 44 45 53  |"MODULAR ROM DES|
00000170  49 47 4e 22 29 0d 01 04  0e 2e 63 6f 70 79 72 69  |IGN").....copyri|
00000180  67 68 74 0d 01 0e 07 42  52 4b 0d 01 18 2b 4f 50  |ght....BRK...+OP|
00000190  54 20 a4 65 71 75 73 28  22 28 43 29 20 47 6f 72  |T .equs("(C) Gor|
000001a0  64 6f 6e 20 48 6f 72 73  69 6e 67 74 6f 6e 20 31  |don Horsington 1|
000001b0  39 38 37 22 29 0d 01 22  07 42 52 4b 0d 01 2c 0c  |987")..".BRK..,.|
000001c0  2e 73 65 72 76 69 63 65  0d 01 36 07 50 48 41 0d  |.service..6.PHA.|
000001d0  01 40 0b 43 4d 50 20 23  31 33 0d 01 4a 10 42 4e  |.@.CMP #13..J.BN|
000001e0  45 20 66 6f 75 72 74 65  65 6e 0d 01 54 07 54 59  |E fourteen..T.TY|
000001f0  41 0d 01 5e 09 82 20 23  26 46 0d 01 68 11 43 4d  |A..^.. #&F..h.CM|
00000200  50 20 72 6f 6d 6e 75 6d  62 65 72 0d 01 72 0b 42  |P romnumber..r.B|
00000210  43 43 20 6f 75 74 0d 01  7c 07 2e 41 25 0d 01 86  |CC out..|..A%...|
00000220  29 4c 44 41 20 23 30 20  5c 20 72 65 70 6c 61 63  |)LDA #0 \ replac|
00000230  65 20 77 69 74 68 20 4c  53 42 20 6f 66 20 52 46  |e with LSB of RF|
00000240  53 20 64 61 74 61 0d 01  90 10 53 54 41 20 72 6f  |S data....STA ro|
00000250  6d 70 6f 69 6e 74 0d 01  9a 07 2e 42 25 0d 01 a4  |mpoint.....B%...|
00000260  29 4c 44 41 20 23 30 20  5c 20 72 65 70 6c 61 63  |)LDA #0 \ replac|
00000270  65 20 77 69 74 68 20 4d  53 42 20 6f 66 20 52 46  |e with MSB of RF|
00000280  53 20 64 61 74 61 0d 01  ae 12 53 54 41 20 72 6f  |S data....STA ro|
00000290  6d 70 6f 69 6e 74 2b 31  0d 01 b8 11 4c 44 41 20  |mpoint+1....LDA |
000002a0  72 6f 6d 6e 75 6d 62 65  72 0d 01 c2 09 82 20 23  |romnumber..... #|
000002b0  26 46 0d 01 cc 0d 53 54  41 20 70 68 72 6f 6d 0d  |&F....STA phrom.|
000002c0  01 d6 09 2e 65 78 69 74  0d 01 e0 07 50 4c 41 0d  |....exit....PLA.|
000002d0  01 ea 0a 4c 44 41 20 23  30 0d 01 f4 07 52 54 53  |...LDA #0....RTS|
000002e0  0d 01 fe 0d 2e 66 6f 75  72 74 65 65 6e 0d 02 08  |.....fourteen...|
000002f0  0b 43 4d 50 20 23 31 34  0d 02 12 10 42 4e 45 20  |.CMP #14....BNE |
00000300  74 72 79 74 68 72 65 65  0d 02 1c 0d 4c 44 41 20  |trythree....LDA |
00000310  70 68 72 6f 6d 0d 02 26  09 82 20 23 26 46 0d 02  |phrom..&.. #&F..|
00000320  30 11 43 4d 50 20 72 6f  6d 6e 75 6d 62 65 72 0d  |0.CMP romnumber.|
00000330  02 3a 0b 42 4e 45 20 6f  75 74 0d 02 44 0a 4c 44  |.:.BNE out..D.LD|
00000340  59 20 23 30 0d 02 4e 14  4c 44 41 20 28 72 6f 6d  |Y #0..N.LDA (rom|
00000350  70 6f 69 6e 74 29 2c 59  0d 02 58 07 54 41 59 0d  |point),Y..X.TAY.|
00000360  02 62 10 49 4e 43 20 72  6f 6d 70 6f 69 6e 74 0d  |.b.INC rompoint.|
00000370  02 6c 0c 42 4e 45 20 65  78 69 74 0d 02 76 12 49  |.l.BNE exit..v.I|
00000380  4e 43 20 72 6f 6d 70 6f  69 6e 74 2b 31 0d 02 80  |NC rompoint+1...|
00000390  11 4a 4d 50 20 65 78 69  74 2b 64 69 66 66 0d 02  |.JMP exit+diff..|
000003a0  8a 08 2e 6f 75 74 0d 02  94 07 50 4c 41 0d 02 9e  |...out....PLA...|
000003b0  07 52 54 53 0d 02 a8 0d  2e 74 72 79 74 68 72 65  |.RTS.....trythre|
000003c0  65 0d 02 b2 07 54 58 41  0d 02 bc 07 50 48 41 0d  |e....TXA....PHA.|
000003d0  02 c6 07 54 59 41 0d 02  d0 07 50 48 41 0d 02 da  |...TYA....PHA...|
000003e0  07 54 53 58 0d 02 e4 0f  4c 44 41 20 73 74 61 63  |.TSX....LDA stac|
000003f0  6b 2c 58 0d 02 ee 0a 43  4d 50 20 23 33 0d 02 f8  |k,X....CMP #3...|
00000400  0d 42 45 51 20 74 68 72  65 65 0d 03 02 29 4a 4d  |.BEQ three...)JM|
00000410  50 20 6c 61 73 74 62 79  74 65 2b 64 69 66 66 20  |P lastbyte+diff |
00000420  5c 20 63 6f 6e 74 69 6e  75 65 20 69 6e 20 83 55  |\ continue in .U|
00000430  4c 45 32 0d 03 0c 0a 2e  74 68 72 65 65 0d 03 16  |LE2.....three...|
00000440  0c 4c 44 41 20 23 26 37  41 0d 03 20 0e 4a 53 52  |.LDA #&7A.. .JSR|
00000450  20 6f 73 62 79 74 65 0d  03 2a 1d 43 50 58 20 23  | osbyte..*.CPX #|
00000460  26 33 33 20 5c 20 49 73  20 69 74 20 52 20 42 72  |&33 \ Is it R Br|
00000470  65 61 6b 3f 0d 03 34 0e  42 45 51 20 72 62 72 65  |eak?..4.BEQ rbre|
00000480  61 6b 0d 03 3e 07 50 4c  41 0d 03 48 07 54 41 59  |ak..>.PLA..H.TAY|
00000490  0d 03 52 07 50 4c 41 0d  03 5c 07 54 41 58 0d 03  |..R.PLA..\.TAX..|
000004a0  66 07 50 4c 41 0d 03 70  07 52 54 53 0d 03 7a 0b  |f.PLA..p.RTS..z.|
000004b0  2e 72 62 72 65 61 6b 0d  03 84 0c 4c 44 41 20 23  |.rbreak....LDA #|
000004c0  26 43 39 0d 03 8e 0a 4c  44 58 20 23 31 0d 03 98  |&C9....LDX #1...|
000004d0  0a 4c 44 59 20 23 30 0d  03 a2 21 4a 53 52 20 6f  |.LDY #0...!JSR o|
000004e0  73 62 79 74 65 20 5c 20  44 69 73 61 62 6c 65 20  |sbyte \ Disable |
000004f0  6b 65 79 62 6f 61 72 64  0d 03 ac 0c 4c 44 41 20  |keyboard....LDA |
00000500  23 26 30 46 0d 03 b6 0a  4c 44 58 20 23 30 0d 03  |#&0F....LDX #0..|
00000510  c0 22 4a 53 52 20 6f 73  62 79 74 65 20 5c 20 46  |."JSR osbyte \ F|
00000520  6c 75 73 68 20 61 6c 6c  20 62 75 66 66 65 72 73  |lush all buffers|
00000530  0d 03 ca 0f 4c 44 41 20  61 64 64 72 65 73 73 0d  |....LDA address.|
00000540  03 d4 07 50 48 41 0d 03  de 11 4c 44 41 20 61 64  |...PHA....LDA ad|
00000550  64 72 65 73 73 2b 31 0d  03 e8 07 50 48 41 0d 03  |dress+1....PHA..|
00000560  f2 19 4c 44 58 20 23 28  72 66 73 2b 64 69 66 66  |..LDX #(rfs+diff|
00000570  29 20 83 20 32 35 36 0d  03 fc 19 4c 44 59 20 23  |) . 256....LDY #|
00000580  28 72 66 73 2b 64 69 66  66 29 20 81 20 32 35 36  |(rfs+diff) . 256|
00000590  0d 04 06 12 4a 53 52 20  70 72 69 6e 74 2b 64 69  |....JSR print+di|
000005a0  66 66 0d 04 10 19 4c 44  58 20 23 28 63 61 74 2b  |ff....LDX #(cat+|
000005b0  64 69 66 66 29 20 83 20  32 35 36 0d 04 1a 19 4c  |diff) . 256....L|
000005c0  44 59 20 23 28 63 61 74  2b 64 69 66 66 29 20 81  |DY #(cat+diff) .|
000005d0  20 32 35 36 0d 04 24 12  4a 53 52 20 70 72 69 6e  | 256..$.JSR prin|
000005e0  74 2b 64 69 66 66 0d 04  2e 0c 4c 44 41 20 23 26  |t+diff....LDA #&|
000005f0  38 44 0d 04 38 1b 4a 53  52 20 6f 73 62 79 74 65  |8D..8.JSR osbyte|
00000600  20 5c 20 53 65 6c 65 63  74 20 52 46 53 0d 04 42  | \ Select RFS..B|
00000610  0c 4c 44 41 20 23 26 38  42 0d 04 4c 0a 4c 44 58  |.LDA #&8B..L.LDX|
00000620  20 23 31 0d 04 56 0a 4c  44 59 20 23 32 0d 04 60  | #1..V.LDY #2..`|
00000630  18 4a 53 52 20 6f 73 62  79 74 65 20 5c 20 2a 4f  |.JSR osbyte \ *O|
00000640  50 54 31 2c 32 0d 04 6a  19 4c 44 58 20 23 28 64  |PT1,2..j.LDX #(d|
00000650  6f 74 2b 64 69 66 66 29  20 83 20 32 35 36 0d 04  |ot+diff) . 256..|
00000660  74 19 4c 44 59 20 23 28  64 6f 74 2b 64 69 66 66  |t.LDY #(dot+diff|
00000670  29 20 81 20 32 35 36 0d  04 7e 1d 4a 53 52 20 6f  |) . 256..~.JSR o|
00000680  73 63 6c 69 20 5c 20 43  61 74 61 6c 6f 67 75 65  |scli \ Catalogue|
00000690  20 52 46 53 0d 04 88 0c  4c 44 41 20 23 26 38 42  | RFS....LDA #&8B|
000006a0  0d 04 92 0a 4c 44 58 20  23 30 0d 04 9c 0a 4c 44  |....LDX #0....LD|
000006b0  59 20 23 30 0d 04 a6 19  4a 53 52 20 6f 73 62 79  |Y #0....JSR osby|
000006c0  74 65 20 5c 20 2a 4f 50  54 20 31 2c 30 0d 04 b0  |te \ *OPT 1,0...|
000006d0  0e 4a 53 52 20 6f 73 6e  65 77 6c 0d 04 ba 19 4c  |.JSR osnewl....L|
000006e0  44 58 20 23 28 72 66 73  2b 64 69 66 66 29 20 83  |DX #(rfs+diff) .|
000006f0  20 32 35 36 0d 04 c4 19  4c 44 59 20 23 28 72 66  | 256....LDY #(rf|
00000700  73 2b 64 69 66 66 29 20  81 20 32 35 36 0d 04 ce  |s+diff) . 256...|
00000710  12 4a 53 52 20 70 72 69  6e 74 2b 64 69 66 66 0d  |.JSR print+diff.|
00000720  04 d8 19 4c 44 58 20 23  28 61 63 74 2b 64 69 66  |...LDX #(act+dif|
00000730  66 29 20 83 20 32 35 36  0d 04 e2 19 4c 44 59 20  |f) . 256....LDY |
00000740  23 28 61 63 74 2b 64 69  66 66 29 20 81 20 32 35  |#(act+diff) . 25|
00000750  36 0d 04 ec 12 4a 53 52  20 70 72 69 6e 74 2b 64  |6....JSR print+d|
00000760  69 66 66 0d 04 f6 07 50  4c 41 0d 05 00 11 53 54  |iff....PLA....ST|
00000770  41 20 61 64 64 72 65 73  73 2b 31 0d 05 0a 07 50  |A address+1....P|
00000780  4c 41 0d 05 14 0f 53 54  41 20 61 64 64 72 65 73  |LA....STA addres|
00000790  73 0d 05 1e 0c 4c 44 41  20 23 26 43 39 0d 05 28  |s....LDA #&C9..(|
000007a0  0a 4c 44 58 20 23 30 0d  05 32 0a 4c 44 59 20 23  |.LDX #0..2.LDY #|
000007b0  30 0d 05 3c 20 4a 53 52  20 6f 73 62 79 74 65 20  |0..< JSR osbyte |
000007c0  5c 20 45 6e 61 62 6c 65  20 6b 65 79 62 6f 61 72  |\ Enable keyboar|
000007d0  64 0d 05 46 07 50 4c 41  0d 05 50 07 50 4c 41 0d  |d..F.PLA..P.PLA.|
000007e0  05 5a 07 50 4c 41 0d 05  64 0a 4c 44 41 20 23 30  |.Z.PLA..d.LDA #0|
000007f0  0d 05 6e 07 52 54 53 0d  05 78 0a 2e 70 72 69 6e  |..n.RTS..x..prin|
00000800  74 0d 05 82 07 2e 43 25  0d 05 8c 0f 53 54 58 20  |t.....C%....STX |
00000810  61 64 64 72 65 73 73 0d  05 96 11 53 54 59 20 61  |address....STY a|
00000820  64 64 72 65 73 73 2b 31  0d 05 a0 0c 4c 44 59 20  |ddress+1....LDY |
00000830  23 26 46 46 0d 05 aa 0e  2e 70 72 69 6e 74 6c 6f  |#&FF.....printlo|
00000840  6f 70 0d 05 b4 07 49 4e  59 0d 05 be 13 4c 44 41  |op....INY....LDA|
00000850  20 28 61 64 64 72 65 73  73 29 2c 59 0d 05 c8 10  | (address),Y....|
00000860  42 45 51 20 65 6e 64 70  72 69 6e 74 0d 05 d2 0e  |BEQ endprint....|
00000870  4a 53 52 20 6f 73 61 73  63 69 0d 05 dc 16 4a 4d  |JSR osasci....JM|
00000880  50 20 70 72 69 6e 74 6c  6f 6f 70 2b 64 69 66 66  |P printloop+diff|
00000890  0d 05 e6 0d 2e 65 6e 64  70 72 69 6e 74 0d 05 f0  |.....endprint...|
000008a0  07 52 54 53 0d 05 fa 08  2e 64 6f 74 0d 06 04 14  |.RTS.....dot....|
000008b0  4f 50 54 20 a4 65 71 75  73 28 22 43 41 54 22 29  |OPT .equs("CAT")|
000008c0  0d 06 0e 12 4f 50 54 20  a4 65 71 75 62 28 26 30  |....OPT .equb(&0|
000008d0  44 29 0d 06 18 08 2e 72  66 73 0d 06 22 23 4f 50  |D).....rfs.."#OP|
000008e0  54 20 a4 65 71 75 73 28  22 52 4f 4d 20 46 69 6c  |T .equs("ROM Fil|
000008f0  69 6e 67 20 53 79 73 74  65 6d 20 22 29 0d 06 2c  |ing System ")..,|
00000900  07 42 52 4b 0d 06 36 08  2e 63 61 74 0d 06 40 1a  |.BRK..6..cat..@.|
00000910  4f 50 54 20 a4 65 71 75  73 28 22 43 61 74 61 6c  |OPT .equs("Catal|
00000920  6f 67 75 65 22 29 0d 06  4a 12 4f 50 54 20 a4 65  |ogue")..J.OPT .e|
00000930  71 75 62 28 26 30 44 29  0d 06 54 07 42 52 4b 0d  |qub(&0D)..T.BRK.|
00000940  06 5e 08 2e 61 63 74 0d  06 68 17 4f 50 54 20 a4  |.^..act..h.OPT .|
00000950  65 71 75 73 28 22 61 63  74 69 76 65 22 29 0d 06  |equs("active")..|
00000960  72 14 4f 50 54 20 a4 65  71 75 77 28 26 30 44 30  |r.OPT .equw(&0D0|
00000970  44 29 0d 06 7c 07 42 52  4b 0d 06 86 0d 2e 6c 61  |D)..|.BRK.....la|
00000980  73 74 62 79 74 65 0d 06  90 05 5d 0d 06 9a 05 ed  |stbyte....].....|
00000990  0d 06 a4 0f 4f 25 3d 6c  61 73 74 62 79 74 65 0d  |....O%=lastbyte.|
000009a0  06 ae 0d d7 22 4d 4f 44  54 57 4f 22 0d 06 b8 10  |...."MODTWO"....|
000009b0  dd a4 65 71 75 62 28 62  79 74 65 29 0d 06 c2 0c  |..equb(byte)....|
000009c0  3f 50 25 3d 62 79 74 65  0d 06 cc 0b 50 25 3d 50  |?P%=byte....P%=P|
000009d0  25 2b 31 0d 06 d6 09 3d  70 61 73 73 0d 06 e0 10  |%+1....=pass....|
000009e0  dd a4 65 71 75 77 28 77  6f 72 64 29 0d 06 ea 12  |..equw(word)....|
000009f0  3f 50 25 3d 77 6f 72 64  20 83 20 32 35 36 0d 06  |?P%=word . 256..|
00000a00  f4 13 50 25 3f 31 3d 77  6f 72 64 20 81 20 32 35  |..P%?1=word . 25|
00000a10  36 0d 06 fe 0b 50 25 3d  50 25 2b 32 0d 07 08 09  |6....P%=P%+2....|
00000a20  3d 70 61 73 73 0d 07 12  12 dd a4 65 71 75 64 28  |=pass......equd(|
00000a30  64 6f 75 62 6c 65 29 0d  07 1c 0e 21 50 25 3d 64  |double)....!P%=d|
00000a40  6f 75 62 6c 65 0d 07 26  0b 50 25 3d 50 25 2b 34  |ouble..&.P%=P%+4|
00000a50  0d 07 30 09 3d 70 61 73  73 0d 07 3a 13 dd a4 65  |..0.=pass..:...e|
00000a60  71 75 73 28 73 74 72 69  6e 67 24 29 0d 07 44 0f  |qus(string$)..D.|
00000a70  24 50 25 3d 73 74 72 69  6e 67 24 0d 07 4e 14 50  |$P%=string$..N.P|
00000a80  25 3d 50 25 2b a9 28 73  74 72 69 6e 67 24 29 0d  |%=P%+.(string$).|
00000a90  07 58 09 3d 70 61 73 73  0d ff                    |.X.=pass..|
00000a9a