� Density game
� The Safe Scientist
� (c) The Micro User
(�1:�23;8202;0;0;0;0;
20�card$(21),density(21),yourhand(3),myhand(3)
<
cs=0:ps=0
F�n=1�21
P� card$(n),density(n)
Z�
d$�N=1�3:�getcard:yourhand(N)=N%:�
n"�N=1�3:�getcard:myhand(N)=N%:�
x2�2,0)"PLAYER'S CARDS"�2,20)"COMPUTER'S CARDS"
�J�N=1�3:�2:�2,N*2);card$(myhand(N)):�1:�2,20+N*2)card$(yourhand(N)):�
�4�3:�2,30)"Space moves pointer. Return selects."
�
� go=1�10
��select
��compoturn
��replacecards
��
� �"Press Space to play again"
����-99:�
��
�
��getcard
�N%=�(21)
��

��select

p=1

�20,2)"*"

"�

,J=�

6� J=32 p=p+1

@
� p=4 p=1

J+�20,2)" "�20,4)" "�20,6)" "�20,p*2)"*"

T	�J=13

^ �2:�10,12);card$(myhand(p))

h�

r��compoturn

|q=0

��

�0q=q+1:� q=4 ps=ps+1:q=�(3):�19,2,10;0;:�tnA

�-� density(yourhand(q))>density(myhand(p))

�cs=cs+1:�19,1,12;0;

�"�1:�10,15);card$(yourhand(q))

��

���replacecards

�-�30,4)"SCORE = ";ps;�30,24)"SCORE = ";cs

�"�2,p*2);�(20)�2,20+q*2);�(20)

��=0:���>200:�20

��getcard

�,�2:myhand(p)=N%:�2,p*2)card$(myhand(p))

��getcard
3�1:yourhand(q)=N%:�2,20+q*2)card$(yourhand(q))
�10,12);�(20)�10,15);�(20)
�
&�� HYDROGEN,0.001,OXYGEN,0.01,CARBON DIOXIDE,0.02,ALCOHOL,0.8,WATER,1,WOOD,0.5,ALUMINIUM,2.7,COPPER,8.9,IRON,7.8,GOLD,19.3,PLATINUM,21.5,SILVER,17,MERCURY,13.6,SEA WATER,1.3,CANDLE WAX,0.9,FOAMED PLASTIC,0.1
03�BRASS,8.5,GLASS,2.6,ICE,.92,LEAD,11.3,SAND,2.6
�

00000000  0d 00 0a 12 f4 20 44 65  6e 73 69 74 79 20 67 61  |..... Density ga|
00000010  6d 65 0d 00 14 18 f4 20  54 68 65 20 53 61 66 65  |me..... The Safe|
00000020  20 53 63 69 65 6e 74 69  73 74 0d 00 1e 18 f4 20  | Scientist..... |
00000030  28 63 29 20 54 68 65 20  4d 69 63 72 6f 20 55 73  |(c) The Micro Us|
00000040  65 72 0d 00 28 18 eb 31  3a ef 32 33 3b 38 32 30  |er..(..1:.23;820|
00000050  32 3b 30 3b 30 3b 30 3b  30 3b 0d 00 32 30 de 63  |2;0;0;0;0;..20.c|
00000060  61 72 64 24 28 32 31 29  2c 64 65 6e 73 69 74 79  |ard$(21),density|
00000070  28 32 31 29 2c 79 6f 75  72 68 61 6e 64 28 33 29  |(21),yourhand(3)|
00000080  2c 6d 79 68 61 6e 64 28  33 29 0d 00 3c 0d 63 73  |,myhand(3)..<.cs|
00000090  3d 30 3a 70 73 3d 30 0d  00 46 0b e3 6e 3d 31 b8  |=0:ps=0..F..n=1.|
000000a0  32 31 0d 00 50 19 f3 20  63 61 72 64 24 28 6e 29  |21..P.. card$(n)|
000000b0  2c 64 65 6e 73 69 74 79  28 6e 29 0d 00 5a 05 ed  |,density(n)..Z..|
000000c0  0d 00 64 24 e3 4e 3d 31  b8 33 3a f2 67 65 74 63  |..d$.N=1.3:.getc|
000000d0  61 72 64 3a 79 6f 75 72  68 61 6e 64 28 4e 29 3d  |ard:yourhand(N)=|
000000e0  4e 25 3a ed 0d 00 6e 22  e3 4e 3d 31 b8 33 3a f2  |N%:...n".N=1.3:.|
000000f0  67 65 74 63 61 72 64 3a  6d 79 68 61 6e 64 28 4e  |getcard:myhand(N|
00000100  29 3d 4e 25 3a ed 0d 00  78 32 f1 8a 32 2c 30 29  |)=N%:...x2..2,0)|
00000110  22 50 4c 41 59 45 52 27  53 20 43 41 52 44 53 22  |"PLAYER'S CARDS"|
00000120  8a 32 2c 32 30 29 22 43  4f 4d 50 55 54 45 52 27  |.2,20)"COMPUTER'|
00000130  53 20 43 41 52 44 53 22  0d 00 82 4a e3 4e 3d 31  |S CARDS"...J.N=1|
00000140  b8 33 3a fb 32 3a f1 8a  32 2c 4e 2a 32 29 3b 63  |.3:.2:..2,N*2);c|
00000150  61 72 64 24 28 6d 79 68  61 6e 64 28 4e 29 29 3a  |ard$(myhand(N)):|
00000160  fb 31 3a f1 8a 32 2c 32  30 2b 4e 2a 32 29 63 61  |.1:..2,20+N*2)ca|
00000170  72 64 24 28 79 6f 75 72  68 61 6e 64 28 4e 29 29  |rd$(yourhand(N))|
00000180  3a ed 0d 00 8c 34 fb 33  3a f1 8a 32 2c 33 30 29  |:....4.3:..2,30)|
00000190  22 53 70 61 63 65 20 6d  6f 76 65 73 20 70 6f 69  |"Space moves poi|
000001a0  6e 74 65 72 2e 20 52 65  74 75 72 6e 20 73 65 6c  |nter. Return sel|
000001b0  65 63 74 73 2e 22 0d 00  96 0d e3 20 67 6f 3d 31  |ects."..... go=1|
000001c0  b8 31 30 0d 00 a0 0b f2  73 65 6c 65 63 74 0d 00  |.10.....select..|
000001d0  aa 0e f2 63 6f 6d 70 6f  74 75 72 6e 0d 00 b4 11  |...compoturn....|
000001e0  f2 72 65 70 6c 61 63 65  63 61 72 64 73 0d 00 be  |.replacecards...|
000001f0  05 ed 0d 00 c8 20 f1 22  50 72 65 73 73 20 53 70  |..... ."Press Sp|
00000200  61 63 65 20 74 6f 20 70  6c 61 79 20 61 67 61 69  |ace to play agai|
00000210  6e 22 0d 00 d2 0c f5 fd  a6 2d 39 39 3a f9 0d 00  |n".......-99:...|
00000220  dc 05 e0 0d 00 e6 0d dd  f2 67 65 74 63 61 72 64  |.........getcard|
00000230  0d 00 f0 0c 4e 25 3d b3  28 32 31 29 0d 00 fa 05  |....N%=.(21)....|
00000240  e1 0d 01 04 0c dd f2 73  65 6c 65 63 74 0d 01 0e  |.......select...|
00000250  07 70 3d 31 0d 01 18 0e  f1 8a 32 30 2c 32 29 22  |.p=1......20,2)"|
00000260  2a 22 0d 01 22 05 f5 0d  01 2c 07 4a 3d a5 0d 01  |*".."....,.J=...|
00000270  36 10 e7 20 4a 3d 33 32  20 70 3d 70 2b 31 0d 01  |6.. J=32 p=p+1..|
00000280  40 0d e7 20 70 3d 34 20  70 3d 31 0d 01 4a 2b f1  |@.. p=4 p=1..J+.|
00000290  8a 32 30 2c 32 29 22 20  22 8a 32 30 2c 34 29 22  |.20,2)" ".20,4)"|
000002a0  20 22 8a 32 30 2c 36 29  22 20 22 8a 32 30 2c 70  | ".20,6)" ".20,p|
000002b0  2a 32 29 22 2a 22 0d 01  54 09 fd 4a 3d 31 33 0d  |*2)"*"..T..J=13.|
000002c0  01 5e 20 fb 32 3a f1 8a  31 30 2c 31 32 29 3b 63  |.^ .2:..10,12);c|
000002d0  61 72 64 24 28 6d 79 68  61 6e 64 28 70 29 29 0d  |ard$(myhand(p)).|
000002e0  01 68 05 e1 0d 01 72 0f  dd f2 63 6f 6d 70 6f 74  |.h....r...compot|
000002f0  75 72 6e 0d 01 7c 07 71  3d 30 0d 01 86 05 f5 0d  |urn..|.q=0......|
00000300  01 90 30 71 3d 71 2b 31  3a e7 20 71 3d 34 20 70  |..0q=q+1:. q=4 p|
00000310  73 3d 70 73 2b 31 3a 71  3d b3 28 33 29 3a ef 31  |s=ps+1:q=.(3):.1|
00000320  39 2c 32 2c 31 30 3b 30  3b 3a e5 8d 74 6e 41 0d  |9,2,10;0;:..tnA.|
00000330  01 9a 2d fd 20 64 65 6e  73 69 74 79 28 79 6f 75  |..-. density(you|
00000340  72 68 61 6e 64 28 71 29  29 3e 64 65 6e 73 69 74  |rhand(q))>densit|
00000350  79 28 6d 79 68 61 6e 64  28 70 29 29 0d 01 a4 17  |y(myhand(p))....|
00000360  63 73 3d 63 73 2b 31 3a  ef 31 39 2c 31 2c 31 32  |cs=cs+1:.19,1,12|
00000370  3b 30 3b 0d 01 ae 22 fb  31 3a f1 8a 31 30 2c 31  |;0;...".1:..10,1|
00000380  35 29 3b 63 61 72 64 24  28 79 6f 75 72 68 61 6e  |5);card$(yourhan|
00000390  64 28 71 29 29 0d 01 b8  05 e1 0d 01 c2 12 dd f2  |d(q))...........|
000003a0  72 65 70 6c 61 63 65 63  61 72 64 73 0d 01 cc 2d  |replacecards...-|
000003b0  f1 8a 33 30 2c 34 29 22  53 43 4f 52 45 20 3d 20  |..30,4)"SCORE = |
000003c0  22 3b 70 73 3b 8a 33 30  2c 32 34 29 22 53 43 4f  |";ps;.30,24)"SCO|
000003d0  52 45 20 3d 20 22 3b 63  73 0d 01 d6 22 f1 8a 32  |RE = ";cs..."..2|
000003e0  2c 70 2a 32 29 3b 89 28  32 30 29 8a 32 2c 32 30  |,p*2);.(20).2,20|
000003f0  2b 71 2a 32 29 3b 89 28  32 30 29 0d 01 e0 13 d1  |+q*2);.(20).....|
00000400  3d 30 3a f5 fd 91 3e 32  30 30 3a ef 32 30 0d 01  |=0:...>200:.20..|
00000410  ea 0c f2 67 65 74 63 61  72 64 0d 01 f4 2c fb 32  |...getcard...,.2|
00000420  3a 6d 79 68 61 6e 64 28  70 29 3d 4e 25 3a f1 8a  |:myhand(p)=N%:..|
00000430  32 2c 70 2a 32 29 63 61  72 64 24 28 6d 79 68 61  |2,p*2)card$(myha|
00000440  6e 64 28 70 29 29 0d 01  fe 0c f2 67 65 74 63 61  |nd(p)).....getca|
00000450  72 64 0d 02 08 33 fb 31  3a 79 6f 75 72 68 61 6e  |rd...3.1:yourhan|
00000460  64 28 71 29 3d 4e 25 3a  f1 8a 32 2c 32 30 2b 71  |d(q)=N%:..2,20+q|
00000470  2a 32 29 63 61 72 64 24  28 79 6f 75 72 68 61 6e  |*2)card$(yourhan|
00000480  64 28 71 29 29 0d 02 12  1f f1 8a 31 30 2c 31 32  |d(q))......10,12|
00000490  29 3b 89 28 32 30 29 8a  31 30 2c 31 35 29 3b 89  |);.(20).10,15);.|
000004a0  28 32 30 29 0d 02 1c 05  e1 0d 02 26 d2 dc 20 48  |(20).......&.. H|
000004b0  59 44 52 4f 47 45 4e 2c  30 2e 30 30 31 2c 4f 58  |YDROGEN,0.001,OX|
000004c0  59 47 45 4e 2c 30 2e 30  31 2c 43 41 52 42 4f 4e  |YGEN,0.01,CARBON|
000004d0  20 44 49 4f 58 49 44 45  2c 30 2e 30 32 2c 41 4c  | DIOXIDE,0.02,AL|
000004e0  43 4f 48 4f 4c 2c 30 2e  38 2c 57 41 54 45 52 2c  |COHOL,0.8,WATER,|
000004f0  31 2c 57 4f 4f 44 2c 30  2e 35 2c 41 4c 55 4d 49  |1,WOOD,0.5,ALUMI|
00000500  4e 49 55 4d 2c 32 2e 37  2c 43 4f 50 50 45 52 2c  |NIUM,2.7,COPPER,|
00000510  38 2e 39 2c 49 52 4f 4e  2c 37 2e 38 2c 47 4f 4c  |8.9,IRON,7.8,GOL|
00000520  44 2c 31 39 2e 33 2c 50  4c 41 54 49 4e 55 4d 2c  |D,19.3,PLATINUM,|
00000530  32 31 2e 35 2c 53 49 4c  56 45 52 2c 31 37 2c 4d  |21.5,SILVER,17,M|
00000540  45 52 43 55 52 59 2c 31  33 2e 36 2c 53 45 41 20  |ERCURY,13.6,SEA |
00000550  57 41 54 45 52 2c 31 2e  33 2c 43 41 4e 44 4c 45  |WATER,1.3,CANDLE|
00000560  20 57 41 58 2c 30 2e 39  2c 46 4f 41 4d 45 44 20  | WAX,0.9,FOAMED |
00000570  50 4c 41 53 54 49 43 2c  30 2e 31 0d 02 30 33 dc  |PLASTIC,0.1..03.|
00000580  42 52 41 53 53 2c 38 2e  35 2c 47 4c 41 53 53 2c  |BRASS,8.5,GLASS,|
00000590  32 2e 36 2c 49 43 45 2c  2e 39 32 2c 4c 45 41 44  |2.6,ICE,.92,LEAD|
000005a0  2c 31 31 2e 33 2c 53 41  4e 44 2c 32 2e 36 0d ff  |,11.3,SAND,2.6..|
000005b0