Home » CEEFAX disks » telesoftware4.adl » 15-01-88/CODER

15-01-88/CODER

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware4.adl
Filename: 15-01-88/CODER
Read OK:
File size: 0E6D bytes
Load address: FFFF1900
Exec address: FFFF8023
File contents
    1MODE7:PRINT''"CODER"''"This produces and saves machine code"'"files"''"Listing 3 $.CODER"''"Press any key to continue";:G=GET
   10REM Listing 3 "$.CODER"
   20REM by John Macrae
   30REM BBC B,B+/128
   40REM Master 128
   50REM (c) Micro User
   60REM Produces and saves
   70REM Machine code files
   80DIM s%30
   90PROCsearchcode
  100PROCerrcode
  110PROCsortcode
  120PROCoscli("SAVE MULTCOD 0900+280")
  130END
  140REM
  150DEFPROCsearchcode
  160RESTORE290
  170L%=&900
  180FORI%=L% TO L%+&18B
  190READ?I%
  200NEXT
  210SUM%=0
  220FORI%=L% TO L%+&18B
  230SUM%=SUM%+?I%
  240NEXT
  250IF SUM%<>50630VDU7,12:PRINTTAB(5,5)"Checksum error __ check data 290 - 780":END
  260L%=I%+1
  270ENDPROC
  280REM search data
  290DATA169,0,133,127,133,141,133,142
  300DATA133,129,230,129,96,169,0,133
  310DATA127,133,142,165,136,133,138,165
  320DATA137,133,139,165,143,208,2,230
  330DATA139,24,101,138,133,138,165,139
  340DATA105,0,133,139,160,0,177,138
  350DATA208,36,200,177,138,201,12,208
  360DATA29,165,138,24,105,14,133,138
  370DATA169,0,101,139,133,139,160,0
  380DATA177,138,208,7,200,177,138,201
  390DATA217,240,21,76,1,10,165,138
  400DATA24,105,2,133,138,169,0,101
  410DATA139,133,139,160,0,76,44,9
  420DATA230,142,230,129,230,141,165,138
  430DATA133,132,165,139,133,133,32,137
  440DATA9,165,141,197,140,176,9,165
  450DATA142,201,23,240,3,76,44,9
  460DATA96,165,132,24,105,2,133,132
  470DATA169,0,101,133,133,133,24,160
  480DATA217,162,6,136,177,132,201,32
  490DATA144,27,240,25,181,112,201,42
  500DATA240,35,177,132,213,112,240,4
  510DATA213,119,208,9,224,0,240,30
  520DATA202,136,76,164,9,224,0,240
  530DATA216,202,136,192,0,240,3,76
  540DATA189,9,76,103,10,224,0,240
  550DATA5,136,202,76,205,9,152,72
  560DATA32,2,10,104,168,132,135,152
  570DATA105,6,168,177,132,32,238,255
  580DATA136,196,135,208,246,177,132,32
  590DATA238,255,169,32,32,238,255,32
  600DATA231,255,192,0,240,105,76,153
  610DATA9,96,162,0,160,0,165,129
  620DATA201,10,144,7,232,56,233,10
  630DATA76,8,10,133,128,138,201,10
  640DATA144,7,200,56,233,10,76,22
  650DATA10,170,169,32,32,238,255,32
  660DATA238,255,32,238,255,32,238,255
  670DATA32,238,255,32,238,255,32,238
  680DATA255,32,238,255,152,105,48,32
  690DATA238,255,138,105,48,32,238,255
  700DATA165,128,105,48,32,238,255,169
  710DATA32,32,238,255,32,238,255,32
  720DATA238,255,32,238,255,32,238,255
  730DATA32,238,255,32,238,255,96,165
  740DATA132,24,105,217,133,132,169,0
  750DATA101,133,133,133,165,127,201,3
  760DATA240,5,230,127,76,137,9,169
  770DATA0,133,127,165,132,133,138,165
  780DATA133,133,139,96
  790DEFPROCerrcode
  800REM Removes "bad" chars
  810RESTORE920
  820FORI%=L% TO L%+&3A
  830READ?I%
  840NEXT
  850SUM%=0
  860FORI%=L% TO L%+&3A
  870SUM%=SUM%+?I%
  880NEXT
  890IF SUM%<>7033VDU7,12:PRINTTAB(5,5)"Checksum error __ check data 920 - 990":END
  900L%=I%+1
  910ENDPROC
  920DATA32,158,10,32,181,10,230,129
  930DATA230,129,32,158,10,32,181,10
  940DATA96,160,255,177,128,41,127,201
  950DATA32,176,2,169,32,145,128,136
  960DATA192,8,240,3,76,160,10,96
  970DATA160,255,169,13,145,128,136,136
  980DATA136,136,136,136,136,136,192,15
  990DATA176,242,96
 1000DEFPROCsortcode
 1010REM Sorts files
 1020RESTORE1120
 1030FORI%=L% TO L%+&B6
 1040READ?I%
 1050NEXT
 1060SUM%=0
 1070FORI%=L% TO L%+&B6
 1080SUM%=SUM%+?I%
 1090NEXT
 1100IF SUM%<>23637VDU7,12:PRINTTAB(5,5)"Checksum error __ check data 1120 - 1340":END
 1110ENDPROC
 1120DATA173,4,6,133,123,173,5,6
 1130DATA133,124,160,0,177,123,133,122
 1140DATA169,0,133,125,166,122,173,1
 1150DATA6,133,112,173,2,6,133,113
 1160DATA160,0,177,112,133,114,200,177
 1170DATA112,133,115,200,177,112,133,116
 1180DATA200,177,112,133,117,200,177,112
 1190DATA133,118,200,177,112,133,119,200
 1200DATA177,112,133,120,200,177,112,133
 1210DATA121,165,117,197,121,176,5,133
 1220DATA126,76,33,11,165,121,133,126
 1230DATA160,0,177,114,209,118,144,62
 1240DATA208,15,200,196,126,240,2,208
 1250DATA241,165,117,197,121,144,47,240
 1260DATA45,160,0,165,118,145,112,200
 1270DATA165,119,145,112,200,165,120,145
 1280DATA112,200,165,121,145,112,200,165
 1290DATA114,145,112,200,165,115,145,112
 1300DATA200,165,116,145,112,200,165,117
 1310DATA145,112,169,255,133,125,24,165
 1320DATA112,105,4,133,112,144,2,230
 1330DATA113,202,240,3,76,233,10,165
 1340DATA125,240,3,76,217,10,96
 1350DEFPROCoscli($s%)
 1360X%=s% MOD &100:Y%=s% DIV &100
 1370CALL&FFF7
