-----------------------------End-of-Table-----------------------------
'>>> Page 2 of KEYTABLE.TXT ends here. Last page.
-+- OLMS 2.53 UNREG
---
 * Origin: Most Wanted BBS +44 (0)1522 887627 & 887628 * (2:2503/509)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F3D00016 Date: 03/03/98
From: NIGEL TRAVES                                          Time: 11:58am
\/To: ALL                                                 (Read 3 times)
Subj: Joysticks

Greetings and felicitations,
Looking through the manual I was struck by just how complicated it is
to read the josticks in QB.  If you want to see just what is happening
with them, you need to call at least 4 routines to get the info that
you want.  So I thought that I would do something about it.  What
follows is what I came up with.  There is just one snag though.  I
don't actually have a game adapter, so I don't know if what follows
actually works, so I would definitely like some feed back on this
please.  Also it means that the normal disclaimers apply - in spades!
Anyway, hope this is of use.
Byeee, Nigel.
'>>> Page 1 of JOYSTICK.BI begins here. TYPE:BAS
REM ******************************************************
REM * Filespec  :  joystick.bas joystick.bi              *
REM * Date      :  March 3 1998                          *
REM * Time      :  12:25                                 *
REM * Revision  :  1.00B                                 *
REM * Update    :                                        *
REM ******************************************************
REM * Programmer:  Nigel Traves                          *
REM * Address   :  5 Breamer Road, Collingham, Newark,   *
REM *           :  Notts, U.K.                           *
REM * Post Code :  NG23 7PN                              *
REM ******************************************************
REM * Released to the Public Domain                      *
REM ******************************************************
REM ******************************************************************
REM * This module (its too small to call a library), when included   *
REM * in a program, checks for the presence of a game adaptor sets   *
REM * the variable GotAGameAdapter accordingly.  If no game adaptor  *
REM * is found, it is an error to call ReadJoysticks and FALSE will  *
REM * be returned, otherwise the eight remaining variables are       *
REM * updated and TRUE is returned.                                  *
REM *
REM * The 4 variables with Joystick in their names all contain the   *
REM * the joystick positions as they were when the function          *
REM * ReadJosticks was last called, while the rest contain TRUE or   *
REM * FALSE.  The variables with the word Button in their name       *
REM * contain TRUE if the corresponding joystick button was pressed  *
REM * at the time the function was called otherwise FALSE.  This is  *
REM * is offered as a simpler alternative to the STICK and STRIG     *
REM * routines that QB already has.                                  *
REM ******************************************************************
COMMON SHARED Joystick1X%, Joystick1Y%, Joystick2X%, Joystick2Y%
COMMON SHARED GotAGameAdapter%, Button1%, Button2%, Button3%, Button4%
DECLARE FUNCTION ReadJoysticks% ()
'>>> Page 1 of JOYSTICK.BI ends here. Last page.
-+- OLMS 2.53 UNREG
---
 * Origin: Most Wanted BBS +44 (0)1522 887627 & 887628 * (2:2503/509)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F3D00017 Date: 03/03/98
From: NIGEL TRAVES                                          Time: 11:58am
\/To: ALL                                                 (Read 3 times)
Subj: JOYSTICK.BAS 1/2

'>>> Page 1 of JOYSTICK.BAS begins here. TYPE:BAS
'$INCLUDE: 'QB.BI'
'$INCLUDE: 'JOYSTICK.BI'
DECLARE FUNCTION GetValuesFirst% ()
DECLARE SUB GetValues ()
CONST TRUE = -1
CONST FALSE = 0
GotAGameAdapter% = GetValuesFirst%
FUNCTION GetValuesFirst%
    DIM InReg AS RegType, OutReg AS RegType
    InReg.DX = 1
    InReg.AX = &H8400
    Interrupt &H15, InReg, OutReg
    IF ((OutReg.AX OR OutReg.BX) OR (OutReg.CX OR OutReg.DX)) = 0 THEN
        GetValuesFirst% = FALSE
    ELSE
        Joystick1X% = OutReg.AX
        Joystick1Y% = OutReg.BX
        Joystick2X% = OutReg.CX
        Joystick2Y% = OutReg.DX
        InReg.AX = &H8400
        InReg.DX = 0
        Interrupt &H15, InReg, OutReg
        OutReg.AX = OutReg.AX AND 255
        Switches% = OutReg.AX XOR 128
        IF Switches% <> 0 THEN
            Button1% = TRUE
        ELSE
            Button1% = FALSE
        END IF
        Switches% = OutReg.AX XOR 64
        IF Switches% <> 0 THEN
            Button2% = TRUE
        ELSE
            Button2% = FALSE
        END IF
        Switches% = OutReg.AX XOR 32
        IF Switches% <> 0 THEN
            Button3% = TRUE
        ELSE
            Button3% = FALSE
        END IF
        Switches% = OutReg.AX XOR 16
        IF Switches% <> 0 THEN
            Button4% = TRUE
        ELSE
            Button4% = FALSE
        END IF
        GetValuesFirst% = TRUE
    END IF
END FUNCTION
SUB GetValues
    DIM InReg AS RegType, OutReg AS RegType
    InReg.DX = 1
    InReg.AX = &H8400
    Interrupt &H15, InReg, OutReg
    Joystick1X% = OutReg.AX
    Joystick1Y% = OutReg.BX
    Joystick2X% = OutReg.CX
    Joystick2Y% = OutReg.DX
    InReg.AX = &H8400
    InReg.DX = 0
    Interrupt &H15, InReg, OutReg
    OutReg.AX = OutReg.AX AND 255
    Switches% = OutReg.AX XOR 128
    IF Switches% <> 0 THEN
        Button1% = TRUE
    ELSE
        Button1% = FALSE
    END IF
    Switches% = OutReg.AX XOR 64
    IF Switches% <> 0 THEN
        Button2% = TRUE
    ELSE
        Button2% = FALSE
    END IF
    Switches% = OutReg.AX XOR 32
    IF Switches% <> 0 THEN
        Button3% = TRUE
'>>> Page 1 of JOYSTICK.BAS ends here. Continued on next page.
-+- OLMS 2.53 UNREG
---
 * Origin: Most Wanted BBS +44 (0)1522 887627 & 887628 * (2:2503/509)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F3D00018 Date: 03/03/98
From: NIGEL TRAVES                                          Time: 11:58am
\/To: ALL                                                 (Read 3 times)
Subj: JOYSTICK.BAS 2/2

'>>> Page 2 of JOYSTICK.BAS begins here.
    ELSE
        Button3% = FALSE
    END IF
    Switches% = OutReg.AX XOR 16
    IF Switches% <> 0 THEN
        Button4% = TRUE
    ELSE
        Button4% = FALSE
    END IF
END SUB
FUNCTION ReadJoysticks%
    IF GotAGameAdapter% THEN
        GetValues
        ReadJoysticks% = TRUE
    ELSE
        ReadJoysticks% = FALSE
    END IF
