ф > Environ 0.17 *ф Display various environment settings : (*ф Read command line, run path and host 2cmd$=¤OS_GetEnv <: F)ф CPU test fails with 32016 and 68000 P$A%=-1:з os%>31:з “>&FFFF:cpu%=86 Z)з “>&FFFF:з ђ>&8000:з ђ<&FFFF:cpu%=44 d@з ђ<&20000:з “<&20001:Ю A%-1:!A%=0:P%=A%:[OPT 0:NOP:]:A%=!A% n:з A%=&EA:cpu%=65 ‹ з A%=&00:cpu%=80 ‹ з A%=&12:cpu%=09 x'з A%=&A0:cpu%=11 ‹ з A%=&90:cpu%=86 ‚: Њ-с"BBC BASIC program environment"'Д29,"-") –с"Program name: >";run$"<" с"Command line: >";cmd$"<"' Єп8:txW%=±+1:з±:с ґ: ѕ&с"Host: ";АГos%+" ",4); Иqз os%>27:сБ"Commodore 64/128TI Calculator Amstrad CPC ZX Spectrum DOS/Windows ",os%*16-447,16); Тtз os%<11:сБ"ElectronBBC B BBC B+ Master MasterETCompact RISC OS SpringbdUnix 6809UnixApple ",os%*8+1,8); Ьaз os%=17:с"6809Beeb"; ‹ з os%=24:с"CP/M"; ‹ з os%=43:с"RT11/RSTS/RSX"; ‹ з os%=57:с"6809DOS"; ж.з os%=8 :з (¦-256Ђ&F0)=&B0:с "v";¦-256Ђ15; р)з os%=10:з (¦-256Ђ&F0)=&20:с ;~¦-256; ъс : Xз os%=32:fs%=29 ‹ з ђ<&FFFF:A%=0:Y%=0:E%=0:fs%=(є&FFDA)Ђ&FF ‹ з os%=8:fs%=24 ‹ fs%=0 &с"Filing System: ";АГfs%+" ",4); "*з fs%=29:с"DOSFS" ‹ з fs%=24:с"UNIXFS" ,”з fs%<>29:з fs%<>24:с Б"NONE TAPE12TAPE3 ROM DISK NET TSOFT IEEEFSADFS HOSTFSVIDEO COPRO RAM NULL PRINT SERIALHADFS VDFS ",fs%*6+1,6) 6: @>d$=".":s$="/":з (os%Ђ-24):d$="/":s$=".":з (os%Ђ-32):d$="\" Jс"Filenames are: "; TJз (os%Ђ-32):с "DOS"; ‹ сБ"BBC UnixBBC CP/M",(os%Ђ24)Ѓ2+1,3+(os%Ђ8)Ѓ8); ^с"-like"'‰15; hз (os%Ђ-24):с"d:"; ‹ с":d"; r8з (os%Ђ24)=24:с "filename";s$;"ext"'‰6"also: d:"; |.с d$;"directory";d$;"filename";s$;"ext";Ѕ8 †: ђ(kbd%=(os%<8):з(¦-256Ђ&DB)=&53:kbd%=1 љ<с "Keyboard type: ";Б"Acorn RegularRussell",kbd%*7+8,7) ¤<с ‰15;"f1=&";8-(kbd%>0);"1 f10=&";Б"C89",kbd%+2,1);"A"; ®з txW%<60:с'‰13; ё,с" Cursors=&";Б"8CCC88",kbd%*2+3,2);"+" Вс М: Цс "CPU:";‰11; аз cpu%=09:с"6809"; кз cpu%=11:с"PDP11"; фз cpu%=44:с"ARM"; юз cpu%=65:с"6502"; з cpu%=80:с"Z80"; з cpu%=86:с"80x86"; с &: 0с"CALL &FFxx: "; :Wз ђ<&FFFF:с"Yes"‰(3-8*(txW%>32));"PAGE<&FFFF" ‹ с"No";‰(4-8*(txW%>32));"PAGE>&FFFF" Dс"Program text: "; NLз !ђ=&D7C1C7C5:с "Brandy"; ‹ з ?(ёP-3):с"Acorn/Wilson"; ‹ с"Russell";‰5; Xз txW%<40:с'‰13; b6з ?(ёP-3):с" ?(TOP-3)<>0";Ѕ8 ‹ с" ?(TOP-3)=0";Ѕ8 l>ф PRINT"PAGE=&";~PAGE;SPC(9-LENSTR$~PAGE);"HIMEM=&";~HIMEM vMф PRINT"?(TOP-3)=";?(TOP-3);SPC(6-LENSTR$?(TOP-3));"!(TOP-3)=&";~!(TOP-3) ЂJф PRINT"QUIT =";:IF cpu%=11 OR cpu%=44:PRINT;QUIT ELSE PRINT"" Љ: ”а ћ: Ё-ф Universal Program Environment Functions І:Э¤OS_GetEnv:кA$,A%,X%,Y%:X%=1:os%=((є&FFF4)Ђ&FF00)Ѓ256 јDз!ђ=&D7C1C7C5:run$=ARGV$(0):гA%=1ёARGC:A$=A$+ARGV$(A%)+" ":н:=A$ ЖMзos%>31:зђ>&FFFFF:ЮX%к256:И™"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ РCA%=&600-&7B00*(ђ>&8000)-&3F00*(ђ>&C000):з!(ђ-&100)=@%:A%=ђ-&300 Ъ;з?(ё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$ я