|
PureBytes Links
Trading Reference Links
|
<x-html><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2722.1300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV>
<DIV align=left> </DIV>
<DIV align=left><FONT size=2></FONT> </DIV>
<DIV align=left><FONT size=2><A
href="http://www.powerbasic.com/support/forums/Forum7/HTML/000346.html";>http://www.powerbasic.com/support/forums/Forum7/HTML/000346.html</A></FONT></DIV>
<DIV align=left> </DIV>
<DIV align=left> </DIV>
<CENTER> </CENTER>
<CENTER> </CENTER>
<CENTER>
<TABLE border=0 width="95%">
<TBODY>
<TR>
<TD align=left vAlign=top><A
href="http://www.powerbasic.com/support/forums/Ultimate.cgi?action=intro&BypassCookie=true";><IMG
border=0 src="http://www.powerbasic.com/support/forums/pbforum.jpg";></A>
<BR>
<CENTER><FONT face="Verdana, Arial" size=1><BR><IMG border=0
src="http://www.powerbasic.com/support/forums/ubbfriendminiicon.gif";> <A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=sendthread&thread=http://www.powerbasic.com/support/forums/Forum7/HTML/000346.html&Subject=Extract+Functions++to+create+new+programs";>UBBFriend:
Email This Page to Someone!</A></CENTER></FONT></TD>
<TD noWrap vAlign=top><FONT face="Verdana, Arial" size=1><IMG border=0
src="http://www.powerbasic.com/support/forums/open.gif";> <A
href="http://www.powerbasic.com/support/forums/Ultimate.cgi?action=intro&BypassCookie=true";>PowerBASIC
Forums</A> <BR><IMG border=0
src="http://www.powerbasic.com/support/forums/tline.gif";><IMG border=0
src="http://www.powerbasic.com/support/forums/open.gif";> <A
href="http://www.powerbasic.com/support/forums/forumdisplay.cgi?action=topics&forum=Source+Code&number=7";>Source
Code</A> <BR><IMG border=0
src="http://www.powerbasic.com/support/forums/tline3.gif";><IMG border=0
src="http://www.powerbasic.com/support/forums/open.gif";> Extract
Functions to create new programs
<CENTER>
<P><FONT face="Verdana, Arial" size=2><A
href="http://www.powerbasic.com/support/forums/postings.cgi?action=newtopic&number=7&forum=Source+Code";><IMG
alt="Post New Topic" border=0
src="http://www.powerbasic.com/support/forums/topic4.jpg";></A> <A
href="http://www.powerbasic.com/support/forums/postings.cgi?action=reply&forum=Source+Code&number=7&topic=000346.cgi&TopicSubject=Extract+Functions++to+create+new+programs";><IMG
alt="Post A Reply" border=0
src="http://www.powerbasic.com/support/forums/reply4.jpg";></A></FONT>
<BR><A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=editbio&Browser=&DaysPrune=&LastLogin=";><ACRONYM
title="Click here to edit your profile.">profile</ACRONYM></A> | <A
href="http://www.powerbasic.com/support/forums/Ultimate.cgi?action=agree";><ACRONYM
title="Registration is free!">register</ACRONYM></A> | <A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=setprefs";><ACRONYM
title="Set your preferences.">preferences</ACRONYM></A> | <A
href="http://www.powerbasic.com/support/forums/faq.html";
target=_blank><ACRONYM
title="Frequently Asked Questions">faq</ACRONYM></A> | <A
href="http://www.powerbasic.com/support/forums/search.cgi?action=intro&default=7";><ACRONYM
title="Perform a search by keyword, date, or name.">search</ACRONYM></A>
</FONT></CENTER></P></TD></TR></TBODY></TABLE>
<TABLE border=0 width="95%">
<TBODY>
<TR>
<TD align=left vAlign=bottom><FONT face="Verdana, Arial" size=1></FONT></TD>
<TD align=right vAlign=bottom><FONT face="Verdana, Arial" size=1><A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=findthread&forum=Forum7&number=7&thisthread=000346&go=newer";><ACRONYM
title="Go to the next newest topic in this forum.">next newest
topic</ACRONYM></A> | <A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=findthread&forum=Forum7&number=7&thisthread=000346&go=older";><ACRONYM
title="Go to the next oldest topic in this forum.">next oldest
topic</ACRONYM></A></FONT> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=4 cellSpacing=1 width="95%">
<TBODY>
<TR bgColor=#d5e6e1>
<TD vAlign=center width="18%"><FONT color=#000080 face="Verdana, Arial"
size=1><B>Author</B></FONT> </TD>
<TD vAlign=center><FONT color=#000080 face="Verdana, Arial"
size=1><B>Topic: Extract Functions to create new
programs</B></FONT> </TD></TR>
<TR bgColor=#dedfdf>
<TD vAlign=top width="18%"><FONT face="Verdana, Arial" size=2><B>Mike
Doty</B></FONT><BR><FONT face="Verdana, Arial" size=1>Member</FONT> </TD>
<TD><IMG border=0
src="http://www.powerbasic.com/support/forums/posticon.gif";> <FONT
face="Verdana, Arial" size=2><FONT color=#800080 face="Verdana, Arial"
size=1>posted October 16, 1999 12:47 PM <A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=getbio&UserName=Mike+Doty";
target=_blank><IMG alt="Click Here to See the Profile for Mike Doty"
border=0 src="http://www.powerbasic.com/support/forums/profile.gif";></A>
<A
href="http://www.powerbasic.com/support/forums/postings.cgi?action=editpost&forum=Source+Code&number=7&topic=000346.cgi&ReplyNum=000000&TopicSubject=Extract+Functions++to+create+new+programs";><IMG
alt="Edit/Delete Message" border=0
src="http://www.powerbasic.com/support/forums/edit.gif";></A> </FONT>
<HR>
<FONT face="Courier New, Courier" size=3><PRE><BR>#DIM ALL<BR>#REGISTER NONE<BR>SUB Explanation<BR> PRINT" EXTRACT.BAS 10/16/99 Public Domain by Mike Doty<BR> PRINT<BR> PRINT" Extract subprograms and functions from any number of modules.<BR> PRINT" Extracted routines are placed into the file named ";chr$(34)"OUTPUT.BAS";chr$(34)<BR> PRINT<BR> PRINT" MODLIST (required) SUBLIST (optional)<BR> PRINT" PROGRAM1.BAS GetDate$<BR> PRINT" PROGRAM2.BAS RushLimbaugh<BR> PRINT" MOD1.BAS InputHandler<BR> PRINT"-----------------------------------------------------------------------<BR> PRINT" Syntax: EXTRACT Extract functions in SUBLIST from MODLIST<BR> PRINT" or EXTRACT GetDate$ RushLimbaugh InputHandler<BR>END SUB<BR>FUNCTION PBMAIN AS LONG 'Extract subprograms or functions<BR> ON ERROR GOTO PbmainErrorTrap<BR> DIM NumberOfSubs AS LONG 'Maximum sub/functions to look for<BR> DIM FileNum AS LONG 'File handle<BR> DIM NumberOfModules AS LONG 'Modules in MODLIST<BR> DIM SubCount AS LONG<BR> DIM hModList AS LONG<BR> DIM ModCount AS LONG 'Number of names in MODLIST<BR> DIM ModsRead AS LONG<BR> DIM NumberofLines AS LONG<BR> DIM StartPosition AS LONG<BR> DIM org AS LONG<BR> DIM TheLine AS STRING<BR> DIM TotalFound AS LONG 'Number of Subs/functions found<BR> DIM SkipThisWordFlag AS LONG 'So not extracted more than once<BR> DIM Org1 AS LONG<BR> DIM Position AS LONG<BR> DIM Char AS LONG<BR> DIM Duplicates AS LONG 'Sub/function already found<BR> DIM Work AS STRING<BR> DIM a AS STRING<BR> DIM modlist() AS STRING 'Module names to search<BR> DIM SubList() AS STRING 'Subs/functions names to look for<BR> DIM Found() AS STRING<BR> DIM Delimit AS STRING<BR> DIM ThisItem AS STRING<BR> DIM Subname AS STRING<BR> DIM Module AS STRING<BR> DIM Modname AS STRING<BR> DIM SubInList AS STRING 'Parse each before searching<BR> DIM Found AS STRING<BR> DIM FileToOpen AS STRING 'MODLIST or SUBLISt<BR> DIM NumberOfSubsToLookFor AS LONG 'On command line or in SUBLIST<BR> Dim OutPutFile as String 'File containing extract functions<P> COLOR 7, 1, 1<BR> CLS<P> '...................................................................<BR> 'CALL Explanation:Sleep 5000 'Remove to get rid of explanation<BR> '...................................................................<P> 'Read subprograms to look for from SUBLIST into an array<P> work$ = UCASE$(COMMAND$)<BR> 'work$ = "MERGELABEL" 'command$ automatically uppercases<P><BR> IF LEN(work$) THEN 'search for subs or functions on command line<BR> NumberOfSubs = 50<BR> ELSE 'search for sub/functions in the file SUBLIST<BR> fileNum = FREEFILE<BR> FileToOpen = "SUBLIST"<BR> OPEN FiletoOpen FOR INPUT AS #fileNum<P> DO UNTIL EOF(fileNum)<BR> LINE INPUT #fileNum, a$<BR> NumberOfSubs = NumberOfSubs + 1<BR> LOOP<BR> CLOSE #fileNum<BR> END IF<P> fileNum = FREEFILE<BR> FileToOpen = "MODLIST"<BR> OPEN FileToOpen FOR INPUT AS #fileNum<P><BR> 'Count number of module names in MODLIST file<BR> DO UNTIL EOF(fileNum)<BR> NumberOfModules = NumberOfModules + 1<BR> LINE INPUT #fileNum, a$<BR> LOOP<P> CLOSE #fileNum<P> DIM ModList(NumberOfModules)<BR> DIM SubList(NumberOfSubs)<P> DIM found$(NumberOfSubs) 'so only found once<P> IF LEN(work$) = 0 THEN<BR> PRINT "EXTRACT "<BR> PRINT "Extract subs/functions in SUBLIST from modules in MODLIST ..> OUTPUT.BAS"<BR> PRINT "To run, type PULL."<BR> PRINT<BR> PRINT "Optional: "; CHR$(34); "EXTRACT subprogram subprogram ..."; CHR$(34)<BR> END IF<P><BR> Delimit$ = ";,/-+ " 'valid separators if subs/functions on command line<P> IF LEN(work$) THEN 'user typed in subs/functions to look for<P> 'fill SubList$() with sub/mods to look for<BR> NumberOfSubsToLookFor = PARSECOUNT(Work$,ANY Delimit$)<BR> FOR SubCount = 1 TO NumberOfSubsToLookFor<P> ThisItem$ = PARSE$(Work$,ANY Delimit$,SubCount)<BR> SubList$(Subcount) = ThisItem$<BR> NEXT<BR> GOTO BeginHere 'skip for sublist from an input file<BR> END IF<P> OPEN "SUBLIST" FOR INPUT AS #1<BR> DO UNTIL EOF(1)<BR> LINE INPUT #1, TheLine<BR> SubName$ = UCASE$(LTRIM$(TheLine))<BR> IF LEFT$(SubName$, 1) <> "'" THEN<BR> Subcount = Subcount + 1<BR> SubList$(Subcount) = SubName$<BR> END IF<BR> LOOP<BR> CLOSE #1<P>BeginHere:<BR> OutPutFile = "OUTPUT.BAS"<BR> IF LEFT$(work$, 1) = "," THEN<BR> OPEN OutPutFile FOR APPEND AS #2<BR> ELSE<BR> 'Header could be optionally created here<BR> OPEN OutPutFile FOR OUTPUT AS #2<BR> PRINT #2, "' CREATED BY EXTRACT PROGRAM ON "+Date$<BR> END IF<BR> 'Read module file names from MODLIST into an array<P><BR> hModList = FREEFILE<BR> OPEN "MODLIST" FOR INPUT AS hModList<BR> DO UNTIL EOF(hModList)<BR> LINE INPUT #hModList, TheLine<P> module$ = UCASE$(TheLine)<BR> module$ = LTRIM$(TheLine)<BR> module$ = RTRIM$ (TheLine)<BR> module$ = UCASE$(LTRIM$(RTRIM$(TheLine)))<BR> IF LEN(module$) > 0 AND LEFT$(module$, 1) <> "'" THEN<BR> Modcount = Modcount + 1<BR> ModList$(Modcount) = module$<BR> END IF<BR> LOOP<BR> CLOSE #hModList<P><BR> DO UNTIL ModsRead = Modcount '# OF MODS TO SEARCH<BR> ModsRead = ModsRead + 1<BR> ModName$ = ModList$(ModsRead)<BR> 'PRINT ModsRead; TAB(6); ModName$<BR> 'PRINT Modname$; " ";<P> OPEN ModName$ FOR INPUT AS #1 'OPEN EACH MODULE<BR> 'PRINT "Searching "; ModName$; LOF(1); "bytes"<BR> LINE INPUT #1, TheLine 'READ FIRST LINE<BR> a$ = UCASE$(LTRIM$(TheLine)) 'STRIP LEADING SPACES<P><BR> 'Read all lines in each module for FUNCTION or SUB<P> 'PRINT "SubCount is "; SubCount<BR> 'PRINT SubList$(1)<BR> NumberOfLines = 0<P> DO UNTIL EOF(1) 'Read all lines<P> LINE INPUT #1, TheLine<P> a$ = UCASE$(LTRIM$(TheLine))<P><BR> IF LEFT$(a$, 4) = "SUB " OR LEFT$(a$, 9) = "FUNCTION " THEN<BR> StartPosition = 5<BR> IF LEFT$(a$, 9) = "FUNCTION " THEN StartPosition = 10<BR> FOR org = 1 TO Subcount ' search for any number of words<BR> subinlist$ = SubList$(org)<BR> IF totalfound THEN ' See if this SubInList was<P> SkipThisWordFlag = 0 'always reset<BR> FOR org1 = 1 TO totalfound ' already found<BR> IF found$(org1) = subinlist$ THEN<BR> SkipThisWordFlag = 1<BR> EXIT FOR<BR> END IF<BR> NEXT<P> END IF<P> 'PRINT SubInList$, org, subcount<P><BR> FOR Position = StartPosition TO LEN(a$)<BR> char = ASC(MID$(a$, Position, 1)) 'search for space after subname<BR> IF char = 32 THEN EXIT FOR<BR> NEXT<P> 'not yet yet a match, but now ready to compare<BR> found$ = MID$(a$, StartPosition, Position - StartPosition)<P> IF found$ = subinlist$ THEN 'we found it!!!<BR> PRINT subinlist$; " found in "; ModName$<BR> totalfound = totalfound + 1<BR> IF SkipThisWordFlag THEN<BR> duplicates = duplicates + 1<BR> GOTO SkipThisWord<BR> END IF<BR> PRINT #2, "DEFINT A-Z"<BR> PRINT #2, TheLine<BR> DO UNTIL TheLine = "END SUB" OR TheLine = "END FUNCTION"<BR> LINE INPUT #1, TheLine<BR> PRINT #2, TheLine<BR> LOOP<BR> found$(totalfound) = subinlist$ 'or found$<BR> EXIT FOR 'no need to search any further<BR> END IF<BR>SkipThisWord:<BR> NEXT<BR> END IF<BR> LOOP<BR> CLOSE #1<BR> LOOP<BR> PRINT<BR> PRINT "Found "; totalfound<BR> PRINT "Duplicates "; duplicates<P> PRINT "Found the following subprograms and functions:"<BR> FOR org = 1 TO totalfound<BR> PRINT found$(org)<BR> NEXT<BR> print "Output is in the file "OutPutFile<BR>EndPbMain:<BR>EXIT FUNCTION<BR>PbMainErrorTrap:<BR> PRINT<BR> PRINT"--------------------------------- ERROR ----------------------------"<BR> SELECT CASE ERR<BR> CASE 53<BR> PRINT "Cannot open "FileToOpen<BR> PRINT "If no subs or functions are on the command<BR> PRINT "line then the sub and functions to extract<BR> PRINT "must be in the text file named "CHR$(34);"SUBLIST";CHR$(34)"."<BR> print<BR> Print "MODLIST must exist because it contains the names of modules to look in."<BR> CASE ELSE:PRINT "Error "ERR<BR> END SELECT<BR> PRINT<BR> PRINT "Please press any key to end the EXTRACT program."<BR> WAITKEY$<BR> RESUME EndPbMain<BR>END FUNCTION<BR></P></PRE></FONT>
<P><BR></FONT>
<P align=right><FONT color=#800080 face="Verdana, Arial" size=1>IP: <A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=getip&number=7&topic=000346.cgi&ReplyNum=000000&forum=Source+Code&TopicSubject=Extract+Functions++to+create+new+programs";>Logged</A></FONT></P></TD></TR>
<TR bgColor=#f7f7f7>
<TD vAlign=top width="18%"><FONT face="Verdana, Arial" size=2><B>Greg
Turgeon</B></FONT><BR><FONT face="Verdana, Arial" size=1>Member</FONT> </TD>
<TD><IMG border=0
src="http://www.powerbasic.com/support/forums/posticon.gif";> <FONT
face="Verdana, Arial" size=2><FONT color=#800080 face="Verdana, Arial"
size=1>posted October 16, 1999 09:34 PM <A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=getbio&UserName=Greg+Turgeon";
target=_blank><IMG alt="Click Here to See the Profile for Greg Turgeon"
border=0 src="http://www.powerbasic.com/support/forums/profile.gif";></A>
<A
href="http://www.powerbasic.com/support/forums/postings.cgi?action=editpost&forum=Source+Code&number=7&topic=000346.cgi&ReplyNum=000001&TopicSubject=Extract+Functions++to+create+new+programs";><IMG
alt="Edit/Delete Message" border=0
src="http://www.powerbasic.com/support/forums/edit.gif";></A> </FONT>
<HR>
<BR><FONT face="Courier New, Courier" size=3><PRE>An alternative approach can be found here:<BR> <BR> http://www.powerbasic.com/forums/Forum7/HTML/000323.html <BR> <BR></PRE></FONT>
<P>-------------<BR>-- Greg<BR>gturgeon@xxxxxxxxxxxxxx</FONT>
<P align=right><FONT color=#800080 face="Verdana, Arial" size=1>IP: <A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=getip&number=7&topic=000346.cgi&ReplyNum=000001&forum=Source+Code&TopicSubject=Extract+Functions++to+create+new+programs";>Logged</A></FONT></P></TD></TR></TBODY></TABLE>
<TABLE border=0 width="95%">
<TBODY>
<TR>
<TD align=left vAlign=top><FONT face="Verdana, Arial" size=1>
<P>All times are Pacific Time (US)</FONT></P></TD>
<TD align=right vAlign=top><FONT face="Verdana, Arial" size=1><A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=findthread&forum=Forum7&number=7&thisthread=000346&go=newer";><ACRONYM
title="Go to the next newest topic.">next newest topic</ACRONYM></A> | <A
href="http://www.powerbasic.com/support/forums/ubbmisc.cgi?action=findthread&forum=Forum7&number=7&thisthread=000346&go=older";><ACRONYM
title="Go to the next oldest topic.">next oldest
topic</ACRONYM></A></FONT></TD></TR>
<TR>
<TD colSpan=2><FONT face="Verdana, Arial" size=1><BR>
<CENTER><B>Administrative Options: <A
href="http://www.powerbasic.com/support/forums/postings.cgi?action=closethread&topic=000346.cgi&TopicSubject=Extract+Functions++to+create+new+programs&number=7&forum=Source+Code";>Close
Topic</A> | <A
href="http://www.powerbasic.com/support/forums/archive.cgi?action=transfer&topic=000346.cgi&TopicSubject=Extract+Functions++to+create+new+programs&number=7&forum=Source+Code";>Archive/Move</A>
| <A
href="http://www.powerbasic.com/support/forums/postings.cgi?action=deletepost&forum=Source+Code&number=7&topic=000346.cgi&TopicSubject=Extract+Functions++to+create+new+programs";>Delete
Topic</A></B></FONT></CENTER></TD></TR>
<TR>
<TD><A
href="http://www.powerbasic.com/support/forums/postings.cgi?action=newtopic&number=7&forum=Source+Code";><IMG
alt="Post New Topic" border=0
src="http://www.powerbasic.com/support/forums/topic4.jpg";></A> <A
href="http://www.powerbasic.com/support/forums/postings.cgi?action=reply&forum=Source+Code&number=7&topic=000346.cgi&TopicSubject=Extract+Functions++to+create+new+programs";><IMG
alt="Post A Reply" border=0
src="http://www.powerbasic.com/support/forums/reply4.jpg";></A>
<CENTER></CENTER></TD>
<TD align=right noWrap vAlign=top><FONT face="Verdana, Arial" size=2>
<FORM action=http://www.powerbasic.com/support/forums/forumdisplay.cgi
method=get><INPUT name=action type=hidden value=topics> <B>Hop to:
</B><SELECT name=number><OPTION value="">Select a Forum or
Archive<OPTION value=""><OPTION value="">List of Forums:<OPTION
value=""><OPTION value=""><OPTION value="">Category: 1. Announcements,
Articles and Support FAQs<OPTION value="">--------------------<OPTION
value=1>Product Announcements<OPTION value=2>Frequently Asked
Questions<OPTION value=""><OPTION value="">Category: 2. User to user
Discussions<OPTION value="">--------------------<OPTION
value=5>PowerBASIC Console Compiler<OPTION value=3>PowerBASIC for
DOS<OPTION value=4>PowerBASIC for Windows<OPTION
value=6>Programming<OPTION value=9>Programming the Internet<OPTION
selected value=7>Source Code<OPTION value=8>Third-Party Addons<OPTION
value=""><OPTION value="">Category: 3. Projects<OPTION
value="">--------------------<OPTION value=10>Visual Programming<OPTION
value=""><OPTION value="">List of Archives:<OPTION value=""><OPTION
value=A:000001>MSG1998<OPTION value=A:000002>SRCCODE</OPTION></SELECT> <INPUT name=SUBMIT type=submit value=Go>
</FORM></FONT></TD></TR></TBODY></TABLE><BR><B><FONT face="Verdana, Arial"
size=2>Contact Us | <A
href="http://www.powerbasic.com/"; target=_top>PowerBASIC on the Net</A>
</B></FONT>
<P><FONT color=#cc9966 face="Verdana, Arial" size=1>Copyright © 1999 PowerBASIC,
Inc.
<P>Powered by: Ultimate Bulletin Board, Version 5.39a.dave<BR>© Infopop
Corporation (formerly Madrona Park, Inc.), 1998 -
1999.<BR><BR></FONT></CENTER></P></DIV></BODY></HTML>
</x-html>Content-Type: image/jpeg;
name="pbforum.jpg"
Content-Location: http://www.powerbasic.com/support/forums/pbforum.jpg
Attachment Converted: "c:\eudora\attach\pbforum.jpg"
Content-Type: image/gif;
name="ubbfriendminiicon.gif"
Content-Location: http://www.powerbasic.com/support/forums/ubbfriendminiicon.gif
Attachment Converted: "c:\eudora\attach\ubbfriendminiicon.gif"
Content-Type: image/gif;
name="open.gif"
Content-Location: http://www.powerbasic.com/support/forums/open.gif
Attachment Converted: "c:\eudora\attach\open.gif"
Content-Type: image/gif;
name="tline.gif"
Content-Location: http://www.powerbasic.com/support/forums/tline.gif
Attachment Converted: "c:\eudora\attach\tline.gif"
Content-Type: image/gif;
name="tline3.gif"
Content-Location: http://www.powerbasic.com/support/forums/tline3.gif
Attachment Converted: "c:\eudora\attach\tline3.gif"
Content-Type: image/jpeg;
name="topic4.jpg"
Content-Location: http://www.powerbasic.com/support/forums/topic4.jpg
Attachment Converted: "c:\eudora\attach\topic4.jpg"
Content-Type: image/jpeg;
name="reply4.jpg"
Content-Location: http://www.powerbasic.com/support/forums/reply4.jpg
Attachment Converted: "c:\eudora\attach\reply4.jpg"
Content-Type: image/gif;
name="posticon.gif"
Content-Location: http://www.powerbasic.com/support/forums/posticon.gif
Attachment Converted: "c:\eudora\attach\posticon.gif"
Content-Type: image/gif;
name="profile.gif"
Content-Location: http://www.powerbasic.com/support/forums/profile.gif
Attachment Converted: "c:\eudora\attach\profile.gif"
Content-Type: image/gif;
name="edit.gif"
Content-Location: http://www.powerbasic.com/support/forums/edit.gif
Attachment Converted: "c:\eudora\attach\edit.gif"
|
![http://www.powerbasic.com/support/forums/pbforum.jpg"](http://www.powerbasic.com/support/forums/pbforum.jpg"){kind=link}
![http://www.powerbasic.com/support/forums/ubbfriendminiicon.gif"](http://www.powerbasic.com/support/forums/ubbfriendminiicon.gif"){kind=link}
![http://www.powerbasic.com/support/forums/open.gif"](http://www.powerbasic.com/support/forums/open.gif"){kind=link}
![http://www.powerbasic.com/support/forums/tline.gif"](http://www.powerbasic.com/support/forums/tline.gif"){kind=link}
![http://www.powerbasic.com/support/forums/tline3.gif"](http://www.powerbasic.com/support/forums/tline3.gif"){kind=link}
![http://www.powerbasic.com/support/forums/topic4.jpg"](http://www.powerbasic.com/support/forums/topic4.jpg"){kind=link}
![http://www.powerbasic.com/support/forums/reply4.jpg"](http://www.powerbasic.com/support/forums/reply4.jpg"){kind=link}
![http://www.powerbasic.com/support/forums/posticon.gif"](http://www.powerbasic.com/support/forums/posticon.gif"){kind=link}
![http://www.powerbasic.com/support/forums/profile.gif"](http://www.powerbasic.com/support/forums/profile.gif"){kind=link}
![http://www.powerbasic.com/support/forums/edit.gif"](http://www.powerbasic.com/support/forums/edit.gif"){kind=link}
