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

CON2

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: CON2
Read OK:
File size: 031D bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
   10REM ***Conductivity Measurer***
   20REM ****By David Humphreys*****
   30REM *********(C) 1993**********
   40REM **Probes In Analogue Ch.1**
   50MODE5:VDU23,1,0;0;0;0;
   60PRINT'''"    Conductivity"''"      Measurer"
   70COLOUR2:PRINT'''"Measures In Percent!"
   80COLOUR1:PRINT'''"(C) David Humphreys        1993"
   90COLOUR2:PRINT'''"PLEASE PRESS <SPACE>"
  100REPEAT:UNTILGET$=" "
  110MODE1
  120M%=0:Z%=0:Y%=50:X%=150
  130VDU28,0,4,39,0
  140VDU23,1,0;0;0:PRINT"   "
  150VDU5
  160FORP%=60TO910STEP85
  170MOVE0,P%
  180PRINT;M%"%"
  190M%=M%+10
  200NEXT
  210M%=100
  220FORP%=90TO1220STEP113
  230MOVEP%,40
  240PRINT;M%"%"
  250M%=M%-10
  260NEXT
  270VDU4
  280MOVEX%,ADVAL(1)/76.8+50
  290FORX%=150TO1280STEP20
  300Y%=ADVAL(1)/76.8+50
  310DRAWX%,Y%
  320Z%=Z%+(Y%-50)
  330NEXT
  340A%=Z%/480.25
  350COLOUR2:PRINT"Conductivity:";:COLOUR3:PRINT"       End Program, Y/N?"
  360COLOUR1:PRINT"    ";A%;"%"
  370REPEAT:UNTIL GET$="Y" OR GET$="y" OR GET$="N" OR GET$="n"
  380IF GET$="N" OR GET$="n" THEN RUN
  390IF GET$="Y" OR GET$="y" THEN CHAIN"$.MENU"

