PROCESSOR <#L>#s$="1":236099\,255  0:0::9900&  6:  P=0  Q=0 5,0;4;0;" N.B. Throughout this section ",," please press ENTER after each ",," question. "  200: +"Number of inputs into this logicsystem?" %s$:9900&:f=110 9S=(s$):S:100d:S<1S>10 4000  "Number of outputs?" #%s$:9900&:f=130 $8T=(s$):T:100d:T<1T>64050 ( 2"How many gates?" 7%s$:9900&:f=1502 8%G=s$:S+T>9 *G4100:G < AG$(G,4) FI(G+1) HF(G+1) KL(8*G) PO(10 *G) UP(8*G) VM(8*G) WN(10 *G) XC(8*G) Z J=1G d n"Gate number: ";J o s#"Gate type? (Lower case please.)" tH$:H$=""116t u 4200@ vH$ x G$(J)=H$ #"Number of inputs for this gate?" &c$:8000@:f=1140 I=c$ I I(J)=I "Input line numbers?" "Type ENTER after each number" K=1I &c$:8000@:f=1160 V=c$ 4V<25,-10 :V<2160 V;" "; P=P+1 L(P)=V M(P)=V K  $"Output line number for the gate?" -c$:8000@:f=1190:O=c$ O=c$:O "Fan out?" /c$:8000@:f=1193:FAN=c$ FAN=c$:FAN F(J)=FAN K=1FAN Q=Q+1 O(Q)=O N(Q)=O K Y=135 Y J 221 :9000(# W0:4:0::"Do you want a print out of the circuit data (Y or N)?" ="n"Ŧ="N"225 ="y"Ŧ="Y"5000 222  J"Input data received-thank you I will check it for errors and report" K=1235 K  , I=1P 1L(I)=0326# 6 J=1P 7N(I)=0320 8&N(I)>0N(I)=M(J)N(I)=0 9N(I)=0M(J)=0 :J>IL(I)=M(J)M(J)=0 @J EI F F=0 G H=0 J I=1P OM(I)0F=F+1 PN(I)0H=H+1 TI U V YF=SH=T395E ^ c"Data entry error - restart" hJ=1150 mJ r 1  ""Data consistent - will process" J=1170 J  G0,0;6;0;" TRUTH-TABLE " 65;0;"I N P U T S O U T P U T S"  X=2  Y=0  I=1P M(I)=0440\  X,Y;M(I)  Y=Y+2 I  Y=19  I=1P N(I)=0470k  X,Y;N(I)  Y=Y+3@ I  I=1P  C(I)=O(I)  P(I)=L(I) I  Y=0  I=1P M(I)=0544 819,0;4;"2=copy 3=clear data 4=new" .21,0;"INPUT:";M(I);" (1 OR 0)?"  M(I)0c$ "8000@:f=1525  Z=c$  Z=2 Z=3@399G Z=41 Z=2480p Z>4525@ P(I)=Z  J=1P L(I)=P(J)P(J)=Z J X+1,Y;Z  Y=Y+2  I # B=0 $ C=1 % A=1 & I=1G ( 0G$(I)="and "2000 :G$(I)="nand"2020 DG$(I)="or "2040 NG$(I)="nor "2060  XG$(I)="xor "2080  bG$(I)="xnor"21004 lG$(I)="not "2120H nG$(I)="high"2140\ qG$(I)="low "2160p v C=C+I(I) { A=A+F(I) I  B=B+1 B<3@548  t=0  I=1P O(I)=0709 C(I)>16000p  t=t+5 I  I=1P P(I)>16000p I  Y=19 I=1P+1 N(I)=07306 X+1,Y;C(I)  Y=Y+3@ I  X=X+1  480p K=CC+I(I)-1 P(K)=07000Z C(A)=03000; K C(A)=0  7200a C(A)=13060?@  K=CC+I(I)-1 P(K)=07200a C(A)=13060?@ K C(A)=1  7000Z C(A)=03000;  K=CC+I(I)-1 P(K)=17200a C(A)=13060?@ K C(A)=1  7000Z C(A)=03000;   K=CC+I(I)-1 P(K)=17000Z C(A)=03000; K C(A)=0  7200a C(A)=13060?@   QP(C)=1P(C+1)=0P(C)=0P(C+1)=17200a !C(A)=13060?@ "C(A)=1 $ 7000Z %C(A)=03000; & 4QP(C)=1P(C+1)=0P(C)=0P(C+1)=17000Z 5C(A)=03000; 6C(A)=0 8 7200a 9C(A)=13060?@ : HP(C)=17000Z JP(C)=07200a KC(A)=03000; LC(A)=13060?@ M \ 7200a ^ 3060?@ _ p 7000Z r 3000; s J=1P O(A)=P(J)P(J)=0 J  J=1P O(A)=P(J)P(J)=1 J  "Input size invalid" J=150H J   10  "Output size invalid" J=150H J  25H  ""Looks strange - I wont process" J=150H J   1 h H$="and" r H$="nand" | H$="or"  H$="nor"  H$="xor"  H$="xnor"  H$="not"  H$="high"  H$="low"  $"I dont understand ";h$; " logic" K=1250 K  100H  66;0;"LOGIC SYSTEM TO BE ANALYSED "  65;0;"N/TYPE INPUTS OUT "  C=1  Z=1  I=1G I+3@,0;I I+3@,2;G$(I)  A=0 J=CC+I(I)-1 I+3@,7`+A;L(J)  A=A+3@ J  A=0 K=ZZ+F(I)-1 I+3@,21(+A;O(K)  A=A+3@ K  C=C+I(I)  Z=Z+F(I) I #20,0;"Press C ENTER" C$   225a p u z`"I have not been able to process this circuit in two passes - is the input sequence sensible?" J=1100H J  1 d:j=1P:I(j);:j i nj=1P:L(j);:j s xj=1P:M(j);:j  XR=AA+F(I)-1 bC(R)=0 lR v  R=AA+F(I)-1 RC(R)=1 \R p @ f=0 Bc$=""f=1 El=1̱c$ J0c$(ll)<480ůc$(ll)>579f=1 Tl Yf=15,-10 ^ #(5:5:1: #215,5;7;"THE LOGIC PROCESSOR" #<$18,0;" Scisoft 1984" #F?21,0;6;" Press any key to continue. " #P=""9040P# #Q""9041Q# #d #x?21,0;6;" Press any key to continue. " #n=(*32 ) #m=(*21) #j=(*8) #k=(*8) #f=(*2) #b=(*2) #i=((*12 )+130) #m,n;b;f;j;k;i $"=""9100# $, &0:5 & :" "; &beep=*40(+20 &j=1beepbeep/8 &ץ*100d/1000,j &j & f=0 &s$=""f=1 &s$=""s$=" " &k=1̱s$ &0s$(kk)>579ůs$(kk)<480f=1 & f=1 &:f=17;2;"Illegal input - try again" & f=1 & f=1 &k & ee n`fp@q@stS3gand and or {{{{E@voa Horc`za@hxnmbCc