'===========================================================================
' Subject: CPU DETECTION                      Date: 05-31-97 (07:01)       
'  Author: Erika Schulze                      Code: QB, QBasic, PDS, PB    
'  Origin: 100775.2275@CompuServe.com       Packet: MISC.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"CPU.ZIP",4^6:Z&=5395:?STRING$(50,177);
U"%up()%9%%%I-%$3K8Gw_3]\?)7%%J2%%%,%%%%hu%zSfxOr&&<+t\]5$w;IwN<K
U"2Fl(Dd/LywW*6Qo=zd.fD914?anW\,#]_;V'8Ew5A7[Nr6eBZ4EtRXt_h)f6AFK
U"o4^USd5[')9<<u1^DzYBGV(42K?D?JcZMFC,-AE6B&Ru=EEI)Uzf];sxmW3srll
U"D?jRr:2kma#1?h7)e<xx:iXfXNWmQVlQ\(K/YElvK+_7'kbnR*3ih6&L%V#-vNN
U"X%xNqP0+QNu7ADELKS*#HnV2WTD>BMC4U<I';Cs#e*^#a0WB1g3X=6;]5+Pn7L=
U"OMmJ.%8:ePkRKPE%WlIEYF/]&%WvK^KP[pG4XmxxUz/c$E?vDb6dHzuiI3$ErqA
U"kpqzP*:FC8eI).fMwFd[ll*E^=NsK]D#mBgt$3_1Kb665OKYLitVlJ'txIZ71QC
U"&,nxDZlE>,tKVRu\RFwI#uuuky<7r$A''sQ6<7f)DG3L6hYS(hP?.6U8eJ-Fac'
U"k;kku*jlVrZtnm$a)NpBQKJ3]US>lSQiO*qnmc%&84idN%3S/X[oq%-<al-lF\p
U"gA7F:.*<*1]+Xe6.#q[;ikt=<$CxKxdE+kAPPm+3Kg?X;Ipk[TDbfNF[b1JaKZ+
U"g_%iKfW/YJGbWDJ;HZYPCwH/J=x(Rygch1Ydv/e#0l&l*A8WCFg(7Kf5?Ll1bS(
U"_?++a8e(*dzK_G_&+hwTX&RrKVLUyHcZ]o-wV*bD0/Dph7MN&e=]5=.9aTqg^0H
U"LX<]g>siUppjNS1'0Deof(g#ZPK?RJs3#oX\v0l52^X$L6$?#s^Tmt?rIudmbbe
U"KVz8*_\RYPRKaeQxDs4eZp,7j5Q\N$y(WBmZK&OQ<_x+zt=g=3Z&1ei841Msv4.
U"r&S?t&MZ</>n)%N^=R5*I<j/(JzjPpKQxJ(hh'OTcu*IeDSse9S:2Z).Go9YSEU
U"PDA:aD55p+f*BD$bOUXEP4&2%%Hwp*rERQE2MzxWe8hVcRnNnpu*f.RGI3fWRa7
U"&QGR_c#Z%&E-A+B[,cL+7BPL96]eNAE3VH--fMO1%z=u7.ZTR8<JTmHq(/fzJLT
U"]>\l-&*Hv$XVPGYK'^k33HpwXA6_n7PlGa1X)AL76p3%Fn7?EESJ)2J%bueYt;;
U"kCYS9rZU-/]8\$6fSfsJwEFC76<v;Uir1tB*l.v<Nf=A_?bjVNS(ktfwARwhS3P
U"w5OLo*B<P_8i:[rGzqi/d74KoUxRJ=pP((#H9+sj%-^/cc2q>YY09-5H*tbtR09
U"\(gj*E2UH>6*o-OJ:O,QZDK0F#L*Y'L(vOaG%KVad&l1es-OI0Kc]vQ:Am/Q5.e
U"&0K0Joyb%*=UgZ+Wb_3zIAGqr50<Lu7I3ow2[,xazj5ARm=(xf._c8.eV,K6eRq
U"xo=rH;3%kb$VB'iIw(,Q]X^)7<XGdoL4DWG;_,n$3jlrNJ^e5tApE;>&51BGUNk
U"vgT[9nPTJK>u=xui%dup(%)9%%#%-%$,38Gw$Pq#7[%%%C%%%%,%%%%h%uzStdg
U"o:Y)3/tS+MNpQHGV^\DXPFrVRh:0iZc8U#1QS]1F]/gAH+$R%,#(8%XHTmuURX>
U"#:qMQB=h='/'>FtNY4//21BF2A#3-4h//gUu:;Y)VW#[QI-+ohWVF3^mYdr,XvZ
U"kZL7f_W%:q#=^p<Aq+>R==4?e'>WwfavTF&;W(YoFOC18&8YB:5R%T)yyOoq<'1
U"oGFUaWiTcp_q;xDi8(BuSUg#nvdFZ&3]G>*;Gi[5SjB<*Ia7%%up()%9%%%I-%:
U"498G=+:(4**.%%g8%%%.%%%%hu%zugS[gfx.h'*BSI]9MEb5kDGk5SpVP8QSugr
U"ihE[S=LnPeT?8NSLb<d&?;R[HpnbQ(XB3eo3S_]',5/-7hABhljwuNrK2FbvKxb
U"si*]MM#Jr-5rSw4QY:RGJUQnlI_sb:B'7FH:3ICf]HX3b-QG8K(I3O22Hmv/i'T
U"mSi$a.(k'OW<EEW-SHE.Wp1;xSVmG.M\.w0b%PbJ9]q*xWI0Brbq3=+l_66miPr
U"Ujh;<t9f%uW]LMK=6+vh9%7K5:Yj(KD<?\2jG*G,y$^ta'DY%O4S?SXPX-8Des6
U"NF0p#eQBa8y9kx#x51?/5Rsrub,**<kc[G9q]jtV2PZ##+DN?/Vm,,##XDWN9T#
U"Dgxi=a/fe$T#DGadJ48dMx.$JOK$NcY&#9s#/pjJI5k<M8,^UAMsCDKf/*MGix3
U"JilG/(KWj-WFc5uL/rkR6IhO*A5V0[/UMd:72fE7R3Kxr-=LnZCl>AqMv3TRXhr
U"=h:kZH&5,W)CNvaMA&HJyOL8CvyM4HIO?&?g3$klbXje/?ZuV^qALD0FOZ,$O<b
U"F$:Ruo]Y],r\]ppr<iKgXKLWlcOVIidF,(j^cJ157EA2K\]4)KA.3x/_?16UMu_
U"ec)T#s,<xd4++mv?.sJ0X71FA8F;#51Uiau=?4$0aZi7V'jqDfcKa9^lU;'wu0P
U"=,el4WRgHrrrO.[o1;^#2/D8/qI._f+V+Tq/R:a9XJ-%xNay'AU[6$315j'9qE\
U"D(eO<?>/u+Go'JgIx7WyIKkY_p:V4)glDX4qw>:JX#ms;FO;2co0:^v=+nn+oc+
U"edh>/n6-74j?u_3I=S'M/0>*6Z;_7u)^_ztFPqPM(h5F/0RIWx'vMqQvSsk5Pht
U"FtIa8]_Ff,hZ<f\_?>^.5sH]Lh&,0p_r/P?pVTfKKI+0FgTeD38IL1YUDT00b:&
U"=j8Pj1Z:)gMZR+>+N,?%Q+9Z%,B)c5cYB6g4eP>^J'1=CWcNLga_/WK6,O<2+%p
U"5XZTZ=7gJVMGB[fJr\fcT\2]_;sS0O3]scOZVPAdAMzpXwR^7UEn.:iV)NDa3ws
U"tb9=]k7MT;;(i$'_zC6GnM#cv>MvtKF?LuWi[c1l)kE>uY$Yt$Q9Enr7*].%01-
U"XALo.'dK$51yp-wEiYWQ8F$c<ad2*CrA?-Y7;%]luY&fQFb9$5jVOX*-4$-=,Uu
U"G)NaPJn.v-2E#mSTlh9+:h\9A6XweKx5I(NL-owmia=<?]/#?gZVdu*VAXy4M(g
U"7gQog6,J5evZ*fY:C]rCTg35xGJyPsqmhR$[QYIvb&txuuV/u11H*ZT/r0EVhcU
U"<Mp#=Tv[q*M$DdC?vS><u4lMeXTk;(ZZ(P*JEFVimTy'pb]DVD+dfU<+4htHv_&
U"GB<P'9J0HVua^=)p.)XAf)MT4L$=:/RrD?kg:6qr#4q1pH[USwTedXoLKWak/dh
U",5V4TAIu:<#wtBd/m6P,TF9BQPxLqZsnW9O31mGKpvbjO35be$3:o&45[<SRdP(
U"jLwa).s1MNWnPDhN9twE;^8IL&/Z-P83VbZZ_6ZRIpTUOfJ]lOyp=?/>K+$auUF
U".D=^5T]1Z>.=gxSHC.:#Soh0;p&^IiA417$fYiXOgS^/_r#lWD<P6WA4nzQh,*o
U"Gca7gS%XT%.wG;V/5m4<I^t16-5NX9i)k1<M=xXj6NQdpKwX60*PxYjB*j5nXhn
U"P_DubVv.F%F(R+rB?wJG9SMvLpgSQ[eoz14a43v<Yc^MDe/W\eT^8p+W6l>fbhJ
U"mLUNi*VSzwIC,\/atoQCJYmra0CG/lBwWM7t.KHh(mMM'zPPx,C7f6vr^Q4]xfY
U"nbsVtTHtwic;>HFc+s2W6?MG<gCxd%up()%9%%%I-%J498Gc:=b-'-7%%KH%%%.
U"%%%%hu%zvgS[gfx._)*xT.m;MCGyq46Cxb6;4A#&UdyVX*jr[)#q01QE\%O43$-
U"<*V4oVQ]r8MHb5eeeH&P%tdP/B%NN$M:0NuJF:YNH1[f<j;sqvoOYuks(l3sHN+
U"M^-SEk4kjL*F&hK>'e4&0\Ee10=O15ZG^.>B3&i#n7XG<j=g+*bcX,e;=\/j$9]
U"7P7&\YGUs;ZU4&E#LP<33P\?8DEN9(.rG/nA>.8X'Ii_QtuEvTg]U,Y)>9Sp]7l
U"eI0iTiG-MgGe0E^X0l*qJ2;E8-KWtOKrGn4)A)1k2hv4eG-<dPz:GEa/Fk\Qq1*
U":<.]4uJL:o\a(-g9.i+(LiAFEadl.6jpRz\^Lb7.1A&-;3DaMY&'Ia^^,U#Tg1#
U"UPNqgBsTh41H'42<_aSp3PkJPP9/J)nI4.J'kUIU)'m]bXmqK8Yk8UMg_8G&a*$
U"qA4YDaUjA1+0\#U.*?2jJ=R\Q7cl0Q<1D\UciJzcX7frpW--tJrtJ<J>/Kxa>QR
U"n^eKV,Z%+0]]NUKN#IbB+\7drZbC8RMH(NNi[<GE05WF0/6]?qkAuniCY,wV][h
U"&+y[iO[,L'kUYDq-64_)<Nt+'lp]HAnQG8Y3u&R)k;m>;3Nh\\+k71eM9AgKKX+
U"gf*e$5GSv(Y-uQDtgP7x;'s,9^PgUnzO2T2u3Ko/dC)?$5LQ_)IQ64T7<oaR\Ja
U"3t76LlgHt<oqnYIP58$gejUW/egeJgOW,s<<\OnCbk660-D[Di[+&=UaHkt_;]0
U"+k*#-&W>ta%f#eb^$mF21kPGkH(J$IhRNImsQ9^$cjmo4/S<o73S%\IfG'oFqOF
U"-8Nw1j-i,g-,GFmY)61j&G$&1G&/v78:(68<8/8dd-q=SRXts2ZX98wd9FxdadP
U")$-9mj*VAd?<8T]gx-<X[=(cP^gr[URbSI9mQc_5[[/Y(BQ/HYh*sb-B3Q;ijBV
U"8lB->W?)NLX#AwJAcT>;>gFXU\2^/ADQ)Nl,qp;hl5gQ37qJ(jJj$=;p';6T4))
U"VjAoB_4WHeZs3*ICAqU7k/Vfl^6[24(Qu(df7<<E^CpAvfdV9*>(ypf+<Enbe.F
U"VIyS,odHJsnkXXkk%YtV*/A7L&pcI)%L#-IRh#x$;bP790S]W7M$DH.u&aNJ[\9
U"$NPrKNr=mxTp>p^7GN-m]u2c)4Nf-tXQ1U6=IVBC&&o9QY&p&'TxMSDhO$cz%&2
U"hp0S&N)w.A)Ph:Tf'&lPp.FP?OBI_94edOf-Yz6n$.nb&7l^YNC$>3kQ%[oBu%r
U"fDYJoL>6khPp=Kqu-t:DDH3V,1QB9P#2Xn%y5PdqzOg1FM-12>2tM^;ir<*s-Jq
U"?^yAOAD8.\lV^=5gOygO$9^=S5wXIpJdo+lSrTa4fMa2mQEI--E&zJO,lAH:FDx
U"9Y+N*ol,^K.E1MWaQ.YEA0[2?Py^g5TDm.DUBF-jL0t?R&?mbv[R-*-F:.-q454
U"*s5R-R8K.(%g%)3:<Lo?8Nmyeh52x$7ZoCj,6V)z*c0MyYGLc?=,*)GxEm]3ng;
U"+cI?<_3d:?I[D]:zrfn:wMaI\--m2C+=B'G,n#mCL^B3Y^fKp^:lD96mL4.N^2,
U"$_l5&^ohd^$W4FVUgI[lFhu^fR]6+;,Rr_n7u09;XVtwMK-A7+D]wv;)DlY&j$s
U"]oS:Mv>)\%P^goALIE2y7(1ZN9]f/4YJ4]K1HsUy+\+-^Sp7j>t]5^(d5a<pC#N
U":EUv2%<i%B1lBj$>Ha,YS>>O1Te%b?RLP?4=cSImCZZm4ZZ$NipOsRUl=OX]&(4
U"zjY=JNOBTLj=76m8MhAZAQTGhF]oZ+/]G&bClI<bWZEnczQhJ$&<_U-kG$YgEj&
U"BS2=SX=7A&&J^T1YlQ+]0M(bBScC7=\3/S(S3;[n;dSAb4&)DZA7cMSzZ_BAdVu
U"6ogk50Uzq-D#vFo&q[n;p'=TP[1lIL^1Ny'9^gBlnB=^X//vxV>?2bUXg<g2gh+
U"jlgYQGU\'2??aGb;#<CF?3o5e8%*o8M-,275xp2#5VyJ>g'/sF;+\A&fC9iP\ad
U"S%LpR8s;??aPAg&WN8Y)T'PZGFMDjN2oc(n0CkX;#\wc7VW0*q#w$-U;4Sqf.0Q
U"+s\uUVbM0SZ,PgR#l*FHMsuAk?;Y$rf]b[u5=+eH6H(b,\xW4t^%jR+*,Cv%tA_
U"5>:.1e8.g6b7bj\LmC'S(DD5khjB:eNvc]ZP:X%i:>jmWKPUZH2k:]i-t;X]v)H
U"E,1dmStpRO,e*v$G]K#/N3RqXgt(^/ERnX5&2i]aKR-tl;uXL,^t;27WU)[O]2y
U"IwB1]8br8TWLTZ%ekG#z'xE%F,D4$Dyn8t9deNFq^[gd>.%>dG[OE5bgR&R?jM=
U"g*X>*hg&#M7gdS]q927f/wJoH&L%My<BF^M8K>?GCZyfmD)%VAmbrtwhmul/4tK
U"$2O'(%VKgtNy-e)QH[#yyD_?JLrg[ocTr(]t&ke.c*AZ_zV;'O<n;'L??,DDB*[
U",DPC#nu_:DEZG>S*Bm8\dF1sKr1pf(iT5XHc1et;Vv8GiS)9q]XAdG?s<Z&VAuB
U"2n;3bK7hun]/<A]SJ/[I^s#xTxn[<2&f+GB/5oGjCquB$Bs)s$,Utbdz<JP-wUR
U"j.:d><VbI0bjuLTy45fr>qGphX_PH?D=pObR*n-,;H^rBG:bIMB*6Yv#kTHRl4.
U"oO0JmZ0<H*4*xIf]9A7EfBoxm/yDvH>]3=;#B,HIU4M<%kjx$AGp^s-L&up'(c$
U"rgiDld;_BSK->:G1KBbY)mA'VKDEr^K^:jJ7N3P:NtmXN2Vnf4\Bs-?Lx>[wp$6
U"sWZ<Tkpr-ag772mcL0s%dup&%'9%9%%%%-g%$38gGw_])\?)%+%J2%%%,%%%%%%
U"%%%&%E%%%%%%%%%h%uzSf%xrup%&'9%%9%%%I-%$3]8GwP8q#7%7%%C%%%%,%%%
U"%%%%%%%%%E%%%&d)%%%huzS%tgou%p&'9%%9%%#%-%:b48G=d+(4*#*%%g%8%%.
U"%%%%%%%%%&%%E%%(%G*%%%huz%ugSg%fxup%&'9%%9%%%I-%J498Gc:=b-'-7%%
U"KH%%%.%%%%%%%%%&%%E%%%%u0%%%huzv%gSgf%xup*%+%%%%%)%)+%Q%%%%J9%%
U"%%%
END SUB
CLOSE:IF S=106AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
