Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_10.ADF » CON1

CON1

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_10.ADF
Filename: CON1
Read OK:
File size: 1307 bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
   10REM $.CON1
   20MODE4:VDU23,1,0;0;0;0;:GCOL0,129:CLG:GCOL0,0:COLOUR129:COLOUR0
   30PROCdouble("MEASURING",15,2):PROCdouble("C O N D U C T I V I T Y",8,5):PROCdouble("_______________________",8,7)
   40PRINTTAB(12,10)"By David Humphreys"
   50PROCfrank:X=18:Y=20
   60PRINTTAB(X,Y)CHR$224;CHR$225;CHR$226;CHR$227TAB(X,Y+1)CHR$228;CHR$229;CHR$230;CHR$231TAB(X,Y+2)CHR$232;CHR$233;CHR$234;CHR$235
   70PRINTTAB(X,Y+3)CHR$236;CHR$237;CHR$238;CHR$239;TAB(X,Y+4)CHR$240;CHR$241;CHR$242;CHR$243TAB(X,Y+5)CHR$244;CHR$245;CHR$246;CHR$247
   80PROCface
   90PROCbuzz
  100PRINTTAB(10,29)"Please press <SPACE>"
  110REPEAT:PROCin:M$=INKEY$0:PROCout:UNTIL M$=" "
  120MODE3:VDU23,1,0;0;0;0;:VDU14:PRINT''"PRESS <SHIFT> TO SCROLL"''
  130PROCtext
  140REPEAT
  150PRINT'"PLEASE PRESS <P> TO PRINT TEXT <C> TO LOAD PROGRAM <M> FOR MAIN MENU"
  160REPEAT: A$=GET$:UNTIL A$="P" OR A$="C" OR A$="M"
  170IF A$="C" THEN CHAIN"$.CON2"
  180IF A$="M" THEN CHAIN"$.MENU"
  190VDU15:VDU2:PROCtext:VDU3
  200UNTIL FALSE
  210END
  220 DEF PROCfrank
  230 VDU23,224,0,21,43,87,174,93,186,117
  240 VDU23,225,128,192,232,244,188,94,190,254
  250 VDU23,226,1,3,23,47,93,42,125,47
  260 VDU23,227,0,168,212,234,117,186,93,174
  270 VDU23,228,235,215,175,91,225,64,160,95
  280 VDU23,229,254,182,254,214,158,54,110,214
  290 VDU23,230,127,46,127,43,121,44,118,43
  300 VDU23,231,215,235,245,218,135,2,5,250
  310 VDU23,232,175,213,106,55,28,0,112,8
  320 VDU23,233,190,110,218,20,56,60,95,67
  330 VDU23,234,125,38,115,40,20,44,58,194
  340 VDU23,235,245,171,86,236,56,0,14,16
  350 VDU23,236,1,3,3,3,7,14,13,14
  360 VDU23,237,213,170,64,128,64,128,0,42
  370 VDU23,238,75,165,2,1,2,1,0,170
  380 VDU23,239,0,0,128,128,192,64,160,96
  390 VDU23,240,28,58,52,59,28,24,52,56
  400 VDU23,241,127,213,128,64,0,0,0,10
  410 VDU23,242,254,87,1,2,0,0,0,128
  420 VDU23,243,48,112,40,152,48,16,40,24
  430 VDU23,244,28,10,5,2,5,0,0,0
  440 VDU23,245,85,170,84,40,0,0,0,0
  450 VDU23,246,80,0,0,0,0,0,0,0
  460 VDU23,247,0,0,0,0,0,0,0,0
  470 ENDPROC
  480DEF PROCface
  490MOVE572,332
  500DRAW564,300
  510DRAW580,272
  520DRAW580,216
  530DRAW608,188
  540DRAW660,188
  550DRAW684,212
  560DRAW692,272
  570DRAW704,288
  580DRAW708,300
  590DRAW704,332
  600DRAW704,412
  610DRAW692,396
  620DRAW684,416
  630DRAW672,396
  640DRAW664,412
  650DRAW656,396
  660DRAW644,412
  670DRAW636,396
  680DRAW624,412
  690DRAW616,400
  700DRAW604,416
  710DRAW596,396
  720DRAW588,416
  730DRAW584,396
  740DRAW572,416
  750DRAW572,336
  760DRAW560,456
  770DRAW712,456
  780DRAW708,360
  790MOVE688,252
  800DRAW704,168
  810MOVE580,252
  820DRAW568,168
  830MOVE572,192
  840DRAW544,192
  850DRAW544,168
  860DRAW524,168
  870DRAW524,220
  880DRAW544,220
  890DRAW544,208
  900DRAW572,208
  910MOVE696,208
  920DRAW724,208
  930DRAW724,220
  940DRAW724,224
  950DRAW740,224
  960DRAW740,180
  970DRAW740,172
  980DRAW724,172
  990DRAW724,192
 1000DRAW700,192
 1010ENDPROC
 1020 DEF PROCbuzz
 1030 VDU23,224,119,85,85,85,85,213,21,29
 1040 VDU23,225,119,85,85,85,84,84,84,220
 1050 VDU23,226,0,0,0,0,255,0,0,0
 1060Z$=CHR$226+CHR$224+CHR$225
 1070 ENDPROC
 1080DEF PROCin
 1090Y=25:FOR X=0 TO 13:PRINTTAB(X,Y);Z$:PROCd:NEXT:PRINTTAB(X,Y);CHR$226;CHR$226
 1100SOUND0,-15,6,2:SOUND0,-15,7,2:FOR R=5 TO 7:VDU19,0,R,0,0,0:PROCd:PROCd:NEXT:VDU19,0,0,0,0,0
 1110ENDPROC
 1120DEF PROCout
 1130Y=25:FOR X=24 TO 37:PRINTTAB(X,Y);Z$:PROCd:NEXT:PRINTTAB(X,Y);CHR$226;CHR$226
 1140ENDPROC
 1150DEF PROCd:FOR D=1 TO 50:NEXT:ENDPROC
 1160 DEF PROCdouble(A$,K,L)
 1170LOCAL N
 1180A%=135
 1190A%=&A:X%=0:Y%=&A
 1200D=&A00
 1210FOR N=1 TO LEN(A$)
 1220B$=MID$(A$,N,1)
 1230?D=ASC(B$)
 1240CALL (&FFF1)
 1250VDU23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4
 1260VDU23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
 1270PRINTTAB(K+N,L);CHR$240;TAB(K+N,L+1);CHR$241
 1280NEXT N
 1290ENDPROC
 1300DEF PROCtext
 1310PRINT"This program will read the conductivity of any object and then plot a"
 1320PRINT"graph showing this property as a percentage. What use is this, you may"
 1330PRINT"ask. To be honest, I've no idea, although it can be fun to hold a probe in"
 1340PRINT"each hand and compare notes with your family, etc. I'm sure it could be"
 1350PRINT"put to more serious use, but for now let's regard it as a toy!"
 1360PRINT
 1370PRINT"All that is needed is an Electron, PLUS-1, AP1, ROMBOX or ROMBOX+ to begin"
 1380PRINT"with. Then you need a couple of 'probes', two old forks would do (no Will,"
 1390PRINT"NOT the plastic 'picnic' variety....)! on suitably long leads."
 1400PRINT
 1410PRINT"You will need a 15-pin D-type plug to fit the A/D (joystick) port. Solder"
 1420PRINT"one of the leads to pin-15 (Analogue channel 0) and one to pin-11 or"
 1430PRINT"pin-14 (Analogue Voltage reference, Vref 1.8v) depending on which you find"
 1440PRINT"easier - consult the Plus1  User Guide if in doubt. Now simply connect the"
 1450PRINT"D-type plug to the PLUS-1 and you're ready to go! Nothing could be easier!"
 1460PRINT
 1470PRINT"The next thing to do is to connect the probes to whatever you want to"
 1480PRINT"measure. A good test item to start with would be yourself. Hold a probe in"
 1490PRINT"each hand.  If you can type with both hands full you're OK. If not, put"
 1500PRINT"them down and grab them again on the title screen and run the program. You"
 1510PRINT"will see the aforementioned title screen. After 10 seconds everything"
 1520PRINT"starts to happen. Just leave the probes in place and a graph will be"
 1530PRINT"plotted of your conductivity. When the graph is finished, the program will"
 1540PRINT"calculate your average conductivity as a percentage. Just type 'Y' to exit"
 1550PRINT"the program or any other key to begin again."
 1560PRINT
 1570PRINT"This is quite a lot of fun when finding out just how much of granny really"
 1580PRINT"is solid steel, but I am convinced that it can be used in a more useful"
 1590PRINT"way. If you have any suggestions, I would be pleased to hear them. Happy"
 1600PRINT"measuring!"
 1610ENDPROC

