'=========================================================================== ' Subject: CALL INTERRUPT FOR QBASIC Date: 09-11-98 (10:52) ' Author: Kerry S. Goodin Code: QBasic ' Origin: medvrsys@venus.net Packet: INTERRPT.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"INTERQ.ZIP",4^6:Z&=4233:?STRING$(50,177); U"%up()%9%'%R-%pKm6JCH?KCZ-%%%WG%%%0%%%%vr%tzxj%WSgfFxF?:ax\]kTtz U"VNQa[5fk3GbD8RlQ^K'OOPEM3g?9;RU\KR;X>dA$:BO02.N7wpkP#s+M9&FWFPl U"03*vpwzNWrv^holrd.oEZE>vk[/+;R%-%a2Gm_Jfi=K38[H?8';NE3W)C.Y%83f U")o8.u9=Xa%*5OEMr4'G8)cgs'*Di;G+-S)l[*$'YK:LVNwvbM^8 U"9dARqQBO#ie=r.p\snIv_^S%F1HSI;n&k4nI>NR:0kTF6PtQQ(^$f1KRiUuPp'f1r?L=l/IAFKrL&JKY8BL5+=LgaD:j<, U"#uj)04X[-xjCe+I)$KeRW1+3xr>1<=&+ezWBP'YRmY(4q^o+NEbs,f'uv&WJ&wc U";E,0E&l[JA&,->:pPJ_+,&h->2[0$C8R,AOfi U"xLtLG[DbQP)OU]Aa\S.Jw%?<6mY(m0iYjEWB5>CN/s/W_I^qbo:q$:Q]^PT$5hqj[Z(Haok4T__i8ZvEPj*4x22$kb*'Zql=nBxx*6 U"[9Q('cBhkpj'^=m^EMlG+bwcyd.5FCI.th[6W?Wclk,cl7]7qs:U.]t*HWP+J:Z U"w?33q+7Rt7CgE[BCv(6N6FFS-wcC]M^x5+ApF7Jw^\r%iJ755V09\?7+xpXm;xc U"QH&\R7x[-+3#X=PKs^K+_8>t)6?ngDPI/<(05nO+l\#2=zJ/4F^CR/cTOg6)Vw.H0.z,4fgRV)a\4mya2f U"#(BjSVOSf\0_SJqNV.)0IR1SNvQ/\h:/,5Tver10G]UCU6ir+(,#]e;\\VRLFjS U"%9>'q'mF7iUaU(Cd>L:fV%gS&<;DxC:]1IME);/==(X#=u?rBEkxG.W.]UcF+EP U"d^XvcD^A24SOQ]Hbj#T[==2NVpJsL#ovC1Uo5XF.0oKW\hZ(>t5aBcxi=.G?#p( U"%'1.*^87V%1]f7#L7vmCaKfre;[Z:6l:7yGXfg7>r2o>IL.fv7SHDzsm,lOVZL> U"2bS:_5DSk75QPo'8p\#]?]QP.4hvu?nRaVOMcoZPr1K+tu(+z:J+.=6q<6SKmBj U"NRs&aomDj^1gATooU5)cpWO>:Bm&+OXNK7<\2tOu51alD,\B.q3/u6gdd-ZV\XTo+MRcHBYf'c__n0w U"T8#HUgH4_lG:$hr,JUQ=Fb(b.T)bvO2dFwbkiStYAOMSn=o^U$/]ZvL-;YVsgH. U"luK;nS-raCsO^6]3iN U"ps:DM#?KsFFv(Teo>DS;Lz(m'4'fE:DC&Hj&b*V+h*ml7EpOBgZ>o#kQ&'k$Q?V U"l%l>z4p^Xn>uq]9cT/4&-9HOARWATaW(IuXk1oV]9coQw8M)X2rl=*%[hoVa/l, U"J$ZVqmtWtjbNODID3BoS(d]j581IR8gCdESysI;,>\HX]39_b]t#__P/nNJ2FFR U"i?ex?StY;7,0M,;[iCzQMS#DZ(+RR8)WkOK>$5t5+ii1di<)28pk=lV2#vxr[() U"sZ[u3[Gj(rvK>\5:Z8W*4^_x<[p8;\7jq;=P-?-6hgq( U"+sW=aUu&P)&37>%l]b7is3/qYw$5%X%I\q6%[H;TLTkC&Z^?swF=BAq6+1;Xl\TY5kNxg=^p[kUEL5pj%sYn7T++R(/%bmJioG-ZPg+ U".-oW?O&LNzu,GTv:0hu>c'=ukXn5g[D56B^kF+_NA:?>pSw4%X:q2qiu'RXXh6KNXNS8?cCd#]WXzgSe\FA?7vqOPmK\Fbrtt U"bJ9J+P)4^ZP8=m'y.L;2%9LRn2Y>UIa/tG?Wl?1%/S.o(bjIM U"W=Xw0m=cI<)-?rkfrihaYbl95v*u9.9,u9Hu)f(1v^lU-$::xj4jGmZyDSTZ9da U"%0%i+I9P%nK.i,on=^i(=a^?jHH\6fWZ3o2(ib[gt,viWlD(&YY7U0DHYXHdRp5 U"2;qBC\x2VSp^saUcAbUZka%m\g.;&H:H&wL&w&#:p-l09L>f9z$H09< U"**?kBTOdk1$pNqc\P(,c^N#G*meIv-1o)P-R,*GV,*S%4l0ihMWYJdW+l#_>uF<(i5_%6o(P U"#;&#UhlO8 U"J326uM&vAh9Lx,T$wl)>dpYNpnbyfAdfE$=%^->4H>[cf^p2%ZD& U"*,nG9k,1d*grdD.07_78#xki86m)K&pt=_xCxG/?Mbo3( U"cpy8iQv*h%e0>PT-gf-Jmb]=8L/kkTvFCdgf*Qq]4cV8iYrS:f('Y<,Y'?E))ev U"4vDei,nSW,B9WRH[TuF5+V5XJ.TyJ.8JftWJLNNI37d?ta8F05ttbFGH#+9693<\Rt2GGQa7[qnC7>>< U"EZ_S01S7NJuBLr6cnbZUi9?180'[JZTf(%^0L:[;LuHsvjg%w-'uUauGtE;ZFJv U"liHme=#Z>nTV>yg[%lJN4'OqaFgTJ?)5tzDsq6f*%hd01rHu33POE8RK:Tcs(j= U"osf)A_7>\FcdLu[r)E1NV3,cWm(,R%s1)8<.$aXe848Je4T2B6mVbzIpXpNoe4S U"%ZRa)%8Z:[kJB1,R(uLGo$_/u)UbeuuPba4bNatb7N0Cs\jx(j*sI\7?>m_NmN$ U"4CABT[#C'm<$R(1aaZ<+2uL>.si;>UUpJZ6kk&]T[/p8I6nxsQ>j.41v'.TYv=^ U"$sSrg>S678XE>vkiXz&xKo*e-t#%]S*LFl>eQm6LN U"j+$.8d:m1^kF'\1]?d<4+I7s[YlWd4_xUX/HX8[F?R:emTfnF6=a5>^dt^B/c8xblon9auKQ2soFY[7ts U"OXsEUMzY1h\F'+&kXjj)hweLG(*z$H/*8jaWWwZ;+fKhEd//qV^Er&fS:nI>&h_ U"BfU&q,= U"DpBDQ#lXW]b2Lq()tY[OZhO5SeD[?E$=KQU8C3IoroonA4u3ULKcm1R(h5b4mLh U"_wGn8(nM%u%p&'9%%9%'[%-%p\K6JCuHKCZ%-%%W%G%%0%%%%%%%%%&%%E%%%%% U"%%%%vrt%zxjW%Sgfx%up&'%9%9%%'%-%&lxPJpfq60&^*%%'24%%%1%%%%%%%%% U"&%E%%%%/.%%%pj&(kqf%lWSg%fxup%&'9%%9%'%%-%]zRPJNe954T%%%%v&%%%0 U"%%%%%%%%%&%%E%%%'<3%%%knqj&.niS.in)u%p*+%%%%%([%(%%[%%%#%4%%%%% END SUB CLOSE:IF S=22AND 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