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?" 921,0;6;"Press y for yes, n for no." ""1015 =""1016 a$= )A$"Y"A$"y"a$"n"A$"N"1015 z=40(:x=1 e:5:4,16;5;1;1;"TRUTH TABLE";5,17;"GENERATOR" uA$="N"A$="n"8,15;"After F press :";10 ,15;"2=print 3=reset";11 ,18;"4=quit" ?18,0;4;"Logical expression to evaluate " $620,0;"LET F = NOT A AND B AND (C OR D)" .G0,0;5;7;"A B C D F " 8a$="y"a$="Y"1230 B 85004! Ca=k$:.5,30 Ga>11430 Lx,0;a V 85004! Wb=k$:.5,10 [b>11110V `x,2;b j 85004! kc=k$:.5,20 oc>11130j tx,4;c ~ 85004! d=k$:.5,0 d>11150~ x,6;d  1480 :x,10 ;f:i=010 :.1}L,3*i:i  x=x+1 a$="y"a$="Y"1270 x<171090B x=178000@  a=-1  b=0  c=0  d=0  a=a+1 a=2b=b+1  a=2a=0 b=2c=c+1 b=2b=0 (c=2d=d+1 2c=2c=0 <d=21210 Fx,0;a Px,2;b Zx,4;c dx,6;d n.1}L,z:z=z-1 x 1170   100d $a=2:a=21090B a=31010 a=41410 a>41090B  1090B f=ab(cd)    y=1  z=2  s=0  7;"*KARNAUGH MAP*" *" " 41,14;"F" > 2690 H " D D" R 2690 \3;" " f 2690 p" " z3;" ";  2690 "B"  2690  " "  2690 "A";  2690 3;" ";  2690 "B"  2690 " "  2690 "A";  2690 3;" " $ 2690 . " C C" 8.6,17;1;"2=Print 3=Reset" B%8,21;1;"4=Quit" L19,0; 6;"Enter dependent variable F, for values of A, B, C and D, in ascending binary magnitude. " V 2730 ` x=3 j 2530 t x=x+6 ~ 2530 x=x-4 2530 x=x+2 2530 s=4y=y+6 s=8y=y-4 s=12 y=y+2 s>142530 2400` ""2530 =""2531 F$= f$>5792530 f=f$ f>42530 f=2 f=22530 f=32000 (f=4100d 2s>152530 <z,12 ;s+1;"=";f Fs>152530 P z=z+1 Z 2730 d s=s+1 nf=1x,y;"*" x i=010 .06|u\,3*i i  i=010 .03{u\,30 i    x=65A …:8;4;"EXPRESSION USED":" IF a=1 AND b=1 AND c=1 OR a=1 AND d=1 AND e=1 OR a=1 AND d=1 AND g=1 OR f=1 AND g=1" 15,5;7;"CONTROL USING LOGIC"  " A B C" a=0 b=0 c=0  d=0  e=0  f=0 & g=0 0 s=0 : 3740 D!0;"" N!0;" " X!0;" D E " b*0;" " l!0;" " v!0;" F G " !0;"" 11 ,5;0;"" !11 ,19;0;"" !14,11 ;0;"" !14,19;0;"" j20,0;6;"Is switch ";7;3;(x);1;6;" open(0) or closed(1)" 3660L ""3270 =""3271 z$= 'z$<480ůz$>4913270 z$>5793270 z=z$ s=0a=z s=1b=z s=2c=z s=3d=z s=4e=z s=5f=z *s=6g=z 4 3430f > x=x+1 H s=s+1 Rs=73510 \ 3250 f*a=18,2;0;"" p*b=18,7;0;"" z+c=18,14;0;"" +d=111 ,7;0;"" ,e=111 ,14;0;"" +f=114,7;0;"" ,g=114,14;0;""  {a=1b=1c=1a=1d=1e=1a=1d=1g=1f=1g=13560 j=14 1,1 j 8000@ k=15 3700t 311 ,28;7;0;1;"" j=110 j !11 ,28;0;"" $i=110 .i 8k B 8000@ Li=04 V.06|u\,3*i `i j ti=010 ~.03{u\,30 i  #n=07:a:"A"+n,a:n #n=07:a:"D"+n,a:n #n=07:a:"C"+n,a:n %n=07:a:"B"+n,a:n: L4,8,16,227,195,195,195,195 K0,0,0,255,195,195,195,195 K24,36$,66B,153,165,66B,36$,36$ K24,36$,66B,129,129,66B,36$,36$ @pause T?21,0;6;" Press any key to continue. " ^""8030^ _=""8031_ h 100d !4""85004! !>=""8510>! !Hk$= !R'k$<480ůk$>52485004! !\ H xabcdefgs tz(Z0 M1AnK