� SRBUILD
� by H.R.Wall
� (c) The Micro User
(�135:�=&7400
2table=&8200
<�
F�131:�"ROM file name "RN$
P� � RN$>17 � �DZ@ � �Dd@
Z�129:�"Too long"':�DF@
d
$&900=RN$
n�131:�"ROM * name    "SN$
x�header
�!�("*SRWRITE 5000+1FF 8000 5")
��("*LOAD SRB2>"):�&6F00
��
�
� �header
��pass%=4 � 6 � 2
�P%=&8000:O%=&5000
�[OPT pass%
�
EQUB 0
�
EQUW 0
�JMP service
�EQUB &82
�EQUB offset � 256
�
EQUB 1


.helpname

EQUS RN$  \ *HELP name


EQUB 0

".offset

,
EQUB 0

6EQUS "(C)"

@
EQUB 0

J.service

TPHA

^
CMP #9

hBEQ help

r
CMP #4

|BEQ nothelp

�PLA

�RTS

�	.help

�PHY

�PHX

�JSR prtitle

�PLX

�PLY

�PLA

�RTS

�.prtitle

�
JSR &FFE7

�LDX #&FF
	.loop
INX
LDA helpname,X
&
JSR &FFE3
0BNE loop
:
JSR &FFE7
DRTS
N.nothelp
XPHY
bPHX
lLDX #&FF
vDEY
�
.starloop
�INX
�INY
�LDA (&F2),Y
�
� #&DF
�CMP star,X
�BEQ starloop
�LDA star,X
�BPL notclaimed
�CMP #&FF
�BNE notclaimed
�JMP menu
�.notclaimed
PLX
PLY
PLA
 RTS
*	.star
4EQUS SN$      \ STAR name
>EQUB &FF
H
EQUB 0
R.claimed
\PLX
fPLY
pPLA
z
LDA #0
�RTS
�	.menu
�LDX #201:LDA table,X
�CMP #1:BNE menu2
�JSR &8300:JMP claimed
�
.menu2
�LDA #12:JSR &FFEE
�LDX #2:LDA #1:STA &7F
�LDA #134:JSR &FFEE
�LDA #48:STA &82
�
.nextline
�JSR &FFEE:LDA #46:JSR &FFEE
�LDA #&20:JSR &FFEE
PHX:JSR prtext:LDX #201
LDA table,X:CMP &7F
BEQ cont
$PLX:INC &7F:TXA:CLC:ADC #20
.TAX:INC &82:JSR &FFE7
8LDA #134:JSR &FFEE
BLDA &82:JMP nextline
L	.cont
VPLX
`JSR &FFE7:JSR &FFE7
jLDA #134:JSR &FFEE
tINC &82:LDA &82:JSR &FFEE
~LDA #46:JSR &FFEE
�LDA #&20:JSR &FFEE
�LDA #134:JSR &FFEE
�!LDX #(text2-text):JSR prtext2
�JSR &FFE7:JSR &FFE7
�
.cont2
�LDA #131:JSR &FFEE
�!LDX #(text1-text):JSR prtext2
�
JSR &FFE7
�JSR &FFE0:SEC:SBC #&30
�!LDX #201:CMP table,X:BEQ over
�
BCS cont2
�STA &83
LDX #0:LDY #0

.findadd
CPY &83:BEQ found
TXA:CLC:ADC #20:TAX
(INY:JMP findadd
2
.found
<LDA table,X:STA dummy+1:INX
FLDA table,X:STA dummy+2
PLDA #12:JSR &FFEE
Z
.dummy
dEQUB &20
n
EQUW 0
x
.again
�JSR &FFE7:JSR &FFE7
�LDA #130:JSR &FFEE
�!LDX #(text3-text):JSR prtext2
�
JSR &FFE7
�.again2
�
JSR &FFE0
�CMP #78:BEQ over
�CMP #89:BNE again2
�JMP menu
�	.over
�JMP claimed
�.prtext
�LDA #134:JSR &FFEE
	.prt2
LDA table,X:CMP #13:BEQ rts
JSR &FFEE:INX:BRA prt2
".rts RTS
,	.text
6$.text1 EQUS "Type number reqd. "
@
EQUB 0
J!.text2 EQUS "Return to Basic"
T
EQUB 0
^
.text3
h!EQUS "Another program ? Y/N "
r
EQUB 0
|.prtext2
�!LDA text,X:BEQ rts2:JSR &FFEE
�INX:BRA prtext2
�	.rts2
�RTS
�]
��
��
�

00000000  0d 00 0a 0d f4 20 53 52  42 55 49 4c 44 0d 00 14  |..... SRBUILD...|
00000010  11 f4 20 62 79 20 48 2e  52 2e 57 61 6c 6c 0d 00  |.. by H.R.Wall..|
00000020  1e 18 f4 20 28 63 29 20  54 68 65 20 4d 69 63 72  |... (c) The Micr|
00000030  6f 20 55 73 65 72 0d 00  28 10 eb 31 33 35 3a d2  |o User..(..135:.|
00000040  3d 26 37 34 30 30 0d 00  32 0f 74 61 62 6c 65 3d  |=&7400..2.table=|
00000050  26 38 32 30 30 0d 00 3c  05 db 0d 00 46 1d ef 31  |&8200..<....F..1|
00000060  33 31 3a e8 22 52 4f 4d  20 66 69 6c 65 20 6e 61  |31:."ROM file na|
00000070  6d 65 20 22 52 4e 24 0d  00 50 1c e7 20 a9 20 52  |me "RN$..P.. . R|
00000080  4e 24 3e 31 37 20 8c 20  8d 44 5a 40 20 8b 20 8d  |N$>17 . .DZ@ . .|
00000090  44 64 40 0d 00 5a 1b ef  31 32 39 3a f1 22 54 6f  |Dd@..Z..129:."To|
000000a0  6f 20 6c 6f 6e 67 22 27  3a e5 8d 44 46 40 0d 00  |o long"':..DF@..|
000000b0  64 0d 24 26 39 30 30 3d  52 4e 24 0d 00 6e 1d ef  |d.$&900=RN$..n..|
000000c0  31 33 31 3a e8 22 52 4f  4d 20 2a 20 6e 61 6d 65  |131:."ROM * name|
000000d0  20 20 20 20 22 53 4e 24  0d 00 78 0b f2 68 65 61  |    "SN$..x..hea|
000000e0  64 65 72 0d 00 82 21 ff  28 22 2a 53 52 57 52 49  |der...!.("*SRWRI|
000000f0  54 45 20 35 30 30 30 2b  31 46 46 20 38 30 30 30  |TE 5000+1FF 8000|
00000100  20 35 22 29 0d 00 8c 1b  ff 28 22 2a 4c 4f 41 44  | 5").....("*LOAD|
00000110  20 53 52 42 32 3e 22 29  3a d6 26 36 46 30 30 0d  | SRB2>"):.&6F00.|
00000120  00 96 05 e0 0d 00 a0 0d  dd 20 f2 68 65 61 64 65  |......... .heade|
00000130  72 0d 00 aa 14 e3 70 61  73 73 25 3d 34 20 b8 20  |r.....pass%=4 . |
00000140  36 20 88 20 32 0d 00 b4  15 50 25 3d 26 38 30 30  |6 . 2....P%=&800|
00000150  30 3a 4f 25 3d 26 35 30  30 30 0d 00 be 0e 5b 4f  |0:O%=&5000....[O|
00000160  50 54 20 70 61 73 73 25  0d 00 c8 0a 45 51 55 42  |PT pass%....EQUB|
00000170  20 30 0d 00 d2 0a 45 51  55 57 20 30 0d 00 dc 0f  | 0....EQUW 0....|
00000180  4a 4d 50 20 73 65 72 76  69 63 65 0d 00 e6 0c 45  |JMP service....E|
00000190  51 55 42 20 26 38 32 0d  00 f0 15 45 51 55 42 20  |QUB &82....EQUB |
000001a0  6f 66 66 73 65 74 20 83  20 32 35 36 0d 00 fa 0a  |offset . 256....|
000001b0  45 51 55 42 20 31 0d 01  04 0d 2e 68 65 6c 70 6e  |EQUB 1.....helpn|
000001c0  61 6d 65 0d 01 0e 1a 45  51 55 53 20 52 4e 24 20  |ame....EQUS RN$ |
000001d0  20 5c 20 2a 48 45 4c 50  20 6e 61 6d 65 0d 01 18  | \ *HELP name...|
000001e0  0a 45 51 55 42 20 30 0d  01 22 0b 2e 6f 66 66 73  |.EQUB 0.."..offs|
000001f0  65 74 0d 01 2c 0a 45 51  55 42 20 30 0d 01 36 0e  |et..,.EQUB 0..6.|
00000200  45 51 55 53 20 22 28 43  29 22 0d 01 40 0a 45 51  |EQUS "(C)"..@.EQ|
00000210  55 42 20 30 0d 01 4a 0c  2e 73 65 72 76 69 63 65  |UB 0..J..service|
00000220  0d 01 54 07 50 48 41 0d  01 5e 0a 43 4d 50 20 23  |..T.PHA..^.CMP #|
00000230  39 0d 01 68 0c 42 45 51  20 68 65 6c 70 0d 01 72  |9..h.BEQ help..r|
00000240  0a 43 4d 50 20 23 34 0d  01 7c 0f 42 45 51 20 6e  |.CMP #4..|.BEQ n|
00000250  6f 74 68 65 6c 70 0d 01  86 07 50 4c 41 0d 01 90  |othelp....PLA...|
00000260  07 52 54 53 0d 01 9a 09  2e 68 65 6c 70 0d 01 a4  |.RTS.....help...|
00000270  07 50 48 59 0d 01 ae 07  50 48 58 0d 01 b8 0f 4a  |.PHY....PHX....J|
00000280  53 52 20 70 72 74 69 74  6c 65 0d 01 c2 07 50 4c  |SR prtitle....PL|
00000290  58 0d 01 cc 07 50 4c 59  0d 01 d6 07 50 4c 41 0d  |X....PLY....PLA.|
000002a0  01 e0 07 52 54 53 0d 01  ea 0c 2e 70 72 74 69 74  |...RTS.....prtit|
000002b0  6c 65 0d 01 f4 0d 4a 53  52 20 26 46 46 45 37 0d  |le....JSR &FFE7.|
000002c0  01 fe 0c 4c 44 58 20 23  26 46 46 0d 02 08 09 2e  |...LDX #&FF.....|
000002d0  6c 6f 6f 70 0d 02 12 07  49 4e 58 0d 02 1c 12 4c  |loop....INX....L|
000002e0  44 41 20 68 65 6c 70 6e  61 6d 65 2c 58 0d 02 26  |DA helpname,X..&|
000002f0  0d 4a 53 52 20 26 46 46  45 33 0d 02 30 0c 42 4e  |.JSR &FFE3..0.BN|
00000300  45 20 6c 6f 6f 70 0d 02  3a 0d 4a 53 52 20 26 46  |E loop..:.JSR &F|
00000310  46 45 37 0d 02 44 07 52  54 53 0d 02 4e 0c 2e 6e  |FE7..D.RTS..N..n|
00000320  6f 74 68 65 6c 70 0d 02  58 07 50 48 59 0d 02 62  |othelp..X.PHY..b|
00000330  07 50 48 58 0d 02 6c 0c  4c 44 58 20 23 26 46 46  |.PHX..l.LDX #&FF|
00000340  0d 02 76 07 44 45 59 0d  02 80 0d 2e 73 74 61 72  |..v.DEY.....star|
00000350  6c 6f 6f 70 0d 02 8a 07  49 4e 58 0d 02 94 07 49  |loop....INX....I|
00000360  4e 59 0d 02 9e 0f 4c 44  41 20 28 26 46 32 29 2c  |NY....LDA (&F2),|
00000370  59 0d 02 a8 0a 80 20 23  26 44 46 0d 02 b2 0e 43  |Y..... #&DF....C|
00000380  4d 50 20 73 74 61 72 2c  58 0d 02 bc 10 42 45 51  |MP star,X....BEQ|
00000390  20 73 74 61 72 6c 6f 6f  70 0d 02 c6 0e 4c 44 41  | starloop....LDA|
000003a0  20 73 74 61 72 2c 58 0d  02 d0 12 42 50 4c 20 6e  | star,X....BPL n|
000003b0  6f 74 63 6c 61 69 6d 65  64 0d 02 da 0c 43 4d 50  |otclaimed....CMP|
000003c0  20 23 26 46 46 0d 02 e4  12 42 4e 45 20 6e 6f 74  | #&FF....BNE not|
000003d0  63 6c 61 69 6d 65 64 0d  02 ee 0c 4a 4d 50 20 6d  |claimed....JMP m|
000003e0  65 6e 75 0d 02 f8 0f 2e  6e 6f 74 63 6c 61 69 6d  |enu.....notclaim|
000003f0  65 64 0d 03 02 07 50 4c  58 0d 03 0c 07 50 4c 59  |ed....PLX....PLY|
00000400  0d 03 16 07 50 4c 41 0d  03 20 07 52 54 53 0d 03  |....PLA.. .RTS..|
00000410  2a 09 2e 73 74 61 72 0d  03 34 1d 45 51 55 53 20  |*..star..4.EQUS |
00000420  53 4e 24 20 20 20 20 20  20 5c 20 53 54 41 52 20  |SN$      \ STAR |
00000430  6e 61 6d 65 0d 03 3e 0c  45 51 55 42 20 26 46 46  |name..>.EQUB &FF|
00000440  0d 03 48 0a 45 51 55 42  20 30 0d 03 52 0c 2e 63  |..H.EQUB 0..R..c|
00000450  6c 61 69 6d 65 64 0d 03  5c 07 50 4c 58 0d 03 66  |laimed..\.PLX..f|
00000460  07 50 4c 59 0d 03 70 07  50 4c 41 0d 03 7a 0a 4c  |.PLY..p.PLA..z.L|
00000470  44 41 20 23 30 0d 03 84  07 52 54 53 0d 03 8e 09  |DA #0....RTS....|
00000480  2e 6d 65 6e 75 0d 03 98  18 4c 44 58 20 23 32 30  |.menu....LDX #20|
00000490  31 3a 4c 44 41 20 74 61  62 6c 65 2c 58 0d 03 a2  |1:LDA table,X...|
000004a0  14 43 4d 50 20 23 31 3a  42 4e 45 20 6d 65 6e 75  |.CMP #1:BNE menu|
000004b0  32 0d 03 ac 19 4a 53 52  20 26 38 33 30 30 3a 4a  |2....JSR &8300:J|
000004c0  4d 50 20 63 6c 61 69 6d  65 64 0d 03 b6 0a 2e 6d  |MP claimed.....m|
000004d0  65 6e 75 32 0d 03 c0 15  4c 44 41 20 23 31 32 3a  |enu2....LDA #12:|
000004e0  4a 53 52 20 26 46 46 45  45 0d 03 ca 19 4c 44 58  |JSR &FFEE....LDX|
000004f0  20 23 32 3a 4c 44 41 20  23 31 3a 53 54 41 20 26  | #2:LDA #1:STA &|
00000500  37 46 0d 03 d4 16 4c 44  41 20 23 31 33 34 3a 4a  |7F....LDA #134:J|
00000510  53 52 20 26 46 46 45 45  0d 03 de 13 4c 44 41 20  |SR &FFEE....LDA |
00000520  23 34 38 3a 53 54 41 20  26 38 32 0d 03 e8 0d 2e  |#48:STA &82.....|
00000530  6e 65 78 74 6c 69 6e 65  0d 03 f2 1f 4a 53 52 20  |nextline....JSR |
00000540  26 46 46 45 45 3a 4c 44  41 20 23 34 36 3a 4a 53  |&FFEE:LDA #46:JS|
00000550  52 20 26 46 46 45 45 0d  03 fc 16 4c 44 41 20 23  |R &FFEE....LDA #|
00000560  26 32 30 3a 4a 53 52 20  26 46 46 45 45 0d 04 06  |&20:JSR &FFEE...|
00000570  1b 50 48 58 3a 4a 53 52  20 70 72 74 65 78 74 3a  |.PHX:JSR prtext:|
00000580  4c 44 58 20 23 32 30 31  0d 04 10 17 4c 44 41 20  |LDX #201....LDA |
00000590  74 61 62 6c 65 2c 58 3a  43 4d 50 20 26 37 46 0d  |table,X:CMP &7F.|
000005a0  04 1a 0c 42 45 51 20 63  6f 6e 74 0d 04 24 1f 50  |...BEQ cont..$.P|
000005b0  4c 58 3a 49 4e 43 20 26  37 46 3a 54 58 41 3a 43  |LX:INC &7F:TXA:C|
000005c0  4c 43 3a 41 44 43 20 23  32 30 0d 04 2e 19 54 41  |LC:ADC #20....TA|
000005d0  58 3a 49 4e 43 20 26 38  32 3a 4a 53 52 20 26 46  |X:INC &82:JSR &F|
000005e0  46 45 37 0d 04 38 16 4c  44 41 20 23 31 33 34 3a  |FE7..8.LDA #134:|
000005f0  4a 53 52 20 26 46 46 45  45 0d 04 42 18 4c 44 41  |JSR &FFEE..B.LDA|
00000600  20 26 38 32 3a 4a 4d 50  20 6e 65 78 74 6c 69 6e  | &82:JMP nextlin|
00000610  65 0d 04 4c 09 2e 63 6f  6e 74 0d 04 56 07 50 4c  |e..L..cont..V.PL|
00000620  58 0d 04 60 17 4a 53 52  20 26 46 46 45 37 3a 4a  |X..`.JSR &FFE7:J|
00000630  53 52 20 26 46 46 45 37  0d 04 6a 16 4c 44 41 20  |SR &FFE7..j.LDA |
00000640  23 31 33 34 3a 4a 53 52  20 26 46 46 45 45 0d 04  |#134:JSR &FFEE..|
00000650  74 1d 49 4e 43 20 26 38  32 3a 4c 44 41 20 26 38  |t.INC &82:LDA &8|
00000660  32 3a 4a 53 52 20 26 46  46 45 45 0d 04 7e 15 4c  |2:JSR &FFEE..~.L|
00000670  44 41 20 23 34 36 3a 4a  53 52 20 26 46 46 45 45  |DA #46:JSR &FFEE|
00000680  0d 04 88 16 4c 44 41 20  23 26 32 30 3a 4a 53 52  |....LDA #&20:JSR|
00000690  20 26 46 46 45 45 0d 04  92 16 4c 44 41 20 23 31  | &FFEE....LDA #1|
000006a0  33 34 3a 4a 53 52 20 26  46 46 45 45 0d 04 9c 21  |34:JSR &FFEE...!|
000006b0  4c 44 58 20 23 28 74 65  78 74 32 2d 74 65 78 74  |LDX #(text2-text|
000006c0  29 3a 4a 53 52 20 70 72  74 65 78 74 32 0d 04 a6  |):JSR prtext2...|
000006d0  17 4a 53 52 20 26 46 46  45 37 3a 4a 53 52 20 26  |.JSR &FFE7:JSR &|
000006e0  46 46 45 37 0d 04 b0 0a  2e 63 6f 6e 74 32 0d 04  |FFE7.....cont2..|
000006f0  ba 16 4c 44 41 20 23 31  33 31 3a 4a 53 52 20 26  |..LDA #131:JSR &|
00000700  46 46 45 45 0d 04 c4 21  4c 44 58 20 23 28 74 65  |FFEE...!LDX #(te|
00000710  78 74 31 2d 74 65 78 74  29 3a 4a 53 52 20 70 72  |xt1-text):JSR pr|
00000720  74 65 78 74 32 0d 04 ce  0d 4a 53 52 20 26 46 46  |text2....JSR &FF|
00000730  45 37 0d 04 d8 1a 4a 53  52 20 26 46 46 45 30 3a  |E7....JSR &FFE0:|
00000740  53 45 43 3a 53 42 43 20  23 26 33 30 0d 04 e2 21  |SEC:SBC #&30...!|
00000750  4c 44 58 20 23 32 30 31  3a 43 4d 50 20 74 61 62  |LDX #201:CMP tab|
00000760  6c 65 2c 58 3a 42 45 51  20 6f 76 65 72 0d 04 ec  |le,X:BEQ over...|
00000770  0d 42 43 53 20 63 6f 6e  74 32 0d 04 f6 0b 53 54  |.BCS cont2....ST|
00000780  41 20 26 38 33 0d 05 00  11 4c 44 58 20 23 30 3a  |A &83....LDX #0:|
00000790  4c 44 59 20 23 30 0d 05  0a 0c 2e 66 69 6e 64 61  |LDY #0.....finda|
000007a0  64 64 0d 05 14 15 43 50  59 20 26 38 33 3a 42 45  |dd....CPY &83:BE|
000007b0  51 20 66 6f 75 6e 64 0d  05 1e 17 54 58 41 3a 43  |Q found....TXA:C|
000007c0  4c 43 3a 41 44 43 20 23  32 30 3a 54 41 58 0d 05  |LC:ADC #20:TAX..|
000007d0  28 13 49 4e 59 3a 4a 4d  50 20 66 69 6e 64 61 64  |(.INY:JMP findad|
000007e0  64 0d 05 32 0a 2e 66 6f  75 6e 64 0d 05 3c 1f 4c  |d..2..found..<.L|
000007f0  44 41 20 74 61 62 6c 65  2c 58 3a 53 54 41 20 64  |DA table,X:STA d|
00000800  75 6d 6d 79 2b 31 3a 49  4e 58 0d 05 46 1b 4c 44  |ummy+1:INX..F.LD|
00000810  41 20 74 61 62 6c 65 2c  58 3a 53 54 41 20 64 75  |A table,X:STA du|
00000820  6d 6d 79 2b 32 0d 05 50  15 4c 44 41 20 23 31 32  |mmy+2..P.LDA #12|
00000830  3a 4a 53 52 20 26 46 46  45 45 0d 05 5a 0a 2e 64  |:JSR &FFEE..Z..d|
00000840  75 6d 6d 79 0d 05 64 0c  45 51 55 42 20 26 32 30  |ummy..d.EQUB &20|
00000850  0d 05 6e 0a 45 51 55 57  20 30 0d 05 78 0a 2e 61  |..n.EQUW 0..x..a|
00000860  67 61 69 6e 0d 05 82 17  4a 53 52 20 26 46 46 45  |gain....JSR &FFE|
00000870  37 3a 4a 53 52 20 26 46  46 45 37 0d 05 8c 16 4c  |7:JSR &FFE7....L|
00000880  44 41 20 23 31 33 30 3a  4a 53 52 20 26 46 46 45  |DA #130:JSR &FFE|
00000890  45 0d 05 96 21 4c 44 58  20 23 28 74 65 78 74 33  |E...!LDX #(text3|
000008a0  2d 74 65 78 74 29 3a 4a  53 52 20 70 72 74 65 78  |-text):JSR prtex|
000008b0  74 32 0d 05 a0 0d 4a 53  52 20 26 46 46 45 37 0d  |t2....JSR &FFE7.|
000008c0  05 aa 0b 2e 61 67 61 69  6e 32 0d 05 b4 0d 4a 53  |....again2....JS|
000008d0  52 20 26 46 46 45 30 0d  05 be 14 43 4d 50 20 23  |R &FFE0....CMP #|
000008e0  37 38 3a 42 45 51 20 6f  76 65 72 0d 05 c8 16 43  |78:BEQ over....C|
000008f0  4d 50 20 23 38 39 3a 42  4e 45 20 61 67 61 69 6e  |MP #89:BNE again|
00000900  32 0d 05 d2 0c 4a 4d 50  20 6d 65 6e 75 0d 05 dc  |2....JMP menu...|
00000910  09 2e 6f 76 65 72 0d 05  e6 0f 4a 4d 50 20 63 6c  |..over....JMP cl|
00000920  61 69 6d 65 64 0d 05 f0  0b 2e 70 72 74 65 78 74  |aimed.....prtext|
00000930  0d 05 fa 16 4c 44 41 20  23 31 33 34 3a 4a 53 52  |....LDA #134:JSR|
00000940  20 26 46 46 45 45 0d 06  04 09 2e 70 72 74 32 0d  | &FFEE.....prt2.|
00000950  06 0e 1f 4c 44 41 20 74  61 62 6c 65 2c 58 3a 43  |...LDA table,X:C|
00000960  4d 50 20 23 31 33 3a 42  45 51 20 72 74 73 0d 06  |MP #13:BEQ rts..|
00000970  18 1a 4a 53 52 20 26 46  46 45 45 3a 49 4e 58 3a  |..JSR &FFEE:INX:|
00000980  42 52 41 20 70 72 74 32  0d 06 22 0c 2e 72 74 73  |BRA prt2.."..rts|
00000990  20 52 54 53 0d 06 2c 09  2e 74 65 78 74 0d 06 36  | RTS..,..text..6|
000009a0  24 2e 74 65 78 74 31 20  45 51 55 53 20 22 54 79  |$.text1 EQUS "Ty|
000009b0  70 65 20 6e 75 6d 62 65  72 20 72 65 71 64 2e 20  |pe number reqd. |
000009c0  22 0d 06 40 0a 45 51 55  42 20 30 0d 06 4a 21 2e  |"..@.EQUB 0..J!.|
000009d0  74 65 78 74 32 20 45 51  55 53 20 22 52 65 74 75  |text2 EQUS "Retu|
000009e0  72 6e 20 74 6f 20 42 61  73 69 63 22 0d 06 54 0a  |rn to Basic"..T.|
000009f0  45 51 55 42 20 30 0d 06  5e 0a 2e 74 65 78 74 33  |EQUB 0..^..text3|
00000a00  0d 06 68 21 45 51 55 53  20 22 41 6e 6f 74 68 65  |..h!EQUS "Anothe|
00000a10  72 20 70 72 6f 67 72 61  6d 20 3f 20 59 2f 4e 20  |r program ? Y/N |
00000a20  22 0d 06 72 0a 45 51 55  42 20 30 0d 06 7c 0c 2e  |"..r.EQUB 0..|..|
00000a30  70 72 74 65 78 74 32 0d  06 86 21 4c 44 41 20 74  |prtext2...!LDA t|
00000a40  65 78 74 2c 58 3a 42 45  51 20 72 74 73 32 3a 4a  |ext,X:BEQ rts2:J|
00000a50  53 52 20 26 46 46 45 45  0d 06 90 13 49 4e 58 3a  |SR &FFEE....INX:|
00000a60  42 52 41 20 70 72 74 65  78 74 32 0d 06 9a 09 2e  |BRA prtext2.....|
00000a70  72 74 73 32 0d 06 a4 07  52 54 53 0d 06 ae 05 5d  |rts2....RTS....]|
00000a80  0d 06 b8 05 ed 0d 06 c2  05 e1 0d ff              |............|
00000a8c