x�7:�''"CODER"''"This produces and saves machine code"'"files"''"Listing 3 $.CODER"''"Press any key to continue";:G=�

� Listing 3 "$.CODER"
� by John Macrae
� BBC B,B+/128
(� Master 128
2� (c) Micro User
<� Produces and saves
F� Machine code files
P
� s%30
Z�searchcode
d�errcode
n
�sortcode
x#�oscli("SAVE MULTCOD 0900+280")
��
��
���searchcode
�	��TbA
�L%=&900
��I%=L% � L%+&18B
��?I%
��
�
SUM%=0
��I%=L% � L%+&18B
�SUM%=SUM%+?I%
��
�G� SUM%<>50630�7,12:�5,5)"Checksum error __ check data 290 - 780":�
L%=I%+1
�
� search data
""�169,0,133,127,133,141,133,142
,!�133,129,230,129,96,169,0,133
6$�127,133,142,165,136,133,138,165
@"�137,133,139,165,143,208,2,230
J#�139,24,101,138,133,138,165,139
T �105,0,133,139,160,0,177,138
^"�208,36,200,177,138,201,12,208
h!�29,165,138,24,105,14,133,138
r �169,0,101,139,133,139,160,0
|"�177,138,208,7,200,177,138,201
��217,240,21,76,1,10,165,138
��24,105,2,133,138,169,0,101
��139,133,139,160,0,76,44,9
�$�230,142,230,129,230,141,165,138
�#�133,132,165,139,133,133,32,137
� �9,165,141,197,140,176,9,165
��142,201,23,240,3,76,44,9
� �96,165,132,24,105,2,133,132
�!�169,0,101,133,133,133,24,160
�!�217,162,6,136,177,132,201,32
�!�144,27,240,25,181,112,201,42
�!�240,35,177,132,213,112,240,4
��213,119,208,9,224,0,240,30
�202,136,76,164,9,224,0,240
�216,202,136,192,0,240,3,76
�189,9,76,103,10,224,0,240
&�5,136,202,76,205,9,152,72
0 �32,2,10,104,168,132,135,152
:!�105,6,168,177,132,32,238,255
D#�136,196,135,208,246,177,132,32
N!�238,255,169,32,32,238,255,32
X!�231,255,192,0,240,105,76,153
b�9,96,162,0,160,0,165,129
l�201,10,144,7,232,56,233,10
v�76,8,10,133,128,138,201,10
��144,7,200,56,233,10,76,22
� �10,170,169,32,32,238,255,32
�"�238,255,32,238,255,32,238,255
�!�32,238,255,32,238,255,32,238
�!�255,32,238,255,152,105,48,32
�"�238,255,138,105,48,32,238,255
�"�165,128,105,48,32,238,255,169
� �32,32,238,255,32,238,255,32
�"�238,255,32,238,255,32,238,255
�!�32,238,255,32,238,255,96,165
�!�132,24,105,217,133,132,169,0
�"�101,133,133,133,165,127,201,3
��240,5,230,127,76,137,9,169
"�0,133,127,165,132,133,138,165
�133,133,139,96

��errcode
 � Removes "bad" chars
*	��tXC
4�I%=L% � L%+&3A
>�?I%
H�
R
SUM%=0
\�I%=L% � L%+&3A
fSUM%=SUM%+?I%
p�
zF� SUM%<>7033�7,12:�5,5)"Checksum error __ check data 920 - 990":�
�L%=I%+1
��
� �32,158,10,32,181,10,230,129
� �230,129,32,158,10,32,181,10
�"�96,160,255,177,128,41,127,201
� �32,176,2,169,32,145,128,136
��192,8,240,3,76,160,10,96
�#�160,255,169,13,145,128,136,136
�#�136,136,136,136,136,136,192,15
��176,242,96
���sortcode
�� Sorts files
�	��D`D
�I%=L% � L%+&B6
�?I%
�
$
SUM%=0
.�I%=L% � L%+&B6
8SUM%=SUM%+?I%
B�
LI� SUM%<>23637�7,12:�5,5)"Checksum error __ check data 1120 - 1340":�
V�
`�173,4,6,133,123,173,5,6
j"�133,124,160,0,177,123,133,122
t �169,0,133,125,166,122,173,1
~�6,133,112,173,2,6,133,113
�"�160,0,177,112,133,114,200,177
�$�112,133,115,200,177,112,133,116
�$�200,177,112,133,117,200,177,112
�$�133,118,200,177,112,133,119,200
�$�177,112,133,120,200,177,112,133
�"�121,165,117,197,121,176,5,133
�!�126,76,33,11,165,121,133,126
�!�160,0,177,114,209,118,144,62
�!�208,15,200,196,126,240,2,208
�#�241,165,117,197,121,144,47,240
�!�45,160,0,165,118,145,112,200
�$�165,119,145,112,200,165,120,145
$�112,200,165,121,145,112,200,165