END FUNCTION
'>>> Page 2 of JOYSTICK.BAS ends here. Last page.
-+- OLMS 2.53 UNREG
---
 * Origin: Most Wanted BBS +44 (0)1522 887627 & 887628 * (2:2503/509)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F3D00019 Date: 03/03/98
From: NIGEL TRAVES                                          Time: 11:58am
\/To: ALL                                                 (Read 3 times)
Subj: MEMORYOPS 1/4

'>>> Page 1 of MEMORYOP.ZIP begins here. TYPE:BINAA TLEN:14576
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.3
SUB V1:OPEN "O",1,"MEMORYOP.ZIP",4^6:Z&=14576:?STRING$(50,177);
U"%up()%9%'%.-%dvn+IxI,&gw.%%%=U%%%0%%%%rj#rtw(%tuSg4nf)v,>T]7hM.
U"/x'9c2'=9$U^pkk/T\<v9)C#v2iTS^#8,Ipkp)2Z-J[/I:(ip>DXr0FTv=6f(^R
U"3NRa6\=-L/84Z-Uv;Ck;h^<>JaXiMT$RuLtrdth#ARA?8P_>%BY>eYVGmCB\;UB
U"4YUZ:HP2ApAWF7phsfxAKE74OWBYFYnacv.'<55-(OCH8j>JHoC3<y:kcT#0'B2
U"qa<q2F064cf8?i_wn:Di&fJ%HbDPC^%Q]Uv(2,%ck&(]>Su(GP2:UX/.og.Dh*F
U"3,KoTM('VfIw-m[RH;PpeZ8uGrd4Sr1jAtVK33v\L\\DCnDQ.*fuhC-c(oC;Yb\
U"g&'IzD*(W\F=%.Kg]3GUQ,f)T2?Jb$$J48c4H(]ZU&e=E_*Dl0$[9\s$rLB]J>^
U"_D]e%C(pg$al3cciH[A%iqFi[KYq1,XCXU\k?)F>N*3-hh0EOR+6P/6x+3I,dB7
U"W'_F+Q0L-%^.Vpup85WYONA1<'(7'a8I);g[%.P\fc($yB2O;;GLz'd'0_Xag]A
U".t?fi-cE%1tQ$tuI;PMKkG%'k':2HUGB0(rOfQp:erQm.C,=W9WbW+ARiQSPqd[
U"5'#hU[a:m3$*_2?/g=vj%;iATk?GV%%hXP/ebu*%W#W$6AE)4k;Q^^^B_RPM9aq
U"C.Fhtfm4\\2f/EAUX7$Gn\[2hNH<v;=a]ZV89SSf>[Lj:NlLg[%+.p-_HGw[vwd
U"2bth%&^4t'5K)D1OuuY)JeN_DWE3+o#qTbbgl.273)\V:OzWY[:xPedU&84%O\j
U"?K/'EPTE%?xD$90s;Q)ZBIXcl3OQ1]/F,Ac;<hxE9BAn'YZdl?l3'KZCQ/XHHlM
U"cFYZY-tAY?Qde^Kz+f5N6:BK:.]8o'DMl_E>YKn7C9otks]-:bjPz8CjlB%8>_S
U"%puAK0#whOp3IKF0[Fyp3+JhNTsTd-PWU6UqHP04B)1GS:LBPX_$lxh\cEx+#tQ
U"QkmLF8YUFhN_s#fe-h1w+Rgc85_1PZ*;fABBdi6/YDXqH>#Z61)s7o3RuCq0m%J
U"^dvQD#)+k]d54?<<QV8dUOr#neEXp)5KK614q1I+_+/JejdrZ'J?Gi/u2\SHmdn
U"XA$(z,^5[x<L-_(mIzbG6Q-85U_U=lAH1\Wp=:4CL/_opsMt4_[kX1u0:0I(^(w
U"_D1%RUq8Bknw,1UdVV9LfAlIHygg5K;7fY8%UY_>GRZul^Leis<4l[?cDaV.z4n
U"VNDF-sDCFpZ'vZIOc8J8ux.p(pPjP[n8&-fc#DA9YDFNG$ww'1DqHRm5,)NDlU6
U"y28Yt,osmF_+Q_.Kidz%H,Z2%2Yat,o1Ps2A+aD6Kx>2hHPVj.Bmo40oU\l>UVu
U"h4po8+Z5PtjdQl8Q&hSk:'2Hm0+546%2]b]hSXY=*lw/Qo5GLV(17j]e<DA\k,z
U"lrVSHh4pEFXdaRJ08>*HDr0Q$+rr=?$l+r=;H$\7Bl2lB;oVAqToUq1?M%FNMWM
U"=F]ZEfC(hJ$wPcxlYhR\Fc==)(46i7\w3f6fhaN'q[HJwdqg&#;()m6p?aj3,xM
U"]5AT1L]rAy9$KC49ES(u+$e3_T(_v<1mhmLDG1/wSxx[Q.MDyy8q1:M/>fHo+c[
U"c-#M'9F;I>>W[p1j]U?S-g)hEB;?q]uP&KaNj:6QkDmS0IuTJ*$2tTEQwig(hHF
U"s,3G_P9o<4#T0/BZ8MettDe56jHU-PRw8vKg(Fi]5*a+K=E18bYBGvXfdas4hJh
U"QmjfrQ+ob'D.x)c0[W8i(Jml/uXN3I^Lgn'-]1y/vOkZYq%CzbXW'+p_jXC%cH3
U"^\q<U\Dzb[%Wc2HwE.RqJ62BZ)JP2EIj3.gRn]Wuh>x%edn9DN)^s&W*c8>xG&o
U"',yKYsfE^<U-P>n?HiESEVgMZS%IJynKg6VPOTZmrgSHB6d<R&pADe8'$$$$BXA
U"4,cfGf(lXRWHPfuS?ZNvTibK_$b-+HJ$Kn:KYklmytKlkI=[B1_vk>%ndYC,t\N
U"nB:MfJdKn&I%$$m$TgvH[WT=o]<4xs,s2*pBMrm=As6ft:IB0\[Ph<6drKQ#7HT
U"YpTnhvZdW8=?3hu*cudjZV.MdHh#dR&<b.HdW&?)Jux3p(=psr0Ne.Fbdr_Xq6A
U"6VbN;$p[iA(u;F,naoN0.I>Ge$v5DSLc]Kw94.<Kz>rG3GN&s.vw4.>6DdBYgu>
U"EsCTx-di?:bmY]xskh3ft&xw2^\qcSXV3^Ya;>2c1>[qYOL?'y[N->]&t6HJD2V
U"090E:NQ\gy&We495qi0X.FG$v(9Pd*'io6?>vVIJ4#]4Kjh6lx\oQ7>GeCujPFc
U"WGzeXDU.qq^L'DGv0iU$iZjaUoJ'%f.z-'642q0)k<wBoee,j<fKpSE,b4z/Tm%
U":GpmNo^euxc?ZX^LB?z6d[YIl9#oNl6G2mJ&9-x(qM?u#&;Pc1y_-rwCpmG1KO+
U"oy'K/9j;C&4_2(O$5QL>6;+EC(^gDt;Eo%wwf5q0?gkAQ6X):wuJLoY9sUSlpB(
U"CIoU_D#[nWY0._/&[.OKOEL%o4Tgg_)Im)GGrgS.Ck,lhTB9smg:&t3--5SI[l1
U"T&Lo*s'/]_&=<N2a%2L$Sytp>3YKkZ;[g#-lEe&W)+n5BocGEkmv$,VtcBixBmG
U"=4IrG'EOacivp;gh+_7gy+hHRhL3(X:vMXGM+kaHiOt8e4*n)+6K]NWVhPxd6sy
U"WIOt:iAxyS5Jb0JvtDP1UDxu_fCa0#AeTf0?eP8$]1J7)Sk3fTi1bwat0)YDzqH
U"ZDH1_IMykV#Dq9*s.d;4<$4QlbEM#em(xZ+M]X'YoRsRNl%tr0P)j[2tF-2DG6M
U"C[](z>Wk?f?fC?V5_^n,tAb'[,%dpjt6Wk8hUshv0No1oR'/OB5u=5EhX5p;5]Q
U"lVY=W.^qoEt$s6DR2,STMv%>CU&1/\1&5dE]8#K?%v#_Tht?'g64g8+j2)#\:p7
U"HCqW:p-Q[j>dT]:F;bi=s/a*YU(KdV3P'WPA:XD>oa.pu_CD.)N&';,ai$58nzJ
U"ZHgWmN6qZNu%p()9%%'%-X%+.)CI[Xe-al/%%%pA%%%1%%%%rjr.tw(t%uSqnOg
U"f(:8?#N:jcP)&A%4d1#,7CX&&i.J.uh1L[9/&6*OERpnYI(fLe1a/+,LI/0kHsx
U"X7L1\kTU1S\]p=0.HCl3TmtbcI7_4U.F+)U'hd*_j1IeiV?7cIkiGS)pb6h'$.e
U"n*_vlNLnEbS6ZpU46lhpl#,LqiN09wO74U'PWui=<Z;uG%N,+\t[*TUa%Kppu7N
U"P_[lTGtn4N/t4Nmtt$'&<$$XQ+%E5tI3L4l^Si._VV;<Z.hxD,:E\pV$LAUH[AM
U"M]bKOWutvJ>pu9oa:mTTw%gU;/?(6T&^2-M***xv4]Q$gwhc.oT,bM%EWQ(rw1)
U"1wcg6:X$]g6eM+o'#NC,/78)9\JgV'HL_hoMaY&ot3.k?fLeH'uo/7%R2nh#KZ1
U"OO$?;DM%Uy#ws6&\4nG;KZ$?s96UY+GvK=X7I.<DDUkmUb,(\H)VXj-?ru&2N7Q
U"Yr2B8')sS629[fJf&RJ3W)I-,4WKQfyic<F]/.9<;/(L1M]%4e[>Q1U//brQ_7E
U"Xdxse+yKrNf^vMlSZ7Xcu%YLFINcP%RDtbGsDj7i^k'(ePw?0Bs#x9mEgi'(BAH
U"hm3hkI/K]ygscc0>_K%Z#-$+y*CCrhP8vYJv7faR;3Ebp1H#$\88(q-IYMn3<TK
U"LnlW;*hxsrHNE9?qw5\^Jw3pVn[wGoPTl9(d%3-Nt/OFCryN*Ij0]8v.GWZ;r0T
U"ZY=I5q12Mi9xQ#B/:n$%HTGV#/J2Fmo]yjqYuFHe#=:/Vgd>qi'Q$h'lZXhW6J6
U"l+=D\qHZ*s?/<tKj4iu1b(;oqdx-jd?0$qf8E;lSxLO0:.XkGVP?1y:2W0U;\J&
U"1%dCD(Sgf:F[?w%\%q;'B7#%pO5BumvGi_Y(+/'S1^9y/$/c^C2(QPXn$G(rX\[
U"4A.)]=tA6#YMiQ=ZQ1[w$;KGNb$4)$4u3[aB;fY3<:.9&'G$CJ?Uj$xIN9d;7sy
U"1pV+V]g()Y+UbID0%qo.O<ngcZa4<_i)7ZU56/?<#AyXF+ZZ40*psJ>Ge9(rSGo
U"Kc'OlPkW3RFg+iLmh/&k[&\2h4l+)%(<f>B*j4)<XVFI/e5emuh-LzVcYF95J&Q
U"GqG'i#,*)sMJ+31e/??[fi)[>mgJE*yMS6cU%^E\$/4\q59da_fRC/?w:bPPIJn
U"FJjsfSgG>;(lRn^x7>92bTyDkVr]BNKUhHt12SsFy8,6C)LcG)o2pZoF-'2D\vR
U"\2,Bv0tL7Y'^6w.qSb#rK/0mM[c]<SFcVTXbhmC&(Z5*(JWt&*&A2u3u>FfbKlC
U"c9OndwS2.b5[ZZP&4#Rm)1FIruD[9W4Y-.)$W9SJE[^[[vrn:LamqPUdb1[MAm.
U"Q#b$;)>E)7:_(mq+[.LjHMPAZ1w6,A,<olG**o9[1/E;u(wC4kBbCoYbsPD)fd4
U"VH>V3<nkvHVCa(*mKPoU2O0L,EHO?^u>c+,pQ%KO&mL[EkfAk[[XVt*JB,<e2WJ
'>>> Page 1 of MEMORYOP.ZIP ends here. Continued on next page.
-+- OLMS 2.53 UNREG
---
 * Origin: Most Wanted BBS +44 (0)1522 887627 & 887628 * (2:2503/509)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F3D00020 Date: 03/03/98
