Hi Heather!

 > I must have missed that message.

It was Dated: Thu, 18 Jan 2001 13:46:00 +0100 (MET), 
just archived.

Charlie's code goes by the route you envisaged in your posts
on process manager. 

Mine as usual is brutish and short.  It is designed to
(hopefully) to function on all Macs.  Could you test it
for me on Bluebox and Sys 10?

I haven't passed a file yet, but I hope it is possible 
via this route.

I have extracted what may be one of the shortest 
Mini apps you have seen.  I'ld like to 
see the FB^3 equivalent! The flags
you are wondering about are there.

Cheers

Larry

' ------------------ cut 

'UltraMiniLaunch.bas using UltraMiniLaunch.rsrc 
' "RUN reborn"

' *************** LCS begin preamble
GOTO"--Main"

RESOURCES "UltraMiniLaunch.rsrc","APPLmLch","CODE",1,"Code Segment"
COMPILE 1,8           ''**LS 16 is _appendRes; 8 is _STRResource (add them)
OUTPUT FILE "UltraMiniLaunch"
DEFSTR LONG

' *************** AndyGariepy's Launch Function 
CLEAR LOCAL
'
DIM pBlock.108
DIM launchRecord.44
DIM fsSpec;0, fsVRefNum%, fsDirID&, 63 fsName$
'
LOCAL FN LaunchNamedApp(fsName$,fsVRefNum%)
  pBlock.ioVRefNum% = fsVRefNum%
  osErr% = FN GETWDINFO (@pBlock)
  LONG IF osErr% = _noErr
    fsVRefNum% = pBlock.ioWDVRefNum%
    fsDirID&   = pBlock.ioWDDirID&
    launchRecord.launchBlockID%      = _extendedBlock
    launchRecord.launchEPBLength&    = 44
    ''launchRecord.launchControlFlags% = _launchContinue_launchNoFileFlags
    launchRecord.launchControlFlags% = _launchNoFileFlags
    launchRecord.launchAppSpec&      = @fsSpec
    CALL LAUNCH (@launchRecord)
    oserr% = REGISTER (D0)
  END IF
END FN = oserr%

' ****************** LCS functions

CLEAR LOCAL
LOCAL FN DefaultWdRefNo%'' must call at startup
  DIM PBlk.128
  err%=FN GETVOL(@PBlk)
END FN=PBlk.ioVRefNum%

CLEAR LOCAL
LOCAL FN MyBeep  '' must call at startup
  BEEP   '' try FN SNDDOIMMEDIATE ??
  '' next is kludge to let BEEP be heard on fast machines
  T&=(FN TICKCOUNT)+10
  DO
  UNTIL ((FN TICKCOUNT)  > T&)
END FN

"--Main"

'****************** AndyGariepy's Inits

%REGISTER(A4)+6,1     '¥¥¥ ID# STR# resources ¥¥¥
CALL MOREMASTERS
CALL INITGRAF(REGISTER(A5)-4)'¥¥¥ INIT EVERYTHING ¥¥¥
CALL INITDIALOGS(0)
CALL INITFONTS
CALL INITWINDOWS
CALL INITMENUS
CALL TEINIT
CALL INITCURSOR       '¥¥¥ STD CURSOR ¥¥¥


' ****************** LCS Main

IF FN BUTTON THEN END
FN MyBeep
AppName$="UltraMiniLaunch"
AppWDir%=FN DefaultWdRefNo%
err% = FN LaunchNamedApp(AppName$,AppWDir%)
END

' ------------------ cut 

 > ''''' UltraMiniLaunch.rsrc.hqx
 > (Binhex format;  delete quoting trash.)
 > 
 > :&&9XG(*K6@PZD8aKG@jMD#jbFh*M!(*cFQ058d9%!3!!!!!!!!!##MCj!!!!!!%
 > !!!!"AJ!!!&i!!!#XHLZT6!i0&J"#$(S4HLTk,RSX-K*k-Ji+!`8+("m%&4J96A9
 > XG'P-BA9ZBfKIE@PZD5jbFh*M!J!!!(*cFQ058`!!FR0bBe*6483"!!"E!'N!!!!
 > !!!!!!!!!!!!!!!!!!!#R$2%!!!!!!!!!!JS+!RS6*!-P)"8bG!Tk0hS0!a4k&a8
 > L*!&k!`TC3LmP(h8"3LX,!N)j3M&k&!-,G3`$#RS-*4a#-d)P!`mP'b3)HMP#*dG
 > F3@S4RK'D)d!M0L-q)cSM+L-X4jJ3%%Gb%!i4SLpJ)bj#GN$@)dS'KN$#4fC(D"!
 > -(GiIFKI+)d`Im!DN!!!!#J#!!!"p!!!!I3!!!!!B!!!!+!!!!3!!!!!)!!!!)!!
 > !2c`!!DR`!!!!!!!!!"aY6'0S!!!!!8C548B!!!!!!)"*3diM!!!!!!#!!!!!!3!
 > !!!!(39"36!!!!!!!!3!!!!&H!!!!AJ!!!+`"8Jam)ri!!!!F!)i!"&0*@N8!!!!
 > U3dp%43!!!$CY6'0S!!%!3N*14%`!!!"D4P*&4J!!!'Errrrr)!!!!!&5$G`!!2r
 > r)!!!$J&5$B!!J!!!!!!!+J&5$I`!!!!2!!!!6J&5$EJ!J2rr!!!!,J&5$CJ!J2r
 > r!!!!8`&5$F316hGZCA)JFQ9cEh9bBf816hGZCA)JFQ9cEh9bBf@p93:

Sorry about above contraband. T'aint big!