� $.CON1
+�4:�23,1,0;0;0;0;:�0,129:�:�0,0:�129:�0
k�double("MEASURING",15,2):�double("C O N D U C T I V I T Y",8,5):�double("_______________________",8,7)
( �12,10)"By David Humphreys"
2�frank:X=18:Y=20
<Q�X,Y)�224;�225;�226;�227�X,Y+1)�228;�229;�230;�231�X,Y+2)�232;�233;�234;�235
FT�X,Y+3)�236;�237;�238;�239;�X,Y+4)�240;�241;�242;�243�X,Y+5)�244;�245;�246;�247
P	�face
Z	�buzz
d"�10,29)"Please press <SPACE>"
n�:�in:M$=�0:�out:� M$=" "
x8�3:�23,1,0;0;0;0;:�14:�''"PRESS <SHIFT> TO SCROLL"''
�	�text
��
�L�'"PLEASE PRESS <P> TO PRINT TEXT <C> TO LOAD PROGRAM <M> FOR MAIN MENU"
�&�: A$=�:� A$="P" � A$="C" � A$="M"
�� A$="C" � �"$.CON2"
�� A$="M" � �"$.MENU"
��15:�2:�text:�3
�� �
��
�
 � �frank
�& �23,224,0,21,43,87,174,93,186,117
�+ �23,225,128,192,232,244,188,94,190,254
�# �23,226,1,3,23,47,93,42,125,47
) �23,227,0,168,212,234,117,186,93,174
) �23,228,235,215,175,91,225,64,160,95
+ �23,229,254,182,254,214,158,54,110,214
"( �23,230,127,46,127,43,121,44,118,43
,( �23,231,215,235,245,218,135,2,5,250
6& �23,232,175,213,106,55,28,0,112,8
@' �23,233,190,110,218,20,56,60,95,67
J' �23,234,125,38,115,40,20,44,58,194
T& �23,235,245,171,86,236,56,0,14,16
^ �23,236,1,3,3,3,7,14,13,14
h' �23,237,213,170,64,128,64,128,0,42
r! �23,238,75,165,2,1,2,1,0,170
|& �23,239,0,0,128,128,192,64,160,96
�$ �23,240,28,58,52,59,28,24,52,56
�$ �23,241,127,213,128,64,0,0,0,10
�! �23,242,254,87,1,2,0,0,0,128
�& �23,243,48,112,40,152,48,16,40,24
� �23,244,28,10,5,2,5,0,0,0
�! �23,245,85,170,84,40,0,0,0,0
� �23,246,80,0,0,0,0,0,0,0
� �23,247,0,0,0,0,0,0,0,0
� �
�� �face
��572,332
��564,300
��580,272
�580,216
�608,188
�660,188
&�684,212
0�692,272
:�704,288
D�708,300
N�704,332
X�704,412
b�692,396
l�684,416
v�672,396
��664,412
��656,396
��644,412
��636,396
��624,412
��616,400
��604,416
��596,396
��588,416
��584,396
��572,416
��572,336
��560,456
�712,456
�708,360
�688,252
 �704,168
*�580,252
4�568,168
>�572,192
H�544,192
R�544,168
\�524,168
f�524,220
p�544,220
z�544,208
��572,208
��696,208
��724,208
��724,220
��724,224
��740,224
��740,180
��740,172
��724,172
��724,192
��700,192
��
� � �buzz
& �23,224,119,85,85,85,85,213,21,29
& �23,225,119,85,85,85,84,84,84,220
 �23,226,0,0,0,0,255,0,0,0
$Z$=�226+�224+�225
. �
8	� �in
B3Y=25:� X=0 � 13:�X,Y);Z$:�d:�:�X,Y);�226;�226
LG�0,-15,6,2:�0,-15,7,2:� R=5 � 7:�19,0,R,0,0,0:�d:�d:�:�19,0,0,0,0,0
V�
`
� �out
j4Y=25:� X=24 � 37:�X,Y);Z$:�d:�:�X,Y);�226;�226
t�
~� �d:� D=1 � 50:�:�
� � �double(A$,K,L)
�� N
�
A%=135
�A%=&A:X%=0:Y%=&A
�
D=&A00
�� N=1 � �(A$)
�B$=�A$,N,1)
�?D=�(B$)
�
� (&FFF1)
�+�23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4
�+�23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
� �K+N,L);�240;�K+N,L+1);�241
� N

�
� �text
L�"This program will read the conductivity of any object and then plot a"
(M�"graph showing this property as a percentage. What use is this, you may"
2Q�"ask. To be honest, I've no idea, although it can be fun to hold a probe in"
<N�"each hand and compare notes with your family, etc. I'm sure it could be"
FE�"put to more serious use, but for now let's regard it as a toy!"
P�
ZQ�"All that is needed is an Electron, PLUS-1, AP1, ROMBOX or ROMBOX+ to begin"
dQ�"with. Then you need a couple of 'probes', two old forks would do (no Will,"
nE�"NOT the plastic 'picnic' variety....)! on suitably long leads."
x�
�P�"You will need a 15-pin D-type plug to fit the A/D (joystick) port. Solder"
�K�"one of the leads to pin-15 (Analogue channel 0) and one to pin-11 or"
�Q�"pin-14 (Analogue Voltage reference, Vref 1.8v) depending on which you find"
�Q�"easier - consult the Plus1  User Guide if in doubt. Now simply connect the"
�Q�"D-type plug to the PLUS-1 and you're ready to go! Nothing could be easier!"
��
�L�"The next thing to do is to connect the probes to whatever you want to"
�Q�"measure. A good test item to start with would be yourself. Hold a probe in"
�N�"each hand.  If you can type with both hands full you're OK. If not, put"
�Q�"them down and grab them again on the title screen and run the program. You"
�L�"will see the aforementioned title screen. After 10 seconds everything"
�K�"starts to happen. Just leave the probes in place and a graph will be"
�Q�"plotted of your conductivity. When the graph is finished, the program will"
Q�"calculate your average conductivity as a percentage. Just type 'Y' to exit"
3�"the program or any other key to begin again."
�
"Q�"This is quite a lot of fun when finding out just how much of granny really"
,N�"is solid steel, but I am convinced that it can be used in a more useful"
6O�"way. If you have any suggestions, I would be pleased to hear them. Happy"
@�"measuring!"
J�
�
00000000  0d 00 0a 0c f4 20 24 2e  43 4f 4e 31 0d 00 14 2b  |..... $.CON1...+|
00000010  eb 34 3a ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.4:.23,1,0;0;0;0|
00000020  3b 3a e6 30 2c 31 32 39  3a da 3a e6 30 2c 30 3a  |;:.0,129:.:.0,0:|
00000030  fb 31 32 39 3a fb 30 0d  00 1e 6b f2 64 6f 75 62  |.129:.0...k.doub|
00000040  6c 65 28 22 4d 45 41 53  55 52 49 4e 47 22 2c 31  |le("MEASURING",1|
00000050  35 2c 32 29 3a f2 64 6f  75 62 6c 65 28 22 43 20  |5,2):.double("C |
00000060  4f 20 4e 20 44 20 55 20  43 20 54 20 49 20 56 20  |O N D U C T I V |
00000070  49 20 54 20 59 22 2c 38  2c 35 29 3a f2 64 6f 75  |I T Y",8,5):.dou|
00000080  62 6c 65 28 22 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |ble("___________|
00000090  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 22 2c 38 2c  |____________",8,|
000000a0  37 29 0d 00 28 20 f1 8a  31 32 2c 31 30 29 22 42  |7)..( ..12,10)"B|
000000b0  79 20 44 61 76 69 64 20  48 75 6d 70 68 72 65 79  |y David Humphrey|
000000c0  73 22 0d 00 32 14 f2 66  72 61 6e 6b 3a 58 3d 31  |s"..2..frank:X=1|
000000d0  38 3a 59 3d 32 30 0d 00  3c 51 f1 8a 58 2c 59 29  |8:Y=20..<Q..X,Y)|
000000e0  bd 32 32 34 3b bd 32 32  35 3b bd 32 32 36 3b bd  |.224;.225;.226;.|
000000f0  32 32 37 8a 58 2c 59 2b  31 29 bd 32 32 38 3b bd  |227.X,Y+1).228;.|
00000100  32 32 39 3b bd 32 33 30  3b bd 32 33 31 8a 58 2c  |229;.230;.231.X,|
00000110  59 2b 32 29 bd 32 33 32  3b bd 32 33 33 3b bd 32  |Y+2).232;.233;.2|
00000120  33 34 3b bd 32 33 35 0d  00 46 54 f1 8a 58 2c 59  |34;.235..FT..X,Y|
00000130  2b 33 29 bd 32 33 36 3b  bd 32 33 37 3b bd 32 33  |+3).236;.237;.23|
00000140  38 3b bd 32 33 39 3b 8a  58 2c 59 2b 34 29 bd 32  |8;.239;.X,Y+4).2|
00000150  34 30 3b bd 32 34 31 3b  bd 32 34 32 3b bd 32 34  |40;.241;.242;.24|
00000160  33 8a 58 2c 59 2b 35 29  bd 32 34 34 3b bd 32 34  |3.X,Y+5).244;.24|
00000170  35 3b bd 32 34 36 3b bd  32 34 37 0d 00 50 09 f2  |5;.246;.247..P..|
00000180  66 61 63 65 0d 00 5a 09  f2 62 75 7a 7a 0d 00 64  |face..Z..buzz..d|
00000190  22 f1 8a 31 30 2c 32 39  29 22 50 6c 65 61 73 65  |"..10,29)"Please|
000001a0  20 70 72 65 73 73 20 3c  53 50 41 43 45 3e 22 0d  | press <SPACE>".|
000001b0  00 6e 1d f5 3a f2 69 6e  3a 4d 24 3d bf 30 3a f2  |.n..:.in:M$=.0:.|
000001c0  6f 75 74 3a fd 20 4d 24  3d 22 20 22 0d 00 78 38  |out:. M$=" "..x8|
000001d0  eb 33 3a ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.3:.23,1,0;0;0;0|
000001e0  3b 3a ef 31 34 3a f1 27  27 22 50 52 45 53 53 20  |;:.14:.''"PRESS |
000001f0  3c 53 48 49 46 54 3e 20  54 4f 20 53 43 52 4f 4c  |<SHIFT> TO SCROL|
00000200  4c 22 27 27 0d 00 82 09  f2 74 65 78 74 0d 00 8c  |L"''.....text...|
00000210  05 f5 0d 00 96 4c f1 27  22 50 4c 45 41 53 45 20  |.....L.'"PLEASE |
00000220  50 52 45 53 53 20 3c 50  3e 20 54 4f 20 50 52 49  |PRESS <P> TO PRI|
00000230  4e 54 20 54 45 58 54 20  3c 43 3e 20 54 4f 20 4c  |NT TEXT <C> TO L|
00000240  4f 41 44 20 50 52 4f 47  52 41 4d 20 3c 4d 3e 20  |OAD PROGRAM <M> |
00000250  46 4f 52 20 4d 41 49 4e  20 4d 45 4e 55 22 0d 00  |FOR MAIN MENU"..|
00000260  a0 26 f5 3a 20 41 24 3d  be 3a fd 20 41 24 3d 22  |.&.: A$=.:. A$="|
00000270  50 22 20 84 20 41 24 3d  22 43 22 20 84 20 41 24  |P" . A$="C" . A$|
00000280  3d 22 4d 22 0d 00 aa 18  e7 20 41 24 3d 22 43 22  |="M"..... A$="C"|
00000290  20 8c 20 d7 22 24 2e 43  4f 4e 32 22 0d 00 b4 18  | . ."$.CON2"....|
000002a0  e7 20 41 24 3d 22 4d 22  20 8c 20 d7 22 24 2e 4d  |. A$="M" . ."$.M|
000002b0  45 4e 55 22 0d 00 be 13  ef 31 35 3a ef 32 3a f2  |ENU".....15:.2:.|
000002c0  74 65 78 74 3a ef 33 0d  00 c8 07 fd 20 a3 0d 00  |text:.3..... ...|
000002d0  d2 05 e0 0d 00 dc 0d 20  dd 20 f2 66 72 61 6e 6b  |....... . .frank|
000002e0  0d 00 e6 26 20 ef 32 33  2c 32 32 34 2c 30 2c 32  |...& .23,224,0,2|
000002f0  31 2c 34 33 2c 38 37 2c  31 37 34 2c 39 33 2c 31  |1,43,87,174,93,1|
00000300  38 36 2c 31 31 37 0d 00  f0 2b 20 ef 32 33 2c 32  |86,117...+ .23,2|
00000310  32 35 2c 31 32 38 2c 31  39 32 2c 32 33 32 2c 32  |25,128,192,232,2|
00000320  34 34 2c 31 38 38 2c 39  34 2c 31 39 30 2c 32 35  |44,188,94,190,25|
00000330  34 0d 00 fa 23 20 ef 32  33 2c 32 32 36 2c 31 2c  |4...# .23,226,1,|
00000340  33 2c 32 33 2c 34 37 2c  39 33 2c 34 32 2c 31 32  |3,23,47,93,42,12|
00000350  35 2c 34 37 0d 01 04 29  20 ef 32 33 2c 32 32 37  |5,47...) .23,227|
00000360  2c 30 2c 31 36 38 2c 32  31 32 2c 32 33 34 2c 31  |,0,168,212,234,1|
00000370  31 37 2c 31 38 36 2c 39  33 2c 31 37 34 0d 01 0e  |17,186,93,174...|
00000380  29 20 ef 32 33 2c 32 32  38 2c 32 33 35 2c 32 31  |) .23,228,235,21|
00000390  35 2c 31 37 35 2c 39 31  2c 32 32 35 2c 36 34 2c  |5,175,91,225,64,|
000003a0  31 36 30 2c 39 35 0d 01  18 2b 20 ef 32 33 2c 32  |160,95...+ .23,2|
000003b0  32 39 2c 32 35 34 2c 31  38 32 2c 32 35 34 2c 32  |29,254,182,254,2|
000003c0  31 34 2c 31 35 38 2c 35  34 2c 31 31 30 2c 32 31  |14,158,54,110,21|
000003d0  34 0d 01 22 28 20 ef 32  33 2c 32 33 30 2c 31 32  |4.."( .23,230,12|
000003e0  37 2c 34 36 2c 31 32 37  2c 34 33 2c 31 32 31 2c  |7,46,127,43,121,|
000003f0  34 34 2c 31 31 38 2c 34  33 0d 01 2c 28 20 ef 32  |44,118,43..,( .2|
00000400  33 2c 32 33 31 2c 32 31  35 2c 32 33 35 2c 32 34  |3,231,215,235,24|
00000410  35 2c 32 31 38 2c 31 33  35 2c 32 2c 35 2c 32 35  |5,218,135,2,5,25|
00000420  30 0d 01 36 26 20 ef 32  33 2c 32 33 32 2c 31 37  |0..6& .23,232,17|
00000430  35 2c 32 31 33 2c 31 30  36 2c 35 35 2c 32 38 2c  |5,213,106,55,28,|
00000440  30 2c 31 31 32 2c 38 0d  01 40 27 20 ef 32 33 2c  |0,112,8..@' .23,|
00000450  32 33 33 2c 31 39 30 2c  31 31 30 2c 32 31 38 2c  |233,190,110,218,|
00000460  32 30 2c 35 36 2c 36 30  2c 39 35 2c 36 37 0d 01  |20,56,60,95,67..|
00000470  4a 27 20 ef 32 33 2c 32  33 34 2c 31 32 35 2c 33  |J' .23,234,125,3|
00000480  38 2c 31 31 35 2c 34 30  2c 32 30 2c 34 34 2c 35  |8,115,40,20,44,5|
00000490  38 2c 31 39 34 0d 01 54  26 20 ef 32 33 2c 32 33  |8,194..T& .23,23|
000004a0  35 2c 32 34 35 2c 31 37  31 2c 38 36 2c 32 33 36  |5,245,171,86,236|
000004b0  2c 35 36 2c 30 2c 31 34  2c 31 36 0d 01 5e 1f 20  |,56,0,14,16..^. |
000004c0  ef 32 33 2c 32 33 36 2c  31 2c 33 2c 33 2c 33 2c  |.23,236,1,3,3,3,|
000004d0  37 2c 31 34 2c 31 33 2c  31 34 0d 01 68 27 20 ef  |7,14,13,14..h' .|
000004e0  32 33 2c 32 33 37 2c 32  31 33 2c 31 37 30 2c 36  |23,237,213,170,6|
000004f0  34 2c 31 32 38 2c 36 34  2c 31 32 38 2c 30 2c 34  |4,128,64,128,0,4|
00000500  32 0d 01 72 21 20 ef 32  33 2c 32 33 38 2c 37 35  |2..r! .23,238,75|
00000510  2c 31 36 35 2c 32 2c 31  2c 32 2c 31 2c 30 2c 31  |,165,2,1,2,1,0,1|
00000520  37 30 0d 01 7c 26 20 ef  32 33 2c 32 33 39 2c 30  |70..|& .23,239,0|
00000530  2c 30 2c 31 32 38 2c 31  32 38 2c 31 39 32 2c 36  |,0,128,128,192,6|
00000540  34 2c 31 36 30 2c 39 36  0d 01 86 24 20 ef 32 33  |4,160,96...$ .23|
00000550  2c 32 34 30 2c 32 38 2c  35 38 2c 35 32 2c 35 39  |,240,28,58,52,59|
00000560  2c 32 38 2c 32 34 2c 35  32 2c 35 36 0d 01 90 24  |,28,24,52,56...$|
00000570  20 ef 32 33 2c 32 34 31  2c 31 32 37 2c 32 31 33  | .23,241,127,213|
00000580  2c 31 32 38 2c 36 34 2c  30 2c 30 2c 30 2c 31 30  |,128,64,0,0,0,10|
00000590  0d 01 9a 21 20 ef 32 33  2c 32 34 32 2c 32 35 34  |...! .23,242,254|
000005a0  2c 38 37 2c 31 2c 32 2c  30 2c 30 2c 30 2c 31 32  |,87,1,2,0,0,0,12|
000005b0  38 0d 01 a4 26 20 ef 32  33 2c 32 34 33 2c 34 38  |8...& .23,243,48|
000005c0  2c 31 31 32 2c 34 30 2c  31 35 32 2c 34 38 2c 31  |,112,40,152,48,1|
000005d0  36 2c 34 30 2c 32 34 0d  01 ae 1e 20 ef 32 33 2c  |6,40,24.... .23,|
000005e0  32 34 34 2c 32 38 2c 31  30 2c 35 2c 32 2c 35 2c  |244,28,10,5,2,5,|
000005f0  30 2c 30 2c 30 0d 01 b8  21 20 ef 32 33 2c 32 34  |0,0,0...! .23,24|
00000600  35 2c 38 35 2c 31 37 30  2c 38 34 2c 34 30 2c 30  |5,85,170,84,40,0|
00000610  2c 30 2c 30 2c 30 0d 01  c2 1d 20 ef 32 33 2c 32  |,0,0,0.... .23,2|
00000620  34 36 2c 38 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |46,80,0,0,0,0,0,|
00000630  30 2c 30 0d 01 cc 1c 20  ef 32 33 2c 32 34 37 2c  |0,0.... .23,247,|
00000640  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |0,0,0,0,0,0,0,0.|
00000650  01 d6 06 20 e1 0d 01 e0  0b dd 20 f2 66 61 63 65  |... ...... .face|
00000660  0d 01 ea 0c ec 35 37 32  2c 33 33 32 0d 01 f4 0c  |.....572,332....|
00000670  df 35 36 34 2c 33 30 30  0d 01 fe 0c df 35 38 30  |.564,300.....580|
00000680  2c 32 37 32 0d 02 08 0c  df 35 38 30 2c 32 31 36  |,272.....580,216|
00000690  0d 02 12 0c df 36 30 38  2c 31 38 38 0d 02 1c 0c  |.....608,188....|
000006a0  df 36 36 30 2c 31 38 38  0d 02 26 0c df 36 38 34  |.660,188..&..684|
000006b0  2c 32 31 32 0d 02 30 0c  df 36 39 32 2c 32 37 32  |,212..0..692,272|
000006c0  0d 02 3a 0c df 37 30 34  2c 32 38 38 0d 02 44 0c  |..:..704,288..D.|
000006d0  df 37 30 38 2c 33 30 30  0d 02 4e 0c df 37 30 34  |.708,300..N..704|
000006e0  2c 33 33 32 0d 02 58 0c  df 37 30 34 2c 34 31 32  |,332..X..704,412|
000006f0  0d 02 62 0c df 36 39 32  2c 33 39 36 0d 02 6c 0c  |..b..692,396..l.|
00000700  df 36 38 34 2c 34 31 36  0d 02 76 0c df 36 37 32  |.684,416..v..672|
00000710  2c 33 39 36 0d 02 80 0c  df 36 36 34 2c 34 31 32  |,396.....664,412|
00000720  0d 02 8a 0c df 36 35 36  2c 33 39 36 0d 02 94 0c  |.....656,396....|
00000730  df 36 34 34 2c 34 31 32  0d 02 9e 0c df 36 33 36  |.644,412.....636|
00000740  2c 33 39 36 0d 02 a8 0c  df 36 32 34 2c 34 31 32  |,396.....624,412|
00000750  0d 02 b2 0c df 36 31 36  2c 34 30 30 0d 02 bc 0c  |.....616,400....|
00000760  df 36 30 34 2c 34 31 36  0d 02 c6 0c df 35 39 36  |.604,416.....596|
00000770  2c 33 39 36 0d 02 d0 0c  df 35 38 38 2c 34 31 36  |,396.....588,416|
00000780  0d 02 da 0c df 35 38 34  2c 33 39 36 0d 02 e4 0c  |.....584,396....|
00000790  df 35 37 32 2c 34 31 36  0d 02 ee 0c df 35 37 32  |.572,416.....572|
000007a0  2c 33 33 36 0d 02 f8 0c  df 35 36 30 2c 34 35 36  |,336.....560,456|
000007b0  0d 03 02 0c df 37 31 32  2c 34 35 36 0d 03 0c 0c  |.....712,456....|
000007c0  df 37 30 38 2c 33 36 30  0d 03 16 0c ec 36 38 38  |.708,360.....688|
000007d0  2c 32 35 32 0d 03 20 0c  df 37 30 34 2c 31 36 38  |,252.. ..704,168|
000007e0  0d 03 2a 0c ec 35 38 30  2c 32 35 32 0d 03 34 0c  |..*..580,252..4.|
000007f0  df 35 36 38 2c 31 36 38  0d 03 3e 0c ec 35 37 32  |.568,168..>..572|
00000800  2c 31 39 32 0d 03 48 0c  df 35 34 34 2c 31 39 32  |,192..H..544,192|
00000810  0d 03 52 0c df 35 34 34  2c 31 36 38 0d 03 5c 0c  |..R..544,168..\.|
00000820  df 35 32 34 2c 31 36 38  0d 03 66 0c df 35 32 34  |.524,168..f..524|
00000830  2c 32 32 30 0d 03 70 0c  df 35 34 34 2c 32 32 30  |,220..p..544,220|
00000840  0d 03 7a 0c df 35 34 34  2c 32 30 38 0d 03 84 0c  |..z..544,208....|
00000850  df 35 37 32 2c 32 30 38  0d 03 8e 0c ec 36 39 36  |.572,208.....696|
00000860  2c 32 30 38 0d 03 98 0c  df 37 32 34 2c 32 30 38  |,208.....724,208|
00000870  0d 03 a2 0c df 37 32 34  2c 32 32 30 0d 03 ac 0c  |.....724,220....|
00000880  df 37 32 34 2c 32 32 34  0d 03 b6 0c df 37 34 30  |.724,224.....740|
00000890  2c 32 32 34 0d 03 c0 0c  df 37 34 30 2c 31 38 30  |,224.....740,180|
000008a0  0d 03 ca 0c df 37 34 30  2c 31 37 32 0d 03 d4 0c  |.....740,172....|
000008b0  df 37 32 34 2c 31 37 32  0d 03 de 0c df 37 32 34  |.724,172.....724|
000008c0  2c 31 39 32 0d 03 e8 0c  df 37 30 30 2c 31 39 32  |,192.....700,192|
000008d0  0d 03 f2 05 e1 0d 03 fc  0c 20 dd 20 f2 62 75 7a  |......... . .buz|
000008e0  7a 0d 04 06 26 20 ef 32  33 2c 32 32 34 2c 31 31  |z...& .23,224,11|
000008f0  39 2c 38 35 2c 38 35 2c  38 35 2c 38 35 2c 32 31  |9,85,85,85,85,21|
00000900  33 2c 32 31 2c 32 39 0d  04 10 26 20 ef 32 33 2c  |3,21,29...& .23,|
00000910  32 32 35 2c 31 31 39 2c  38 35 2c 38 35 2c 38 35  |225,119,85,85,85|
00000920  2c 38 34 2c 38 34 2c 38  34 2c 32 32 30 0d 04 1a  |,84,84,84,220...|
00000930  1e 20 ef 32 33 2c 32 32  36 2c 30 2c 30 2c 30 2c  |. .23,226,0,0,0,|
00000940  30 2c 32 35 35 2c 30 2c  30 2c 30 0d 04 24 15 5a  |0,255,0,0,0..$.Z|
00000950  24 3d bd 32 32 36 2b bd  32 32 34 2b bd 32 32 35  |$=.226+.224+.225|
00000960  0d 04 2e 06 20 e1 0d 04  38 09 dd 20 f2 69 6e 0d  |.... ...8.. .in.|
00000970  04 42 33 59 3d 32 35 3a  e3 20 58 3d 30 20 b8 20  |.B3Y=25:. X=0 . |
00000980  31 33 3a f1 8a 58 2c 59  29 3b 5a 24 3a f2 64 3a  |13:..X,Y);Z$:.d:|
00000990  ed 3a f1 8a 58 2c 59 29  3b bd 32 32 36 3b bd 32  |.:..X,Y);.226;.2|
000009a0  32 36 0d 04 4c 47 d4 30  2c 2d 31 35 2c 36 2c 32  |26..LG.0,-15,6,2|
000009b0  3a d4 30 2c 2d 31 35 2c  37 2c 32 3a e3 20 52 3d  |:.0,-15,7,2:. R=|
000009c0  35 20 b8 20 37 3a ef 31  39 2c 30 2c 52 2c 30 2c  |5 . 7:.19,0,R,0,|
000009d0  30 2c 30 3a f2 64 3a f2  64 3a ed 3a ef 31 39 2c  |0,0:.d:.d:.:.19,|
000009e0  30 2c 30 2c 30 2c 30 2c  30 0d 04 56 05 e1 0d 04  |0,0,0,0,0..V....|
000009f0  60 0a dd 20 f2 6f 75 74  0d 04 6a 34 59 3d 32 35  |`.. .out..j4Y=25|
00000a00  3a e3 20 58 3d 32 34 20  b8 20 33 37 3a f1 8a 58  |:. X=24 . 37:..X|
00000a10  2c 59 29 3b 5a 24 3a f2  64 3a ed 3a f1 8a 58 2c  |,Y);Z$:.d:.:..X,|
00000a20  59 29 3b bd 32 32 36 3b  bd 32 32 36 0d 04 74 05  |Y);.226;.226..t.|
00000a30  e1 0d 04 7e 17 dd 20 f2  64 3a e3 20 44 3d 31 20  |...~.. .d:. D=1 |
00000a40  b8 20 35 30 3a ed 3a e1  0d 04 88 16 20 dd 20 f2  |. 50:.:..... . .|
00000a50  64 6f 75 62 6c 65 28 41  24 2c 4b 2c 4c 29 0d 04  |double(A$,K,L)..|
00000a60  92 07 ea 20 4e 0d 04 9c  0a 41 25 3d 31 33 35 0d  |... N....A%=135.|
00000a70  04 a6 14 41 25 3d 26 41  3a 58 25 3d 30 3a 59 25  |...A%=&A:X%=0:Y%|
00000a80  3d 26 41 0d 04 b0 0a 44  3d 26 41 30 30 0d 04 ba  |=&A....D=&A00...|
00000a90  11 e3 20 4e 3d 31 20 b8  20 a9 28 41 24 29 0d 04  |.. N=1 . .(A$)..|
00000aa0  c4 0f 42 24 3d c1 41 24  2c 4e 2c 31 29 0d 04 ce  |..B$=.A$,N,1)...|
00000ab0  0c 3f 44 3d 97 28 42 24  29 0d 04 d8 0d d6 20 28  |.?D=.(B$)..... (|
00000ac0  26 46 46 46 31 29 0d 04  e2 2b ef 32 33 2c 32 34  |&FFF1)...+.23,24|
00000ad0  30 2c 44 3f 31 2c 44 3f  31 2c 44 3f 32 2c 44 3f  |0,D?1,D?1,D?2,D?|
00000ae0  32 2c 44 3f 33 2c 44 3f  33 2c 44 3f 34 2c 44 3f  |2,D?3,D?3,D?4,D?|
00000af0  34 0d 04 ec 2b ef 32 33  2c 32 34 31 2c 44 3f 35  |4...+.23,241,D?5|
00000b00  2c 44 3f 35 2c 44 3f 36  2c 44 3f 36 2c 44 3f 37  |,D?5,D?6,D?6,D?7|
00000b10  2c 44 3f 37 2c 44 3f 38  2c 44 3f 38 0d 04 f6 20  |,D?7,D?8,D?8... |
00000b20  f1 8a 4b 2b 4e 2c 4c 29  3b bd 32 34 30 3b 8a 4b  |..K+N,L);.240;.K|
00000b30  2b 4e 2c 4c 2b 31 29 3b  bd 32 34 31 0d 05 00 07  |+N,L+1);.241....|
00000b40  ed 20 4e 0d 05 0a 05 e1  0d 05 14 0b dd 20 f2 74  |. N.......... .t|
00000b50  65 78 74 0d 05 1e 4c f1  22 54 68 69 73 20 70 72  |ext...L."This pr|
00000b60  6f 67 72 61 6d 20 77 69  6c 6c 20 72 65 61 64 20  |ogram will read |
00000b70  74 68 65 20 63 6f 6e 64  75 63 74 69 76 69 74 79  |the conductivity|
00000b80  20 6f 66 20 61 6e 79 20  6f 62 6a 65 63 74 20 61  | of any object a|
00000b90  6e 64 20 74 68 65 6e 20  70 6c 6f 74 20 61 22 0d  |nd then plot a".|
00000ba0  05 28 4d f1 22 67 72 61  70 68 20 73 68 6f 77 69  |.(M."graph showi|
00000bb0  6e 67 20 74 68 69 73 20  70 72 6f 70 65 72 74 79  |ng this property|
00000bc0  20 61 73 20 61 20 70 65  72 63 65 6e 74 61 67 65  | as a percentage|
00000bd0  2e 20 57 68 61 74 20 75  73 65 20 69 73 20 74 68  |. What use is th|
00000be0  69 73 2c 20 79 6f 75 20  6d 61 79 22 0d 05 32 51  |is, you may"..2Q|
00000bf0  f1 22 61 73 6b 2e 20 54  6f 20 62 65 20 68 6f 6e  |."ask. To be hon|
00000c00  65 73 74 2c 20 49 27 76  65 20 6e 6f 20 69 64 65  |est, I've no ide|
00000c10  61 2c 20 61 6c 74 68 6f  75 67 68 20 69 74 20 63  |a, although it c|
00000c20  61 6e 20 62 65 20 66 75  6e 20 74 6f 20 68 6f 6c  |an be fun to hol|
00000c30  64 20 61 20 70 72 6f 62  65 20 69 6e 22 0d 05 3c  |d a probe in"..<|
00000c40  4e f1 22 65 61 63 68 20  68 61 6e 64 20 61 6e 64  |N."each hand and|
00000c50  20 63 6f 6d 70 61 72 65  20 6e 6f 74 65 73 20 77  | compare notes w|
00000c60  69 74 68 20 79 6f 75 72  20 66 61 6d 69 6c 79 2c  |ith your family,|
00000c70  20 65 74 63 2e 20 49 27  6d 20 73 75 72 65 20 69  | etc. I'm sure i|
00000c80  74 20 63 6f 75 6c 64 20  62 65 22 0d 05 46 45 f1  |t could be"..FE.|
00000c90  22 70 75 74 20 74 6f 20  6d 6f 72 65 20 73 65 72  |"put to more ser|
00000ca0  69 6f 75 73 20 75 73 65  2c 20 62 75 74 20 66 6f  |ious use, but fo|
00000cb0  72 20 6e 6f 77 20 6c 65  74 27 73 20 72 65 67 61  |r now let's rega|
00000cc0  72 64 20 69 74 20 61 73  20 61 20 74 6f 79 21 22  |rd it as a toy!"|
00000cd0  0d 05 50 05 f1 0d 05 5a  51 f1 22 41 6c 6c 20 74  |..P....ZQ."All t|
00000ce0  68 61 74 20 69 73 20 6e  65 65 64 65 64 20 69 73  |hat is needed is|
00000cf0  20 61 6e 20 45 6c 65 63  74 72 6f 6e 2c 20 50 4c  | an Electron, PL|
00000d00  55 53 2d 31 2c 20 41 50  31 2c 20 52 4f 4d 42 4f  |US-1, AP1, ROMBO|
00000d10  58 20 6f 72 20 52 4f 4d  42 4f 58 2b 20 74 6f 20  |X or ROMBOX+ to |
00000d20  62 65 67 69 6e 22 0d 05  64 51 f1 22 77 69 74 68  |begin"..dQ."with|
00000d30  2e 20 54 68 65 6e 20 79  6f 75 20 6e 65 65 64 20  |. Then you need |
00000d40  61 20 63 6f 75 70 6c 65  20 6f 66 20 27 70 72 6f  |a couple of 'pro|
00000d50  62 65 73 27 2c 20 74 77  6f 20 6f 6c 64 20 66 6f  |bes', two old fo|
00000d60  72 6b 73 20 77 6f 75 6c  64 20 64 6f 20 28 6e 6f  |rks would do (no|
00000d70  20 57 69 6c 6c 2c 22 0d  05 6e 45 f1 22 4e 4f 54  | Will,"..nE."NOT|
00000d80  20 74 68 65 20 70 6c 61  73 74 69 63 20 27 70 69  | the plastic 'pi|
00000d90  63 6e 69 63 27 20 76 61  72 69 65 74 79 2e 2e 2e  |cnic' variety...|
00000da0  2e 29 21 20 6f 6e 20 73  75 69 74 61 62 6c 79 20  |.)! on suitably |
00000db0  6c 6f 6e 67 20 6c 65 61  64 73 2e 22 0d 05 78 05  |long leads."..x.|
00000dc0  f1 0d 05 82 50 f1 22 59  6f 75 20 77 69 6c 6c 20  |....P."You will |
00000dd0  6e 65 65 64 20 61 20 31  35 2d 70 69 6e 20 44 2d  |need a 15-pin D-|
00000de0  74 79 70 65 20 70 6c 75  67 20 74 6f 20 66 69 74  |type plug to fit|
00000df0  20 74 68 65 20 41 2f 44  20 28 6a 6f 79 73 74 69  | the A/D (joysti|
00000e00  63 6b 29 20 70 6f 72 74  2e 20 53 6f 6c 64 65 72  |ck) port. Solder|
00000e10  22 0d 05 8c 4b f1 22 6f  6e 65 20 6f 66 20 74 68  |"...K."one of th|
00000e20  65 20 6c 65 61 64 73 20  74 6f 20 70 69 6e 2d 31  |e leads to pin-1|
00000e30  35 20 28 41 6e 61 6c 6f  67 75 65 20 63 68 61 6e  |5 (Analogue chan|
00000e40  6e 65 6c 20 30 29 20 61  6e 64 20 6f 6e 65 20 74  |nel 0) and one t|
00000e50  6f 20 70 69 6e 2d 31 31  20 6f 72 22 0d 05 96 51  |o pin-11 or"...Q|
00000e60  f1 22 70 69 6e 2d 31 34  20 28 41 6e 61 6c 6f 67  |."pin-14 (Analog|
00000e70  75 65 20 56 6f 6c 74 61  67 65 20 72 65 66 65 72  |ue Voltage refer|
00000e80  65 6e 63 65 2c 20 56 72  65 66 20 31 2e 38 76 29  |ence, Vref 1.8v)|
00000e90  20 64 65 70 65 6e 64 69  6e 67 20 6f 6e 20 77 68  | depending on wh|
00000ea0  69 63 68 20 79 6f 75 20  66 69 6e 64 22 0d 05 a0  |ich you find"...|
00000eb0  51 f1 22 65 61 73 69 65  72 20 2d 20 63 6f 6e 73  |Q."easier - cons|
00000ec0  75 6c 74 20 74 68 65 20  50 6c 75 73 31 20 20 55  |ult the Plus1  U|
00000ed0  73 65 72 20 47 75 69 64  65 20 69 66 20 69 6e 20  |ser Guide if in |
00000ee0  64 6f 75 62 74 2e 20 4e  6f 77 20 73 69 6d 70 6c  |doubt. Now simpl|
00000ef0  79 20 63 6f 6e 6e 65 63  74 20 74 68 65 22 0d 05  |y connect the"..|
00000f00  aa 51 f1 22 44 2d 74 79  70 65 20 70 6c 75 67 20  |.Q."D-type plug |
00000f10  74 6f 20 74 68 65 20 50  4c 55 53 2d 31 20 61 6e  |to the PLUS-1 an|
00000f20  64 20 79 6f 75 27 72 65  20 72 65 61 64 79 20 74  |d you're ready t|
00000f30  6f 20 67 6f 21 20 4e 6f  74 68 69 6e 67 20 63 6f  |o go! Nothing co|
00000f40  75 6c 64 20 62 65 20 65  61 73 69 65 72 21 22 0d  |uld be easier!".|
00000f50  05 b4 05 f1 0d 05 be 4c  f1 22 54 68 65 20 6e 65  |.......L."The ne|
00000f60  78 74 20 74 68 69 6e 67  20 74 6f 20 64 6f 20 69  |xt thing to do i|
00000f70  73 20 74 6f 20 63 6f 6e  6e 65 63 74 20 74 68 65  |s to connect the|
00000f80  20 70 72 6f 62 65 73 20  74 6f 20 77 68 61 74 65  | probes to whate|
00000f90  76 65 72 20 79 6f 75 20  77 61 6e 74 20 74 6f 22  |ver you want to"|
00000fa0  0d 05 c8 51 f1 22 6d 65  61 73 75 72 65 2e 20 41  |...Q."measure. A|
00000fb0  20 67 6f 6f 64 20 74 65  73 74 20 69 74 65 6d 20  | good test item |
00000fc0  74 6f 20 73 74 61 72 74  20 77 69 74 68 20 77 6f  |to start with wo|
00000fd0  75 6c 64 20 62 65 20 79  6f 75 72 73 65 6c 66 2e  |uld be yourself.|
00000fe0  20 48 6f 6c 64 20 61 20  70 72 6f 62 65 20 69 6e  | Hold a probe in|
00000ff0  22 0d 05 d2 4e f1 22 65  61 63 68 20 68 61 6e 64  |"...N."each hand|
00001000  2e 20 20 49 66 20 79 6f  75 20 63 61 6e 20 74 79  |.  If you can ty|
00001010  70 65 20 77 69 74 68 20  62 6f 74 68 20 68 61 6e  |pe with both han|
00001020  64 73 20 66 75 6c 6c 20  79 6f 75 27 72 65 20 4f  |ds full you're O|
00001030  4b 2e 20 49 66 20 6e 6f  74 2c 20 70 75 74 22 0d  |K. If not, put".|
00001040  05 dc 51 f1 22 74 68 65  6d 20 64 6f 77 6e 20 61  |..Q."them down a|
00001050  6e 64 20 67 72 61 62 20  74 68 65 6d 20 61 67 61  |nd grab them aga|
00001060  69 6e 20 6f 6e 20 74 68  65 20 74 69 74 6c 65 20  |in on the title |
00001070  73 63 72 65 65 6e 20 61  6e 64 20 72 75 6e 20 74  |screen and run t|
00001080  68 65 20 70 72 6f 67 72  61 6d 2e 20 59 6f 75 22  |he program. You"|
00001090  0d 05 e6 4c f1 22 77 69  6c 6c 20 73 65 65 20 74  |...L."will see t|
000010a0  68 65 20 61 66 6f 72 65  6d 65 6e 74 69 6f 6e 65  |he aforementione|
000010b0  64 20 74 69 74 6c 65 20  73 63 72 65 65 6e 2e 20  |d title screen. |
000010c0  41 66 74 65 72 20 31 30  20 73 65 63 6f 6e 64 73  |After 10 seconds|
000010d0  20 65 76 65 72 79 74 68  69 6e 67 22 0d 05 f0 4b  | everything"...K|
000010e0  f1 22 73 74 61 72 74 73  20 74 6f 20 68 61 70 70  |."starts to happ|
000010f0  65 6e 2e 20 4a 75 73 74  20 6c 65 61 76 65 20 74  |en. Just leave t|
00001100  68 65 20 70 72 6f 62 65  73 20 69 6e 20 70 6c 61  |he probes in pla|
00001110  63 65 20 61 6e 64 20 61  20 67 72 61 70 68 20 77  |ce and a graph w|
00001120  69 6c 6c 20 62 65 22 0d  05 fa 51 f1 22 70 6c 6f  |ill be"...Q."plo|
00001130  74 74 65 64 20 6f 66 20  79 6f 75 72 20 63 6f 6e  |tted of your con|
00001140  64 75 63 74 69 76 69 74  79 2e 20 57 68 65 6e 20  |ductivity. When |
00001150  74 68 65 20 67 72 61 70  68 20 69 73 20 66 69 6e  |the graph is fin|
00001160  69 73 68 65 64 2c 20 74  68 65 20 70 72 6f 67 72  |ished, the progr|
00001170  61 6d 20 77 69 6c 6c 22  0d 06 04 51 f1 22 63 61  |am will"...Q."ca|
00001180  6c 63 75 6c 61 74 65 20  79 6f 75 72 20 61 76 65  |lculate your ave|
00001190  72 61 67 65 20 63 6f 6e  64 75 63 74 69 76 69 74  |rage conductivit|
000011a0  79 20 61 73 20 61 20 70  65 72 63 65 6e 74 61 67  |y as a percentag|
000011b0  65 2e 20 4a 75 73 74 20  74 79 70 65 20 27 59 27  |e. Just type 'Y'|
000011c0  20 74 6f 20 65 78 69 74  22 0d 06 0e 33 f1 22 74  | to exit"...3."t|
000011d0  68 65 20 70 72 6f 67 72  61 6d 20 6f 72 20 61 6e  |he program or an|
000011e0  79 20 6f 74 68 65 72 20  6b 65 79 20 74 6f 20 62  |y other key to b|
000011f0  65 67 69 6e 20 61 67 61  69 6e 2e 22 0d 06 18 05  |egin again."....|
00001200  f1 0d 06 22 51 f1 22 54  68 69 73 20 69 73 20 71  |..."Q."This is q|
00001210  75 69 74 65 20 61 20 6c  6f 74 20 6f 66 20 66 75  |uite a lot of fu|
00001220  6e 20 77 68 65 6e 20 66  69 6e 64 69 6e 67 20 6f  |n when finding o|
00001230  75 74 20 6a 75 73 74 20  68 6f 77 20 6d 75 63 68  |ut just how much|
00001240  20 6f 66 20 67 72 61 6e  6e 79 20 72 65 61 6c 6c  | of granny reall|
00001250  79 22 0d 06 2c 4e f1 22  69 73 20 73 6f 6c 69 64  |y"..,N."is solid|
00001260  20 73 74 65 65 6c 2c 20  62 75 74 20 49 20 61 6d  | steel, but I am|
00001270  20 63 6f 6e 76 69 6e 63  65 64 20 74 68 61 74 20  | convinced that |
00001280  69 74 20 63 61 6e 20 62  65 20 75 73 65 64 20 69  |it can be used i|
00001290  6e 20 61 20 6d 6f 72 65  20 75 73 65 66 75 6c 22  |n a more useful"|
000012a0  0d 06 36 4f f1 22 77 61  79 2e 20 49 66 20 79 6f  |..6O."way. If yo|
000012b0  75 20 68 61 76 65 20 61  6e 79 20 73 75 67 67 65  |u have any sugge|
000012c0  73 74 69 6f 6e 73 2c 20  49 20 77 6f 75 6c 64 20  |stions, I would |
000012d0  62 65 20 70 6c 65 61 73  65 64 20 74 6f 20 68 65  |be pleased to he|
000012e0  61 72 20 74 68 65 6d 2e  20 48 61 70 70 79 22 0d  |ar them. Happy".|
000012f0  06 40 11 f1 22 6d 65 61  73 75 72 69 6e 67 21 22  |.@.."measuring!"|
00001300  0d 06 4a 05 e1 0d ff                              |..J....|
00001307
CON1.m0
CON1.m1
CON1.m2
CON1.m4
CON1.m5