$�114,145,112,200,165,115,145,112
$�200,165,116,145,112,200,165,117
#�145,112,169,255,133,125,24,165
( �112,105,4,133,112,144,2,230
2 �113,202,240,3,76,233,10,165
<�125,240,3,76,217,10,96
F��oscli($s%)
PX%=s% � &100:Y%=s% � &100
Z
�&FFF7
�
00000000  0d 00 01 78 eb 37 3a f1  27 27 22 43 4f 44 45 52  |...x.7:.''"CODER|
00000010  22 27 27 22 54 68 69 73  20 70 72 6f 64 75 63 65  |"''"This produce|
00000020  73 20 61 6e 64 20 73 61  76 65 73 20 6d 61 63 68  |s and saves mach|
00000030  69 6e 65 20 63 6f 64 65  22 27 22 66 69 6c 65 73  |ine code"'"files|
00000040  22 27 27 22 4c 69 73 74  69 6e 67 20 33 20 24 2e  |"''"Listing 3 $.|
00000050  43 4f 44 45 52 22 27 27  22 50 72 65 73 73 20 61  |CODER"''"Press a|
00000060  6e 79 20 6b 65 79 20 74  6f 20 63 6f 6e 74 69 6e  |ny key to contin|
00000070  75 65 22 3b 3a 47 3d a5  0d 00 0a 19 f4 20 4c 69  |ue";:G=...... Li|
00000080  73 74 69 6e 67 20 33 20  22 24 2e 43 4f 44 45 52  |sting 3 "$.CODER|
00000090  22 0d 00 14 14 f4 20 62  79 20 4a 6f 68 6e 20 4d  |"..... by John M|
000000a0  61 63 72 61 65 0d 00 1e  12 f4 20 42 42 43 20 42  |acrae..... BBC B|
000000b0  2c 42 2b 2f 31 32 38 0d  00 28 10 f4 20 4d 61 73  |,B+/128..(.. Mas|
000000c0  74 65 72 20 31 32 38 0d  00 32 14 f4 20 28 63 29  |ter 128..2.. (c)|
000000d0  20 4d 69 63 72 6f 20 55  73 65 72 0d 00 3c 18 f4  | Micro User..<..|
000000e0  20 50 72 6f 64 75 63 65  73 20 61 6e 64 20 73 61  | Produces and sa|
000000f0  76 65 73 0d 00 46 18 f4  20 4d 61 63 68 69 6e 65  |ves..F.. Machine|
00000100  20 63 6f 64 65 20 66 69  6c 65 73 0d 00 50 0a de  | code files..P..|
00000110  20 73 25 33 30 0d 00 5a  0f f2 73 65 61 72 63 68  | s%30..Z..search|
00000120  63 6f 64 65 0d 00 64 0c  f2 65 72 72 63 6f 64 65  |code..d..errcode|
00000130  0d 00 6e 0d f2 73 6f 72  74 63 6f 64 65 0d 00 78  |..n..sortcode..x|
00000140  23 f2 6f 73 63 6c 69 28  22 53 41 56 45 20 4d 55  |#.oscli("SAVE MU|
00000150  4c 54 43 4f 44 20 30 39  30 30 2b 32 38 30 22 29  |LTCOD 0900+280")|
00000160  0d 00 82 05 e0 0d 00 8c  05 f4 0d 00 96 10 dd f2  |................|
00000170  73 65 61 72 63 68 63 6f  64 65 0d 00 a0 09 f7 8d  |searchcode......|
00000180  54 62 41 0d 00 aa 0b 4c  25 3d 26 39 30 30 0d 00  |TbA....L%=&900..|
00000190  b4 14 e3 49 25 3d 4c 25  20 b8 20 4c 25 2b 26 31  |...I%=L% . L%+&1|
000001a0  38 42 0d 00 be 08 f3 3f  49 25 0d 00 c8 05 ed 0d  |8B.....?I%......|
000001b0  00 d2 0a 53 55 4d 25 3d  30 0d 00 dc 14 e3 49 25  |...SUM%=0.....I%|
000001c0  3d 4c 25 20 b8 20 4c 25  2b 26 31 38 42 0d 00 e6  |=L% . L%+&18B...|
000001d0  11 53 55 4d 25 3d 53 55  4d 25 2b 3f 49 25 0d 00  |.SUM%=SUM%+?I%..|
000001e0  f0 05 ed 0d 00 fa 47 e7  20 53 55 4d 25 3c 3e 35  |......G. SUM%<>5|
000001f0  30 36 33 30 ef 37 2c 31  32 3a f1 8a 35 2c 35 29  |0630.7,12:..5,5)|
00000200  22 43 68 65 63 6b 73 75  6d 20 65 72 72 6f 72 20  |"Checksum error |
00000210  5f 5f 20 63 68 65 63 6b  20 64 61 74 61 20 32 39  |__ check data 29|
00000220  30 20 2d 20 37 38 30 22  3a e0 0d 01 04 0b 4c 25  |0 - 780":.....L%|
00000230  3d 49 25 2b 31 0d 01 0e  05 e1 0d 01 18 11 f4 20  |=I%+1.......... |
00000240  73 65 61 72 63 68 20 64  61 74 61 0d 01 22 22 dc  |search data.."".|
00000250  31 36 39 2c 30 2c 31 33  33 2c 31 32 37 2c 31 33  |169,0,133,127,13|
00000260  33 2c 31 34 31 2c 31 33  33 2c 31 34 32 0d 01 2c  |3,141,133,142..,|
00000270  21 dc 31 33 33 2c 31 32  39 2c 32 33 30 2c 31 32  |!.133,129,230,12|
00000280  39 2c 39 36 2c 31 36 39  2c 30 2c 31 33 33 0d 01  |9,96,169,0,133..|
00000290  36 24 dc 31 32 37 2c 31  33 33 2c 31 34 32 2c 31  |6$.127,133,142,1|
000002a0  36 35 2c 31 33 36 2c 31  33 33 2c 31 33 38 2c 31  |65,136,133,138,1|
000002b0  36 35 0d 01 40 22 dc 31  33 37 2c 31 33 33 2c 31  |65..@".137,133,1|
000002c0  33 39 2c 31 36 35 2c 31  34 33 2c 32 30 38 2c 32  |39,165,143,208,2|
000002d0  2c 32 33 30 0d 01 4a 23  dc 31 33 39 2c 32 34 2c  |,230..J#.139,24,|
000002e0  31 30 31 2c 31 33 38 2c  31 33 33 2c 31 33 38 2c  |101,138,133,138,|
000002f0  31 36 35 2c 31 33 39 0d  01 54 20 dc 31 30 35 2c  |165,139..T .105,|
00000300  30 2c 31 33 33 2c 31 33  39 2c 31 36 30 2c 30 2c  |0,133,139,160,0,|
00000310  31 37 37 2c 31 33 38 0d  01 5e 22 dc 32 30 38 2c  |177,138..^".208,|
00000320  33 36 2c 32 30 30 2c 31  37 37 2c 31 33 38 2c 32  |36,200,177,138,2|
00000330  30 31 2c 31 32 2c 32 30  38 0d 01 68 21 dc 32 39  |01,12,208..h!.29|
00000340  2c 31 36 35 2c 31 33 38  2c 32 34 2c 31 30 35 2c  |,165,138,24,105,|
00000350  31 34 2c 31 33 33 2c 31  33 38 0d 01 72 20 dc 31  |14,133,138..r .1|
00000360  36 39 2c 30 2c 31 30 31  2c 31 33 39 2c 31 33 33  |69,0,101,139,133|
00000370  2c 31 33 39 2c 31 36 30  2c 30 0d 01 7c 22 dc 31  |,139,160,0..|".1|
00000380  37 37 2c 31 33 38 2c 32  30 38 2c 37 2c 32 30 30  |77,138,208,7,200|
00000390  2c 31 37 37 2c 31 33 38  2c 32 30 31 0d 01 86 1f  |,177,138,201....|
000003a0  dc 32 31 37 2c 32 34 30  2c 32 31 2c 37 36 2c 31  |.217,240,21,76,1|
000003b0  2c 31 30 2c 31 36 35 2c  31 33 38 0d 01 90 1f dc  |,10,165,138.....|
000003c0  32 34 2c 31 30 35 2c 32  2c 31 33 33 2c 31 33 38  |24,105,2,133,138|
000003d0  2c 31 36 39 2c 30 2c 31  30 31 0d 01 9a 1e dc 31  |,169,0,101.....1|
000003e0  33 39 2c 31 33 33 2c 31  33 39 2c 31 36 30 2c 30  |39,133,139,160,0|
000003f0  2c 37 36 2c 34 34 2c 39  0d 01 a4 24 dc 32 33 30  |,76,44,9...$.230|
00000400  2c 31 34 32 2c 32 33 30  2c 31 32 39 2c 32 33 30  |,142,230,129,230|
00000410  2c 31 34 31 2c 31 36 35  2c 31 33 38 0d 01 ae 23  |,141,165,138...#|
00000420  dc 31 33 33 2c 31 33 32  2c 31 36 35 2c 31 33 39  |.133,132,165,139|
00000430  2c 31 33 33 2c 31 33 33  2c 33 32 2c 31 33 37 0d  |,133,133,32,137.|
00000440  01 b8 20 dc 39 2c 31 36  35 2c 31 34 31 2c 31 39  |.. .9,165,141,19|
00000450  37 2c 31 34 30 2c 31 37  36 2c 39 2c 31 36 35 0d  |7,140,176,9,165.|
00000460  01 c2 1d dc 31 34 32 2c  32 30 31 2c 32 33 2c 32  |....142,201,23,2|
00000470  34 30 2c 33 2c 37 36 2c  34 34 2c 39 0d 01 cc 20  |40,3,76,44,9... |
00000480  dc 39 36 2c 31 36 35 2c  31 33 32 2c 32 34 2c 31  |.96,165,132,24,1|
00000490  30 35 2c 32 2c 31 33 33  2c 31 33 32 0d 01 d6 21  |05,2,133,132...!|
000004a0  dc 31 36 39 2c 30 2c 31  30 31 2c 31 33 33 2c 31  |.169,0,101,133,1|
000004b0  33 33 2c 31 33 33 2c 32  34 2c 31 36 30 0d 01 e0  |33,133,24,160...|
000004c0  21 dc 32 31 37 2c 31 36  32 2c 36 2c 31 33 36 2c  |!.217,162,6,136,|
000004d0  31 37 37 2c 31 33 32 2c  32 30 31 2c 33 32 0d 01  |177,132,201,32..|
000004e0  ea 21 dc 31 34 34 2c 32  37 2c 32 34 30 2c 32 35  |.!.144,27,240,25|
000004f0  2c 31 38 31 2c 31 31 32  2c 32 30 31 2c 34 32 0d  |,181,112,201,42.|
00000500  01 f4 21 dc 32 34 30 2c  33 35 2c 31 37 37 2c 31  |..!.240,35,177,1|
00000510  33 32 2c 32 31 33 2c 31  31 32 2c 32 34 30 2c 34  |32,213,112,240,4|
00000520  0d 01 fe 1f dc 32 31 33  2c 31 31 39 2c 32 30 38  |.....213,119,208|
00000530  2c 39 2c 32 32 34 2c 30  2c 32 34 30 2c 33 30 0d  |,9,224,0,240,30.|
00000540  02 08 1f dc 32 30 32 2c  31 33 36 2c 37 36 2c 31  |....202,136,76,1|
00000550  36 34 2c 39 2c 32 32 34  2c 30 2c 32 34 30 0d 02  |64,9,224,0,240..|
00000560  12 1f dc 32 31 36 2c 32  30 32 2c 31 33 36 2c 31  |...216,202,136,1|
00000570  39 32 2c 30 2c 32 34 30  2c 33 2c 37 36 0d 02 1c  |92,0,240,3,76...|
00000580  1e dc 31 38 39 2c 39 2c  37 36 2c 31 30 33 2c 31  |..189,9,76,103,1|
00000590  30 2c 32 32 34 2c 30 2c  32 34 30 0d 02 26 1e dc  |0,224,0,240..&..|
000005a0  35 2c 31 33 36 2c 32 30  32 2c 37 36 2c 32 30 35  |5,136,202,76,205|
000005b0  2c 39 2c 31 35 32 2c 37  32 0d 02 30 20 dc 33 32  |,9,152,72..0 .32|
000005c0  2c 32 2c 31 30 2c 31 30  34 2c 31 36 38 2c 31 33  |,2,10,104,168,13|
000005d0  32 2c 31 33 35 2c 31 35  32 0d 02 3a 21 dc 31 30  |2,135,152..:!.10|
000005e0  35 2c 36 2c 31 36 38 2c  31 37 37 2c 31 33 32 2c  |5,6,168,177,132,|
000005f0  33 32 2c 32 33 38 2c 32  35 35 0d 02 44 23 dc 31  |32,238,255..D#.1|
00000600  33 36 2c 31 39 36 2c 31  33 35 2c 32 30 38 2c 32  |36,196,135,208,2|
00000610  34 36 2c 31 37 37 2c 31  33 32 2c 33 32 0d 02 4e  |46,177,132,32..N|
00000620  21 dc 32 33 38 2c 32 35  35 2c 31 36 39 2c 33 32  |!.238,255,169,32|
00000630  2c 33 32 2c 32 33 38 2c  32 35 35 2c 33 32 0d 02  |,32,238,255,32..|
00000640  58 21 dc 32 33 31 2c 32  35 35 2c 31 39 32 2c 30  |X!.231,255,192,0|
00000650  2c 32 34 30 2c 31 30 35  2c 37 36 2c 31 35 33 0d  |,240,105,76,153.|
00000660  02 62 1d dc 39 2c 39 36  2c 31 36 32 2c 30 2c 31  |.b..9,96,162,0,1|
00000670  36 30 2c 30 2c 31 36 35  2c 31 32 39 0d 02 6c 1f  |60,0,165,129..l.|
00000680  dc 32 30 31 2c 31 30 2c  31 34 34 2c 37 2c 32 33  |.201,10,144,7,23|
00000690  32 2c 35 36 2c 32 33 33  2c 31 30 0d 02 76 1f dc  |2,56,233,10..v..|
000006a0  37 36 2c 38 2c 31 30 2c  31 33 33 2c 31 32 38 2c  |76,8,10,133,128,|
000006b0  31 33 38 2c 32 30 31 2c  31 30 0d 02 80 1e dc 31  |138,201,10.....1|
000006c0  34 34 2c 37 2c 32 30 30  2c 35 36 2c 32 33 33 2c  |44,7,200,56,233,|
000006d0  31 30 2c 37 36 2c 32 32  0d 02 8a 20 dc 31 30 2c  |10,76,22... .10,|
000006e0  31 37 30 2c 31 36 39 2c  33 32 2c 33 32 2c 32 33  |170,169,32,32,23|
000006f0  38 2c 32 35 35 2c 33 32  0d 02 94 22 dc 32 33 38  |8,255,32...".238|
00000700  2c 32 35 35 2c 33 32 2c  32 33 38 2c 32 35 35 2c  |,255,32,238,255,|
00000710  33 32 2c 32 33 38 2c 32  35 35 0d 02 9e 21 dc 33  |32,238,255...!.3|
00000720  32 2c 32 33 38 2c 32 35  35 2c 33 32 2c 32 33 38  |2,238,255,32,238|
00000730  2c 32 35 35 2c 33 32 2c  32 33 38 0d 02 a8 21 dc  |,255,32,238...!.|
00000740  32 35 35 2c 33 32 2c 32  33 38 2c 32 35 35 2c 31  |255,32,238,255,1|
00000750  35 32 2c 31 30 35 2c 34  38 2c 33 32 0d 02 b2 22  |52,105,48,32..."|
00000760  dc 32 33 38 2c 32 35 35  2c 31 33 38 2c 31 30 35  |.238,255,138,105|
00000770  2c 34 38 2c 33 32 2c 32  33 38 2c 32 35 35 0d 02  |,48,32,238,255..|
00000780  bc 22 dc 31 36 35 2c 31  32 38 2c 31 30 35 2c 34  |.".165,128,105,4|
00000790  38 2c 33 32 2c 32 33 38  2c 32 35 35 2c 31 36 39  |8,32,238,255,169|
000007a0  0d 02 c6 20 dc 33 32 2c  33 32 2c 32 33 38 2c 32  |... .32,32,238,2|
000007b0  35 35 2c 33 32 2c 32 33  38 2c 32 35 35 2c 33 32  |55,32,238,255,32|
000007c0  0d 02 d0 22 dc 32 33 38  2c 32 35 35 2c 33 32 2c  |...".238,255,32,|
000007d0  32 33 38 2c 32 35 35 2c  33 32 2c 32 33 38 2c 32  |238,255,32,238,2|
000007e0  35 35 0d 02 da 21 dc 33  32 2c 32 33 38 2c 32 35  |55...!.32,238,25|
000007f0  35 2c 33 32 2c 32 33 38  2c 32 35 35 2c 39 36 2c  |5,32,238,255,96,|
00000800  31 36 35 0d 02 e4 21 dc  31 33 32 2c 32 34 2c 31  |165...!.132,24,1|
00000810  30 35 2c 32 31 37 2c 31  33 33 2c 31 33 32 2c 31  |05,217,133,132,1|
00000820  36 39 2c 30 0d 02 ee 22  dc 31 30 31 2c 31 33 33  |69,0...".101,133|
00000830  2c 31 33 33 2c 31 33 33  2c 31 36 35 2c 31 32 37  |,133,133,165,127|
00000840  2c 32 30 31 2c 33 0d 02  f8 1f dc 32 34 30 2c 35  |,201,3.....240,5|
00000850  2c 32 33 30 2c 31 32 37  2c 37 36 2c 31 33 37 2c  |,230,127,76,137,|
00000860  39 2c 31 36 39 0d 03 02  22 dc 30 2c 31 33 33 2c  |9,169...".0,133,|
00000870  31 32 37 2c 31 36 35 2c  31 33 32 2c 31 33 33 2c  |127,165,132,133,|
00000880  31 33 38 2c 31 36 35 0d  03 0c 13 dc 31 33 33 2c  |138,165.....133,|
00000890  31 33 33 2c 31 33 39 2c  39 36 0d 03 16 0d dd f2  |133,139,96......|
000008a0  65 72 72 63 6f 64 65 0d  03 20 19 f4 20 52 65 6d  |errcode.. .. Rem|
000008b0  6f 76 65 73 20 22 62 61  64 22 20 63 68 61 72 73  |oves "bad" chars|
000008c0  0d 03 2a 09 f7 8d 74 58  43 0d 03 34 13 e3 49 25  |..*...tXC..4..I%|
000008d0  3d 4c 25 20 b8 20 4c 25  2b 26 33 41 0d 03 3e 08  |=L% . L%+&3A..>.|
000008e0  f3 3f 49 25 0d 03 48 05  ed 0d 03 52 0a 53 55 4d  |.?I%..H....R.SUM|
000008f0  25 3d 30 0d 03 5c 13 e3  49 25 3d 4c 25 20 b8 20  |%=0..\..I%=L% . |
00000900  4c 25 2b 26 33 41 0d 03  66 11 53 55 4d 25 3d 53  |L%+&3A..f.SUM%=S|
00000910  55 4d 25 2b 3f 49 25 0d  03 70 05 ed 0d 03 7a 46  |UM%+?I%..p....zF|
00000920  e7 20 53 55 4d 25 3c 3e  37 30 33 33 ef 37 2c 31  |. SUM%<>7033.7,1|
00000930  32 3a f1 8a 35 2c 35 29  22 43 68 65 63 6b 73 75  |2:..5,5)"Checksu|
00000940  6d 20 65 72 72 6f 72 20  5f 5f 20 63 68 65 63 6b  |m error __ check|
00000950  20 64 61 74 61 20 39 32  30 20 2d 20 39 39 30 22  | data 920 - 990"|
00000960  3a e0 0d 03 84 0b 4c 25  3d 49 25 2b 31 0d 03 8e  |:.....L%=I%+1...|
00000970  05 e1 0d 03 98 20 dc 33  32 2c 31 35 38 2c 31 30  |..... .32,158,10|
00000980  2c 33 32 2c 31 38 31 2c  31 30 2c 32 33 30 2c 31  |,32,181,10,230,1|
00000990  32 39 0d 03 a2 20 dc 32  33 30 2c 31 32 39 2c 33  |29... .230,129,3|
000009a0  32 2c 31 35 38 2c 31 30  2c 33 32 2c 31 38 31 2c  |2,158,10,32,181,|
000009b0  31 30 0d 03 ac 22 dc 39  36 2c 31 36 30 2c 32 35  |10...".96,160,25|
000009c0  35 2c 31 37 37 2c 31 32  38 2c 34 31 2c 31 32 37  |5,177,128,41,127|
000009d0  2c 32 30 31 0d 03 b6 20  dc 33 32 2c 31 37 36 2c  |,201... .32,176,|
000009e0  32 2c 31 36 39 2c 33 32  2c 31 34 35 2c 31 32 38  |2,169,32,145,128|
000009f0  2c 31 33 36 0d 03 c0 1d  dc 31 39 32 2c 38 2c 32  |,136.....192,8,2|
00000a00  34 30 2c 33 2c 37 36 2c  31 36 30 2c 31 30 2c 39  |40,3,76,160,10,9|
00000a10  36 0d 03 ca 23 dc 31 36  30 2c 32 35 35 2c 31 36  |6...#.160,255,16|
00000a20  39 2c 31 33 2c 31 34 35  2c 31 32 38 2c 31 33 36  |9,13,145,128,136|
00000a30  2c 31 33 36 0d 03 d4 23  dc 31 33 36 2c 31 33 36  |,136...#.136,136|
00000a40  2c 31 33 36 2c 31 33 36  2c 31 33 36 2c 31 33 36  |,136,136,136,136|
00000a50  2c 31 39 32 2c 31 35 0d  03 de 0f dc 31 37 36 2c  |,192,15.....176,|
00000a60  32 34 32 2c 39 36 0d 03  e8 0e dd f2 73 6f 72 74  |242,96......sort|
00000a70  63 6f 64 65 0d 03 f2 11  f4 20 53 6f 72 74 73 20  |code..... Sorts |
00000a80  66 69 6c 65 73 0d 03 fc  09 f7 8d 44 60 44 0d 04  |files......D`D..|
00000a90  06 13 e3 49 25 3d 4c 25  20 b8 20 4c 25 2b 26 42  |...I%=L% . L%+&B|
00000aa0  36 0d 04 10 08 f3 3f 49  25 0d 04 1a 05 ed 0d 04  |6.....?I%.......|
00000ab0  24 0a 53 55 4d 25 3d 30  0d 04 2e 13 e3 49 25 3d  |$.SUM%=0.....I%=|
00000ac0  4c 25 20 b8 20 4c 25 2b  26 42 36 0d 04 38 11 53  |L% . L%+&B6..8.S|
00000ad0  55 4d 25 3d 53 55 4d 25  2b 3f 49 25 0d 04 42 05  |UM%=SUM%+?I%..B.|
00000ae0  ed 0d 04 4c 49 e7 20 53  55 4d 25 3c 3e 32 33 36  |...LI. SUM%<>236|
00000af0  33 37 ef 37 2c 31 32 3a  f1 8a 35 2c 35 29 22 43  |37.7,12:..5,5)"C|
00000b00  68 65 63 6b 73 75 6d 20  65 72 72 6f 72 20 5f 5f  |hecksum error __|
00000b10  20 63 68 65 63 6b 20 64  61 74 61 20 31 31 32 30  | check data 1120|
00000b20  20 2d 20 31 33 34 30 22  3a e0 0d 04 56 05 e1 0d  | - 1340":...V...|
00000b30  04 60 1c dc 31 37 33 2c  34 2c 36 2c 31 33 33 2c  |.`..173,4,6,133,|
00000b40  31 32 33 2c 31 37 33 2c  35 2c 36 0d 04 6a 22 dc  |123,173,5,6..j".|
00000b50  31 33 33 2c 31 32 34 2c  31 36 30 2c 30 2c 31 37  |133,124,160,0,17|
00000b60  37 2c 31 32 33 2c 31 33  33 2c 31 32 32 0d 04 74  |7,123,133,122..t|
00000b70  20 dc 31 36 39 2c 30 2c  31 33 33 2c 31 32 35 2c  | .169,0,133,125,|
00000b80  31 36 36 2c 31 32 32 2c  31 37 33 2c 31 0d 04 7e  |166,122,173,1..~|
00000b90  1e dc 36 2c 31 33 33 2c  31 31 32 2c 31 37 33 2c  |..6,133,112,173,|
00000ba0  32 2c 36 2c 31 33 33 2c  31 31 33 0d 04 88 22 dc  |2,6,133,113...".|
00000bb0  31 36 30 2c 30 2c 31 37  37 2c 31 31 32 2c 31 33  |160,0,177,112,13|
00000bc0  33 2c 31 31 34 2c 32 30  30 2c 31 37 37 0d 04 92  |3,114,200,177...|
00000bd0  24 dc 31 31 32 2c 31 33  33 2c 31 31 35 2c 32 30  |$.112,133,115,20|
00000be0  30 2c 31 37 37 2c 31 31  32 2c 31 33 33 2c 31 31  |0,177,112,133,11|
00000bf0  36 0d 04 9c 24 dc 32 30  30 2c 31 37 37 2c 31 31  |6...$.200,177,11|
00000c00  32 2c 31 33 33 2c 31 31  37 2c 32 30 30 2c 31 37  |2,133,117,200,17|
00000c10  37 2c 31 31 32 0d 04 a6  24 dc 31 33 33 2c 31 31  |7,112...$.133,11|
00000c20  38 2c 32 30 30 2c 31 37  37 2c 31 31 32 2c 31 33  |8,200,177,112,13|
00000c30  33 2c 31 31 39 2c 32 30  30 0d 04 b0 24 dc 31 37  |3,119,200...$.17|
00000c40  37 2c 31 31 32 2c 31 33  33 2c 31 32 30 2c 32 30  |7,112,133,120,20|
00000c50  30 2c 31 37 37 2c 31 31  32 2c 31 33 33 0d 04 ba  |0,177,112,133...|
00000c60  22 dc 31 32 31 2c 31 36  35 2c 31 31 37 2c 31 39  |".121,165,117,19|
00000c70  37 2c 31 32 31 2c 31 37  36 2c 35 2c 31 33 33 0d  |7,121,176,5,133.|
00000c80  04 c4 21 dc 31 32 36 2c  37 36 2c 33 33 2c 31 31  |..!.126,76,33,11|
00000c90  2c 31 36 35 2c 31 32 31  2c 31 33 33 2c 31 32 36  |,165,121,133,126|
00000ca0  0d 04 ce 21 dc 31 36 30  2c 30 2c 31 37 37 2c 31  |...!.160,0,177,1|
00000cb0  31 34 2c 32 30 39 2c 31  31 38 2c 31 34 34 2c 36  |14,209,118,144,6|
00000cc0  32 0d 04 d8 21 dc 32 30  38 2c 31 35 2c 32 30 30  |2...!.208,15,200|
00000cd0  2c 31 39 36 2c 31 32 36  2c 32 34 30 2c 32 2c 32  |,196,126,240,2,2|
00000ce0  30 38 0d 04 e2 23 dc 32  34 31 2c 31 36 35 2c 31  |08...#.241,165,1|
00000cf0  31 37 2c 31 39 37 2c 31  32 31 2c 31 34 34 2c 34  |17,197,121,144,4|
00000d00  37 2c 32 34 30 0d 04 ec  21 dc 34 35 2c 31 36 30  |7,240...!.45,160|
00000d10  2c 30 2c 31 36 35 2c 31  31 38 2c 31 34 35 2c 31  |,0,165,118,145,1|
00000d20  31 32 2c 32 30 30 0d 04  f6 24 dc 31 36 35 2c 31  |12,200...$.165,1|
00000d30  31 39 2c 31 34 35 2c 31  31 32 2c 32 30 30 2c 31  |19,145,112,200,1|
00000d40  36 35 2c 31 32 30 2c 31  34 35 0d 05 00 24 dc 31  |65,120,145...$.1|
00000d50  31 32 2c 32 30 30 2c 31  36 35 2c 31 32 31 2c 31  |12,200,165,121,1|
00000d60  34 35 2c 31 31 32 2c 32  30 30 2c 31 36 35 0d 05  |45,112,200,165..|
00000d70  0a 24 dc 31 31 34 2c 31  34 35 2c 31 31 32 2c 32  |.$.114,145,112,2|
00000d80  30 30 2c 31 36 35 2c 31  31 35 2c 31 34 35 2c 31  |00,165,115,145,1|
00000d90  31 32 0d 05 14 24 dc 32  30 30 2c 31 36 35 2c 31  |12...$.200,165,1|
00000da0  31 36 2c 31 34 35 2c 31  31 32 2c 32 30 30 2c 31  |16,145,112,200,1|
00000db0  36 35 2c 31 31 37 0d 05  1e 23 dc 31 34 35 2c 31  |65,117...#.145,1|
00000dc0  31 32 2c 31 36 39 2c 32  35 35 2c 31 33 33 2c 31  |12,169,255,133,1|
00000dd0  32 35 2c 32 34 2c 31 36  35 0d 05 28 20 dc 31 31  |25,24,165..( .11|
00000de0  32 2c 31 30 35 2c 34 2c  31 33 33 2c 31 31 32 2c  |2,105,4,133,112,|
00000df0  31 34 34 2c 32 2c 32 33  30 0d 05 32 20 dc 31 31  |144,2,230..2 .11|
00000e00  33 2c 32 30 32 2c 32 34  30 2c 33 2c 37 36 2c 32  |3,202,240,3,76,2|
00000e10  33 33 2c 31 30 2c 31 36  35 0d 05 3c 1b dc 31 32  |33,10,165..<..12|
00000e20  35 2c 32 34 30 2c 33 2c  37 36 2c 32 31 37 2c 31  |5,240,3,76,217,1|
00000e30  30 2c 39 36 0d 05 46 10  dd f2 6f 73 63 6c 69 28  |0,96..F...oscli(|
00000e40  24 73 25 29 0d 05 50 1d  58 25 3d 73 25 20 83 20  |$s%)..P.X%=s% . |
00000e50  26 31 30 30 3a 59 25 3d  73 25 20 81 20 26 31 30  |&100:Y%=s% . &10|
00000e60  30 0d 05 5a 0a d6 26 46  46 46 37 0d ff           |0..Z..&FFF7..|
00000e6d
15-01-88/CODER.m0
15-01-88/CODER.m1
15-01-88/CODER.m2
15-01-88/CODER.m4
15-01-88/CODER.m5