Home » Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » WhichSalt?/WHICH0

WhichSalt?/WHICH0

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 » Micropower.ADF
Filename: WhichSalt?/WHICH0
Read OK:
File size: 070E bytes
Load address: 0E00
Exec address: 8023
File contents
   10REM WHICHSALT
   20REM BY DAVID MIDDLETON
   30REM MAESYDDERWEN SCHOOL,
   40REM YSTRADGYNLAIS, POWYS 
   50*TV255
   60MODE4:VDU19,0,1;0;23;8202;0;0;0;
   70t%= RND(-TIME)
   80*KEY10 OLD|M RUN|M
   90REM ONERRORRUN  
  100*FX11,0 
  110VDU23,240,255,0,255,0,0,0,0,0
  120VDU23,241,255,0,0,0,0,0,0,0
  130VDU23,255,0,0,0,0,0,60,102,6
  140VDU23,254,0,0,0,0,0,12,28,60
  150VDU23,253,12,24,48,126,0,0,0,0 
  160VDU23,252,28,6,102,60,0,0,0,0 
  170VDU23,251,108,126,12,12,0,0,0,0
  180VDU23,243,126,126,0,0,0,0,0,0
  190VDU23,242,126,126,24,24,0,0,0,0
  200VDU23,244,0,0,0,0,0,0,24,24
  210MOVE0,0:DRAW0,1023:DRAW1279,1023:DRAW1279,0:DRAW0,0 
  220MOVE44,983:DRAW1233,983:DRAW1233,771:DRAW44,771:DRAW44,983
  230GCOL0,129:VDU24,52;779;1224;975;16
  240GCOL0,0:FORJ%=0TO16STEP4
  250PROCW(72+J%,927+2*J%):PROCH(260+J%,927+2*J%):PROCI(396+J%,927+2*J%):PROCC(464+J%,927+2*J%):PROCH(600+J%,927+2*J%):PROCS(716+J%,927+2*J%):PROCA(828+J%,927+2*J%):PROCL(984+J%,927+2*J%):PROCT(1092+J%,927+2*J%)
  260NEXT
  270GCOL4,0:FORJ%=0TO1164STEP4:MOVE56+J%,971:DRAW56+J%,783:NEXT
  275PRINTTAB(8,9)"(c)1984 Micro Power Ltd."
  280PRINTTAB(2,12)"A program to test your knowledge of"TAB(1,14)"tests used in chemical analysis at 16+"
  290PRINTTAB(2,18)"Your score is reduced if you ask for"TAB(3,20)"extra tests, or make a wrong guess"
  300COLOUR129:VDU28,10,28,29,24,12:COLOUR128:VDU28,11,27,28,25,12
  310PAGE=&E00:CHAIN"SALT"
  320END
  330DEFPROCW(X%,Y%):MOVEX%,Y%:DRAWX%+32,Y%-128:DRAWX%+64,Y%-96:DRAWX%+96,Y%-128:DRAWX%+128,Y%:ENDPROC
  340DEFPROCH(X%,Y%):MOVEX%,Y%:DRAWX%,Y%-128:MOVEX%,Y%-64:DRAWX%+64,Y%-64:MOVEX%+64,Y%:DRAWX%+64,Y%-128:ENDPROC
  350DEFPROCI(X%,Y%):MOVEX%,Y%:DRAWX%,Y%-128:ENDPROC
  360DEFPROCC(X%,Y%):MOVEX%+80,Y%-16:DRAWX%+64,Y%:DRAWX%+32,Y%:DRAWX%,Y%-32:DRAWX%,Y%-96:DRAWX%+32,Y%-128:DRAWX%+64,Y%-128:DRAWX%+80,Y%-112:ENDPROC
  370DEFPROCS(X%,Y%):MOVEX%+80,Y%-16:DRAWX%+64,Y%:DRAWX%+32,Y%:DRAWX%+16,Y%-16:DRAWX%+16,Y%-32:DRAWX%+80,Y%-80:DRAWX%+80,Y%-112:DRAWX%+64,Y%-128:DRAWX%+32,Y%-128:DRAWX%+16,Y%-112:ENDPROC
  380DEFPROCA(X%,Y%):MOVEX%,Y%-128:DRAWX%+48,Y%:DRAWX%+96,Y%-128:MOVEX%+28,Y%-64:DRAWX%+68,Y%-64:ENDPROC
  390DEFPROCL(X%,Y%):MOVEX%,Y%:DRAWX%,Y%-128:DRAWX%+64,Y%-128:ENDPROC
  400DEFPROCT(X%,Y%):MOVEX%,Y%:DRAWX%+96,Y%:MOVEX%+48,Y%:DRAWX%+48,Y%-128:ENDPROC

