ZXTape! 0Created with Ramsoft MakeTZXGATES 6 6nh8 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<GATES ]Jr#_,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 ;6;"Goodbye."  471 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 ( LOGIC  n H:12 ,9 ;1;"STOP THE TAPE":j=0500:j: d5:5:1: i n#0,13 ;4;"MENU" x45,4;1;"1.";0;" TRUTH" 29 ,4;1;"2.";0;" MAP" 713 ,4;1;"3.";0;" CONTROL" /21,5;6;"Press 1, 2 or 3." ""150 =""160 M$= &M$<491ůM$>513150 M$*1000 [:5,0;5;1;"Do you wish to use the auto- generate facility?" rXdb*X`wp0+3{+aq3{syqh6I_aph1_aph0 !0hH &I2 &I3 &Iq2 &Iq_aph 0顀p@׋ph (9p(׭ap apѨp(ɈppA b)ap(ap:*r* zh  !q* !q_ap@apx 3+1+apPapx냓Ks++apXap닫Kh apapѠp c{;K a+Ã+K{qy+ c )h!!apapb*1rz  r! r!Bz!Ih!r8apapѨp(Ѹp8 !1h! !+ !_app h"`iph" Y!ֹqsaph"8 p_ap(h"`pcaph"`iph"Y!ֹqsapPh"ظp_ap h#pcaph#P`iph#XY!ֹqsaph#xp_apP h#pcap h#`iph#!Y!ֹqsaph$!p_ap h$@pcap0 h$`ip@(h$capP1[IpapPֹqsfffaapSIכHh%0hYph% !+ !_ap h%ቸp_aɀp h& 鉸p_iph&p` iph&Xph'Xph'`X!ph'h Yph( p_Yph(P p_ ph(p_Yph(p_ph)@p_!!Yph)p_ph)!p_ap h*0pcaph*pcaph*pcap h+ pcap0 h+pqsfffac׋iph+`ap h,h,`Xap h,  p_ p_aɀp h- p_aph-P p _ap(h- p _aɀp h-`aɀp h.@p131C+!Hh.h>h@Xph@`Xph@XphAѸp8RZ r :Aj QhAPphAapapp1hA`iɀpPhB@P!!hB`iɀpPhBɘpyyyyhC0`iɀpPhChCɘpyyyyhD `iɀpPhDp(hD`iɀpPhEhhE``iɀpPhE0 hF`iɀpPhFPɘpyyyyhF`iɀpPhF(hG@`iɀpPhG(hG`iɀpPhH00 hH`iɀpPhHаɘpyyyyhI `iɀpPhIp`hIpap0apɈpꃓKs++hJ(ap@apɈpꋫKhJdapapѰp0+s+#++s#+s K c)1a3{ c+{1 aa s!!aKq +s#Ks9Ks k ;sK#)qhJ`ipPPhKXphKP`ipHhKhYp0hK`ipHhL@hip hL`ipHhLhYphM0`ipHhMәp _Yp0hMәp@_ip hN ә鉐p`_YphNpәpp_apHhN`apHhO6I_apHhO1_apHhO801!0hO`{1!p_apHhO811 hP1p _apHhPPh1p_hP1p_apHhP1p_ap8hQ@1p _ap hQәpx_apHhQcap`ۙYp0hR0әpx_apHhRhYphR`ipPPhS hYphSp1p_ccQhShT[IpapPhT`qszapSHhTHhUhUP[IpapPhUqsۮzaphUHhV@hVhVh]`鱨ph^(׭ip@Ѡp *‚*Jzq*!שJ1  r! r!z  r!! r!)z  r!! r!9z1 r!9h^aap(ap(Ѹp8zrzaJr9bz:Jh^h_ h_PX ph_Xph_Xph`@X!ph`X)ph`X1pha0X9phaXpha`ipphb!ɀpddddddddddddddddahbqɀpQ)hbɀpQ!))hcPɀpdddddddddddddddddddddhcaɀp))hcɀp1)9)hdɀpdddddddddddddddddahdQapXap(ɀpqhdapXapɀpihdappapXɀpiheAappapɀpihePapapѰp0KKAɸp8јpCIɈpѰp0{+qAI{c{+!AIhe`ip`phf06I_ap0`hf81_ap8`hf@0!0hfY8{!p-{!p_ap0`hf{!p_ap0`hf8 hgpәp_ hgәp_hhәp_hh`әp_!hhәp _)hiәp(_1hiPәp0_9hi`ip0hhihYphj@hYphjәp8_aphhj`ap`hk1P p_ap@apɀphkPp_ap@ap8ɀphkXp_ap@appɀphl!X!p_apXap8ɀphlq`)p_apXappɀphlX1p_appap8ɀphm`9p_appappɀphm`hm p3p3p+ p3!p3)p+ p3!p39p+1p39p_ap@hhn[Qpap hnPpaphnPhn`ipho@[Ypap(ho`ipphoapXapѸp8ɀpphp0[QpapPhpPhpapXapɀphq [IpapPhqpHhqXhr`iphr`[Ipap hrqszapSHhsHhsPhs[IpapPhsqsۮzapht@Hhtht[qpap8 צ [qc כphu1[qpap8 צ![qc כphu[qpap8 צ[qc כphu([qpap8 צ[qc כqhv"`!p ap@apapaɨpaɨpaɨpaɨphvrX!papapapaɨpaɨpaɨpaɨphvX!pap apapap(apap ap hwX!pap apapapapap ap h8S (hapapѰp0+ s[+y{sKs)qh6I_aph1_aph@Xap i 6I_api 1_api @0Y!0i 8{Y!p-{Y!p_api oPXP0p@ (088p@8pHXP pX0(@hh`