!� ***Conductivity Measurer***
!� ****By David Humphreys*****
!� *********(C) 1993**********
(!� **Probes In Analogue Ch.1**
2�5:�23,1,0;0;0;0;
<,�'''"    Conductivity"''"      Measurer"
F!�2:�'''"Measures In Percent!"
P,�1:�'''"(C) David Humphreys        1993"
Z!�2:�'''"PLEASE PRESS <SPACE>"
d�:��=" "
n�1
xM%=0:Z%=0:Y%=50:X%=150
��28,0,4,39,0
��23,1,0;0;0:�"   "
��5
��P%=60�910�85
�	�0,P%
��;M%"%"
�M%=M%+10
��
�
M%=100
��P%=90�1220�113
�
�P%,40
��;M%"%"
�M%=M%-10
�
�4
�X%,�(1)/76.8+50
"�X%=150�1280�20
,Y%=�(1)/76.8+50
6
�X%,Y%
@Z%=Z%+(Y%-50)
J�
TA%=Z%/480.25
^7�2:�"Conductivity:";:�3:�"       End Program, Y/N?"
h�1:�"    ";A%;"%"
r%�:� �="Y" � �="y" � �="N" � �="n"
|� �="N" � �="n" � �
�� �="Y" � �="y" � �"$.MENU"
�
00000000  0d 00 0a 21 f4 20 2a 2a  2a 43 6f 6e 64 75 63 74  |...!. ***Conduct|
00000010  69 76 69 74 79 20 4d 65  61 73 75 72 65 72 2a 2a  |ivity Measurer**|
00000020  2a 0d 00 14 21 f4 20 2a  2a 2a 2a 42 79 20 44 61  |*...!. ****By Da|
00000030  76 69 64 20 48 75 6d 70  68 72 65 79 73 2a 2a 2a  |vid Humphreys***|
00000040  2a 2a 0d 00 1e 21 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |**...!. ********|
00000050  2a 28 43 29 20 31 39 39  33 2a 2a 2a 2a 2a 2a 2a  |*(C) 1993*******|
00000060  2a 2a 2a 0d 00 28 21 f4  20 2a 2a 50 72 6f 62 65  |***..(!. **Probe|
00000070  73 20 49 6e 20 41 6e 61  6c 6f 67 75 65 20 43 68  |s In Analogue Ch|
00000080  2e 31 2a 2a 0d 00 32 15  eb 35 3a ef 32 33 2c 31  |.1**..2..5:.23,1|
00000090  2c 30 3b 30 3b 30 3b 30  3b 0d 00 3c 2c f1 27 27  |,0;0;0;0;..<,.''|
000000a0  27 22 20 20 20 20 43 6f  6e 64 75 63 74 69 76 69  |'"    Conductivi|
000000b0  74 79 22 27 27 22 20 20  20 20 20 20 4d 65 61 73  |ty"''"      Meas|
000000c0  75 72 65 72 22 0d 00 46  21 fb 32 3a f1 27 27 27  |urer"..F!.2:.'''|
000000d0  22 4d 65 61 73 75 72 65  73 20 49 6e 20 50 65 72  |"Measures In Per|
000000e0  63 65 6e 74 21 22 0d 00  50 2c fb 31 3a f1 27 27  |cent!"..P,.1:.''|
000000f0  27 22 28 43 29 20 44 61  76 69 64 20 48 75 6d 70  |'"(C) David Hump|
00000100  68 72 65 79 73 20 20 20  20 20 20 20 20 31 39 39  |hreys        199|
00000110  33 22 0d 00 5a 21 fb 32  3a f1 27 27 27 22 50 4c  |3"..Z!.2:.'''"PL|
00000120  45 41 53 45 20 50 52 45  53 53 20 3c 53 50 41 43  |EASE PRESS <SPAC|
00000130  45 3e 22 0d 00 64 0c f5  3a fd be 3d 22 20 22 0d  |E>"..d..:..=" ".|
00000140  00 6e 06 eb 31 0d 00 78  1a 4d 25 3d 30 3a 5a 25  |.n..1..x.M%=0:Z%|
00000150  3d 30 3a 59 25 3d 35 30  3a 58 25 3d 31 35 30 0d  |=0:Y%=50:X%=150.|
00000160  00 82 10 ef 32 38 2c 30  2c 34 2c 33 39 2c 30 0d  |....28,0,4,39,0.|
00000170  00 8c 16 ef 32 33 2c 31  2c 30 3b 30 3b 30 3a f1  |....23,1,0;0;0:.|
00000180  22 20 20 20 22 0d 00 96  06 ef 35 0d 00 a0 11 e3  |"   ".....5.....|
00000190  50 25 3d 36 30 b8 39 31  30 88 38 35 0d 00 aa 09  |P%=60.910.85....|
000001a0  ec 30 2c 50 25 0d 00 b4  0b f1 3b 4d 25 22 25 22  |.0,P%.....;M%"%"|
000001b0  0d 00 be 0c 4d 25 3d 4d  25 2b 31 30 0d 00 c8 05  |....M%=M%+10....|
000001c0  ed 0d 00 d2 0a 4d 25 3d  31 30 30 0d 00 dc 13 e3  |.....M%=100.....|
000001d0  50 25 3d 39 30 b8 31 32  32 30 88 31 31 33 0d 00  |P%=90.1220.113..|
000001e0  e6 0a ec 50 25 2c 34 30  0d 00 f0 0b f1 3b 4d 25  |...P%,40.....;M%|
000001f0  22 25 22 0d 00 fa 0c 4d  25 3d 4d 25 2d 31 30 0d  |"%"....M%=M%-10.|
00000200  01 04 05 ed 0d 01 0e 06  ef 34 0d 01 18 14 ec 58  |.........4.....X|
00000210  25 2c 96 28 31 29 2f 37  36 2e 38 2b 35 30 0d 01  |%,.(1)/76.8+50..|
00000220  22 13 e3 58 25 3d 31 35  30 b8 31 32 38 30 88 32  |"..X%=150.1280.2|
00000230  30 0d 01 2c 13 59 25 3d  96 28 31 29 2f 37 36 2e  |0..,.Y%=.(1)/76.|
00000240  38 2b 35 30 0d 01 36 0a  df 58 25 2c 59 25 0d 01  |8+50..6..X%,Y%..|
00000250  40 11 5a 25 3d 5a 25 2b  28 59 25 2d 35 30 29 0d  |@.Z%=Z%+(Y%-50).|
00000260  01 4a 05 ed 0d 01 54 10  41 25 3d 5a 25 2f 34 38  |.J....T.A%=Z%/48|
00000270  30 2e 32 35 0d 01 5e 37  fb 32 3a f1 22 43 6f 6e  |0.25..^7.2:."Con|
00000280  64 75 63 74 69 76 69 74  79 3a 22 3b 3a fb 33 3a  |ductivity:";:.3:|
00000290  f1 22 20 20 20 20 20 20  20 45 6e 64 20 50 72 6f  |."       End Pro|
000002a0  67 72 61 6d 2c 20 59 2f  4e 3f 22 0d 01 68 15 fb  |gram, Y/N?"..h..|
000002b0  31 3a f1 22 20 20 20 20  22 3b 41 25 3b 22 25 22  |1:."    ";A%;"%"|
000002c0  0d 01 72 25 f5 3a fd 20  be 3d 22 59 22 20 84 20  |..r%.:. .="Y" . |
000002d0  be 3d 22 79 22 20 84 20  be 3d 22 4e 22 20 84 20  |.="y" . .="N" . |
000002e0  be 3d 22 6e 22 0d 01 7c  17 e7 20 be 3d 22 4e 22  |.="n"..|.. .="N"|
000002f0  20 84 20 be 3d 22 6e 22  20 8c 20 f9 0d 01 86 1f  | . .="n" . .....|
00000300  e7 20 be 3d 22 59 22 20  84 20 be 3d 22 79 22 20  |. .="Y" . .="y" |
00000310  8c 20 d7 22 24 2e 4d 45  4e 55 22 0d ff           |. ."$.MENU"..|
0000031d
CON2.m0
CON2.m1
CON2.m2
CON2.m4
CON2.m5