� WHICHSALT
� BY DAVID MIDDLETON
� MAESYDDERWEN SCHOOL,
(� YSTRADGYNLAIS, POWYS 
2
*TV255
<�4:�19,0,1;0;23;8202;0;0;0;
F
t%= �(-�)
P*KEY10 OLD|M RUN|M
Z� ONERRORRUN  
d*FX11,0 
n�23,240,255,0,255,0,0,0,0,0
x�23,241,255,0,0,0,0,0,0,0
��23,255,0,0,0,0,0,60,102,6
��23,254,0,0,0,0,0,12,28,60
�!�23,253,12,24,48,126,0,0,0,0 
� �23,252,28,6,102,60,0,0,0,0 
�!�23,251,108,126,12,12,0,0,0,0
��23,243,126,126,0,0,0,0,0,0
�!�23,242,126,126,24,24,0,0,0,0
��23,244,0,0,0,0,0,0,24,24
�)�0,0:�0,1023:�1279,1023:�1279,0:�0,0 
�/�44,983:�1233,983:�1233,771:�44,771:�44,983
�!�0,129:�24,52;779;1224;975;16
��0,0:�J%=0�16�4
���W(72+J%,927+2*J%):�H(260+J%,927+2*J%):�I(396+J%,927+2*J%):�C(464+J%,927+2*J%):�H(600+J%,927+2*J%):�S(716+J%,927+2*J%):�A(828+J%,927+2*J%):�L(984+J%,927+2*J%):�T(1092+J%,927+2*J%)
�
-�4,0:�J%=0�1164�4:�56+J%,971:�56+J%,783:�
$�8,9)"(c)1984 Micro Power Ltd."
^�2,12)"A program to test your knowledge of"�1,14)"tests used in chemical analysis at 16+"
"[�2,18)"Your score is reduced if you ask for"�3,20)"extra tests, or make a wrong guess"
,3�129:�28,10,28,29,24,12:�128:�28,11,27,28,25,12
6�=&E00:�"SALT"
@�
JK��W(X%,Y%):�X%,Y%:�X%+32,Y%-128:�X%+64,Y%-96:�X%+96,Y%-128:�X%+128,Y%:�
TQ��H(X%,Y%):�X%,Y%:�X%,Y%-128:�X%,Y%-64:�X%+64,Y%-64:�X%+64,Y%:�X%+64,Y%-128:�
^"��I(X%,Y%):�X%,Y%:�X%,Y%-128:�
ho��C(X%,Y%):�X%+80,Y%-16:�X%+64,Y%:�X%+32,Y%:�X%,Y%-32:�X%,Y%-96:�X%+32,Y%-128:�X%+64,Y%-128:�X%+80,Y%-112:�
r���S(X%,Y%):�X%+80,Y%-16:�X%+64,Y%:�X%+32,Y%:�X%+16,Y%-16:�X%+16,Y%-32:�X%+80,Y%-80:�X%+80,Y%-112:�X%+64,Y%-128:�X%+32,Y%-128:�X%+16,Y%-112:�
|M��A(X%,Y%):�X%,Y%-128:�X%+48,Y%:�X%+96,Y%-128:�X%+28,Y%-64:�X%+68,Y%-64:�
�0��L(X%,Y%):�X%,Y%:�X%,Y%-128:�X%+64,Y%-128:�
�9��T(X%,Y%):�X%,Y%:�X%+96,Y%:�X%+48,Y%:�X%+48,Y%-128:�
�
00000000  0d 00 0a 0f f4 20 57 48  49 43 48 53 41 4c 54 0d  |..... WHICHSALT.|
00000010  00 14 18 f4 20 42 59 20  44 41 56 49 44 20 4d 49  |.... BY DAVID MI|
00000020  44 44 4c 45 54 4f 4e 0d  00 1e 1a f4 20 4d 41 45  |DDLETON..... MAE|
00000030  53 59 44 44 45 52 57 45  4e 20 53 43 48 4f 4f 4c  |SYDDERWEN SCHOOL|
00000040  2c 0d 00 28 1b f4 20 59  53 54 52 41 44 47 59 4e  |,..(.. YSTRADGYN|
00000050  4c 41 49 53 2c 20 50 4f  57 59 53 20 0d 00 32 0a  |LAIS, POWYS ..2.|
00000060  2a 54 56 32 35 35 0d 00  3c 1f eb 34 3a ef 31 39  |*TV255..<..4:.19|
00000070  2c 30 2c 31 3b 30 3b 32  33 3b 38 32 30 32 3b 30  |,0,1;0;23;8202;0|
00000080  3b 30 3b 30 3b 0d 00 46  0d 74 25 3d 20 b3 28 2d  |;0;0;..F.t%= .(-|
00000090  91 29 0d 00 50 16 2a 4b  45 59 31 30 20 4f 4c 44  |.)..P.*KEY10 OLD|
000000a0  7c 4d 20 52 55 4e 7c 4d  0d 00 5a 12 f4 20 4f 4e  ||M RUN|M..Z.. ON|
000000b0  45 52 52 4f 52 52 55 4e  20 20 0d 00 64 0c 2a 46  |ERRORRUN  ..d.*F|
000000c0  58 31 31 2c 30 20 0d 00  6e 1f ef 32 33 2c 32 34  |X11,0 ..n..23,24|
000000d0  30 2c 32 35 35 2c 30 2c  32 35 35 2c 30 2c 30 2c  |0,255,0,255,0,0,|
000000e0  30 2c 30 2c 30 0d 00 78  1d ef 32 33 2c 32 34 31  |0,0,0..x..23,241|
000000f0  2c 32 35 35 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,255,0,0,0,0,0,0|
00000100  2c 30 0d 00 82 1e ef 32  33 2c 32 35 35 2c 30 2c  |,0.....23,255,0,|
00000110  30 2c 30 2c 30 2c 30 2c  36 30 2c 31 30 32 2c 36  |0,0,0,0,60,102,6|
00000120  0d 00 8c 1e ef 32 33 2c  32 35 34 2c 30 2c 30 2c  |.....23,254,0,0,|
00000130  30 2c 30 2c 30 2c 31 32  2c 32 38 2c 36 30 0d 00  |0,0,0,12,28,60..|
00000140  96 21 ef 32 33 2c 32 35  33 2c 31 32 2c 32 34 2c  |.!.23,253,12,24,|
00000150  34 38 2c 31 32 36 2c 30  2c 30 2c 30 2c 30 20 0d  |48,126,0,0,0,0 .|
00000160  00 a0 20 ef 32 33 2c 32  35 32 2c 32 38 2c 36 2c  |.. .23,252,28,6,|
00000170  31 30 32 2c 36 30 2c 30  2c 30 2c 30 2c 30 20 0d  |102,60,0,0,0,0 .|
00000180  00 aa 21 ef 32 33 2c 32  35 31 2c 31 30 38 2c 31  |..!.23,251,108,1|
00000190  32 36 2c 31 32 2c 31 32  2c 30 2c 30 2c 30 2c 30  |26,12,12,0,0,0,0|
000001a0  0d 00 b4 1f ef 32 33 2c  32 34 33 2c 31 32 36 2c  |.....23,243,126,|
000001b0  31 32 36 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |126,0,0,0,0,0,0.|
000001c0  00 be 21 ef 32 33 2c 32  34 32 2c 31 32 36 2c 31  |..!.23,242,126,1|
000001d0  32 36 2c 32 34 2c 32 34  2c 30 2c 30 2c 30 2c 30  |26,24,24,0,0,0,0|
000001e0  0d 00 c8 1d ef 32 33 2c  32 34 34 2c 30 2c 30 2c  |.....23,244,0,0,|
000001f0  30 2c 30 2c 30 2c 30 2c  32 34 2c 32 34 0d 00 d2  |0,0,0,0,24,24...|
00000200  29 ec 30 2c 30 3a df 30  2c 31 30 32 33 3a df 31  |).0,0:.0,1023:.1|
00000210  32 37 39 2c 31 30 32 33  3a df 31 32 37 39 2c 30  |279,1023:.1279,0|
00000220  3a df 30 2c 30 20 0d 00  dc 2f ec 34 34 2c 39 38  |:.0,0 .../.44,98|
00000230  33 3a df 31 32 33 33 2c  39 38 33 3a df 31 32 33  |3:.1233,983:.123|
00000240  33 2c 37 37 31 3a df 34  34 2c 37 37 31 3a df 34  |3,771:.44,771:.4|
00000250  34 2c 39 38 33 0d 00 e6  21 e6 30 2c 31 32 39 3a  |4,983...!.0,129:|
00000260  ef 32 34 2c 35 32 3b 37  37 39 3b 31 32 32 34 3b  |.24,52;779;1224;|
00000270  39 37 35 3b 31 36 0d 00  f0 13 e6 30 2c 30 3a e3  |975;16.....0,0:.|
00000280  4a 25 3d 30 b8 31 36 88  34 0d 00 fa b7 f2 57 28  |J%=0.16.4.....W(|
00000290  37 32 2b 4a 25 2c 39 32  37 2b 32 2a 4a 25 29 3a  |72+J%,927+2*J%):|
000002a0  f2 48 28 32 36 30 2b 4a  25 2c 39 32 37 2b 32 2a  |.H(260+J%,927+2*|
000002b0  4a 25 29 3a f2 49 28 33  39 36 2b 4a 25 2c 39 32  |J%):.I(396+J%,92|
000002c0  37 2b 32 2a 4a 25 29 3a  f2 43 28 34 36 34 2b 4a  |7+2*J%):.C(464+J|
000002d0  25 2c 39 32 37 2b 32 2a  4a 25 29 3a f2 48 28 36  |%,927+2*J%):.H(6|
000002e0  30 30 2b 4a 25 2c 39 32  37 2b 32 2a 4a 25 29 3a  |00+J%,927+2*J%):|
000002f0  f2 53 28 37 31 36 2b 4a  25 2c 39 32 37 2b 32 2a  |.S(716+J%,927+2*|
00000300  4a 25 29 3a f2 41 28 38  32 38 2b 4a 25 2c 39 32  |J%):.A(828+J%,92|
00000310  37 2b 32 2a 4a 25 29 3a  f2 4c 28 39 38 34 2b 4a  |7+2*J%):.L(984+J|
00000320  25 2c 39 32 37 2b 32 2a  4a 25 29 3a f2 54 28 31  |%,927+2*J%):.T(1|
00000330  30 39 32 2b 4a 25 2c 39  32 37 2b 32 2a 4a 25 29  |092+J%,927+2*J%)|
00000340  0d 01 04 05 ed 0d 01 0e  2d e6 34 2c 30 3a e3 4a  |........-.4,0:.J|
00000350  25 3d 30 b8 31 31 36 34  88 34 3a ec 35 36 2b 4a  |%=0.1164.4:.56+J|
00000360  25 2c 39 37 31 3a df 35  36 2b 4a 25 2c 37 38 33  |%,971:.56+J%,783|
00000370  3a ed 0d 01 13 24 f1 8a  38 2c 39 29 22 28 63 29  |:....$..8,9)"(c)|
00000380  31 39 38 34 20 4d 69 63  72 6f 20 50 6f 77 65 72  |1984 Micro Power|
00000390  20 4c 74 64 2e 22 0d 01  18 5e f1 8a 32 2c 31 32  | Ltd."...^..2,12|
000003a0  29 22 41 20 70 72 6f 67  72 61 6d 20 74 6f 20 74  |)"A program to t|
000003b0  65 73 74 20 79 6f 75 72  20 6b 6e 6f 77 6c 65 64  |est your knowled|
000003c0  67 65 20 6f 66 22 8a 31  2c 31 34 29 22 74 65 73  |ge of".1,14)"tes|
000003d0  74 73 20 75 73 65 64 20  69 6e 20 63 68 65 6d 69  |ts used in chemi|
000003e0  63 61 6c 20 61 6e 61 6c  79 73 69 73 20 61 74 20  |cal analysis at |
000003f0  31 36 2b 22 0d 01 22 5b  f1 8a 32 2c 31 38 29 22  |16+".."[..2,18)"|
00000400  59 6f 75 72 20 73 63 6f  72 65 20 69 73 20 72 65  |Your score is re|
00000410  64 75 63 65 64 20 69 66  20 79 6f 75 20 61 73 6b  |duced if you ask|
00000420  20 66 6f 72 22 8a 33 2c  32 30 29 22 65 78 74 72  | for".3,20)"extr|
00000430  61 20 74 65 73 74 73 2c  20 6f 72 20 6d 61 6b 65  |a tests, or make|
00000440  20 61 20 77 72 6f 6e 67  20 67 75 65 73 73 22 0d  | a wrong guess".|
00000450  01 2c 33 fb 31 32 39 3a  ef 32 38 2c 31 30 2c 32  |.,3.129:.28,10,2|
00000460  38 2c 32 39 2c 32 34 2c  31 32 3a fb 31 32 38 3a  |8,29,24,12:.128:|
00000470  ef 32 38 2c 31 31 2c 32  37 2c 32 38 2c 32 35 2c  |.28,11,27,28,25,|
00000480  31 32 0d 01 36 12 d0 3d  26 45 30 30 3a d7 22 53  |12..6..=&E00:."S|
00000490  41 4c 54 22 0d 01 40 05  e0 0d 01 4a 4b dd f2 57  |ALT"..@....JK..W|
000004a0  28 58 25 2c 59 25 29 3a  ec 58 25 2c 59 25 3a df  |(X%,Y%):.X%,Y%:.|
000004b0  58 25 2b 33 32 2c 59 25  2d 31 32 38 3a df 58 25  |X%+32,Y%-128:.X%|
000004c0  2b 36 34 2c 59 25 2d 39  36 3a df 58 25 2b 39 36  |+64,Y%-96:.X%+96|
000004d0  2c 59 25 2d 31 32 38 3a  df 58 25 2b 31 32 38 2c  |,Y%-128:.X%+128,|
000004e0  59 25 3a e1 0d 01 54 51  dd f2 48 28 58 25 2c 59  |Y%:...TQ..H(X%,Y|
000004f0  25 29 3a ec 58 25 2c 59  25 3a df 58 25 2c 59 25  |%):.X%,Y%:.X%,Y%|
00000500  2d 31 32 38 3a ec 58 25  2c 59 25 2d 36 34 3a df  |-128:.X%,Y%-64:.|
00000510  58 25 2b 36 34 2c 59 25  2d 36 34 3a ec 58 25 2b  |X%+64,Y%-64:.X%+|
00000520  36 34 2c 59 25 3a df 58  25 2b 36 34 2c 59 25 2d  |64,Y%:.X%+64,Y%-|
00000530  31 32 38 3a e1 0d 01 5e  22 dd f2 49 28 58 25 2c  |128:...^"..I(X%,|
00000540  59 25 29 3a ec 58 25 2c  59 25 3a df 58 25 2c 59  |Y%):.X%,Y%:.X%,Y|
00000550  25 2d 31 32 38 3a e1 0d  01 68 6f dd f2 43 28 58  |%-128:...ho..C(X|
00000560  25 2c 59 25 29 3a ec 58  25 2b 38 30 2c 59 25 2d  |%,Y%):.X%+80,Y%-|
00000570  31 36 3a df 58 25 2b 36  34 2c 59 25 3a df 58 25  |16:.X%+64,Y%:.X%|
00000580  2b 33 32 2c 59 25 3a df  58 25 2c 59 25 2d 33 32  |+32,Y%:.X%,Y%-32|
00000590  3a df 58 25 2c 59 25 2d  39 36 3a df 58 25 2b 33  |:.X%,Y%-96:.X%+3|
000005a0  32 2c 59 25 2d 31 32 38  3a df 58 25 2b 36 34 2c  |2,Y%-128:.X%+64,|
000005b0  59 25 2d 31 32 38 3a df  58 25 2b 38 30 2c 59 25  |Y%-128:.X%+80,Y%|
000005c0  2d 31 31 32 3a e1 0d 01  72 90 dd f2 53 28 58 25  |-112:...r...S(X%|
000005d0  2c 59 25 29 3a ec 58 25  2b 38 30 2c 59 25 2d 31  |,Y%):.X%+80,Y%-1|
000005e0  36 3a df 58 25 2b 36 34  2c 59 25 3a df 58 25 2b  |6:.X%+64,Y%:.X%+|
000005f0  33 32 2c 59 25 3a df 58  25 2b 31 36 2c 59 25 2d  |32,Y%:.X%+16,Y%-|
00000600  31 36 3a df 58 25 2b 31  36 2c 59 25 2d 33 32 3a  |16:.X%+16,Y%-32:|
00000610  df 58 25 2b 38 30 2c 59  25 2d 38 30 3a df 58 25  |.X%+80,Y%-80:.X%|
00000620  2b 38 30 2c 59 25 2d 31  31 32 3a df 58 25 2b 36  |+80,Y%-112:.X%+6|
00000630  34 2c 59 25 2d 31 32 38  3a df 58 25 2b 33 32 2c  |4,Y%-128:.X%+32,|
00000640  59 25 2d 31 32 38 3a df  58 25 2b 31 36 2c 59 25  |Y%-128:.X%+16,Y%|
00000650  2d 31 31 32 3a e1 0d 01  7c 4d dd f2 41 28 58 25  |-112:...|M..A(X%|
00000660  2c 59 25 29 3a ec 58 25  2c 59 25 2d 31 32 38 3a  |,Y%):.X%,Y%-128:|
00000670  df 58 25 2b 34 38 2c 59  25 3a df 58 25 2b 39 36  |.X%+48,Y%:.X%+96|
00000680  2c 59 25 2d 31 32 38 3a  ec 58 25 2b 32 38 2c 59  |,Y%-128:.X%+28,Y|
00000690  25 2d 36 34 3a df 58 25  2b 36 38 2c 59 25 2d 36  |%-64:.X%+68,Y%-6|
000006a0  34 3a e1 0d 01 86 30 dd  f2 4c 28 58 25 2c 59 25  |4:....0..L(X%,Y%|
000006b0  29 3a ec 58 25 2c 59 25  3a df 58 25 2c 59 25 2d  |):.X%,Y%:.X%,Y%-|
000006c0  31 32 38 3a df 58 25 2b  36 34 2c 59 25 2d 31 32  |128:.X%+64,Y%-12|
000006d0  38 3a e1 0d 01 90 39 dd  f2 54 28 58 25 2c 59 25  |8:....9..T(X%,Y%|
000006e0  29 3a ec 58 25 2c 59 25  3a df 58 25 2b 39 36 2c  |):.X%,Y%:.X%+96,|
000006f0  59 25 3a ec 58 25 2b 34  38 2c 59 25 3a df 58 25  |Y%:.X%+48,Y%:.X%|
00000700  2b 34 38 2c 59 25 2d 31  32 38 3a e1 0d ff        |+48,Y%-128:...|
0000070e
WhichSalt?/WHICH0.m0
WhichSalt?/WHICH0.m1
WhichSalt?/WHICH0.m2
WhichSalt?/WHICH0.m4
WhichSalt?/WHICH0.m5