> neobbc 0.00 4 Display environment settings in neofetch style : (* Read command line, run path and host 2cmd$=OS_GetEnv <: F915::gap%=0:bbfw%=:>&FFFF:bbfw%=(-256 &DB)=&53 P(:txH%=+1::txH%=+1:8;:txW%=+1 Z#txW%<2::txW%=+1:9:txW%=+1 d?20::gfH%=txH%*(8-2*gap%):gfW%=txW%*8 : Physical pixels n9gfY%=gfH%::gfY%=gfY%*2: gfY%>=&300: Logical pixels x(gfX%=gfW%::gfX%=gfX%*2: gfX%>=&400 Ibbfw%:gfY%=gfH%*4:gfX%=gfW%::gfX%=gfX%*2: gfX%>=gfY%: Fixed ratio : ) CPU test fails with 32016 and 68000 "A%=-1:os%>31:>&FFFF:cpu%=86 &>&FFFF:>&8000:<&FFFF:cpu%=44 ><&20000:<&20001: A%-1:!A%=0:P%=A%:[OPT 0:NOP:]:A%=!A% 7A%=&EA:cpu%=65 A%=&00:cpu%=80 A%=&12:cpu%=09 %A%=&A0:cpu%=11 A%=&90:cpu%=86 : $13;"Host:";10;os%+" ",4); aos%>27:"Commodore 64 TI CalculatorAmstrad CPC ZX Spectrum DOS/Windows ",os%*13-363,13); tos%<11:"ElectronBBC B BBC B+ Master MasterETCompact RISC OS SpringbdUnix 6809UnixApple ",os%*8+1,8); ]os%=17:"6809Beeb"; os%=24:"CP/M"; os%=43:"RT11/RSTS/RSX"; os%=57:"6809DOS"; Wos%=6:A%=-256:(A%&F0)=&A0:"1.22.02.13.03.13.53.63.74.04.35 ",(A%15)*3+1,3); -os%=8:A%=-256:(A%&F0)=&B0:"v";A%15; )os%=10:A%=-256:(A%&F0)=&20:;~A%; " ,: 6Uos%=32:fs%=29 <&FFFF:A%=0:Y%=0:E%=0:fs%=(&FFDA)&FF os%=8:fs%=24 fs%=0 @&"Filing System: ";fs%+" ",4); J(fs%=29:"DOSFS" fs%=24:"UNIXFS" Tfs%<>29:fs%<>24:"NONE TAPE12TAPE3 ROM DISK NET TSOFT IEEEFSADFS HOSTFSVIDEO COPRO RAM NULL PRINT SERIALHADFS VDFS ",fs%*6+1,6) ^: h0);"1 f10=&";"C89",kbd%+2,1);"A"; txW%<60:'13; C" Cursors=&";"8CCC88",kbd%*2+3,2);"-&";"8FCF8B",kbd%*2+3,2) : "CPU:";11; cpu%=09:"6809"; cpu%=11:"PDP11"; cpu%=44:"ARM"; cpu%=65:"6502"; &cpu%=80:"Z80"; 0cpu%=86:"80x86"; : D(mem%=((+32767)-32768)-( -32768) N-"Memory:";8;mem%1024;"K (&";~mem%;")" X: b"CALL &FFxx:";4; lV<&FFFF:"Yes"(3-8*(txW%>32));"PAGE<&FFFF" "No";(4-8*(txW%>32));"PAGE>&FFFF" v"Program text: "; I!=&D7C1C7C5:"Brandy"; ?(P-3):"Acorn/Wilson"; "Russell";5; txW%<40:'13; 5?(P-3):" ?(TOP-3)<>0";8 " ?(TOP-3)=0";8 !"Program name: """;run$"""" !"Command line: """;cmd$"""" : <"Logical pixs: ";:txW%>1:;gfX%;"x";gfY% "unknown" <"Physical pixs: ";:txW%>1:;gfW%;"x";gfH% "unknown" 6"Text:";10;:txW%>1:;txW%;"x";txH% "unknown" ."Colours:";7;:A%=3:txW%>1:txW%<40:A%=2 clr%=015:128+clr%:A%; clr%=7:128:'15,9); :128:7: :  A$="": :  - Universal Program Environment Functions *:ݤOS_GetEnv:A$,A%,X%,Y%:X%=1:os%=((&FFF4)&FF00)256 4O<&FFFF:?(P-2)=0:?5=195:os%=24:?&FFF4=195:os%=((&1800FFF4)&FF00)256 >D!=&D7C1C7C5:run$=ARGV$(0):A%=1ARGC:A$=A$+ARGV$(A%)+" "::=A$ HMos%>31:>&FFFFF:X%256:ș"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ RCA%=&600-&7B00*(>&8000)-&3F00*(>&C000):!(-&100)=@%:A%=-&300 \;?(P-3)=0:A%=&100:<&FFFF:A%=-&300:!(+512)=@%:A%= fcA$=$A%:=&8F00:run$=A$:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ pUY%=-10:A$=" "+A$:A$=A$,2):A$<>32:A$=34:A%=A$,"""",2)+1 A%=A$+" "," ") z9Y%:run$=A$,1-(A$=34),A%-1+2*(A$=34)):A$=A$,A%+1)  :=A$