**********************************************************************' *** BASEXT.BAS by Bill Pickell 73337,3000 ***t *** This program will create "hidden" ML loader files to allow *** *** up to 3 additional user defined extensions which will load ***  *** the corresponding basic file to BASIC and run the program ***[  *** just as if the ".BAS" extension were being used. ***  *** ***  *** EXAMPLE: if ".600" were created as a new extension to BASIC ***B  *** and a .600 file were selected at the System Manager screen ***  *** then the System Manager would attempt to load and run the ***  *** program as a BASIC file. ***)  *** ***v  *** THE ".BAS" EXTENSION WILL NOT BE EFFECTED ***  *** ***  *** NOTE: The System Manager will list all programs containing ***]  *** the new extensions immediately following the BASIC application ***  *** file listing. BE SURE THAT ALL FILES WITH ANY OF THESE NEW ***  *** EXTENSIONS ARE BASIC FILES. ***D  **********************************************************************J d d :: :  i ,: "CAPS-LOCK should be on ( 3 chr. max. )";: , n  x "M/L Prog. name EXT. to run as BASIC"+ "-------------- --------------------"4X5>XXx X9 EXTEN$"" :XX:EXTEN$".!5"(X):  X9  "*.!5"(X) "BAS.!5"(X) AS 1 () : X3,(: "Not Aplicable";: %#, EX$:EX$(X5)(EX$,,)::EX$EX$(X5)` EX$"000" EX$"ZZZ" X3,(: "Not Applicable" EX$"000" EX$"ZZZ" X3,(: EX$   "New file ext. to run as BASIC or file ext. to delete ";NEWEXT$ NEWEXT$"" ! (NEWEXT$) : /" X i, (NEWEXT$,X,)"0" (NEWEXT$,X,)"Z" : 6 (NEWEXT$,X,)"9" (NEWEXT$,X,)"A" : @ XJ NEWEXT$"BAS" ::T NEWEXT$EX$() "BAS.!5"(7):^ NEWEXT$EX$() "BAS.!5"(8):Kh NEWEXT$EX$() "BAS.!5"(9):dr "BAS.!56" AS 1|| #, OLDEXT$: #XXX: X(OLDEXT$)  (OLDEXT$,X,)"BAS" BOOT$BOOT$NEWEXT$:XX: BOOT$BOOT$(OLDEXT$,X,): * (BOOT$)(OLDEXT$) V:  ,(: UNSUCCESSFULL":CLOSE:SYSTEM "BAS.TXT" AS 1 :#,  AS CODE$X:Y X (BOOT$)YY CODE$(BOOT$,X,)#, Y: (CODE$); X & CODE$()$YY:#, Y: (CODE$);CYY:#, Y: (CODE$);T& X Xf0 LOOP  y: CODE$()DYY:#, Y: (CODE$);N LOOPX Xb CODE$()lYY:#, Y: (CODE$)v : "BAS.TXT" AS "BAS"EXTEN$:::D  5 EXTEN$".!5"(X):: o  K "BAS"EXTEN$:   5   "BAS.TXT"