#� > <BasicSave$Dir>.LOGIC GATES
� The Safe Scientist
� (c) The Micro User
($�1:�init:�instruct:��inputs:�0:�
2��init:on%=�:off%=�
<� input%(5),output%(3)
F�and:�or:�not:�
P	��and
Z!�box(7,200,800,400,900,"AND")
d�setInput(1,off%)
n�setInput(2,off%)
x�evalAnd:�
���or
� �box(7,200,600,400,700,"OR")
��setInput(3,off%)
��setInput(4,off%)
�
�evalOr:�
�	��not
�!�box(7,200,400,400,500,"NOT")
��setInput(5,off%)
��evalNot:�
�!��box(C%,U%,V%,X%,Y%,t$)�0,C%
�&�U%,V%:�U%,Y%:�X%,Y%:�X%,V%:�U%,V%
�(�5:�U%+32,V%-(V%-Y%)/2+12:�t$;:�vdu4
��

3��setInput(N%,O%)input%(N%)=O%:�drawInput(N%):�

3��drawInput(N%)�Y%:�0,�c(input%(N%)):Y%=�iy(N%)

,�50,Y%:�200,Y%:�5:�0,Y%+12:�;N%;:�vdu4:�

"ݤiy(N%)

,� N%=1 =880

6� N%=2 =820

@� N%=3 =680

J� N%=4 =620

T� N%=5 =450

^
��evalAnd

h$output%(1)=input%(1) � input%(2)

r�drawOutput(1):�

|��evalOr

�$output%(2)=input%(3) � input%(4)

��drawOutput(2):�

�
��evalNot

�output%(3)=� input%(5)

��drawOutput(3):�

�ݤoy(N%)

�� N%=1 =850

�� N%=2 =650

�� N%=3 =450

�*��drawOutput(N%)�Y%:�0,�c(output%(N%))

� Y%=�oy(N%):�400,Y%:�800,Y%:�

�ݤc(O%)�O%:=1�=3

���inputs
� G%=�"12345",�):� G%>0
�setInput(G%,� input%(G%))
.� G%>4 �evalNot �� G%>2 �evalOr � �evalAnd
&�
0"��instruct:�23,1,0;0;0;0;0;:�2
:%�15,1)"L O G I C"�15)"~~~~~~~~~"
D0�0,24)"Press number to turn line on or off"
N#�'"White = off"�20)"Red = on":�
X��vdu4:�4:�23,1,0;0;0;0;:�
�

