� >Touch1
(� By Mike Cook - Musbury Consultants
*KEY1 PROC_SPB(2)
(� CODE% 200
2NewH%=�
<
F	�_CSU
PA%=&FFFF
Z� � � �Dn@
dș &42EC0 � A%,B%
n-� A%<>0 � NewH%=�:ș"Parallel_Op",2,&DF,0
x	� � �
�
�� 21 :� Change to your mode
�+CB%=0: CC%=7 : � The two colours to use
�*POINTER 1
�
��_SetUp
��
��_Tread
��_Tdisp
�� �(-99)
��_SPB(2)
��
�

� Set printer bits

� �_SPB(B%)


!PBITS=B%

"� NewH% � �_NHS � � SPB

,�

6

@� �_NHS

Jș"Parallel_Op",1,!PBITS

T�

^

h� Read Status Bits

r
� �_RS

|� NewH% � �_NH � � RS

�!BITS=!BITS � 3

��

�

�
� �_NH

�ș"Parallel_Op",0 � ,,B%

�!BITS=(B%>>6) � 1

��

�

�� �_CSU :� CODE SETUP

�� A=0 � 2 � 2

�P%=CODE%

�[

�	OPT A

2.BITS EQUD 0 \ Place to store the control bits

&.RS
0STMFD R13!,{R14}
:MOV R9,R15
DSWI "OS_EnterOS"
N#MOVNV R0,R0        \ JUST DELAY
X,MOV R0, #&3200000   \ BASE ADDRESS � IOC
b+ADD R1,R0,#&50000    \ BASE � �ER LATCH
l
v\ Get Control Lines
�LDR R4,[R0,#&10] \ � BUSY
�LDR R5,[R0,#&00]  \ � ACK
�
�)� R4,R4,#1      \ Merge them together
�� R5,R5,#&40
�MOV R5,R5,LSR #5
��R R5,R5,R4
�
�-� R5,R5,#2 \ Get the ACK the right way up
�%STR R5,BITS \ Store the bit state
�
�\PREPARE � EXIT
�TEQP R9,#0
MOVNV R0,R0
-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME

 5.PBITS EQUD 0 \ Place to pass printer bit pattern
*\ Set Printer Bits
4.SPB
>STMFD R13!,{R14}
HMOV R9,R15
RSWI "OS_EnterOS"
\#MOVNV R0,R0        \ JUST DELAY
f,MOV R0, #&3200000   \ BASE ADDRESS � IOC
p+ADD R1,R0,#&50000    \ BASE � �ER LATCH
z
�#LDR R2,PBITS \ Data output high
�MOV R2,R2,ASL #16
�STR R2,[R1,#&10]
�
�\PREPARE � EXIT
�TEQP R9,#0
�MOVNV R0,R0
�-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
�]
��
��
�
�I� This sets XT% and YT% with a 1 in each bit with an interrupted beam

� �_Tread
�_SPB(2)
XT%=0:YT%=0
$�_SPB(0)
.
8� A%=0 � 7
B�_SPB(1)
L�_SPB(0)
V
T%=�+1
`� � �>T%
j�_RS
tXT%=XT%>>1
~XT%=XT% � ((!BITS � 1)<<7)
�YT%=YT%<<1
�YT%=YT% � (!BITS>>1 � 1)
��
��_SPB(1)
��
�
�
� �_Tdisp
�� XTT%,YTT%
�XTT%=XT%:YTT%=YT%
�� A%=0 � 7
�,� (XTT% � 1)<>0 � � 0,CC% � � 0,CB% Ȝ 0
�ȓ XO%+90+A%*100,100,30,640


XTT%=XTT%>>1
�
� A%=7 � 0 � -1
(-� (YTT% � 1)<>0  � � 0,CC% � � 0,CB% Ȝ 0
2ȓ XO%+40,680-A%*80,840,30
<YTT%=YTT%>>1
F�
PK� Use the mouse pointer to see where your touches occour on your screen
Zȗ X%,Y%,B%
d� �30,5);" X - ";X%;�(3)
n� �30,6);" Y - ";Y%;�(3)
x�
�
�
� �_SetUp
�#�"Body Build Touch Screen Test"
��"By Mike Cook"
��"Space to quit"
�� 5
�XO%=250
�
Y%=780
�� X%=0 � 7
�� XO%+X%*100,Y%
�	�;X%;
��
�XO%-=100

Y%-=80
	YP%=7
� Y1%=0 � 7
"� XO%,Y%-Y1%*80
,
�;YP%;
6
YP%-=1
@�
J�4
T�
�

00000000  0d 00 0a 0d f4 20 3e 54  6f 75 63 68 31 0d 00 14  |..... >Touch1...|
00000010  28 f4 20 42 79 20 4d 69  6b 65 20 43 6f 6f 6b 20  |(. By Mike Cook |
00000020  2d 20 4d 75 73 62 75 72  79 20 43 6f 6e 73 75 6c  |- Musbury Consul|
00000030  74 61 6e 74 73 0d 00 1e  15 2a 4b 45 59 31 20 50  |tants....*KEY1 P|
00000040  52 4f 43 5f 53 50 42 28  32 29 0d 00 28 0f de 20  |ROC_SPB(2)..(.. |
00000050  43 4f 44 45 25 20 32 30  30 0d 00 32 0b 4e 65 77  |CODE% 200..2.New|
00000060  48 25 3d a3 0d 00 3c 04  0d 00 46 09 f2 5f 43 53  |H%=...<...F.._CS|
00000070  55 0d 00 50 0c 41 25 3d  26 46 46 46 46 0d 00 5a  |U..P.A%=&FFFF..Z|
00000080  0e ee 20 85 20 e5 20 8d  44 6e 40 0d 00 64 15 c8  |.. . . .Dn@..d..|
00000090  99 20 26 34 32 45 43 30  20 b8 20 41 25 2c 42 25  |. &42EC0 . A%,B%|
000000a0  0d 00 6e 2d e7 20 41 25  3c 3e 30 20 8c 20 4e 65  |..n-. A%<>0 . Ne|
000000b0  77 48 25 3d b9 3a c8 99  22 50 61 72 61 6c 6c 65  |wH%=.:.."Paralle|
000000c0  6c 5f 4f 70 22 2c 32 2c  26 44 46 2c 30 0d 00 78  |l_Op",2,&DF,0..x|
000000d0  09 ee 20 85 20 87 0d 00  82 04 0d 00 8c 1f eb 20  |.. . .......... |
000000e0  32 31 20 3a f4 20 43 68  61 6e 67 65 20 74 6f 20  |21 :. Change to |
000000f0  79 6f 75 72 20 6d 6f 64  65 0d 00 96 2b 43 42 25  |your mode...+CB%|
00000100  3d 30 3a 20 43 43 25 3d  37 20 3a 20 f4 20 54 68  |=0: CC%=7 : . Th|
00000110  65 20 74 77 6f 20 63 6f  6c 6f 75 72 73 20 74 6f  |e two colours to|
00000120  20 75 73 65 0d 00 a0 0e  2a 50 4f 49 4e 54 45 52  | use....*POINTER|
00000130  20 31 0d 00 aa 04 0d 00  b4 0b f2 5f 53 65 74 55  | 1........._SetU|
00000140  70 0d 00 be 05 f5 0d 00  c8 0b f2 5f 54 72 65 61  |p.........._Trea|
00000150  64 0d 00 d2 0b f2 5f 54  64 69 73 70 0d 00 dc 0c  |d....._Tdisp....|
00000160  fd 20 a6 28 2d 39 39 29  0d 00 e6 0c f2 5f 53 50  |. .(-99)....._SP|
00000170  42 28 32 29 0d 00 f0 05  e0 0d 00 fa 04 0d 01 04  |B(2)............|
00000180  16 f4 20 53 65 74 20 70  72 69 6e 74 65 72 20 62  |.. Set printer b|
00000190  69 74 73 0d 01 0e 0f dd  20 f2 5f 53 50 42 28 42  |its..... ._SPB(B|
000001a0  25 29 0d 01 18 0d 21 50  42 49 54 53 3d 42 25 0d  |%)....!PBITS=B%.|
000001b0  01 22 1b e7 20 4e 65 77  48 25 20 8c 20 f2 5f 4e  |.".. NewH% . ._N|
000001c0  48 53 20 8b 20 d6 20 53  50 42 0d 01 2c 05 e1 0d  |HS . . SPB..,...|
000001d0  01 36 04 0d 01 40 0b dd  20 f2 5f 4e 48 53 0d 01  |.6...@.. ._NHS..|
000001e0  4a 1c c8 99 22 50 61 72  61 6c 6c 65 6c 5f 4f 70  |J..."Parallel_Op|
000001f0  22 2c 31 2c 21 50 42 49  54 53 0d 01 54 05 e1 0d  |",1,!PBITS..T...|
00000200  01 5e 04 0d 01 68 16 f4  20 52 65 61 64 20 53 74  |.^...h.. Read St|
00000210  61 74 75 73 20 42 69 74  73 0d 01 72 0a dd 20 f2  |atus Bits..r.. .|
00000220  5f 52 53 0d 01 7c 19 e7  20 4e 65 77 48 25 20 8c  |_RS..|.. NewH% .|
00000230  20 f2 5f 4e 48 20 8b 20  d6 20 52 53 0d 01 86 13  | ._NH . . RS....|
00000240  21 42 49 54 53 3d 21 42  49 54 53 20 82 20 33 0d  |!BITS=!BITS . 3.|
00000250  01 90 05 e1 0d 01 9a 04  0d 01 a4 0a dd 20 f2 5f  |............. ._|
00000260  4e 48 0d 01 ae 1c c8 99  22 50 61 72 61 6c 6c 65  |NH......"Paralle|
00000270  6c 5f 4f 70 22 2c 30 20  b8 20 2c 2c 42 25 0d 01  |l_Op",0 . ,,B%..|
00000280  b8 15 21 42 49 54 53 3d  28 42 25 3e 3e 36 29 20  |..!BITS=(B%>>6) |
00000290  82 20 31 0d 01 c2 05 e1  0d 01 cc 04 0d 01 d6 19  |. 1.............|
000002a0  dd 20 f2 5f 43 53 55 20  3a f4 20 43 4f 44 45 20  |. ._CSU :. CODE |
000002b0  53 45 54 55 50 0d 01 e0  11 e3 20 41 3d 30 20 b8  |SETUP..... A=0 .|
000002c0  20 32 20 88 20 32 0d 01  ea 0c 50 25 3d 43 4f 44  | 2 . 2....P%=COD|
000002d0  45 25 0d 01 f4 05 5b 0d  01 fe 09 4f 50 54 20 41  |E%....[....OPT A|
000002e0  0d 02 08 04 0d 02 12 32  2e 42 49 54 53 20 45 51  |.......2.BITS EQ|
000002f0  55 44 20 30 20 5c 20 50  6c 61 63 65 20 74 6f 20  |UD 0 \ Place to |
00000300  73 74 6f 72 65 20 74 68  65 20 63 6f 6e 74 72 6f  |store the contro|
00000310  6c 20 62 69 74 73 0d 02  1c 04 0d 02 26 07 2e 52  |l bits......&..R|
00000320  53 0d 02 30 14 53 54 4d  46 44 20 52 31 33 21 2c  |S..0.STMFD R13!,|
00000330  7b 52 31 34 7d 0d 02 3a  0e 4d 4f 56 20 52 39 2c  |{R14}..:.MOV R9,|
00000340  52 31 35 0d 02 44 14 53  57 49 20 22 4f 53 5f 45  |R15..D.SWI "OS_E|
00000350  6e 74 65 72 4f 53 22 0d  02 4e 23 4d 4f 56 4e 56  |nterOS"..N#MOVNV|
00000360  20 52 30 2c 52 30 20 20  20 20 20 20 20 20 5c 20  | R0,R0        \ |
00000370  4a 55 53 54 20 44 45 4c  41 59 0d 02 58 2c 4d 4f  |JUST DELAY..X,MO|
00000380  56 20 52 30 2c 20 23 26  33 32 30 30 30 30 30 20  |V R0, #&3200000 |
00000390  20 20 5c 20 42 41 53 45  20 41 44 44 52 45 53 53  |  \ BASE ADDRESS|
000003a0  20 ca 20 49 4f 43 0d 02  62 2b 41 44 44 20 52 31  | . IOC..b+ADD R1|
000003b0  2c 52 30 2c 23 26 35 30  30 30 30 20 20 20 20 5c  |,R0,#&50000    \|
000003c0  20 42 41 53 45 20 ca 20  f1 45 52 20 4c 41 54 43  | BASE . .ER LATC|
000003d0  48 0d 02 6c 04 0d 02 76  17 5c 20 47 65 74 20 43  |H..l...v.\ Get C|
000003e0  6f 6e 74 72 6f 6c 20 4c  69 6e 65 73 0d 02 80 1d  |ontrol Lines....|
000003f0  4c 44 52 20 52 34 2c 5b  52 30 2c 23 26 31 30 5d  |LDR R4,[R0,#&10]|
00000400  20 5c 20 a5 20 42 55 53  59 0d 02 8a 1d 4c 44 52  | \ . BUSY....LDR|
00000410  20 52 35 2c 5b 52 30 2c  23 26 30 30 5d 20 20 5c  | R5,[R0,#&00]  \|
00000420  20 a5 20 41 43 4b 0d 02  94 04 0d 02 9e 29 80 20  | . ACK.......). |
00000430  52 34 2c 52 34 2c 23 31  20 20 20 20 20 20 5c 20  |R4,R4,#1      \ |
00000440  4d 65 72 67 65 20 74 68  65 6d 20 74 6f 67 65 74  |Merge them toget|
00000450  68 65 72 0d 02 a8 10 80  20 52 35 2c 52 35 2c 23  |her..... R5,R5,#|
00000460  26 34 30 0d 02 b2 14 4d  4f 56 20 52 35 2c 52 35  |&40....MOV R5,R5|
00000470  2c 4c 53 52 20 23 35 0d  02 bc 0f 84 52 20 52 35  |,LSR #5.....R R5|
00000480  2c 52 35 2c 52 34 0d 02  c6 04 0d 02 d0 2d 82 20  |,R5,R4.......-. |
00000490  52 35 2c 52 35 2c 23 32  20 5c 20 47 65 74 20 74  |R5,R5,#2 \ Get t|
000004a0  68 65 20 41 43 4b 20 74  68 65 20 72 69 67 68 74  |he ACK the right|
000004b0  20 77 61 79 20 75 70 0d  02 da 25 53 54 52 20 52  | way up...%STR R|
000004c0  35 2c 42 49 54 53 20 5c  20 53 74 6f 72 65 20 74  |5,BITS \ Store t|
000004d0  68 65 20 62 69 74 20 73  74 61 74 65 0d 02 e4 04  |he bit state....|
000004e0  0d 02 ee 13 5c 50 52 45  50 41 52 45 20 b8 20 45  |....\PREPARE . E|
000004f0  58 49 54 0d 02 f8 0e 54  45 51 50 20 52 39 2c 23  |XIT....TEQP R9,#|
00000500  30 0d 03 02 0f 4d 4f 56  4e 56 20 52 30 2c 52 30  |0....MOVNV R0,R0|
00000510  0d 03 0c 2d 4c 44 4d 46  44 20 52 31 33 21 2c 20  |...-LDMFD R13!, |
00000520  7b 50 43 7d 20 5c 20 42  41 43 4b 20 46 52 4f 4d  |{PC} \ BACK FROM|
00000530  20 c9 53 54 20 59 4f 55  20 43 41 4d 45 0d 03 16  | .ST YOU CAME...|
00000540  04 0d 03 20 35 2e 50 42  49 54 53 20 45 51 55 44  |... 5.PBITS EQUD|
00000550  20 30 20 5c 20 50 6c 61  63 65 20 74 6f 20 70 61  | 0 \ Place to pa|
00000560  73 73 20 70 72 69 6e 74  65 72 20 62 69 74 20 70  |ss printer bit p|
00000570  61 74 74 65 72 6e 0d 03  2a 16 5c 20 53 65 74 20  |attern..*.\ Set |
00000580  50 72 69 6e 74 65 72 20  42 69 74 73 0d 03 34 08  |Printer Bits..4.|
00000590  2e 53 50 42 0d 03 3e 14  53 54 4d 46 44 20 52 31  |.SPB..>.STMFD R1|
000005a0  33 21 2c 7b 52 31 34 7d  0d 03 48 0e 4d 4f 56 20  |3!,{R14}..H.MOV |
000005b0  52 39 2c 52 31 35 0d 03  52 14 53 57 49 20 22 4f  |R9,R15..R.SWI "O|
000005c0  53 5f 45 6e 74 65 72 4f  53 22 0d 03 5c 23 4d 4f  |S_EnterOS"..\#MO|
000005d0  56 4e 56 20 52 30 2c 52  30 20 20 20 20 20 20 20  |VNV R0,R0       |
000005e0  20 5c 20 4a 55 53 54 20  44 45 4c 41 59 0d 03 66  | \ JUST DELAY..f|
000005f0  2c 4d 4f 56 20 52 30 2c  20 23 26 33 32 30 30 30  |,MOV R0, #&32000|
00000600  30 30 20 20 20 5c 20 42  41 53 45 20 41 44 44 52  |00   \ BASE ADDR|
00000610  45 53 53 20 ca 20 49 4f  43 0d 03 70 2b 41 44 44  |ESS . IOC..p+ADD|
00000620  20 52 31 2c 52 30 2c 23  26 35 30 30 30 30 20 20  | R1,R0,#&50000  |
00000630  20 20 5c 20 42 41 53 45  20 ca 20 f1 45 52 20 4c  |  \ BASE . .ER L|
00000640  41 54 43 48 0d 03 7a 04  0d 03 84 23 4c 44 52 20  |ATCH..z....#LDR |
00000650  52 32 2c 50 42 49 54 53  20 5c 20 44 61 74 61 20  |R2,PBITS \ Data |
00000660  6f 75 74 70 75 74 20 68  69 67 68 0d 03 8e 15 4d  |output high....M|
00000670  4f 56 20 52 32 2c 52 32  2c 41 53 4c 20 23 31 36  |OV R2,R2,ASL #16|
00000680  0d 03 98 14 53 54 52 20  52 32 2c 5b 52 31 2c 23  |....STR R2,[R1,#|
00000690  26 31 30 5d 0d 03 a2 04  0d 03 ac 13 5c 50 52 45  |&10]........\PRE|
000006a0  50 41 52 45 20 b8 20 45  58 49 54 0d 03 b6 0e 54  |PARE . EXIT....T|
000006b0  45 51 50 20 52 39 2c 23  30 0d 03 c0 0f 4d 4f 56  |EQP R9,#0....MOV|
000006c0  4e 56 20 52 30 2c 52 30  0d 03 ca 2d 4c 44 4d 46  |NV R0,R0...-LDMF|
000006d0  44 20 52 31 33 21 2c 20  7b 50 43 7d 20 5c 20 42  |D R13!, {PC} \ B|
000006e0  41 43 4b 20 46 52 4f 4d  20 c9 53 54 20 59 4f 55  |ACK FROM .ST YOU|
000006f0  20 43 41 4d 45 0d 03 d4  05 5d 0d 03 de 05 ed 0d  | CAME....]......|
00000700  03 e8 05 e1 0d 03 f2 04  0d 03 fc 49 f4 20 54 68  |...........I. Th|
00000710  69 73 20 73 65 74 73 20  58 54 25 20 61 6e 64 20  |is sets XT% and |
00000720  59 54 25 20 77 69 74 68  20 61 20 31 20 69 6e 20  |YT% with a 1 in |
00000730  65 61 63 68 20 62 69 74  20 77 69 74 68 20 61 6e  |each bit with an|
00000740  20 69 6e 74 65 72 72 75  70 74 65 64 20 62 65 61  | interrupted bea|
00000750  6d 0d 04 06 0d dd 20 f2  5f 54 72 65 61 64 0d 04  |m..... ._Tread..|
00000760  10 0c f2 5f 53 50 42 28  32 29 0d 04 1a 0f 58 54  |..._SPB(2)....XT|
00000770  25 3d 30 3a 59 54 25 3d  30 0d 04 24 0c f2 5f 53  |%=0:YT%=0..$.._S|
00000780  50 42 28 30 29 0d 04 2e  04 0d 04 38 0e e3 20 41  |PB(0)......8.. A|
00000790  25 3d 30 20 b8 20 37 0d  04 42 0c f2 5f 53 50 42  |%=0 . 7..B.._SPB|
000007a0  28 31 29 0d 04 4c 0c f2  5f 53 50 42 28 30 29 0d  |(1)..L.._SPB(0).|
000007b0  04 56 0a 54 25 3d 91 2b  31 0d 04 60 0c f5 20 fd  |.V.T%=.+1..`.. .|
000007c0  20 91 3e 54 25 0d 04 6a  08 f2 5f 52 53 0d 04 74  | .>T%..j.._RS..t|
000007d0  0e 58 54 25 3d 58 54 25  3e 3e 31 0d 04 7e 1e 58  |.XT%=XT%>>1..~.X|
000007e0  54 25 3d 58 54 25 20 84  20 28 28 21 42 49 54 53  |T%=XT% . ((!BITS|
000007f0  20 80 20 31 29 3c 3c 37  29 0d 04 88 0e 59 54 25  | . 1)<<7)....YT%|
00000800  3d 59 54 25 3c 3c 31 0d  04 92 1c 59 54 25 3d 59  |=YT%<<1....YT%=Y|
00000810  54 25 20 84 20 28 21 42  49 54 53 3e 3e 31 20 80  |T% . (!BITS>>1 .|
00000820  20 31 29 0d 04 9c 05 ed  0d 04 a6 0c f2 5f 53 50  | 1).........._SP|
00000830  42 28 31 29 0d 04 b0 05  e1 0d 04 ba 04 0d 04 c4  |B(1)............|
00000840  0d dd 20 f2 5f 54 64 69  73 70 0d 04 ce 0f ea 20  |.. ._Tdisp..... |
00000850  58 54 54 25 2c 59 54 54  25 0d 04 d8 15 58 54 54  |XTT%,YTT%....XTT|
00000860  25 3d 58 54 25 3a 59 54  54 25 3d 59 54 25 0d 04  |%=XT%:YTT%=YT%..|
00000870  e2 0e e3 20 41 25 3d 30  20 b8 20 37 0d 04 ec 2c  |... A%=0 . 7...,|
00000880  e7 20 28 58 54 54 25 20  80 20 31 29 3c 3e 30 20  |. (XTT% . 1)<>0 |
00000890  8c 20 e6 20 30 2c 43 43  25 20 8b 20 e6 20 30 2c  |. . 0,CC% . . 0,|
000008a0  43 42 25 20 c8 9c 20 30  0d 04 f6 1f c8 93 20 58  |CB% .. 0...... X|
000008b0  4f 25 2b 39 30 2b 41 25  2a 31 30 30 2c 31 30 30  |O%+90+A%*100,100|
000008c0  2c 33 30 2c 36 34 30 0d  05 00 04 0d 05 0a 10 58  |,30,640........X|
000008d0  54 54 25 3d 58 54 54 25  3e 3e 31 0d 05 14 05 ed  |TT%=XTT%>>1.....|
000008e0  0d 05 1e 13 e3 20 41 25  3d 37 20 b8 20 30 20 88  |..... A%=7 . 0 .|
000008f0  20 2d 31 0d 05 28 2d e7  20 28 59 54 54 25 20 80  | -1..(-. (YTT% .|
00000900  20 31 29 3c 3e 30 20 20  8c 20 e6 20 30 2c 43 43  | 1)<>0  . . 0,CC|
00000910  25 20 8b 20 e6 20 30 2c  43 42 25 20 c8 9c 20 30  |% . . 0,CB% .. 0|
00000920  0d 05 32 1e c8 93 20 58  4f 25 2b 34 30 2c 36 38  |..2... XO%+40,68|
00000930  30 2d 41 25 2a 38 30 2c  38 34 30 2c 33 30 0d 05  |0-A%*80,840,30..|
00000940  3c 10 59 54 54 25 3d 59  54 54 25 3e 3e 31 0d 05  |<.YTT%=YTT%>>1..|
00000950  46 05 ed 0d 05 50 4b f4  20 55 73 65 20 74 68 65  |F....PK. Use the|
00000960  20 6d 6f 75 73 65 20 70  6f 69 6e 74 65 72 20 74  | mouse pointer t|
00000970  6f 20 73 65 65 20 77 68  65 72 65 20 79 6f 75 72  |o see where your|
00000980  20 74 6f 75 63 68 65 73  20 6f 63 63 6f 75 72 20  | touches occour |
00000990  6f 6e 20 79 6f 75 72 20  73 63 72 65 65 6e 0d 05  |on your screen..|
000009a0  5a 0f c8 97 20 58 25 2c  59 25 2c 42 25 0d 05 64  |Z... X%,Y%,B%..d|
000009b0  1c f1 20 8a 33 30 2c 35  29 3b 22 20 58 20 2d 20  |.. .30,5);" X - |
000009c0  22 3b 58 25 3b 89 28 33  29 0d 05 6e 1c f1 20 8a  |";X%;.(3)..n.. .|
000009d0  33 30 2c 36 29 3b 22 20  59 20 2d 20 22 3b 59 25  |30,6);" Y - ";Y%|
000009e0  3b 89 28 33 29 0d 05 78  05 e1 0d 05 82 04 0d 05  |;.(3)..x........|
000009f0  8c 0d dd 20 f2 5f 53 65  74 55 70 0d 05 96 23 f1  |... ._SetUp...#.|
00000a00  22 42 6f 64 79 20 42 75  69 6c 64 20 54 6f 75 63  |"Body Build Touc|
00000a10  68 20 53 63 72 65 65 6e  20 54 65 73 74 22 0d 05  |h Screen Test"..|
00000a20  a0 13 f1 22 42 79 20 4d  69 6b 65 20 43 6f 6f 6b  |..."By Mike Cook|
00000a30  22 0d 05 aa 14 f1 22 53  70 61 63 65 20 74 6f 20  |"....."Space to |
00000a40  71 75 69 74 22 0d 05 b4  07 ef 20 35 0d 05 be 0b  |quit"..... 5....|
00000a50  58 4f 25 3d 32 35 30 0d  05 c8 0a 59 25 3d 37 38  |XO%=250....Y%=78|
00000a60  30 0d 05 d2 0e e3 20 58  25 3d 30 20 b8 20 37 0d  |0..... X%=0 . 7.|
00000a70  05 dc 13 ec 20 58 4f 25  2b 58 25 2a 31 30 30 2c  |.... XO%+X%*100,|
00000a80  59 25 0d 05 e6 09 f1 3b  58 25 3b 0d 05 f0 05 ed  |Y%.....;X%;.....|
00000a90  0d 05 fa 0c 58 4f 25 2d  3d 31 30 30 0d 06 04 0a  |....XO%-=100....|
00000aa0  59 25 2d 3d 38 30 0d 06  0e 09 59 50 25 3d 37 0d  |Y%-=80....YP%=7.|
00000ab0  06 18 0f e3 20 59 31 25  3d 30 20 b8 20 37 0d 06  |.... Y1%=0 . 7..|
00000ac0  22 13 ec 20 58 4f 25 2c  59 25 2d 59 31 25 2a 38  |".. XO%,Y%-Y1%*8|
00000ad0  30 0d 06 2c 0a f1 3b 59  50 25 3b 0d 06 36 0a 59  |0..,..;YP%;..6.Y|
00000ae0  50 25 2d 3d 31 0d 06 40  05 ed 0d 06 4a 06 ef 34  |P%-=1..@....J..4|
00000af0  0d 06 54 05 e1 0d ff                              |..T....|
00000af7