<� Initilise Serial Port 600 Baud 8 data 1 Stop no Parity
ș"OS_SerialOp",0,&96,&FF00
ș"OS_SerialOp",1,0
(ș"OS_SerialOp",5,12
2ș"OS_SerialOp",6,12
<ș"OS_Byte",2,2
F
P1�"Serial link for personal organiser AM-399C"
Z�"Transmit Telephone Data"
d�"By Mike Cook"
x5�"Press a key when organiser is ready to recieve"
�A$=�
�
CkB%=0
�1Numbers%=2 :� The number of telephone numbers
�� Send start of file byte
��send(&50)
�� Send type of record byte
�>� 0 = Phone: 1 = Shedual: 2 = memo: 3 = ToDo: 4 = Expensis
��send(0)
�
�� R%=1 � Numbers%
� � A%=1 � 6
�
  � D$
�  � C%=1 � � D$
�   B%=�(�D$,C%,1))

   B%=�translate(B%)

   �acCK(B%)

   �send(B%)

"   �

,  � A%=6 � B%=&FE � B%=&FF

6  �acCK(B%)

@  �send(B%)

J �

T�

^

h� Send end of records byte

r�acCK(&F8)

|�send(&F8)

�

�� Send check byte

�CP%=CkB% � &FF

��send(CP%)

�

�� Send end of file byte

��send(&1A)

��

�

�� �send(A%)

�� Fl

��

�ș"OS_SerialOp",3,A% � ;Fl
� (Fl � &2 )=0
�

&� �acCK(A%)
0 � A%>&7F � A%=A% � &FFFFFF00
:CkB%=CkB%-A%
D�
N
X� �translate(A%)
b� B%
l	B%=A%
v� A%=&60 � B%=&26
�� A%=&7C � B%=&21
�� A%=&3A � B%=&21
� � A%>&60 � B%=A% � &5F:A%=B%
�� A%<&30 �
�Ȏ A% �
�� &20 :B%=&20
�� &24 :B%=&27
�� &2F :B%=&24
�� &2E :B%=&29
�� &2D :B%=&28
�� &27 :B%=&22
�
�
B%=&25
�
�
=B%
 
*'� Note only capitals should be used
4
>� Record 1
H
� Name
R� "A. N. OTHER"
\
� Company
f� "BORING LETTERS LTD."
p
� Address
z$� "512 THE SHEDS TRADING ESTATE"
�� Telephone #
�� "0181 123 456"
�� Fax # / Pager
�� "0898 432 765"
�
� Note
�� "ONLY RING WHEN OUT"
�
�� Record 2
�
� Name
�� "MIKE COOK"
�
� Company
�� "MUSBURY CONSULTANTS"
�
� Address
*� "5 HELMSHORE RD. HASLINGDEN BB4 4BG"
� Telephone #
� "01706 216 701"
$� Fax # / Pager
.� "NONE"
8
� Note
B� "DON'T RING ON TUESDAY"
�

