> KN-> and I can get more details.   I think Compuserv has the DWSCRN online
 > KN-> and there may be other sources others in this echo can recommend.
 > I am not on CI$, could you please get it and I'll FREQ it from
 > you on
 > my dime?  I would appreciate it immensely!
I'm not set up for FREQ since I'm just a point for mail purposes but you may 
be able to get the latest version directly from the author's
BBS using the info below:
James R. Davis                                   ³ 516-737-4637 BBS
3 Williams Blvd #1C                              ³ CIS ID# 74250,1602
Lake Grove, NY  11755                            ³ 74250.1602@compuserve.com
                                                 ³
                                                 ³
DW Screen 1.2                             $30.00 ³
Creative stunning visual effects with your text  ³
screens including: exploding, fading, splitting, ³
and sweeping.  Includes commands to grab any     ³
portion of a text screen and save it, move it,   ³
and more.  Includes source code with             ³
registration.                                    ³
FYI,
Kevin
--- GEcho 1.00
(1:140/10.7)
---------------
** A related thread FOLLOWS this message.

FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC   Ref: CAHS2722 Date: 06/13/95
From: KURT KUZBA                                            Time: 11:45pm
\/To: KEVIN NOBLE                                         (Read 3 times)
Subj: R: THEDRAW and PB 3.0

KN> >  So what is the best way to integrate screens saved with
KN> >  The Draw 4.0, and  Power Basic 3.0?
KN> >  Some example of code would be extremely helpful!
KN> >  What format do I save the screen in so it can get linked
KN> >  into the .exe file?
KN>  I believe there was a routine included with a shareware
KN>  library product called DWSCRN (Davis Ware??) that could
KN>  convert a binary file (which THEDRAW will  output to)
KN>  to a string of characters which can then be included in
KN>  any PB3X program.
kn>..................................................................
   I wrote a program for QBasic that will take any ANSI file that
you can view using TYPE from the command line and turn it into a
FUNCTION$() that will return the entire file as a single string.
it will probably work just fine as is. The code space used to make
the string is, naturally, lost, but the string space is recoverable
in your program while it is running. This means you read the entire
file contents via a string function call in your finished program.
(Haven't found time to install PB and do anything just yet. :)
 '|======================  begin ANSIFUNC.BAS  =======================|
 '|  This is a QBasic program to convert an ANSI file to a QBasic     |
 '|  FUNCTION that will return the file as a string. In the program   |
 '|  this program produces, the function is called and the resulting  |
 '|  string is output to CONSOLE, which requires ANSI.SYS loaded.     |
 '|          Released to the Public Domain by Kurt Kuzba              |
 '|===================================================================|
 ' set error trap, set colors, clear screen, q$ = quote mark ==========
ON ERROR GOTO Done: COLOR 2, 0: CLS : q$ = CHR$(34)
 ' create a string for the input boxes  ===============================
i$ = STRING$(16, " ") + STRING$(15, CHR$(29))
 ' print message and get filename from user, open file for input ======
LOCATE 5, 10: PRINT "We will turn an ANSI file into a QBasic function"
LOCATE 6, 10: PRINT "which returns the entire ANSI file as a string."
LOCATE 8, 10: PRINT "Enter ANSI name [ EX. MYPIC.ANS ] ";
COLOR 1, 7: PRINT i$; : INPUT "", ans$: COLOR 2, 0
IF ans$  "" THEN OPEN ans$ FOR INPUT AS #1:  ELSE GOTO Done
 ' get name of function to create from user ===========================
LOCATE 10, 10: PRINT "Enter Function name [ EX. Pic1$ ] ";
COLOR 1, 7: PRINT i$; : INPUT "", func$: COLOR 2, 0
 ' make FUNCTION name and open file for input =========================
IF func$ = "" THEN GOTO Done
IF RIGHT$(func$, 1)  "$" THEN func$ = func$ + "$"
name$ = func$ + ".bas": OPEN name$ FOR OUTPUT AS #2
 ' write QBasic FUNCTION to file ======================================
PRINT #2, "DECLARE FUNCTION "; func$; "()"
PRINT #2, "open "; q$; "CONS:"; q$; " FOR OUTPUT AS #1"
PRINT #2, "PRINT #1, "; func$
PRINT #2, "FUNCTION "; func$
PRINT #2, "t$ = "; q$; q$
 ' process ANSI to create QBasic routine to construct string ==========
WHILE NOT EOF(1)
   WHILE NOT EOF(1)
      PRINT #2, "t$=t$+"; q$; : C$ = ""
      WHILE C$  CHR$(10) AND NOT EOF(1)
         C$ = INPUT$(1, #1)
         IF C$ = CHR$(13) THEN
            C$ = q$ + " + CHR$(13) + CHR$(10)" + CHR$(13) + CHR$(10)
         END IF
         IF C$  CHR$(10) THEN PRINT #2, C$;
      WEND
   WEND
WEND
 ' finish writing QBasic FUNCTION to file =============================
PRINT #2, q$
PRINT #2, func$; "=t$"
PRINT #2, "END FUNCTION"
 ' done, tell user new program is ready, wait for key =================
LOCATE 12, 10: COLOR 10
PRINT "Your new program, "; name$; ", containing the FUNCTION"
LOCATE 13, 10: PRINT func$; ", to display "; ans$; ", is ready to test."
LOCATE 14, 10: PRINT "ANSI.SYS must be loaded for "; name$; " to work."
Done:  CLOSE 1: CLOSE 2: C% = 0: i$ = ""
WHILE i$ = ""
   C% = (C% + 1) AND 15: LOCATE 15, 10: COLOR C%: PRINT "Hit a Key"
   i$ = INKEY$
WEND: COLOR 2
 '|  ===============  end ANSIFUNC.BAS  ==============================|

---
> ] You cannot enter the Underground without a Tolkien..........

---------------
>>>>>>>>>>>>>>>>>>>>>> LAST Message In Thread <<<<<<<<<<<<<<<<<<<<<<

FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC   Ref: CAB00004 Date: 06/05/95
From: DAVE NAVARRO                                          Time: 03:03pm
\/To: BOB SEWELL                                          (Read 5 times)
Subj: Chdrive

BS>    Bug report:  CHDRIVE statement, when called with a drive letter
Thanks Bob.  I'll look into it.
--Dave
---
 þ QMPro 1.53 þ Paul Revere Virus: One if by LAN, two if by C...
--- QScan v1.065b
---------------