#ô > BLib.ProgEnv 1.06 20Apr2020 : #ô Program Environment Functions (#ô ============================= 2: 31:ç>&FFFFF:ÞX%ê256:È™"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ nCA%=&600-&7B00*(>&8000)-&3F00*(>&C000):ç!(-&100)=@%:A%=-&300 x;ç?(¸P-3)=0:A%=&100:ç“<&FFFF:A%=-&300:ç!(“+512)=@%:A%=“ ‚cA$=$A%:ç=&8F00:run$=A$:È™16¸A$,,A%:È™72,"",A%:A$=ÁA$,1+§A$+" "," ",1+§A$," "))):ç©A$=0:A$=run$ ŒUãY%=-1¸0:A$=" "+A$:õA$=ÁA$,2):ý—A$<>32:ç—A$=34:A%=§A$,"""",2)+1 ‹ A%=§A$+" "," ") –9çY%:run$=ÁA$,1-(—A$=34),A%-1+2*(—A$=34)):A$=ÁA$,A%+1) í:=A$ ª: ´.ô Run a program, passing it a command line ¾=ô If program is *Command, called with OSCLI, else CHAINed È=ô ------------------------------------------------------- Ò#Ýòos(A$):ç—A$=42:ÿA$ ‹ ç©A$:×A$ Üá æ: ð(ô Exit program, setting return value ú(ô ---------------------------------- FÝòexit(A%):ÿ"FX1,"+Ã(A%€255):quit$=quit$:A$=quit$:quit$="":òos(A$) ç>&FFFFF:È˜ A% ‹ à á ": ÿ