From: NIGEL TRAVES                                          Time: 11:58am
\/To: ALL                                                 (Read 3 times)
Subj: MEMORYOPS 2/4

'>>> Page 2 of MEMORYOP.ZIP begins here.
U"m-=P?R)M+oY6QXDHxy/jL28DceEshI/u=68>vB+j:5S&YZe%S[o'ySER8Qpd,SE
U"),d5yJT+0h(1/68J&ir8Y04K93OrKkiLpB:m2b2=-UV/E(XGQevqUz9_]l,fikT
U"i=Xu_dbU7&D$J3i?rk0?ig%YP*ZKsB2E//l+5>sclK-qPY**RJU7C%u=T#3-^&1
U"Xo\kobBUXYpOP&<[s5(7S?YZV-Pk<&941W,8G1YC8I\PTjB5yu5OfLO,YH-%9HM
U"LembK?eFUZuTE.H6'+-CfA.S*:S>7B(%lO;.L<-+8pJzh<)Gl'\zOq^cxT%Wv:d
U"wxxS2&$iIsy<*5^('T]5cb97ENP%-22W<njd5_p=%TD,5Vdt1H6Gy#4bn,(s6qv
U"A811-wJlBiT1H0TwENIgEV/MA=9,GtCgGJC1=1%b5p)Qo9n6fT>Jp^KsK$cSE%\
U"f$o$I-GJ:fSo/3:HI+BG/Pkp&Slf,$,5s0R1ki:HMx#F%XB-:)qK=:o;UmoMM:_
U"1]]y;KQ0%[cH(8bAuqbN<.-X$+0f.B<&F%qIl$-e(jrSvYl<aDssc6#]xH??RIW
U")40Q(T^^'Meq^tn6xRl^^r$%Ag_iq,-KSA/j.XhqH6s^^=P+mm/mV?Oi&RX8x>6
U"&q.)F:c]M-u-d:=[frWUeg)-fA;Wnkh2'j1$0%3I'^>0/A(T5,yeX5acF63J4wb
U"1-NiLgBQl-D'I<X.S%7;*n65g*+Gu'xlZn$,160H&qp=[N#1kvfhZqf>c2x,<KJ
U"]UwI8bRzotWP^0216&NO2,N-a4Bbovd=PpD+YuYf+xLtnHehZ_Qm#[bsNsP*i.n
U"Ku^3HtmBxNqNauHnhnw>ub]_u.Jjbf2#W4Mu=EQsJ0v;XMFiH3EYi6AfoMU4,<Q
U"*Xut$Fr:0O.fjF1Av4C3Xk2gp5ri4mKujQNp#Sb/DH5WnR>)1DEgtDju)0Hmw7-
U"e_FG?NjrFPYZune)uoJL]?9GQkE#Ep$'\E;(z#>6fH7BVvVPVhKNuP-8kTjlP6n
U"HraAbI3m0LgFFip)q(,mh+0'#MB1+d&E:tHe0$#+xTl0'Oa4R2J[X>.#ZZ'ui[^
U"PRjoYzed%9wl%Z[3eW#03LGX6>0[Fzk-*Ig6EmM9n't;Y:kZg94z).p]bn>65+A
U"XrpCl64LL$q=a0fZdfe$-4K>^62.zXtgW,HSJ)j]Df3*?<lTT7<qSO71&.Bpq2l
U"gwM#K-nT8BQ5.Ay(sC][PiK%_LseQ+rn:t:vxE?Wb(Bn)rUi;0jkIv:dxmH+-wK
U"K,(D3KK8wZdx9+qE4Npu+C4s4ph%veh_A6qe]6/Ft?o09[ANVX6>X-Iz_l.43eD
U"]RXfP2[/?<+)z0gg_AyyjkeudY/+2:Rl]-vt6]&hso2\,(bJp32.\R>lP%],lQ4
U"KhL)AI\/33JJ_MFEHno[iN99TiM#+mM3s7ym^i:N\B9J;Equ\XM8cXD.wF]qWfA
U"?fpYw^Uvs(gQVRhjeO]M$E0)40npgz6XM:k(t03D9?o.qYzLO(dxK5Da$?;:UiT
U"ckK1AN09NZ*jAdCDeQ9Q=M7mNj;Y5+-T86Xp?YQNGel<T5P+55lV0)4fb5mUMVt
U"6HvG%KY51ONpy<J(xEh*wLHr*47I.D,:<xo5inQjn^-mNdVx?IBig-_gQlY0$a(
U"TYTK[3<vo*[hAhH/fmwm%Hp,,HT+ssdCU\4b3nB6s0O4BbjS's%$?+9vT^[q^J-
U"9igX>TG,A^tT;PVD/BJu.^(;ywZOhO\019q[DfS'59I'/:)vTHmW4q;5g%=)\M6
U"CNh^P\6y[Gl$*+5Jsa3(<:F91qxwN+Y:d9(bWhQ6<MVhVE6VU.QHWQoRiWGF'6c
U"O#HlbVK]X]3(PSx.Cc&450[woA'_Uy(3Motj];Oo_+_AVP'7$<ogWLo^?49f>^j
U"c>)Z]iX-OHLOE'S]o*n=C=WcOHg\6nw4qcEXZ+#iiTrp:=Ws&9)<XWiHz:jZQVq
U".M$fPwgD_JJE8Y[.;7HDks.v>3jXgORF$hh/ow<9pUd:xx4+E'1CSPow#&DkN%R
U"smfDwR3':4LiJd])&;aVQ%DG'Yx-;6/#D<vXi4%up()%9%'%m-%+.8)I&q7OHR&
U".%%S,%%%1%%%%rj#rtw(%tuSq.xyTy:f>,Ua16lCGNATwpopf0*Vo2*\\ZzA+k0
U"#?4yS4$r-vvs0(.P]FIRwxO7/nn+B#TP7jxOYabg<sayeug[-a__)7Qy1gkrRj-
U"8:qQ35/R2kRHU:L+nN2ZW*L*E3Ol)UUaxJ*#=fn;-%NX\L+VK(w2yCa#?RmDX#v
U"*G/oG5#fO+r^8tt/^l)senX?)ulk#/=ehmTke%Y&p/(<4SKc1_j(=-C/_0195T2
U"hl8F7Sj;0qbU4.m5RvGl_y-McL<hiNH,](XY.bJGe1fM*(/F>umBZs[^b5Rnpji
U"szYS.I*HXcg(k\LOOwlAo_B2uN2B1f?D.8b_at_Jf+E3plVnsvocmPWq)Avu9bD
U"BO7OU3tRztWlHlqR(U9pvc7Ep-/Z*=*1ZJ(O<AYe;L.PFez:712\UN(_G8Ddg73
U"9k#AQERxkN<)HeNA1#FEU1nQ^Qj4>>1=GHq<B6[3'QPAB?2j9\5>2+YEp2*H.(T
U"p$SbiNRcR(6XzVnj2(3_QB;:_zbWf_qE9)zSAayl3HZUqzq(W^X+[q=C:[2(e0$
U"ay[.<0*c=yA-t>()VcY'A<E5Gb)[q/B'a$:kvM1*d/ZOQbwr4KbNu%p()9%%'%-
U"%%[zl.I/&b-Yc%%(%o)%%%0%%%%xmn%kyxg%SgfxE.bfzAQe9T9p(l,k)V\YhRQ
U"+-%QUBnd?1uWMbePi^S9e?0Xtrsk9_JH^NAXau6X6$/?kf]$M5)5ch9^qT4%o8F
U"G;aq&XU%qJ'DN;1/0$lo?y6QL<-+4fn0rXD7Es4SR[FGc4sz3G-vT\.vlBK:jB2
U"]RsONYavVxQA<Pi9O'X:Ul%9)9e0hQ3dwc4\X7_fV6Waukramm*bhn,POn>Kchv
U"S$9,d[UOZH4,0\fQxZPK9ui?&h,&94<ajMv[Zb)WD(BG4-dIl-J6)l6d>T]MoyL
U"2v=q(t3$8MW,YJ3&A(up%()9%%'%-%-H-tIX=6xM&q%%%&.&%%%/%%%%knqq%xg
U"SgIfx<^.f0Qe:5Th0TtDW4_poEh>DIUj*:%mR93k46pMPKhAvBq,cB21tq567pq
U"1HE;',ivj=u(3c&h+Pi00pgFaV&NEUx;5F)=<\/i-?L0S^vInr_=SUbaQ.%+^\q
U"zis'u2:+X-FXA9TksMWvxLh?dy0r%J)dM8xt+VN)^>/PDWXP]m0j-2Wn,;FBQX(
U"/:^Vo2$\FXch+>YGR<%up()%9%'%m-%g-mtI0e5Nj5&7%%5)%%%.%%%%ht(u(gS
U"[gfx.^x,t;.U9LL0Zd+m#EhY#44ssK#(oI(:K0Nm6[D_3Rn=PCr^0xWVe=d%^c[
U"?p<+#gb6$UJoUl3aJmX'ZlU%UqhYHY9/?w[rUN_gS;uN2%uqMY\-d)M%DU9:>/A
U"fQ=NJY,h/e8,IFbUfYs1\v5h_HSvE;c^-V7+:bg-MAN&VYY,fa&rq?GDq3+_o^I
U"IFznq6DbOgj;?]5*^5o%/?>Vc((;Y-VNkAc%HTignn_N1P7+F(8>yKJ-R.kK,hN
U"zx#ejmGDgJ68SPTtAt8b2G&SE&g<+4sK(3Ft7VADULYD]T9qMHY49RlK+gh62k\
U"73GGeWi;6,JPeG&:lh))SH+1dN9)s;+8xJwE.5CtGh%0>nAJL-5.dop$/HwFf6N
U"1CH.%B\gym^V%wx^;uT<rQrmdvr]x$4=p4XJ+u0NXv9s*1'0PUyp>LX&Tlv(6Fm
U"4t6pOLS;K%&up(%)9%'[%-%lA0tI$7oJmD#&%%<%'%%1%%%%u%jjpu%tpjS#fxr
U"te_f9<[U5jpC+.Ez/N%$(RIPRD/pIuKOK&pC,0%nOD1*faU8It]jA4cKCrw;)cE
U"uLtNvD$4Pj[Hb1R4h0O]Vl*>LI]u%\2^,_>?=SL;&2dDZr])B_kvZ)kcC_hPsE3
U"rZ8CL0)SWsE(kj0CrRge>xU[vlg)FuD7%/c_CcoR0NhWV9)t/tibkkj7]'/1:Ex
U"=)LEkD:89*xfV?CewNpwJTtiPu,=&CF*q_dAC$N*w6'XEp8I9QoJ)eazmuhA\pH
U"Z-D;FDE8(CctdkN+-lRUI^EXHgI9GPxTP%&NOttiv*Hu'=Q6WYPbbY6D1/D3$\t
U"U-/m2sdj.(VW9zNMoEqQQe%ll*)nFY[NPB:[0h])Q'7%up%()9%%'%-%(A0mI^'
U"=xF%2&%%&5'%%%.%%%%knqq%xSfx^rdvD,9<U5950m(a^f,14Sfxr4s/kuMRlgw
U"pFq0S'Wux^U/aLaVKL^V,imfhp<PIEFW4XicE[IZbM9x1)Q(JJ[M2lML/AxY/&(
U"9(+ZOoD:MhQ(>LFvlpD=(hfhMp=.tzX7IwQzLTffq;ky;qESqRVyDu'hudz&(9q
U"(_9CAo&K/0CFYbeGe\\576'kY-0=)<bAUd-$t_lZ6Q-_]bUo+pzg=ES82scE-ZJ
U"%$PdxgShy6L^WP]FcrBWjq<;X;P.]feJjC5AV_'[=eJAGWsMlgYW_c:C>*gSqqm
U";;x6A=<87C?ub8Sfiws-;wgeH-Pq$TM\itQHuEYvl^KiSjaJ'a(up%()9%%'%-%
U"(l1tIs3;$X'I%%%&U&%%%0%%%&&fny&%gqS#fxrle_f9<[U5jpC',EzSN%PPDCb
U"[zM$,wZe+qbM0R?H/_U'O+Aijt.i2#;3f&5[mHXi+8J&x#GJ&_tL8X$Mr.<+K]n
U"^0tIbh_1H0:\U6UA[dJi/UtQW>\dI%r4N[<dV&9Lwst:ir[aTEgzto)ipXV$F1_
U"[IvDVpQkGoq\Lk?#8P,]LgNyrKLjEZv/%NuVXMV^Eb[f.g;BI7w^r^Me[1f_rj:
U"GFT<w0T*?6Qh>h8iCc?x3>;mZpw?V0Hubn<d#H)WDQw*%%du%p()9%%'%-%%Oil
U"mIvs(-2N%%+%.&%%%.%%%%utw%yxSfIxr\]<F9<U:5Sh']6est+%/(bc.nn*8JU
U"qloQVBN$*C5M;e$]CQsm,&Lz?oV.Q0Q>lFefk/ubF.fdOWZhq\W&*se';8<Aaj,
U"i:NbA*ow+]ixL$L)-]>E(cua:y)At_wsudj9:8)&9iZhPD,ZHdP*=m1-kD>pPp0
U"KLgM\ON\\IlY=K5.Ji[vSrpv+AB;dDte3$(b7T-l=$nMVXq</a$t&(0KBV>c5$*
U";mFicm5;bu:2x?[vNaZ#0pN?r)N$P'l_35JkO?lIjt],?q&u%p()9%%'%-%%7jl
'>>> Page 2 of MEMORYOP.ZIP ends here. Continued on next page.
-+- OLMS 2.53 UNREG
---
 * Origin: Most Wanted BBS +44 (0)1522 887627 & 887628 * (2:2503/509)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F3D00021 Date: 03/03/98
