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