---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F1D00004 Date: 01/08/98
From: KURT KUZBA                                            Time: 08:52am
\/To: NIGEL TRAVES                                        (Read 4 times)
Subj: Sprite11.PI

'>>> Page 1 of SPRITE13.OBJ begins here. TYPE:BINAA TLEN:2366
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1
SUB V1:OPEN "O",1,"SPRITE13.OBJ",4^6:Z&=2366:?STRING$(50,177);
U"&O1%/MB?A8)C0VXCS2%W#+%%p.&h%%&ed%%%)hti%j)if%yf*h%tsxy%(gxx%-k
U"fw&.ify%f.II(x(rg%tqx+%ijgx&(r,I.Iy(u%jx+i#jgy(.u%ev%%2xu%wnyf.
U"VX.y(j'y*&.ify%f*ht%sxy)&.gxx%+ilw%tzu2%xuwn%yfVX&.ify%f3xu%wny
U"f.VX.h%tsxy%1xuw%nyfV(X.gx.x%g,.%m<*%0'&%&g,%m%%%1(.&%g,%%m%%%2
U")&%&g,%m%%%3*.&%g,%%E%%%,-&%&g,%E%%%./.&%W#%%%&E%EEEE%EEEE%EEEE
U"%EEEE%EEEE%EEE%&i-%49x'x(Bx)%k%0%5&%6'7(%8)i&(%W*%C%lU;(%W.%(%n
U"qq%nghj(%[I%L..<DM;C.8)=C%/M.<D;MC.;>)=6%/%xuwn%yjgq%ny%%&o)&&#
U"%%zZ<ePe'a%#kw.%%Zk%-^k+/M%Zk+-xs-4H9C%&Zk+&skwdg0d%Zk++xs+4H9C
U"%&Zk-&skwdgSZkwZW^,D_UzZeP]e)%#+ku%%9#kw%(%Zk/)Z%1^/%-K%&N%^kC+
U"E%ZIk/Z%11R=/1&R-1R%H9DR%HKC(%Zk+)Z%-&Fku6%ZwdU_0d%Zk1+Z%-)R=+&
U")R--%4H9D%4HKC%AZk/Z&%1&kfu6%w6dUZkiuZ%wkZ^,DUzZePBe%%%b&#kM7%%
U"#kKO%o\k-Y[JAZk-]0:KXl('Zk+V\-Y[<J]:K/X,ZkiYZ%[SXkuXY%w=-0uKZ,n
U"Xkq=G-u%o&S%&%.&KZl^'Xks<=-uKAZl)XXko=-0uKZl^+XkmB1-%ZOsuZ%Tw(A
U"XOsUX%lWxEmWxEoi%%%%%GR=)ZOsUZ%TW(AXOsQX%$SZkqR(koX4kkZk]s(kmSX
U"kiZOkshXOk]X%-_b%%h_RM_$xL(b.%%N%qRM]x8F(b%g%RM_.%%k*F%EX%7&%+\
U"%%&%B%%-%8%%9%V%%-%L#%7%.#%*%E#%)%I#%4%3#%L%,#%S%l#%)%p#%3%Z#%I
U"%A%&.%%&o:%&/O&M(Bb%%Kg%PM]0A%A('b%%%'+,%&+&8%SI%%ov.%&$&'1e&X]
U"KwuxYE_xE*]i%%d%%R=^-XkeVX%gZOkqhXOkaX%-cb%%h_RMc$xL(b.%%N%qRMa
U"x8F(b%g%RMc^%M(b.%%K%;PMae^&A(b.%%ZkieZ%gVZ-MZasO(QSZkaZb%c(QG]
U":KYj,=-Q^KW,=G-UKO.d%C%<=-UK/Y,Xk$KZkeVZ%gZ5-MZsTO(QZOkaZ%Tc(Q]
U"$:ZkK(KW,%\k*%E(3%'%'+8%&(%U&/+%=&.+%Q&/%%1'L.%%oM%%&Y'oxkUx4kQ
U"RkKa&R%0c%ZkEkh^%$cL(b5;xN%R^kaBj(b1x+%+<%7&&Z&7v%N&8,%E&85%:&8
U"#%0&\X%%+%,%&%%t'-%(%oG%C&''RFk]&RG%_%Z4kih^5%_L(ZbuwN[%^k]nB(b
U"k9w%+<#%&&^F&#%RF&L%IF&U%>F&$%4+&r%%&[1%.%xuwn%yjuz#y%%oA]%&EL'
U".-Z<^,C)d%zZe,Pe%%;%&#k]Y%%#+k[%%9#kQ%a%#kSL%o\-WY[JZdk-]:(KXl'
U"AZk+\k-Y[JG]:KX^,ZkYVZ%[XOkuX%lw=-uCKZ,XXkq=-0uKZl^'Xks<=-uKAZl
U")XXko=-0uKZl^+XkmB1-%ZOsuZ%Tw(AXOsUX%$WZkq7(ko%'+,%&(%<'-.%%oW%
U"%&%(SXkkZ+ks(k$mXkiSZkshSXk]X>%_b%L%_RM6_xL(Bb%%Ng%RM]$xF(b[%%%
U"+%,%&&&R'O%1%oX%#&S(RGM_%M+(b%%JK%PMH]A%A+(b%%'1e&X]KwuxYE_xE*]
U"i%%d%%R=^-XkeVX%gZOkqhXOkaX%-cb%%h_RMc$xL(b.%%N%qRMaxJE%RM0c%N%
U"JK%PMBae&Bj%=-UCKY,X4kOZkieZ%gVZ-QZasS(QSZkaZb%c(Q5]:Zk0OKW,(%k
U"*%0EH%'+%+D%%&%I(%.%](./%E(.+%S(.,%Z(.L%Q(.U%K(#[%%o[J%&,a(xkU8
U"Rka&;R%c%SZkkhU^%cLj(bqx&N%^k$aB(bbgx%+%0%&&&B(c%&8(x%+%+,%7&%D
U"(#-%%o[G%&M^(Rk]g&R%_^%Zkieh^%_8L(bW*xN%^4k]B(9bMx%'+<%&#&f($#%
U"Z(l#%Q(u[%F(*[%<(<.%%[1%%.xu%wnyj%ljy%1%oW%F&k(.V-Z^,'C)%zkZePe
U"I%%%&9#kY%a%#k[7%%#k]Q%%#FkS%oV\-Y[*JZk-G]:KX.l'Zkg+\-Yk[J]:CKX
U",ZOkYZ%$[XkuqX%w=G-uKZ^,Xkq<=-uKAZl'XXks=-0uKZl^)Xko<=-uKAZl+X=
U"km1-^%Zsu;Z%w($AXsU;X%W%'+,%&+%b(-.%%o].%&E)8Zkq(4koXk$kZksR(km
U"X4kiZk3shXki]X%_Bb%%_qRM_x8L(b%C%N%RYM]xF+(b%%+%+,%7&&x(#M%%oAZ
U"%&yg)RM_^%M(b.%%K%qPM]A^%A(b7%%1e7&XKwjuxE_WxE]i%%%%%GR=-XOkeX%
U"$gZkq_hXkaqX%cbI%%_RYMcxKC%N%RYMaxEg%RMcC%N%Kg%PMa.e&B%SZkeZP%g
U"Z-$QZsS4(QZkiaZ%cj(Q]:^KY,=G-UKWa,xkU8Rka&;R%c%(%k*%0EH%'+%+H%.
U"&%o)7.%-)7/%h)7+%v)%,%)*7F%t)7O%n)7U%f)#]%%o%?%&V^*Zkkeh^%cSL(b
U"z*xN%^4kaB(<bpx%'+,%&+&^)o7%%+,%%&%c%*-%%&oG%&.l*RkK]&R%0_%ZkEi
U"h^%$_L(b4$xN%R^k]Ba(bVx+%+<%7&&6)8W%*)/c%w)/l%l)/w%b)B3%%o#1%&4
U"L*.-Z<^,C).%%_k%%%&.M.<D;MC.8=&C%%%L/.<DM;C.;2>=6g%%%/x%uwny%jg
U"qn+y3%%%.xuw%nyju.zyM'%%.xu%wnyj[ljys[(%%+%,%&%&+*-%(%Y'%%U%
END SUB
CLOSE:IF S=102AND 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 1 of SPRITE13.OBJ ends here. Last page. TCHK:102
> ]<urt   (NFX)
> Bilbo ergo sum.  I am, but only by force of Hobbit..........
---
 * Origin: *YOPS ]I[* 3.1 GIG * RA/FD/FE RADist * Milwaukee, WI (1:154/750)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F1D00005 Date: 01/08/98
From: KURT KUZBA                                            Time: 08:52am
\/To: NIGEL TRAVES                                        (Read 4 times)
Subj: Spritest.bas

'_|_|_|   SPRITEST.BAS   PUBLIC DOMAIN
'_|_|_|   Requires SPRITE13.OBJ to work.
DECLARE SUB SpriteDef (S$, N%)
DECLARE SUB SpriteBlit (BYVAL S AS INTEGER, BYVAL O AS INTEGER)
DECLARE SUB SpriteGet (BYVAL S AS INTEGER, BYVAL O AS INTEGER)
DECLARE SUB SpritePut (BYVAL S AS INTEGER, BYVAL O AS INTEGER)
TYPE SpriteData
   y AS INTEGER
   x AS INTEGER
   wide AS INTEGER
   high AS INTEGER
   S AS STRING * 160
   B AS STRING * 160
END TYPE
DIM sprite AS SpriteData
DIM sprites(4) AS STRING * 160
sprite.wide = 16
sprite.high = 10
sprite.x = 200
sprite.y = -16
WhichSprite = 0
FOR T% = 0 TO 3: SpriteDef sprites(T%), T%: NEXT
SCREEN 13
DEF SEG = &HA000
FOR T& = 0 TO 63999: POKE T&, ((T& \ 416) AND 31) + 210: NEXT
sprite.S = STRING$(160, 0)
Sx% = 0: Sy% = 0
SpriteBlit VARSEG(sprite), VARPTR(sprite)
DO
   sprite.y = Sy%
   sprite.x = Sx% \ 2
   sprite.S = sprites(WhichSprite \ 5)
   SpriteBlit VARSEG(sprite), VARPTR(sprite)
   sprite.S = sprite.B
   WAIT &H3DA, 8: WAIT &H3DA, 8, 8
   WhichSprite = (WhichSprite + 1) MOD 20
   Sx% = ((Sx% + 33) MOD 440) - 32
   Sy% = ((Sy% + 17) MOD 340) - 16
   SpritePut VARSEG(sprite), VARPTR(sprite)
LOOP WHILE INKEY$ = ""
SCREEN 0: WIDTH 80, 25
 
SUB SpriteDef (S$, N%)
   sp$ = "": colours$ = " 123456789ABCDEF"
   SELECT CASE N%
      CASE 0: sp$ = sp$ + "      CCC       "
              sp$ = sp$ + "     CCC9C   4  "
              sp$ = sp$ + "      CCC   4   "
              sp$ = sp$ + "   444444444    "
              sp$ = sp$ + "  4   4444      "
              sp$ = sp$ + " 4    9999999   "
              sp$ = sp$ + "     99    99   "
              sp$ = sp$ + "    99    99    "
              sp$ = sp$ + "  899     888   "
              sp$ = sp$ + "   8            "
      CASE 1: sp$ = sp$ + "      CCC       "
              sp$ = sp$ + "     CCC9C      "
              sp$ = sp$ + "      CCC   4   "
              sp$ = sp$ + "    444444444   "
              sp$ = sp$ + "    4 4444      "
              sp$ = sp$ + "      99999     "
              sp$ = sp$ + "     99  99     "
              sp$ = sp$ + "899999   99     "
              sp$ = sp$ + "8        99     "
              sp$ = sp$ + "         88     "
      CASE 2: sp$ = sp$ + "      CCC       "
              sp$ = sp$ + "     CCC9C      "
              sp$ = sp$ + "      CCC       "
              sp$ = sp$ + "     44444      "
              sp$ = sp$ + "      44444     "
              sp$ = sp$ + "     49999      "
              sp$ = sp$ + "      99999     "
              sp$ = sp$ + "    89999999    "
              sp$ = sp$ + "    8  99       "
              sp$ = sp$ + "       888      "
      CASE 3: sp$ = sp$ + "      CCC       "
              sp$ = sp$ + "     CCC9C      "
              sp$ = sp$ + "      CCC       "
              sp$ = sp$ + "     44444   4  "
              sp$ = sp$ + "    4 4444444   "
              sp$ = sp$ + "    4 9999      "
              sp$ = sp$ + "      999999    "
              sp$ = sp$ + "      99  999   "
              sp$ = sp$ + "     998899     "
              sp$ = sp$ + "     888        "
   END SELECT
   FOR T% = 1 TO 160
      MID$(sp$, T%, 1) = CHR$(INSTR(colours$, MID$(sp$, T%, 1)) - 1)
   NEXT: S$ = sp$
END SUB
> ]<urt   (NFX)
> Their numbers are 664 and 668, the neighbors of the beast...
---
 * Origin: *YOPS ]I[* 3.1 GIG * RA/FD/FE RADist * Milwaukee, WI (1:154/750)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F1D00006 Date: 01/06/98
From: MATT DE GABRIELLE                                     Time: 10:43pm
\/To: ALL                                                 (Read 4 times)
Subj: Help

Hiya... I was wondering if someone in this echo could help me...
I am after a couple of routines.. What I want to do is to load a text file
which is set out like this:
---------------------------------------
Circuit Name:1000 Relay
Fuse: 3A,D1 
Negative: R2
104 Relay      A1,A2         Down
105 Relay      D3,D4         Up
---------------------------------------
And once loaded , convert this into a graphical display(Maybe using Sprites).
Like this:                                       
                                                |-----|
               104R              105R           |1000R|
o\/\o---------o_____o-----------o_____o---------------|
D1 3A         A1   A2           D3    D4              |
o-----------------------------------------------------|
R2
If anyone could explain to me the easiest and simpliest way to do this I 
ould
muchly appreciate it..
Thanks in advanced.
Matt
--- FMail/386 1.02
 * Origin: Enterprise BBS, Melbourne, Aust, +61-3-9776-7089 (3:632/158)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F1D00007 Date: 01/08/98
From: TED CRAMER                                            Time: 05:55am
\/To: RYAN BALL                                           (Read 4 times)
Subj: QuickBASIC 4.5

 RB-> Does ANYONE know where I can get a copy of QuickBASIC 4.5 nowadays?
 RB-> I know it's WAAY old still, but I lost it in my last HDD crash and
 RB-> now all I have is 4.0 and that doesn't cut it. Thanks.
 I've seen it recently on the shelves of some computer stores. You might
 also try JDR Electronics in California. You can get their 800 number by
 calling 1-800-555-1212. They'll send you a catalog for the asking.
--- Ted's Castle 
 * Origin: Ted's Castle / (216) 671-1057  (1:157/574)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F1D00008 Date: 01/08/98
From: BILL WHITE                                            Time: 02:29pm
\/To: PAUL HELDT                                          (Read 4 times)
Subj: How Late Is It?

PH>         I agree, taking a break can do wonders.  I find myself
PH> looking at  buggy code for a really long time and not making very
PH> much  progress.  So I just play a game or do something along that
PH> line, and I find that when I go back to the computer to
PH> program again, I can usually debug that nasty code within a
PH> matter of minutes.
     When I worked in a TV repair shop, there were two
of us working at the test bench.  Sometimes we'd just
get completely stuck.  So we'd trade jobs.  It was
amazing how fast I could find what he was overlooking
and he find mine.  Later, when I had my own shop, I'd
often push a recalcitrant TV aside, fix a couple
others, then come back to it and solve it immediately.
Proofreading something is the same way - the brain gets
stuck in a rut and can't see what's beside it!
  FIDO: Bill White @ 1:135/110 (Miami)
 InterNet: bill.white@110.sunshine.com
 * SLMR 2.1a * Give me ambiguity or give me something else.
--- Maximus 2.01wb
 * Origin: Miami Amateur Computer Club BBS/USR Courier V.E (1:135/110)
---------------

FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC   Ref: F1E00000 Date: 01/07/98
From: CHRIS GUNN                                            Time: 10:57pm
\/To: RONALD SCHLEGEL                                     (Read 4 times)
Subj: Re: Sorting

 RS>  Does anyone know any good sorting routines? I am trying to take the
 RS> contents of 1 file, sort it, and write the sorted results to a 2nd
 RS> file. I'm looking for both a numeric & alphabetic routines:
Howdy Ronald,
What is the maximum number of records you may need to sort?  Whether they 
will all fit into memory makes a big difference in the logic structure.
If we're talking about 50 to 100 records, a simple bubble sort will do.  If 
you need to sort over 500, you should use Quicksort.
 RS>  I already have the routines that purge un-needed records...:) The
 RS> boss just wants me to organize it a bit...<g> The main thing is that I
 RS> need to be able to write the sorted results to a new
 RS> file...SORTDEMO.BAS has me totally lost.
If you are writing business software, you need to buy QB PDS 7.1 so you can 
use
the ISAM data base engine.  All of your records will stay sorted all the time 
automatically in up to eight different sorting arrangements.
The same routine you use to read and write the original file should work for 
saving a 2nd copy just by using a new filename.
Chris
--- FMail 0.96
 * Origin: BIZynet - Worldwide Business via the E-Ways (1:15/55.1)