#Т > BLib.BASIC 1.01 29-Dec-2005 *Т v1.01 29-Dec-2005 JGH: Added RunAs() 2Т v1.00 12-Nov-1998 JGH: Type, SizeOfReal, Ver (: 2!Т BASIC interpreter functions 1 if BASIC II or equivalent or later ▄7Т Offset assembly, OSCLI, OPENUP available √4Т Returns: >3 if BASIC IV or equivalent or later ═)Т TIME$, ON x PROC available ╙3Т Returns: >4 if BASIC V or equivalent or later Є=Т SYS, WHILE, CASE, multiline IF/ENDIF available Ў?Т --------------------------------------------------------- хщєBASIC_Ver:Й O%,P% р Г ё ▄ э'ч P%-1:O%=P%:[OPT 4:NOP:]ГP%<>O%:=1 Ф0Г⌠=&8000 └ ⌠=&B800:Г!(⌠+9)=&49534142:=?(⌠+8) П=2 Зм =5 : : "Т BASIC_Type ,Т --------- 6Т Discover interpreter type @'Т Returns: 65 if Wilson/Acorn BASIC J"Т 86 if Russell BASIC T?Т --------------------------------------------------------- ^#щєBASIC_Type:Г?(╦P-3):=65 ▀ =86 h: r: |Т FNBASIC_SizeOfReal ├Т ----------------- ░BТ Returns the size of real variables being used by the program DТ Knows about 4, 5, 8 and 12-byte reals by forcing underflows in єDТ accuracy, using IEEE definintions of floating point numbers. ўТ Returns 0 if size unknown ╦EТ --------------------------------------------------------------- бщєBASIC_SizeOfReal лB Г 2^-129=0:Г 1+2^-25=1:=4 :Т 8-bit exponent, 23-bit mantissa жJ Г 2^-129=0:=5 :Т 8-bit exponent, assume 31-bit mantissa ЮK Г 2^-1025=0:=8 :Т 11 bit exponent, assume 52-bit mantissa ЙK Г 2^-32769=0:=12 :Т 15 bit exponent, assume 63-bit mantissa Т=0:Т Unknown Ч: : Т FNBASIC_RunAs Т ------------- &/Т Returns how the BBFW program has been run 0Т Returns: 0 if unknown :5Т 1 if run from the IDE (selected 'RUN') D>Т 2 if run via the interpreter (CHAIN "file.bbc") N?Т 3 if run as a compiled executable (run file.exe) XEТ --------------------------------------------------------------- bщєBASIC_RunAs l%Й cmd%:х≥ "GetCommandLine" ╦ cmd% vГ ї$$cmd%,"bbcwin.exe"):=1 ─Г ї$$cmd%,"bbcwrun.exe"):=2 ┼=3 ■: Ъ