0 Members and 1 Guest are viewing this topic.
det(9 //loads the program list into Ansif inString(Ans,"<progname> //checks to see if program existsthenif inString(det(0,"<progname>",7),"A //checks to see if program is archivedthen"<progname> //saves the program name into Ansreal(10,0,1 //creates temp fileIf ("BB6D"=det(14,"XTEMP001",0,2)) or ("BB6C"=det(14,"XTEMP001",0,2ThenAsm(prgmXTEMP001 //runs temp fileElseprgmXTEMP001Endreal(10,1,1 //deletes temp fileElseIf ("BB6D"=det(14,"XTEMP001",0,2)) or ("BB6C"=det(14,"XTEMP001",0,2ThenAsm(prgm<progname> //if program is not archived, it will run it directlyElseprgm<progname>Enddet(0,"<progname>",0 //and then archive itEnd[getkey] //just clears the last keypress and loads it into AnsEnd
:If θ:Then:If inString(det(9),Ans:Then:If not(inString(det(0,Ans,7),"A:Then:det(0,Ans,0:End:"DONE:Else:"ERROR:End:Else:If inString(det(9),Ans:Then:If not(inString(det(0,Ans,7),"R:Then:det(0,Ans,0:End:"DONE:Else:"ERROR:End:End
If ("BB6D"=det(14,"XTEMP001",0,2)) or ("BB6C"=det(14,"XTEMP001",0,2))Then//run code if ASM binary or hexElse//run code if "BASIC" program (no ASM header)End