GATES 6 6n8 20:0::"":0,0;"":"" LOGO @m6lmm6mmm6lmm6mmm mammammm mammammm6lmm6mmm6lmm6mm` ma lal` ma lalmm`6mmmmmm`6mmmm` ma lal` ma lalm amlaml` ma lalmmammlm amlamlm `mlalmmamml` alalm `mlal` ma lal` alalm amlaml` ma lalm6l`mmlm amlaml ` lalm6l`mml` alaml ` lalm mamlal` alamlm `mlamlm mamlalm6l`lmlm `mlaml` ma lalm6l`lml<<~<@<B<BB@@@BBDbB@B|<@BBBR@N~@@B~BJNBB@B@BBDFBB<GA E,12 ,9 ;1;"STOP THE TAPE"  200 5:5:1: *5,10 ;4;"LOGIC GATES" $18,0;"Scisoft  1984"  200  70,13 ;4;"MENU":.45ffff,15 E4,10 ;1;"1.";0;" AND":.1}L,12 D6,10 ;1;"2.";0;" OR":.1}L,40( E8,10 ;1;"3.";0;" XOR":.2~L,10 G10 ,10 ;1;"4.";0;" XNOR":.1}L,25 G12 ,10 ;1;"5.";0;" NAND":.1}L,30 G14,10 ;1;"6.";0; " NOR":.1}L,8 &j=10 40(:.015zu\,j:j _20,0;6;"Enter number of gate simulation required. " ""21 =""22 g$= %g$>546ůg$<49121 g=g$  d x=8 n.0,6;5;"1-----" x+1,6;5;" ------3" &2,6;5;"2-----" 400+g*100d )6,0;7;"Truth Table" )7,0;4;" 1 2 3 " 84,6;6;"Pulse at 1 - Press 1 or 0?" 1900l+g*100d /16,15;0;"r=reset p=print" &17,19;0;"q=quit" 4,15;1;"1" ""250 =""251 a$= a$="r"a$="R"5 a$="p"a$="P":5 a$="q"a$="Q"470 a$>491250 "x,1;a$ , 4,15;1;"2" 6""3106 7=""3117 8b$= ;b$>4913106 @x,5;b$ hy=710 m3000 +g*100d r,a$="1"0,y;"-*":.5,30 |,b$="1"2,y;"-*":.5,30 b$="0"1,10 a$="0"1,10 y  x=x+1  110n ):5,11 ;4;"Goodbye." h20,0;6;0;" Press BREAK & CAPS SHIFT before loading next program. "  480 30,12 ;0;7;"A" 31,12 ;0;7;"N" 32,12 ;0;7;"D"  X30,12 ;0;7;"O" b*1,12 ;0;" " l32,12 ;0;7;"R" v 30,12 ;0;7;"X" 31,12 ;0;7;"O" 32,12 ;0;7;"R"   30,12 ;0;7;"X" *41,12 ;0;7;"OO" 432,12 ;0;7;"R" > 30,12 ;0;7;"A" 41,12 ;0;7;"NO" 32,12 ;0;7;"D"  30,12 ;0;7;"N" 41,12 ;0;7;" O" 32,12 ;0;7;"R"  + 10 ,12 ;"AND gate is true if"  36,12 ;7;" AND gate " )8,12 ;"The output from an" + 10 ,12 ;"AND gate is true if" '12 ,12 ;"and only if its " +14,12 ;"inputs are all true."  436,12 ;7;" OR gate " >)8,12 ;"The output from an" H( 10 ,12 ;"OR gate is true " R(12 ,12 ;"if either of its " \&14,12 ;"inputs is true." f 36,12 ;7;" XOR gate " )8,12 ;"The output from an" ) 10 ,12 ;"XOR gate is true " $12 ,12 ;"if its inputs" %14,12 ;"are different."  36,12 ;7;" XNOR gate " )8,12 ;"The output from an" * 10 ,12 ;"XNOR gate is false" $12 ,12 ;"if its inputs" $%14,12 ;"are different." . `36,12 ;7;" NAND gate " j(8,12 ;"The output from a" t* 10 ,12 ;"NAND gate is false" ~$12 ,12 ;"if its inputs" $14,12 ;"are all true."  36,12 ;7;" NOR gate " (8,12 ;"The output from a" , 10 ,12 ;"NOR gate is false if" +12 ,12 ;"either of its inputs" 14,12 ;"is true."  ;a$="1"b$="1"1,y+6;"-*":.5,30 &a$="1"b$="1"x,9 ;"1" D1a$="0"b$="0"x,9 ;"0":1,10 N ;a$="1"b$="1"1,y+6;"-*":.5,30 a$="1"b$="1"x,9 ;"1" 1a$="0"b$="0"x,9 ;"0":1,10  3a$b$1,y+6;"-*":.5,30 a$b$x,9 ;"1" )a$=b$x,9 ;"0":1,10  H3a$=b$1,y+6;"-*":.5,30 R)a$b$x,9 ;"0":1,10 pa$=b$x,9 ;"1" z ;a$="0"b$="0"1,y+6;"-*":.5,30 1a$="1"b$="1"x,9 ;"0":1,10 a$="0"b$="0"x,9 ;"1"  ;a$="0"b$="0"1,y+6;"-*":.5,30 1a$="1"b$="1"x,9 ;"0":1,10 8a$="0"b$="0"x,9 ;"1" B )(gx hG3B1A