00000000  0d 00 0a 23 f4 20 3e 20  3c 42 61 73 69 63 53 61  |...#. > <BasicSa|
00000010  76 65 24 44 69 72 3e 2e  4c 4f 47 49 43 20 47 41  |ve$Dir>.LOGIC GA|
00000020  54 45 53 0d 00 14 18 f4  20 54 68 65 20 53 61 66  |TES..... The Saf|
00000030  65 20 53 63 69 65 6e 74  69 73 74 0d 00 1e 18 f4  |e Scientist.....|
00000040  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000050  73 65 72 0d 00 28 24 eb  31 3a f2 69 6e 69 74 3a  |ser..($.1:.init:|
00000060  f2 69 6e 73 74 72 75 63  74 3a f5 f2 69 6e 70 75  |.instruct:..inpu|
00000070  74 73 3a fd 30 3a e0 0d  00 32 17 dd f2 69 6e 69  |ts:.0:...2...ini|
00000080  74 3a 6f 6e 25 3d b9 3a  6f 66 66 25 3d a3 0d 00  |t:on%=.:off%=...|
00000090  3c 1a de 20 69 6e 70 75  74 25 28 35 29 2c 6f 75  |<.. input%(5),ou|
000000a0  74 70 75 74 25 28 33 29  0d 00 46 13 f2 61 6e 64  |tput%(3)..F..and|
000000b0  3a f2 6f 72 3a f2 6e 6f  74 3a e1 0d 00 50 09 dd  |:.or:.not:...P..|
000000c0  f2 61 6e 64 0d 00 5a 21  f2 62 6f 78 28 37 2c 32  |.and..Z!.box(7,2|
000000d0  30 30 2c 38 30 30 2c 34  30 30 2c 39 30 30 2c 22  |00,800,400,900,"|
000000e0  41 4e 44 22 29 0d 00 64  15 f2 73 65 74 49 6e 70  |AND")..d..setInp|
000000f0  75 74 28 31 2c 6f 66 66  25 29 0d 00 6e 15 f2 73  |ut(1,off%)..n..s|
00000100  65 74 49 6e 70 75 74 28  32 2c 6f 66 66 25 29 0d  |etInput(2,off%).|
00000110  00 78 0e f2 65 76 61 6c  41 6e 64 3a e1 0d 00 82  |.x..evalAnd:....|
00000120  08 dd f2 6f 72 0d 00 8c  20 f2 62 6f 78 28 37 2c  |...or... .box(7,|
00000130  32 30 30 2c 36 30 30 2c  34 30 30 2c 37 30 30 2c  |200,600,400,700,|
00000140  22 4f 52 22 29 0d 00 96  15 f2 73 65 74 49 6e 70  |"OR").....setInp|
00000150  75 74 28 33 2c 6f 66 66  25 29 0d 00 a0 15 f2 73  |ut(3,off%).....s|
00000160  65 74 49 6e 70 75 74 28  34 2c 6f 66 66 25 29 0d  |etInput(4,off%).|
00000170  00 aa 0d f2 65 76 61 6c  4f 72 3a e1 0d 00 b4 09  |....evalOr:.....|
00000180  dd f2 6e 6f 74 0d 00 be  21 f2 62 6f 78 28 37 2c  |..not...!.box(7,|
00000190  32 30 30 2c 34 30 30 2c  34 30 30 2c 35 30 30 2c  |200,400,400,500,|
000001a0  22 4e 4f 54 22 29 0d 00  c8 15 f2 73 65 74 49 6e  |"NOT").....setIn|
000001b0  70 75 74 28 35 2c 6f 66  66 25 29 0d 00 d2 0e f2  |put(5,off%).....|
000001c0  65 76 61 6c 4e 6f 74 3a  e1 0d 00 dc 21 dd f2 62  |evalNot:....!..b|
000001d0  6f 78 28 43 25 2c 55 25  2c 56 25 2c 58 25 2c 59  |ox(C%,U%,V%,X%,Y|
000001e0  25 2c 74 24 29 e6 30 2c  43 25 0d 00 e6 26 ec 55  |%,t$).0,C%...&.U|
000001f0  25 2c 56 25 3a df 55 25  2c 59 25 3a df 58 25 2c  |%,V%:.U%,Y%:.X%,|
00000200  59 25 3a df 58 25 2c 56  25 3a df 55 25 2c 56 25  |Y%:.X%,V%:.U%,V%|
00000210  0d 00 f0 28 ef 35 3a ec  55 25 2b 33 32 2c 56 25  |...(.5:.U%+32,V%|
00000220  2d 28 56 25 2d 59 25 29  2f 32 2b 31 32 3a f1 74  |-(V%-Y%)/2+12:.t|
00000230  24 3b 3a f2 76 64 75 34  0d 00 fa 05 e1 0d 01 04  |$;:.vdu4........|
00000240  33 dd f2 73 65 74 49 6e  70 75 74 28 4e 25 2c 4f  |3..setInput(N%,O|
00000250  25 29 69 6e 70 75 74 25  28 4e 25 29 3d 4f 25 3a  |%)input%(N%)=O%:|
00000260  f2 64 72 61 77 49 6e 70  75 74 28 4e 25 29 3a e1  |.drawInput(N%):.|
00000270  0d 01 0e 33 dd f2 64 72  61 77 49 6e 70 75 74 28  |...3..drawInput(|
00000280  4e 25 29 ea 59 25 3a e6  30 2c a4 63 28 69 6e 70  |N%).Y%:.0,.c(inp|
00000290  75 74 25 28 4e 25 29 29  3a 59 25 3d a4 69 79 28  |ut%(N%)):Y%=.iy(|
000002a0  4e 25 29 0d 01 18 2c ec  35 30 2c 59 25 3a df 32  |N%)...,.50,Y%:.2|
000002b0  30 30 2c 59 25 3a ef 35  3a ec 30 2c 59 25 2b 31  |00,Y%:.5:.0,Y%+1|
000002c0  32 3a f1 3b 4e 25 3b 3a  f2 76 64 75 34 3a e1 0d  |2:.;N%;:.vdu4:..|
000002d0  01 22 0c dd a4 69 79 28  4e 25 29 0d 01 2c 0f e7  |."...iy(N%)..,..|
000002e0  20 4e 25 3d 31 20 3d 38  38 30 0d 01 36 0f e7 20  | N%=1 =880..6.. |
000002f0  4e 25 3d 32 20 3d 38 32  30 0d 01 40 0f e7 20 4e  |N%=2 =820..@.. N|
00000300  25 3d 33 20 3d 36 38 30  0d 01 4a 0f e7 20 4e 25  |%=3 =680..J.. N%|
00000310  3d 34 20 3d 36 32 30 0d  01 54 0f e7 20 4e 25 3d  |=4 =620..T.. N%=|
00000320  35 20 3d 34 35 30 0d 01  5e 0d dd f2 65 76 61 6c  |5 =450..^...eval|
00000330  41 6e 64 0d 01 68 24 6f  75 74 70 75 74 25 28 31  |And..h$output%(1|
00000340  29 3d 69 6e 70 75 74 25  28 31 29 20 80 20 69 6e  |)=input%(1) . in|
00000350  70 75 74 25 28 32 29 0d  01 72 14 f2 64 72 61 77  |put%(2)..r..draw|
00000360  4f 75 74 70 75 74 28 31  29 3a e1 0d 01 7c 0c dd  |Output(1):...|..|
00000370  f2 65 76 61 6c 4f 72 0d  01 86 24 6f 75 74 70 75  |.evalOr...$outpu|
00000380  74 25 28 32 29 3d 69 6e  70 75 74 25 28 33 29 20  |t%(2)=input%(3) |
00000390  84 20 69 6e 70 75 74 25  28 34 29 0d 01 90 14 f2  |. input%(4).....|
000003a0  64 72 61 77 4f 75 74 70  75 74 28 32 29 3a e1 0d  |drawOutput(2):..|
000003b0  01 9a 0d dd f2 65 76 61  6c 4e 6f 74 0d 01 a4 1a  |.....evalNot....|
000003c0  6f 75 74 70 75 74 25 28  33 29 3d ac 20 69 6e 70  |output%(3)=. inp|
000003d0  75 74 25 28 35 29 0d 01  ae 14 f2 64 72 61 77 4f  |ut%(5).....drawO|
000003e0  75 74 70 75 74 28 33 29  3a e1 0d 01 b8 0c dd a4  |utput(3):.......|
000003f0  6f 79 28 4e 25 29 0d 01  c2 0f e7 20 4e 25 3d 31  |oy(N%)..... N%=1|
00000400  20 3d 38 35 30 0d 01 cc  0f e7 20 4e 25 3d 32 20  | =850..... N%=2 |
00000410  3d 36 35 30 0d 01 d6 0f  e7 20 4e 25 3d 33 20 3d  |=650..... N%=3 =|
00000420  34 35 30 0d 01 e0 2a dd  f2 64 72 61 77 4f 75 74  |450...*..drawOut|
00000430  70 75 74 28 4e 25 29 ea  59 25 3a e6 30 2c a4 63  |put(N%).Y%:.0,.c|
00000440  28 6f 75 74 70 75 74 25  28 4e 25 29 29 0d 01 ea  |(output%(N%))...|
00000450  20 59 25 3d a4 6f 79 28  4e 25 29 3a ec 34 30 30  | Y%=.oy(N%):.400|
00000460  2c 59 25 3a df 38 30 30  2c 59 25 3a e1 0d 01 f4  |,Y%:.800,Y%:....|
00000470  14 dd a4 63 28 4f 25 29  e7 4f 25 3a 3d 31 8b 3d  |...c(O%).O%:=1.=|
00000480  33 0d 01 fe 0c dd f2 69  6e 70 75 74 73 0d 02 08  |3......inputs...|
00000490  1b f5 20 47 25 3d a7 22  31 32 33 34 35 22 2c be  |.. G%=."12345",.|
000004a0  29 3a fd 20 47 25 3e 30  0d 02 12 1e f2 73 65 74  |):. G%>0.....set|
000004b0  49 6e 70 75 74 28 47 25  2c ac 20 69 6e 70 75 74  |Input(G%,. input|
000004c0  25 28 47 25 29 29 0d 02  1c 2e e7 20 47 25 3e 34  |%(G%))..... G%>4|
000004d0  20 f2 65 76 61 6c 4e 6f  74 20 8b e7 20 47 25 3e  | .evalNot .. G%>|
000004e0  32 20 f2 65 76 61 6c 4f  72 20 8b 20 f2 65 76 61  |2 .evalOr . .eva|
000004f0  6c 41 6e 64 0d 02 26 05  e1 0d 02 30 22 dd f2 69  |lAnd..&....0"..i|
00000500  6e 73 74 72 75 63 74 3a  ef 32 33 2c 31 2c 30 3b  |nstruct:.23,1,0;|
00000510  30 3b 30 3b 30 3b 30 3b  3a fb 32 0d 02 3a 25 f1  |0;0;0;0;:.2..:%.|
00000520  8a 31 35 2c 31 29 22 4c  20 4f 20 47 20 49 20 43  |.15,1)"L O G I C|
00000530  22 8a 31 35 29 22 7e 7e  7e 7e 7e 7e 7e 7e 7e 22  |".15)"~~~~~~~~~"|
00000540  0d 02 44 30 f1 8a 30 2c  32 34 29 22 50 72 65 73  |..D0..0,24)"Pres|
00000550  73 20 6e 75 6d 62 65 72  20 74 6f 20 74 75 72 6e  |s number to turn|
00000560  20 6c 69 6e 65 20 6f 6e  20 6f 72 20 6f 66 66 22  | line on or off"|
00000570  0d 02 4e 23 f1 27 22 57  68 69 74 65 20 3d 20 6f  |..N#.'"White = o|
00000580  66 66 22 8a 32 30 29 22  52 65 64 20 3d 20 6f 6e  |ff".20)"Red = on|
00000590  22 3a e1 0d 02 58 1e dd  f2 76 64 75 34 3a ef 34  |":...X...vdu4:.4|
000005a0  3a ef 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 3a  |:.23,1,0;0;0;0;:|
000005b0  e1 0d ff                                          |...|
000005b3