FC-> this:   COPY /B FILENAME.EXE + SCREEN.FIL FINAL.EXE.  In your
FC-> program, you  OPEN "FINAL.EXE" FOR BINARY AS #1
FC->                                   SEEK #1, wherever your data begins
FC->                              then GET$ #1, your data.
Thank you kindly, Frank, for being the only one (so far) trying to help!
Interesting but not what I was hoping for...
I noticed after fidgeting that I can create .OBJ files using Tdraw, then
$link them into the code, but I can't figure out how to CALL the screens.
Maybe someone else reading this can offer suggestions on this idea?
Also, I'd like to link all my screens into one .PBL file using PBLIB.EXE,
and then be able to call my screens whenever I want.
Help?
-james
--- QuickBBS 2.80 GoldBase (Zeta-1)
998-(1:109/611@FIDONET)
---------------
** A related thread FOLLOWS this message.

FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC   Ref: CB4P1353 Date: 07/04/95
From: KURT KUZBA                                            Time: 08:22pm
\/To: JAMES GOLDBLOOM                                     (Read 3 times)
Subj: R: Re: Alive?

JG>  I can create .OBJ files using Tdraw, then $link them into
JG>  the code, but I can't figure out how to CALL the screens.
jg>............................................................
   The means to utilize the .OBJ's should be revealed in your
TheDraw documentation. I wrote the following program for QBasic,
and just ported it to PB 3.1. The resultant program will NOT run
in the IDE with large ANSI files, and seems to take an awful
long time to create the string in the compiled program. Of course,
the file I converted to a function was a 20K+ byte animation file.
Give it a try and see if it suits your needs. Limit line length to
fifty characters per line when saving your ANSI file from TheDraw.
 '|======================  begin ANSIFUNC.BAS  =======================|
 '|  This is a PB 3.1 program to convert an ANSI file to a PB 3.1     |
 '|  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  ===============================
 ' print message and get filename from user, open file for input ======
LOCATE 5, 10: PRINT "We will turn an ANSI file into a PB 3.1 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: 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: 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$ + "$"
Filename$ = func$ + ".bas": OPEN Filename$ FOR OUTPUT AS #2
 ' write PB 3.1 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 PB 3.1 routine to construct string ==========
WHILE NOT EOF(1)
   WHILE NOT EOF(1)
      PRINT #2, "t$=t$+"; q$; : C$ = ""
      line input #1 , C$
      print #2, c$;
      C$ = q$ + " + CHR$(13) + CHR$(10)"
      PRINT #2, C$
   WEND
WEND
 ' finish writing PB 3.1 FUNCTION to file =============================
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, "; Filename$; ", 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 "; Filename$; " 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  ==============================|

---
> ] Sorry.  I left my taglines in my other offline reader.......

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

FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC   Ref: CB200000 Date: 06/30/95
From: PHILIP EATON                                          Time: 11:47am
\/To: ALL                                                 (Read 3 times)
Subj: Array of Variable Address

I have a program with about 80 variables that I use for a specific
purpose. The variables are of different types (String, Integer, etc).
Each variable has a # from 1 to 80 assigned to it. What I would like to
do is create an array that holds the address of the variable. This way I
could access the variable by number.
Example:
print VariableTable%(5)  ' This could be a string variable
print VariableTable%(6)  ' This could be a integer variable
At the beginning I would set up the array with the address of each
variable.
Please respond if you have any ideas.
Thanks,
   Phil
--- WILDMAIL!/WC v4.10 
---------------