Stephan Ferraro (saf@club-internet.fr) WINDOWS IN SVGA ------------------------------------------------------------------------------ 'Load/Run under PowerBASIC to extract WINDOWS.ZIP 'Requires SVGAPBxx (where xx = current version of Zephyr's SVGA Lib) DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"WINDOWS.ZIP",4^6:Z&=1796:?STRING$(50,177); U"%up()%9%%%#-%QV.DH3X(Ub]'%%%i+%%%0%.%%&n#sit&%xSns+h.zr)^jU596H U"jD(kzmrb9(9,bS)mm+unhPLj*8*,x6jI/G8:.b]9MI>.X*Bt'AP&jA95WYJl?5p U"q(&Y+EkyC*C#r#;yG&kmy.>,V$h%47K03o3O>5YS#BP(mzoB519NHAZqs>)P%2Y U"h0d9KHKFIAl8A9hi._?*n$leW]qZ&9I0VBwREH0Hdg)mv5TY+KY&h$fnO(aC,2v U"V\+WYJO(0j+-ak#gB#5gkq85QoT^T?ls;QkB[;3/mN1 U"&l94%.Dew7mWNXIegq#(fM;E+TYugbaZP:\0oZ#U-N^Z0&*.[cU8O7IU7%S.eLBS9nDkyI<4=:k.5P9q6)2Mz4c&VzwI2H)yg< U"]jaykbJ%BSvk>N'Pf:;/92sQqmm8/IzA:/_^&wd/Os+IET,Y/*,hF=Ho>:/60ZW U"-&uI=_JI,hiH$miFuW'?u17>WY;h=i,%/4xyaeC*;R*A;)Dp?5m,mr-TqWUPBb, U"];#>DC&auMo)92,Hd*IYG5omIUXG$dEcPNvis/'7[pVk,Lj#iL-R_r5%tKtDK[) U"efG&aB%,j*VlvtOEMQ[Q[))r U"U^5KdbHw<[Y0M$XH7YvNK7wCqUI2O/S7r]sk5WToH.]'&Y-xw1Y$NPSikORhj?g U"GSFKkEEK+0#iZJC'*%]N^TZXsN7N&:fXi#_j<]cuK2I%2'g8m<&/85_^LTOXf0%Yv(,,P)$hIs5#HS6qjc<$%)f9(#%>Rd/0DWVr=7b,HGPE'TLbU< U"_nnJ%]'TGp93N7MZDz:3#D[u748)h-e:0/[[nm)(r2biIeVS$1T8f?(.]g8)PXR U")L\,w^0Lh-hQFXz[=f?p1?CmAe&?]p.n3:T$Dq U"=\;Y.q$h<3]x1,b74Z=UUB-VFKL\A3VW5_j#vpH(C.ZFAd0r-gSHx\h#HXg?hI*8bES$aa=$:&.up(%)9%%#%-%O\PDH1Qd:y[#%%%G%(%%0%% U"%%q%tltg%zySiRfy.a7r/Aaf3R[E9i U"p1rIV^^%857dDp+(GB+RfZ#$62 U"]tPLxOoSwm8T^xoke':bULi_v[BG24AJYLHi$D/b*9.up%&'9%%9%%%#-%QV.DH U"3X(Ub]'%%%i+%%%0%%%%%%%%%&%%E%%%%%%%%&&nsi(t&xS%nshu%p&'9%%9%%% U"%-%PAWDHD5$Eh8['%%$%(%%0%%%%%%%%%&%%E%%(%0'%(%&ns.it&x%Sgfx%up& U"'%9%9%%%%-%)OPDHZ1d:y&[%%%&G(%%%0%%%%%%%%%&%E%.%%l)%%%qt%ltgz%y U"Sif%yup&%'9%9%%%%-.%TLDOH$fB*<^%%(%4)%%%0%%%%%%%%%&%E%%%%w#*%%' U"%gzyy%tsSi%fyup%*+%%%%%)%7)%]%%%%/+%%%%% END SUB CLOSE:IF S=127AND 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