� Cumana Touch Pad Utility
� By Carl Dunkley
� (c) The Micro User
(�4
2�23,1,0;0;0;0;0;
<
�assemble
F	�demo
P�
Z:
d
��demo
nxscale=1280/160
x
�reset
��
�	�draw
��0 
��
�:
���reset
��
��3,1
��69,0,0
�
draw=�
�
A%=0:B%=0
��
�:


��draw

�-99�reset

�pad

"�U%�D% draw=�:�0,1

,�P% draw=�:�3,1:�

6�69,A%,B% 

@Y%=1024*(999-Y%)/1000

JX%=1280*X%/1000

T�(X%-A%)<xscale X%=A%

^�(Y%-B%)<4 Y%=B% 

h�draw �X%,Y% ��69,X%,Y%

rA%=X%:B%=Y%

|�

�:

���assemble

�osrdch=&FFE0:oswrch=&FFEE

�osbyte=&FFF4:code=&C00

�� L%=0�2�2

�P%=code:[OPT L%

�.pad

�\clear D%,P%,U%,X% and Y%

�LDY #&10:JSR clear_var

�LDY #&40:JSR clear_var

�LDY #&54:JSR clear_var

�LDY #&60:JSR clear_var

�LDY #&64:JSR clear_var
\set RS232 input stream
#LDA #2:LDX #1:LDY #0:JSR osbyte
#LDA #3:LDX #7:LDY #0:JSR osbyte
&LDA #27:JSR oswrch
0LDA #51:JSR oswrch 
:\read unused header bytes
DJSR osrdch:JSR osrdch
N\-------------------
X\read first char
bJSR read:TAX
l\read second char
v"JSR read:CMP #12:BEQ set_flags
�#\combine first and second chars
�CLC
�
.loop0
�ADC#10:DEX:BNE loop0
�!TAX:JSR osrdch:\ read newline
�(\set P%,U% and D% flags as necessary
�.set_flags
�\check pen down?
�TXA:� #1:BEQ not_pen
�LDY #&40:JSR set_var
� \check for up button pressed
�.not_pen
�TXA:� #8:BEQ not_up
LDY #&54:JSR set_var
.not_up
"\check for down button pressed
 TXA:� #16:BEQ not_down
*LDY #&10:JSR set_var
4
.not_down
>\-------------------
H\calculate X% and Y%
RLDX #0:JSR convert
\LDX #4:JSR convert
f\re-set input stream
p#LDA #2:LDX #0:LDY #0:JSR osbyte
z#LDA #3:LDX #0:LDY #0:JMP osbyte
�\-------------------
�\subroutines
�\-------------------
�&\convert a 3 char string read from
�,\RS232 port (ie.010,123,999) to a number
�.convert
�JSR read:BEQ no_100s
�TAY:LDA #100:JSR mult
�.no_100s
�JSR read:BEQ no_10s
�TAY:LDA #10:JSR mult
�.no_10s
�JSR read:BEQ not_1s
TAY:LDA #1:JSR mult
.not_1s
&JMP osrdch:\ read newline + return
$\-------------------
.\load an integer variable
8.clear_var
B
LDA #0
LBEQ load
V.set_var
`LDA #255
j	.load
t
STA&400,Y
~
STA&401,Y
�
STA&402,Y
�
STA&403,Y
�RTS
�\-------------------
�\read RS232 port
�	.read
�JSR osrdch
�
� #207
�RTS
�\-------------------
�\multiplication subroutine
�	.mult

STA&70


.loop1
CLC
LDA &70
(ADC &460,X
2
STA&460,X
<BCCno_carry
F
INC&461,X
P
.no_carry
ZDEY:BNEloop1
dRTS
n\-------------------
x]:�
��"Save code? (y/n) ";
�� I%=�"YyNn",�)
�� I%:� I%<3 �save
��
�:
�
��save
�)$&700="SAVE PadCode "+�~code+" "+�~P%
�Y%=7:X%=0:�&FFF7:�
�

00000000  0d 00 0a 1e f4 20 43 75  6d 61 6e 61 20 54 6f 75  |..... Cumana Tou|
00000010  63 68 20 50 61 64 20 55  74 69 6c 69 74 79 0d 00  |ch Pad Utility..|
00000020  14 15 f4 20 42 79 20 43  61 72 6c 20 44 75 6e 6b  |... By Carl Dunk|
00000030  6c 65 79 0d 00 1e 18 f4  20 28 63 29 20 54 68 65  |ley..... (c) The|
00000040  20 4d 69 63 72 6f 20 55  73 65 72 0d 00 28 06 eb  | Micro User..(..|
00000050  34 0d 00 32 14 ef 32 33  2c 31 2c 30 3b 30 3b 30  |4..2..23,1,0;0;0|
00000060  3b 30 3b 30 3b 0d 00 3c  0d f2 61 73 73 65 6d 62  |;0;0;..<..assemb|
00000070  6c 65 0d 00 46 09 f2 64  65 6d 6f 0d 00 50 05 e0  |le..F..demo..P..|
00000080  0d 00 5a 05 3a 0d 00 64  0a dd f2 64 65 6d 6f 0d  |..Z.:..d...demo.|
00000090  00 6e 13 78 73 63 61 6c  65 3d 31 32 38 30 2f 31  |.n.xscale=1280/1|
000000a0  36 30 0d 00 78 0a f2 72  65 73 65 74 0d 00 82 05  |60..x..reset....|
000000b0  f5 0d 00 8c 09 f2 64 72  61 77 0d 00 96 07 fd 30  |......draw.....0|
000000c0  20 0d 00 a0 05 e1 0d 00  aa 05 3a 0d 00 b4 0b dd  | .........:.....|
000000d0  f2 72 65 73 65 74 0d 00  be 05 db 0d 00 c8 08 e6  |.reset..........|
000000e0  33 2c 31 0d 00 d2 0b f0  36 39 2c 30 2c 30 0d 00  |3,1.....69,0,0..|
000000f0  dc 0a 64 72 61 77 3d a3  0d 00 e6 0d 41 25 3d 30  |..draw=.....A%=0|
00000100  3a 42 25 3d 30 0d 00 f0  05 e1 0d 00 fa 05 3a 0d  |:B%=0.........:.|
00000110  01 04 0a dd f2 64 72 61  77 0d 01 0e 0f e7 a6 2d  |.....draw......-|
00000120  39 39 f2 72 65 73 65 74  0d 01 18 08 d6 70 61 64  |99.reset.....pad|
00000130  0d 01 22 16 e7 55 25 84  44 25 20 64 72 61 77 3d  |.."..U%.D% draw=|
00000140  b9 3a e6 30 2c 31 0d 01  2c 16 e7 ac 50 25 20 64  |.:.0,1..,...P% d|
00000150  72 61 77 3d a3 3a e6 33  2c 31 3a e1 0d 01 36 0e  |raw=.:.3,1:...6.|
00000160  f0 36 39 2c 41 25 2c 42  25 20 0d 01 40 19 59 25  |.69,A%,B% ..@.Y%|
00000170  3d 31 30 32 34 2a 28 39  39 39 2d 59 25 29 2f 31  |=1024*(999-Y%)/1|
00000180  30 30 30 0d 01 4a 13 58  25 3d 31 32 38 30 2a 58  |000..J.X%=1280*X|
00000190  25 2f 31 30 30 30 0d 01  54 1a e7 94 28 58 25 2d  |%/1000..T...(X%-|
000001a0  41 25 29 3c 78 73 63 61  6c 65 20 58 25 3d 41 25  |A%)<xscale X%=A%|
000001b0  0d 01 5e 16 e7 94 28 59  25 2d 42 25 29 3c 34 20  |..^...(Y%-B%)<4 |
000001c0  59 25 3d 42 25 20 0d 01  68 1b e7 64 72 61 77 20  |Y%=B% ..h..draw |
000001d0  df 58 25 2c 59 25 20 8b  f0 36 39 2c 58 25 2c 59  |.X%,Y% ..69,X%,Y|
000001e0  25 0d 01 72 0f 41 25 3d  58 25 3a 42 25 3d 59 25  |%..r.A%=X%:B%=Y%|
000001f0  0d 01 7c 05 e1 0d 01 86  05 3a 0d 01 90 0e dd f2  |..|......:......|
00000200  61 73 73 65 6d 62 6c 65  0d 01 9a 1d 6f 73 72 64  |assemble....osrd|
00000210  63 68 3d 26 46 46 45 30  3a 6f 73 77 72 63 68 3d  |ch=&FFE0:oswrch=|
00000220  26 46 46 45 45 0d 01 a4  1a 6f 73 62 79 74 65 3d  |&FFEE....osbyte=|
00000230  26 46 46 46 34 3a 63 6f  64 65 3d 26 43 30 30 0d  |&FFF4:code=&C00.|
00000240  01 ae 0e e3 20 4c 25 3d  30 b8 32 88 32 0d 01 b8  |.... L%=0.2.2...|
00000250  13 50 25 3d 63 6f 64 65  3a 5b 4f 50 54 20 4c 25  |.P%=code:[OPT L%|
00000260  0d 01 c2 08 2e 70 61 64  0d 01 cc 1d 5c 63 6c 65  |.....pad....\cle|
00000270  61 72 20 44 25 2c 50 25  2c 55 25 2c 58 25 20 61  |ar D%,P%,U%,X% a|
00000280  6e 64 20 59 25 0d 01 d6  1a 4c 44 59 20 23 26 31  |nd Y%....LDY #&1|
00000290  30 3a 4a 53 52 20 63 6c  65 61 72 5f 76 61 72 0d  |0:JSR clear_var.|
000002a0  01 e0 1a 4c 44 59 20 23  26 34 30 3a 4a 53 52 20  |...LDY #&40:JSR |
000002b0  63 6c 65 61 72 5f 76 61  72 0d 01 ea 1a 4c 44 59  |clear_var....LDY|
000002c0  20 23 26 35 34 3a 4a 53  52 20 63 6c 65 61 72 5f  | #&54:JSR clear_|
000002d0  76 61 72 0d 01 f4 1a 4c  44 59 20 23 26 36 30 3a  |var....LDY #&60:|
000002e0  4a 53 52 20 63 6c 65 61  72 5f 76 61 72 0d 01 fe  |JSR clear_var...|
000002f0  1a 4c 44 59 20 23 26 36  34 3a 4a 53 52 20 63 6c  |.LDY #&64:JSR cl|
00000300  65 61 72 5f 76 61 72 0d  02 08 1b 5c 73 65 74 20  |ear_var....\set |
00000310  52 53 32 33 32 20 69 6e  70 75 74 20 73 74 72 65  |RS232 input stre|
00000320  61 6d 0d 02 12 23 4c 44  41 20 23 32 3a 4c 44 58  |am...#LDA #2:LDX|
00000330  20 23 31 3a 4c 44 59 20  23 30 3a 4a 53 52 20 6f  | #1:LDY #0:JSR o|
00000340  73 62 79 74 65 0d 02 1c  23 4c 44 41 20 23 33 3a  |sbyte...#LDA #3:|
00000350  4c 44 58 20 23 37 3a 4c  44 59 20 23 30 3a 4a 53  |LDX #7:LDY #0:JS|
00000360  52 20 6f 73 62 79 74 65  0d 02 26 16 4c 44 41 20  |R osbyte..&.LDA |
00000370  23 32 37 3a 4a 53 52 20  6f 73 77 72 63 68 0d 02  |#27:JSR oswrch..|
00000380  30 17 4c 44 41 20 23 35  31 3a 4a 53 52 20 6f 73  |0.LDA #51:JSR os|
00000390  77 72 63 68 20 0d 02 3a  1d 5c 72 65 61 64 20 75  |wrch ..:.\read u|
000003a0  6e 75 73 65 64 20 68 65  61 64 65 72 20 62 79 74  |nused header byt|
000003b0  65 73 0d 02 44 19 4a 53  52 20 6f 73 72 64 63 68  |es..D.JSR osrdch|
000003c0  3a 4a 53 52 20 6f 73 72  64 63 68 0d 02 4e 18 5c  |:JSR osrdch..N.\|
000003d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000003e0  2d 2d 2d 0d 02 58 14 5c  72 65 61 64 20 66 69 72  |---..X.\read fir|
000003f0  73 74 20 63 68 61 72 0d  02 62 10 4a 53 52 20 72  |st char..b.JSR r|
00000400  65 61 64 3a 54 41 58 0d  02 6c 15 5c 72 65 61 64  |ead:TAX..l.\read|
00000410  20 73 65 63 6f 6e 64 20  63 68 61 72 0d 02 76 22  | second char..v"|
00000420  4a 53 52 20 72 65 61 64  3a 43 4d 50 20 23 31 32  |JSR read:CMP #12|
00000430  3a 42 45 51 20 73 65 74  5f 66 6c 61 67 73 0d 02  |:BEQ set_flags..|
00000440  80 23 5c 63 6f 6d 62 69  6e 65 20 66 69 72 73 74  |.#\combine first|
00000450  20 61 6e 64 20 73 65 63  6f 6e 64 20 63 68 61 72  | and second char|
00000460  73 0d 02 8a 07 43 4c 43  0d 02 94 0a 2e 6c 6f 6f  |s....CLC.....loo|
00000470  70 30 0d 02 9e 18 41 44  43 23 31 30 3a 44 45 58  |p0....ADC#10:DEX|
00000480  3a 42 4e 45 20 6c 6f 6f  70 30 0d 02 a8 21 54 41  |:BNE loop0...!TA|
00000490  58 3a 4a 53 52 20 6f 73  72 64 63 68 3a 5c 20 72  |X:JSR osrdch:\ r|
000004a0  65 61 64 20 6e 65 77 6c  69 6e 65 0d 02 b2 28 5c  |ead newline...(\|
000004b0  73 65 74 20 50 25 2c 55  25 20 61 6e 64 20 44 25  |set P%,U% and D%|
000004c0  20 66 6c 61 67 73 20 61  73 20 6e 65 63 65 73 73  | flags as necess|
000004d0  61 72 79 0d 02 bc 0e 2e  73 65 74 5f 66 6c 61 67  |ary.....set_flag|
000004e0  73 0d 02 c6 14 5c 63 68  65 63 6b 20 70 65 6e 20  |s....\check pen |
000004f0  64 6f 77 6e 3f 0d 02 d0  18 54 58 41 3a 80 20 23  |down?....TXA:. #|
00000500  31 3a 42 45 51 20 6e 6f  74 5f 70 65 6e 0d 02 da  |1:BEQ not_pen...|
00000510  18 4c 44 59 20 23 26 34  30 3a 4a 53 52 20 73 65  |.LDY #&40:JSR se|
00000520  74 5f 76 61 72 0d 02 e4  20 5c 63 68 65 63 6b 20  |t_var... \check |
00000530  66 6f 72 20 75 70 20 62  75 74 74 6f 6e 20 70 72  |for up button pr|
00000540  65 73 73 65 64 0d 02 ee  0c 2e 6e 6f 74 5f 70 65  |essed.....not_pe|
00000550  6e 0d 02 f8 17 54 58 41  3a 80 20 23 38 3a 42 45  |n....TXA:. #8:BE|
00000560  51 20 6e 6f 74 5f 75 70  0d 03 02 18 4c 44 59 20  |Q not_up....LDY |
00000570  23 26 35 34 3a 4a 53 52  20 73 65 74 5f 76 61 72  |#&54:JSR set_var|
00000580  0d 03 0c 0b 2e 6e 6f 74  5f 75 70 0d 03 16 22 5c  |.....not_up..."\|
00000590  63 68 65 63 6b 20 66 6f  72 20 64 6f 77 6e 20 62  |check for down b|
000005a0  75 74 74 6f 6e 20 70 72  65 73 73 65 64 0d 03 20  |utton pressed.. |
000005b0  1a 54 58 41 3a 80 20 23  31 36 3a 42 45 51 20 6e  |.TXA:. #16:BEQ n|
000005c0  6f 74 5f 64 6f 77 6e 0d  03 2a 18 4c 44 59 20 23  |ot_down..*.LDY #|
000005d0  26 31 30 3a 4a 53 52 20  73 65 74 5f 76 61 72 0d  |&10:JSR set_var.|
000005e0  03 34 0d 2e 6e 6f 74 5f  64 6f 77 6e 0d 03 3e 18  |.4..not_down..>.|
000005f0  5c 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |\---------------|
00000600  2d 2d 2d 2d 0d 03 48 18  5c 63 61 6c 63 75 6c 61  |----..H.\calcula|
00000610  74 65 20 58 25 20 61 6e  64 20 59 25 0d 03 52 16  |te X% and Y%..R.|
00000620  4c 44 58 20 23 30 3a 4a  53 52 20 63 6f 6e 76 65  |LDX #0:JSR conve|
00000630  72 74 0d 03 5c 16 4c 44  58 20 23 34 3a 4a 53 52  |rt..\.LDX #4:JSR|
00000640  20 63 6f 6e 76 65 72 74  0d 03 66 18 5c 72 65 2d  | convert..f.\re-|
00000650  73 65 74 20 69 6e 70 75  74 20 73 74 72 65 61 6d  |set input stream|
00000660  0d 03 70 23 4c 44 41 20  23 32 3a 4c 44 58 20 23  |..p#LDA #2:LDX #|
00000670  30 3a 4c 44 59 20 23 30  3a 4a 53 52 20 6f 73 62  |0:LDY #0:JSR osb|
00000680  79 74 65 0d 03 7a 23 4c  44 41 20 23 33 3a 4c 44  |yte..z#LDA #3:LD|
00000690  58 20 23 30 3a 4c 44 59  20 23 30 3a 4a 4d 50 20  |X #0:LDY #0:JMP |
000006a0  6f 73 62 79 74 65 0d 03  84 18 5c 2d 2d 2d 2d 2d  |osbyte....\-----|
000006b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 03  |--------------..|
000006c0  8e 10 5c 73 75 62 72 6f  75 74 69 6e 65 73 0d 03  |..\subroutines..|
000006d0  98 18 5c 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..\-------------|
000006e0  2d 2d 2d 2d 2d 2d 0d 03  a2 26 5c 63 6f 6e 76 65  |------...&\conve|
000006f0  72 74 20 61 20 33 20 63  68 61 72 20 73 74 72 69  |rt a 3 char stri|
00000700  6e 67 20 72 65 61 64 20  66 72 6f 6d 0d 03 ac 2c  |ng read from...,|
00000710  5c 52 53 32 33 32 20 70  6f 72 74 20 28 69 65 2e  |\RS232 port (ie.|
00000720  30 31 30 2c 31 32 33 2c  39 39 39 29 20 74 6f 20  |010,123,999) to |
00000730  61 20 6e 75 6d 62 65 72  0d 03 b6 0c 2e 63 6f 6e  |a number.....con|
00000740  76 65 72 74 0d 03 c0 18  4a 53 52 20 72 65 61 64  |vert....JSR read|
00000750  3a 42 45 51 20 6e 6f 5f  31 30 30 73 0d 03 ca 19  |:BEQ no_100s....|
00000760  54 41 59 3a 4c 44 41 20  23 31 30 30 3a 4a 53 52  |TAY:LDA #100:JSR|
00000770  20 6d 75 6c 74 0d 03 d4  0c 2e 6e 6f 5f 31 30 30  | mult.....no_100|
00000780  73 0d 03 de 17 4a 53 52  20 72 65 61 64 3a 42 45  |s....JSR read:BE|
00000790  51 20 6e 6f 5f 31 30 73  0d 03 e8 18 54 41 59 3a  |Q no_10s....TAY:|
000007a0  4c 44 41 20 23 31 30 3a  4a 53 52 20 6d 75 6c 74  |LDA #10:JSR mult|
000007b0  0d 03 f2 0b 2e 6e 6f 5f  31 30 73 0d 03 fc 17 4a  |.....no_10s....J|
000007c0  53 52 20 72 65 61 64 3a  42 45 51 20 6e 6f 74 5f  |SR read:BEQ not_|
000007d0  31 73 0d 04 06 17 54 41  59 3a 4c 44 41 20 23 31  |1s....TAY:LDA #1|
000007e0  3a 4a 53 52 20 6d 75 6c  74 0d 04 10 0b 2e 6e 6f  |:JSR mult.....no|
000007f0  74 5f 31 73 0d 04 1a 26  4a 4d 50 20 6f 73 72 64  |t_1s...&JMP osrd|
00000800  63 68 3a 5c 20 72 65 61  64 20 6e 65 77 6c 69 6e  |ch:\ read newlin|
00000810  65 20 2b 20 72 65 74 75  72 6e 0d 04 24 18 5c 2d  |e + return..$.\-|
00000820  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000830  2d 2d 0d 04 2e 1d 5c 6c  6f 61 64 20 61 6e 20 69  |--....\load an i|
00000840  6e 74 65 67 65 72 20 76  61 72 69 61 62 6c 65 0d  |nteger variable.|
00000850  04 38 0e 2e 63 6c 65 61  72 5f 76 61 72 0d 04 42  |.8..clear_var..B|
00000860  0a 4c 44 41 20 23 30 0d  04 4c 0c 42 45 51 20 6c  |.LDA #0..L.BEQ l|
00000870  6f 61 64 0d 04 56 0c 2e  73 65 74 5f 76 61 72 0d  |oad..V..set_var.|
00000880  04 60 0c 4c 44 41 20 23  32 35 35 0d 04 6a 09 2e  |.`.LDA #255..j..|
00000890  6c 6f 61 64 0d 04 74 0d  53 54 41 26 34 30 30 2c  |load..t.STA&400,|
000008a0  59 0d 04 7e 0d 53 54 41  26 34 30 31 2c 59 0d 04  |Y..~.STA&401,Y..|
000008b0  88 0d 53 54 41 26 34 30  32 2c 59 0d 04 92 0d 53  |..STA&402,Y....S|
000008c0  54 41 26 34 30 33 2c 59  0d 04 9c 07 52 54 53 0d  |TA&403,Y....RTS.|
000008d0  04 a6 18 5c 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...\------------|
000008e0  2d 2d 2d 2d 2d 2d 2d 0d  04 b0 14 5c 72 65 61 64  |-------....\read|
000008f0  20 52 53 32 33 32 20 70  6f 72 74 0d 04 ba 09 2e  | RS232 port.....|
00000900  72 65 61 64 0d 04 c4 0e  4a 53 52 20 6f 73 72 64  |read....JSR osrd|
00000910  63 68 0d 04 ce 0a 80 20  23 32 30 37 0d 04 d8 07  |ch..... #207....|
00000920  52 54 53 0d 04 e2 18 5c  2d 2d 2d 2d 2d 2d 2d 2d  |RTS....\--------|
00000930  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 04 ec 1e 5c  |-----------....\|
00000940  6d 75 6c 74 69 70 6c 69  63 61 74 69 6f 6e 20 73  |multiplication s|
00000950  75 62 72 6f 75 74 69 6e  65 0d 04 f6 09 2e 6d 75  |ubroutine.....mu|
00000960  6c 74 0d 05 00 0a 53 54  41 26 37 30 0d 05 0a 0a  |lt....STA&70....|
00000970  2e 6c 6f 6f 70 31 0d 05  14 07 43 4c 43 0d 05 1e  |.loop1....CLC...|
00000980  0b 4c 44 41 20 26 37 30  0d 05 28 0e 41 44 43 20  |.LDA &70..(.ADC |
00000990  26 34 36 30 2c 58 0d 05  32 0d 53 54 41 26 34 36  |&460,X..2.STA&46|
000009a0  30 2c 58 0d 05 3c 0f 42  43 43 6e 6f 5f 63 61 72  |0,X..<.BCCno_car|
000009b0  72 79 0d 05 46 0d 49 4e  43 26 34 36 31 2c 58 0d  |ry..F.INC&461,X.|
000009c0  05 50 0d 2e 6e 6f 5f 63  61 72 72 79 0d 05 5a 10  |.P..no_carry..Z.|
000009d0  44 45 59 3a 42 4e 45 6c  6f 6f 70 31 0d 05 64 07  |DEY:BNEloop1..d.|
000009e0  52 54 53 0d 05 6e 18 5c  2d 2d 2d 2d 2d 2d 2d 2d  |RTS..n.\--------|
000009f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 05 78 07 5d  |-----------..x.]|
00000a00  3a ed 0d 05 82 19 f1 22  53 61 76 65 20 63 6f 64  |:......"Save cod|
00000a10  65 3f 20 28 79 2f 6e 29  20 22 3b 0d 05 8c 13 f5  |e? (y/n) ";.....|
00000a20  20 49 25 3d a7 22 59 79  4e 6e 22 2c be 29 0d 05  | I%=."YyNn",.)..|
00000a30  96 15 fd 20 49 25 3a e7  20 49 25 3c 33 20 f2 73  |... I%:. I%<3 .s|
00000a40  61 76 65 0d 05 a0 05 e1  0d 05 aa 05 3a 0d 05 b4  |ave.........:...|
00000a50  0a dd f2 73 61 76 65 0d  05 be 29 24 26 37 30 30  |...save...)$&700|
00000a60  3d 22 53 41 56 45 20 50  61 64 43 6f 64 65 20 22  |="SAVE PadCode "|
00000a70  2b c3 7e 63 6f 64 65 2b  22 20 22 2b c3 7e 50 25  |+.~code+" "+.~P%|
00000a80  0d 05 c8 16 59 25 3d 37  3a 58 25 3d 30 3a d6 26  |....Y%=7:X%=0:.&|
00000a90  46 46 46 37 3a e1 0d ff                           |FFF7:...|
00000a98