'=========================================================================== ' Subject: FLOAD (AN ALTERNATIVE TO BLOAD) Date: 12-20-98 (21:00) ' Author: M/K Productions Code: QB, QBasic, PDS ' Origin: The QBasic Source Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FLOAD.ZIP",4^6:Z&=2197:?STRING$(50,177); U"%up()%9%'%7-%QNm7F0O48Np+7%%23%%%.%%%%kq%tfiS[gfx&2%<>GR^7w]$=N U"MF7K0UZ[>mgoQ^g%Q*IhfheOnbV2ZC.qG29o2bB/$96wszOF\In57s_bu:i78aP U"McxvrC,&M?Ym28ZGk U":+h)pMk,j+/J,5&,BZ*Mk\dS.b1hG_l]M)Z=wSW#Y]4vZ2Q4#oF)T:U;hink\4m U"haO^Q+RoJ==n]H\UXYL53ImJ3&F=b+,w9I+]E0wyI.Cd,jl[s,JlO7j#PqbxJl) U"Zb_9i3?WfY&;\&^u:K6E$/6Za^KEkEW37M4*^:3'^_bbGV;mk U"Mf5>G?au-oUn?<.T7)^Yb0;/5)a%g8Ua[Jq?]ifUx-+^aLkQ#SOP.+I>SZE(Py_ U"QIRm_MkGp+3Lmjs?M23NbCU?de&)RRcS%yc:M)+[uKVZ5J.>sT]RiFONgQrJsO) U".jq[^ZCRyRogM:cL2hc51]CSY^7OI%62#v=0:9OQp1Bb5x$g^RXP&K:0v5N-)0D[c'JWYN+6yd_MK$e4c=_aioYod&F-Z7):H; U"&'vAT;+ssDHBa0TURwTvYUCsl,E;x\o5j9/Y8\d>4(2qUYT_>QK2a0xbeoyA0*B U"S;y0L,8[H;[^-V)&)x5lnnk?Vt:RFbU3bS9J2LbW\6-r(geY[C7TOtjlsHDl%(o U"m+(f^.w;UFPh2A^_T)9?qp:%EGe>KnuVjC3QK)c)_)$ZY8&mW?AjbxgAhxth*Xi U"aHVF'$0P=>eA]=JL:)t%o2-G%JCU;03?1rumJ34jAK?YLY3n[J)W*vS.p'Dr(\l U"KZn[gN2x.k'CqXKaG:0n(Up]e#/D/nfW%5F9b/3XKPk3-8;i1;Aw86WCoA3=MUw U"=(4Zg;^Ma6e*i0f).TuP4+6-HeHZZT?%>B7vaYow$DpKF[jEg&q&'(Kkk3AJ U"r,?0'hHqgJAl%p2$_+1=NO;t3zMmT_ofV^5dE5#5[85kjdbvNoqW'%s2]s+5[C1p+r=TjL>n U"\1#\X.ujHLU[Zx#4D'xPoq68t4F*+VxhDoYB)+vWOX44-q\)u(dq\?(jksS9DRQ>'6agrH5vVo^qu4X+fZML]m7Fr-.kBm U"0.Wc08Nq9N=>p\c&cXuPVHUXc/?#gXIXtJS?;ogGdSD[zmZB:rdsj?6ejK_k??io*ADB140__n1WbWr?6nK5y?8>Y U"D/IO/Y24lAl?$#cq_Vuqh[8=.e^ZutZTsv_oN]gdQ'9fofk\fhe_0wNp&yeTLya U"LBic59WfVJA28lM\98fk-U<^sgqS>^[p\76C9:$fo\IaQM\]J5++(7':^&\?9J45gQNSs9ZrMO2f9k3%#J3,ew U"_je$FQ\65Nuoh\/YkDf/9FWBZVNG3*\P_?OUJZ-R04:[z?w:\:,B:x^Nwfn$%Tu U"p&%'9%9%%'%-+%QN7=F0O8*Np+%+%23%%%.%%%%%%%%%&%E%%%%%%%%%k%qtfi% U"Sgfx%up&'%9%9%%'%-%'AN7F^2gBW%G&%%'S.%%%.%%%%%%%%%%%E%7%%A+%%%k U"q%tfiS%xuwu%p*+%%%%%'#%'%=%%%%6%-%%%%% END SUB CLOSE:IF S=50AND 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