00000000  0d 00 0a 3c f4 20 49 6e  69 74 69 6c 69 73 65 20  |...<. Initilise |
00000010  53 65 72 69 61 6c 20 50  6f 72 74 20 36 30 30 20  |Serial Port 600 |
00000020  42 61 75 64 20 38 20 64  61 74 61 20 31 20 53 74  |Baud 8 data 1 St|
00000030  6f 70 20 6e 6f 20 50 61  72 69 74 79 0d 00 14 1f  |op no Parity....|
00000040  c8 99 22 4f 53 5f 53 65  72 69 61 6c 4f 70 22 2c  |.."OS_SerialOp",|
00000050  30 2c 26 39 36 2c 26 46  46 30 30 0d 00 1e 17 c8  |0,&96,&FF00.....|
00000060  99 22 4f 53 5f 53 65 72  69 61 6c 4f 70 22 2c 31  |."OS_SerialOp",1|
00000070  2c 30 0d 00 28 18 c8 99  22 4f 53 5f 53 65 72 69  |,0..(..."OS_Seri|
00000080  61 6c 4f 70 22 2c 35 2c  31 32 0d 00 32 18 c8 99  |alOp",5,12..2...|
00000090  22 4f 53 5f 53 65 72 69  61 6c 4f 70 22 2c 36 2c  |"OS_SerialOp",6,|
000000a0  31 32 0d 00 3c 13 c8 99  22 4f 53 5f 42 79 74 65  |12..<..."OS_Byte|
000000b0  22 2c 32 2c 32 0d 00 46  04 0d 00 50 31 f1 22 53  |",2,2..F...P1."S|
000000c0  65 72 69 61 6c 20 6c 69  6e 6b 20 66 6f 72 20 70  |erial link for p|
000000d0  65 72 73 6f 6e 61 6c 20  6f 72 67 61 6e 69 73 65  |ersonal organise|
000000e0  72 20 41 4d 2d 33 39 39  43 22 0d 00 5a 1e f1 22  |r AM-399C"..Z.."|
000000f0  54 72 61 6e 73 6d 69 74  20 54 65 6c 65 70 68 6f  |Transmit Telepho|
00000100  6e 65 20 44 61 74 61 22  0d 00 64 13 f1 22 42 79  |ne Data"..d.."By|
00000110  20 4d 69 6b 65 20 43 6f  6f 6b 22 0d 00 78 35 f1  | Mike Cook"..x5.|
00000120  22 50 72 65 73 73 20 61  20 6b 65 79 20 77 68 65  |"Press a key whe|
00000130  6e 20 6f 72 67 61 6e 69  73 65 72 20 69 73 20 72  |n organiser is r|
00000140  65 61 64 79 20 74 6f 20  72 65 63 69 65 76 65 22  |eady to recieve"|
00000150  0d 00 82 08 41 24 3d be  0d 00 8c 0a 43 6b 42 25  |....A$=.....CkB%|
00000160  3d 30 0d 00 8d 31 4e 75  6d 62 65 72 73 25 3d 32  |=0...1Numbers%=2|
00000170  20 3a f4 20 54 68 65 20  6e 75 6d 62 65 72 20 6f  | :. The number o|
00000180  66 20 74 65 6c 65 70 68  6f 6e 65 20 6e 75 6d 62  |f telephone numb|
00000190  65 72 73 0d 00 96 1d f4  20 53 65 6e 64 20 73 74  |ers..... Send st|
000001a0  61 72 74 20 6f 66 20 66  69 6c 65 20 62 79 74 65  |art of file byte|
000001b0  0d 00 a0 0e f2 73 65 6e  64 28 26 35 30 29 0d 00  |.....send(&50)..|
000001c0  aa 1e f4 20 53 65 6e 64  20 74 79 70 65 20 6f 66  |... Send type of|
000001d0  20 72 65 63 6f 72 64 20  62 79 74 65 0d 00 b4 3e  | record byte...>|
000001e0  f4 20 30 20 3d 20 50 68  6f 6e 65 3a 20 31 20 3d  |. 0 = Phone: 1 =|
000001f0  20 53 68 65 64 75 61 6c  3a 20 32 20 3d 20 6d 65  | Shedual: 2 = me|
00000200  6d 6f 3a 20 33 20 3d 20  54 6f 44 6f 3a 20 34 20  |mo: 3 = ToDo: 4 |
00000210  3d 20 45 78 70 65 6e 73  69 73 0d 00 be 0c f2 73  |= Expensis.....s|
00000220  65 6e 64 28 30 29 0d 00  c8 04 0d 00 d2 15 e3 20  |end(0)......... |
00000230  52 25 3d 31 20 b8 20 4e  75 6d 62 65 72 73 25 0d  |R%=1 . Numbers%.|
00000240  00 dc 0f 20 e3 20 41 25  3d 31 20 b8 20 36 0d 00  |... . A%=1 . 6..|
00000250  e6 0a 20 20 f3 20 44 24  0d 00 f0 13 20 20 e3 20  |..  . D$....  . |
00000260  43 25 3d 31 20 b8 20 a9  20 44 24 0d 00 fa 16 20  |C%=1 . . D$.... |
00000270  20 20 42 25 3d 97 28 c1  44 24 2c 43 25 2c 31 29  |  B%=.(.D$,C%,1)|
00000280  29 0d 01 04 18 20 20 20  42 25 3d a4 74 72 61 6e  |)....   B%=.tran|
00000290  73 6c 61 74 65 28 42 25  29 0d 01 0e 10 20 20 20  |slate(B%)....   |
000002a0  f2 61 63 43 4b 28 42 25  29 0d 01 18 10 20 20 20  |.acCK(B%)....   |
000002b0  f2 73 65 6e 64 28 42 25  29 0d 01 22 08 20 20 20  |.send(B%)..".   |
000002c0  ed 0d 01 2c 1e 20 20 e7  20 41 25 3d 36 20 8c 20  |...,.  . A%=6 . |
000002d0  42 25 3d 26 46 45 20 8b  20 42 25 3d 26 46 46 0d  |B%=&FE . B%=&FF.|
000002e0  01 36 0f 20 20 f2 61 63  43 4b 28 42 25 29 0d 01  |.6.  .acCK(B%)..|
000002f0  40 0f 20 20 f2 73 65 6e  64 28 42 25 29 0d 01 4a  |@.  .send(B%)..J|
00000300  06 20 ed 0d 01 54 05 ed  0d 01 5e 04 0d 01 68 1e  |. ...T....^...h.|
00000310  f4 20 53 65 6e 64 20 65  6e 64 20 6f 66 20 72 65  |. Send end of re|
00000320  63 6f 72 64 73 20 62 79  74 65 0d 01 72 0e f2 61  |cords byte..r..a|
00000330  63 43 4b 28 26 46 38 29  0d 01 7c 0e f2 73 65 6e  |cCK(&F8)..|..sen|
00000340  64 28 26 46 38 29 0d 01  86 04 0d 01 90 15 f4 20  |d(&F8)......... |
00000350  53 65 6e 64 20 63 68 65  63 6b 20 62 79 74 65 0d  |Send check byte.|
00000360  01 9a 12 43 50 25 3d 43  6b 42 25 20 80 20 26 46  |...CP%=CkB% . &F|
00000370  46 0d 01 a4 0e f2 73 65  6e 64 28 43 50 25 29 0d  |F.....send(CP%).|
00000380  01 ae 04 0d 01 b8 1b f4  20 53 65 6e 64 20 65 6e  |........ Send en|
00000390  64 20 6f 66 20 66 69 6c  65 20 62 79 74 65 0d 01  |d of file byte..|
000003a0  c2 0e f2 73 65 6e 64 28  26 31 41 29 0d 01 cc 05  |...send(&1A)....|
000003b0  e0 0d 01 d6 04 0d 01 e0  0f dd 20 f2 73 65 6e 64  |.......... .send|
000003c0  28 41 25 29 0d 01 ea 08  ea 20 46 6c 0d 01 f4 05  |(A%)..... Fl....|
000003d0  f5 0d 01 fe 1e c8 99 22  4f 53 5f 53 65 72 69 61  |......."OS_Seria|
000003e0  6c 4f 70 22 2c 33 2c 41  25 20 b8 20 3b 46 6c 0d  |lOp",3,A% . ;Fl.|
000003f0  02 08 12 fd 20 28 46 6c  20 80 20 26 32 20 29 3d  |.... (Fl . &2 )=|
00000400  30 0d 02 12 05 e1 0d 02  1c 04 0d 02 26 0f dd 20  |0...........&.. |
00000410  f2 61 63 43 4b 28 41 25  29 0d 02 30 20 e7 20 41  |.acCK(A%)..0 . A|
00000420  25 3e 26 37 46 20 8c 20  41 25 3d 41 25 20 84 20  |%>&7F . A%=A% . |
00000430  26 46 46 46 46 46 46 30  30 0d 02 3a 10 43 6b 42  |&FFFFFF00..:.CkB|
00000440  25 3d 43 6b 42 25 2d 41  25 0d 02 44 05 e1 0d 02  |%=CkB%-A%..D....|
00000450  4e 04 0d 02 58 14 dd 20  a4 74 72 61 6e 73 6c 61  |N...X.. .transla|
00000460  74 65 28 41 25 29 0d 02  62 08 ea 20 42 25 0d 02  |te(A%)..b.. B%..|
00000470  6c 09 42 25 3d 41 25 0d  02 76 15 e7 20 41 25 3d  |l.B%=A%..v.. A%=|
00000480  26 36 30 20 8c 20 42 25  3d 26 32 36 0d 02 80 15  |&60 . B%=&26....|
00000490  e7 20 41 25 3d 26 37 43  20 8c 20 42 25 3d 26 32  |. A%=&7C . B%=&2|
000004a0  31 0d 02 8a 15 e7 20 41  25 3d 26 33 41 20 8c 20  |1..... A%=&3A . |
000004b0  42 25 3d 26 32 31 0d 02  94 20 e7 20 41 25 3e 26  |B%=&21... . A%>&|
000004c0  36 30 20 8c 20 42 25 3d  41 25 20 80 20 26 35 46  |60 . B%=A% . &5F|
000004d0  3a 41 25 3d 42 25 0d 02  9e 0e e7 20 41 25 3c 26  |:A%=B%..... A%<&|
000004e0  33 30 20 8c 0d 02 a8 0b  c8 8e 20 41 25 20 ca 0d  |30 ....... A% ..|
000004f0  02 b2 11 c9 20 26 32 30  20 3a 42 25 3d 26 32 30  |.... &20 :B%=&20|
00000500  0d 02 bc 11 c9 20 26 32  34 20 3a 42 25 3d 26 32  |..... &24 :B%=&2|
00000510  37 0d 02 c6 11 c9 20 26  32 46 20 3a 42 25 3d 26  |7..... &2F :B%=&|
00000520  32 34 0d 02 d0 11 c9 20  26 32 45 20 3a 42 25 3d  |24..... &2E :B%=|
00000530  26 32 39 0d 02 da 11 c9  20 26 32 44 20 3a 42 25  |&29..... &2D :B%|
00000540  3d 26 32 38 0d 02 e4 11  c9 20 26 32 37 20 3a 42  |=&28..... &27 :B|
00000550  25 3d 26 32 32 0d 02 ee  05 7f 0d 02 f8 0a 42 25  |%=&22.........B%|
00000560  3d 26 32 35 0d 03 02 05  cb 0d 03 0c 05 cd 0d 03  |=&25............|
00000570  16 07 3d 42 25 0d 03 20  04 0d 03 2a 27 f4 20 4e  |..=B%.. ...*'. N|
00000580  6f 74 65 20 6f 6e 6c 79  20 63 61 70 69 74 61 6c  |ote only capital|
00000590  73 20 73 68 6f 75 6c 64  20 62 65 20 75 73 65 64  |s should be used|
000005a0  0d 03 34 04 0d 03 3e 0e  f4 20 52 65 63 6f 72 64  |..4...>.. Record|
000005b0  20 31 0d 03 48 0a f4 20  4e 61 6d 65 0d 03 52 13  | 1..H.. Name..R.|
000005c0  dc 20 22 41 2e 20 4e 2e  20 4f 54 48 45 52 22 0d  |. "A. N. OTHER".|
000005d0  03 5c 0d f4 20 43 6f 6d  70 61 6e 79 0d 03 66 1b  |.\.. Company..f.|
000005e0  dc 20 22 42 4f 52 49 4e  47 20 4c 45 54 54 45 52  |. "BORING LETTER|
000005f0  53 20 4c 54 44 2e 22 0d  03 70 0d f4 20 41 64 64  |S LTD."..p.. Add|
00000600  72 65 73 73 0d 03 7a 24  dc 20 22 35 31 32 20 54  |ress..z$. "512 T|
00000610  48 45 20 53 48 45 44 53  20 54 52 41 44 49 4e 47  |HE SHEDS TRADING|
00000620  20 45 53 54 41 54 45 22  0d 03 84 11 f4 20 54 65  | ESTATE"..... Te|
00000630  6c 65 70 68 6f 6e 65 20  23 0d 03 8e 14 dc 20 22  |lephone #..... "|
00000640  30 31 38 31 20 31 32 33  20 34 35 36 22 0d 03 98  |0181 123 456"...|
00000650  13 f4 20 46 61 78 20 23  20 2f 20 50 61 67 65 72  |.. Fax # / Pager|
00000660  0d 03 a2 14 dc 20 22 30  38 39 38 20 34 33 32 20  |..... "0898 432 |
00000670  37 36 35 22 0d 03 ac 0a  f4 20 4e 6f 74 65 0d 03  |765"..... Note..|
00000680  b6 1a dc 20 22 4f 4e 4c  59 20 52 49 4e 47 20 57  |... "ONLY RING W|
00000690  48 45 4e 20 4f 55 54 22  0d 03 c0 04 0d 03 ca 0e  |HEN OUT"........|
000006a0  f4 20 52 65 63 6f 72 64  20 32 0d 03 d4 0a f4 20  |. Record 2..... |
000006b0  4e 61 6d 65 0d 03 de 11  dc 20 22 4d 49 4b 45 20  |Name..... "MIKE |
000006c0  43 4f 4f 4b 22 0d 03 e8  0d f4 20 43 6f 6d 70 61  |COOK"..... Compa|
000006d0  6e 79 0d 03 f2 1b dc 20  22 4d 55 53 42 55 52 59  |ny..... "MUSBURY|
000006e0  20 43 4f 4e 53 55 4c 54  41 4e 54 53 22 0d 03 fc  | CONSULTANTS"...|
000006f0  0d f4 20 41 64 64 72 65  73 73 0d 04 06 2a dc 20  |.. Address...*. |
00000700  22 35 20 48 45 4c 4d 53  48 4f 52 45 20 52 44 2e  |"5 HELMSHORE RD.|
00000710  20 48 41 53 4c 49 4e 47  44 45 4e 20 42 42 34 20  | HASLINGDEN BB4 |
00000720  34 42 47 22 0d 04 10 11  f4 20 54 65 6c 65 70 68  |4BG"..... Teleph|
00000730  6f 6e 65 20 23 0d 04 1a  15 dc 20 22 30 31 37 30  |one #..... "0170|
00000740  36 20 32 31 36 20 37 30  31 22 0d 04 24 13 f4 20  |6 216 701"..$.. |
00000750  46 61 78 20 23 20 2f 20  50 61 67 65 72 0d 04 2e  |Fax # / Pager...|
00000760  0c dc 20 22 4e 4f 4e 45  22 0d 04 38 0a f4 20 4e  |.. "NONE"..8.. N|
00000770  6f 74 65 0d 04 42 1d dc  20 22 44 4f 4e 27 54 20  |ote..B.. "DON'T |
00000780  52 49 4e 47 20 4f 4e 20  54 55 45 53 44 41 59 22  |RING ON TUESDAY"|
00000790  0d ff                                             |..|
00000792