�: PEEK
�7
�=&3C00
(
� save 50
2diff=&8000-�
<address=&70
Ferrstack=&100
Pcomvec=&F2
Zgsinit=&FFC2
dgsread=&FFC5
nosasci=&FFE3
xosnewl=&FFE7
�oscli=&FFF7
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�
.title
�OPT �equs("PEEK")

.copyright

BRK

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

"BRK

,.service

6
CMP #4

@BEQ unrecognised

JRTS

T.unrecognised

^PHA

hTXA

rPHA

|TYA

�PHA

�LDX #&FF

�.comloop

�INX

�LDA title+diff,X

�
BEQ found

�LDA (comvec),Y

�INY

�CMP #�(".")

�
BEQ found

�
� #&DF

�CMP title+diff,X

�BEQ comloop
PLA
TAY
PLA
&TAX
0PLA
:RTS
D
.found
NCLC
XJSR gsinit
bLDA address
lPHA
vLDA address+1
�PHA
�
LDX #0
�STX address
�STX address+1
�DEX
�.argloop
�JSR gsread
�BCS endarg
�CMP #�("&")
�BEQ argloop
�JSR convert+diff
�PHA \ Push hex nybbles
�INX
BPL argloop
.endarg

CPX #4
 
BCS error
*PLA \ LS nybble low byte
4STA address
>DEX
HBMI finish
RPLA \ MS nybble low byte
\	ASL A
f	ASL A
p	ASL A
z	ASL A
��A address
�STA address \ LS byte
�DEX
�BMI finish
�PLA \ LS nybble high byte
�STA address+1
�DEX
�BMI finish
�PLA \ MS nybble high byte
�	ASL A
�	ASL A
�	ASL A
�	ASL A
�A address+1
STA address+1 \ MS byte
.finish
$
LDY #0
.LDA (address),Y
8JSR hexbyte+diff
BJSR osnewl
LPLA
VSTA address+1
`PLA
jSTA address
tPLA
~PLA
�PLA
�
LDA #0
�RTS
�.hexbyte
�PHA
�	LSR A
�	LSR A
�	LSR A
�	LSR A
�JSR nybble+diff
�PLA
�.nybble
	� #&F

SED
CLC
ADC #&90
(ADC #&40
2CLD
<JMP osasci
F.convert
PCMP #�("9")+1
ZBCS letters
dCMP #�("0")
n
BMI error
x	� #&F
�RTS
�.letters
�SBC #&37
�CMP #&A
�
BMI error
�CMP #&10
�
BCS error
�RTS
�
.error
�LDA #(errormsg+diff) � 256
�STA address
�LDA #(errormsg+diff) � 256
�STA address+1
LDY #&FF
.errorloop
INY
"LDA (address),Y
,STA errstack,Y
6BPL errorloop
@JMP errstack
J
.errormsg
TBRK
^BRK
hOPT �equs("Out of range")
rBRK
|OPT �equb(&FF)
�
.lastbyte
�]
��
�!�'"Save filename = "filename$
�� filename$="" �
�K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
�X%=save � 256
�Y%=save � 256
�*OPT1,2
�� oscli
�*OPT1,0
��
�ݤequb(byte)
?P%=byte
P%=P%+1
	=pass
&ݤequw(word)
0?P%=word � 256
:P%?1=word � 256
DP%=P%+2
N	=pass
Xݤequd(double)
b!P%=double
lP%=P%+4
v	=pass
�ݤequs(string$)
�$P%=string$
�P%=P%+�(string$)
�	=pass
�

00000000  0d 00 0a 0b f4 3a 20 50  45 45 4b 0d 00 14 06 eb  |.....: PEEK.....|
00000010  37 0d 00 1e 0b d3 3d 26  33 43 30 30 0d 00 28 0d  |7.....=&3C00..(.|
00000020  de 20 73 61 76 65 20 35  30 0d 00 32 10 64 69 66  |. save 50..2.dif|
00000030  66 3d 26 38 30 30 30 2d  93 0d 00 3c 0f 61 64 64  |f=&8000-...<.add|
00000040  72 65 73 73 3d 26 37 30  0d 00 46 11 65 72 72 73  |ress=&70..F.errs|
00000050  74 61 63 6b 3d 26 31 30  30 0d 00 50 0e 63 6f 6d  |tack=&100..P.com|
00000060  76 65 63 3d 26 46 32 0d  00 5a 10 67 73 69 6e 69  |vec=&F2..Z.gsini|
00000070  74 3d 26 46 46 43 32 0d  00 64 10 67 73 72 65 61  |t=&FFC2..d.gsrea|
00000080  64 3d 26 46 46 43 35 0d  00 6e 10 6f 73 61 73 63  |d=&FFC5..n.osasc|
00000090  69 3d 26 46 46 45 33 0d  00 78 10 6f 73 6e 65 77  |i=&FFE3..x.osnew|
000000a0  6c 3d 26 46 46 45 37 0d  00 82 0f 6f 73 63 6c 69  |l=&FFE7....oscli|
000000b0  3d 26 46 46 46 37 0d 00  8c 16 e3 20 70 61 73 73  |=&FFF7..... pass|
000000c0  20 3d 20 30 20 b8 20 32  20 88 20 32 0d 00 96 08  | = 0 . 2 . 2....|
000000d0  50 25 3d 93 0d 00 a0 0d  5b 4f 50 54 20 70 61 73  |P%=.....[OPT pas|
000000e0  73 0d 00 aa 07 42 52 4b  0d 00 b4 07 42 52 4b 0d  |s....BRK....BRK.|
000000f0  00 be 07 42 52 4b 0d 00  c8 14 4a 4d 50 20 73 65  |...BRK....JMP se|
00000100  72 76 69 63 65 2b 64 69  66 66 0d 00 d2 12 4f 50  |rvice+diff....OP|
00000110  54 20 a4 65 71 75 62 28  26 38 32 29 0d 00 dc 25  |T .equb(&82)...%|
00000120  4f 50 54 20 a4 65 71 75  62 28 28 63 6f 70 79 72  |OPT .equb((copyr|
00000130  69 67 68 74 2b 64 69 66  66 29 20 83 20 32 35 36  |ight+diff) . 256|
00000140  29 0d 00 e6 07 42 52 4b  0d 00 f0 0a 2e 74 69 74  |)....BRK.....tit|
00000150  6c 65 0d 00 fa 15 4f 50  54 20 a4 65 71 75 73 28  |le....OPT .equs(|
00000160  22 50 45 45 4b 22 29 0d  01 04 0e 2e 63 6f 70 79  |"PEEK").....copy|
00000170  72 69 67 68 74 0d 01 0e  07 42 52 4b 0d 01 18 2b  |right....BRK...+|
00000180  4f 50 54 20 a4 65 71 75  73 28 22 28 43 29 20 47  |OPT .equs("(C) G|
00000190  6f 72 64 6f 6e 20 48 6f  72 73 69 6e 67 74 6f 6e  |ordon Horsington|
000001a0  20 31 39 38 37 22 29 0d  01 22 07 42 52 4b 0d 01  | 1987")..".BRK..|
000001b0  2c 0c 2e 73 65 72 76 69  63 65 0d 01 36 0a 43 4d  |,..service..6.CM|
000001c0  50 20 23 34 0d 01 40 14  42 45 51 20 75 6e 72 65  |P #4..@.BEQ unre|
000001d0  63 6f 67 6e 69 73 65 64  0d 01 4a 07 52 54 53 0d  |cognised..J.RTS.|
000001e0  01 54 11 2e 75 6e 72 65  63 6f 67 6e 69 73 65 64  |.T..unrecognised|
000001f0  0d 01 5e 07 50 48 41 0d  01 68 07 54 58 41 0d 01  |..^.PHA..h.TXA..|
00000200  72 07 50 48 41 0d 01 7c  07 54 59 41 0d 01 86 07  |r.PHA..|.TYA....|
00000210  50 48 41 0d 01 90 0c 4c  44 58 20 23 26 46 46 0d  |PHA....LDX #&FF.|
00000220  01 9a 0c 2e 63 6f 6d 6c  6f 6f 70 0d 01 a4 07 49  |....comloop....I|
00000230  4e 58 0d 01 ae 14 4c 44  41 20 74 69 74 6c 65 2b  |NX....LDA title+|
00000240  64 69 66 66 2c 58 0d 01  b8 0d 42 45 51 20 66 6f  |diff,X....BEQ fo|
00000250  75 6e 64 0d 01 c2 12 4c  44 41 20 28 63 6f 6d 76  |und....LDA (comv|
00000260  65 63 29 2c 59 0d 01 cc  07 49 4e 59 0d 01 d6 0f  |ec),Y....INY....|
00000270  43 4d 50 20 23 97 28 22  2e 22 29 0d 01 e0 0d 42  |CMP #.(".")....B|
00000280  45 51 20 66 6f 75 6e 64  0d 01 ea 0a 80 20 23 26  |EQ found..... #&|
00000290  44 46 0d 01 f4 14 43 4d  50 20 74 69 74 6c 65 2b  |DF....CMP title+|
000002a0  64 69 66 66 2c 58 0d 01  fe 0f 42 45 51 20 63 6f  |diff,X....BEQ co|
000002b0  6d 6c 6f 6f 70 0d 02 08  07 50 4c 41 0d 02 12 07  |mloop....PLA....|
000002c0  54 41 59 0d 02 1c 07 50  4c 41 0d 02 26 07 54 41  |TAY....PLA..&.TA|
000002d0  58 0d 02 30 07 50 4c 41  0d 02 3a 07 52 54 53 0d  |X..0.PLA..:.RTS.|
000002e0  02 44 0a 2e 66 6f 75 6e  64 0d 02 4e 07 43 4c 43  |.D..found..N.CLC|
000002f0  0d 02 58 0e 4a 53 52 20  67 73 69 6e 69 74 0d 02  |..X.JSR gsinit..|
00000300  62 0f 4c 44 41 20 61 64  64 72 65 73 73 0d 02 6c  |b.LDA address..l|
00000310  07 50 48 41 0d 02 76 11  4c 44 41 20 61 64 64 72  |.PHA..v.LDA addr|
00000320  65 73 73 2b 31 0d 02 80  07 50 48 41 0d 02 8a 0a  |ess+1....PHA....|
00000330  4c 44 58 20 23 30 0d 02  94 0f 53 54 58 20 61 64  |LDX #0....STX ad|
00000340  64 72 65 73 73 0d 02 9e  11 53 54 58 20 61 64 64  |dress....STX add|
00000350  72 65 73 73 2b 31 0d 02  a8 07 44 45 58 0d 02 b2  |ress+1....DEX...|
00000360  0c 2e 61 72 67 6c 6f 6f  70 0d 02 bc 0e 4a 53 52  |..argloop....JSR|
00000370  20 67 73 72 65 61 64 0d  02 c6 0e 42 43 53 20 65  | gsread....BCS e|
00000380  6e 64 61 72 67 0d 02 d0  0f 43 4d 50 20 23 97 28  |ndarg....CMP #.(|
00000390  22 26 22 29 0d 02 da 0f  42 45 51 20 61 72 67 6c  |"&")....BEQ argl|
000003a0  6f 6f 70 0d 02 e4 14 4a  53 52 20 63 6f 6e 76 65  |oop....JSR conve|
000003b0  72 74 2b 64 69 66 66 0d  02 ee 1a 50 48 41 20 5c  |rt+diff....PHA \|
000003c0  20 50 75 73 68 20 68 65  78 20 6e 79 62 62 6c 65  | Push hex nybble|
000003d0  73 0d 02 f8 07 49 4e 58  0d 03 02 0f 42 50 4c 20  |s....INX....BPL |
000003e0  61 72 67 6c 6f 6f 70 0d  03 0c 0b 2e 65 6e 64 61  |argloop.....enda|
000003f0  72 67 0d 03 16 0a 43 50  58 20 23 34 0d 03 20 0d  |rg....CPX #4.. .|
00000400  42 43 53 20 65 72 72 6f  72 0d 03 2a 1c 50 4c 41  |BCS error..*.PLA|
00000410  20 5c 20 4c 53 20 6e 79  62 62 6c 65 20 6c 6f 77  | \ LS nybble low|
00000420  20 62 79 74 65 0d 03 34  0f 53 54 41 20 61 64 64  | byte..4.STA add|
00000430  72 65 73 73 0d 03 3e 07  44 45 58 0d 03 48 0e 42  |ress..>.DEX..H.B|
00000440  4d 49 20 66 69 6e 69 73  68 0d 03 52 1c 50 4c 41  |MI finish..R.PLA|
00000450  20 5c 20 4d 53 20 6e 79  62 62 6c 65 20 6c 6f 77  | \ MS nybble low|
00000460  20 62 79 74 65 0d 03 5c  09 41 53 4c 20 41 0d 03  | byte..\.ASL A..|
00000470  66 09 41 53 4c 20 41 0d  03 70 09 41 53 4c 20 41  |f.ASL A..p.ASL A|
00000480  0d 03 7a 09 41 53 4c 20  41 0d 03 84 0e 84 41 20  |..z.ASL A.....A |
00000490  61 64 64 72 65 73 73 0d  03 8e 19 53 54 41 20 61  |address....STA a|
000004a0  64 64 72 65 73 73 20 5c  20 4c 53 20 62 79 74 65  |ddress \ LS byte|
000004b0  0d 03 98 07 44 45 58 0d  03 a2 0e 42 4d 49 20 66  |....DEX....BMI f|
000004c0  69 6e 69 73 68 0d 03 ac  1d 50 4c 41 20 5c 20 4c  |inish....PLA \ L|
000004d0  53 20 6e 79 62 62 6c 65  20 68 69 67 68 20 62 79  |S nybble high by|
000004e0  74 65 0d 03 b6 11 53 54  41 20 61 64 64 72 65 73  |te....STA addres|
000004f0  73 2b 31 0d 03 c0 07 44  45 58 0d 03 ca 0e 42 4d  |s+1....DEX....BM|
00000500  49 20 66 69 6e 69 73 68  0d 03 d4 1d 50 4c 41 20  |I finish....PLA |
00000510  5c 20 4d 53 20 6e 79 62  62 6c 65 20 68 69 67 68  |\ MS nybble high|
00000520  20 62 79 74 65 0d 03 de  09 41 53 4c 20 41 0d 03  | byte....ASL A..|
00000530  e8 09 41 53 4c 20 41 0d  03 f2 09 41 53 4c 20 41  |..ASL A....ASL A|
00000540  0d 03 fc 09 41 53 4c 20  41 0d 04 06 10 84 41 20  |....ASL A.....A |
00000550  61 64 64 72 65 73 73 2b  31 0d 04 10 1b 53 54 41  |address+1....STA|
00000560  20 61 64 64 72 65 73 73  2b 31 20 5c 20 4d 53 20  | address+1 \ MS |
00000570  62 79 74 65 0d 04 1a 0b  2e 66 69 6e 69 73 68 0d  |byte.....finish.|
00000580  04 24 0a 4c 44 59 20 23  30 0d 04 2e 13 4c 44 41  |.$.LDY #0....LDA|
00000590  20 28 61 64 64 72 65 73  73 29 2c 59 0d 04 38 14  | (address),Y..8.|
000005a0  4a 53 52 20 68 65 78 62  79 74 65 2b 64 69 66 66  |JSR hexbyte+diff|
000005b0  0d 04 42 0e 4a 53 52 20  6f 73 6e 65 77 6c 0d 04  |..B.JSR osnewl..|
000005c0  4c 07 50 4c 41 0d 04 56  11 53 54 41 20 61 64 64  |L.PLA..V.STA add|
000005d0  72 65 73 73 2b 31 0d 04  60 07 50 4c 41 0d 04 6a  |ress+1..`.PLA..j|
000005e0  0f 53 54 41 20 61 64 64  72 65 73 73 0d 04 74 07  |.STA address..t.|
000005f0  50 4c 41 0d 04 7e 07 50  4c 41 0d 04 88 07 50 4c  |PLA..~.PLA....PL|
00000600  41 0d 04 92 0a 4c 44 41  20 23 30 0d 04 9c 07 52  |A....LDA #0....R|
00000610  54 53 0d 04 a6 0c 2e 68  65 78 62 79 74 65 0d 04  |TS.....hexbyte..|
00000620  b0 07 50 48 41 0d 04 ba  09 4c 53 52 20 41 0d 04  |..PHA....LSR A..|
00000630  c4 09 4c 53 52 20 41 0d  04 ce 09 4c 53 52 20 41  |..LSR A....LSR A|
00000640  0d 04 d8 09 4c 53 52 20  41 0d 04 e2 13 4a 53 52  |....LSR A....JSR|
00000650  20 6e 79 62 62 6c 65 2b  64 69 66 66 0d 04 ec 07  | nybble+diff....|
00000660  50 4c 41 0d 04 f6 0b 2e  6e 79 62 62 6c 65 0d 05  |PLA.....nybble..|
00000670  00 09 80 20 23 26 46 0d  05 0a 07 53 45 44 0d 05  |... #&F....SED..|
00000680  14 07 43 4c 43 0d 05 1e  0c 41 44 43 20 23 26 39  |..CLC....ADC #&9|
00000690  30 0d 05 28 0c 41 44 43  20 23 26 34 30 0d 05 32  |0..(.ADC #&40..2|
000006a0  07 43 4c 44 0d 05 3c 0e  4a 4d 50 20 6f 73 61 73  |.CLD..<.JMP osas|
000006b0  63 69 0d 05 46 0c 2e 63  6f 6e 76 65 72 74 0d 05  |ci..F..convert..|
000006c0  50 11 43 4d 50 20 23 97  28 22 39 22 29 2b 31 0d  |P.CMP #.("9")+1.|
000006d0  05 5a 0f 42 43 53 20 6c  65 74 74 65 72 73 0d 05  |.Z.BCS letters..|
000006e0  64 0f 43 4d 50 20 23 97  28 22 30 22 29 0d 05 6e  |d.CMP #.("0")..n|
000006f0  0d 42 4d 49 20 65 72 72  6f 72 0d 05 78 09 80 20  |.BMI error..x.. |
00000700  23 26 46 0d 05 82 07 52  54 53 0d 05 8c 0c 2e 6c  |#&F....RTS.....l|
00000710  65 74 74 65 72 73 0d 05  96 0c 53 42 43 20 23 26  |etters....SBC #&|
00000720  33 37 0d 05 a0 0b 43 4d  50 20 23 26 41 0d 05 aa  |37....CMP #&A...|
00000730  0d 42 4d 49 20 65 72 72  6f 72 0d 05 b4 0c 43 4d  |.BMI error....CM|
00000740  50 20 23 26 31 30 0d 05  be 0d 42 43 53 20 65 72  |P #&10....BCS er|
00000750  72 6f 72 0d 05 c8 07 52  54 53 0d 05 d2 0a 2e 65  |ror....RTS.....e|
00000760  72 72 6f 72 0d 05 dc 1e  4c 44 41 20 23 28 65 72  |rror....LDA #(er|
00000770  72 6f 72 6d 73 67 2b 64  69 66 66 29 20 83 20 32  |rormsg+diff) . 2|
00000780  35 36 0d 05 e6 0f 53 54  41 20 61 64 64 72 65 73  |56....STA addres|
00000790  73 0d 05 f0 1e 4c 44 41  20 23 28 65 72 72 6f 72  |s....LDA #(error|
000007a0  6d 73 67 2b 64 69 66 66  29 20 81 20 32 35 36 0d  |msg+diff) . 256.|
000007b0  05 fa 11 53 54 41 20 61  64 64 72 65 73 73 2b 31  |...STA address+1|
000007c0  0d 06 04 0c 4c 44 59 20  23 26 46 46 0d 06 0e 0e  |....LDY #&FF....|
000007d0  2e 65 72 72 6f 72 6c 6f  6f 70 0d 06 18 07 49 4e  |.errorloop....IN|
000007e0  59 0d 06 22 13 4c 44 41  20 28 61 64 64 72 65 73  |Y..".LDA (addres|
000007f0  73 29 2c 59 0d 06 2c 12  53 54 41 20 65 72 72 73  |s),Y..,.STA errs|
00000800  74 61 63 6b 2c 59 0d 06  36 11 42 50 4c 20 65 72  |tack,Y..6.BPL er|
00000810  72 6f 72 6c 6f 6f 70 0d  06 40 10 4a 4d 50 20 65  |rorloop..@.JMP e|
00000820  72 72 73 74 61 63 6b 0d  06 4a 0d 2e 65 72 72 6f  |rrstack..J..erro|
00000830  72 6d 73 67 0d 06 54 07  42 52 4b 0d 06 5e 07 42  |rmsg..T.BRK..^.B|
00000840  52 4b 0d 06 68 1d 4f 50  54 20 a4 65 71 75 73 28  |RK..h.OPT .equs(|
00000850  22 4f 75 74 20 6f 66 20  72 61 6e 67 65 22 29 0d  |"Out of range").|
00000860  06 72 07 42 52 4b 0d 06  7c 12 4f 50 54 20 a4 65  |.r.BRK..|.OPT .e|
00000870  71 75 62 28 26 46 46 29  0d 06 86 0d 2e 6c 61 73  |qub(&FF).....las|
00000880  74 62 79 74 65 0d 06 90  05 5d 0d 06 9a 05 ed 0d  |tbyte....]......|
00000890  06 a4 21 e8 27 22 53 61  76 65 20 66 69 6c 65 6e  |..!.'"Save filen|
000008a0  61 6d 65 20 3d 20 22 66  69 6c 65 6e 61 6d 65 24  |ame = "filename$|
000008b0  0d 06 ae 14 e7 20 66 69  6c 65 6e 61 6d 65 24 3d  |..... filename$=|
000008c0  22 22 20 e0 0d 06 b8 4b  24 73 61 76 65 3d 22 53  |"" ....K$save="S|
000008d0  41 56 45 20 22 2b 66 69  6c 65 6e 61 6d 65 24 2b  |AVE "+filename$+|
000008e0  22 20 22 2b c3 7e 28 93  29 2b 22 20 22 2b c3 7e  |" "+.~(.)+" "+.~|
000008f0  28 6c 61 73 74 62 79 74  65 29 2b 22 20 46 46 46  |(lastbyte)+" FFF|
00000900  46 38 30 30 30 20 46 46  46 46 38 30 30 30 22 0d  |F8000 FFFF8000".|
00000910  06 c2 11 58 25 3d 73 61  76 65 20 83 20 32 35 36  |...X%=save . 256|
00000920  0d 06 cc 11 59 25 3d 73  61 76 65 20 81 20 32 35  |....Y%=save . 25|
00000930  36 0d 06 d6 0b 2a 4f 50  54 31 2c 32 0d 06 e0 0b  |6....*OPT1,2....|
00000940  d6 20 6f 73 63 6c 69 0d  06 ea 0b 2a 4f 50 54 31  |. oscli....*OPT1|
00000950  2c 30 0d 06 f4 05 e0 0d  06 fe 10 dd a4 65 71 75  |,0...........equ|
00000960  62 28 62 79 74 65 29 0d  07 08 0c 3f 50 25 3d 62  |b(byte)....?P%=b|
00000970  79 74 65 0d 07 12 0b 50  25 3d 50 25 2b 31 0d 07  |yte....P%=P%+1..|
00000980  1c 09 3d 70 61 73 73 0d  07 26 10 dd a4 65 71 75  |..=pass..&...equ|
00000990  77 28 77 6f 72 64 29 0d  07 30 12 3f 50 25 3d 77  |w(word)..0.?P%=w|
000009a0  6f 72 64 20 83 20 32 35  36 0d 07 3a 13 50 25 3f  |ord . 256..:.P%?|
000009b0  31 3d 77 6f 72 64 20 81  20 32 35 36 0d 07 44 0b  |1=word . 256..D.|
000009c0  50 25 3d 50 25 2b 32 0d  07 4e 09 3d 70 61 73 73  |P%=P%+2..N.=pass|
000009d0  0d 07 58 12 dd a4 65 71  75 64 28 64 6f 75 62 6c  |..X...equd(doubl|
000009e0  65 29 0d 07 62 0e 21 50  25 3d 64 6f 75 62 6c 65  |e)..b.!P%=double|
000009f0  0d 07 6c 0b 50 25 3d 50  25 2b 34 0d 07 76 09 3d  |..l.P%=P%+4..v.=|
00000a00  70 61 73 73 0d 07 80 13  dd a4 65 71 75 73 28 73  |pass......equs(s|
00000a10  74 72 69 6e 67 24 29 0d  07 8a 0f 24 50 25 3d 73  |tring$)....$P%=s|
00000a20  74 72 69 6e 67 24 0d 07  94 14 50 25 3d 50 25 2b  |tring$....P%=P%+|
00000a30  a9 28 73 74 72 69 6e 67  24 29 0d 07 9e 09 3d 70  |.(string$)....=p|
00000a40  61 73 73 0d ff                                    |ass..|
00000a45