From: NIGEL TRAVES                                          Time: 11:58am
\/To: ALL                                                 (Read 3 times)
Subj: MEMORYOPS 3/4

'>>> Page 3 of MEMORYOP.ZIP begins here.
U"II^0Y':%&%(%B(%%%/%%%%xmn%kyxS[fxr&b_Jo<dU9UhL(HP,/l,w:K5wFdFj>
U"fzYtRa=r<aS;JiXaCZ77b90&j?<BVF5Assk^\q.YPn9Dk=q)s?(lS<p-\;Rb-Z0
U"/3+z/fCsvb/Jp(a&<:b\:Y3If9L)^1M(U*YL6>j4=g=D0gNpI7svb(Vs)N<a8:o
U"38ID3aYC4*wLo.'dASDWZkJAgYpQP&LF3qSQtq.c*5GHnGn/2/?Jn4c3oTz+_6<
U"n$ggn6_[g.U1XPc8b]TXhthJw3b&sabt2To8J6qr]8U<l^c?KkB5mQ667NS%BmB
U"95gkd8_^c^Tw8uw.^:n#Ktmhv/=Txt%g4$J,Z><u%p()9%%'%-1%62m=I$\2,>m
U"%%(%%'%%%-%%%%htu&(Sfx4r.^v):RU9bTX(r((L_dr9(QLfOc8K)Poz?ZD3#%%
U"xKyHXn3ZM-v[YB$e8T6p)ArGHF2^:Je<>0#IWaO)xMeP)*t,yty,+,L+n\Ll#rw
U"JGz?F<UM(4R5x/0>r[#ru#i.J02u9HfsKd_SL+W^uJxA4]5]k7D5pIyg#6.;tfQ
U"#89F3Q-?1&$OLU&--9b&uZXfj%tkZVoSmtsGHjM/t(\2[a1DSv.l5Odoc[08o:(
U"V.1/kO:rz[]DoZj:qLU]4$u(\,\)pbRZ$RFY.l%JA6sC*qn#LNo6tEh;jgXV?*)
U"xqiE>XVjrB1j%2up(%)9%'#%-%O$-)IF4z'0#%&%%_%*%%.%%%%q%tlnh%SfxrZ
U"&KJ9&RU9+HYte-;o&$&m_04SWOz=]avIi%>42.Z8RedNPXf-NEb+\,0P.95a'8^
U"s9^IlmT7Q<OW&11RPR/>7]p3s2gZGC)XVN4#.?[W$MlfOM(j->QdBJBx#ebi_C*
U"?dJMKoSaaE?gh4EOT^Wgv9B,6/c2hLIMF]dtW*>O=[;F7//(1):vB^qPb6WCCZz
U"Cc6oagZ^eZ,4JtRsJ$x?VGQD/iC&.#ZU#5]V((-%SBz$xr')%$'+m?wkhoUCE-^
U"x)iaCIM^Tu?Y4yvo/\<LyN'KhhO;Uk6=Hri*%>\uSTE7=i:.(()RH?68lZudoz^
U"FKJ?K6O,MHn#+SWE=t>T/btfuVV#e5jZ6o(Kb4u%p()9%%'%-7%'-tCIe:1-YQ%
U"%%%%&%%%1%%%%ujj%putp%jStgUo:Y2KY.?Don3ip5ENB1<o4guM///_%.NRo3C
U"&?Q7SsFr'CnRw%u-pRsOGEH7xUOXbiRF;ZYikBGq8/YFsO35>o)HY.K+U1U5BZc
U"\8G157U:jF''6FQcGwS'7kXQ>#a9>g&g>drN\0/\DF#1#A3&6V%e711jQ%[u]L]
U"=Qk+URuRh(36o*U)vh6Ym9uH99A[&WNUadA*A'2,:&&i47&4_sJ,:0R<G*?X0y%
U">=>=sg4X)1BX2xNd56^ab>'^qAC4*2xDQiKQ=5E1&,)'%%up(%)9%'%%-%('-tI
U"-h2_s_%%%%,%&%%.%%%%k%nqqx%Stgok:Y5YtClmj4.OB1WoLUp?999EI8w)cYc
U"(Y'M+kijMcb)sJo5e)LykhnVv/%6FY,h_6:Ztq)qV/gHTZ35;ogHY.K+U1U5BZc
U"D8Q1+>/bq5*PW5;D6N<&8p>e1+C?1qEE[4uojU)?04]U]3+OWh%E.++^;%kwA8A
U"1;aSgfwnp&V,n'=Qw[XjtYM2//3m,>^dKc0C*[-iEC+ZADMXEF9ouI:;Yi)W#[(
U"'B+kp+UIgg\P;Zslc13oV]3v]QScu3l8Da;J3eNF319Vfj&oEentz9$[;1ZJ,e6
U"f%%%up%()9%%'%-%+(-tI#g>7-'8%%%'R%%%%0%%%&&fny&%gqS#tgo:<Y4Y3,F
U"m1.YBkJBj1oDaLu///&_.NROoC&?[QSsF+rCnR%wu-pmROGE]HxUO:XiRFuEYiK
U"4bB.*>(\T3h5owH#YK+Ud15BZ;c8;1[au*j+F'6F=QGwSc'rXQ%>a)=Dgg>hbvj
U"U)H?4]UO]+OW%hE.+.+;%k*w8A18;Sgf$wp&V$,'=Q'wXjtNY2//)3V?+2Cn2,:
U"0R<G*?X0i%==>=VQEV1;Mr;vBs#mc$u]_&0P*Ci%.%up%()9%%'%-%+)-tI*txs
U";'N%%%'i%%%%.%%%%utwy%xStgUo:Y59Y1i4R/.OBa1obStp999#E8w)qcc(YM'
U"+kiMjcb)Dso5eJ)ykhhnv/%86Y,hY_:Zt;eZ4/=gTO3h5ogH#YK+Ud15BZ2c8Q1
U"q+/bq45PW51;6N<]PTXQ.>a3>_gg>8Or\0/2\F#1)#3&6&Ve71R1Q%[-uL]=WQ+
U"UR]uh(3b6*U)Nv6Ymu9D99?A_b<9gD]';C)$)dcEnV%dY)Ig%cbeM/0?'K=]#P%
U"G(H(Uh7pjbogU/T0v*vDgoA]n=\/p%ec0hSH<IL%J%up%()9%%'%-%6_-)I$mOk
U"a%J&%%&z&%%%.%%%%qtln%hStg:o,IV+p<e9j,iNKD:;#p5\,ceH>F3E;A$?K9O
U"eFnPINq78tw.7S\I3FU15)Q()Dwf0u'M'94^rZAS_$91'TiSu#txg1C^Fb:68Dc
U"BcC9dTs_n3s%,eKt8T+[r3lL/NN#3HZ,\1,'tqS:+<hb.u^(WTuoU1fKIpS%:0G
U"Y]1On=(^.h?&$cd;LDi[ywYy^hu3)5Pt>?(:YAaRz0g/X]p'a'En.S#sE/wzb[+
U"[u,'rZfXbfH%k1bq,R6B'Z294wYtTDTg>p+fRcU/kUB>-A>qVWM?0bJgZxhs,_t
U"2HIKHrS5;1]oFZ;W=*YTH.MdB\Y^$YOSUdm&4xwmuO=eM_n#9\*g9^T:uH$=l7.
U"Mv,1FyHQM,T.J'j,up%()9%%'%-%+*-tIVUfX>%)&%%%n&%%%/%%%%xmnk%yxSt
END SUB
SUB V2
U"dgo,H96o<um=+Ypqsv.?JQ[ZZ0<fk$fQ#7i0]lWk/bxN5%N9'/fNgq4227e9LIw
U"bI:<=[IRS3WOVrYpof$=VKu^\\rYMY67Re4VD)*SRX0U=t1E9a]^0th5K:nCKD.
U"iV2$(vkA4pt(4._Il?aeK?e,(W#\s7P76gC(]yJDF(=gFP$b0of.3_YBdZ9I+SV
U"%+F(j(BNC\T.nzHwg(O%BAKvl\p$PXVEC=M9adSf7p%_R9a<4&p,;*11JAhaK&>
U"P0Ae&YP(J+;qfYJCSOY-SxqpaeZ52cqBt-?0S-uIF70OX4m<uOWWp:4.aInKq<\
U"mYax:9[m?c't*up%()9%%'%-%++-tIMxzq%'P%%%%,&%%%-%%%#htu(%Stgok:Y
U"1YG?o4W$MB1oFzbu/2//_.[NRoC)&?QSasFrC%nRwu%-pRO?GEHxFUOXioRF9Y]
U"iWbRRh*':&J,Xu*A6?8#(h+W<2?CY#&+s_M;KW:di-Z,i8Z:i(1E+4#P+K5W?jL
U"GU='\,#AhA(Fe=F_%)((07PHxY%3+[<opExI5Og(QU1;xh8qLiURUU+QLqA$4e/
U"]SYd_'lrhwRT:n06\=C*E1[d11pVn>'R]Q;;^efjAx\lao2tEl8nKJkaJ3'eNSq
U"HB8maD8,eV&f%%u%p()9%%'%-=%j-t1IRI0*g\(%+%c*%%%0%%%%xmn%kyxg%St
U"goVdbT:[AzA#u88V2ceeZ6TpfAU+s&<M?&VmjLj556YaI64P5+<K6)QZ?A;nmI(
U"h_i#1F#&-4/.cj?ODxuL/LB8OuKyLZlkYZ1mpe5.':9>EH>KXRPGJHa]$$8tBGp
U"ujc$FG#q+N>>?AjbPB88GE<B_OukQBBrjxjPlG^VH2^lKxr=V%5LZME1ueEbBMK
U"0NN\5s(WjV&923IN9s#&cb7HNNPn1(y8BE0yj*[[pk^=-xN2uP\W,I,at7Pjw7\
U"p$>-%YigjqTZ#UJ%lkbj3qdz:/mAUPD4ryy/).JrrA19jc2.OUI;bTL%2x3$jzP
U"T0<f83S6EF9nS;\Y%:l9bZ99U*xn&z5jjCf[J6D%OiMkMZc:;vtgJ,'a#0svwfd
U"*NX[[gB(KF7vCxA[i4H=9ACI*l).^2hM5:dlts=Ka;h1K%I;dHb*uHG/4oJFH.r
U"pPLPE2[l50[SP9AP(7wfGNIQ3_F/K4*%N9.ie)qYD;^iT5BP20aS-9&K^gn_v4_
U"w7LS_kqd/)/eE76ZT*p5?[EC?BCj\MfUL<L9fgt6p%MZBGCl,mRiLgdzDKFXB=-
U")<9uq?V'1+*7>d2g_OJ9a2Y?(D<+m+&MF\BH8#w(DcOj6I:a2x^J2n&=pH.:%u6
U"^MfF1aWGo\DDnZJ##CmJ47(I);)S\0Bo4EUQgoa$h%LYkdHb6nKT>;&DtN+\V-6
U"uS%fQ$I?%AJ^yO>S7.9_^H+gQ-LoZ1vA.P>g]^yn&3lUSRMZvGTf%4H;L^)U:hQ
U"]\N-]EY3Lx\lef=+n^)Rn)5eDv+m_31$s_=ftZFIGgk7yG^cn.-;z[oJVrLDp9D
U"'fSu\US96RL\XCH?c'fQF?+R#]g_lQx,Y-<_;M9GuJBOC_r#E%Ar3JD-CvkjjE8
U"W;\,Aut>ixQ[X7fXhS7%U[sf3B$jvFlN.u1SD?Hm7UcZYEgZ8GhthU_b%PptaVl
U"dw,&w,2u$:5,Vk^qb>Lekmui8=uRtu<(DMZhFb$9YlcpK_xt&VuX_o]g=FT/[Kk
U"J6mXm&[,gtrxB3fqt%*&^r^m_KHH9-);38$O88;/*60O]H[cn'[<Ka$HSFmW,c9
U"-=K5-fa]Jrqs9Nj<B;sfg*tZUQ0jXSPo;PB(qf9Jv-0eor[avrUt[AgrfAPLYfv
U"=7c%tup(%)9%'[%-%k'-tIPKE3nE%'%%x%(%%/%%%%k%nqqx%gStggoT_F&:9p9
U"l>HlgQ'gmhMK7[X%#BDRA=i1hf%is8^KUqpUqu\g&W7YkA\kHXF+Vr/__7+EdoI
U"[IH3md?'Zk+)qX=WcIb\=+7-/:rU)d+y?T6.]TpyV*?830?DH3p2<^A]AtDea>A
U"i*EgMn,)+k-5K4LU#6M-o3]DnB0g[;\*l0eBpT[<J$'Zg8'DU[ouA2Q-?O6Lh=,
U"N9uAIBYF?&Gl7_cfq?+gc/ERaV]klH_ZrG]C1zU7_WIlS[86tSW=k\L6485o7?C
U"[]]j1eA29[?wDDrXi8(wy#o]nGK2*/rJfo0Q:o=HL+)iUxc>qBr.CEb9SlsTbdN
U"d8B&hh2>UG%o,=/JLrlxoI<Zg1'(Tc1-FYF_vaGUg9_&b>Jc3yNS$(o\*HrWjzJ
'>>> Page 3 of MEMORYOP.ZIP ends here. Continued on next page.
-+- OLMS 2.53 UNREG
---
 * Origin: Most Wanted BBS +44 (0)1522 887627 & 887628 * (2:2503/509)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F3D00022 Date: 03/03/98
From: NIGEL TRAVES                                          Time: 11:58am
\/To: ALL                                                 (Read 3 times)
Subj: MEMORYOPS 4/4

'>>> Page 4 of MEMORYOP.ZIP begins here.
U"rJalb9mJus3F28c$sN>=\M^.&%oEaCMDDL[3>L3qn6c1;z'P#?D=M?b6Hk]$FS(
U"^G)G^XrOS)^%D9NDEp)Smufq0.aF*Cd2(HUIzU5$QQoM_YZEYB[g_A;pO8SoG#6
U"x9/,I>h;ylgYuOb<^?lgLce]#Rm1S-o/P^eDrO;)KMg&jg5_ta#(y#Rcd'_UH09
U"p/x6+W\UgNt>h7sItJRjIXcK/FZmZ/4*t-P>H45O&P_&JI+Uq4(\]+kEeF71M&Q
U"kCRKY[,]Dxp(i;s^oe<PA&1NH(N[<8K5EBMQ'&0zH8'DcnW_o\Ox%R%<)-Ss2]Y
U"/]0IWbN\uG#hT\aa-6Sh*(O\^Dy.#j($SS5x>Km%3kbxMaRT#Ui)X%,krMwiA+s
U"d%[8TQ)&ubk\N=1AMg&+Rx+u%p()9%%'%-=%l-t[Ip_+-%l(%(%p*%%%.%%%%ht
U"u&(gSt.goTx),7Azs9wgGZHGE=6w39w_s4/TeYjqJ12QYUR$$TU$en$bZI>Si'=
U"r?qjWF5,#ZEVtkHACpUf.=e_Lgco'**Jcuq/7aEaZT91f;$w*T'I)^O7XWC$bep
U"eW(BGj\$mlrVB72AFZ+(^TeObl:-5W\.t'AoHqOegjJy'-7.YXKrc\^iay=Hhlj
U"h&uOMMY>?P31n+md>qK9q68D61_;s*Jto('J-AMkT5d1FlLp/reDcKCKl;u#E9d
U"XkI%pw1G%r]rbkDh[[uLV>]%pq$k^/Z*eA/S0HRSfPca]*0)3J_B2%.TUjVOj?z
U"tGT9jbOnC<g\AWnBcL>AVWg'2G_qs)\U*<fK=;>RT]AX6kdahO=&$dgIMB3bq.4
U"%TH%\N_SFG?8]DqbekLLNTw\ZL4R+OIR5YPN7Z:CP%V3=p&EN8UzL^'XU=)2neC
U"(vs't=jBZ5mJikU\d&afplKG$bL:<vnwTr+-(qVd-w)Bh)UO5^r;B;XT&)1sDuR
U"t5Aw:KakZN8u0\oWH2GA<6CCGg)A=/)gAg2K%mz:xtlqw9hG%4DlnPZ7LK6KCIi
U"Ps]3UKF[zmo)\&9v5LnSruOgPvc5g(\Bk.,n1hEjTZFYapY/\S9[=Z)>_4^+?S%
U"o^f;h:E^A-8;Gp64>-M[$9v3Yb8:.W6.pAA,=fHL6Vi1M9PEf_yX;e3)Pl0fu$H
U"y8D6ncq_G4PyBhKyyTE$e4<*IH$68VlE:mfWa#gsz^nAddVa)1-Tv>NC6%Kk3<y
U"Q4B.Ei+*].Z6JDiTj#TMq2:0\r12vb83DI9aStE:.Up;[Vcoam;2<g:P<s\JK4j
U"a2WVD+F)Qq$.hU(1ANt'1liT8F:$T>j6U'LH*9KHpEZAHq>nPs.4QJZlr'iIOs]
U";7<U]PED>3D^Xxr*fMjn)z&PVe6_v?N3&smwzM2Nck,*5%fH?DgxT%D6v3L#B/Z
U"WJ*qwj:ywbu)w[:/\dBV#BiK898j..\ic>M\kEI$<p\&[Fre%LSOcURZ-0Z-yAi
U"L9pn82b4cZeT:$P=Kx\SCD*nbf0jFxwUtTjx-YF>Jt,t9p:d<.3hzfs?e[kl/s(
U"A)7)ESaZUFB\E03UttL<R&C*1:h;%/L^W*JSx>U4hF/hI4dT+68jglln]dG?D_i
U"d?.,kl(Q:wCd1>TDw13'v=K^0%+q/c$bu27G96TA$%k;ZBU//ET&tC.]Y)%kYZb
U"KH_4U;Eo\tQP<Gi3-32^h'FPFcg&WM39(Rcnp/if&#T;#SCNT+a3vM0ZL&+92Ck
U"MmFnpYnt-A['8up&%'9%9%%'%-C%dv+XIxI&'gw.%%%=U%%%0%%%%%%%%%&%E%%
U"%%%%%%%r%jrtw&(tuS%gnup%&'9%%9%'%m-%+./)I[X>eal/%%%pA%%%1%%%%%%
U"%%%%%%E%%%&J.%%%rjrt(w(tu%Sqng%up&'%9%9%%'%-%6+.)I'&qOH'R&%%&S,
U"%%%1%%%%%%%%%&%E%.%%g9%%%rj#rtw(%tuSq%xyup%&'9%%9%'%%-%[z#lI/&=
U"bYc%.%%o)%%%0%%%%%%%%%&%%E%%%&j;%%%xmnk%yxgS%gfxu%p&'9%%9%'[%-%
U"H'-tI=Q6xMq#%%%.%&%%/%%%%%%%%%&%%E%%+%'<%%%knq%qxgS%gfxu%p&'9%%
U"9%'[%-%g]-tI0WeNj5[&%%5%)%%.%%%%%%%%%&%%E%%(%G=%%%htu&(gSg%fxup
U"%&'9%%9%'%R-%l0.tI$o+JmD&.%%<'%%%1%%%%%%%%%&%%E%%%%*?%%%ujjp%ut
U"pj%Sfxr%up&'%9%9%%'%-%(A0mI^'=xF%2&%%&5'%%%.%%%%%%%%%&%E%%%%s#%
U"%%kn%qqxS%fxru%p&'9%%9%'%%-%l&1tI3u;$XI#%%%U%&%%0%%%%%%%%%&%%E%
U"%(%QA%(%&fn(y%gq%Sfxr%up&'%9%9%%'%-%%OilIsvs(2'N%%%'.&%%%.%%%%%
U"%%%%&%E%.%%JB%%%ut%wyxS%fxru%p&'9%%9%'%%-%7%jlI^;0Y:%#&%%B%(%%/
U"%%%%%%%%%&%%E%%(%FC%%%xmn%kyxS%fxru%p&'9%%9%'#%-%6\2mI$f\2>m#%%
U"%%%'%%-%%%%%%%%%&%%E%%(%nD%%%htu&(Sfx%rup&%'9%9%%'%-U%O-)aIFz'&
U"0#&%%%_*%%%.%%%%%%%%%&%E[%%%2%E%%q%tlnh%Sfxr%up&'%9%9%%'%-%+'-t
U"Iee:1Y'Q%%%%%&%%%1%%%%%%%%%&%E%7%%tF%%%uj%jput%pjSt%goup%&'9%%9
U"%'%[-%(-#tI-2;_s_%%%%,&%%%.%%%%%%%%%&%%E%%%'vG%%%knqq%xStg%oup&
U"%'9%9%%'%-7%(-t%Ig>7,-8%%+%R%%%%0%%%%%%%%%&%E%%%%/#I%%&#fny%%gq
U"St%goup%&'9%%9%'%[-%)-RtItx7s;N%7%%i%%%%.%%%%%%%%%&%%E%%%'kI%%%
U"utwy%xStg%oup&%'9%9%%'%-X%_-)4ImOk'aJ&%(%z&%%%.%%%%%%%%%&%E[%%%
U"g%J%%q%tlnh%Stgo%up&'%9%9%%'%-%+*-tIVUfX>%)&%%%n&%%%/%%%%%%%%%&
U"%E%%%%_L%%%xm%nkyx%Stgo%up&'%9%9%%'%-%++-tIMxzq%'P%%%%,&%%%-%%%
U"%%%%%%&%E%.%%5M%%%ht(u(St%goup%&'9%%9%'%m-%j-ItIRI40g\(7%%c*%%%
U"0%%%%%%%%%%%%E%%%&2N%%%xmnk%yxgS%tgou%p&'9%%9%'[%-%k'-tIPKE3nE%
U"'%%x%(%%/%%%%%%%%%%%%E%%%%>R%%%knq%qxgS%tgou%p&'9%%9%'[%-%l'-tI
U"ps_+%l#(%%p%*%%.%%%%%%%%%%%%E%%+%0T%%%htu&(gSt%goup%*+%%%%%<%%<
U"%.*7%%JX%%%%%
END SUB
V2
CLOSE:IF S=152AND 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
'>>> Page 4 of MEMORYOP.ZIP ends here. Last page. TCHK:152
-+- OLMS 2.53 UNREG
---
 * Origin: Most Wanted BBS +44 (0)1522 887627 & 887628 * (2:2503/509)